summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2012-02-06 14:49:29 +0000
committerNorbert Preining <preining@logic.at>2012-02-06 14:49:29 +0000
commitedcc5909521192431cf3dc89feada0b78a307c22 (patch)
tree6c5469a3f5ac61fb52ca89fe0d8e318bc91505c1 /Master
parent7f90cbb0ac1436e9d3874ffcd17c8afdaad8f5e1 (diff)
updmap-setup-kanji.pl: update from source
git-svn-id: svn://tug.org/texlive/trunk@25317 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf-dist/scripts/jfontmaps/updmap-setup-kanji.pl70
1 files changed, 31 insertions, 39 deletions
diff --git a/Master/texmf-dist/scripts/jfontmaps/updmap-setup-kanji.pl b/Master/texmf-dist/scripts/jfontmaps/updmap-setup-kanji.pl
index 3797d9c41be..f7762fc4fcb 100755
--- a/Master/texmf-dist/scripts/jfontmaps/updmap-setup-kanji.pl
+++ b/Master/texmf-dist/scripts/jfontmaps/updmap-setup-kanji.pl
@@ -10,43 +10,17 @@
# 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 $version = '$Id: updmap-setup-kanji.pl 25259 2012-02-01 02:13:03Z preining $';
+my $vers = "0.9.3";
+my $version = '$Id: updmap-setup-kanji.pl 25316 2012-02-06 14:48:29Z preining $';
my $updmap_real = "updmap-sys";
my $updmap = $updmap_real;
@@ -63,6 +37,12 @@ if (! GetOptions(
die "Try \"$0 --help\" for more information.\n";
}
+
+sub win32 { return ($^O=~/^MSWin(32|64)$/i); }
+
+my $nul = (win32() ? 'nul' : '/dev/null') ;
+
+
if ($dry_run) {
$updmap = "echo updmap-sys";
}
@@ -88,7 +68,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 +80,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
@@ -139,7 +133,7 @@ sub CheckInstallFont {
sub check_mapfile {
my $mapf = shift;
- my $f = `kpsewhich $mapf 2>/dev/null`;
+ my $f = `kpsewhich $mapf 2> $nul`;
my $ret = $?;
if (wantarray) {
return (!$ret, $f);
@@ -161,7 +155,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 +165,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";
}
}
}
@@ -248,8 +242,6 @@ sub SetupReplacement {
sub main {
my ($a, $b) = @_;
- # mktexlsr 2> /dev/null
-
CheckInstallFont();
if (!defined($a) || defined($b)) {