tools: Move the cpmap.pl script to tools/make_unicode.

This commit is contained in:
Alexandre Julliard 2011-07-07 15:05:52 +02:00
parent 7339c04b7b
commit 704a330a8e
2 changed files with 20 additions and 16 deletions

View File

@ -29,7 +29,7 @@ my $UNIDATA = "http://www.unicode.org/Public/6.0.0/ucd";
my $SORTKEYS = "http://www.unicode.org/reports/tr10/allkeys.txt"; my $SORTKEYS = "http://www.unicode.org/reports/tr10/allkeys.txt";
# Defaults mapping # Defaults mapping
my $DEFAULTS = "./defaults"; my $DEFAULTS = "tools/unicode-defaults";
# Default char for undefined mappings # Default char for undefined mappings
my $DEF_CHAR = ord '?'; my $DEF_CHAR = ord '?';
@ -1716,7 +1716,7 @@ sub handle_bestfit_file($$$)
} }
close $INPUT; close $INPUT;
my $output = sprintf "c_%03d.c", $codepage; my $output = sprintf "libs/wine/c_%03d.c", $codepage;
open OUTPUT,">$output.new" or die "Cannot create $output"; open OUTPUT,">$output.new" or die "Cannot create $output";
printf "Building %s from %s (%s)\n", $output, $filename, $comment; printf "Building %s from %s (%s)\n", $output, $filename, $comment;
@ -1757,7 +1757,7 @@ sub HANDLE_FILE(@)
ADD_DEFAULT_MAPPINGS(); ADD_DEFAULT_MAPPINGS();
my $output = sprintf "c_%03d.c", $codepage; my $output = sprintf "libs/wine/c_%03d.c", $codepage;
open OUTPUT,">$output.new" or die "Cannot create $output"; open OUTPUT,">$output.new" or die "Cannot create $output";
printf "Building %s from %s (%s)\n", $output, $filename || "hardcoded data", $comment; printf "Building %s from %s (%s)\n", $output, $filename || "hardcoded data", $comment;
@ -1801,10 +1801,13 @@ sub save_file($)
################################################################ ################################################################
# output the list of codepage tables into the cptable.c file # output the list of codepage tables into the cptable.c file
sub OUTPUT_CPTABLE() sub output_cptable($)
{ {
my $output = shift;
my @tables_decl = (); my @tables_decl = ();
printf "Building %s\n", $output;
foreach my $file (@allfiles) foreach my $file (@allfiles)
{ {
my ($codepage,$filename,$comment) = @$file; my ($codepage,$filename,$comment) = @$file;
@ -1818,7 +1821,7 @@ sub OUTPUT_CPTABLE()
push @tables_decl, sprintf(" &cptable_%03d,\n", $codepage); push @tables_decl, sprintf(" &cptable_%03d,\n", $codepage);
} }
push @tables_decl, "};"; push @tables_decl, "};";
REPLACE_IN_FILE( "cptable.c", @tables_decl ); REPLACE_IN_FILE( $output, @tables_decl );
} }
################################################################ ################################################################
@ -1850,23 +1853,24 @@ sub REPLACE_IN_FILE($@)
################################################################ ################################################################
# main routine # main routine
chdir ".." if -f "./make_unicode";
READ_DEFAULTS( $DEFAULTS ); READ_DEFAULTS( $DEFAULTS );
DUMP_CASE_MAPPINGS( "casemap.c" ); DUMP_CASE_MAPPINGS( "libs/wine/casemap.c" );
DUMP_SORTKEYS( "collation.c", READ_SORTKEYS_FILE() ); DUMP_SORTKEYS( "libs/wine/collation.c", READ_SORTKEYS_FILE() );
DUMP_COMPOSE_TABLES( "compose.c" ); DUMP_COMPOSE_TABLES( "libs/wine/compose.c" );
DUMP_CTYPE_TABLES( "wctype.c" ); DUMP_CTYPE_TABLES( "libs/wine/wctype.c" );
dump_mirroring( "../../dlls/usp10/mirror.c" ); dump_mirroring( "dlls/usp10/mirror.c" );
dump_shaping( "../../dlls/usp10/shaping.c" ); dump_shaping( "dlls/usp10/shaping.c" );
dump_linebreak( "../../dlls/usp10/linebreak.c" ); dump_linebreak( "dlls/usp10/linebreak.c" );
dump_indic( "../../dlls/usp10/indicsyllable.c" ); dump_indic( "dlls/usp10/indicsyllable.c" );
dump_intl_nls("../../tools/l_intl.nls"); dump_intl_nls("tools/l_intl.nls");
foreach my $file (@allfiles) { HANDLE_FILE( @{$file} ); } foreach my $file (@allfiles) { HANDLE_FILE( @{$file} ); }
OUTPUT_CPTABLE(); output_cptable("libs/wine/cptable.c");
exit 0; exit 0;
# Local Variables: # Local Variables:
# compile-command: "./cpmap.pl && make -k" # compile-command: "./make_unicode"
# End: # End: