diff options
Diffstat (limited to 'Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkvpkana.pl')
-rwxr-xr-x | Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkvpkana.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkvpkana.pl b/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkvpkana.pl index a7095628a29..c9f39bffe83 100755 --- a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkvpkana.pl +++ b/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkvpkana.pl @@ -119,6 +119,7 @@ sub glue_kern{ print JPL " (LABEL O 2)\n"; printf JPL " (GLUE O 5 R %f R 0.0 R %f)\n", $half_width, $half_width; printf JPL " (GLUE O 6 R %f R 0.0 R %f)\n", $half_width, $half_width; + print JPL " (STOP)\n"; print JPL " (LABEL O 6)\n"; printf JPL " (GLUE O 0 R %f R 0.0 R %f)\n", $half_width, $half_width; printf JPL " (GLUE O 1 R %f R 0.0 R %f)\n", $half_width, $half_width; @@ -152,12 +153,13 @@ sub glue_kern{ print JPL " )\n"; } sub chars_in_type_jis{ - my ($type1add, $type2add, $type3add, $type5)=(); + my ($type1add, $type2add, $type3add, $type5, $type6add)=(); if ($ucs) { $type1add = "UFF5F U3018 U3016 U301D U00AB U2329 U301A"; $type2add = "UFF60 U3019 U3017 U301F U00BB U232A U301B U301E"; $type3add = "U00B7"; $type5 = "— ― … ‥"; + $type6add = "U203C U2047 U2048 U2049"; } else { $type5 = "— … ‥"; } @@ -182,6 +184,7 @@ print JPL <<END_OF_DATA; ) (CHARSINTYPE O 6 ? ! + $type6add ) END_OF_DATA } @@ -231,7 +234,7 @@ sub write_char { if (&is_ucs_kigo){&print_kigo_char;} elsif(&is_ucs_hira){&print_kana_char;} elsif(&is_ucs_kata){&print_kana_char;} - elsif(&is_ucs_hankana && $direction eq "y"){&print_hankana_char;} +# elsif(&is_ucs_hankana && $hk_mode){&print_hankana_char;} else{&print_char;} } } |