Piotr Caban piotr@codeweavers.com writes:
dump_nameprep_range($INPUT, $nameprep_flags{"unassigned"}, \@flags_table) if (/A.1/);
dump_nameprep_range($INPUT, $nameprep_flags{"prohibited"}, \@flags_table) if (/C.1.2/);
dump_nameprep_range($INPUT, $nameprep_flags{"prohibited"}, \@flags_table) if (/C.2.2/);
dump_nameprep_range($INPUT, $nameprep_flags{"prohibited"}, \@flags_table) if (/C.3/);
dump_nameprep_range($INPUT, $nameprep_flags{"prohibited"}, \@flags_table) if (/C.4/);
dump_nameprep_range($INPUT, $nameprep_flags{"prohibited"}, \@flags_table) if (/C.5/);
dump_nameprep_range($INPUT, $nameprep_flags{"prohibited"}, \@flags_table) if (/C.6/);
dump_nameprep_range($INPUT, $nameprep_flags{"prohibited"}, \@flags_table) if (/C.7/);
dump_nameprep_range($INPUT, $nameprep_flags{"prohibited"}, \@flags_table) if (/C.8/);
dump_nameprep_range($INPUT, $nameprep_flags{"prohibited"}, \@flags_table) if (/C.9/);
dump_nameprep_range($INPUT, $nameprep_flags{"bidi_ral"}, \@flags_table) if (/D.1/);
dump_nameprep_range($INPUT, $nameprep_flags{"bidi_l"}, \@flags_table) if (/D.2/);
dump_nameprep_map($INPUT, \@mapping_table) if (/B.1/);
dump_nameprep_map($INPUT, \@mapping_table) if (/B.2/);
These names are confusing, the functions are loading data not dumping it.
- for (my $i = 0; $i < 65536; $i++)
- {
next unless defined $flags_table[$i];
$flags_table[$i] += $i;
- }
- open OUTPUT,">$filename.new" or die "Cannot create $filename";
- print "Building $filename\n";
- print OUTPUT "/* Nameprep algorithm related data */\n";
- print OUTPUT "/* generated from $STRINGPREP */\n";
- print OUTPUT "/* DO NOT EDIT!! */\n\n";
- print OUTPUT "#include "wine/unicode.h"\n\n";
- DUMP_CASE_TABLE( "nameprep_char_type", @flags_table );
It doesn't make sense to use a case table for this, it's just flags.