diff options
author | Norbert Preining <preining@logic.at> | 2012-06-19 00:30:05 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2012-06-19 00:30:05 +0000 |
commit | 1ba05da4daafb0a18a4a48475586b88ca04c922e (patch) | |
tree | a5b344c98a781e3f7ece689ea52623112baccd0a /Build/source/extra/jfontmaps/script/updmap-setup-kanji.pl | |
parent | 79580bd71d457907e43ca887e8410493fa172f1a (diff) |
updmap-setup-kanji bug fixes and changes to operation (-sys version
not called anymore)
git-svn-id: svn://tug.org/texlive/trunk@26896 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/extra/jfontmaps/script/updmap-setup-kanji.pl')
-rwxr-xr-x | Build/source/extra/jfontmaps/script/updmap-setup-kanji.pl | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/Build/source/extra/jfontmaps/script/updmap-setup-kanji.pl b/Build/source/extra/jfontmaps/script/updmap-setup-kanji.pl index 2dd2d71bfdb..09280284554 100755 --- a/Build/source/extra/jfontmaps/script/updmap-setup-kanji.pl +++ b/Build/source/extra/jfontmaps/script/updmap-setup-kanji.pl @@ -19,10 +19,10 @@ use Getopt::Long qw(:config no_autoabbrev ignore_case_always); use strict; my $prg = "updmap-setup-kanji"; -my $vers = "0.9.5"; +my $vers = "0.9.6dev"; my $version = '$Id$'; -my $updmap_real = "updmap-sys"; +my $updmap_real = "updmap"; my $updmap = $updmap_real; my $dry_run = 0; @@ -44,7 +44,7 @@ my $nul = (win32() ? 'nul' : '/dev/null') ; if ($dry_run) { - $updmap = "echo updmap-sys"; + $updmap = "echo updmap"; } if ($opt_help) { @@ -91,7 +91,7 @@ sub Usage { Please see the documentation of updmap for details (updmap --help). - Usage: $prg {<fontname>|auto|nofont|status} + Usage: $prg [OPTION] {<fontname>|auto|nofont|status} <family> embed an arbitrary font family <family>, at least the map file otf-<family>.map has to be available. @@ -106,6 +106,12 @@ sub Usage { automatically. status: get information about current environment and usable font map + Options: + -n, --dry-run do not actually run updmap + -h, --help show this message and exit + -jis2004 use JIS2004 variants for default fonts of (u)pTeX + --version show version information and exit + EOF ; print $usage; @@ -145,13 +151,10 @@ sub check_mapfile { sub GetStatus { my $val = `$updmap_real --quiet --showoption kanjiEmbed`; my $STATUS; - if ($val =~ m/^kanjiEmbed=(.*)( \()?/) { + if ($val =~ m/^kanjiEmbed=([^()\s]*)(\s+\()?/) { $STATUS = $1; - $STATUS =~ s/\s*$//; - $STATUS =~ s/\(.*\)$//; - $STATUS =~ s/^"(.*)"$/\1/; } else { - printf STDERR "Cannot find status of current kanjiEmbed setting via updmap-sys --showoption!\n"; + printf STDERR "Cannot find status of current kanjiEmbed setting via updmap --showoption!\n"; exit 1; } |