summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/mkutf32list.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-05-13 21:52:41 +0000
committerKarl Berry <karl@freefriends.org>2018-05-13 21:52:41 +0000
commit056201c217eda00b26ae345567c1bab442455503 (patch)
tree8088bfc21cf59dd2724300662f837f7e574d42f8 /Master/texmf-dist/source/fonts/japanese-otf-uptex/script/mkutf32list.pl
parentda2561317998893b06f0278dbca82b14d7e9a014 (diff)
japanese-otf-uptex (13may18)
git-svn-id: svn://tug.org/texlive/trunk@47702 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/fonts/japanese-otf-uptex/script/mkutf32list.pl')
-rwxr-xr-xMaster/texmf-dist/source/fonts/japanese-otf-uptex/script/mkutf32list.pl43
1 files changed, 21 insertions, 22 deletions
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
index 82b60bbcb51..b71dc60947f 100755
--- a/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/mkutf32list.pl
+++ b/Master/texmf-dist/source/fonts/japanese-otf-uptex/script/mkutf32list.pl
@@ -25,7 +25,6 @@ This software is a part of otfbeta-uptex (a.k.a. japanese-otf-uptex).
use strict;
use encoding 'utf8';
-use feature 'switch';
our ($style, $allrange);
our (@count, %reset_ch, $icollec, $cid2code, $line);
@@ -47,23 +46,25 @@ if (/cid2code/) {
$cid2code=~s/^#/%/;
}
-if ($.<8 & /((Adobe-(?:Japan|CNS|GB|Korea).*)-\d)\s/) {
+if ($.<8 && /((Adobe-(?:Japan|CNS|GB|Korea).*)-\d)\s/) {
$collection_n=$1;
$collection=$2;
- given($collection) {
- when (/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"; }
- when (/gb/i) { @cid_max = qw/-1 7716 9896 22126 22352 29063 30283/;
- $utfmac="UTFC"; $cmap="UniGB-UTF32";
- $source="Adobe-GB1-5/cid2code.txt"; }
- when (/kor/i) { @cid_max = qw/-1 9332 18154 18351/;
- $utfmac="UTFK"; $cmap="UniKS-UTF32";
- $source="Adobe-Korea1-2/cid2code.txt"; }
- default { @cid_max = qw/-1 8283 8358 8719 9353 15443 20316 23057/;
- $utfmac="UTF"; $cmap="UniJIS-UTF32";
- $source="Adobe-Japan1-6/cid2code.txt"; }
- }
+ 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/;
+ $utfmac="UTF"; $cmap="UniJIS-UTF32";
+ $source="Adobe-Japan1-6/cid2code.txt"; }
}
next if (/^#/);
@@ -141,12 +142,10 @@ END {
}
$i++;
- given($style) {
- when (/utf/) { $out=sprintf "\\${utfmac}{%X}", $ch; }
- when (/kchar/) { $out=sprintf "\\kchar\"%X", $ch; }
- when (/list/) { $out=sprintf "%X", $ch; }
- default { $out=chr($ch); }
- }
+ 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) {