diff options
Diffstat (limited to 'Build/source/extra/jfontmaps/script/updmap-setup-kanji.pl')
-rwxr-xr-x | Build/source/extra/jfontmaps/script/updmap-setup-kanji.pl | 58 |
1 files changed, 23 insertions, 35 deletions
diff --git a/Build/source/extra/jfontmaps/script/updmap-setup-kanji.pl b/Build/source/extra/jfontmaps/script/updmap-setup-kanji.pl index d15df7a1310..ebd7897263b 100755 --- a/Build/source/extra/jfontmaps/script/updmap-setup-kanji.pl +++ b/Build/source/extra/jfontmaps/script/updmap-setup-kanji.pl @@ -10,42 +10,16 @@ # For development see # http://www.tug.org/svn/texlive/trunk/Build/source/extra/jfontmaps/ # -# 31 Jan 2012 -# rewrite in Perl, so that the script is usable under Windows -# add command line options for help, dry-run, etc -# support jis2004 via cmd line -jis2004 -# 27 Jan 2012 by PREINING Norbert <preining@logic.at> v0.9.2 -# support IPA and IPAex fonts -# improve and extended documentation -# 11 Nov 2011 by PREINING Norbert <preining@logic.at> v0.9.1 -# use kpsewhich for finding fonts -# use updmap-sys --setoption kanjiEmbed to select the font family -# use current names of map files -# use different font name for Kozuka font, as used in the map file -# get state from updmap.cfg, not from some state file -# 27 May 2006 by KOBAYASHI R. Taizo <tkoba965@mac.com> v0.9 -# use noEmbed.map instead of noEmbeddedFont.map -# 10 Jun 2005 by KOBAYASHI R. Taizo <tkoba965@mac.com> v0.8 -# modified to use updmap-sys in teTeX3 -# 07 Nov 2004 by KOBAYASHI R. Taizo <tkoba965@mac.com> v0.7 -# do not echo back the message of updmap. -# 17 Oct 2004 by KOBAYASHI R. Taizo <tkoba965@mac.com> v0.6 -# set hiragino map file if nofont is installed and arg is auto. -# 04 Oct 2004 by KOBAYASHI R. Taizo <tkoba965@mac.com> v0.5 -# handl standby map files more strictly -# 20 Sep 2004 by KOBAYASHI R. Taizo <tkoba965@mac.com> v0.4 -# hand over current status to map file installer -# 19 Sep 2004 by KOBAYASHI R. Taizo <tkoba965@mac.com> v0.3 -# handl *-udvips.map in TEXMF/dvipdfm/config/otf/ -# 02 Mar 2004 by KOBAYASHI R. Taizo <tkoba@ike-dyn.ritsumei.ac.jp> v0.2 -# added noFont-udvips.map -# 28 Feb 2004 by KOBAYASHI R. Taizo <tkoba@ike-dyn.ritsumei.ac.jp> v0.1 +# For a changelog see +# http://www.tug.org/svn/texlive/trunk/Build/source/extra/jfontmaps/ChangeLog +# $^W = 1; use Getopt::Long qw(:config no_autoabbrev ignore_case_always); use strict; my $prg = "updmap-setup-kanji"; +my $vers = "0.9.2dev"; my $version = '$Id$'; my $updmap_real = "updmap-sys"; @@ -88,7 +62,8 @@ my %available; main(@ARGV); sub version { - my $ret = sprintf "%s (perl) version %s\n", $prg, $version; + my $ret = sprintf "%s version %s\n(svn id: %s)\n", + $prg, $vers, $version; return $ret; } @@ -99,13 +74,26 @@ sub Usage { This script searches for some of the most common fonts for embedding into pdfs by dvipdfmx. + In addition it allows to set up arbitrary font families + to be embedded into the generated pdf files, as long + as at least the map file otf-<family>.map is present. + Other map files that will be used if available are + + ptex-<family>.map + uptex-<family>.map + otf-up-<family>.map + + Please see the documentation of updmap for details (updmap --help). + Usage: $prg {<fontname>|auto|nofont|status} - <fontname> embed fonts as defined by the map file otf-<fontname>.map - if it exists. + <family> embed an arbitrary font family <family>, at least the + map file otf-<family>.map has to be available. auto: embed one of the following supported font families automatically: hiragino, morisawa, kozuka, ipaex, ipa + and fall back to not embedding any font if none of them + is available nofont: embed no fonts (and rely on system fonts when displaying pdfs) If your system does not have any of the supported font families as specified above, this target is selected @@ -161,7 +149,7 @@ sub GetStatus { } if (check_mapfile("otf-$STATUS.map")) { - print "CURRENT map file : otf-$STATUS.map\n"; + print "CURRENT family : $STATUS\n"; } else { print "WARNING: Currently selected map file cannot be found: otf-$STATUS.map\n"; } @@ -171,7 +159,7 @@ sub GetStatus { next if ($MAPFILE eq "otf-$STATUS.map"); if (check_mapfile($MAPFILE)) { if ($available{$k}) { - print "Standby map file : $MAPFILE\n"; + print "Standby family : $k\n"; } } } |