From 3e4cca7a866aefeac3efce5f7e35a9dfb84b14e5 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 31 Jan 2012 15:14:12 +0000 Subject: update updmap from source git-svn-id: svn://tug.org/texlive/trunk@25257 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/tetex/updmap.pl | 35 +++++++++++++++++++++++++++++++++-- 1 file changed, 33 insertions(+), 2 deletions(-) (limited to 'Master') 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); } } @@ -660,6 +663,28 @@ m/^(dvipsPreferOutline|dvipsDownloadBase35|(pdftex|dvipdfm)DownloadBase14|pxdviU &configReplace("$cnfFile", "^" . "$opt" . "\\s", "$opt $val"); } +############################################################################### +# 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; -- cgit v1.2.3