summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/fonts/japanese-otf-uptex/script
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/fonts/japanese-otf-uptex/script')
-rw-r--r--Master/texmf-dist/source/fonts/japanese-otf-uptex/script/CheckDVICode.pm287
-rw-r--r--Master/texmf-dist/source/fonts/japanese-otf-uptex/script/MakeSPList.pm71
-rwxr-xr-xMaster/texmf-dist/source/fonts/japanese-otf-uptex/script/mktfm_sp.pl220
-rwxr-xr-xMaster/texmf-dist/source/fonts/japanese-otf-uptex/script/mkutf32list.pl162
-rwxr-xr-xMaster/texmf-dist/source/fonts/japanese-otf-uptex/script/mkutfvf_sp.pl209
-rw-r--r--Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_c.txt17
-rw-r--r--Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_j.txt75
-rw-r--r--Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_k.txt14
-rw-r--r--Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_t.txt204
-rwxr-xr-xMaster/texmf-dist/source/fonts/japanese-otf-uptex/script/umkpkana.pl602
-rwxr-xr-xMaster/texmf-dist/source/fonts/japanese-otf-uptex/script/umkvpkana.pl569
11 files changed, 0 insertions, 2430 deletions
diff --git a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/CheckDVICode.pm b/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/CheckDVICode.pm
deleted file mode 100644
index 3af7198b944..00000000000
--- a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/CheckDVICode.pm
+++ /dev/null
@@ -1,287 +0,0 @@
-package CheckDVICode;
-
-use strict;
-use Exporter;
-our @ISA = qw(Exporter);
-our @EXPORT = qw(is_dvicode is_ucs_open is_ucs_kigo is_ucs_hira
- is_ucs_kata is_ucs_hankana is_ucs_jpn_range);
-
-=head1 NAME
-
-CheckDVICode.pm
-
-=head1 NOTE
-
-This software is a part of otfbeta-uptex (a.k.a. japanese-otf-uptex).
-
-=cut
-
-our ($dvicode, $is_ucs);
-
-sub is_dvicode($){
- my ($key)=@_;
- my ($code)=($dvicode);
-
- if (!$is_ucs) {
- if ($key eq 'hira-a') { return ($code == 0x2421);}
- if ($key eq 'hira-i') { return ($code == 0x2423);}
- if ($key eq 'hira-u') { return ($code == 0x2425);}
- if ($key eq 'hira-e') { return ($code == 0x2427);}
- if ($key eq 'hira-o') { return ($code == 0x2429);}
- if ($key eq 'hira-tsu') { return ($code == 0x2443);}
- if ($key eq 'hira-ya') { return ($code == 0x2463);}
- if ($key eq 'hira-yu') { return ($code == 0x2465);}
- if ($key eq 'hira-yo') { return ($code == 0x2467);}
- if ($key eq 'hira-wa') { return ($code == 0x246E);}
- if ($key eq 'hira-Vu') { return 0; } # large JIS X 0213
- if ($key eq 'hira-ka') { return 0; } # small JIS X 0213
- if ($key eq 'hira-ke') { return 0; } # small JIS X 0213
- if ($key eq 'kata-a') { return ($code == 0x2521);}
- if ($key eq 'kata-i') { return ($code == 0x2523);}
- if ($key eq 'kata-u') { return ($code == 0x2525);}
- if ($key eq 'kata-e') { return ($code == 0x2527);}
- if ($key eq 'kata-o') { return ($code == 0x2529);}
- if ($key eq 'kata-tsu') { return ($code == 0x2543);}
- if ($key eq 'kata-ya') { return ($code == 0x2563);}
- if ($key eq 'kata-yu') { return ($code == 0x2565);}
- if ($key eq 'kata-yo') { return ($code == 0x2567);}
- if ($key eq 'kata-wa') { return ($code == 0x256E);}
- if ($key eq 'kata-ka') { return ($code == 0x2575);}
- if ($key eq 'kata-ke') { return ($code == 0x2576);}
- if ($key eq 'kata-Va') { return 0; } # large JIS X 0213
- if ($key eq 'kata-Vi') { return 0; } # : JIS X 0213
- if ($key eq 'kata-Ve') { return 0; } # : JIS X 0213
- if ($key eq 'kata-Vo') { return 0; } # large JIS X 0213
- if ($key eq 'kata-ku') { return 0; } # small JIS X 0213
- if ($key eq 'kata-mu') { return 0; } # small JIS X 0213
- if ($key eq 'kata-ku..ro') { return 0; } # small JIS X 0213
- if ($key eq 'comma') { return ($code == 0x2124);}
- if ($key eq 'period') { return ($code == 0x2125);}
- if ($key eq 'odoriji') { return
- ((0x2133 <= $code && $code <= 0x2136) || $code == 0x213C);}
- if ($key eq 'hira-odoriji') { return
- ($code == 0x2135 || $code == 0x2136);}
- if ($key eq 'kutouten') { return
- ($code>=0x2122 && $code<=0x2128);}
- if ($key eq 'burasage') { return
- ($code>=0x2122 && $code<=0x2125);}
- if ($key eq 'nakaten' ) { return ($code == 0x2126);}
- if ($key eq 'colon' ) { return ($code == 0x2127);}
- if ($key eq 'semicolon') { return ($code == 0x2128);}
- if ($key eq 'quote') { return
- ($code >= 0x2146 && $code <= 0x2149);}
- if ($key eq 's-quote') { return
- ($code == 0x2146 || $code == 0x2147);}
- if ($key eq 'd-quote') { return
- ($code == 0x2148 || $code == 0x2149);}
- if ($key eq 'kakko') { return
- (0x214A <= $code && $code <= 0x215B);}
- if ($key eq 'open') { return ($code%2==0);}
- if ($key eq 'close') { return ($code%2==1);}
-
- die "illegal keyname ($key)\n";
- } else { # ucs
- if ($key eq 'hira-a') { return ($code == 0x3041);} # small
- if ($key eq 'hira-i') { return ($code == 0x3043);} # :
- if ($key eq 'hira-u') { return ($code == 0x3045);} # :
- if ($key eq 'hira-e') { return ($code == 0x3047);} # :
- if ($key eq 'hira-o') { return ($code == 0x3049);} # :
- if ($key eq 'hira-tsu') { return ($code == 0x3063);} # :
- if ($key eq 'hira-ya') { return ($code == 0x3083);} # :
- if ($key eq 'hira-yu') { return ($code == 0x3085);} # :
- if ($key eq 'hira-yo') { return ($code == 0x3087);} # :
- if ($key eq 'hira-wa') { return ($code == 0x308E);} # small
- 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 'kata-a') { return ($code == 0x30A1);} # small
- if ($key eq 'kata-i') { return ($code == 0x30A3);} # :
- if ($key eq 'kata-u') { return ($code == 0x30A5);} # :
- if ($key eq 'kata-e') { return ($code == 0x30A7);} # :
- if ($key eq 'kata-o') { return ($code == 0x30A9);} # :
- if ($key eq 'kata-tsu') { return ($code == 0x30C3);} # :
- if ($key eq 'kata-ya') { return ($code == 0x30E3);} # :
- if ($key eq 'kata-yu') { return ($code == 0x30E5);} # :
- if ($key eq 'kata-yo') { return ($code == 0x30E7);} # :
- 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-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
- if ($key eq 'kata-Vo') { return ($code == 0x30FA);} # large JIS X 0213
- if ($key eq 'kata-ku') { return ($code == 0x31F0);} # small JIS X 0213
- if ($key eq 'kata-mu') { return ($code == 0x31FA);} # small JIS X 0213
- if ($key eq 'kata-ku..ro') { return
- ($code >= 0x31F0 && $code <= 0x31FF);} # small JIS X 0213
- if ($key eq 'comma') { return ($code == 0xFF0C);}
- if ($key eq 'period') { return ($code == 0xFF0E);}
- if ($key eq 'odoriji') { return
- ($code == 0x30FD || $code == 0x30FE ||
- $code == 0x309D || $code == 0x309E ||
- $code == 0x30FC);}
- if ($key eq 'hira-odoriji') { return
- ($code == 0x309D || $code == 0x309E);}
- if ($key eq 'kutouten') { return
- ($code == 0x3001 || $code == 0x3002 ||
- $code == 0xFF0C || $code == 0xFF0E ||
- $code == 0x30FB || $code == 0x00B7 ||
- $code == 0xFF1A || $code == 0xFF1B);}
- if ($key eq 'burasage') { return
- ($code == 0x3001 || $code == 0x3002 ||
- $code == 0xFF0C || $code == 0xFF0E);}
- if ($key eq 'nakaten' ) { return
- ($code == 0x30FB || $code == 0x00B7);}
- if ($key eq 'colon' ) { return ($code == 0xFF1A);}
- if ($key eq 'semicolon') { return ($code == 0xFF1B);}
- if ($key eq 'quote') { return
- ($code == 0x2018 || $code == 0x2019 ||
- $code == 0x201C || $code == 0x201D);}
- if ($key eq 's-quote') { return
- ($code == 0x2018 || $code == 0x2019);}
- if ($key eq 'd-quote') { return
- ($code == 0x201C || $code == 0x201D);}
- if ($key eq 'kakko') { return
- ((0x3008 <= $code && $code <= 0x3011) ||
- $code == 0x3014 || $code == 0x3015 ||
- $code == 0xFF08 || $code == 0xFF09 ||
- $code == 0xFF3B || $code == 0xFF3D ||
- $code == 0xFF5B || $code == 0xFF5D ||
- $code == 0xFF5F || $code == 0xFF60 || # X0213 1-02-54,55
- $code == 0x3018 || $code == 0x3019 || # X0213 1-02-56,57
- $code == 0x3016 || $code == 0x3017 || # X0213 1-02-58,59
- $code == 0x301D || $code == 0x301F || # X0213 1-13-64,65
- $code == 0x00AB || $code == 0x00BB || # X0213 1-09-08,18
- $code == 0x2329 || $code == 0x232A ||
- $code == 0x301A || $code == 0x301B ||
- $code == 0x301E
- );}
- if ($key eq 'open') { return &is_ucs_open; }
- if ($key eq 'close') { return (!&is_ucs_open); }
-
- # ucs only
- if ($key eq 'hira-yori'){ return ($code == 0x309F);} # yori
- if ($key eq 'kata-koto'){ return ($code == 0x30FF);} # koto
-
- die "illegal keyname ($key)\n";
- }
-}
-
-sub is_ucs_open{
- if ($dvicode == 0x00AB || $dvicode == 0x2329
- || $dvicode == 0x301D
- || $dvicode == 0xFF3B || $dvicode == 0xFF5B
- || $dvicode == 0xFF5F) { return 1;}
- if ($dvicode == 0x00BB || $dvicode == 0x232A
- || $dvicode == 0x301E || $dvicode == 0x301F
- || $dvicode == 0xFF3D || $dvicode == 0xFF5D
- || $dvicode == 0xFF60) { return 0;}
- return ($dvicode%2==0);
-}
-
-sub is_ucs_kigo{
- return 1 if ($dvicode==0x00AB || $dvicode==0x00BB);
- return 1 if ($dvicode==0x00B7);
- return 1 if ($dvicode>=0x2018 && $dvicode<=0x2019);
- return 1 if ($dvicode>=0x201C && $dvicode<=0x201D);
- return 1 if ($dvicode>=0x2329 && $dvicode<=0x232A);
- return 1 if ($dvicode>=0x3001 && $dvicode<=0x301F);
- return 1 if ($dvicode>=0x3097 && $dvicode<=0x309E);
- return 1 if ($dvicode>=0x30FB && $dvicode<=0x30FE);
- return 1 if ($dvicode>=0xFF08 && $dvicode<=0xFF60);
-
- return 0;
-}
-
-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 0;
-}
-
-sub is_ucs_kata{
- return 1 if ($dvicode>=0x30A1 && $dvicode<=0x30F6);
- 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 0;
-}
-
-sub is_ucs_hankana{
- return 1 if ($dvicode>=0xFF61 && $dvicode<=0xFF9F);
- return 0;
-}
-
-# Reference:
-# http://www.unicode.org/Public/UNIDATA/Blocks.txt
-# Blocks-12.0.0.txt
-# Date: 2018-07-30, 19:40:00 GMT [KW]
-sub is_ucs_jpn_range{
- return 1 if ($dvicode<=0x04FF); # Cyrillic
-
- return 0 if ($dvicode< 0x1E00);
- return 1 if ($dvicode<=0x243F); # Control Pictures
-
- return 0 if ($dvicode< 0x2460);
- return 1 if ($dvicode<=0x27BF); # Dingbats
-
- return 0 if ($dvicode< 0x2900);
- return 1 if ($dvicode<=0x29FF); # Miscellaneous Mathematical Symbols-B
-
- return 0 if ($dvicode< 0x2B00);
- return 1 if ($dvicode<=0x2BFF); # Miscellaneous Symbols and Arrows
-
- return 0 if ($dvicode< 0x2E80);
- return 1 if ($dvicode<=0x2FDF); # Kangxi Radicals
-
- return 0 if ($dvicode< 0x3000);
- return 1 if ($dvicode<=0x30FF); # Katakana
-
- return 0 if ($dvicode< 0x3190);
- return 1 if ($dvicode<=0x319F); # Kanbun
-
- return 0 if ($dvicode< 0x31F0);
- return 1 if ($dvicode<=0x4DBF); # CJK Unified Ideographs Extension A
-
- return 0 if ($dvicode< 0x4E00);
- return 1 if ($dvicode<=0x9FFF); # CJK Unified Ideographs
-
- return 0 if ($dvicode< 0xE000);
- return 1 if ($dvicode<=0xFB4F); # Alphabetic Presentation Forms
-
- return 0 if ($dvicode< 0xFE10);
- return 1 if ($dvicode<=0xFE1F); # Vertical Forms
-
- return 0 if ($dvicode< 0xFE30);
- return 1 if ($dvicode<=0xFE4F); # CJK Compatibility Forms
-
- return 0 if ($dvicode< 0xFF00);
- return 1 if ($dvicode<=0xFFEF); # Halfwidth and Fullwidth Forms
-
- return 0 if ($dvicode< 0x1B000);
- return 1 if ($dvicode<=0x1B0FF); # Kana Supplement
- return 1 if ($dvicode<=0x1B12F); # Kana Extended-A
- return 1 if ($dvicode<=0x1B16F); # Small Kana Extension
-
- return 0 if ($dvicode< 0x1F100);
- return 1 if ($dvicode<=0x1F1FF); # Enclosed Alphanumeric Supplement
- return 1 if ($dvicode<=0x1F2FF); # Enclosed Ideographic Supplement
-
- return 0 if ($dvicode< 0x1F780);
- return 1 if ($dvicode<=0x1F7FF); # Geometric Shapes Extended
-
- return 0 if ($dvicode< 0x20000);
- return 1 if ($dvicode<=0x2A6DF); # CJK Unified Ideographs Extension B
- return 1 if ($dvicode<=0x2B73F); # CJK Unified Ideographs Extension C
- return 1 if ($dvicode<=0x2B81F); # CJK Unified Ideographs Extension D
- return 1 if ($dvicode<=0x2CEAF); # CJK Unified Ideographs Extension E
- return 1 if ($dvicode<=0x2EBEF); # CJK Unified Ideographs Extension F
-
- return 0 if ($dvicode< 0x2F800);
- return 1 if ($dvicode<=0x2FA1F); # CJK Compatibility Ideographs Supplement
-
- return 0;
-}
-
-1;
diff --git a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/MakeSPList.pm b/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/MakeSPList.pm
deleted file mode 100644
index 8dc9ce0e3a8..00000000000
--- a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/MakeSPList.pm
+++ /dev/null
@@ -1,71 +0,0 @@
-package MakeSPList;
-
-use strict;
-use Exporter;
-use File::Basename qw/dirname/;
-our @ISA = qw(Exporter);
-our @EXPORT = qw(make_sp_char_list);
-
-=head1 NAME
-
-MakeSPList.pm
-
-=head1 NOTE
-
-This software is a part of otfbeta-uptex (a.k.a. japanese-otf-uptex).
-
-=cut
-
-our ($r_exist_head, $r_exist_char);
-
-my $num = '[12][0-9A-F]{4}';
-
-sub make_sp_char_list(@) {
- my (@lang)=@_;
- my (@exist_head_mul, %exist_char_mul)=();
- my ($lang, $first_hex);
-
- my $moduledir=dirname(__FILE__);
-
- foreach $lang (@lang) {
- open(LIST, "$moduledir/sp_list_$lang.txt") || die "$!";
- my (@exist_head_each, %exist_char_each)=();
- while (<LIST>) {
- chomp;
- s/\s+//g;
- next if (/^[#%]/);
- s/[#%].*$//;
- s/,$//;
- my @tmp;
- foreach $_ (split ',', $_) {
- if (/^($num)$/io) {
- @tmp = (hex($1));
- } elsif (/^($num)-($num)$/io) {
- @tmp = (hex($1)..hex($2));
- } else {
- die "input [$_] is not expected\n";
- }
- foreach $_ (@tmp) {
- my $HEX=sprintf("%X",$_);
- $first_hex=int($_/0x1000);
- $exist_head_each[$first_hex]++;
- $exist_char_each{$HEX}=1;
- if ($exist_char_mul{$HEX} eq '' && $exist_head_mul[$first_hex]!~/$lang/) {
- $exist_head_mul[$first_hex].=$lang;
- }
- $exist_char_mul{$HEX}.=$lang;
-# warn "$HEX $first_hex ",sprintf("%X",$first_hex),"\n";
- }
- }
- }
- @{$r_exist_head->{$lang}}=@exist_head_each;
- %{$r_exist_char->{$lang}}=%exist_char_each;
- }
- if (@lang>1) {
- $lang = join ',', @lang;
- @{$r_exist_head->{$lang}}=@exist_head_mul;
- %{$r_exist_char->{$lang}}=%exist_char_mul;
- }
-}
-
-1;
diff --git a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/mktfm_sp.pl b/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/mktfm_sp.pl
deleted file mode 100755
index 90f464d13ad..00000000000
--- a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/mktfm_sp.pl
+++ /dev/null
@@ -1,220 +0,0 @@
-#!/usr/bin/perl
-
-=head1 NAME
-
-mktfm_sp.pl
-
-=head1 USAGE
-
-script/mktfm_sp.pl
-
-=head1 NOTE
-
-This software is a part of otfbeta-uptex (a.k.a. japanese-otf-uptex).
-
-=cut
-
-use FindBin;
-use lib "$FindBin::Bin";
-use MakeSPList;
-
-$multi=3;
-@tex_tfm_h=(0x00, 0x0B, 0x00, 0x01, 0x00, 0x2B, 0x00, 0x12, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x02, 0x00, 0x02, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0xA0, 0x00, 0x00, 0x0E, 0x54, 0x45, 0x58, 0x20, 0x4B, 0x41, 0x4E, 0x4A, 0x49, 0x20, 0x54, 0x45, 0x58, 0x54, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x09, 0x4F, 0x54, 0x46, 0x20, 0x4B, 0x41, 0x4E, 0x4A, 0x49, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x11, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0E, 0x14, 0x7B, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0xEB, 0x85, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x99, 0x9A, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x03, 0x33, 0x33, 0x00, 0x02, 0x00, 0x00);
-@tex_tfm_v=(0x00, 0x09, 0x00, 0x01, 0x00, 0x2B, 0x00, 0x12, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x02, 0x00, 0x02, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0xA0, 0x00, 0x00, 0x0E, 0x54, 0x45, 0x58, 0x20, 0x4B, 0x41, 0x4E, 0x4A, 0x49, 0x20, 0x54, 0x45, 0x58, 0x54, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x09, 0x4F, 0x54, 0x46, 0x20, 0x4B, 0x41, 0x4E, 0x4A, 0x49, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x11, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x99, 0x9A, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x03, 0x33, 0x33, 0x00, 0x02, 0x00, 0x00);
-@dvips_tfm_h=(0x00, 0x0B, 0x00, 0x01, 0x00, 0x1B, 0x00, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x02, 0x00, 0x02, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0xA0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x11, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0E, 0x14, 0x7B, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0xEB, 0x85, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
-@dvips_tfm_v=(0x00, 0x09, 0x00, 0x01, 0x00, 0x1B, 0x00, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x02, 0x00, 0x02, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0xA0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x11, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
-
-@tex_tfm_ucs_h=map{ hex($_) } qw/
- 00 0b 00 40 00 6c 00 12 00 00 00 01 00 03 00 02
- 00 02 00 01 00 00 00 00 00 00 00 09 00 00 00 00
- 00 a0 00 00 0e 54 45 58 20 4b 41 4e 4a 49 20 54
- 45 58 54 00 00 00 00 00 00 00 00 00 00 00 00 00
- 00 00 00 00 00 00 00 00 00 00 00 00 09 4f 54 46
- 20 4b 41 4e 4a 49 00 00 00 00 00 00 00 00 00 00
- 80 00 00 00 00 00 00 00 ff 61 00 01 ff 62 00 01
- ff 63 00 01 ff 64 00 01 ff 65 00 01 ff 66 00 01
- ff 67 00 01 ff 68 00 01 ff 69 00 01 ff 6a 00 01
- ff 6b 00 01 ff 6c 00 01 ff 6d 00 01 ff 6e 00 01
- ff 6f 00 01 ff 70 00 01 ff 71 00 01 ff 72 00 01
- ff 73 00 01 ff 74 00 01 ff 75 00 01 ff 76 00 01
- ff 77 00 01 ff 78 00 01 ff 79 00 01 ff 7a 00 01
- ff 7b 00 01 ff 7c 00 01 ff 7d 00 01 ff 7e 00 01
- ff 7f 00 01 ff 80 00 01 ff 81 00 01 ff 82 00 01
- ff 83 00 01 ff 84 00 01 ff 85 00 01 ff 86 00 01
- ff 87 00 01 ff 88 00 01 ff 89 00 01 ff 8a 00 01
- ff 8b 00 01 ff 8c 00 01 ff 8d 00 01 ff 8e 00 01
- ff 8f 00 01 ff 90 00 01 ff 91 00 01 ff 92 00 01
- ff 93 00 01 ff 94 00 01 ff 95 00 01 ff 96 00 01
- ff 97 00 01 ff 98 00 01 ff 99 00 01 ff 9a 00 01
- ff 9b 00 01 ff 9c 00 01 ff 9d 00 01 ff 9e 00 01
- ff 9f 00 01 02 11 00 00 01 11 00 00 00 00 00 00
- 00 08 00 00 00 10 00 00 00 00 00 00 00 0e 14 7b
- 00 00 00 00 00 01 eb 85 00 00 00 00 00 00 00 00
- 00 00 00 00 00 01 99 9a 00 00 00 00 00 10 00 00
- 00 10 00 00 00 04 00 00 00 03 33 33 00 02 00 00
-/;
-@dvips_tfm_ucs_h=map{ hex($_) } qw/
- 00 0b 00 40 00 5c 00 02 00 00 00 01 00 03 00 02
- 00 02 00 01 00 00 00 00 00 00 00 09 00 00 00 00
- 00 a0 00 00 00 00 00 00 ff 61 00 01 ff 62 00 01
- ff 63 00 01 ff 64 00 01 ff 65 00 01 ff 66 00 01
- ff 67 00 01 ff 68 00 01 ff 69 00 01 ff 6a 00 01
- ff 6b 00 01 ff 6c 00 01 ff 6d 00 01 ff 6e 00 01
- ff 6f 00 01 ff 70 00 01 ff 71 00 01 ff 72 00 01
- ff 73 00 01 ff 74 00 01 ff 75 00 01 ff 76 00 01
- ff 77 00 01 ff 78 00 01 ff 79 00 01 ff 7a 00 01
- ff 7b 00 01 ff 7c 00 01 ff 7d 00 01 ff 7e 00 01
- ff 7f 00 01 ff 80 00 01 ff 81 00 01 ff 82 00 01
- ff 83 00 01 ff 84 00 01 ff 85 00 01 ff 86 00 01
- ff 87 00 01 ff 88 00 01 ff 89 00 01 ff 8a 00 01
- ff 8b 00 01 ff 8c 00 01 ff 8d 00 01 ff 8e 00 01
- ff 8f 00 01 ff 90 00 01 ff 91 00 01 ff 92 00 01
- ff 93 00 01 ff 94 00 01 ff 95 00 01 ff 96 00 01
- ff 97 00 01 ff 98 00 01 ff 99 00 01 ff 9a 00 01
- ff 9b 00 01 ff 9c 00 01 ff 9d 00 01 ff 9e 00 01
- ff 9f 00 01 02 11 00 00 01 11 00 00 00 00 00 00
- 00 08 00 00 00 10 00 00 00 00 00 00 00 0e 14 7b
- 00 00 00 00 00 01 eb 85 00 00 00 00 00 00 00 00
- 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00
- 00 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00
-/;
-
-opendir(TFM, "tfm") || mkdir("tfm",0755) || die "cannot mkdir tfm";
-
-my @face = qw/mr gr mb gb mgr ml ge/;
-my @lang = qw/j t c k/;
-my @dir = qw/h v/;
-my %font_id = qw/1b g 1d h 1e i 1f j
- 20 k 21 l 22 m 23 n 24 o 25 p 26 q 27 r
- 28 s 29 t 2a u 2b v 2c w 2d x 2e y 2f z/;
-
-&MakeSPList::make_sp_char_list(@lang);
-
-&make_utf_tfm;
-&make_multi_utf_tfm;
-&make_unified_utf_tfm;
-
-sub make_utf_tfm {
- foreach $lang ($lang[0]){ #language, japanase
- foreach $newjis ('', 'n') {
- foreach $face (@face){ #face
- $face0 = $face.$newjis;
- foreach $dir (@dir){ #direction
- &make_dvipstfm_body($face0, $dir, $lang) if ($dir=='h');
- &make_ucs_tfm_body($face0, $dir, $lang);
- }
- }
- }
- foreach $face (@face){ #face
- foreach $dir (@dir){ #direction
- &maketfm_body($face, $dir, $lang);
- }
- }
- }
-}
-sub make_multi_utf_tfm {
- foreach $lang (@lang[1..$multi]){ #language, t c k
- foreach $face (@face){ #face
- foreach $dir (@dir){ #direction
- &make_dvipstfm_body($face, $dir, $lang);
- &make_ucs_tfm_body($face, $dir, $lang);
- }
- }
- foreach $face (@face[0..1]){ #face
- foreach $dir (@dir){ #direction
- &maketfm_body($face, $dir, $lang);
- }
- }
- }
-}
-sub make_unified_utf_tfm {
- foreach $face (@face[0..1]){ #face
- foreach $dir (@dir){ #direction
- &maketfm_body($face, $dir, @lang);
- }
- }
-}
-
-sub maketfm_body {
- my ($face, $dir, @ln)=@_;
-=comment
- ## mktfm.pl does same procedure.
- $filename="utf$lang$face".sprintf("%x",$first_hex)."-$dir";
- open(TEXTFM,">tfm/$filename.tfm") || die "Can't make \'tfm/$filename.tfm\'!\n";
- binmode(TEXTFM);
- if ($i==0) {
- foreach $binary(@tex_tfm_h) {$_ = pack("C", $binary);print TEXTFM "$_";}
- }elsif ($i==1){
- foreach $binary(@tex_tfm_v) {$_ = pack("C", $binary);print TEXTFM "$_";}
- }
- close(TEXTFM);
-=cut
- my $lang = join ',', @ln;
- my @exist_head=@{$MakeSPList::r_exist_head->{$lang}};
-
- foreach $first_hex (0x1b, 0x1d .. 0x2f) { # U+1Cxxx : not defined yet
- next if (!$exist_head[$first_hex]);
-
- $id = $font_id{sprintf("%02x", $first_hex)};
- $filename= (@ln>1) ? "utf$face$id-$dir" : "utf$lang$face$id-$dir";
- open(TEXTFM,">tfm/$filename.tfm") || die "Can't make \'tfm/$filename.tfm\'!\n";
- binmode(TEXTFM);
- if ($dir eq 'h') {
- foreach $binary(@tex_tfm_h) {$_ = pack("C", $binary);print TEXTFM "$_";}
- }elsif ($dir eq 'v'){
- foreach $binary(@tex_tfm_v) {$_ = pack("C", $binary);print TEXTFM "$_";}
- }
- close(TEXTFM);
- }
-}
-
-sub make_ucs_tfm_body {
- my ($face, $dir, $lang)=@_;
-
- {
- $id = '-';
- $filename="utf$lang$face$id-$dir";
- open(TEXTFM,">tfm/$filename.tfm") || die "Can't make \'tfm/$filename.tfm\'!\n";
- binmode(TEXTFM);
- if ($dir eq 'h') {
- if ($lang eq 'j') {
- @tex_tfm = @tex_tfm_ucs_h;
- } else {
- @tex_tfm = @tex_tfm_h;
- }
- foreach $binary(@tex_tfm ) {$_ = pack("C", $binary);print TEXTFM "$_";}
- }elsif ($dir eq 'v'){
- foreach $binary(@tex_tfm_v) {$_ = pack("C", $binary);print TEXTFM "$_";}
- }
- close(TEXTFM);
- }
-}
-
-sub make_dvipstfm_body {
- my ($face, $dir, $lang)=@_;
-=comment
- ## mktfm.pl does similar procedure.
- $varfilename="otf-u$lang$face-$dir";
- open(DVIPSTFM,">tfm/$varfilename.tfm") || die "Can't make \'tfm/$varfilename.tfm\'!\n";
- if ($i==0) {
- foreach $binary(@dvips_tfm_h) {$_ = pack("C", $binary);print DVIPSTFM "$_";}
- }elsif ($i==1){
- foreach $binary(@dvips_tfm_v) {$_ = pack("C", $binary);print DVIPSTFM "$_";}
- }
- close(DVIPSTFM);
-=cut
- $varfilename= "otf-u$lang$face-$dir";
- open(DVIPSTFM,">tfm/$varfilename.tfm") || die "Can't make \'tfm/$varfilename.tfm\'!\n";
- binmode(DVIPSTFM);
- if ($dir eq 'h') {
- if ($lang eq 'j') {
- @dvips_tfm = @dvips_tfm_ucs_h;
- } else {
- @dvips_tfm = @dvips_tfm_h;
- }
- foreach $binary(@dvips_tfm ) {$_ = pack("C", $binary);print DVIPSTFM "$_";}
- }elsif ($dir eq 'v'){
- foreach $binary(@dvips_tfm_v) {$_ = pack("C", $binary);print DVIPSTFM "$_";}
- }
- close(DVIPSTFM);
-}
diff --git a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/mkutf32list.pl b/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/mkutf32list.pl
deleted file mode 100755
index 377659d3983..00000000000
--- a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/mkutf32list.pl
+++ /dev/null
@@ -1,162 +0,0 @@
-#!/usr/bin/perl -n -s
-
-=head1 NAME
-
-mkutf32list.pl
-
-=head1 USAGE
-
-mkutf32list.pl cid2code.txt > sp_jp_text.tex
-mkutf32list.pl -style=utf cid2code.txt > sp_jp_utf.tex
-mkutf32list.pl -style=kchar cid2code.txt > sp_jp_kchar.tex
-mkutf32list.pl -style=list cid2code.txt > sp_list_j.txt
-mkutf32list.pl -style=list-wo-collec cid2code.txt > sp_list_ja.txt
-mkutf32list.pl -allrange cid2code.txt > sp_jp_text.tex
-
-=head1 AUTHOR
-
-Takuji Tanaka
-
-=head1 NOTE
-
-This software is a part of otfbeta-uptex (a.k.a. japanese-otf-uptex).
-
-=cut
-
-use strict;
-binmode(STDOUT, ":utf8");
-
-our ($style, $allrange);
-our (@count, %reset_ch, $icollec, $cid2code, $line);
-our ($col_utf32, @out);
-our (@cid_max, $collection_n, $collection, $utfmac, $cmap, $source);
-
-BEGIN{
- $line = 0;
- @count = ();
- %reset_ch = ();
- $icollec = 0;
- @out = ();
-}
-
-if (/cid2code/) {
- chomp;
- s/^# /# in /;
- $cid2code=$_;
- $cid2code=~s/^#/%/;
-}
-
-if ($.<8 && /((Adobe-(?:Japan|CNS|GB|Korea).*)-\d)\s/) {
- $collection_n=$1;
- $collection=$2;
- if ($collection =~ /cns/i) {
- @cid_max = qw/-1 14098 17407 17600 18845 18964 19087 19155 19178/;
- $utfmac="UTFT"; $cmap="UniCNS-UTF32";
- $source="Adobe-CNS1-7/cid2code.txt"; }
- elsif ($collection =~ /gb/i) {
- @cid_max = qw/-1 7716 9896 22126 22352 29063 30283/;
- $utfmac="UTFC"; $cmap="UniGB-UTF32";
- $source="Adobe-GB1-5/cid2code.txt"; }
- elsif ($collection =~ /kor/i) {
- @cid_max = qw/-1 9332 18154 18351/;
- $utfmac="UTFK"; $cmap="UniKS-UTF32";
- $source="Adobe-Korea1-2/cid2code.txt"; }
- else {
- @cid_max = qw/-1 8283 8358 8719 9353 15443 20316 23057 23059/;
- $utfmac="UTF"; $cmap="UniJIS-UTF32";
- $source="Adobe-Japan1-7/cid2code.txt"; }
-}
-
-next if (/^#/);
-$line++;
-if ($line == 1) {
- print <<END;
-%
-% This file is generated from the data of $cmap
-$cid2code
-% for $collection_n
-%
-% Reference:
-% https://github.com/adobe-type-tools/cmap-resources/
-% $source
-%
-% A newer CMap may be required for some code points.
-%
-END
-}
-if (/^CID/) {
- my @header = split;
- my $i=0;
- foreach (@header) {
- if (/^Uni(JIS|KS|CNS|GB)-UTF32$/) {
- $col_utf32 = $i;
- last;
- }
- $i++
- }
- next;
-}
-
-my @list = split;
-my $cid = $list[0];
-my @utf32 = split ',', $list[$col_utf32];
-
-foreach (@utf32) {
- s/^0+//;
-
- next if ($_ eq '*');
- next if ($_ =~ '^[1-7][0-9a-f]$|^.$');
- next if ($_ =~ 'v');
- tr/a-z/A-Z/;
- my $ch=hex($_);
- next if ($ch < 0x10000 && !$allrange);
-
- while(!($cid_max[$icollec+1]>=$cid && $cid>$cid_max[$icollec])) {
- $icollec++;
- if ($icollec>@cid_max) {
- die "CID:$cid (Character $_) is out of range!!\n";
- }
- }
- if ($count[$icollec]==0) {
- $reset_ch{$ch}=$icollec;
- }
- $count[$icollec]++;
- push @out, $ch;
-}
-
-
-END {
- my ($i, $out, $ch);
-
- if ($style eq "list-wo-collec") { @out = sort(@out); }
-
- foreach $ch (@out) {
- if ($style eq "list-wo-collec") {}
- elsif (defined($reset_ch{$ch})) {
- $i=0;
- print "\n\n";
- print "%" if ($style =~ /list/);
- print "$collection-$reset_ch{$ch}";
- print "\\\\" if ($style !~ 'list');
- print "\n";
- }
-
- $i++;
- if ($style =~ /utf/) { $out=sprintf "\\${utfmac}{%X}", $ch; }
- elsif ($style =~ /kchar/) { $out=sprintf "\\kchar\"%X", $ch; }
- elsif ($style =~ /list/) { $out=sprintf "%X", $ch; }
- else { $out=chr($ch); }
- my ($newline);
- $newline = $allrange ? 25 : 10;
- if ($i % $newline != 1) {
- print "," if ($style =~ /list/);
- }
- print $out;
- if ($i % $newline == 0) {
- print "%" if ($style =~ /utf/);
- print "\n" ;
- }
- }
-
- print "\n\n% end\n";
-}
diff --git a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/mkutfvf_sp.pl b/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/mkutfvf_sp.pl
deleted file mode 100755
index 97ea89f2af1..00000000000
--- a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/mkutfvf_sp.pl
+++ /dev/null
@@ -1,209 +0,0 @@
-#!/usr/bin/perl -s
-
-=head1 NAME
-
-mkutfvf_sp.pl
-
-=head1 USAGE
-
-script/mkutfvf_sp.pl
-script/mkutfvf_sp.pl -debug
-script/mkutfvf_sp.pl -ovp2ovf='wovp2ovf'
-
-=head1 NOTE
-
-This software is a part of otfbeta-uptex (a.k.a. japanese-otf-uptex).
-
-=cut
-
-use FindBin;
-use lib "$FindBin::Bin";
-use MakeSPList;
-
-if (!defined($ovp2ovf)) { ## check option '-ovp2ovf=????'
- $ovp2ovf = defined($ENV{'OVP2OVF'}) ? $ENV{'OVP2OVF'} : 'ovp2ovf';
-}
-
-$multi=3;
-opendir(OVP, "ovp") || mkdir("ovp",0755) || die "cannot mkdir ovp";
-opendir(VF, "vf") || mkdir("vf",0755) || die "cannot mkdir vf";
-
-my @face = qw/mr gr mb gb mgr ml ge/;
-my @lang = qw/j t c k/; ## priority: j > t > c > k
-my %lang_id; foreach $_ (0..$#lang) { $lang_id{$lang[$_]}=$_; }
-my @dir = qw/h v/;
-my %font_id = qw/1b g 1d h 1e i 1f j
- 20 k 21 l 22 m 23 n 24 o 25 p 26 q 27 r
- 28 s 29 t 2a u 2b v 2c w 2d x 2e y 2f z/;
-
-&MakeSPList::make_sp_char_list(@lang);
-
-&makejvf;
-&makemlvf;
-&makeunivf;
-
-sub makejvf {
- foreach $lang ($lang[0]){ #language, japanase
- foreach $newjis ('', 'n') {
- foreach $face (@face){ #face
- $face0 = $face.$newjis;
- foreach $dir (@dir){ #direction
- &make_ucs_vf_body($face0, $dir, $lang);
- }
- }
- }
- foreach $face (@face){ #face
- foreach $dir (@dir){ #direction
- &makevf_body($face, $dir, $lang);
- }
- }
- }
-}
-sub makemlvf {
- foreach $lang (@lang[1..$multi]){ #language, t c k
- foreach $face (@face){ #face
- foreach $dir (@dir){ #direction
- &make_ucs_vf_body($face, $dir, $lang);
- }
- }
- foreach $face (@face[0..1]){ #face
- foreach $dir (@dir){ #direction
- &makevf_body($face, $dir, $lang);
- }
- }
- }
-}
-sub makeunivf {
- foreach $face (@face[0..1]){ #face
- foreach $dir (@dir){ #direction
- &make_uni_vf_body($face, $dir, @lang);
- }
- }
-}
-
-sub makevf_body {
- my ($face, $dir, $lang)=@_;
-
- my @exist_head=@{$MakeSPList::r_exist_head->{$lang}};
- foreach $first_hex (0x1b, 0x1d .. 0x2f) { # U+1Cxxx : not defined yet
- next if (!$exist_head[$first_hex]);
-
- $HEX = sprintf("%02X", $first_hex);
- $id = $font_id{sprintf("%02x", $first_hex)};
- warn "now processing (face:$face, dir:$dir, lang:$lang, first_hex:$HEX, ID:$id) ...\n";
- $filename="utf$lang$face$id-$dir";
- open(OUT, ">ovp/$filename.ovp")||die "$!";
- &fonthead;
- print OUT "(MAPFONT D 0\n (FONTNAME otf-u$lang$face-$dir)\n";
- &fontfoot;
- &writechar($first_hex, $lang);
- close(OUT);
- unless ($debug){
- system("$ovp2ovf ovp/$filename.ovp vf/$filename.vf vf/$filename.ofm");
- unlink "vf/$filename.ofm";
- }
- }
-}
-
-sub make_uni_vf_body {
- my ($face, $dir, @ln)=@_;
- my $lang = join ',', @ln;
-
- my @exist_head=@{$MakeSPList::r_exist_head->{$lang}};
- foreach $first_hex (0x1b, 0x1d .. 0x2f) { # U+1Cxxx : not defined yet
- next if (!$exist_head[$first_hex]);
-
- $HEX = sprintf("%02X", $first_hex);
- $id = $font_id{sprintf("%02x", $first_hex)};
- warn "now processing (face:$face, dir:$dir, lang:MULTI, first_hex:$HEX, ID:$id) ...\n";
- $filename="utf$face$id-$dir";
- open(OUT, ">ovp/$filename.ovp")||die "$!";
- &fonthead;
- foreach $l (0 .. $#ln){
- next if ($exist_head[$first_hex]!~/$ln[$l]/);
- print OUT "(MAPFONT D $l\n (FONTNAME otf-u$lang[$l]$face-$dir)\n";
- &fontfoot;
- }
- &writechar($first_hex, @ln);
- close(OUT);
- unless ($debug){
- system("$ovp2ovf ovp/$filename.ovp vf/$filename.vf vf/$filename.ofm");
- unlink "vf/$filename.ofm";
- }
- }
-}
-
-sub make_ucs_vf_body {
- my ($face, $dir, $lang)=@_;
-
- {
- $id = '-';
- warn "now processing (face:$face, dir:$dir, lang:$lang, ucs vf, ID:$id) ...\n";
- $filename="utf$lang$face$id-$dir";
- open(OUT, ">ovp/$filename.ovp")||die "$!";
- &fonthead;
- print OUT "(MAPFONT D 0\n (FONTNAME otf-u$lang$face-$dir)\n";
- &fontfoot;
- &writechar_ucs($dir) if ($lang eq 'j');
- close(OUT);
- unless ($debug){
- system("$ovp2ovf ovp/$filename.ovp vf/$filename.vf vf/$filename.ofm");
- unlink "vf/$filename.ofm";
- }
- }
-}
-
-sub fonthead {
-print OUT <<END_OF_DATA;
-(VTITLE JVF for UTF16)
-(OFMLEVEL D 0)
-(DESIGNSIZE R 10.000000)
-(CHECKSUM O 0)
-END_OF_DATA
-}
-
-sub fontfoot {
-print OUT <<END_OF_DATA;
- (FONTCHECKSUM O 0)
- (FONTAT R 1.0)
- (FONTDSIZE R 10.000000)
- )
-END_OF_DATA
-}
-
-sub writechar {
- my ($hex, @ln) = @_;
- my $lang = join ',', @ln;
- my %exist_char=%{$MakeSPList::r_exist_char->{$lang}};
-
- foreach $ku (16 .. 79){
- foreach $ten (16 .. 79){
- $jis=sprintf("%X", $ku*256 + $ten + 0x2020);
- $uni=sprintf("%X", $hex*0x1000 + ($ku-16)*64 + ($ten-16));
- my $echr=$exist_char{$uni};
- if ($echr) {
- #warn("lang: $lang, jis: $jis, uni: $uni\n");
- print OUT "(CHARACTER H $jis (CHARWD R 1.0) (MAP \n";
- if (@ln>1 && $echr !~ $ln[0]) {
- foreach $l (1 .. $#ln) {
- if ($echr =~ /$ln[$l]/){
- print OUT " (SELECTFONT D $lang_id{$ln[$l]})\n";
- last;
- }
- }
- }
- print OUT " (SETCHAR H $uni)))\n";
- }
- }
- }
-}
-
-sub writechar_ucs {
- my ($dir) = @_;
- my $wd = $dir eq 'h' ? '0.5' : '1.0';
- foreach $uni (0xFF61 .. 0xFF9F){
- my $uniX = sprintf("%X", $uni);
- print OUT "(CHARACTER H $uniX (CHARWD R $wd) (MAP \n";
- print OUT " (SETCHAR H $uniX)))\n";
- }
-}
diff --git a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_c.txt b/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_c.txt
deleted file mode 100644
index a4699d6ea82..00000000000
--- a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_c.txt
+++ /dev/null
@@ -1,17 +0,0 @@
-%
-% This file is generated from the data of UniGB-UTF32
-% in cid2code.txt (Version 12/05/2017)
-% for Adobe-GB1-5
-%
-% Reference:
-% https://github.com/adobe-type-tools/cmap-resources/
-% Adobe-GB1-5/cid2code.txt
-%
-% A newer CMap may be required for some code points.
-%
-
-
-%Adobe-GB1-2
-20087,20089,200CC,215D7,2298F,20509,2099D,241FE
-
-% end
diff --git a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_j.txt b/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_j.txt
deleted file mode 100644
index 2092c5767a7..00000000000
--- a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_j.txt
+++ /dev/null
@@ -1,75 +0,0 @@
-%
-% This file is generated from the data of UniJIS-UTF32
-% in cid2code.txt (Version 07/30/2019)
-% for Adobe-Japan1-7
-%
-% Reference:
-% https://github.com/adobe-type-tools/cmap-resources/
-% Adobe-Japan1-7/cid2code.txt
-%
-% A newer CMap may be required for some code points.
-%
-
-
-%Adobe-Japan1-0
-28CDD,2F8ED,25874,28EF6,2F8DC,2F884,2F877,2F80F,2F8D3,2F818
-21A1A,243D0,2F920,1F100
-
-%Adobe-Japan1-4
-1F110,1F111,1F112,1F113,1F114,1F115,1F116,1F117,1F118,1F119
-1F11A,1F11B,1F11C,1F11D,1F11E,1F11F,1F120,1F121,1F122,1F123
-1F124,1F125,1F126,1F127,1F128,1F129,1F150,1F151,1F152,1F153
-1F154,1F155,1F156,1F157,1F158,1F159,1F15A,1F15B,1F15C,1F15D
-1F15E,1F15F,1F160,1F161,1F162,1F163,1F164,1F165,1F166,1F167
-1F168,1F169,1F130,1F131,1F132,1F133,1F134,1F135,1F136,1F137
-1F138,1F139,1F13A,1F13B,1F13C,1F13D,1F13E,1F13F,1F140,1F141
-1F142,1F143,1F144,1F145,1F146,1F147,1F148,1F149,1F202,1F237
-1F170,1F171,1F172,1F173,1F174,1F175,1F176,1F177,1F178,1F179
-1F17A,1F17B,1F17C,1F17D,1F17E,1F17F,1F180,1F181,1F182,1F183
-1F184,1F185,1F186,1F187,1F188,1F189,1F79C,2F945,2090E,26951
-2B7D8,2F8FC,2F995,2F8EA,2F822,26222,20BB7,29D4B,2F833,2B78E
-2F8AC,20A64,2F903,2B746,2B777,2F90B,20B9F,2F828,2F921,2F83F
-2F873,2D544,2000B,2F852,2967F,2F947,201A2,2E569,2B751,2F8B2
-27FB7,23CFE,2F91A,25AD7,2F89A,2F90F,2123D,2F81A,24D14,2F862
-2B789,2F9D0,2F9DF,2567F,266B0,20628,2008A,20984,2F82C,2F86D
-2F8B6,26999,233CC,2F8DB,2A9E6,2B7BD,2F96C,2E278,2053F,2626A
-200B0,2E6EA,28987,28E17,2B81A,242EE,2F8E1,23CBE,20611,2F9F4
-2F804,2363A,233FE,22609
-
-%Adobe-Japan1-5
-2131B,2146E,218BD,216B4,21E34,231C4,235C4,2373F,23763,247F1
-2548E,2550E,25771,259C4,25DA1,26AFF,26E40,270F4,27684,28277
-283CD,2A190,20089,200A2,200A4,20213,2032B,20381,20371,203F9
-2044A,20509,205D6,2074F,20807,2083A,208B9,2097C,2099D,20AD3
-20B1D,20D45,20DE1,20E95,20E6D,20E64,20F5F,21201,21255,2127B
-21274,212E4,212D7,212FD,21336,21344,213C4,2146D,215D7,26C29
-21647,21706,21742,219C3,21C56,21D2D,21D45,21D78,21D62,21DA1
-21D9C,21D92,21DB7,21DE0,21E33,21F1E,21F76,21FFA,2217B,2231E
-223AD,226F3,2285B,228AB,2298F,22AB8,22B4F,22B50,22B46,22C1D
-22BA6,22C24,22DE1,231C3,231F5,231B6,23372,233D3,233D2,233D0
-233E4,233D5,233DA,233DF,2344A,23451,2344B,23465,234E4,2355A
-23594,23639,23647,23638,2371C,2370C,23764,237FF,237E7,23824
-2383D,23A98,23C7F,23D00,23D40,23DFA,23DF9,23DD3,23F7E,24096
-24103,241C6,241FE,243BC,24629,246A5,24896,24A4D,24B56,24B6F
-24C16,24E0E,24E37,24E6A,24E8B,2504A,25055,25122,251A9,251E5
-251CD,2521E,2524C,2542E,254D9,255A7,257A9,257B4,259D4,25AE4
-25AE3,25AF1,25BB2,25C4B,25C64,25E2E,25E56,25E65,25E62,25ED8
-25EC2,25EE8,25F23,25F5C,25FE0,25FD4,2600C,25FFB,26017,26060
-260ED,26270,26286,23D0E,26402,2667E,2671D,268DD,268EA,2696F
-269DD,26A1E,26A58,26A8C,26AB7,26C73,26CDD,26E65,26F94,26FF8
-26FF6,26FF7,2710D,27139,273DB,273DA,273FE,27410,27449,27615
-27614,27631,27693,2770E,27723,27752,27985,27A84,27BB3,27BBE
-27BC7,27CB8,27DA0,27E10,2808A,280BB,28282,282F3,2840C,28455
-2856B,285C8,285C9,286D7,286FA,28949,28946,2896B,28988,289BA
-289BB,28A1E,28A29,28A71,28A43,28A99,28ACD,28AE4,28ADD,28BC1
-28BEF,28D10,28D71,28DFB,28E1F,28E36,28E89,28EEB,28F32,28FF8
-292A0,292B1,29490,295CF,296F0,29719,29750,298C6,29A72,29DDB
-29E15,29E8A,29E49,29EC4,29EE9,29EDB,29FCE,29FD7,2A02F,2A01A
-2A0F9,2A082,22218,2A38C,2A437,2A5F1,2A602,2A6B2,200F5,24E04
-24FF2,27D73,2F815,2F846,2F899,2F8A6,2F8E5,2F9DE,2A2B2,20158
-205B1,206EC,2B753,20D58,2B75A,2B75C,259CC,2B776,22E42,2B77C
-207C8,22FEB,279B4,2B782,2B78B,237F1,2B794,2404B,2B7AC,2B7AF
-2B7C9,2B7CF,2B7D2,26C9E,27C3C,2B7F0,2B765,2B80D,2B817,2634C
-29E3D,2A61A
-
-% end
diff --git a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_k.txt b/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_k.txt
deleted file mode 100644
index 6af3e290ff3..00000000000
--- a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_k.txt
+++ /dev/null
@@ -1,14 +0,0 @@
-%
-% This file is generated from the data of UniKS-UTF32
-% in cid2code.txt (Version 01/31/2012)
-% for Adobe-Korea1-2
-%
-% Reference:
-% https://github.com/adobe-type-tools/cmap-resources/
-% Adobe-Korea1-2/cid2code.txt
-%
-% A newer CMap may be required for some code points.
-%
-
-
-% end
diff --git a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_t.txt b/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_t.txt
deleted file mode 100644
index 084eac51871..00000000000
--- a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/sp_list_t.txt
+++ /dev/null
@@ -1,204 +0,0 @@
-%
-% This file is generated from the data of UniCNS-UTF32
-% in cid2code.txt (Version 10/24/2017)
-% for Adobe-CNS1-7
-%
-% Reference:
-% https://github.com/adobe-type-tools/cmap-resources/
-% Adobe-CNS1-7/cid2code.txt
-%
-% A newer CMap may be required for some code points.
-%
-
-
-%Adobe-CNS1-0
-200CC,2008A,27607
-
-%Adobe-CNS1-1
-23ED7,26ED3,257E0,28BE9,258E1,294D9,259AC,2648D,25C01,2530E
-25CFE,25BB4,26C7F,25D20,25CC1,24882,24578,26E44,26ED6,24057
-26029,217F9,2836D,26121,2615A,262D0,26351,21661,20068,23766
-2833A,26489,2A087,26CC3,22714,26626,23DE3,266E8,28A48,226F6
-26498,2148A,2185E,24A65,24A95,26A52,23D7E,214FD,2F98F,249A7
-23530,21773,23DF8,2F994,20E16,217B4,2317D,2355A,23E8B,26DA3
-26B05,26B97,235CE,26DA5,26ED4,26E42,25BE4,26B96,26E77,26E43
-25C91,25CC0,28625,2863B,27088,21582,270CD,270F0,2F9B2,218A2
-2739A,2A0F8,22C27,275E0,23DB9,275E4,2770F,28A25,27924,27ABD
-27A59,27B3A,27B38,25430,25565,24A7A,216DF,27D54,27D8F,2F9D4
-27D53,27D98,27DBD,21910,2F9D7,28002,21014,2498A,281BC,2710C
-28365,28412,2A29F,20A50,289DE,2853D,23DBB,23262,22325,26ED7
-2853C,27ABE,2856C,2860B,28713,286E6,28933,21E89,255B9,28AC6
-23C9B,28B0C,255DB,20D31,28AE1,28BEB,28AE2,28AE5,28BEC,28C39
-28BFF,286D8,2127C,23E2E,26ED5,28AE0,26CB8,20274,26410,290AF
-290E5,24AD1,21915,2330A,24AE9,291D5,291EB,230B7,230BC,2546C
-29433,2941D,2797A,27175,20630,2415C,25706,26D27,216D3,24A29
-29857,29905,25725,290B1,29BD5,29B05,28600,2307D,29D3E,21863
-29E68,29FB7,2A192,2A1AB,2A0E1,2A123,2A1DF,2A134,2A193,2A220
-2193B,2A233,2A0B9,2A2B4,24364,2A3ED,28C2B,26DA2,2FA1B,2908B
-24975,249BB,249F8,24348,24A51,28BDA,218FA,2897E,28E36,28A44
-2896C,244B9,24473,243F8,217EF,218BE,23599,21885,2542F,217F8
-216FB,21839,21774,218D1,25F4B,216C0,24A25,213FE,212A8,213C6
-214B6,236A6,24994,27165,23E31,2555C,23EFB,27052,236EE,2999D
-26F26,21922,2373F,240E1,2408B,2410F,26C21,266B1,20FDF,20BA8
-20E0D,28B13,24436,20465,25651,201AB,203CB,2030A,20414,202C0
-28EB3,20275,2020C,24A0E,23E8A,23595,23E39,23EBF,21884,23E89
-205E0,204A3,20492,20491,28A9C,2070E,20873,2438C,20C20,249AC
-210E4,20E1D,24ABC,2408D,240C9,20345,20BC6,28A46,216FA,2176F
-21710,25946,219F3,21861,24295,25E83,28BD7,20413,21303,289FB
-21996,2197C,23AEE,21903,21904,218A0,216FE,28A47,21DBA,23472
-289A8,21927,217AB,2173B,275FD,22860,2262B,225AF,225BE,29088
-26F73,2003E,20046,2261B,22C9B,22D07,246D4,2914D,24665,22B6A
-22B22,23450,298EA,22E78,249E3,22D67,22CA1,2308E,232AD,24989
-232AB,232E0,218D9,2943F,23289,231B3,25584,28B22,2558F,216FC
-2555B,25425,23103,2182A,23234,2320F,23182,242C9,26D24,27870
-21DEB,232D2,232E1,25872,2383A,237BC,237A2,233FE,2462A,237D5
-24487,21912,23FC0,23C9A,28BEA,28ACB,2801E,289DC,23F7F,2403C
-2431A,24276,2478F,24725,24AA4,205EB,23EF8,2365F,24A4A,24917
-25FE1,24ADF,28C23,23F35,26DEA,24CD9,24D06,2A5C6,28ACC,249AB
-2498E,24A4E,249C5,248F3,28AE3,21864,25221,251E7,23232,24697
-23781,248F0,24ABA,24AC7,24A96,261AE,25581,27741,256E3,23EFA
-216E6,20D4C,2498C,20299,23DBA,2176E,201D4,20C0D,226F5,25AAF
-25A9C,2025B,25BC6,25BB3,25EBC,25EA6,249F9,217B0,26261,2615C
-27B48,25E82,26B75,20916,2004E,235CF,26412,263F8,2082C,25AE9
-25D43,25E0E,2343F,249F7,265AD,265A0,27127,26CD1,267B4,26A42
-26A51,26DA7,2721B,21840,218A1,218D8,2F9BC,23D8F,27422,25683
-27785,27784,28BF5,28BD9,28B9C,289F9,29448,24284,21845,27DDC
-24C09,22321,217DA,2492F,28A4B,28AFC,28C1D,28C3B,28D34,248FF
-24A42,243EA,23225,28EE7,28E66,28E65,249ED,24A78,23FEE,290B0
-29093,257DF,28989,28C26,28B2F,263BE,2421B,20F26,28BC5,24AB2
-294DA,295D7,28B50,24A67,28B64,28A45,27B06,28B65,258C8,298F1
-29948,21302,249B8,214E8,2271F,23DB8,22781,2296B,29E2D,2A1F5
-2A0FE,24104,2A1B4,2A0ED,2A0F3,2992F,26E12,26FDF,26B82,26DA4
-26E84,26DF0,26E00,237D7,26064,2359C,23640,249DE,202BF,2555D
-21757,231C9,24941,241B5,241AC,26C40,24F97,217B5,28A49,24488
-289FC,218D6,20F1D,26CC0,21413,242FA,22C26,243C1,23DB7,26741
-2615B,260A4,249B9,2498B,289FA,28B63,2189F,24AB3,24A3E,24A94
-217D9,24A66,203A7,21424,249E5,24916,24976,204FE,28ACE,28A16
-28BE7,255D5,28A82,24943,20CFF,2061A,20BEB,20CB8,217FA,216C2
-24A50,21852,28AC0,249AD,218BF,21883,27484,23D5B,28A81,21862
-20AB4,2139C,28218,290E4,27E4F,23FED,23E2D,203F5,28C1C,26BC0
-21452,24362,24A71,22FE3,212B0,223BD,21398,234E5,27BF4,236DF
-28A83,237D6,233FA,24C9F,236AD,26CB7,26D26,26D51,26C82,26FDE
-2173A,26C80,27053,217DB,217B3,21905,241FC,2173C,242A5,24293
-23EF9,27736,2445B,242CA,24259,289E1,26D28,244CE,27E4D,243BD
-24256,21304,243E9,2F825,23300,27AF4,256F6,27B18,27A79,249BA
-20346,27657,25FE2,275FE,2209A,28A9A,2403B,24A45,205CA,20611
-21EA8,23CFF,285E8,299C9,221C3,28B4E,20C78,20779,23F4A,24AA7
-26B52,27632,2493F,233CC,28948,21D90,27C12,24F9A,26BF7,2191C
-249F6,23FEF,2271B,257E1,2F8CD,2F806,24521,24934,26CBD,26411
-290C0,20A11,26469,20021,23519,2258D,2217A,249D0,20EF8,22926
-28473,217B1,24A2A,21820,29CAD,298A4,2160A,2372F,280E8,213C5
-291A8,270AF,289AB,2417A,2A2DF,28318,26E07,2816F,269B5,213ED
-2322F,28C30,28949,24988,24AA5,23F81,21FA1,295E9,2789D,28024
-27A3E,23CB7,26258,29D98,23D40,20E9D,282E2,20C41,20C96,20E76
-22C62,20EA2,21075,22B43,22EB3,20DA7,2688A,20EF9,27FF9,247E0
-29D7C,275A3,26048,24618,29EAC,29FDE,272B2,2048E,20EB6,27F2E
-2A434,243F2,29E06,294D0,26335,20D28,20D71,21F0F,21DD1,2176D
-2B473,28E97,25C21,20CD4,201F2,2A64A,2837D,2A2B2,24ABB,26E05
-2AE67,2251B,2DF3C,28E39,20F3B,25F1A,27486,267CC,24011,2F922
-20547,205DF,23FC5,24942,289E4,219DB,23CC8,24933,289AA,202A0
-26BB3,21305,224ED,26D29,27A84,23600,24AB1,22513,2037E,20380
-20347,2041F,249A4,20487,233B4,20BFF,220FC,202E5,22530,2058E
-23233,21983,205B3,23C99,24AA6,2372D,26B13,2F829,28ADE,23F80
-20954,23FEC,20BE2,21726,216E8,286AB,2F832,21596,21613,28A9B
-25772,20B8F,23FEB,22DA3,20C77,26B53,20D74,2170D,20EDD,20D4D
-289BC,22698,218D7,2403A,24435,210B4,2328A,28B66,2124F,241A5
-26C7E,21416,21454,24363,24BF5,2123C,2A150,24278,2163E,21692
-20D4E,26C81,26D2A,217DC,217FB,217B2,26DA6,21828,216D5,26E45
-249A9,26FA1,22554,21911,216B8,27A0E,20204,21A34,259CC,205A5
-21B44,21CA5,26B28,21DF9,21E37,21EA4,24901,22049,22173,244BC
-20CD3,21771,28482,201C1,2F894,2133A,26888,223D0,22471,26E6E
-28A36,25250,21F6A,270F8,22668,2029E,28A29,227B4,24982,2498F
-27A53,2F8A6,26ED2,20656,23FB7,2285F,28B9D,2995D,22980,228C1
-20118,21770,22E0D,249DF,2138E,217FC,22E36,2571D,24A28,24A23
-24940,21829,23400,231F7,231F8,231A4,231A5,20E75,251E6,23231
-285F4,231C8,25313,228F7,2439C,24A21,237C2,2F8DB,241CD,290ED
-233E6,26DA0,2346F,28ADF,235CD,2363C,28A4A,203C9,23659,2212A
-23703,2919C,20923,227CD,23ADB,21958,23B5A,23EFC,2248B,248F1
-26B51,23DBC,23DBD,241A4,2490C,24900,23CC9,20D32,231F9,22491
-26D25,26DA1,26DEB,2497F,24085,26E72,26F74,28B21,2F908,23E2F
-23F82,2304B,23E30,21497,2403D,29170,24144,24091,24155,24039
-23FF0,23FB4,2413F,24156,24157,24140,261DD,24277,24365,242C1
-2445A,24A27,24A22,28BE8,25605,24974,23044,24823,2882B,28804
-20C3A,26A2E,241E2,216E7,24A24,249B7,2498D,249FB,24A26,2F92F
-228AD,28EB2,24A8C,2415F,24A79,28B8F,28C03,2189E,21988,28ED9
-21A4B,28EAC,24F82,24D13,263F5,26911,2690E,26F9F,2509D,2517D
-21E1C,25220,232AC,28964,28968,216C1,255E0,2760C,2261C,25857
-27B39,27126,2910D,20C42,20D15,2512B,22CC6,20341,24DB8,294E5
-280BE,22C38,2815D,269F2,24DEA,20D7C,20FB4,20CD5,2BAB3,20E96
-20F64,22CA9,28256,244D3,20D46,29A4D,280E9,24EA7,22CC2,295F4
-252C7,297D4,22D44,2BCD7,22BCA,2B977,266DA,26716,279A0,25052
-20C43,28B4C,20731,201A9,22D8D,245C8,204FC,26097,20F4C,22A66
-2109D,20D9C,22775,2A601,20E09,22ACF,2C5F8,210C8,239C2,2829B
-25E49,220C7,22CB2,29720,24E3B,2C9A0,27574,22E8B,22208,2A65B
-28CCD,20E7A,20C34,27639,22BCE,22C51,210C7,2A632,28CD2,28D99
-28CCA,2775E,2F828,2107B,210D3,212FE,247EF,24EA5,24F5C,28189
-2B42C
-
-%Adobe-CNS1-3
-2010C,200D1,200CD,200CB,21FE8,200CA,2010E,21BC1,2F878,20086
-248E9,2626A,2634B,26612,26951,278B2,28E0F,29810,20087,2A3A9
-21145,27735,209E7,29DF6,2700E,2A133,2846C,21DCA,205D0,22AE6
-27D84,210F4,20C0B,278C8,260A5,22D4C,21077,2106F,221A1,20D96
-22CC9,20F31,2681C,210CF,22803,22939,251E3,20E8C,20F8D,20EAA
-20F30,20D47,2114F,20E4C,20EAB,20BA9,20D48,210C0,2113D,22696
-20FAD,233F4,20D7E,20D7F,22C55,20E98,20F2E,26B50,29EC3,22DEE
-26572,280BD,20EFA,20E0F,20E77,20EFB,24DEB,20CD6,227B5,210C9
-20E10,20E78,21078,21148,28207,21455,20E79,24E50,22DA4,2101D
-2101E,210F5,210F6,20E11,27694,282CD,20FB5,20E7B,2517E,20FB6
-21180,252D8,2A2BD,249DA,2183A,24177,2827C,2573D,25B74,2313D
-289C0,23F41,20325,20ED8,25C65,24FB8,20B0D,26B0A,22EEF,23CB5
-26E99,23F8F,24CC9,2A014,286BC,28501,2267A,269A8,2424B,2215B
-2037F,2A45B,249EC,24962,27109,24A4F,24A5D,217DF,23AFA,20214
-208D5,20619,21F9E,2A2B6,2915B,28A59,29420,248F2,25535,20CCF
-27967,21BC2,20094,202B7,203A0,204D7,205D5,20615,20676,216BA
-20AC2,20ACD,20BBF,2F83B,20BCB,20BFB,20C3B,20C53,20C65,20C7C
-20C8D,20CB5,20CDD,20CED,20D6F,20DB2,20DC8,20E04,20E0E,20ED7
-20F90,20F2D,20E73,20FBC,2105C,2104F,21076,21088,21096,210BF
-2112F,2113B,212E3,21375,21336,21577,21619,217C3,217C7,2182D
-2196A,21A2D,21A45,21C2A,21C70,21CAC,21EC8,21ED5,21F15,22045
-2227C,223D7,223FA,2272A,22871,2294F,22967,22993,22AD5,22AE8
-22B0E,22B3F,22C4C,22C88,22CB7,25BE8,22D08,22D12,22DB7,22D95
-22E42,22F74,22FCC,23033,23066,2331F,233DE,23567,235F3,2361A
-23716,23AA7,23E11,23EB9,24119,242EE,2430D,24334,24396,24404
-244D6,24674,2472F,24812,248FB,24A15,24AC0,24F86,2502C,25299
-25419,25446,2546E,2553F,2555E,25562,25566,257C7,2585D,25903
-25AAE,25B89,25C06,26102,261B2,26402,2644A,26484,26488,26512
-265BF,266B5,266FC,26799,2686E,2685E,268C7,26926,26939,269FA
-26A2D,26A34,26B5B,26B9D,26CA4,26DAE,2704B,271CD,27280,27285
-2728B,272E6,27450,277CC,27858,279DD,279FD,27A0A,27B0B,27D66
-28009,28023,28048,28083,28090,280F4,2812E,2814F,281AF,2821A
-28306,2832F,2838A,28468,286AA,28956,289B8,289E7,289E8,28B46
-28BD4,28C09,28FC5,290EC,29110,2913C,2915E,24ACA,294E7,295B0
-295B8,29732,298D1,29949,2996A,299C3,29A28,29B0E,29D5A,29D9B
-29EF8,29F23,2A293,2A2FF,2A5CB,20C9C,224B0,24A93,28B2C,217F5
-28B6C,28B99,266AF,27655,25635,25956,25E81,20E6D,23E88,24C9E
-217F6,2187B,25C4A,25311,25ED8,20FEA,20D49,236BA,25148,210C1
-24706,26893,226F4,27D2F,241A3,27D73,26ED0,272B6,211D9,23CFC
-2A6A9,20EAC,21CA2,24FC2,20FEB,22DA0,20FEC,20E0A,20FED,21187
-24B6E,25A95,20979,22465,23CFE,29F30,24FA9,2959E,23DB6,267B3
-23720,23EF7,23E2C,230DA,212A9,24963,270AE,2176C,27164,26D22
-24AE2,2493E,26D23,203FC,23CFD,24919,24A77,28A5A,2F840,2183B
-26159,233F5,28BC2,21D46,26ED1,28B2D,23CC7,25ED7,27656,25531
-21944,29903,26DDC,270AD,261AD,28A0F,23677,200EE,26846,24F0E
-2634C,2626B,21877,2408C,2307E,21E3D,203B5,205C3,21376,24A12
-28B2B,26083
-
-%Adobe-CNS1-4
-29C73,2414E,251CD,25D30,28A32,23281,2A107,21980,2870F,2A2BA
-29947,28AEA,2207E,289E3,21DB6,22712,233F9,23C63,24505,24A13
-25CA4,25695,28DB9,2143F,2497B,2710D,26D74,26B15,26FBE
-
-%Adobe-CNS1-5
-27267,27CB1,27CC5,242BF,23617,27352,26E8B,270D2,2A351,27C6C
-26B23,25A54,21A63,23E06,23F61,28BB9,27BEF,21D5E,29EB0,29945
-20A6F,23256,22796,23B1A,23551,240EC,21E23,201A4,26C41,20239
-298FA,20B9F,221C1,2896D,29079,2A1B5,26C46,286B2,273FF,2549A
-24B0F
-
-%Adobe-CNS1-6
-21D53,2369E,26021,258DE,24161,2890D,231EA,20A8A,2325E,25DB9
-2368E,27B65,26E88,25D99,224BC,224C1,224C9,224CC,235BB,2ADFF
-
-
-% end
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
deleted file mode 100755
index 26208884540..00000000000
--- a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkpkana.pl
+++ /dev/null
@@ -1,602 +0,0 @@
-#!/usr/bin/perl -s
-
-=head1 NOTE
-
-This software is a part of otfbeta-uptex (a.k.a. japanese-otf-uptex).
-
-=cut
-
-use Encode;
-use FindBin;
-use lib "$FindBin::Bin";
-use CheckDVICode;
-
-if ($sp==1) { # supplemental plane
- use MakeSPList;
- &make_sp_char_list('j');
- %exist_char=%{$MakeSPList::r_exist_char->{'j'}};
-}
-
-$_=<DATA>;
-while(<DATA>) {
- chomp($_);
- my (@data)=split(' ', $_);
- my ($char);
- last if (@data<6);
- $char = shift @data;
- push @character, $char;
- $cid {$char}=shift @data;
- $min_w3 {$char}=shift @data;
- $min_w6 {$char}=shift @data;
- $goth_w3{$char}=shift @data;
- $goth_w6{$char}=shift @data;
- $maru_w4{$char}=shift @data;
-}
-
-@charwidth=({%min_w3}, {%min_w6}, {%goth_w3}, {%goth_w6}, {%maru_w4});
-@font_name=("phiraminw3-h", "phiraminw6-h", "phirakakuw3-h", "phirakakuw6-h", "phiramaruw4-h");
-@kanji_font_name=("hminr-h", "hminb-h", "hgothr-h", "hgothb-h", "hmgothr-h");
-@kana_font_name=("hiramin-w3-h", "hiramin-w6-h", "hirakaku-w3-h", "hirakaku-w6-h", "hiramaru-w4-h");
-$font_at=1.0;
-$half_width= ($font_at / 2);
-$quater_width= ($font_at / 4);
-opendir(OVP, "ovp") || mkdir("ovp",0755) || die "cannot mkdir ovp";
-opendir(VF, "vf") || mkdir("vf",0755) || die "cannot mkdir vf";
-opendir(JPL, "pl") || mkdir("pl",0755) || die "cannot mkdir pl";
-opendir(JFM, "tfm") || mkdir("tfm",0755) || die "cannot mkdir tfm";
-closedir(OVP);
-closedir(VF);
-closedir(JPL);
-closedir(JFM);
-
-$n_fixed=7; ## type 0..6
-$ucs=1; # 1: upphiraXXX or 0: phiraXXX
-if ($ucs) {
- $CheckDVICode::is_ucs=1;
- foreach(@font_name, @kanji_font_name) {
- $_="up$_";
- }
- if ($hk) { ## command line option -hk: Enable halfwidth katakana
- $hk_mode=1;
- $n_fixed=8; ## type 0..7
- }
-}
-
-#main
-for ($i=0; $i<=4; $i++){
- open (JPL, ">pl/$font_name[$i].pl");
- &tfm_head_h;
- &chars_in_type_jis;
- &chars_in_type_prop;
- &print_type_jis;
- &print_type_prop;
- &glue_kern;
- close(JPL);
-}
-for ($i=0; $i<=4; $i++){
- @cpm_h=(0x29E, 0x29F, 0x2A0, 0x2A1);
- open (OVP, ">ovp/$font_name[$i].ovp");
- &fonthead;
- &write_char;
- close(OVP);
-}
-#
-#sub rtn
-#
-sub tfm_head_h {
- print JPL "(FAMILY PROP KANA)\n";
- print JPL "(FACE F MRR)\n";
- print JPL "(CODINGSCHEME TEX KANJI TEXT)\n";
- print JPL "(DESIGNSIZE R 10.0)\n";
- print JPL "(CHECKSUM O 0)\n";
- print JPL "(SEVENBITSAFEFLAG TRUE)\n";
- print JPL "(FONTDIMEN\n";
- print JPL " (SLANT R 0.0)\n";
- print JPL " (SPACE R 0.0)\n";
- printf JPL " (STRETCH R %f)\n", $font_at/10;
- print JPL " (SHRINK R 0.0)\n";
- printf JPL " (XHEIGHT R %f)\n", $font_at;
- printf JPL " (QUAD R %f)\n", $font_at;
- printf JPL " (EXTRASPACE R %f)\n", $font_at/4;
- printf JPL " (EXTRASTRETCH R %f)\n", $font_at/5;
- printf JPL " (EXTRASHRINK R %f)\n", $font_at/8;
- print JPL " )\n";
-}
-sub char_foot_h {
- printf JPL " (CHARHT R %f)\n", $font_at*0.88;
- printf JPL " (CHARDP R %f)\n", $font_at*0.12;
- print JPL " )\n";
-}
-sub glue_kern{
- print JPL "(GLUEKERN\n";
- print JPL " (LABEL O 5)\n";
- print JPL " (KRN O 5 R 0.0)\n";
- print JPL " (LABEL O 0)\n";
- for ($char=0; $char<=$#uniq_char_width_array; $char++){
- printf JPL " (LABEL H %X)\n",($char+$n_fixed);
- }
- printf JPL " (GLUE O 1 R %f R 0.0 R %f)\n", $half_width, $half_width;
- print JPL " (LABEL O 1)\n";
- printf JPL " (GLUE O 3 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- print JPL " (STOP)\n";
- 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;
- printf JPL " (GLUE O 7 R %f R 0.0 R %f)\n", $half_width, $half_width if $hk_mode;
- print JPL " (STOP)\n";
- if ($hk_mode) {
- print JPL " (LABEL O 7)\n";
- printf JPL " (GLUE O 1 R %f R 0.0 R %f)\n", $half_width, $half_width;
- printf JPL " (GLUE O 3 R %f R 0.0 R %f)\n", $quater_width, $quater_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;
- printf JPL " (GLUE O 3 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- for ($char=0; $char<=$#uniq_char_width_array; $char++){
- printf JPL " (GLUE H %X R %f R 0.0 R %f)\n",($char+$n_fixed), $half_width, $half_width;
- }
- print JPL " (STOP)\n";
- print JPL " (LABEL O 4)\n";
- printf JPL " (GLUE O 0 R %f R 0.0 R 0.0)\n", $half_width;
- printf JPL " (GLUE O 1 R %f R 0.0 R 0.0)\n", $half_width;
- printf JPL " (GLUE O 3 R %f R 0.0 R %f)\n", $half_width+$quater_width, $quater_width;
- printf JPL " (GLUE O 5 R %f R 0.0 R 0.0)\n", $half_width;
- printf JPL " (GLUE O 6 R %f R 0.0 R 0.0)\n", $half_width;
- printf JPL " (GLUE O 7 R %f R 0.0 R %f)\n", $half_width, $half_width if $hk_mode;
- for ($char=0; $char<=$#uniq_char_width_array; $char++){
- printf JPL " (GLUE H %X R %f R 0.0 R 0.0)\n",($char+$n_fixed), $half_width;
- }
- print JPL " (STOP)\n";
- print JPL " (LABEL O 3)\n";
- printf JPL " (GLUE O 0 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- printf JPL " (GLUE O 1 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- printf JPL " (GLUE O 2 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- printf JPL " (GLUE O 3 R %f R 0.0 R %f)\n", $half_width, $quater_width;
- printf JPL " (GLUE O 4 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- printf JPL " (GLUE O 5 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- printf JPL " (GLUE O 6 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- printf JPL " (GLUE O 7 R %f R 0.0 R %f)\n", $half_width, $half_width if $hk_mode;
- for ($char=0; $char<=$#uniq_char_width_array; $char++){
- printf JPL " (GLUE H %X R %f R 0.0 R %f)\n",($char+$n_fixed), $quater_width, $quater_width;
- }
- print JPL " (STOP)\n";
- print JPL " )\n";
-}
-sub chars_in_type_jis{
- 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 = "— … ‥";
- }
-print JPL <<END_OF_DATA;
-(CHARSINTYPE O 1
- ‘ “ ( 〔 [ { 〈 《 「 『 【
- $type1add
- )
-(CHARSINTYPE O 2
- 、 , ’ ” ) 〕 ] } 〉 》 」 』 】
- $type2add
- )
-(CHARSINTYPE O 3
- ・ : ;
- $type3add
- )
-(CHARSINTYPE O 4
- 。 .
- )
-(CHARSINTYPE O 5
- $type5
- )
-(CHARSINTYPE O 6
- ? !
- $type6add
- )
-END_OF_DATA
-print JPL <<END_OF_DATA if ($hk_mode) ; ## Halfwidth Katakana
-(CHARSINTYPE O 7
- UFF61 UFF62 UFF63 UFF64 UFF65 UFF66 UFF67
- UFF68 UFF69 UFF6A UFF6B UFF6C UFF6D UFF6E UFF6F
- UFF70 UFF71 UFF72 UFF73 UFF74 UFF75 UFF76 UFF77
- UFF78 UFF79 UFF7A UFF7B UFF7C UFF7D UFF7E UFF7F
- UFF80 UFF81 UFF82 UFF83 UFF84 UFF85 UFF86 UFF87
- UFF88 UFF89 UFF8A UFF8B UFF8C UFF8D UFF8E UFF8F
- UFF90 UFF91 UFF92 UFF93 UFF94 UFF95 UFF96 UFF97
- UFF98 UFF99 UFF9A UFF9B UFF9C UFF9D UFF9E UFF9F
- )
-END_OF_DATA
-}
-sub print_type_jis{
- @type_width=($font_at, $half_width, $half_width, $half_width, $half_width, $font_at, $font_at);
- if ($hk_mode) { push @type_width, $half_width; }
- for ($k=0; $k<$n_fixed; $k++){
- printf JPL "(TYPE H %x\n", $k;
- printf JPL " (CHARWD R %f)\n", $type_width[$k];
- &char_foot_h;
- }
-}
-sub fonthead {
- print OVP "(VTITLE Prop Kana)\n";
- print OVP "(OFMLEVEL D 0)\n";
- print OVP "(DESIGNSIZE R 10.000000)\n";
- print OVP "(CHECKSUM O 0)\n";
- print OVP "(MAPFONT D 1\n";
- print OVP " (FONTNAME $kanji_font_name[$i])\n";
- print OVP " (FONTCHECKSUM O 0)\n";
- printf OVP " (FONTAT R %f)\n", $font_at;
- print OVP " (FONTDSIZE R 10.000000)\n";
- print OVP " )\n";
- print OVP "(MAPFONT D 2\n";
- print OVP " (FONTNAME $kana_font_name[$i])\n";
- print OVP " (FONTCHECKSUM O 0)\n";
- printf OVP " (FONTAT R %f)\n", $font_at;
- print OVP " (FONTDSIZE R 10.000000)\n";
- print OVP " )\n";
-}
-sub write_char {
- if (!$ucs) {
- for ($ku=1; $ku<=94; $ku++){
- for ($ten=1; $ten<=94; $ten++){
- $dvicode=($ku+32)*256+($ten+32);
- if ($ku==1){&print_kigo_char;}elsif($ku==4){&print_kana_char;}
- elsif($ku==5){&print_kana_char;}else{&print_char;}
- }
- }
- } else { # ucs
- $max_ucs= $sp ? 0x2FA1F : 0xFFFF; # U+2FA1F: max of CJK Compatibility Ideographs Supplement
- for ($ucscode=0; $ucscode<=$max_ucs; $ucscode++){
- $CheckDVICode::dvicode=$dvicode=$ucscode;
- next unless (&is_ucs_jpn_range);
- if ($sp==1 && $ucscode>0xFFFF) {
- next unless ($exist_char{sprintf("%X",$ucscode)});
- }
- if (&is_ucs_kigo){&print_kigo_char;}
- elsif(&is_ucs_hira || &is_dvicode('hira-yori')){&print_kana_char;}
- elsif(&is_ucs_kata || &is_dvicode('kata-koto')){&print_kana_char;}
- elsif(&is_ucs_hankana && $hk_mode){&print_hankana_char;}
- else{&print_char;}
- }
- }
-}
-sub print_char{
- return if ($omitfw);
- printf OVP "(CHARACTER H %X\n", $dvicode;
- printf OVP " (CHARWD R %f)\n", $font_at;
- print OVP " (MAP\n";
- printf OVP " (SETCHAR H %X)\n",$dvicode;
- print OVP " )\n";
- print OVP " )\n";
-}
-sub print_kigo_char{
- my ($width,$cid);
- printf OVP "(CHARACTER H %X\n", $dvicode;
- if (&is_dvicode('quote') || &is_dvicode('kakko')){#Kakko
- $width=$half_width;
- } elsif (&is_dvicode('kutouten')){#Kutouten
- $width=$half_width;
- } elsif (&is_dvicode('odoriji')){#odoriji
- ($width,$cid)=&get_charwidth($i,$dvicode);
- $width/=10;
- } else{
- $width=$font_at;
- }
- printf OVP " (CHARWD R %f)\n", $width;
- print OVP " (MAP\n";
- if (&is_dvicode('odoriji')){#odoriji
- print OVP " (SELECTFONT D 2)\n";
- } elsif ($ucs && &is_dvicode('quote')){#Quote
- print OVP " (SELECTFONT D 2)\n";
- }
- if (&is_dvicode('nakaten') || &is_dvicode('colon') || &is_dvicode('semicolon')){#colon, semicolon, nakaten
- printf OVP " (MOVERIGHT R -%f)\n",$quater_width;}
- if ((&is_dvicode('quote') || &is_dvicode('kakko')) && &is_dvicode('open')){#Kakko
- printf OVP " (MOVERIGHT R -%f)\n",$half_width;
- }
- if (&is_dvicode('odoriji')){#odoriji
- printf OVP " (SETCHAR H %X)\n",$cid;
- } elsif ($ucs && &is_dvicode('quote')){#Quote
- $cpmcode= shift(@cpm_h);
- printf OVP " (SETCHAR H %X)\n",$cpmcode;
- } else {
- printf OVP " (SETCHAR H %X)\n",$dvicode;
- }
- print OVP " )\n";
- print OVP " )\n";
-}
-sub print_kana_char{
- my ($width,$cid)=&get_charwidth($i,$dvicode);
- if ($width==0) {
- return &print_char;
- }
- $width/=10;
- printf OVP "(CHARACTER H %X\n", $dvicode;
- printf OVP " (CHARWD R %f)\n", $width;
- print OVP " (MAP\n";
- print OVP " (SELECTFONT D 2)\n";
- printf OVP " (SETCHAR H %X)\n",$cid;
- print OVP " )\n";
- print OVP " )\n";
-}
-sub print_hankana_char{
- printf OVP "(CHARACTER H %X\n", $dvicode;
- printf OVP " (CHARWD R %f)\n", $half_width;
- print OVP " (MAP\n";
- printf OVP " (SETCHAR H %X)\n",$dvicode;
- print OVP " )\n";
- print OVP " )\n";
-}
-sub chars_in_type_prop{
- %char_width_hash=();
- for ($j=0; $j<@character; $j++){
- my ($c0, $c1);
- $c0=$c1=$character[$j];
- if (!$ucs) {
- if (!Encode::from_to($c1,'utf-8','euc-jp', Encode::FB_QUIET)
- || $c0 eq "〃"
- || $c0 eq "〆") { next; }
- }
- $char_width_hash{$c0}=$charwidth[$i]{$c0}/10;
- }
- $x = '-';
- @uniq_char_width_array = grep( $_ ne $x && ($x = $_), sort values(%char_width_hash));
- for ($j=0; $j<=$#uniq_char_width_array; $j++){
- printf JPL "(CHARSINTYPE H %X\n",($j+$n_fixed);
- print JPL " ";
- @char_in_this_type = ();
- while (($name, $value) = each(%char_width_hash)) {
- if ($value == $uniq_char_width_array[$j]){
- push(@char_in_this_type, $name);
- }
- }
- @char_in_this_type = sort @char_in_this_type;
- foreach $char_in_this(@char_in_this_type){
- print JPL "$char_in_this ";#character
- }
- print JPL "\n";
- print JPL " )\n";
- }
-}
-sub print_type_prop{
- for ($j=0; $j<=$#uniq_char_width_array; $j++){
- $char_width=$uniq_char_width_array[$j];
- printf JPL "(TYPE H %X\n", ($j+$n_fixed);
- printf JPL " (CHARWD R %f)\n", $char_width;
- &char_foot_h;
- }
-}
-
-sub get_charwidth{
- my ($i,$dvicode)=@_;
- my ($char,$u,$l);
-
- if (!$ucs) {
- if ($dvicode>=0x2474 && $dvicode<=0x2476) {
- return 0;
- }
- $u = ($dvicode >> 8) & 0xFF | 0x80;
- $l = $dvicode & 0xFF | 0x80;
- $char = pack("C*",$u,$l);
- Encode::from_to($char,'euc-jp','utf-8');
- } else {
- $u = ($dvicode >> 8) & 0xFF;
- $l = $dvicode & 0xFF;
- $char = pack("C*",$u,$l);
- Encode::from_to($char,'utf-16be','utf-8');
- }
- if (!exists($charwidth[$i]{$char})) {
- return 0;
- }
- return ($charwidth[$i]{$char}, $cid{$char});
-}
-
-
-__DATA__
-character cid min_w3 min_w6 goth_w3 goth_w6 maru_w4
-ヽ 15449 7.11 7.54 7.19 7.49 7.45
-ヾ 15450 7.68 7.95 7.69 8 8.15
-ゝ 15451 7.17 7.43 7.23 7.53 7.63
-ゞ 15452 7.79 7.97 7.72 8.09 8.08
-ー 15455 9.9 10 10 10 10
-ぁ 15517 8.21 8.44 8.56 8.77 8.72
-あ 15518 8.83 9.17 9.18 9.41 9.32
-ぃ 15519 8.56 8.72 8.67 8.95 8.97
-い 15520 9.14 9.46 9.3 9.52 9.58
-ぅ 15521 7.3 7.65 8.08 8.27 8.32
-う 15522 7.68 8.04 8.51 8.74 8.78
-ぇ 15523 7.97 8.2 8.34 8.56 8.61
-え 15524 8.69 8.95 9.14 9.33 9.36
-ぉ 15525 8.59 8.9 8.77 9.02 8.97
-お 15526 9.15 9.52 9.37 9.62 9.54
-か 15527 9.53 9.81 9.49 9.72 9.58
-が 15528 9.69 9.93 9.68 9.82 9.79
-き 15529 8.34 8.64 8.87 9.09 9.15
-ぎ 15530 9.09 9.42 9.49 9.49 9.66
-く 15531 6.76 7.04 7.64 7.92 8.04
-ぐ 15532 8.31 8.52 8.34 8.5 8.72
-け 15533 9.07 9.35 9.16 9.37 9.39
-げ 15534 9.56 9.75 9.66 9.82 9.78
-こ 15535 8.05 8.3 8.37 8.65 8.88
-ご 15536 8.91 9.08 8.9 9 9.27
-さ 15537 8.26 8.61 8.71 9.02 9.03
-ざ 15538 9.19 9.53 8.97 9.3 9.34
-し 15539 8.07 8.51 8.58 8.84 8.91
-じ 15540 8.17 8.62 8.65 8.94 9
-す 15541 9.16 9.44 9.17 9.33 9.41
-ず 15542 9.52 9.63 9.53 9.66 9.72
-せ 15543 9.52 9.76 9.44 9.65 9.61
-ぜ 15544 9.79 9.92 9.73 9.86 9.87
-そ 15545 8.59 8.93 9.27 9.48 9.43
-ぞ 15546 9.25 9.49 9.4 9.64 9.69
-た 15547 8.94 9.25 9.22 9.45 9.37
-だ 15548 9.23 9.44 9.28 9.51 9.57
-ち 15549 8.5 8.77 8.83 9.05 9.11
-ぢ 15550 8.98 9.25 8.92 9.16 9.28
-っ 15551 8.81 8.97 8.66 8.84 8.83
-つ 15552 9.39 9.71 9.26 9.41 9.44
-づ 15553 9.65 9.8 9.54 9.68 9.71
-て 15554 8.91 9.11 8.93 9.12 9.25
-で 15555 9.3 9.5 9.26 9.42 9.5
-と 15556 7.62 7.89 8.3 8.62 8.66
-ど 15557 8.45 8.72 8.56 8.78 8.88
-な 15558 9.08 9.42 9.45 9.66 9.55
-に 15559 8.94 9.18 9.16 9.42 9.38
-ぬ 15560 9.41 9.67 9.51 9.72 9.62
-ね 15561 9.51 9.73 9.67 9.82 9.83
-の 15562 9.29 9.57 9.35 9.69 9.58
-は 15563 9.13 9.45 9.44 9.69 9.56
-ば 15564 9.69 9.79 9.73 9.85 9.8
-ぱ 15565 9.58 9.77 9.66 9.8 9.75
-ひ 15566 8.98 9.33 9.26 9.52 9.52
-び 15567 9.27 9.49 9.48 9.71 9.62
-ぴ 15568 9.33 9.53 9.39 9.63 9.63
-ふ 15569 9.19 9.44 9.4 9.62 9.52
-ぶ 15570 9.33 9.59 9.61 9.78 9.74
-ぷ 15571 9.36 9.59 9.51 9.73 9.74
-へ 15572 9.71 9.97 9.69 9.76 9.73
-べ 15573 9.54 9.84 9.64 9.76 9.72
-ぺ 15574 9.51 9.82 9.5 9.73 9.69
-ほ 15575 9.14 9.49 9.48 9.73 9.62
-ぼ 15576 9.73 9.9 9.79 9.88 9.93
-ぽ 15577 9.77 9.92 9.72 9.9 9.88
-ま 15578 8.32 8.62 8.98 9.24 9.28
-み 15579 9.07 9.38 9.38 9.62 9.57
-む 15580 9.22 9.57 9.33 9.52 9.48
-め 15581 9.03 9.36 9.27 9.54 9.48
-も 15582 8.08 8.34 8.82 9.1 9.15
-ゃ 15583 8.68 8.93 8.72 8.9 8.9
-や 15584 9.38 9.62 9.25 9.49 9.46
-ゅ 15585 8.74 8.95 8.78 8.98 9
-ゆ 15586 9.33 9.64 9.41 9.63 9.62
-ょ 15587 7.64 7.85 8.09 8.36 8.45
-よ 15588 8.1 8.41 8.63 8.95 9.04
-ら 15589 8.14 8.39 8.59 8.81 8.94
-り 15590 7.69 8.09 8.33 8.59 8.71
-る 15591 8.2 8.55 8.86 9.11 9.12
-れ 15592 9.76 9.96 9.62 9.82 9.81
-ろ 15593 8.38 8.63 8.7 8.94 9.09
-ゎ 15594 8.58 8.83 8.82 9.07 9.02
-わ 15595 9.24 9.58 9.46 9.71 9.66
-ゐ 15596 8.77 9.12 9.02 9.29 9.35
-ゑ 15597 9.14 9.32 9.34 9.53 9.5
-を 15598 8.78 9.14 9.05 9.33 9.45
-ん 15599 9.13 9.39 9.2 9.47 9.39
-ァ 15608 8.01 8.28 8.37 8.61 8.5
-ア 15609 8.69 9.01 9 9.24 9.17
-ィ 15610 7.6 7.78 8.26 8.44 8.33
-イ 15611 8.2 8.43 8.91 9.13 8.96
-ゥ 15612 7.89 8.24 8.4 8.61 8.72
-ウ 15613 8.4 8.67 8.81 9.06 9.18
-ェ 15614 8.44 8.63 8.63 8.83 8.73
-エ 15615 9.23 9.5 9.36 9.52 9.36
-ォ 15616 8.34 8.57 8.66 8.88 8.69
-オ 15617 8.94 9.26 9.18 9.39 9.32
-カ 15618 8.64 8.9 9.04 9.33 9.23
-ガ 15619 9.39 9.53 9.37 9.53 9.55
-キ 15620 8.76 9.19 9.27 9.45 9.34
-ギ 15621 9.05 9.4 9.31 9.54 9.55
-ク 15622 8.25 8.6 8.68 8.96 8.9
-グ 15623 9.06 9.37 9.55 9.57 9.67
-ケ 15624 8.84 9.05 9.28 9.43 9.41
-ゲ 15625 9.28 9.42 9.52 9.66 9.69
-コ 15626 8.49 8.83 8.88 9.15 9.16
-ゴ 15627 9.1 9.3 9.4 9.59 9.55
-サ 15628 9.16 9.44 9.26 9.42 9.46
-ザ 15629 9.46 9.68 9.62 9.72 9.8
-シ 15630 9.02 9.22 8.94 9.22 9.32
-ジ 15631 8.99 9.22 9.42 9.5 9.74
-ス 15632 8.68 8.96 9.06 9.32 9.25
-ズ 15633 9.24 9.48 9.5 9.73 9.67
-セ 15634 9.02 9.4 9.17 9.36 9.33
-ゼ 15635 9.44 9.71 9.54 9.63 9.63
-ソ 15636 8.23 8.49 8.47 8.76 8.8
-ゾ 15637 9.13 9.3 9.04 9.19 9.44
-タ 15638 8.41 8.78 8.75 9 8.95
-ダ 15639 9.32 9.56 9.67 9.65 9.73
-チ 15640 8.91 9.27 9.25 9.48 9.36
-ヂ 15641 9.36 9.64 9.55 9.63 9.61
-ッ 15642 7.86 8.12 8.15 8.4 8.48
-ツ 15643 8.44 8.73 8.86 9.13 9.04
-ヅ 15644 9.24 9.43 9.41 9.53 9.57
-テ 15645 8.85 9.2 9.22 9.38 9.33
-デ 15646 9.37 9.58 9.64 9.67 9.74
-ト 15647 7.25 7.6 8.02 8.3 8.57
-ド 15648 7.95 8.16 8.26 8.48 8.7
-ナ 15649 8.84 9.22 9.13 9.32 9.26
-ニ 15650 9.21 9.52 9.23 9.42 9.22
-ヌ 15651 8.11 8.42 8.46 8.7 8.79
-ネ 15652 9 9.27 9.23 9.46 9.4
-ノ 15653 7.81 8.17 8.4 8.7 8.66
-ハ 15654 9.46 9.77 9.45 9.66 9.41
-バ 15655 9.58 9.76 9.63 9.78 9.56
-パ 15656 9.45 9.71 9.53 9.75 9.55
-ヒ 15657 8.14 8.42 8.6 8.88 8.84
-ビ 15658 8.76 9 9.23 9.41 9.46
-ピ 15659 8.66 8.9 9.15 9.33 9.4
-フ 15660 8.12 8.46 8.57 8.81 8.91
-ブ 15661 9.05 9.3 9.27 9.42 9.73
-プ 15662 9.05 9.27 9.11 9.31 9.73
-ヘ 15663 9.68 9.95 9.62 9.77 9.66
-ベ 15664 9.44 9.77 9.56 9.73 9.62
-ペ 15665 9.42 9.77 9.56 9.71 9.59
-ホ 15666 8.85 9.19 9.46 9.67 9.52
-ボ 15667 9.14 9.39 9.51 9.71 9.69
-ポ 15668 8.81 9.24 9.5 9.72 9.71
-マ 15669 8.86 9.17 8.99 9.19 9.17
-ミ 15670 7.57 7.9 8.39 8.64 8.87
-ム 15671 8.56 8.87 9.2 9.4 9.39
-メ 15672 8.2 8.55 8.64 8.92 8.81
-モ 15673 9.09 9.41 9.42 9.61 9.49
-ャ 15674 8.39 8.69 8.49 8.73 8.73
-ヤ 15675 8.95 9.24 9.16 9.39 9.31
-ュ 15676 8.38 8.61 8.43 8.65 8.61
-ユ 15677 9.18 9.57 9.22 9.37 9.35
-ョ 15678 7.94 8.23 8.44 8.72 8.74
-ヨ 15679 8.37 8.74 8.91 9.19 9.22
-ラ 15680 8.08 8.41 8.71 8.97 8.95
-リ 15681 7.6 7.91 8.16 8.43 8.63
-ル 15682 9.27 9.69 9.46 9.64 9.49
-レ 15683 8.46 8.8 8.61 8.9 9.01
-ロ 15684 8.51 8.95 9.26 9.51 9.54
-ヮ 15685 7.77 8.09 8.32 8.51 8.71
-ワ 15686 8.34 8.67 8.71 8.97 9.02
-ヰ 15687 9.19 9.5 9.47 9.64 9.57
-ヱ 15688 9.19 9.51 9.32 9.52 9.35
-ヲ 15689 8.01 8.39 8.49 8.76 8.93
-ン 15690 8.71 9.03 8.85 9.12 9.04
-ヴ 15691 9.06 9.34 9.33 9.51 9.66
-ヵ 15692 8.11 8.33 8.51 8.8 8.74
-ヶ 15693 8.18 8.39 8.63 8.74 8.73
-〃 15453 7.69 8.15 8.29 8.62 8.36
-〆 15454 8.69 9.03 9.09 9.33 9.15
-ヿ 15462 8.09 8.42 8.6 8.83 8.87
-ゟ 15463 8.03 8.27 8.82 9.19 8.93
-ゔ 15600 8.73 9.06 9.27 9.47 9.44
-ゕ 15601 8.75 9.02 8.82 9.06 8.95
-ゖ 15602 8.36 8.64 8.55 8.78 8.73
-ㇰ 15702 7.68 8.03 8.02 8.34 8.43
-ㇱ 15703 8.39 8.58 8.43 8.67 8.66
-ㇲ 15704 8 8.19 8.3 8.59 8.55
-ㇳ 15705 7.02 7.29 7.66 7.9 8.16
-ㇴ 15706 7.65 7.89 8.04 8.35 8.38
-ㇵ 15707 8.6 8.79 8.61 8.84 8.63
-ㇶ 15708 7.83 8.02 8.15 8.43 8.41
-ㇷ 15709 7.61 7.94 8.09 8.3 8.39
-ㇸ 15710 8.81 9.1 8.78 8.94 8.83
-ㇹ 15711 8.27 8.53 8.86 9.09 8.97
-ㇺ 15713 7.92 8.13 8.39 8.61 8.62
-ㇻ 15714 7.8 8.09 8.32 8.54 8.55
-ㇼ 15715 7.39 7.66 7.9 8.13 8.31
-ㇽ 15716 8.59 8.79 8.72 8.9 8.81
-ㇾ 15717 8.06 8.32 8.18 8.41 8.55
-ㇿ 15718 8.13 8.44 8.67 8.93 8.98
-ヷ 15719 9.2 9.51 9.64 9.6 9.81
-ヸ 15720 9.41 9.75 9.6 9.7 9.75
-ヹ 15721 9.47 9.7 9.65 9.7 9.8
-ヺ 15722 8.91 9.32 9.34 9.39 9.73
-end
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
deleted file mode 100755
index da4d0d7d8a8..00000000000
--- a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/umkvpkana.pl
+++ /dev/null
@@ -1,569 +0,0 @@
-#!/usr/bin/perl -s
-
-=head1 NOTE
-
-This software is a part of otfbeta-uptex (a.k.a. japanese-otf-uptex).
-
-=cut
-
-use Encode;
-use FindBin;
-use lib "$FindBin::Bin";
-use CheckDVICode;
-
-if ($sp==1) { # supplemental plane
- use MakeSPList;
- &make_sp_char_list('j');
- %exist_char=%{$MakeSPList::r_exist_char->{'j'}};
-}
-
-$_=<DATA>;
-while(<DATA>) {
- chomp($_);
- my (@data)=split(' ', $_);
- my ($char);
- last if (@data<6);
- $char = shift @data;
- push @character, $char;
- $cid {$char}=shift @data;
- $min_w3 {$char}=shift @data;
- $min_w6 {$char}=shift @data;
- $goth_w3{$char}=shift @data;
- $goth_w6{$char}=shift @data;
- $maru_w4{$char}=shift @data;
-}
-
-@charwidth=({%min_w3}, {%min_w6}, {%goth_w3}, {%goth_w6}, {%maru_w4});
-@font_name=("phiraminw3-v", "phiraminw6-v", "phirakakuw3-v", "phirakakuw6-v", "phiramaruw4-v");
-@kanji_font_name=("hminr-v", "hminb-v", "hgothr-v", "hgothb-v", "hmgothr-v");
-@kana_font_name=("hiramin-w3-v", "hiramin-w6-v", "hirakaku-w3-v", "hirakaku-w6-v", "hiramaru-w4-v");
-$font_at=1.0;
-$half_width= ($font_at / 2);
-$quater_width= ($font_at / 4);
-opendir(OVP, "ovp") || mkdir("ovp",0755) || die "cannot mkdir ovp";
-opendir(VF, "vf") || mkdir("vf",0755) || die "cannot mkdir vf";
-opendir(JPL, "pl") || mkdir("pl",0755) || die "cannot mkdir pl";
-opendir(JFM, "tfm") || mkdir("tfm",0755) || die "cannot mkdir tfm";
-closedir(OVP);
-closedir(VF);
-closedir(JPL);
-closedir(JFM);
-
-$ucs=1; # 1: upphiraXXX or 0: phiraXXX
-if ($ucs) {
- $CheckDVICode::is_ucs=1;
- foreach(@font_name, @kanji_font_name) {
- $_="up$_";
- }
-}
-
-#main
-for ($i=0; $i<=4; $i++){
- open (JPL, ">pl/$font_name[$i].pl");
- &tfm_head_v;
- &chars_in_type_jis;
- &chars_in_type_prop;
- &print_type_jis;
- &print_type_prop;
- &glue_kern;
- close(JPL);
-}
-for ($i=0; $i<=4; $i++){
- @cpm_v= $ucs ? (0x2F8D, 0x2F8E, 0x1F14, 0x1F15, 0x1ECF, 0x1ED0)
- : (0x1ECF, 0x1ED0, 0x2F8D, 0x2F8E, 0x1F14, 0x1F15);
- open (OVP, ">ovp/$font_name[$i].ovp");
- &fonthead;
- &write_char;
- close(OVP);
-}
-#
-#sub rtn
-#
-sub tfm_head_v {
- print JPL "(DIRECTION TATE)\n";
- print JPL "(FAMILY PROP KANA)\n";
- print JPL "(FACE F MRR)\n";
- print JPL "(CODINGSCHEME TEX KANJI TEXT)\n";
- print JPL "(DESIGNSIZE R 10.0)\n";
- print JPL "(CHECKSUM O 0)\n";
- print JPL "(SEVENBITSAFEFLAG TRUE)\n";
- print JPL "(FONTDIMEN\n";
- print JPL " (SLANT R 0.0)\n";
- print JPL " (SPACE R 0.0)\n";
- printf JPL " (STRETCH R %f)\n", $font_at/10;
- print JPL " (SHRINK R 0.0)\n";
- printf JPL " (XHEIGHT R %f)\n", $font_at;
- printf JPL " (QUAD R %f)\n", $font_at;
- printf JPL " (EXTRASPACE R %f)\n", $font_at/4;
- printf JPL " (EXTRASTRETCH R %f)\n", $font_at/5;
- printf JPL " (EXTRASHRINK R %f)\n", $font_at/8;
- print JPL " )\n";
-}
-sub char_foot_h {
- printf JPL " (CHARHT R %f)\n", $font_at*0.88;
- printf JPL " (CHARDP R %f)\n", $font_at*0.12;
- print JPL " )\n";
-}
-sub glue_kern{
- print JPL "(GLUEKERN\n";
- print JPL " (LABEL O 5)\n";
- print JPL " (KRN O 5 R 0.0)\n";
- print JPL " (LABEL O 0)\n";
- for ($char=0; $char<=$#uniq_char_width_array; $char++){
- printf JPL " (LABEL H %X)\n",($char+7);
- }
- printf JPL " (GLUE O 1 R %f R 0.0 R %f)\n", $half_width, $half_width;
- print JPL " (LABEL O 1)\n";
- printf JPL " (GLUE O 3 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- print JPL " (STOP)\n";
- 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;
- printf JPL " (GLUE O 3 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- for ($char=0; $char<=$#uniq_char_width_array; $char++){
- printf JPL " (GLUE H %X R %f R 0.0 R %f)\n",($char+7), $half_width, $half_width;
- }
- print JPL " (STOP)\n";
- print JPL " (LABEL O 4)\n";
- printf JPL " (GLUE O 0 R %f R 0.0 R 0.0)\n", $half_width;
- printf JPL " (GLUE O 1 R %f R 0.0 R 0.0)\n", $half_width;
- printf JPL " (GLUE O 3 R %f R 0.0 R %f)\n", $half_width+$quater_width, $quater_width;
- printf JPL " (GLUE O 5 R %f R 0.0 R 0.0)\n", $half_width;
- printf JPL " (GLUE O 6 R %f R 0.0 R 0.0)\n", $half_width;
- for ($char=0; $char<=$#uniq_char_width_array; $char++){
- printf JPL " (GLUE H %X R %f R 0.0 R 0.0)\n",($char+7), $half_width;
- }
- print JPL " (STOP)\n";
- print JPL " (LABEL O 3)\n";
- printf JPL " (GLUE O 0 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- printf JPL " (GLUE O 1 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- printf JPL " (GLUE O 2 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- printf JPL " (GLUE O 3 R %f R 0.0 R %f)\n", $half_width, $quater_width;
- printf JPL " (GLUE O 4 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- printf JPL " (GLUE O 5 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- printf JPL " (GLUE O 6 R %f R 0.0 R %f)\n", $quater_width, $quater_width;
- for ($char=0; $char<=$#uniq_char_width_array; $char++){
- printf JPL " (GLUE H %X R %f R 0.0 R %f)\n",($char+7), $quater_width, $quater_width;
- }
- print JPL " (STOP)\n";
- print JPL " )\n";
-}
-sub chars_in_type_jis{
- 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 = "— … ‥";
- }
-print JPL <<END_OF_DATA;
-(CHARSINTYPE O 1
- ‘ “ ( 〔 [ { 〈 《 「 『 【
- $type1add
- )
-(CHARSINTYPE O 2
- 、 , ’ ” ) 〕 ] } 〉 》 」 』 】
- $type2add
- )
-(CHARSINTYPE O 3
- ・ : ;
- $type3add
- )
-(CHARSINTYPE O 4
- 。 .
- )
-(CHARSINTYPE O 5
- $type5
- )
-(CHARSINTYPE O 6
- ? !
- $type6add
- )
-END_OF_DATA
-}
-sub print_type_jis{
- @type_width=($font_at, $half_width, $half_width, $half_width, $half_width, $font_at, $font_at);
- for ($k=0; $k<=6; $k++){
- printf JPL "(TYPE H %x\n", $k;
- printf JPL " (CHARWD R %f)\n", $type_width[$k];
- &char_foot_h;
- }
-}
-sub fonthead {
- print OVP "(VTITLE Prop Kana)\n";
- print OVP "(OFMLEVEL D 0)\n";
- print OVP "(DESIGNSIZE R 10.000000)\n";
- print OVP "(CHECKSUM O 0)\n";
- print OVP "(MAPFONT D 1\n";
- print OVP " (FONTNAME $kanji_font_name[$i])\n";
- print OVP " (FONTCHECKSUM O 0)\n";
- printf OVP " (FONTAT R %f)\n", $font_at;
- print OVP " (FONTDSIZE R 10.000000)\n";
- print OVP " )\n";
- print OVP "(MAPFONT D 2\n";
- print OVP " (FONTNAME $kana_font_name[$i])\n";
- print OVP " (FONTCHECKSUM O 0)\n";
- printf OVP " (FONTAT R %f)\n", $font_at;
- print OVP " (FONTDSIZE R 10.000000)\n";
- print OVP " )\n";
-}
-sub write_char {
- if (!$ucs) {
- for ($ku=1; $ku<=94; $ku++){
- for ($ten=1; $ten<=94; $ten++){
- $dvicode=($ku+32)*256+($ten+32);
- if ($ku==1){&print_kigo_char;}elsif($ku==4){&print_kana_char;}
- elsif($ku==5){&print_kana_char;}else{&print_char;}
- }
- }
- } else { # ucs
- $max_ucs= $sp ? 0x2FA1F : 0xFFFF; # U+2FA1F: max of CJK Compatibility Ideographs Supplement
- for ($ucscode=0; $ucscode<=$max_ucs; $ucscode++){
- $CheckDVICode::dvicode=$dvicode=$ucscode;
- next unless (&is_ucs_jpn_range);
- if ($sp==1 && $ucscode>0xFFFF) {
- next unless ($exist_char{sprintf("%X",$ucscode)});
- }
- if (&is_ucs_kigo){&print_kigo_char;}
- elsif(&is_ucs_hira || &is_dvicode('hira-yori')){&print_kana_char;}
- elsif(&is_ucs_kata || &is_dvicode('kata-koto')){&print_kana_char;}
-# elsif(&is_ucs_hankana && $hk_mode){&print_hankana_char;}
- else{&print_char;}
- }
- }
-}
-sub print_char{
- return if ($omitfw);
- printf OVP "(CHARACTER H %X\n", $dvicode;
- printf OVP " (CHARWD R %f)\n", $font_at;
- print OVP " (MAP\n";
- printf OVP " (SETCHAR H %X)\n",$dvicode;
- print OVP " )\n";
- print OVP " )\n";
-}
-sub print_kigo_char{
- my ($width,$cid);
- printf OVP "(CHARACTER H %X\n", $dvicode;
- if (&is_dvicode('quote') || &is_dvicode('kakko')){#Kakko
- $width=$half_width;
- } elsif (&is_dvicode('kutouten')){#Kutouten
- $width=$half_width;
- } elsif (&is_dvicode('odoriji')){#odoriji
- ($width,$cid)=&get_charwidth($i,$dvicode);
- $width/=10;
- } else{
- $width=$font_at;
- }
- printf OVP " (CHARWD R %f)\n", $width;
- print OVP " (MAP\n";
- if (&is_dvicode('odoriji')){#odoriji
- print OVP " (SELECTFONT D 2)\n";
- } elsif (&is_dvicode('comma') || &is_dvicode('period') || &is_dvicode('quote')){#Comma, Period, Minute
- print OVP " (SELECTFONT D 2)\n";
- }
- if (&is_dvicode('nakaten') || &is_dvicode('colon') || &is_dvicode('semicolon')){#colon, semicolon, nakaten
- printf OVP " (MOVERIGHT R -%f)\n",$quater_width;}
- if ((&is_dvicode('quote') || &is_dvicode('kakko')) && &is_dvicode('open')){#Kakko
- printf OVP " (MOVERIGHT R -%f)\n",$half_width;
- }
- if (&is_dvicode('odoriji')){#odoriji
- printf OVP " (SETCHAR H %X)\n",$cid;
- } elsif (&is_dvicode('comma') || &is_dvicode('period') || &is_dvicode('quote')){#Comma, Period, Minute
- $cpmcode= shift(@cpm_v);
- printf OVP " (SETCHAR H %X)\n",$cpmcode;
- } else {
- printf OVP " (SETCHAR H %X)\n",$dvicode;
- }
- print OVP " )\n";
- print OVP " )\n";
-}
-sub print_kana_char{
- my ($width,$cid)=&get_charwidth($i,$dvicode);
- if ($width==0) {
- return &print_char;
- }
- $width/=10;
- printf OVP "(CHARACTER H %X\n", $dvicode;
- printf OVP " (CHARWD R %f)\n", $width;
- print OVP " (MAP\n";
- print OVP " (SELECTFONT D 2)\n";
- printf OVP " (SETCHAR H %X)\n",$cid;
- print OVP " )\n";
- print OVP " )\n";
-}
-sub chars_in_type_prop{
- %char_width_hash=();
- for ($j=0; $j<@character; $j++){
- my ($c0, $c1);
- $c0=$c1=$character[$j];
- if (!$ucs) {
- if (!Encode::from_to($c1,'utf-8','euc-jp', Encode::FB_QUIET)
- || $c0 eq "〃"
- || $c0 eq "〆") { next; }
- }
- $char_width_hash{$c0}=$charwidth[$i]{$c0}/10;
- }
- $x = '-';
- @uniq_char_width_array = grep( $_ ne $x && ($x = $_), sort values(%char_width_hash));
- for ($j=0; $j<=$#uniq_char_width_array; $j++){
- printf JPL "(CHARSINTYPE H %X\n",($j+7);
- print JPL " ";
- @char_in_this_type = ();
- while (($name, $value) = each(%char_width_hash)) {
- if ($value == $uniq_char_width_array[$j]){
- push(@char_in_this_type, $name);
- }
- }
- @char_in_this_type = sort @char_in_this_type;
- foreach $char_in_this(@char_in_this_type){
- print JPL "$char_in_this ";#character
- }
- print JPL "\n";
- print JPL " )\n";
- }
-}
-sub print_type_prop{
- for ($j=0; $j<=$#uniq_char_width_array; $j++){
- $char_width=$uniq_char_width_array[$j];
- printf JPL "(TYPE H %X\n", ($j+7);
- printf JPL " (CHARWD R %f)\n", $char_width;
- &char_foot_h;
- }
-}
-
-sub get_charwidth{
- my ($i,$dvicode)=@_;
- my ($char,$u,$l);
-
- if (!$ucs) {
- if ($dvicode>=0x2474 && $dvicode<=0x2476) {
- return 0;
- }
- $u = ($dvicode >> 8) & 0xFF | 0x80;
- $l = $dvicode & 0xFF | 0x80;
- $char = pack("C*",$u,$l);
- Encode::from_to($char,'euc-jp','utf-8');
- } else {
- $u = ($dvicode >> 8) & 0xFF;
- $l = $dvicode & 0xFF;
- $char = pack("C*",$u,$l);
- Encode::from_to($char,'utf-16be','utf-8');
- }
- if (!exists($charwidth[$i]{$char})) {
- return 0;
- }
- return ($charwidth[$i]{$char}, $cid{$char});
-}
-
-
-__DATA__
-character cid min_w3 min_w6 goth_w3 goth_w6 maru_w4
-ヽ 15976 7.17 7.46 7.92 8.27 8.13
-ヾ 15977 8.34 8.44 8.46 8.62 8.5
-ゝ 15978 7.77 7.98 8.44 8.69 8.62
-ゞ 15979 8.32 8.54 8.8 8.92 8.98
-ー 15982 9.96 9.98 9.99 9.99 9.98
-ぁ 15985 9.03 9.15 9.01 9.18 9.17
-あ 15986 9.6 9.79 9.6 9.77 9.75
-ぃ 15987 7.75 7.92 8.09 8.4 8.59
-い 15988 8.19 8.47 8.46 8.8 8.83
-ぅ 15989 9.42 9.47 8.97 9.2 9.19
-う 15990 9.98 9.99 9.58 9.8 9.79
-ぇ 15991 8.89 9.12 8.84 9.15 9.05
-え 15992 9.47 9.74 9.42 9.7 9.59
-ぉ 15993 8.65 8.89 8.86 9.06 9.08
-お 15994 9.14 9.48 9.39 9.67 9.61
-か 15995 8.99 9.24 9.26 9.47 9.45
-が 15996 9.1 9.39 9.41 9.67 9.6
-き 15997 9.71 9.93 9.73 9.88 9.82
-ぎ 15998 9.71 9.86 9.8 9.96 9.92
-く 15999 9.99 9.99 9.56 9.77 9.47
-ぐ 16000 9.79 9.98 9.49 9.7 9.5
-け 16001 9.52 9.64 9.54 9.79 9.66
-げ 16002 9.76 9.82 9.56 9.76 9.62
-こ 16003 9.26 9.47 9.38 9.67 9.57
-ご 16004 9.44 9.6 9.23 9.6 9.49
-さ 16005 9.67 9.84 9.67 9.85 9.77
-ざ 16006 9.71 9.85 9.86 9.97 9.95
-し 16007 9.42 9.53 9.38 9.53 9.53
-じ 16008 9.63 9.74 9.71 9.86 9.72
-す 16009 9.39 9.61 9.3 9.55 9.43
-ず 16010 9.61 9.83 9.6 9.84 9.68
-せ 16011 9.18 9.45 9.44 9.7 9.54
-ぜ 16012 9.47 9.66 9.53 9.79 9.63
-そ 16013 9.45 9.66 9.4 9.65 9.57
-ぞ 16014 9.56 9.74 9.43 9.65 9.59
-た 16015 9.23 9.47 9.39 9.59 9.59
-だ 16016 9.48 9.68 9.59 9.81 9.72
-ち 16017 9.61 9.78 9.63 9.81 9.68
-ぢ 16018 9.67 9.8 9.85 9.97 9.92
-っ 16019 7.96 8.04 8.23 8.47 8.6
-つ 16020 8.24 8.42 8.62 8.87 8.98
-づ 16021 8.99 9.15 9.26 9.44 9.42
-て 16022 8.69 8.92 8.89 9.19 9.16
-で 16023 8.76 8.95 8.92 9.19 9.23
-と 16024 9.75 9.89 9.59 9.82 9.65
-ど 16025 9.69 9.89 9.81 9.96 9.93
-な 16026 9.48 9.66 9.48 9.65 9.62
-に 16027 8.95 9.17 9.19 9.42 9.4
-ぬ 16028 8.98 9.23 9.34 9.57 9.49
-ね 16029 9.25 9.54 9.52 9.68 9.62
-の 16030 8.82 8.99 9.02 9.28 9.24
-は 16031 9.28 9.55 9.5 9.75 9.66
-ば 16032 9.57 9.76 9.67 9.82 9.76
-ぱ 16033 9.7 9.82 9.84 9.97 9.92
-ひ 16034 9.19 9.36 9.18 9.4 9.41
-び 16035 9.46 9.64 9.4 9.61 9.61
-ぴ 16036 9.72 9.8 9.71 9.79 9.81
-ふ 16037 9.05 9.39 9.25 9.5 9.46
-ぶ 16038 9.16 9.47 9.29 9.54 9.49
-ぷ 16039 9.15 9.43 9.33 9.53 9.52
-へ 16040 7.21 7.43 7.84 8.2 8.32
-べ 16041 8.13 8.33 8.21 8.52 8.58
-ぺ 16042 8.43 8.58 8.56 8.84 8.78
-ほ 16043 9.23 9.46 9.45 9.71 9.67
-ぼ 16044 9.61 9.74 9.65 9.89 9.79
-ぽ 16045 9.65 9.81 9.7 9.9 9.87
-ま 16046 9.76 9.88 9.57 9.74 9.64
-み 16047 9.17 9.36 9.24 9.48 9.38
-む 16048 9.37 9.58 9.49 9.71 9.64
-め 16049 9.18 9.41 9.38 9.58 9.53
-も 16050 9.76 9.91 9.48 9.68 9.6
-ゃ 16051 8.69 8.83 8.89 9.1 8.99
-や 16052 9.38 9.54 9.52 9.7 9.62
-ゅ 16053 8.73 8.82 8.88 9.08 9.03
-ゆ 16054 9.22 9.4 9.4 9.63 9.58
-ょ 16055 8.95 9.17 9.03 9.28 9.09
-よ 16056 9.63 9.83 9.63 9.82 9.61
-ら 16057 9.66 9.82 9.5 9.74 9.79
-り 16058 9.82 9.85 9.75 9.88 9.79
-る 16059 9.59 9.8 9.55 9.77 9.7
-れ 16060 9.21 9.43 9.4 9.59 9.55
-ろ 16061 9.66 9.79 9.55 9.79 9.73
-ゎ 16062 8.58 8.73 8.71 8.93 8.86
-わ 16063 9.28 9.45 9.38 9.54 9.54
-ゐ 16064 9.37 9.59 9.46 9.68 9.57
-ゑ 16065 9.65 9.82 9.64 9.86 9.8
-を 16066 9.64 9.79 9.62 9.83 9.71
-ん 16067 9.2 9.4 9.32 9.54 9.45
-ァ 16076 8.45 8.5 8.55 8.76 8.92
-ア 16077 8.96 9.2 9.19 9.44 9.41
-ィ 16078 8.81 8.92 8.63 8.88 8.75
-イ 16079 9.29 9.46 9.28 9.48 9.35
-ゥ 16080 8.89 8.93 8.82 9.03 8.94
-ウ 16081 9.38 9.56 9.4 9.59 9.46
-ェ 16082 7.81 8.04 8.33 8.65 8.84
-エ 16083 8.12 8.39 8.77 9.06 9.3
-ォ 16084 8.76 8.84 8.76 8.99 8.9
-オ 16085 9.21 9.41 9.29 9.51 9.38
-カ 16086 9.26 9.48 9.46 9.68 9.52
-ガ 16087 9.27 9.5 9.66 9.79 9.71
-キ 16088 9.25 9.41 9.4 9.6 9.39
-ギ 16089 9.56 9.65 9.78 9.87 9.78
-ク 16090 9.25 9.37 9.33 9.53 9.44
-グ 16091 9.49 9.57 9.39 9.69 9.66
-ケ 16092 9.19 9.32 9.14 9.35 9.37
-ゲ 16093 9.6 9.65 9.47 9.59 9.64
-コ 16094 8.32 8.59 9.13 9.4 9.4
-ゴ 16095 8.83 9.13 9.52 9.78 9.7
-サ 16096 9.17 9.37 9.34 9.53 9.49
-ザ 16097 9.53 9.65 9.39 9.58 9.62
-シ 16098 8.39 8.61 8.88 9.11 9.53
-ジ 16099 9.1 9.21 9.31 9.39 9.84
-ス 16100 8.61 8.85 9 9.3 9.22
-ズ 16101 9.24 9.44 9.44 9.68 9.58
-セ 16102 8.67 8.93 9.17 9.43 9.4
-ゼ 16103 9.26 9.4 9.63 9.78 9.78
-ソ 16104 8.89 9.06 8.98 9.21 9.12
-ゾ 16105 9.52 9.64 9.56 9.63 9.61
-タ 16106 9.31 9.42 9.41 9.6 9.56
-ダ 16107 9.56 9.61 9.53 9.74 9.76
-チ 16108 9.2 9.4 9.14 9.39 9.31
-ヂ 16109 9.35 9.51 9.18 9.4 9.34
-ッ 16110 8.33 8.43 8.55 8.77 8.77
-ツ 16111 8.8 8.97 9.01 9.26 9.2
-ヅ 16112 9.48 9.61 9.5 9.64 9.7
-テ 16113 9.13 9.34 9.28 9.5 9.45
-デ 16114 9.38 9.62 9.27 9.51 9.64
-ト 16115 9.58 9.74 9.35 9.51 9.33
-ド 16116 9.63 9.75 9.45 9.68 9.62
-ナ 16117 9.11 9.35 9.08 9.37 9.31
-ニ 16118 8.01 8.31 8.62 8.93 9.17
-ヌ 16119 9.06 9.33 9.17 9.43 9.44
-ネ 16120 9.45 9.64 9.53 9.73 9.49
-ノ 16121 8.8 9.13 8.77 9.02 8.92
-ハ 16122 7.42 7.65 8.71 9 8.97
-バ 16123 8.16 8.44 8.82 9.07 9.34
-パ 16124 8.55 8.74 9.09 9.23 9.44
-ヒ 16125 8.79 9.06 9.33 9.51 9.46
-ビ 16126 9.2 9.35 9.7 9.83 9.74
-ピ 16127 9.39 9.55 9.83 9.92 9.89
-フ 16128 8.91 9.06 9.01 9.29 9.28
-ブ 16129 9.47 9.63 9.58 9.74 9.61
-プ 16130 9.56 9.67 9.31 9.51 9.72
-ヘ 16131 7.09 7.38 7.79 8.15 8.32
-ベ 16132 8.05 8.32 8.3 8.5 8.59
-ペ 16133 8.35 8.58 8.47 8.85 8.86
-ホ 16134 9.07 9.32 9.47 9.71 9.5
-ボ 16135 9.39 9.58 9.74 9.9 9.8
-ポ 16136 9.64 9.73 9.83 9.98 9.92
-マ 16137 8.1 8.38 8.95 9.19 9.16
-ミ 16138 9.25 9.47 9.25 9.51 9.4
-ム 16139 8.79 9.1 9.19 9.42 9.33
-メ 16140 8.88 9.18 8.95 9.18 9.15
-モ 16141 8.74 9 9.25 9.46 9.47
-ャ 16142 8.52 8.68 8.79 8.94 8.88
-ヤ 16143 8.98 9.19 9.37 9.53 9.41
-ュ 16144 7.76 7.99 8.31 8.62 8.79
-ユ 16145 8.09 8.33 8.7 9.01 9.25
-ョ 16146 8.38 8.55 8.83 9.11 9.19
-ヨ 16147 8.8 9.05 9.38 9.62 9.73
-ラ 16148 9.29 9.47 9.35 9.64 9.61
-リ 16149 9.75 9.89 9.64 9.84 9.69
-ル 16150 8.5 8.83 9.33 9.58 9.42
-レ 16151 8.35 8.71 9 9.18 9.17
-ロ 16152 8.42 8.71 9.23 9.47 9.59
-ヮ 16153 8.56 8.65 8.69 8.91 8.97
-ワ 16154 9.03 9.15 9.21 9.43 9.47
-ヰ 16155 9.35 9.58 9.31 9.59 9.42
-ヱ 16156 8.34 8.65 8.95 9.25 9.41
-ヲ 16157 9.17 9.39 9.27 9.49 9.49
-ン 16158 8.11 8.3 8.51 8.78 8.79
-ヴ 16159 9.47 9.62 9.49 9.69 9.63
-ヵ 16160 8.73 8.9 8.93 9.11 9
-ヶ 16161 8.53 8.64 8.41 8.66 8.69
-〃 15980 8.16 8.40 8.74 8.90 8.88
-〆 15981 8.94 9.09 8.99 9.14 9.04
-ヿ 15983 9.36 9.59 9.59 9.75 9.74
-ゟ 15984 9.81 9.96 9.75 9.82 9.79
-ゔ 16068 9.63 9.72 9.28 9.50 9.50
-ゕ 16069 8.41 8.60 8.61 8.80 8.85
-ゖ 16070 8.90 9.03 8.92 9.13 9.11
-ㇰ 16170 8.65 8.67 8.78 8.94 8.92
-ㇱ 16171 7.86 8.08 8.25 8.46 8.51
-ㇲ 16172 8.22 8.40 8.57 8.80 8.77
-ㇳ 16173 9.01 9.06 8.81 9.03 8.74
-ㇴ 16174 8.51 8.65 8.64 8.94 8.93
-ㇵ 16175 7.14 7.31 8.29 8.56 8.58
-ㇶ 16176 8.29 8.52 8.76 9.00 8.90
-ㇷ 16177 8.42 8.50 8.52 8.75 8.81
-ㇸ 16178 6.79 7.01 7.32 7.65 7.81
-ㇹ 16179 8.57 8.77 8.83 9.04 8.96
-ㇺ 16181 8.34 8.62 8.66 8.90 8.81
-ㇻ 16182 8.80 8.86 8.84 9.09 9.09
-ㇼ 16183 9.13 9.22 8.99 9.23 9.14
-ㇽ 16184 8.02 8.30 8.71 8.97 8.89
-ㇾ 16185 7.89 8.08 8.41 8.66 8.59
-ㇿ 16186 8.11 8.24 8.71 8.98 9.04
-ヷ 16187 9.42 9.66 9.44 9.78 9.75
-ヸ 16188 9.61 9.8 9.73 9.84 9.77
-ヹ 16189 8.94 9.28 9.56 9.80 9.88
-ヺ 16190 9.54 9.71 9.67 9.82 9.74
-end