From 930a13dd86613e79fd6d011edcfd27b340dce6b6 Mon Sep 17 00:00:00 2001
From: Alexandre Julliard <julliard@winehq.org>
Date: Thu, 6 May 2010 20:50:14 +0200
Subject: [PATCH] libwine: Add support for generating l_intl.nls, based on a
 patch by Andrey Turkin.

---
 libs/wine/cpmap.pl |  86 +++++++++++++++++++++++++++++++++++++++++++++
 tools/l_intl.nls   | Bin 0 -> 5958 bytes
 2 files changed, 86 insertions(+)
 create mode 100644 tools/l_intl.nls

diff --git a/libs/wine/cpmap.pl b/libs/wine/cpmap.pl
index c67c4aa6f57..7037ff92931 100755
--- a/libs/wine/cpmap.pl
+++ b/libs/wine/cpmap.pl
@@ -1057,6 +1057,91 @@ sub DUMP_CASE_TABLE($@)
 }
 
 
+################################################################
+# dump a binary case mapping table in l_intl.nls format
+sub dump_binary_case_table(@)
+{
+    my (@table) = @_;
+
+    my %difftables_hash = ();
+    my @difftables;
+    my %offtables2_hash = ();
+    my @offtables2 = ();
+    
+    my @offtable = ();
+    for (my $i = 0; $i < 256; $i++)
+    {
+        my @offtable2 = ();
+        for(my $j = 0; $j < 16; $j++) # offset table for xx00-xxFF characters
+        {
+            my @difftable;
+            for (my $k = 0; $k < 16; $k++) # case map table for xxx0-xxxF characters
+            {
+                my $char = ($i<<8) + ($j<<4) + $k;
+                $difftable[$k] = (defined $table[$char]) ? (($table[$char]-$char) & 0xffff) : 0;
+            }
+
+            my $diff_key = pack "S*", @difftable;
+            my $offset3 = $difftables_hash{$diff_key};
+            if (!defined $offset3)
+            {
+                $offset3 = scalar @difftables;
+                $difftables_hash{$diff_key} = $offset3;
+                push @difftables, @difftable;
+            }
+            $offtable2[$j] = $offset3;
+        }
+
+        my $offtable2_key = pack "S*", @offtable2;
+        my $offset2 = $offtables2_hash{$offtable2_key};
+        if (!defined $offset2)
+        {
+            $offset2 = scalar @offtables2;
+            $offtables2_hash{$offtable2_key} = $offset2;
+            push @offtables2, \@offtable2;
+        }
+        $offtable[$i] = $offset2;
+    }
+
+    my @output;
+    my $offset = 0x100; # offset of first subtable in words
+    foreach (@offtable)
+    {
+        push @output, 0x10 * $_ + $offset; # offset of subtable in words
+    }
+
+    $offset = 0x100 + 0x10 * scalar @offtables2; # offset of first difftable in words
+    foreach(@offtables2)
+    {
+        my $table = $_;
+        foreach(@$table)
+        {
+            push @output, $_ + $offset; # offset of difftable in words
+        }
+    }
+
+    my $len = 1 + scalar @output + scalar @difftables;
+    return pack "S<*", $len, @output, @difftables;
+}
+
+
+################################################################
+# dump case mappings for l_intl.nls
+sub dump_intl_nls($)
+{
+    my $filename = shift;
+    open OUTPUT,">$filename.new" or die "Cannot create $filename";
+    printf "Building $filename\n";
+
+    binmode OUTPUT;
+    print OUTPUT pack "S<", 1;  # version
+    print OUTPUT dump_binary_case_table( @toupper_table );
+    print OUTPUT dump_binary_case_table( @tolower_table );
+    close OUTPUT;
+    save_file($filename);
+}
+
+
 ################################################################
 # dump the ctype tables
 sub DUMP_CTYPE_TABLES($)
@@ -1470,6 +1555,7 @@ DUMP_SORTKEYS( "collation.c", READ_SORTKEYS_FILE() );
 DUMP_COMPOSE_TABLES( "compose.c" );
 DUMP_CTYPE_TABLES( "wctype.c" );
 dump_mirroring( "../../dlls/usp10/mirror.c" );
+dump_intl_nls("../tools/l_intl.nls");
 
 foreach my $file (@allfiles) { HANDLE_FILE( @{$file} ); }
 
