summaryrefslogtreecommitdiff
path: root/Build/source/extra/jfontmaps/script/updmap-setup-kanji.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/extra/jfontmaps/script/updmap-setup-kanji.pl')
-rwxr-xr-xBuild/source/extra/jfontmaps/script/updmap-setup-kanji.pl58
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";
}
}
}