summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkvpkana.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkvpkana.pl')
-rwxr-xr-xMaster/texmf-dist/source/fonts/japanese-otf-uptex/script/umkvpkana.pl7
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;}
}
}