summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2012-01-31 15:14:12 +0000
committerNorbert Preining <preining@logic.at>2012-01-31 15:14:12 +0000
commit3e4cca7a866aefeac3efce5f7e35a9dfb84b14e5 (patch)
tree040f60b73a60b06aa314ad5c923ceb51a3cef198 /Master
parentfb23f528da141c47435a00a9893233e6c628e469 (diff)
update updmap from source
git-svn-id: svn://tug.org/texlive/trunk@25257 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf/scripts/tetex/updmap.pl35
1 files changed, 33 insertions, 2 deletions
diff --git a/Master/texmf/scripts/tetex/updmap.pl b/Master/texmf/scripts/tetex/updmap.pl
index 7595bf40a87..7f48f7fa562 100755
--- a/Master/texmf/scripts/tetex/updmap.pl
+++ b/Master/texmf/scripts/tetex/updmap.pl
@@ -15,7 +15,7 @@ BEGIN {
unshift (@INC, "$TEXMFROOT/tlpkg");
}
-my $version = '$Id: updmap.pl 25151 2012-01-19 04:48:20Z preining $';
+my $version = '$Id: updmap.pl 25256 2012-01-31 15:12:34Z preining $';
use strict;
use TeXLive::TLUtils qw(mkdirhier mktexupd win32);
@@ -40,6 +40,7 @@ my (@psADOBE, @fileADOBE, @fileADOBEkb, @fileURW);
my $enableItem;
my @setoptions = ();
my @showoptions = ();
+my @showoption = ();
my @disableItem = ();
my $listmaps;
my $listavailablemaps;
@@ -126,6 +127,7 @@ Commands:
--help show this message and exit
--version show version information and exit
--showoptions ITEM show alternatives for options
+ --showoption ITEM show value of option
--setoption OPTION VALUE set option, where OPTION is one of:
LW35, dvipsPreferOutline, dvipsDownloadBase35,
pdftexDownloadBase14, pxdviUse, kanjiEmbed,
@@ -269,6 +271,7 @@ sub processOptions {
"setoption" =>
sub {die "$0: --setoption needs an option and value; try --help.\n"},
"showoptions=s" => \@showoptions,
+ "showoption=s" => \@showoption,
"syncwithtrees" => \$syncwithtrees,
"version" => sub { print &version(); exit(0); },
"h|help" => \$opt_help)) {
@@ -625,7 +628,7 @@ sub setOptions {
}
die "$0: unexpected empty key or val for options (@options), goodbye.\n"
- if !$key || !$val;
+ if !$key || !defined($val);
&setOption ($key, $val);
}
}
@@ -661,6 +664,28 @@ m/^(dvipsPreferOutline|dvipsDownloadBase35|(pdftex|dvipdfm)DownloadBase14|pxdviU
}
###############################################################################
+# showOption(item item ...)
+# show current value for an item
+#
+sub showOption {
+ sub doit {
+ my ($a, $b) = @_;
+ my $v = &cfgval($a);
+ $v = $b unless (defined $v);
+ print "$a=$v\n";
+ }
+ foreach my $item (@_) {
+ doit("LW35", "URWkb") if ($item eq "LW35");
+ doit("dvipsPreferOutline", 1) if ($item eq "dvipsPreferOutline");
+ doit("dvipsDownloadBase35", 1) if ($item eq "dvipsDownloadBase35");
+ doit("pdftexDownloadBase14", 1) if ($item eq "pdftexDownloadBase14");
+ doit("kanjiEmbed", "noEmbed") if ($item eq "kanjiEmbed");
+ doit("kanjiVariant", "") if ($item eq "kanjiVariant");
+ doit("pxdviUse", 0) if ($item eq "pxdviUse");
+ }
+}
+
+###############################################################################
# showOptions(item)
# show Options for an item
#
@@ -1028,6 +1053,8 @@ sub mkMaps {
. ($dvipsDownloadBase35 ? "true" : "false")
. "\n download standard fonts (pdftex) : "
. ($pdftexDownloadBase14 ? "true" : "false")
+ . "\n kanjiEmbed/variant replacement : "
+ . "$kanjiEmbed/$kanjiVariant"
. "\n create a mapfile for pxdvi : "
. ($pxdviUse ? "true" : "false")
. "\n\n");
@@ -1431,6 +1458,10 @@ sub main {
&setupCfgFile;
+ if (@showoption) {
+ &showOption(@showoption);
+ exit 0;
+ }
if ($listmaps) {
&listMaps ('list');
exit 0;