summaryrefslogtreecommitdiff
path: root/macros/jptex/latex/japanese-otf/src/script/CheckDVICode.pm
diff options
context:
space:
mode:
Diffstat (limited to 'macros/jptex/latex/japanese-otf/src/script/CheckDVICode.pm')
-rw-r--r--macros/jptex/latex/japanese-otf/src/script/CheckDVICode.pm17
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;
}