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

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 704a330a8e3e928529193d30d60bb2e0a5ccd835
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=704a330a8e3e928529193d30d6...

Author: Alexandre Julliard 
Date:   Thu Jul  7 15:05:52 2011 +0200

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

---

libs/wine/cpmap.pl => tools/make_unicode     |   36 ++++++++++++++-----------
 libs/wine/defaults => tools/unicode-defaults |    0
 2 files changed, 20 insertions(+), 16 deletions(-)

diff --git a/libs/wine/cpmap.pl b/tools/make_unicode
similarity index 98%
rename from libs/wine/cpmap.pl
rename to tools/make_unicode
index 3d09f10..7e6beef 100755
--- a/libs/wine/cpmap.pl
+++ b/tools/make_unicode
@@ -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";

# Defaults mapping
-my $DEFAULTS = "./defaults";
+my $DEFAULTS = "tools/unicode-defaults";

# Default char for undefined mappings
 my $DEF_CHAR = ord '?';
@@ -1716,7 +1716,7 @@ sub handle_bestfit_file($$$)
     }
     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";

printf "Building %s from %s (%s)\n", $output, $filename, $comment;
@@ -1757,7 +1757,7 @@ sub HANDLE_FILE(@)

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";

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
-sub OUTPUT_CPTABLE()
+sub output_cptable($)
 {
+    my $output = shift;
     my @tables_decl = ();

+    printf "Building %s\n", $output;
+
     foreach my $file (@allfiles)
     {
         my ($codepage,$filename,$comment) = @$file;
@@ -1818,7 +1821,7 @@ sub OUTPUT_CPTABLE()
         push @tables_decl, sprintf("    &cptable_%03d,\n", $codepage);
     }
     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

+chdir ".." if -f "./make_unicode";
 READ_DEFAULTS( $DEFAULTS );
-DUMP_CASE_MAPPINGS( "casemap.c" );
-DUMP_SORTKEYS( "collation.c", READ_SORTKEYS_FILE() );
-DUMP_COMPOSE_TABLES( "compose.c" );
-DUMP_CTYPE_TABLES( "wctype.c" );
-dump_mirroring( "../../dlls/usp10/mirror.c" );
-dump_shaping( "../../dlls/usp10/shaping.c" );
-dump_linebreak( "../../dlls/usp10/linebreak.c" );
-dump_indic( "../../dlls/usp10/indicsyllable.c" );
-dump_intl_nls("../../tools/l_intl.nls");
+DUMP_CASE_MAPPINGS( "libs/wine/casemap.c" );
+DUMP_SORTKEYS( "libs/wine/collation.c", READ_SORTKEYS_FILE() );
+DUMP_COMPOSE_TABLES( "libs/wine/compose.c" );
+DUMP_CTYPE_TABLES( "libs/wine/wctype.c" );
+dump_mirroring( "dlls/usp10/mirror.c" );
+dump_shaping( "dlls/usp10/shaping.c" );
+dump_linebreak( "dlls/usp10/linebreak.c" );
+dump_indic( "dlls/usp10/indicsyllable.c" );
+dump_intl_nls("tools/l_intl.nls");

foreach my $file (@allfiles) { HANDLE_FILE( @{$file} ); }

-OUTPUT_CPTABLE();
+output_cptable("libs/wine/cptable.c");

exit 0;

# Local Variables:
-# compile-command: "./cpmap.pl && make -k"
+# compile-command: "./make_unicode"
 # End:
diff --git a/libs/wine/defaults b/tools/unicode-defaults
similarity index 100%
rename from libs/wine/defaults
rename to tools/unicode-defaults