libwine: Add support for codepage 10004 (Mac Arabic).

libs/wine/Makefile.in

@@ -13,6 +13,7 @@ C_SRCS = \
 	c_10001.c \
 	c_10002.c \
 	c_10003.c \
+	c_10004.c \
 	c_10006.c \
 	c_10007.c \
 	c_10008.c \

libs/wine/cptable.c

@@ -66,6 +66,7 @@ extern union cptable cptable_10000;
 extern union cptable cptable_10001;
 extern union cptable cptable_10002;
 extern union cptable cptable_10003;
+extern union cptable cptable_10004;
 extern union cptable cptable_10006;
 extern union cptable cptable_10007;
 extern union cptable cptable_10008;
@@ -95,7 +96,7 @@ extern union cptable cptable_28604;
 extern union cptable cptable_28605;
 extern union cptable cptable_28606;
 
-static const union cptable * const cptables[70] =
+static const union cptable * const cptables[71] =
 {
     &cptable_037,
     &cptable_424,
@@ -139,6 +140,7 @@ static const union cptable * const cptables[70] =
     &cptable_10001,
     &cptable_10002,
     &cptable_10003,
+    &cptable_10004,
     &cptable_10006,
     &cptable_10007,
     &cptable_10008,

tools/make_unicode

@@ -83,6 +83,7 @@ my @allfiles =
     [ 10001, "VENDORS/APPLE/JAPANESE.TXT",        0, "Mac Japanese" ],
     [ 10002, "VENDORS/APPLE/CHINTRAD.TXT",        0, "Mac Traditional Chinese" ],
     [ 10003, "VENDORS/APPLE/KOREAN.TXT",          0, "Mac Korean", 0xf8e5 ],
+    [ 10004, "VENDORS/APPLE/ARABIC.TXT",          0, "Mac Arabic", 0xf826 ],
     [ 10006, "VENDORS/MICSFT/MAC/GREEK.TXT",      0, "Mac Greek" ],
     [ 10007, "VENDORS/MICSFT/MAC/CYRILLIC.TXT",   0, "Mac Cyrillic" ],
     [ 10008, "VENDORS/APPLE/CHINSIMP.TXT",        0, "Mac Simplified Chinese" ],
@@ -561,11 +562,18 @@ sub read_codepage_file($)
             next;
         }
         # 0x12 <LR>+0x3456
-        if (/^0x([0-9a-fA-F]+)\s+<[LR]+>\+0x([0-9a-fA-F]+)\s+(\#.*)?/)
+        if (/^0x([0-9a-fA-F]+)\s+<LR>\+0x([0-9a-fA-F]+)\s+(\#.*)?/)
         {
             add_mapping( hex $1, hex $2 );
             next;
         }
+        # 0x12 <RL>+0x3456
+        if (/^0x([0-9a-fA-F]+)\s+<RL>\+0x([0-9a-fA-F]+)\s+(\#.*)?/)
+        {
+            my $uni = hex $2;
+            add_mapping( hex $1, $uni ) if $uni >= 0x80;
+            next;
+        }
         die "$name: Unrecognized line $_\n";
     }
     close $INPUT;