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