• R/O
  • SSH

HanaMinOT: Commit

花園明朝OT


Commit MetaInfo

Revision31ee9138b8c61cb3bad75565dbaf31c8ea0153de (tree)
Time2011-08-05 20:07:51
Authormashabow <mashabow@shir...>
Commitermashabow

Log Message

namerecords2namettx.pl において、mac ja のエンコーディングを sjis から MacJapanese に修正

Change Summary

Incremental Difference

diff -r 6aa352618b7f -r 31ee9138b8c6 makeHanaMinOT/makecidotf/namerecords2namettx.pl
--- a/makeHanaMinOT/makecidotf/namerecords2namettx.pl Fri Aug 05 08:12:43 2011 +0900
+++ b/makeHanaMinOT/makecidotf/namerecords2namettx.pl Fri Aug 05 20:07:51 2011 +0900
@@ -47,7 +47,7 @@
4747 foreach my $nr (@namerecords) {
4848 my $ids = $id_table->{$nr->{pratform}}{$nr->{language}};
4949 $ids->{name_id} = $nr->{name_id};
50- my $value = ($ids->{language_id} eq "0xb") ? encode_to_sjis_charref($nr->{value}) : encode_to_uni_charref($nr->{value});
50+ my $value = ($ids->{language_id} eq "0xb") ? encode_to_macj_charref($nr->{value}) : encode_to_uni_charref($nr->{value});
5151 $ttx .= <<"NAMERECORD";
5252 <namerecord nameID="$ids->{name_id}" platformID="$ids->{pratform_id}" platEncID="$ids->{encoding_id}" langID="$ids->{language_id}">
5353 $value
@@ -65,12 +65,12 @@
6565 exit;
6666
6767
68-# sjisバイト列の数値参照に変換
69-sub encode_to_sjis_charref {
68+# MacJapaneseバイト列の数値参照に変換
69+sub encode_to_macj_charref {
7070 my $str = shift;
71- my $sjis = unpack "H*", encode("sjis", $str);
72- $sjis =~ s/(..)/&#x$1;/g;
73- return $sjis;
71+ my $macj = unpack "H*", encode("MacJapanese", $str);
72+ $macj =~ s/(..)/&#x$1;/g;
73+ return $macj;
7474 }
7575
7676 # ascii以外の文字を数値文字参照に変換(&<>はエスケープ)
Show on old repository browser