diff options
author | Karl Berry <karl@freefriends.org> | 2018-04-07 20:56:01 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-04-07 20:56:01 +0000 |
commit | 70d5fea8af99c5bb4c6f4613787a7c714220369e (patch) | |
tree | 09084b9d5606cd309a2d189c7a028a378dc664f3 /Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkpkana.pl | |
parent | 43c95171fcbb9a071e0c4f523f697d8d65b6a945 (diff) |
japanese-otf-uptex (7apr18)
git-svn-id: svn://tug.org/texlive/trunk@47352 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkpkana.pl')
-rwxr-xr-x | Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkpkana.pl | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkpkana.pl b/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkpkana.pl index 444f007b4dd..081eab8bbf6 100755 --- a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkpkana.pl +++ b/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkpkana.pl @@ -150,14 +150,23 @@ sub glue_kern{ print JPL " )\n"; } sub chars_in_type_jis{ - my ($type3add) = $ucs ? "U00B7" : ""; - my ($type5) = $ucs ? "— ― … ‥" : "— … ‥"; + my ($type1add, $type2add, $type3add, $type5)=(); + if ($ucs) { + $type1add = "UFF5F U3018 U3016 U301D U00AB U2329 U301A"; + $type2add = "UFF60 U3019 U3017 U301F U00BB U232A U301B U301E"; + $type3add = "U00B7"; + $type5 = "— ― … ‥"; + } else { + $type5 = "— … ‥"; + } print JPL <<END_OF_DATA; (CHARSINTYPE O 1 ‘ “ ( 〔 [ { 〈 《 「 『 【 + $type1add ) (CHARSINTYPE O 2 、 , ’ ” ) 〕 ] } 〉 》 」 』 】 + $type2add ) (CHARSINTYPE O 3 ・ : ; @@ -324,8 +333,8 @@ sub print_type_prop{ } sub get_charwidth{ - local ($i,$dvicode)=@_; - local ($char,$u,$l); + my ($i,$dvicode)=@_; + my ($char,$u,$l); if (!$ucs) { if ($dvicode>=0x2474 && $dvicode<=0x2476) { |