4b1447a95f7a228dd8c95c3b9d8ef57615972098
[librarian.git] / librarian / font-optimizer / ext / Font-TTF / lib / Font / TTF / Name.pm
1 package Font::TTF::Name;
2
3 =head1 NAME
4
5 Font::TTF::Name - String table for a TTF font
6
7 =head1 DESCRIPTION
8
9 Strings are held by number, platform, encoding and language. Strings are
10 accessed as:
11
12     $f->{'name'}{'strings'}[$number][$platform_id][$encoding_id]{$language_id}
13
14 Notice that the language is held in an associative array due to its sparse
15 nature on some platforms such as Microsoft ($pid = 3). Notice also that the
16 array order is different from the stored array order (platform, encoding,
17 language, number) to allow for easy manipulation of strings by number (which is
18 what I guess most people will want to do).
19
20 By default, C<$Font::TTF::Name::utf8> is set to 1, and strings will be stored as UTF8 wherever
21 possible. The method C<is_utf8> can be used to find out if a string in a particular
22 platform and encoding will be returned as UTF8. Unicode strings are always
23 converted if utf8 is requested. Otherwise, strings are stored according to platform:
24
25 You now have to set <$Font::TTF::Name::utf8> to 0 to get the old behaviour.
26
27 =over 4
28
29 =item Apple Unicode (platform id = 0)
30
31 Data is stored as network ordered UCS2. There is no encoding id for this platform
32 but there are language ids as per Mac language ids.
33
34 =item Mac (platform id = 1)
35
36 Data is stored as 8-bit binary data, leaving the interpretation to the user
37 according to encoding id.
38
39 =item Unicode (platform id = 2)
40
41 Currently stored as 16-bit network ordered UCS2. Upon release of Perl 5.005 this
42 will change to utf8 assuming current UCS2 semantics for all encoding ids.
43
44 =item Windows (platform id = 3)
45
46 As per Unicode, the data is currently stored as 16-bit network ordered UCS2. Upon
47 release of Perl 5.005 this will change to utf8 assuming current UCS2 semantics for
48 all encoding ids.
49
50 =back
51
52 =head1 INSTANCE VARIABLES
53
54 =over 4
55
56 =item strings
57
58 An array of arrays, etc.
59
60 =back
61
62 =head1 METHODS
63
64 =cut
65
66 use strict;
67 use vars qw(@ISA $VERSION @apple_encs @apple_encodings $utf8 $cp_1252 @cp_1252 %win_langs %langs_win %langs_mac @ms_langids @mac_langs);
68 use Font::TTF::Table;
69 use Font::TTF::Utils;
70 @ISA = qw(Font::TTF::Table);
71
72 $utf8 = 1;
73
74 {
75     my ($count, $i);
76     eval {require Compress::Zlib;};
77     unless ($@)
78     {
79         for ($i = 0; $i <= $#apple_encs; $i++)
80         {
81             $apple_encodings[0][$i] = [unpack("n*", Compress::Zlib::uncompress(unpack("u", $apple_encs[$i])))]
82                 if (defined $apple_encs[$i]);
83             foreach (0 .. 127)
84             { $apple_encodings[0][$i][$_] = $_; }
85             $count = 0;
86             $apple_encodings[1][$i] = {map {$_ => $count++} @{$apple_encodings[0][$i]}};
87         }
88         $cp_1252[0] = [unpack("n*", Compress::Zlib::uncompress(unpack("u", $cp_1252)))];
89         $count = 0;
90         $cp_1252[1] = {map({$_ => $count++} @{$cp_1252[0]})};
91     }
92     for ($i = 0; $i < $#ms_langids; $i++)
93     {
94         if (defined $ms_langids[$i][1])
95         {
96             my ($j);
97             for ($j = 0; $j < $#{$ms_langids[$i][1]}; $j++)
98             {
99                 my ($v) = $ms_langids[$i][1][$j];
100                 if ($v =~ m/^-/o)
101                 { $win_langs{(($j + 1) << 10) + $i} = $ms_langids[$i][0] . $v; }
102                 else
103                 { $win_langs{(($j + 1) << 10) + $i} = $v; }
104             }
105         }
106         else
107         { $win_langs{$i + 0x400} = $ms_langids[$i][0]; }
108     }
109     %langs_win = map {my ($t) = $win_langs{$_}; my (@res) = ($t => $_); push (@res, $t => $_) if ($t =~ s/-.*$//o && ($_ & 0xFC00) == 0x400); @res} keys %win_langs;
110     $i = 0;
111     %langs_mac = map {$_ => $i++} @mac_langs;
112 }
113     
114
115 $VERSION = 1.1;             # MJPH  17-JUN-2000     Add utf8 support
116 # $VERSION = 1.001;           # MJPH  10-AUG-1998     Put $number first in list
117
118 =head2 $t->read
119
120 Reads all the names into memory
121
122 =cut
123
124 sub read
125 {
126     my ($self) = @_;
127     my ($fh) = $self->{' INFILE'};
128     my ($dat, $num, $stroff, $i, $pid, $eid, $lid, $nid, $len, $off, $here);
129
130     $self->SUPER::read or return $self;
131     $fh->read($dat, 6);
132     ($num, $stroff) = unpack("x2nn", $dat);
133     for ($i = 0; $i < $num; $i++)
134     {
135         use bytes;              # hack to fix bugs in 5.8.7
136         read($fh, $dat, 12);
137         ($pid, $eid, $lid, $nid, $len, $off) = unpack("n6", $dat);
138         $here = $fh->tell();
139         $fh->seek($self->{' OFFSET'} + $stroff + $off, 0);
140         $fh->read($dat, $len);
141         if ($utf8)
142         {
143             if ($pid == 1 && defined $apple_encodings[0][$eid])
144             { $dat = TTF_word_utf8(pack("n*", map({$apple_encodings[0][$eid][$_]} unpack("C*", $dat)))); }
145             elsif ($pid == 2 && $eid == 2 && defined @cp_1252)
146             { $dat = TTF_word_utf8(pack("n*", map({$cp_1252[0][$_]} unpack("C*", $dat)))); }
147             elsif ($pid == 0 || $pid == 3 || ($pid == 2 && $eid == 1))
148             { $dat = TTF_word_utf8($dat); }
149         }
150         $self->{'strings'}[$nid][$pid][$eid]{$lid} = $dat;
151         $fh->seek($here, 0);
152     }
153     $self;
154 }
155
156
157 =head2 $t->out($fh)
158
159 Writes out all the strings
160
161 =cut
162
163 sub out
164 {
165     my ($self, $fh) = @_;
166     my ($pid, $eid, $lid, $nid, $todo, @todo);
167     my ($len, $offset, $loc, $stroff, $endloc, $str_trans);
168
169     return $self->SUPER::out($fh) unless $self->{' read'};
170
171     $loc = $fh->tell();
172     $fh->print(pack("n3", 0, 0, 0));
173     foreach $nid (0 .. $#{$self->{'strings'}})
174     {
175         foreach $pid (0 .. $#{$self->{'strings'}[$nid]})
176         {
177             foreach $eid (0 .. $#{$self->{'strings'}[$nid][$pid]})
178             {
179                 foreach $lid (sort keys %{$self->{'strings'}[$nid][$pid][$eid]})
180                 {
181                     $str_trans = $self->{'strings'}[$nid][$pid][$eid]{$lid};
182                     if ($utf8)
183                     {
184                         if ($pid == 1 && defined $apple_encodings[1][$eid])
185                         { $str_trans = pack("C*",
186                                 map({$apple_encodings[1][$eid]{$_} || 0x3F} unpack("n*",
187                                 TTF_utf8_word($str_trans)))); }
188                         elsif ($pid == 2 && $eid == 2 && defined @cp_1252)
189                         { $str_trans = pack("C*",
190                                 map({$cp_1252[1][$eid]{$_} || 0x3F} unpack("n*",
191                                 TTF_utf8_word($str_trans)))); }
192                         elsif ($pid == 2 && $eid == 0)
193                         { $str_trans =~ s/[\xc0-\xff][\x80-\xbf]+/?/og; }
194                         elsif ($pid == 0 || $pid == 3 || ($pid == 2 && $eid == 1))
195                         { $str_trans = TTF_utf8_word($str_trans); }
196                     }
197                     push (@todo, [$pid, $eid, $lid, $nid, $str_trans]);
198                 }
199             }
200         }
201     }
202
203     $offset = 0;
204     @todo = (sort {$a->[0] <=> $b->[0] || $a->[1] <=> $b->[1] || $a->[2] <=> $b->[2]
205             || $a->[3] <=> $b->[3]} @todo);
206     foreach $todo (@todo)
207     {
208         $len = length($todo->[4]);
209         $fh->print(pack("n6", @{$todo}[0..3], $len, $offset));
210         $offset += $len;
211     }
212     
213     $stroff = $fh->tell() - $loc;
214     foreach $todo (@todo)
215     { $fh->print($todo->[4]); }
216
217     $endloc = $fh->tell();
218     $fh->seek($loc, 0);
219     $fh->print(pack("n3", 0, $#todo + 1, $stroff));
220     $fh->seek($endloc, 0);
221     $self;
222 }
223
224
225 =head2 $t->XML_element($context, $depth, $key, $value)
226
227 Outputs the string element in nice XML (which is all the table really!)
228
229 =cut
230
231 sub XML_element
232 {
233     my ($self) = shift;
234     my ($context, $depth, $key, $value) = @_;
235     my ($fh) = $context->{'fh'};
236     my ($nid, $pid, $eid, $lid);
237
238     return $self->SUPER::XML_element(@_) unless ($key eq 'strings');
239
240     foreach $nid (0 .. $#{$self->{'strings'}})
241     {
242         next unless ref($self->{'strings'}[$nid]);
243 #        $fh->print("$depth<strings id='$nid'>\n");
244         foreach $pid (0 .. $#{$self->{'strings'}[$nid]})
245         {
246             foreach $eid (0 .. $#{$self->{'strings'}[$nid][$pid]})
247             {
248                 foreach $lid (sort {$a <=> $b} keys %{$self->{'strings'}[$nid][$pid][$eid]})
249                 {
250                     my ($lang) = $self->get_lang($pid, $lid) || $lid;
251                     $fh->printf("%s<string id='%s' platform='%s' encoding='%s' language='%s'>\n%s%s%s\n%s</string>\n",
252                             $depth, $nid, $pid, $eid, $lang, $depth,
253                             $context->{'indent'}, $self->{'strings'}[$nid][$pid][$eid]{$lid}, $depth);
254                 }
255             }
256         }
257 #        $fh->print("$depth</strings>\n");
258     }
259     $self;
260 }
261
262
263 =head2 $t->XML_end($context, $tag, %attrs)
264
265 Store strings in the right place
266
267 =cut
268
269 sub XML_end
270 {
271     my ($self) = shift;
272     my ($context, $tag, %attrs) = @_;
273
274     if ($tag eq 'string')
275     {
276         my ($lid) = $self->find_name($attrs{'platform'}, $attrs{'language'}) || $attrs{'language'};
277         $self->{'strings'}[$attrs{'id'}][$attrs{'platform'}][$attrs{'encoding'}]{$lid}
278             = $context->{'text'};
279         return $context;
280     }
281     else
282     { return $self->SUPER::XML_end(@_); }
283 }
284
285 =head2 is_utf8($pid, $eid)
286
287 Returns whether a string of a given platform and encoding is going to be in UTF8
288
289 =cut
290
291 sub is_utf8
292 {
293     my ($self, $pid, $eid) = @_;
294
295     return ($utf8 && ($pid == 0 || $pid == 3 || ($pid == 2 && ($eid != 2 || defined @cp_1252))
296             || ($pid == 1 && defined $apple_encodings[$eid])));
297 }
298
299
300 =head2 find_name($nid)
301
302 Hunts down a name in all the standard places and returns the string and for an
303 array context the pid, eid & lid as well
304
305 =cut
306
307 sub find_name
308 {
309     my ($self, $nid) = @_;
310     my ($res, $pid, $eid, $lid, $look, $k);
311
312     my (@lookup) = ([3, 1, 1033], [3, 1, -1], [3, 0, 1033], [3, 0, -1], [2, 1, -1], [2, 2, -1], [2, 0, -1],
313                     [0, 0, 0], [1, 0, 0]);
314     foreach $look (@lookup)
315     {
316         ($pid, $eid, $lid) = @$look;
317         if ($lid == -1)
318         {
319             foreach $k (keys %{$self->{'strings'}[$nid][$pid][$eid]})
320             {
321                 if (($res = $self->{strings}[$nid][$pid][$eid]{$k}) ne '')
322                 {
323                     $lid = $k;
324                     last;
325                 }
326             }
327         } else
328         { $res = $self->{strings}[$nid][$pid][$eid]{$lid} }
329         if ($res ne '')
330         { return wantarray ? ($res, $pid, $eid, $lid) : $res; }
331     }
332     return '';
333 }
334
335
336 =head2 set_name($nid, $str[, $lang[, @cover]])
337
338 Sets the given name id string to $str for all platforms and encodings that
339 this module can handle. If $lang is set, it is interpretted as a language
340 tag and if the particular language of a string is found to match, then
341 that string is changed, otherwise no change occurs.
342
343 If supplied, @cover should be a list of references to two-element arrays 
344 containing pid,eid pairs that should added to the name table if not already present.
345
346 This function does not add any names to the table unless @cover is supplied. 
347
348 =cut
349
350 sub set_name
351 {
352     my ($self, $nid, $str, $lang, @cover) = @_;
353     my ($pid, $eid, $lid, $c);
354
355     foreach $pid (0 .. $#{$self->{'strings'}[$nid]})
356     {
357         my $strNL = $str;
358         $strNL =~ s/\n/\r\n/og  if $pid == 3;
359         $strNL =~ s/\n/\r/og    if $pid == 1;
360         foreach $eid (0 .. $#{$self->{'strings'}[$nid][$pid]})
361         {
362             foreach $lid (keys %{$self->{'strings'}[$nid][$pid][$eid]})
363             {
364                 next unless (!defined $lang || $self->match_lang($pid, $lid, $lang));
365                 $self->{'strings'}[$nid][$pid][$eid]{$lid} = $strNL;
366                 foreach $c (0 .. scalar @cover)
367                 {
368                     next unless ($cover[$c][0] == $pid && $cover[$c][1] == $eid);
369                     delete $cover[$c];
370                     last;
371                 }
372             }
373         }
374     }
375     foreach $c (@cover)
376     {
377         my ($pid, $eid) = @{$c};
378         my ($lid) = $self->find_lang($pid, $lang);
379         my $strNL = $str;
380         $strNL =~ s/\n/\r\n/og  if $pid == 3;
381         $strNL =~ s/\n/\r/og    if $pid == 1;
382         $self->{'strings'}[$nid][$pid][$eid]{$lid} = $strNL;
383     }
384     return $self;
385 }
386
387 =head2 Font::TTF::Name->match_lang($pid, $lid, $lang)
388
389 Compares the language associated to the string of given platform and language
390 with the given language tag. If the language matches the tag (i.e. is equal
391 or more defined than the given language tag) returns true. This is calculated
392 by finding whether the associated language tag starts with the given language
393 tag.
394
395 =cut
396
397 sub match_lang
398 {
399     my ($self, $pid, $lid, $lang) = @_;
400     my ($langid) = $self->get_lang($pid, $lid);
401
402     return ($lid == $lang) if ($lang != 0 || $lang eq '0');
403     return !index(lc($langid), lc($lang));
404 }
405
406 =head2 Font::TTF::Name->get_lang($pid, $lid)
407
408 Returns the language tag associated with a particular platform and language id
409
410 =cut
411
412 sub get_lang
413 {
414     my ($self, $pid, $lid) = @_;
415
416     if ($pid == 3)
417     { return $win_langs{$lid}; }
418     elsif ($pid == 1)
419     { return $mac_langs[$lid]; }
420     return '';
421 }
422
423
424 =head2 Font::TTF::Name->find_lang($pid, $lang)
425
426 Looks up the language name and returns a lang id if one exists
427
428 =cut
429
430 sub find_lang
431 {
432     my ($self, $pid, $lang) = @_;
433
434     if ($pid == 3)
435     { return $langs_win{$lang}; }
436     elsif ($pid == 1)
437     { return $langs_mac{$lang}; }
438     return undef;
439 }
440
441
442 BEGIN {
443 @apple_encs = (
444 <<'EOT',
445 M>)RES==NCW$`@.'G_S5Q*L(!#?+K1VO4:.W6IJA-:\^BM?>L>1&NP(A0Q$BL
446 M<*!62ZV8Z1)[K]BE$MR#O,=/7OW]7T&*6"NMI4K31EOMM)>N@XXZZ2Q#IBZZ
447 MZJ:['GKJ)4NVWOKHJ]\_/\!`@PR68XBAALDUW`@CC3+:&&.-,UZ>?!-,-,ED
448 M4TPUS70SS#3+;`7FF&N>0D7F6V"A119;8JEEEEMAI5566V.M==;;H-A&FVRV
449 MQ5;;_OTONJ3<%;?<5^NQ1YYXYJGG7GKME3?>>N^=#S[ZY(O/OOKNFU]^JO<[
450 M!$?LLMO>$#OAH4-*4F+'[(L+E*F,6SH:%\9%]C@>1W&CN&%2:9QNO]-))5ZH
451 M<]9.!^/DQ/8X-V[@@#,AS0ZE+KB7R$ODA\:A26@>6H2FH9D?J17^)(I#3C@8
452 MLD)V?:(^"BE.AN30,F0XK\(Y5UUVW0TW77/'W;H_;JM6HRJ1&95%M0Y'E5%5
453 .5.U4]""JB<K_`B>`?E$`
454 EOT
455
456 undef,
457 undef,
458 undef,
459 <<'EOT',
460 M>)RES[=/%```1O$WO8G_@$'J';W70Z2WHS>5WJN%8D6%D;BZ,3*P,;#C2D(8
461 M,9&)08V)+4*(1((X2'(#[.:;7[[\*./_%D,L<<230"(!@B213`JII)%.!IED
462 MD4T.N>213P&%%%%,B!)N4LJMR[Z<"BJIHIH::JFCG@;"--)$,RVTTD8['732
463 M13>WN<-=>NBECWX&&&2(848898QQ)IADBFEFF.4>]WG`0^:89X%%'O&8)SSE
464 M&<]9X@4O><4R*Y?_.ZRSRQ[[''#(1S[PB<]NL\D7OO&5[_S@9TR`(XXYX1=O
465 M.>4W9_SAG`O^7OF=O>XW*N)WV!%''7/<"2>=<MH90D9'_-X(AHTUSG@33#1@
466 MT"2333'5--/-,-,LL\TQUSSS+;#0(HL-7?DMM\)*JZRVQEKKK+?!L(TVV6R+
467 9K;;9;H<K+KGJ>S?<\K5O(G[7?/</+>Y>'```
468 EOT
469
470 <<'EOT',
471 M>)RED$LSEW$`A9_-^00L,H-^(=>4Y%^2J'1Q*Y+[I2(BHA`B?!%J6EM1*28S
472 M;9II[/PI*7*_%TUN\_*VZ%W:FN9LSYEGGD,\_Q?#$?SP)X"C!!)$,"&$$L8Q
473 MPCG."2(X222GB,+%:<X0S5EB.$<LYXES]A>XR"42N,P5KG*-1))()H54KG.#
474 M--*Y20:WR"2+;'+()8]\"BBDB-O<X2[%E'"/4LJX3SD5/*"2*AY230V/>$PM
475 M==3SA`8::>(IS;3PC%;::'?X'^W#?&(0-Z-,,,,TL\PSQP)+K+#,*C]9XQ?K
476 M_.8/FVRPQ0[;[+&+S=_]_J;KX/Y6I?&U.JQ.Z[GU0@-VBNTR@;Q4G]ZI5V_U
477 MQG@83^-M?,PAXV6'VF'ZH&Z]4H_>J]]IO=:0W!K6B#[KBT;U56/ZIN\:UX1^
478 ?:%)3FM:,9C6G>2UH44M:UHI6'?<BYX,"6O\!%-%\5```
479 EOT
480
481 <<'EOT',
482 M>)RES5=OSG$`0.$CYR.(A(3DUS]J4WOO59O6;&F+UMY[7R&(V'N^4ETZ=*"J
483 M:M:H=>E*0D1B)7HC1KC0[R#G^LEA,/]7((Z(EK2B-?&TH2WM:$\'.M*)SG0A
484 M@:YTHSL]Z$DO>M.'OO2C/P,8R*`&/X2A#&,X(QC)*$:3R!C&,H[Q3&`BDYC,
485 M%))(9BK3F,X,9C*+%%*9S1S22">#N<QC/IEDL8"%+&(Q2UC*,I:S@I6L8C5K
486 M6,LZUK.!C6QB,UO8RC:VLZ/A7TL5Y=11P6O>N(MWO.>#.\GG(Y_YQ!>^DAT7
487 M\8WZ$%$3$OC.#W(IYC=_^!N"1SWF*<]ZP1AO*:'`;*^0%V502J6'*8LRHRQR
488 M/.)Q3WC2TY[QG+D6FF^!19ZGR(M>BA*]3"'5(9Z8.>:YVSV-DD/CT"0T#RU"
489 MT]",G^YUG_L]8+$E7O6%!WUIF>4^]9K7?6R%E59YQUM6>]L:[WK/5][WH;7>
490 4M,X'/O&1-WSF<P]9^BOV#YW%>_\`
491 EOT
492
493 <<'EOT',
494 M>)RERT=.%5``0-&+7K'&!B(@X/L/^/3>ZZ?SZ=*K@`KVWOL:U!68.#!&8G2@
495 M$Q?F5/=@SOB0XO\$$D2**:&4)&644T$E55130RUUU--`(TTTTT(K;;3302==
496 M=--#[[_?1S\###+$,".,DF:,<2:89(II9KC`+'/,L\`B2RRSPBIKK+/!13;9
497 M8IM+7.8*.^QRE6M<YP8WN<5M[G"7>]SG`0]YQ&.>\)1G/.<%+WG%:][PEI0G
498 M/>5IL\SVC#F>-=<\\SUG@846>=Y@PFBQ)9::M,QR*ZRTRFIKK+4N!+[[CD]\
499 M#I%?9O*-+XGH/N?BMON=CT7\B#MQUR5^^MY#ZH('7?:PJQYQS14/L!?S,S[$
500 M=,SD*[]#DH\>==UC;K@8LD)V*`B%(3?D\2<4>=Q-3[B5R#'#66>LM\%&FVRV
501 GQ5;;;+?#3KOLML=>4_;9[X"##CGLB*.F'7/<"2>=<CKL_06V`DD#
502 EOT
503
504 undef,
505 <<'EOT',
506 M>)RED-DVUG$`1;=:U*Y%0C)5O^^/SSS/F>>9#"$JE7D>"D6\3S=>Q^MPU^JF
507 M&^M<G[7//G1ROP1B1.130"%QBBBFA%+***>"2JJHIH9:ZJBG@4:::*:%M[32
508 M1CL==_TNNNFAES[Z&6"0(889890QQIE@DG=,,<T,L[QGCGD6^,`B2WSD$Y]9
509 MY@M?^<8*JZRQS@:;;+'-#KOLL<\!AQQQS'=^<,(I9_SD%^=<\)M+KN[X-U%:
510 M2`\9(2MDAWB(^,-U+/KKYYJ'_W_`!!_XT$23?.1C]8E/3?&9J2:;9KH9/O>%
511 MF;XTRVQSS#7/5[[VC<&8D?D66&C<(HLML=0RRZVPTBJ7K;;&6NNLM\%&FVRV
512 L):388:===MMCKP,..F2_(XXZYK#CMKGZS[YU-]QTRVUWW'7/?0]N`4(?0WT`
513 EOT
514
515 <<'EOT',
516 M>)RED,5.0U$415=(D.X!$"ANMX^VN+M#D>+N[H4"Q5W^APF_PZ\PY.9-"`-&
517 MY.3LG>-"#_\3@P^'8OP$"%)"*6644T$E55130RUUU--`(TTTTT(K;;3302==
518 M=-OZ7OH(T<\`@PP19I@11AECG`DFF6*:&6:98YX%%EEBF15666.=#3;98IL=
519 M=MECGP,.B7#$,5%...6,&.=<<,D5U]QPRQWW//#($\^\\,J;G?_II)ETXS79
520 M)L<$C<,['S[GYSY=?FWK6E>Z^?L'BK,:KP0E*DD>R?6E*-7E='DM9BA36<I6
521 MCG*5IWP5J%!%,O+)4;'\"BBH$I7:S')5J%)5JE:-M6JMUKM]FM1LL55M)EG=
522 GZE&O^A1R(V$-NSRF<8L3ZO3L_]KN4!$=Z5A1G>A49XKI_!M<9D8J
523 EOT
524
525 <<'EOT',
526 M>)RED,E3SW$8QU_77@<''+A]^Y5(2-F7+"%92\B^ES5ES]H,)L(8&21E*UNH
527 M&"8T8ZS3I(FS_T"$_`L^-^/D8)YY/^]Y/\L\"Y/Y/XN()T8"B0P@B8$,(IG!
528 MI#"$H0PCE>&DD<X(1C**T8QA+.,8SP0FDL&DT#^%J60RC>G,((N99#.+V<QA
529 M+O.83PZY+""/A2QB,?DL82G+6,X*5K**U:QA+>M8SP8**&0CF]C,%K:RC2*V
530 M4TP).]C)+G:SA[WLHY3]'.`@ASC,$<K"_,^QWE&?J&_4+^H?)44Q[M,<'_MS
531 M7USAOS[@48]YW')/>-(*3WG:,R%ZSDK/!K[@1<][R2HO6^T5:ZSUJM>\[@UO
532 M6F>]M[SM'>]ZSX90_\"'-MIDLX^">ASPQ*?!M_C,Y[ZP->KE*U_[QK>^\WW(
533 CM/O!ML"=?K3#3[Z,*_AKOR]V^=5O=OO='_ZTQU^_`2-%:*``
534 EOT
535
536 undef,
537 undef,
538 undef,
539 undef,
540 undef,
541 undef,
542 undef,
543 undef,
544 undef,
545 <<'EOT',
546 M>)REC]=.E&$`1(\%&W@4004%_7:!I?>.Z-+[TJL*=K"`BH`*J,_"+2'A!7PW
547 MX;\2[LG<3#*9G!F2G$V!&'$***2(!,644$H9Y5102175U%!+'?4TT$@3S;30
548 M2AN/:.<Q3Z)^!YUTT4T/O?31SP"###',""E&&6.<"2:98IH99IECG@6>\HSG
549 M+++$"U[RBM>\X2WO6&:%]WS@(Y]898W/?.$KZWQC@TVV^,X/?K+-#KO\XC=_
550 M(OX!?T/"`0<=<MB1$Q?R0KXIDB%NK?TVV&B3S:?RG)`;]?<\YWDO>-$T+WG9
551 M*U[UFNEF>%V]X4TSO666V=[VCG?-,==[WC?/?!_XT&#,N`466F3"8DLLM<QR
552 M*ZRTRFIK(GJ=]?_Y+;;:]N\HI(>LD&W2#COMLML>>^V+=IX\2<7BCCGNA)-.
553 0.>V,L\XY[P*'[!\#D^='L@``
554 EOT
555
556 undef,
557 undef,
558 undef,
559 undef,
560 undef,
561 undef,
562 undef,
563 undef,
564 undef,
565 );
566
567 $cp_1252 = (
568 <<'EOT',
569 M>)P-SD-B'5```,#YJ6VE>DEM&[\VD]JVF?H./4'-U+93V[9M:SV;$141(Y74
570 MTD@KG?0RR"B3S++(*IOL<L@IE]SRR"N?_`J(55`AA1515!`G7C'%E5!2*:65
571 M458YY550426555%5-=754%,MM=515SWU-=!05".--=%4,\VUT%(KK;715COM
572 M==!1)YTE2-1%5]UTUT-/O?361U_]]#?`0(,,-L10PPPWPDBCC#;&6..,-\%$
573 MDTPVQ5333)=DAIEFF6V.N>:%9-$0&YD?BH22(82XF)10.3(@U(DDB$;F_/]%
574 M0_Y0(!0*A4-\R!5RQ]R*BX\,#'4CB?]];B3)`@LMLM@22RVSW`HKK;):LC76
575 M6F>]#3;:9+,MMMIFNQUVVF6W/?;:9[\##CKDL"-2''7,<2><=,II9YQUSGD7
576 M7'3)95=<=<UU-]QTRVUWW'7/?0\\],AC3SSUS',OO/3*:V^\]<Y['WSTR6=?
577 1?/7-=S_\],MO?_S]!Y==>0@`
578 EOT
579 );
580 #'
581
582 @ms_langids = ( [""],
583     ['ar', ["-SA", "-IQ", "-EG", "-LY", "-DZ", "-MA", "-TN", 
584             "-OM", "-YE", "-SY", "-JO", "-LB", "-KW", "-AE",
585             "-BH", "-QA"]],
586     ['bg-BG'],
587     ['ca-ES'],
588     ['zh', ['-TW', 'CN', '-HK', '-SG', '-MO']],
589     ["cs-CZ"],
590     ["da-DK"],
591     ["de", ["-DE", "-CH", "-AT", "-LU", "-LI"]],
592     ["el-GR"],
593     ["en", ["-US", "-UK", "-AU", "-CA", "-NZ", "-IE", "-ZA",
594             "-JM", "029", "-BZ", "-TT", "-ZW", "-PH", "-ID",
595             "-HK", "-IN", "-MY", "-SG"]],
596     ["es", ["-ES", "-MX", "-ES", "-GT", "-CR", "-PA", "-DO",
597             "-VE", "-CO", "-PE", "-AR", "-EC", "-CL", "-UY",
598             "-PY", "-BO", "-SV", "-HN", "-NI", "-PR", "-US"]],
599     ["fi-FI"],
600     ["fr", ["-FR", "-BE", "-CA", "-CH", "-LU", "-MC", "",
601             "-RE", "-CG", "-SN", "-CM", "-CI", "-ML", "-MA",
602             "-HT"]],
603     ["he-IL"],
604     ["hu-HU"],
605     ["is-IS"],
606 # 0010
607     ["it", ["-IT", "-CH"]],
608     ["ja-JP"],
609     ["ko-KR"],
610     ["nl", ["-NL", "-BE"]],
611     ["no", ["-bok-NO", "-nyn-NO"]],
612     ["pl-PL"],
613     ["pt", ["-BR", "-PT"]],
614     ["rm-CH"],
615     ["ro", ["-RO", "_MD"]],
616     ["ru-RU"],
617     ["hr", ["-HR", "-Latn-CS", "Cyrl-CS", "-BA", "", "-Latn-BA", "-Cyrl-BA"]],
618     ["sk-SK"],
619     ["sq-AL"],
620     ["sv", ["-SE", "-FI"]],
621     ["th-TH"],
622     ["tr-TR"],
623 # 0020
624     ["ur", ["-PK", "tr-IN"]],
625     ["id-ID"],
626     ["uk-UA"],
627     ["be-BY"],
628     ["sl-SL"],
629     ["et-EE"],
630     ["lv-LV"],
631     ["lt-LT"],
632     ["tg-Cyrl-TJ"],
633     ["fa-IR"],
634     ["vi-VN"],
635     ["hy-AM"],
636     ["az", ["-Latn-AZ", "-Cyrl-AZ"]],
637     ["eu-ES"],
638     ["wen". ["wen-DE", "dsb-DE"]],
639     ["mk-MK"],
640 # 0030
641     ["st"],
642     ["ts"],
643     ["tn-ZA"],
644     ["ven"],
645     ["xh-ZA"],
646     ["zu-ZA"],
647     ["af-ZA"],
648     ["ka-GE"],
649     ["fo-FO"],
650     ["hi-IN"],
651     ["mt"],
652     ["se", ["-NO", "-SE", "-FI", "smj-NO", "smj-SE", "sma-NO", "sma-SE",
653             "", "smn-FI"]],
654     ["ga-IE"],
655     ["yi"],
656     ["ms", ["-MY", "-BN"]],
657     ["kk-KZ"],
658 # 0040
659     ["ky-KG"],
660     ["sw-KE"],
661     ["tk-TM"],
662     ["uz", ["-Latn-UZ", "-Cyrl-UZ"]],
663     ["tt-RU"],
664     ["bn", ["-IN", "-BD"]],
665     ["pa", ["-IN", "-Arab-PK"]],
666     ["gu-IN"],
667     ["or-IN"],
668     ["ta-IN"],
669     ["te-IN"],
670     ["kn-IN"],
671     ["ml-IN"],
672     ["as-IN"],
673     ["mr-IN"],
674     ["sa-IN"],
675 # 0050
676     ["mn", ["-Cyrl-MN", "-Mong-CN"]],
677     ["bo", ["-CN", "-BT"]],
678     ["cy-GB"],
679     ["km-KH"],
680     ["lo-LA"],
681     ["my"],
682     ["gl-ES"],
683     ["kok-IN"],
684     ["mni"],
685     ["sd", ["-IN", "-PK"]],
686     ["syr-SY"],
687     ["si-LK"],
688     ["chr"],
689     ["iu", ["-Cans-CA", "-Latn-CA"]],
690     ["am-ET"],
691     ["tmz", ["-Arab", "tmz-Latn-DZ"]],
692 # 0060
693     ["ks"],
694     ["ne", ["-NP", "-IN"]],
695     ["fy-NL"],
696     ["ps-AF"],
697     ["fil-PH"],
698     ["dv-MV"],
699     ["bin-NG"],
700     ["fuv-NG"], 
701     ["ha-Latn-NG"],
702     ["ibb-NG"],
703     ["yo-NG"],
704     ["quz", ["-BO", "-EC", "-PE"]],
705     ["ns-ZA"],
706     ["ba-RU"],
707     ["lb-LU"],
708     ["kl-GL"],
709 # 0070
710     ["ig-NG"],
711     ["kau"],
712     ["om"],
713     ["ti", ["-ET". "-ER"]],
714     ["gn"],
715     ["haw"],
716     ["la"],
717     ["so"],
718     ["ii-CN"],
719     ["pap"],
720     ["arn-CL"],
721     [""],           # (unassigned)
722     ["moh-CA"],
723     [""],           # (unassigned)
724     ["br-FR"],
725     [""],           # (unassigned)
726 # 0080
727     ["ug-CN"],
728     [""],           # (unassigned)
729     ["oc-FR"],
730     ["gsw-FR"],
731     [""],           # (unassigned)
732     ["sah-RU"],
733     ["qut-GT"],
734     ["rw-RW"],
735     ["wo-SN"],
736     [""],           # (unassigned)
737     [""],           # (unassigned)
738     [""],           # (unassigned)
739     ["gbz-AF"],
740 );
741
742 @mac_langs = (
743     'en', 'fr', 'de', 'it', 'nl', 'sv', 'es', 'da', 'pt', 'no',
744     'he', 'ja', 'ar', 'fi', 'el', 'is', 'mt', 'tr', 'hr', 'zh-Hant',
745     'ur', 'hi', 'th', 'ko', 'lt', 'pl', 'hu', 'et', 'lv', 'se',
746     'fo', 'ru' ,'zh-Hans', 'nl', 'ga', 'sq', 'ro', 'cs', 'sk',
747     'sl', 'yi', 'sr', 'mk', 'bg', 'uk', 'be', 'uz', 'kk', 'az-Cyrl',
748     'az-Latn', 'hy', 'ka', 'mo', 'ky', 'abh', 'tuk', 'mn-Mong', 'mn-Cyrl', 'pst',
749     'ku', 'ks', 'sd', 'bo', 'ne', 'sa', 'mr', 'bn', 'as', 'gu',
750     'pa', 'or', 'ml', 'kn', 'ta', 'te', 'si', 'my', 'km', 'lo',
751     'vi', 'id', 'tl', 'ms-Latn', 'ms-Arab', 'am', 'ti', 'tga', 'so', 'sw',
752     'rw', 'rn', 'ny', 'mg', 'eo', '', '', '', '', '',
753     '', '', '', '', '', '', '', '', '', '',
754     '', '', '', '', '', '', '', '', '', '',
755     '', '', '', '', '', '', '', '', 'cy', 'eu',
756     'la', 'qu', 'gn', 'ay', 'tt', 'ug', 'dz', 'jv-Latn', 'su-Latn',
757     'gl', 'af', 'br', 'iu', 'gd', 'gv', 'gd-IR-x-dotabove', 'to', 'el-polyton', 'kl',
758     'az-Latn'
759 );
760
761 }
762
763 1;
764
765 =head1 BUGS
766
767 =over 4
768
769 =item *
770
771 Unicode type strings will be stored in utf8 for all known platforms,
772 once Perl 5.6 has been released and I can find all the mapping tables, etc.
773
774 =back
775
776 =head1 AUTHOR
777
778 Martin Hosken Martin_Hosken@sil.org. See L<Font::TTF::Font> for copyright and
779 licensing.
780
781 =cut
782