tools: Move the cpmap.pl script to tools/make_unicode.
This commit is contained in:
parent
7339c04b7b
commit
704a330a8e
|
@ -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:
|
Loading…
Reference in New Issue