diff --git a/tools/l_intl.nls b/tools/l_intl.nls
new file mode 100644
index 0000000000000000000000000000000000000000..4939fb2655050271a33aa277d7a380045e4547af
GIT binary patch
literal 5958
zcmdT{y^q{P6n`GukTkF*L?>{QgKPvCA`lelHU&aTg9}85v`F~_+)&U&t7{^q+CKm(
zM(I*54HD4o@gY!9U<2$4?uu+al(d^Fi3Azmn>TMg9(#SeN+@oA^1P4V`xuXXd!7J-
zry%GANstD;APf3yArA(@5HkvsHS%)D!Nl{dSN$+X&w}|OyJt`x2Z>6p)iW|veU%#w
z)X>O6jnr68)J)A4gt_YAm8&F7!(Nz${V)#);V^V-ie4D+$jsv~QIl|nxpNzvsZ2pc
zwK`_TnpTo8jkroL%A&s2rS5t%uVqvHDh5vHTn(cl8X}5lg!9<w!)OxCqIm@ItgIK)
zN|HD=a+Ou};%pI{(VfM4Jc!-343RJ5A|5T`me-}cF~;R;Qj1Q)#5|{5&Ek2D<(lQQ
zul9fg$4sw}rlNOMlXtz^0M+=<u%y=Q*K;1<9!=HSBV6{+N8g*9k~J_V6%1vo0eoUj
ztuI+^+epbRJ2PFiC92xtZCi<i){o4cy0g1hU;onXOPN{rm2SKSKeO3(mSR>z_EvYR
z%hAlbby<J0yU~52`>K8eS940A!uc({-o%Rsc>rEt*stkVP``hIS<?SKani8eMGSLy
zP0Xh8@=X3s{jGip@wF3u+|fC=Y5uUui9Wd}qGi9ffzUSg^u7VT&o>(W!p3?B0q~vv
z$*%62zM>zXF8x?u)+7D2X;hdvUV*FwV1#@d$~C*Ib$j?7UHhK59=C?*6aC~MHQQu#
zf!RCHu&mw-`+l^03UI`OU)kk-j_o5T+^ZUO2F}1o7H8os3=lcu9D)Yb2RLeUf7-t#
zo@Sm{&X>5lEO~xQ>JiI5w{e%|x*d{TzH#DVc}K4gw?g~7Ly^*XI{j<vzMF0pj*&>0
zDKnbA#jVv*t>9YJx#^-9-|yx%>ylB=C5DG+U&IHU0P>b^+V&H`Vf==FyfsgPS<7xc
zUhV%Udmeyd;Mc3w*iKc?*z|3lnUerXItdg?P63&k8y3P2eq(Z8`<&uQp`$X4?c-?y
z>*0AJRjKVv9SZakMplwO4kvhCn6K2Ky}xB6h&mDL+|8Yn$hFd_7o~_Eexs+DLwbtm
zkUScga{*Nu;mLsH1m~HpYdhIH^Q}3a9@sa-JL_1T&JS+yp7m3t@uQ8;!trvA9M2A%
zH;9KdmQH!el67GIfg^$SQ5Ib<7rb5o0hVgJ-of8Am#<nbBYJzpc`b1yY5cyZ|Etli
z!c`*yK7cFmi}n46k$=E7%aD%$ZeZ8gQgP2%dsNhF#Qcqrh<&38Pf~_5j5|xtGRZvv
zAF)JS)IV45j{N7m{gYT<$~s7%>=OI2ei^^sxy!ryJ$Qf7$Im63hDf&R^Cr5E8vyiB
z-$En^Ff(Z-(7D2(uczt=&~z_he=z?WiFs)Dh<1jMK|3hJA8!3;E8Sd%GhL5ghwT)e
z9O@nV8>^$9-Mp6)clxGirF?*=6c;7KS{o-30Cdukt6G8bze3zM&$G&rby+i(@s$5L
zqMpef;)jTbOCkn(ptliC^)K1|IDP$_>u&uG*YNZXw1dO>UGh?E<}p|w?e88x|D(Id
z?mfRt?cBHd_B7nRF};aDgXNoEUDD2UXDS(0rs@^Tmwrd$n}(m~+Vyy0|M^rjS8_ag
Gc>D)2BDkLb

literal 0
HcmV?d00001