--- /dev/null
+package Font::TTF::Name;
+
+=head1 NAME
+
+Font::TTF::Name - String table for a TTF font
+
+=head1 DESCRIPTION
+
+Strings are held by number, platform, encoding and language. Strings are
+accessed as:
+
+ $f->{'name'}{'strings'}[$number][$platform_id][$encoding_id]{$language_id}
+
+Notice that the language is held in an associative array due to its sparse
+nature on some platforms such as Microsoft ($pid = 3). Notice also that the
+array order is different from the stored array order (platform, encoding,
+language, number) to allow for easy manipulation of strings by number (which is
+what I guess most people will want to do).
+
+By default, C<$Font::TTF::Name::utf8> is set to 1, and strings will be stored as UTF8 wherever
+possible. The method C<is_utf8> can be used to find out if a string in a particular
+platform and encoding will be returned as UTF8. Unicode strings are always
+converted if utf8 is requested. Otherwise, strings are stored according to platform:
+
+You now have to set <$Font::TTF::Name::utf8> to 0 to get the old behaviour.
+
+=over 4
+
+=item Apple Unicode (platform id = 0)
+
+Data is stored as network ordered UCS2. There is no encoding id for this platform
+but there are language ids as per Mac language ids.
+
+=item Mac (platform id = 1)
+
+Data is stored as 8-bit binary data, leaving the interpretation to the user
+according to encoding id.
+
+=item Unicode (platform id = 2)
+
+Currently stored as 16-bit network ordered UCS2. Upon release of Perl 5.005 this
+will change to utf8 assuming current UCS2 semantics for all encoding ids.
+
+=item Windows (platform id = 3)
+
+As per Unicode, the data is currently stored as 16-bit network ordered UCS2. Upon
+release of Perl 5.005 this will change to utf8 assuming current UCS2 semantics for
+all encoding ids.
+
+=back
+
+=head1 INSTANCE VARIABLES
+
+=over 4
+
+=item strings
+
+An array of arrays, etc.
+
+=back
+
+=head1 METHODS
+
+=cut
+
+use strict;
+use vars qw(@ISA $VERSION @apple_encs @apple_encodings $utf8 $cp_1252 @cp_1252 %win_langs %langs_win %langs_mac @ms_langids @mac_langs);
+use Font::TTF::Table;
+use Font::TTF::Utils;
+@ISA = qw(Font::TTF::Table);
+
+$utf8 = 1;
+
+{
+ my ($count, $i);
+ eval {require Compress::Zlib;};
+ unless ($@)
+ {
+ for ($i = 0; $i <= $#apple_encs; $i++)
+ {
+ $apple_encodings[0][$i] = [unpack("n*", Compress::Zlib::uncompress(unpack("u", $apple_encs[$i])))]
+ if (defined $apple_encs[$i]);
+ foreach (0 .. 127)
+ { $apple_encodings[0][$i][$_] = $_; }
+ $count = 0;
+ $apple_encodings[1][$i] = {map {$_ => $count++} @{$apple_encodings[0][$i]}};
+ }
+ $cp_1252[0] = [unpack("n*", Compress::Zlib::uncompress(unpack("u", $cp_1252)))];
+ $count = 0;
+ $cp_1252[1] = {map({$_ => $count++} @{$cp_1252[0]})};
+ }
+ for ($i = 0; $i < $#ms_langids; $i++)
+ {
+ if (defined $ms_langids[$i][1])
+ {
+ my ($j);
+ for ($j = 0; $j < $#{$ms_langids[$i][1]}; $j++)
+ {
+ my ($v) = $ms_langids[$i][1][$j];
+ if ($v =~ m/^-/o)
+ { $win_langs{(($j + 1) << 10) + $i} = $ms_langids[$i][0] . $v; }
+ else
+ { $win_langs{(($j + 1) << 10) + $i} = $v; }
+ }
+ }
+ else
+ { $win_langs{$i + 0x400} = $ms_langids[$i][0]; }
+ }
+ %langs_win = map {my ($t) = $win_langs{$_}; my (@res) = ($t => $_); push (@res, $t => $_) if ($t =~ s/-.*$//o && ($_ & 0xFC00) == 0x400); @res} keys %win_langs;
+ $i = 0;
+ %langs_mac = map {$_ => $i++} @mac_langs;
+}
+
+
+$VERSION = 1.1; # MJPH 17-JUN-2000 Add utf8 support
+# $VERSION = 1.001; # MJPH 10-AUG-1998 Put $number first in list
+
+=head2 $t->read
+
+Reads all the names into memory
+
+=cut
+
+sub read
+{
+ my ($self) = @_;
+ my ($fh) = $self->{' INFILE'};
+ my ($dat, $num, $stroff, $i, $pid, $eid, $lid, $nid, $len, $off, $here);
+
+ $self->SUPER::read or return $self;
+ $fh->read($dat, 6);
+ ($num, $stroff) = unpack("x2nn", $dat);
+ for ($i = 0; $i < $num; $i++)
+ {
+ use bytes; # hack to fix bugs in 5.8.7
+ read($fh, $dat, 12);
+ ($pid, $eid, $lid, $nid, $len, $off) = unpack("n6", $dat);
+ $here = $fh->tell();
+ $fh->seek($self->{' OFFSET'} + $stroff + $off, 0);
+ $fh->read($dat, $len);
+ if ($utf8)
+ {
+ if ($pid == 1 && defined $apple_encodings[0][$eid])
+ { $dat = TTF_word_utf8(pack("n*", map({$apple_encodings[0][$eid][$_]} unpack("C*", $dat)))); }
+ elsif ($pid == 2 && $eid == 2 && @cp_1252)
+ { $dat = TTF_word_utf8(pack("n*", map({$cp_1252[0][$_]} unpack("C*", $dat)))); }
+ elsif ($pid == 0 || $pid == 3 || ($pid == 2 && $eid == 1))
+ { $dat = TTF_word_utf8($dat); }
+ }
+ $self->{'strings'}[$nid][$pid][$eid]{$lid} = $dat;
+ $fh->seek($here, 0);
+ }
+ $self;
+}
+
+
+=head2 $t->out($fh)
+
+Writes out all the strings
+
+=cut
+
+sub out
+{
+ my ($self, $fh) = @_;
+ my ($pid, $eid, $lid, $nid, $todo, @todo);
+ my ($len, $offset, $loc, $stroff, $endloc, $str_trans);
+
+ return $self->SUPER::out($fh) unless $self->{' read'};
+
+ $loc = $fh->tell();
+ $fh->print(pack("n3", 0, 0, 0));
+ foreach $nid (0 .. $#{$self->{'strings'}})
+ {
+ foreach $pid (0 .. $#{$self->{'strings'}[$nid]})
+ {
+ foreach $eid (0 .. $#{$self->{'strings'}[$nid][$pid]})
+ {
+ foreach $lid (sort keys %{$self->{'strings'}[$nid][$pid][$eid]})
+ {
+ $str_trans = $self->{'strings'}[$nid][$pid][$eid]{$lid};
+ if ($utf8)
+ {
+ if ($pid == 1 && defined $apple_encodings[1][$eid])
+ { $str_trans = pack("C*",
+ map({$apple_encodings[1][$eid]{$_} || 0x3F} unpack("n*",
+ TTF_utf8_word($str_trans)))); }
+ elsif ($pid == 2 && $eid == 2 && @cp_1252)
+ { $str_trans = pack("C*",
+ map({$cp_1252[1][$eid]{$_} || 0x3F} unpack("n*",
+ TTF_utf8_word($str_trans)))); }
+ elsif ($pid == 2 && $eid == 0)
+ { $str_trans =~ s/[\xc0-\xff][\x80-\xbf]+/?/og; }
+ elsif ($pid == 0 || $pid == 3 || ($pid == 2 && $eid == 1))
+ { $str_trans = TTF_utf8_word($str_trans); }
+ }
+ push (@todo, [$pid, $eid, $lid, $nid, $str_trans]);
+ }
+ }
+ }
+ }
+
+ $offset = 0;
+ @todo = (sort {$a->[0] <=> $b->[0] || $a->[1] <=> $b->[1] || $a->[2] <=> $b->[2]
+ || $a->[3] <=> $b->[3]} @todo);
+ foreach $todo (@todo)
+ {
+ $len = length($todo->[4]);
+ $fh->print(pack("n6", @{$todo}[0..3], $len, $offset));
+ $offset += $len;
+ }
+
+ $stroff = $fh->tell() - $loc;
+ foreach $todo (@todo)
+ { $fh->print($todo->[4]); }
+
+ $endloc = $fh->tell();
+ $fh->seek($loc, 0);
+ $fh->print(pack("n3", 0, $#todo + 1, $stroff));
+ $fh->seek($endloc, 0);
+ $self;
+}
+
+
+=head2 $t->XML_element($context, $depth, $key, $value)
+
+Outputs the string element in nice XML (which is all the table really!)
+
+=cut
+
+sub XML_element
+{
+ my ($self) = shift;
+ my ($context, $depth, $key, $value) = @_;
+ my ($fh) = $context->{'fh'};
+ my ($nid, $pid, $eid, $lid);
+
+ return $self->SUPER::XML_element(@_) unless ($key eq 'strings');
+
+ foreach $nid (0 .. $#{$self->{'strings'}})
+ {
+ next unless ref($self->{'strings'}[$nid]);
+# $fh->print("$depth<strings id='$nid'>\n");
+ foreach $pid (0 .. $#{$self->{'strings'}[$nid]})
+ {
+ foreach $eid (0 .. $#{$self->{'strings'}[$nid][$pid]})
+ {
+ foreach $lid (sort {$a <=> $b} keys %{$self->{'strings'}[$nid][$pid][$eid]})
+ {
+ my ($lang) = $self->get_lang($pid, $lid) || $lid;
+ $fh->printf("%s<string id='%s' platform='%s' encoding='%s' language='%s'>\n%s%s%s\n%s</string>\n",
+ $depth, $nid, $pid, $eid, $lang, $depth,
+ $context->{'indent'}, $self->{'strings'}[$nid][$pid][$eid]{$lid}, $depth);
+ }
+ }
+ }
+# $fh->print("$depth</strings>\n");
+ }
+ $self;
+}
+
+
+=head2 $t->XML_end($context, $tag, %attrs)
+
+Store strings in the right place
+
+=cut
+
+sub XML_end
+{
+ my ($self) = shift;
+ my ($context, $tag, %attrs) = @_;
+
+ if ($tag eq 'string')
+ {
+ my ($lid) = $self->find_name($attrs{'platform'}, $attrs{'language'}) || $attrs{'language'};
+ $self->{'strings'}[$attrs{'id'}][$attrs{'platform'}][$attrs{'encoding'}]{$lid}
+ = $context->{'text'};
+ return $context;
+ }
+ else
+ { return $self->SUPER::XML_end(@_); }
+}
+
+=head2 is_utf8($pid, $eid)
+
+Returns whether a string of a given platform and encoding is going to be in UTF8
+
+=cut
+
+sub is_utf8
+{
+ my ($self, $pid, $eid) = @_;
+
+ return ($utf8 && ($pid == 0 || $pid == 3 || ($pid == 2 && ($eid != 2 || @cp_1252))
+ || ($pid == 1 && defined $apple_encodings[$eid])));
+}
+
+
+=head2 find_name($nid)
+
+Hunts down a name in all the standard places and returns the string and for an
+array context the pid, eid & lid as well
+
+=cut
+
+sub find_name
+{
+ my ($self, $nid) = @_;
+ my ($res, $pid, $eid, $lid, $look, $k);
+
+ my (@lookup) = ([3, 1, 1033], [3, 1, -1], [3, 0, 1033], [3, 0, -1], [2, 1, -1], [2, 2, -1], [2, 0, -1],
+ [0, 0, 0], [1, 0, 0]);
+ foreach $look (@lookup)
+ {
+ ($pid, $eid, $lid) = @$look;
+ if ($lid == -1)
+ {
+ foreach $k (keys %{$self->{'strings'}[$nid][$pid][$eid]})
+ {
+ if (($res = $self->{strings}[$nid][$pid][$eid]{$k}) ne '')
+ {
+ $lid = $k;
+ last;
+ }
+ }
+ } else
+ { $res = $self->{strings}[$nid][$pid][$eid]{$lid} }
+ if ($res ne '')
+ { return wantarray ? ($res, $pid, $eid, $lid) : $res; }
+ }
+ return '';
+}
+
+
+=head2 set_name($nid, $str[, $lang[, @cover]])
+
+Sets the given name id string to $str for all platforms and encodings that
+this module can handle. If $lang is set, it is interpretted as a language
+tag and if the particular language of a string is found to match, then
+that string is changed, otherwise no change occurs.
+
+If supplied, @cover should be a list of references to two-element arrays
+containing pid,eid pairs that should added to the name table if not already present.
+
+This function does not add any names to the table unless @cover is supplied.
+
+=cut
+
+sub set_name
+{
+ my ($self, $nid, $str, $lang, @cover) = @_;
+ my ($pid, $eid, $lid, $c);
+
+ foreach $pid (0 .. $#{$self->{'strings'}[$nid]})
+ {
+ my $strNL = $str;
+ $strNL =~ s/\n/\r\n/og if $pid == 3;
+ $strNL =~ s/\n/\r/og if $pid == 1;
+ foreach $eid (0 .. $#{$self->{'strings'}[$nid][$pid]})
+ {
+ foreach $lid (keys %{$self->{'strings'}[$nid][$pid][$eid]})
+ {
+ next unless (!defined $lang || $self->match_lang($pid, $lid, $lang));
+ $self->{'strings'}[$nid][$pid][$eid]{$lid} = $strNL;
+ foreach $c (0 .. scalar @cover)
+ {
+ next unless ($cover[$c][0] == $pid && $cover[$c][1] == $eid);
+ delete $cover[$c];
+ last;
+ }
+ }
+ }
+ }
+ foreach $c (@cover)
+ {
+ my ($pid, $eid) = @{$c};
+ my ($lid) = $self->find_lang($pid, $lang);
+ my $strNL = $str;
+ $strNL =~ s/\n/\r\n/og if $pid == 3;
+ $strNL =~ s/\n/\r/og if $pid == 1;
+ $self->{'strings'}[$nid][$pid][$eid]{$lid} = $strNL;
+ }
+ return $self;
+}
+
+=head2 Font::TTF::Name->match_lang($pid, $lid, $lang)
+
+Compares the language associated to the string of given platform and language
+with the given language tag. If the language matches the tag (i.e. is equal
+or more defined than the given language tag) returns true. This is calculated
+by finding whether the associated language tag starts with the given language
+tag.
+
+=cut
+
+sub match_lang
+{
+ my ($self, $pid, $lid, $lang) = @_;
+ my ($langid) = $self->get_lang($pid, $lid);
+
+ return ($lid == $lang) if ($lang != 0 || $lang eq '0');
+ return !index(lc($langid), lc($lang));
+}
+
+=head2 Font::TTF::Name->get_lang($pid, $lid)
+
+Returns the language tag associated with a particular platform and language id
+
+=cut
+
+sub get_lang
+{
+ my ($self, $pid, $lid) = @_;
+
+ if ($pid == 3)
+ { return $win_langs{$lid}; }
+ elsif ($pid == 1)
+ { return $mac_langs[$lid]; }
+ return '';
+}
+
+
+=head2 Font::TTF::Name->find_lang($pid, $lang)
+
+Looks up the language name and returns a lang id if one exists
+
+=cut
+
+sub find_lang
+{
+ my ($self, $pid, $lang) = @_;
+
+ if ($pid == 3)
+ { return $langs_win{$lang}; }
+ elsif ($pid == 1)
+ { return $langs_mac{$lang}; }
+ return undef;
+}
+
+
+BEGIN {
+@apple_encs = (
+<<'EOT',
+M>)RES==NCW$`@.'G_S5Q*L(!#?+K1VO4:.W6IJA-:\^BM?>L>1&NP(A0Q$BL
+M<*!62ZV8Z1)[K]BE$MR#O,=/7OW]7T&*6"NMI4K31EOMM)>N@XXZZ2Q#IBZZ
+MZJ:['GKJ)4NVWOKHJ]\_/\!`@PR68XBAALDUW`@CC3+:&&.-,UZ>?!-,-,ED
+M4TPUS70SS#3+;`7FF&N>0D7F6V"A119;8JEEEEMAI5566V.M==;;H-A&FVRV
+MQ5;;_OTONJ3<%;?<5^NQ1YYXYJGG7GKME3?>>N^=#S[ZY(O/OOKNFU]^JO<[
+M!$?LLMO>$#OAH4-*4F+'[(L+E*F,6SH:%\9%]C@>1W&CN&%2:9QNO]-))5ZH
+M<]9.!^/DQ/8X-V[@@#,AS0ZE+KB7R$ODA\:A26@>6H2FH9D?J17^)(I#3C@8
+MLD)V?:(^"BE.AN30,F0XK\(Y5UUVW0TW77/'W;H_;JM6HRJ1&95%M0Y'E5%5
+.5.U4]""JB<K_`B>`?E$`
+EOT
+
+undef,
+undef,
+undef,
+<<'EOT',
+M>)RES[=/%```1O$WO8G_@$'J';W70Z2WHS>5WJN%8D6%D;BZ,3*P,;#C2D(8
+M,9&)08V)+4*(1((X2'(#[.:;7[[\*./_%D,L<<230"(!@B213`JII)%.!IED
+MD4T.N>213P&%%%%,B!)N4LJMR[Z<"BJIHIH::JFCG@;"--)$,RVTTD8['732
+M13>WN<-=>NBECWX&&&2(848898QQ)IADBFEFF.4>]WG`0^:89X%%'O&8)SSE
+M&<]9X@4O><4R*Y?_.ZRSRQ[[''#(1S[PB<]NL\D7OO&5[_S@9TR`(XXYX1=O
+M.>4W9_SAG`O^7OF=O>XW*N)WV!%''7/<"2>=<MH90D9'_-X(AHTUSG@33#1@
+MT"2333'5--/-,-,LL\TQUSSS+;#0(HL-7?DMM\)*JZRVQEKKK+?!L(TVV6R+
+9K;;9;H<K+KGJ>S?<\K5O(G[7?/</+>Y>'```
+EOT
+
+<<'EOT',
+M>)RED$LSEW$`A9_-^00L,H-^(=>4Y%^2J'1Q*Y+[I2(BHA`B?!%J6EM1*28S
+M;9II[/PI*7*_%TUN\_*VZ%W:FN9LSYEGGD,\_Q?#$?SP)X"C!!)$,"&$$L8Q
+MPCG."2(X222GB,+%:<X0S5EB.$<LYXES]A>XR"42N,P5KG*-1))()H54KG.#
+M--*Y20:WR"2+;'+()8]\"BBDB-O<X2[%E'"/4LJX3SD5/*"2*AY230V/>$PM
+M==3SA`8::>(IS;3PC%;::'?X'^W#?&(0-Z-,,,,TL\PSQP)+K+#,*C]9XQ?K
+M_.8/FVRPQ0[;[+&+S=_]_J;KX/Y6I?&U.JQ.Z[GU0@-VBNTR@;Q4G]ZI5V_U
+MQG@83^-M?,PAXV6'VF'ZH&Z]4H_>J]]IO=:0W!K6B#[KBT;U56/ZIN\:UX1^
+?:%)3FM:,9C6G>2UH44M:UHI6'?<BYX,"6O\!%-%\5```
+EOT
+
+<<'EOT',
+M>)RES5=OSG$`0.$CYR.(A(3DUS]J4WOO59O6;&F+UMY[7R&(V'N^4ETZ=*"J
+M:M:H=>E*0D1B)7HC1KC0[R#G^LEA,/]7((Z(EK2B-?&TH2WM:$\'.M*)SG0A
+M@:YTHSL]Z$DO>M.'OO2C/P,8R*`&/X2A#&,X(QC)*$:3R!C&,H[Q3&`BDYC,
+M%))(9BK3F,X,9C*+%%*9S1S22">#N<QC/IEDL8"%+&(Q2UC*,I:S@I6L8C5K
+M6,LZUK.!C6QB,UO8RC:VLZ/A7TL5Y=11P6O>N(MWO.>#.\GG(Y_YQ!>^DAT7
+M\8WZ$%$3$OC.#W(IYC=_^!N"1SWF*<]ZP1AO*:'`;*^0%V502J6'*8LRHRQR
+M/.)Q3WC2TY[QG+D6FF^!19ZGR(M>BA*]3"'5(9Z8.>:YVSV-DD/CT"0T#RU"
+MT]",G^YUG_L]8+$E7O6%!WUIF>4^]9K7?6R%E59YQUM6>]L:[WK/5][WH;7>
+4M,X'/O&1-WSF<P]9^BOV#YW%>_\`
+EOT
+
+<<'EOT',
+M>)RERT=.%5``0-&+7K'&!B(@X/L/^/3>ZZ?SZ=*K@`KVWOL:U!68.#!&8G2@
+M$Q?F5/=@SOB0XO\$$D2**:&4)&644T$E55130RUUU--`(TTTTT(K;;3302==
+M=--#[[_?1S\###+$,".,DF:,<2:89(II9KC`+'/,L\`B2RRSPBIKK+/!13;9
+M8IM+7.8*.^QRE6M<YP8WN<5M[G"7>]SG`0]YQ&.>\)1G/.<%+WG%:][PEI0G
+M/>5IL\SVC#F>-=<\\SUG@846>=Y@PFBQ)9::M,QR*ZRTRFIKK+4N!+[[CD]\
+M#I%?9O*-+XGH/N?BMON=CT7\B#MQUR5^^MY#ZH('7?:PJQYQS14/L!?S,S[$
+M=,SD*[]#DH\>==UC;K@8LD)V*`B%(3?D\2<4>=Q-3[B5R#'#66>LM\%&FVRV
+GQ5;;;+?#3KOLML=>4_;9[X"##CGLB*.F'7/<"2>=<CKL_06V`DD#
+EOT
+
+undef,
+<<'EOT',
+M>)RED-DVUG$`1;=:U*Y%0C)5O^^/SSS/F>>9#"$JE7D>"D6\3S=>Q^MPU^JF
+M&^M<G[7//G1ROP1B1.130"%QBBBFA%+***>"2JJHIH9:ZJBG@4:::*:%M[32
+M1CL==_TNNNFAES[Z&6"0(889890QQIE@DG=,,<T,L[QGCGD6^,`B2WSD$Y]9
+MY@M?^<8*JZRQS@:;;+'-#KOLL<\!AQQQS'=^<,(I9_SD%^=<\)M+KN[X-U%:
+M2`\9(2MDAWB(^,-U+/KKYYJ'_W_`!!_XT$23?.1C]8E/3?&9J2:;9KH9/O>%
+MF;XTRVQSS#7/5[[VC<&8D?D66&C<(HLML=0RRZVPTBJ7K;;&6NNLM\%&FVRV
+L):388:===MMCKP,..F2_(XXZYK#CMKGZS[YU-]QTRVUWW'7/?0]N`4(?0WT`
+EOT
+
+<<'EOT',
+M>)RED,5.0U$415=(D.X!$"ANMX^VN+M#D>+N[H4"Q5W^APF_PZ\PY.9-"`-&
+MY.3LG>-"#_\3@P^'8OP$"%)"*6644T$E55130RUUU--`(TTTTT(K;;3302==
+M=-OZ7OH(T<\`@PP19I@11AECG`DFF6*:&6:98YX%%EEBF15666.=#3;98IL=
+M=MECGP,.B7#$,5%...6,&.=<<,D5U]QPRQWW//#($\^\\,J;G?_II)ETXS79
+M)L<$C<,['S[GYSY=?FWK6E>Z^?L'BK,:KP0E*DD>R?6E*-7E='DM9BA36<I6
+MCG*5IWP5J%!%,O+)4;'\"BBH$I7:S')5J%)5JE:-M6JMUKM]FM1LL55M)EG=
+GZE&O^A1R(V$-NSRF<8L3ZO3L_]KN4!$=Z5A1G>A49XKI_!M<9D8J
+EOT
+
+<<'EOT',
+M>)RED,E3SW$8QU_77@<''+A]^Y5(2-F7+"%92\B^ES5ES]H,)L(8&21E*UNH
+M&"8T8ZS3I(FS_T"$_`L^-^/D8)YY/^]Y/\L\"Y/Y/XN()T8"B0P@B8$,(IG!
+MI#"$H0PCE>&DD<X(1C**T8QA+.,8SP0FDL&DT#^%J60RC>G,((N99#.+V<QA
+M+O.83PZY+""/A2QB,?DL82G+6,X*5K**U:QA+>M8SP8**&0CF]C,%K:RC2*V
+M4TP).]C)+G:SA[WLHY3]'.`@ASC,$<K"_,^QWE&?J&_4+^H?)44Q[M,<'_MS
+M7USAOS[@48]YW')/>-(*3WG:,R%ZSDK/!K[@1<][R2HO6^T5:ZSUJM>\[@UO
+M6F>]M[SM'>]ZSX90_\"'-MIDLX^">ASPQ*?!M_C,Y[ZP->KE*U_[QK>^\WW(
+CM/O!ML"=?K3#3[Z,*_AKOR]V^=5O=OO='_ZTQU^_`2-%:*``
+EOT
+
+undef,
+undef,
+undef,
+undef,
+undef,
+undef,
+undef,
+undef,
+undef,
+<<'EOT',
+M>)REC]=.E&$`1(\%&W@4004%_7:!I?>.Z-+[TJL*=K"`BH`*J,_"+2'A!7PW
+MX;\2[LG<3#*9G!F2G$V!&'$***2(!,644$H9Y5102175U%!+'?4TT$@3S;30
+M2AN/:.<Q3Z)^!YUTT4T/O?31SP"###',""E&&6.<"2:98IH99IECG@6>\HSG
+M+++$"U[RBM>\X2WO6&:%]WS@(Y]898W/?.$KZWQC@TVV^,X/?K+-#KO\XC=_
+M(OX!?T/"`0<=<MB1$Q?R0KXIDB%NK?TVV&B3S:?RG)`;]?<\YWDO>-$T+WG9
+M*U[UFNEF>%V]X4TSO666V=[VCG?-,==[WC?/?!_XT&#,N`466F3"8DLLM<QR
+M*ZRTRFIK(GJ=]?_Y+;;:]N\HI(>LD&W2#COMLML>>^V+=IX\2<7BCCGNA)-.
+0.>V,L\XY[P*'[!\#D^='L@``
+EOT
+
+undef,
+undef,
+undef,
+undef,
+undef,
+undef,
+undef,
+undef,
+undef,
+);
+
+$cp_1252 = (
+<<'EOT',
+M>)P-SD-B'5```,#YJ6VE>DEM&[\VD]JVF?H./4'-U+93V[9M:SV;$141(Y74
+MTD@KG?0RR"B3S++(*IOL<L@IE]SRR"N?_`J(55`AA1515!`G7C'%E5!2*:65
+M458YY550426555%5-=754%,MM=515SWU-=!05".--=%4,\VUT%(KK;715COM
+M==!1)YTE2-1%5]UTUT-/O?361U_]]#?`0(,,-L10PPPWPDBCC#;&6..,-\%$
+MDTPVQ5333)=DAIEFF6V.N>:%9-$0&YD?BH22(82XF)10.3(@U(DDB$;F_/]%
+M0_Y0(!0*A4-\R!5RQ]R*BX\,#'4CB?]];B3)`@LMLM@22RVSW`HKK;):LC76
+M6F>]#3;:9+,MMMIFNQUVVF6W/?;:9[\##CKDL"-2''7,<2><=,II9YQUSGD7
+M7'3)95=<=<UU-]QTRVUWW'7/?0\\],AC3SSUS',OO/3*:V^\]<Y['WSTR6=?
+1?/7-=S_\],MO?_S]!Y==>0@`
+EOT
+);
+#'
+
+@ms_langids = ( [""],
+ ['ar', ["-SA", "-IQ", "-EG", "-LY", "-DZ", "-MA", "-TN",
+ "-OM", "-YE", "-SY", "-JO", "-LB", "-KW", "-AE",
+ "-BH", "-QA"]],
+ ['bg-BG'],
+ ['ca-ES'],
+ ['zh', ['-TW', 'CN', '-HK', '-SG', '-MO']],
+ ["cs-CZ"],
+ ["da-DK"],
+ ["de", ["-DE", "-CH", "-AT", "-LU", "-LI"]],
+ ["el-GR"],
+ ["en", ["-US", "-UK", "-AU", "-CA", "-NZ", "-IE", "-ZA",
+ "-JM", "029", "-BZ", "-TT", "-ZW", "-PH", "-ID",
+ "-HK", "-IN", "-MY", "-SG"]],
+ ["es", ["-ES", "-MX", "-ES", "-GT", "-CR", "-PA", "-DO",
+ "-VE", "-CO", "-PE", "-AR", "-EC", "-CL", "-UY",
+ "-PY", "-BO", "-SV", "-HN", "-NI", "-PR", "-US"]],
+ ["fi-FI"],
+ ["fr", ["-FR", "-BE", "-CA", "-CH", "-LU", "-MC", "",
+ "-RE", "-CG", "-SN", "-CM", "-CI", "-ML", "-MA",
+ "-HT"]],
+ ["he-IL"],
+ ["hu-HU"],
+ ["is-IS"],
+# 0010
+ ["it", ["-IT", "-CH"]],
+ ["ja-JP"],
+ ["ko-KR"],
+ ["nl", ["-NL", "-BE"]],
+ ["no", ["-bok-NO", "-nyn-NO"]],
+ ["pl-PL"],
+ ["pt", ["-BR", "-PT"]],
+ ["rm-CH"],
+ ["ro", ["-RO", "_MD"]],
+ ["ru-RU"],
+ ["hr", ["-HR", "-Latn-CS", "Cyrl-CS", "-BA", "", "-Latn-BA", "-Cyrl-BA"]],
+ ["sk-SK"],
+ ["sq-AL"],
+ ["sv", ["-SE", "-FI"]],
+ ["th-TH"],
+ ["tr-TR"],
+# 0020
+ ["ur", ["-PK", "tr-IN"]],
+ ["id-ID"],
+ ["uk-UA"],
+ ["be-BY"],
+ ["sl-SL"],
+ ["et-EE"],
+ ["lv-LV"],
+ ["lt-LT"],
+ ["tg-Cyrl-TJ"],
+ ["fa-IR"],
+ ["vi-VN"],
+ ["hy-AM"],
+ ["az", ["-Latn-AZ", "-Cyrl-AZ"]],
+ ["eu-ES"],
+ ["wen". ["wen-DE", "dsb-DE"]],
+ ["mk-MK"],
+# 0030
+ ["st"],
+ ["ts"],
+ ["tn-ZA"],
+ ["ven"],
+ ["xh-ZA"],
+ ["zu-ZA"],
+ ["af-ZA"],
+ ["ka-GE"],
+ ["fo-FO"],
+ ["hi-IN"],
+ ["mt"],
+ ["se", ["-NO", "-SE", "-FI", "smj-NO", "smj-SE", "sma-NO", "sma-SE",
+ "", "smn-FI"]],
+ ["ga-IE"],
+ ["yi"],
+ ["ms", ["-MY", "-BN"]],
+ ["kk-KZ"],
+# 0040
+ ["ky-KG"],
+ ["sw-KE"],
+ ["tk-TM"],
+ ["uz", ["-Latn-UZ", "-Cyrl-UZ"]],
+ ["tt-RU"],
+ ["bn", ["-IN", "-BD"]],
+ ["pa", ["-IN", "-Arab-PK"]],
+ ["gu-IN"],
+ ["or-IN"],
+ ["ta-IN"],
+ ["te-IN"],
+ ["kn-IN"],
+ ["ml-IN"],
+ ["as-IN"],
+ ["mr-IN"],
+ ["sa-IN"],
+# 0050
+ ["mn", ["-Cyrl-MN", "-Mong-CN"]],
+ ["bo", ["-CN", "-BT"]],
+ ["cy-GB"],
+ ["km-KH"],
+ ["lo-LA"],
+ ["my"],
+ ["gl-ES"],
+ ["kok-IN"],
+ ["mni"],
+ ["sd", ["-IN", "-PK"]],
+ ["syr-SY"],
+ ["si-LK"],
+ ["chr"],
+ ["iu", ["-Cans-CA", "-Latn-CA"]],
+ ["am-ET"],
+ ["tmz", ["-Arab", "tmz-Latn-DZ"]],
+# 0060
+ ["ks"],
+ ["ne", ["-NP", "-IN"]],
+ ["fy-NL"],
+ ["ps-AF"],
+ ["fil-PH"],
+ ["dv-MV"],
+ ["bin-NG"],
+ ["fuv-NG"],
+ ["ha-Latn-NG"],
+ ["ibb-NG"],
+ ["yo-NG"],
+ ["quz", ["-BO", "-EC", "-PE"]],
+ ["ns-ZA"],
+ ["ba-RU"],
+ ["lb-LU"],
+ ["kl-GL"],
+# 0070
+ ["ig-NG"],
+ ["kau"],
+ ["om"],
+ ["ti", ["-ET". "-ER"]],
+ ["gn"],
+ ["haw"],
+ ["la"],
+ ["so"],
+ ["ii-CN"],
+ ["pap"],
+ ["arn-CL"],
+ [""], # (unassigned)
+ ["moh-CA"],
+ [""], # (unassigned)
+ ["br-FR"],
+ [""], # (unassigned)
+# 0080
+ ["ug-CN"],
+ [""], # (unassigned)
+ ["oc-FR"],
+ ["gsw-FR"],
+ [""], # (unassigned)
+ ["sah-RU"],
+ ["qut-GT"],
+ ["rw-RW"],
+ ["wo-SN"],
+ [""], # (unassigned)
+ [""], # (unassigned)
+ [""], # (unassigned)
+ ["gbz-AF"],
+);
+
+@mac_langs = (
+ 'en', 'fr', 'de', 'it', 'nl', 'sv', 'es', 'da', 'pt', 'no',
+ 'he', 'ja', 'ar', 'fi', 'el', 'is', 'mt', 'tr', 'hr', 'zh-Hant',
+ 'ur', 'hi', 'th', 'ko', 'lt', 'pl', 'hu', 'et', 'lv', 'se',
+ 'fo', 'ru' ,'zh-Hans', 'nl', 'ga', 'sq', 'ro', 'cs', 'sk',
+ 'sl', 'yi', 'sr', 'mk', 'bg', 'uk', 'be', 'uz', 'kk', 'az-Cyrl',
+ 'az-Latn', 'hy', 'ka', 'mo', 'ky', 'abh', 'tuk', 'mn-Mong', 'mn-Cyrl', 'pst',
+ 'ku', 'ks', 'sd', 'bo', 'ne', 'sa', 'mr', 'bn', 'as', 'gu',
+ 'pa', 'or', 'ml', 'kn', 'ta', 'te', 'si', 'my', 'km', 'lo',
+ 'vi', 'id', 'tl', 'ms-Latn', 'ms-Arab', 'am', 'ti', 'tga', 'so', 'sw',
+ 'rw', 'rn', 'ny', 'mg', 'eo', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', '', '',
+ '', '', '', '', '', '', '', '', 'cy', 'eu',
+ 'la', 'qu', 'gn', 'ay', 'tt', 'ug', 'dz', 'jv-Latn', 'su-Latn',
+ 'gl', 'af', 'br', 'iu', 'gd', 'gv', 'gd-IR-x-dotabove', 'to', 'el-polyton', 'kl',
+ 'az-Latn'
+);
+
+}
+
+1;
+
+=head1 BUGS
+
+=over 4
+
+=item *
+
+Unicode type strings will be stored in utf8 for all known platforms,
+once Perl 5.6 has been released and I can find all the mapping tables, etc.
+
+=back
+
+=head1 AUTHOR
+
+Martin Hosken Martin_Hosken@sil.org. See L<Font::TTF::Font> for copyright and
+licensing.
+
+=cut
+
fnp / librarian.git / blobdiff