diff options
Diffstat (limited to 'macros/jptex/latex/japanese-otf/src/script/CheckDVICode.pm')
-rw-r--r-- | macros/jptex/latex/japanese-otf/src/script/CheckDVICode.pm | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/macros/jptex/latex/japanese-otf/src/script/CheckDVICode.pm b/macros/jptex/latex/japanese-otf/src/script/CheckDVICode.pm index 3af7198b94..2ff357b65d 100644 --- a/macros/jptex/latex/japanese-otf/src/script/CheckDVICode.pm +++ b/macros/jptex/latex/japanese-otf/src/script/CheckDVICode.pm @@ -12,7 +12,7 @@ CheckDVICode.pm =head1 NOTE -This software is a part of otfbeta-uptex (a.k.a. japanese-otf-uptex). +This software is a part of japanese-otf-uptex. =cut @@ -94,6 +94,7 @@ sub is_dvicode($){ if ($key eq 'hira-Vu') { return ($code == 0x3094);} # large JIS X 0213 if ($key eq 'hira-ka') { return ($code == 0x3095);} # small JIS X 0213 if ($key eq 'hira-ke') { return ($code == 0x3096);} # small JIS X 0213 + if ($key eq 'hira-ko') { return ($code == 0x1B132);}# small Unicode 15.0 if ($key eq 'kata-a') { return ($code == 0x30A1);} # small if ($key eq 'kata-i') { return ($code == 0x30A3);} # : if ($key eq 'kata-u') { return ($code == 0x30A5);} # : @@ -106,6 +107,7 @@ sub is_dvicode($){ if ($key eq 'kata-wa') { return ($code == 0x30EE);} # : if ($key eq 'kata-ka') { return ($code == 0x30F5);} # : if ($key eq 'kata-ke') { return ($code == 0x30F6);} # small + if ($key eq 'kata-ko') { return ($code == 0x1B155);}# small Unicode 15.0 if ($key eq 'kata-Va') { return ($code == 0x30F7);} # large JIS X 0213 if ($key eq 'kata-Vi') { return ($code == 0x30F8);} # : JIS X 0213 if ($key eq 'kata-Ve') { return ($code == 0x30F9);} # : JIS X 0213 @@ -197,6 +199,7 @@ sub is_ucs_hira{ return 1 if ($dvicode>=0x3041 && $dvicode<=0x3093); return 1 if ($dvicode>=0x3094 && $dvicode<=0x3096); # Vu, small Ka, small Ke # return 1 if ($dvicode==0x309F); # Yori :: It is omitted because it is not included in "Tuned" in AJ1-6 + return 1 if ($dvicode==0x1B132); # small Ko Unicode 15.0 return 0; } @@ -205,6 +208,7 @@ sub is_ucs_kata{ return 1 if ($dvicode>=0x30F7 && $dvicode<=0x30FA); # Va, Vi, Ve, Vo return 1 if ($dvicode>=0x31F0 && $dvicode<=0x31FF); # small Ku, small Shi, ... , Small Re, Small Ro # return 1 if ($dvicode==0x30FF); # Koto :: It is omitted because it is not included in "Tuned" in AJ1-6 + return 1 if ($dvicode==0x1B155); # small Ko Unicode 15.0 return 0; } @@ -215,8 +219,8 @@ sub is_ucs_hankana{ # Reference: # http://www.unicode.org/Public/UNIDATA/Blocks.txt -# Blocks-12.0.0.txt -# Date: 2018-07-30, 19:40:00 GMT [KW] +# Blocks-15.0.0.txt +# Date: 2022-01-28, 20:58:00 GMT [KW] sub is_ucs_jpn_range{ return 1 if ($dvicode<=0x04FF); # Cyrillic @@ -259,7 +263,8 @@ sub is_ucs_jpn_range{ return 0 if ($dvicode< 0xFF00); return 1 if ($dvicode<=0xFFEF); # Halfwidth and Fullwidth Forms - return 0 if ($dvicode< 0x1B000); + return 0 if ($dvicode< 0x1AFF0); + return 1 if ($dvicode<=0x1AFFF); # Kana Extended-B return 1 if ($dvicode<=0x1B0FF); # Kana Supplement return 1 if ($dvicode<=0x1B12F); # Kana Extended-A return 1 if ($dvicode<=0x1B16F); # Small Kana Extension @@ -281,6 +286,10 @@ sub is_ucs_jpn_range{ return 0 if ($dvicode< 0x2F800); return 1 if ($dvicode<=0x2FA1F); # CJK Compatibility Ideographs Supplement + return 0 if ($dvicode< 0x30000); + return 1 if ($dvicode<=0x3134F); # CJK Unified Ideographs Extension G + return 1 if ($dvicode<=0x323AF); # CJK Unified Ideographs Extension H + return 0; } |