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
@@ -1058,6 +1058,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
zcwXICy^q{P6d!xWgfy@vL=m`2AR7UOQxFvBHU&bW!3Cm2S|t7eHxx7{>l!4g{R5CN
zN|(wsNP%XL4}pS!4Pj4^E8=`8X*X3a65Qj>j6defp1o6wDDS6v@6G#~@pxA27m(ly
z5{!a4NP<a_2Gc_!3-VxwvJkV<@XmvUx5DFwDp+}A9xae?q#zEHTAK)-hSM+;$itbC
zMOcROa1mDFDkL-uN0eJ*n$QVN>6B(Pr!%V7Y)}YmDfpbm;eu9}yQ*VT1Yx|^h{+Y>
zT5=?;-W5yPl)0*}i_FT-EaXg`%~-)^jPnxtT<9~lU=>?25>;Kji1Ro~BHtbwOro@n
zP5F~WS(HcG+UPH$A}ZIY$>Zk{mkTR8rZJTjt7z3zt9$o4h?gojJY03|I@j`5GVAK|
zPq6~P@OZ|U`!m+}{&nyJQ7sMcWT$`B&Mws2ww9~syXx7NH%LbS2VnA{@wHO%pw;b2
zm(4YFl9tW!=2-RGdC!kej-MO946osA12&Mqj^kXLu_3fq+xaW-66*KQ$QjrFJ9Ace
z$HpG+ikQ>TajAU=FCZ={(Wk84yXgHMyLnEWwgrah8te)1TYSTD)90{*Amn@axvqHy
zF2lZceixyHW5QpEI8ZpJ5{BV=cjkNTf9v-Qi;EWU@ZerSC-%9Ncb<~cwZETQ{Ye8R
z4f&b~edzQq;)5C=BXUHB*h0u`o^#yF<Ft3H(cFGc{rfWg#|GnEbQ@1;1;c1!``-Q?
zI6TyR|9xmyUM~M$_T5JFS7G{WPh%}^tq)gqy_z{(K0kGleKkAntH{>@WCP!i!yQ0>
z-s6e|_5i+^M++<L0VMc0AW@KD7r<pIz&imhc_+|y0V(zY;@h2$@Eenae(+8KzjrZ~
zcMDh#`-KG8BJElQl`EFD<d{?5FRa#DVJ$GiMoj9dg_x<cgiTn&I8Tw|6NuTAWh@tc
z0k2VFXTaqGdBwb|BY5{9wF;kXRO`HdP}iPBU52nkTuv3MM25YC%*dme<+b0f1~0`&
zz)`c!ctQftcoX!wKV#VY8R)Tu{MpWa7yLJb^u0$elV5AwAIPtgD{a<Qf`2z;SF3%k
z=0uzSgJ>f5+WbZ~6bg&VeWT%B^q24pm{D8C`Sn-p=<JwVK7<#?r1riAZ<BYt`DPuH
zPUAQwK*$8gCL%@<!F8-h_Sa9}bNvX7_W?-z7I36w7_Mhh>p$%|71v&LN**F?nx0%A
zj`YF(pTB9__Cd#x-_Dj1`Y^rw@D1XAPxeKS==1aZFA#38^v@6vdLnYjVH@G9f1y5)
z^Vh$<uG*akThqt`N&UA+r4vVh?>_OBkMEwi_v|hq`fa$qq`NnkH<#*7*J)?Dvvl7b
Y-P-@_aobGl%Xh~&o_{~-kMFeq0Wc!Cp8x;=

literal 0
HcwPel00001

-- 
2.11.4.GIT