summaryrefslogtreecommitdiff
path: root/Master/tlpkg/dev/quilt-patches/dev.multi-updmap
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/dev/quilt-patches/dev.multi-updmap')
-rw-r--r--Master/tlpkg/dev/quilt-patches/dev.multi-updmap4209
1 files changed, 4209 insertions, 0 deletions
diff --git a/Master/tlpkg/dev/quilt-patches/dev.multi-updmap b/Master/tlpkg/dev/quilt-patches/dev.multi-updmap
new file mode 100644
index 00000000000..551bb33f852
--- /dev/null
+++ b/Master/tlpkg/dev/quilt-patches/dev.multi-updmap
@@ -0,0 +1,4209 @@
+---
+ install-tl | 7
+ texmf-dist/web2c/updmap.cfg | 230 +++
+ texmf/scripts/tetex/updmap.pl | 3017 ++++++++++++++++++++++++-----------------
+ texmf/scripts/texlive/tlmgr.pl | 131 -
+ texmf/web2c/updmap-hdr.cfg | 107 -
+ texmf/web2c/updmap.cfg | 256 ---
+ tlpkg/TeXLive/TLUtils.pm | 67
+ 7 files changed, 2071 insertions(+), 1744 deletions(-)
+
+Index: Master/texmf/web2c/updmap.cfg
+===================================================================
+--- Master.orig/texmf/web2c/updmap.cfg 2012-01-12 12:54:40.000000000 +0900
++++ Master/texmf/web2c/updmap.cfg 2012-01-12 12:55:09.000000000 +0900
+@@ -1,31 +1,7 @@
+-# Generated by /home/texlive/karl/Master/bin/i386-linux/tlmgr on Mon Jan 9 04:29:26 2012
+-# $Id: updmap-hdr.cfg 24398 2011-10-26 01:07:22Z preining $
+-#
+-# The full updmap.cfg is generated by concatenating updmap-hdr.cfg with
+-# all the Map and MixedMap lines from an installation, possibly
+-# appending a local configuration file.
+-#
+-# To make local customizations to the map files, please use of the
+-# following methods:
+-#
+-# 1) call
+-# updmap-sys --enable Map=foo.map
+-# for each map file. (Or MixedMap instead of Map, if your font has
+-# both Metafont and outline definitions.) See the updmap --help
+-# documentation.
+-#
+-# 2) add your local map entries to the file
+-# TEXMFLOCAL/web2c/updmap-local.cfg
+-# and then call
+-# tlmgr generate updmap
+-# which will concatenate updmap-local.cfg to the end of the final
+-# updmap.cfg. (You can override the local.cfg file location with the
+-# --localcfg option; see tlmgr --help.)
+-#
+-# If you use either of these methods, your local adaptations will be
+-# preserved when tlmgr updates the installation or this config file.
+-# Manual edits to updmap.cfg may be lost on update.
+-
++#
++# updmap.cfg
++# TEXMFMAIN
++# only the options are defined here
+
+ ################################################################
+ # OPTIONS
+@@ -100,227 +76,3 @@
+ # map file used.
+ kanjiEmbed noEmbed
+
+-################################################################
+-# Map files.
+-################################################################
+-#
+-# There are two possible entries: Map and MixedMap. Both have one additional
+-# argument: the filename of the map file. MixedMap ("mixed" means that
+-# the font is available as bitmap and as outline) lines will not be used
+-# in the default map of dvips if dvipsPreferOutline is false. Inactive
+-# Map files should be marked by "#! " (without the quotes), not just #.
+-#
+-
+-Map OrnementsADF.map
+-Map ArrowsADF.map
+-Map BulletsADF.map
+-MixedMap allrunes.map
+-Map euler.map
+-MixedMap cm.map
+-MixedMap cmextra.map
+-MixedMap cyrillic.map
+-MixedMap latxfont.map
+-MixedMap symbols.map
+-Map uaq.map
+-Map antt.map
+-Map arabi.map
+-MixedMap arabtex.map
+-Map archaicprw.map
+-Map arev.map
+-Map bkaiu.map
+-Map bsmiu.map
+-Map gbsnu.map
+-Map gkaiu.map
+-Map ascii.map
+-Map augie.map
+-Map auncial.map
+-Map aurical.map
+-Map ybv.map
+-MixedMap bbold.map
+-Map belleek.map
+-Map bera.map
+-Map ybd.map
+-Map sqrcaps.map
+-Map boondox.map
+-Map pbsi.map
+-Map burmese.map
+-Map calligra.map
+-Map cantarell.map
+-Map cmin.map
+-MixedMap cbgreek-full.map
+-MixedMap ccpl.map
+-Map ccicons.map
+-Map clm.map
+-Map chemarrow.map
+-Map cjhebrew.map
+-MixedMap cmtext-bsr-interpolated.map
+-Map cm-lgc.map
+-MixedMap cm-super-t1.map
+-MixedMap cm-super-t2a.map
+-MixedMap cm-super-t2b.map
+-MixedMap cm-super-t2c.map
+-MixedMap cm-super-ts1.map
+-MixedMap cm-super-x2.map
+-Map cmcyr.map
+-MixedMap cmll.map
+-Map comfortaa.map
+-Map original-context-symbol.map
+-MixedMap csother.map
+-MixedMap cstext.map
+-Map cyklop.map
+-Map dejavu-type1.map
+-Map dictsym.map
+-Map dstroke.map
+-Map droid.map
+-Map dutchcal.map
+-Map yes.map
+-Map epigrafica.map
+-Map epiolmec.map
+-MixedMap esint.map
+-Map ESSTIX.map
+-Map esvect.map
+-MixedMap ethiop.map
+-MixedMap eurosym.map
+-Map fdsymbol.map
+-Map fge.map
+-Map foekfont.map
+-Map fonetika.map
+-Map fourier-utopia-expert.map
+-Map fourier.map
+-Map frcursive.map
+-Map garuda-c90.map
+-Map gfsartemisia.map
+-Map gfsbaskerville.map
+-Map gfsbodoni.map
+-Map gfscomplutum.map
+-Map gfsdidot.map
+-Map gfsneohellenic.map
+-Map gfsporson.map
+-Map gfssolomos.map
+-Map yfrak.map
+-Map ugq.map
+-Map grverb.map
+-MixedMap hfbright.map
+-MixedMap iby.map
+-Map fi4.map
+-Map Acorn.map
+-Map AnnSton.map
+-Map ArtNouv.map
+-Map ArtNouvc.map
+-Map Carrickc.map
+-Map Eichenla.map
+-Map Eileen.map
+-Map EileenBl.map
+-Map Elzevier.map
+-Map GotIn.map
+-Map GoudyIn.map
+-Map Kinigcap.map
+-Map Konanur.map
+-Map Kramer.map
+-Map MorrisIn.map
+-Map Nouveaud.map
+-Map Romantik.map
+-Map Rothdn.map
+-Map RoyalIn.map
+-Map Sanremo.map
+-Map Starburst.map
+-Map Typocaps.map
+-Map Zallman.map
+-Map iwona.map
+-KanjiMap otf-@kanjiEmbed@.map
+-KanjiMap otf-cktx.map
+-Map kerkis.map
+-Map knitfont.map
+-Map kpfonts.map
+-Map kurier.map
+-Map lato.map
+-Map libertine.map
+-Map yly.map
+-Map linearA.map
+-Map l7x-urwvn.map
+-Map lm.map
+-MixedMap lxfonts.map
+-MixedMap manfnt.map
+-Map marvosym.map
+-Map mathabx.map
+-Map mdbch.map
+-Map mdput.map
+-Map mdugm.map
+-Map mdsymbol.map
+-Map troff-updmap.map
+-MixedMap mflogo.map
+-Map MnSymbol.map
+-MixedMap mongolian.map
+-MixedMap musix.map
+-Map norasi-c90.map
+-Map cherokee.map
+-Map ocrb.map
+-Map oinuit.map
+-Map omega.map
+-Map opensans.map
+-Map paratype-type1.map
+-Map phaistos.map
+-MixedMap pigpen.map
+-MixedMap plother.map
+-MixedMap pltext.map
+-Map ap.map
+-Map prodint.map
+-Map charter.map
+-Map fpls.map
+-Map pazo.map
+-Map utopia.map
+-KanjiMap morisawa.map
+-KanjiMap ptex-@kanjiEmbed@.map
+-Map pxfonts.map
+-Map pxtx.map
+-Map recycle.map
+-Map yrd.map
+-MixedMap rsfs.map
+-Map rsfso.map
+-Map skt.map
+-MixedMap semaf.map
+-Map SkakNew.map
+-Map starfont.map
+-Map icelandic.map
+-MixedMap stmaryrd.map
+-Map tabvar.map
+-Map mathpple.map
+-Map qag.map
+-Map qbk.map
+-Map qcr.map
+-Map qcs.map
+-Map qhv.map
+-Map qpl.map
+-Map qtm.map
+-Map qzc.map
+-Map tfrupee.map
+-MixedMap tipa.map
+-MixedMap trajan.map
+-Map txfonts.map
+-Map gptimes.map
+-Map umj.map
+-MixedMap dvng.map
+-Map yv1.map
+-Map yv2.map
+-Map yv3.map
+-Map yvo.map
+-Map yvt.map
+-Map arevvn.map
+-Map chartervn.map
+-Map cmbrightvn.map
+-Map concretevn.map
+-Map grotesqvn.map
+-Map txttvn.map
+-Map urwvn.map
+-MixedMap vnrother.map
+-MixedMap vnrtext.map
+-Map vntopia.map
+-Map dgj.map
+-Map dmj.map
+-Map mc2j.map
+-Map mcj.map
+-Map mr2j.map
+-Map mrj.map
+-MixedMap wasy.map
+-MixedMap xypic.map
+-MixedMap yhmath.map
+Index: Master/texmf-dist/web2c/updmap.cfg
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ Master/texmf-dist/web2c/updmap.cfg 2012-01-12 12:56:10.000000000 +0900
+@@ -0,0 +1,230 @@
++#
++# updmap.cfg
++# TEXMFDIST
++# only contains the actual maps
++# settings are in TEXMFMAIN
++
++################################################################
++# Map files.
++################################################################
++#
++# There are two possible entries: Map and MixedMap. Both have one additional
++# argument: the filename of the map file. MixedMap ("mixed" means that
++# the font is available as bitmap and as outline) lines will not be used
++# in the default map of dvips if dvipsPreferOutline is false. Inactive
++# Map files should be marked by "#! " (without the quotes), not just #.
++#
++
++Map OrnementsADF.map
++Map ArrowsADF.map
++Map BulletsADF.map
++MixedMap allrunes.map
++Map euler.map
++MixedMap cm.map
++MixedMap cmextra.map
++MixedMap cyrillic.map
++MixedMap latxfont.map
++MixedMap symbols.map
++Map uaq.map
++Map antt.map
++Map arabi.map
++MixedMap arabtex.map
++Map archaicprw.map
++Map arev.map
++Map bkaiu.map
++Map bsmiu.map
++Map gbsnu.map
++Map gkaiu.map
++Map ascii.map
++Map augie.map
++Map auncial.map
++Map aurical.map
++Map ybv.map
++MixedMap bbold.map
++Map belleek.map
++Map bera.map
++Map ybd.map
++Map sqrcaps.map
++Map boondox.map
++Map pbsi.map
++Map burmese.map
++Map calligra.map
++Map cantarell.map
++Map cmin.map
++MixedMap cbgreek-full.map
++MixedMap ccpl.map
++Map ccicons.map
++Map clm.map
++Map chemarrow.map
++Map cjhebrew.map
++MixedMap cmtext-bsr-interpolated.map
++Map cm-lgc.map
++MixedMap cm-super-t1.map
++MixedMap cm-super-t2a.map
++MixedMap cm-super-t2b.map
++MixedMap cm-super-t2c.map
++MixedMap cm-super-ts1.map
++MixedMap cm-super-x2.map
++Map cmcyr.map
++MixedMap cmll.map
++Map comfortaa.map
++Map original-context-symbol.map
++MixedMap csother.map
++MixedMap cstext.map
++Map cyklop.map
++Map dejavu-type1.map
++Map dictsym.map
++Map dstroke.map
++Map droid.map
++Map dutchcal.map
++Map yes.map
++Map epigrafica.map
++Map epiolmec.map
++MixedMap esint.map
++Map ESSTIX.map
++Map esvect.map
++MixedMap ethiop.map
++MixedMap eurosym.map
++Map fdsymbol.map
++Map fge.map
++Map foekfont.map
++Map fonetika.map
++Map fourier-utopia-expert.map
++Map fourier.map
++Map frcursive.map
++Map garuda-c90.map
++Map gfsartemisia.map
++Map gfsbaskerville.map
++Map gfsbodoni.map
++Map gfscomplutum.map
++Map gfsdidot.map
++Map gfsneohellenic.map
++Map gfsporson.map
++Map gfssolomos.map
++Map yfrak.map
++Map ugq.map
++Map grverb.map
++MixedMap hfbright.map
++MixedMap iby.map
++Map fi4.map
++Map Acorn.map
++Map AnnSton.map
++Map ArtNouv.map
++Map ArtNouvc.map
++Map Carrickc.map
++Map Eichenla.map
++Map Eileen.map
++Map EileenBl.map
++Map Elzevier.map
++Map GotIn.map
++Map GoudyIn.map
++Map Kinigcap.map
++Map Konanur.map
++Map Kramer.map
++Map MorrisIn.map
++Map Nouveaud.map
++Map Romantik.map
++Map Rothdn.map
++Map RoyalIn.map
++Map Sanremo.map
++Map Starburst.map
++Map Typocaps.map
++Map Zallman.map
++Map iwona.map
++KanjiMap otf-@kanjiEmbed@.map
++KanjiMap otf-cktx.map
++Map kerkis.map
++Map knitfont.map
++Map kpfonts.map
++Map kurier.map
++Map lato.map
++Map libertine.map
++Map yly.map
++Map linearA.map
++Map l7x-urwvn.map
++Map lm.map
++MixedMap lxfonts.map
++MixedMap manfnt.map
++Map marvosym.map
++Map mathabx.map
++Map mdbch.map
++Map mdput.map
++Map mdugm.map
++Map mdsymbol.map
++Map troff-updmap.map
++MixedMap mflogo.map
++Map MnSymbol.map
++MixedMap mongolian.map
++MixedMap musix.map
++Map norasi-c90.map
++Map cherokee.map
++Map ocrb.map
++Map oinuit.map
++Map omega.map
++Map opensans.map
++Map paratype-type1.map
++Map phaistos.map
++MixedMap pigpen.map
++MixedMap plother.map
++MixedMap pltext.map
++Map ap.map
++Map prodint.map
++Map charter.map
++Map fpls.map
++Map pazo.map
++Map utopia.map
++KanjiMap morisawa.map
++KanjiMap ptex-@kanjiEmbed@.map
++Map pxfonts.map
++Map pxtx.map
++Map recycle.map
++Map yrd.map
++MixedMap rsfs.map
++Map rsfso.map
++Map skt.map
++MixedMap semaf.map
++Map SkakNew.map
++Map starfont.map
++Map icelandic.map
++MixedMap stmaryrd.map
++Map tabvar.map
++Map mathpple.map
++Map qag.map
++Map qbk.map
++Map qcr.map
++Map qcs.map
++Map qhv.map
++Map qpl.map
++Map qtm.map
++Map qzc.map
++Map tfrupee.map
++MixedMap tipa.map
++MixedMap trajan.map
++Map txfonts.map
++Map gptimes.map
++Map umj.map
++MixedMap dvng.map
++Map yv1.map
++Map yv2.map
++Map yv3.map
++Map yvo.map
++Map yvt.map
++Map arevvn.map
++Map chartervn.map
++Map cmbrightvn.map
++Map concretevn.map
++Map grotesqvn.map
++Map txttvn.map
++Map urwvn.map
++MixedMap vnrother.map
++MixedMap vnrtext.map
++Map vntopia.map
++Map dgj.map
++Map dmj.map
++Map mc2j.map
++Map mcj.map
++Map mr2j.map
++Map mrj.map
++MixedMap wasy.map
++MixedMap xypic.map
++MixedMap yhmath.map
+Index: Master/texmf/scripts/texlive/tlmgr.pl
+===================================================================
+--- Master.orig/texmf/scripts/texlive/tlmgr.pl 2012-01-12 12:54:40.000000000 +0900
++++ Master/texmf/scripts/texlive/tlmgr.pl 2012-01-12 13:42:40.000000000 +0900
+@@ -624,47 +624,21 @@
+ chomp(my $TEXMFSYSVAR = `kpsewhich -var-value=TEXMFSYSVAR`);
+ chomp(my $TEXMFSYSCONFIG = `kpsewhich -var-value=TEXMFSYSCONFIG`);
+ chomp(my $TEXMFLOCAL = `kpsewhich -var-value=TEXMFLOCAL`);
++ chomp(my $TEXMFDIST = `kpsewhich -var-value=TEXMFDIST`);
+
+ #
+ # maps handling
+- # if enabled and disabled -> do nothing
+- # if only enabled -> enable it
+- # if only disabled -> disable it
+- # if the option "generate_updmap" is set, then simply ignore all that
+- # and run the equivalent of tlmgr generate updmap
+ {
+ my $updmap_run_needed = 0;
+- my %do_enable;
+- my %do_disable;
+ for my $m (keys %{$::execute_actions{'enable'}{'maps'}}) {
+ $updmap_run_needed = 1;
+- $do_enable{$m} = 1;
+ }
+ for my $m (keys %{$::execute_actions{'disable'}{'maps'}}) {
+ $updmap_run_needed = 1;
+- if (defined($do_enable{$m})) {
+- # we are upgrading because it is disabled and enabled, so
+- # delete the entry in do_enable, it is already
+- delete $do_enable{$m};
+- } else {
+- # not new installed, so simply removed
+- $do_disable{$m} = 1;
+- }
+- }
+- if ($updmap_run_needed && $localtlpdb->option("generate_updmap")) {
+- my $dest = "$TEXMFSYSCONFIG/web2c/updmap.cfg";
+- my $localcfg = "$TEXMFLOCAL/web2c/updmap-local.cfg";
+- info("tlmgr: generate_updmap writing new $dest\n");
+- TeXLive::TLUtils::create_updmap($localtlpdb, $dest, $localcfg);
+- } else {
+- for my $m (keys %do_disable) {
+- $errors += do_cmd_and_check("updmap-sys --nomkmap --nohash --disable $m");
+- }
+- for my $m (keys %do_enable) {
+- my $str = "updmap-sys --nomkmap --nohash --enable " .
+- $::execute_actions{'enable'}{'maps'}{$m} . "=$m";
+- $errors += do_cmd_and_check($str);
+- }
++ }
++ if ($updmap_run_needed) {
++ my $dest = "$TEXMFDIST/web2c/updmap.cfg";
++ TeXLive::TLUtils::create_updmap($localtlpdb, $dest);
+ }
+ $errors += do_cmd_and_check("updmap-sys") if $updmap_run_needed;
+ }
+@@ -3918,17 +3892,15 @@
+ init_local_db();
+
+ # we create fmtutil.cnf, language.dat, language.def in TEXMFSYSVAR and
+- # updmap.cfg in TEXMFSYSCONFIG. The reason is that calls to
+- # updmap-sys (as is done by the tlmgr update call when packages with
+- # maps are installed) will create the updmap.cfg file in
+- # TEXMFSYSCONFIG. It would start from the version in TEXMFSYSVAR, but
+- # after that the TEXMFSYSCONFIG takes precedence and thus the
+- # mechanism explained in updmap.cfg header would not work. We don't
+- # want that. So just use TEXMFSYSCONFIG from the start.
++ # updmap.cfg in TEXMFDIST. The reason is that we are now using an
++ # implementation of updmap that supports multiple updmap files.
++ # Local adaptions should not be made there, but only in TEXMFLOCAL
++ # or TEXMF(SYS)CONFIG updmap.cfg
+ #
+ chomp (my $TEXMFSYSVAR = `kpsewhich -var-value=TEXMFSYSVAR`);
+ chomp (my $TEXMFSYSCONFIG = `kpsewhich -var-value=TEXMFSYSCONFIG`);
+ chomp (my $TEXMFLOCAL = `kpsewhich -var-value=TEXMFLOCAL`);
++ chomp (my $TEXMFDIST = `kpsewhich -var-value=TEXMFDIST`);
+
+ # we do generate all config files, treat $opts{"dest"} as pattern
+ # and make it append the respective extensions
+@@ -4006,10 +3978,9 @@
+ }
+
+ } elsif ($what =~ m/^updmap$/i) {
+- my $dest = $opts{"dest"} || "$TEXMFSYSCONFIG/web2c/updmap.cfg";
+- my $localcfg = $opts{"localcfg"} || "$TEXMFLOCAL/web2c/updmap-local.cfg";
++ my $dest = $opts{"dest"} || "$TEXMFDIST/web2c/updmap.cfg";
+ debug("$0: writing new updmap.cfg to $dest\n");
+- TeXLive::TLUtils::create_updmap($localtlpdb, $dest, $localcfg);
++ TeXLive::TLUtils::create_updmap($localtlpdb, $dest);
+
+ if ($opts{"rebuild-sys"}) {
+ do_cmd_and_check("updmap-sys");
+@@ -6110,7 +6081,6 @@
+ sys_bin (directory to which executables are linked by the path action)
+ sys_man (directory to which man pages are linked by the path action)
+ sys_info (directory to which Info files are linked by the path action)
+- generate_updmap (run the equivalent of tlmgr generate updmap on changes)
+ desktop_integration (Windows-only: create Start menu shortcuts)
+ fileassocs (Windows-only: change file associations)
+ multiuser (Windows-only: install for all users)
+@@ -6166,9 +6136,6 @@
+ Unix-like systems to control the generation of links for executables,
+ info files and man pages. See the C<path> action for details.
+
+-For the C<generate_updmap> option, see the C<updmap> section in
+-L<generate|/"generate [I<option>]... I<what>">.
+-
+ The last three options control behaviour on Windows installations. If
+ C<desktop_integration> is set, then some packages will install items in
+ a sub-folder of the Start menu for C<tlmgr gui>, documentation, etc. If
+@@ -6558,31 +6525,20 @@
+ =back
+
+ The C<generate> action overwrites any manual changes made in the
+-respective files: it recreates them from scratch.
++respective files: it recreates them from scratch based on the
++information of the installed packages, plus local adaptions.
+
+-For C<fmtutil> and the language files, this is normal, and both the TeX
+-Live installer and C<tlmgr> routinely call C<generate> for them.
++The TeX Live installer and C<tlmgr> routinely call C<generate> for
++all of these files.
+
+-For C<updmap>, however, C<tlmgr> does I<not> use C<generate> by default,
+-because the result would be to disable all maps which have been manually
+-installed via S<C<updmap-sys --enable>>, e.g., for proprietary or local
+-fonts, which has been the standard method for adding fonts to TeX
+-installations for years. Rather, the C<generate> action only
+-incorporates the changes in the C<--localcfg> file mentioned below.
+-
+-Notwithstanding the above, if you only use the fonts and font packages
+-within TeX Live, and rigorously maintain your local fonts (if any) using
+-C<updmap-local.cfg>, there is nothing wrong with using C<generate
+-updmap>. It can be helpful in moving from release to release,
+-especially. We use it ourselves to generate the C<updmap.cfg> file in
+-the live source repository. If you want to commit yourself to using
+-C<updmap-local.cfg>, you can set the C<generate_updmap> option and
+-C<tlmgr> will run C<generate updmap> for you on update.
+-
+-In any case, C<tlmgr> updates and maintains the final C<updmap.cfg> in
+-C<TEXMFSYSCONFIG> (while the other generated files are in
+-C<TEXMFSYSVAR>), because that is the location that C<updmap-sys> (via
+-C<tcfmgr>) historically uses.
++For managing your own fonts, please see the documentation of
++updmap, which supports multiple updmap.cfg files. So by simply
++editing TEXMFLOCAL's updmap.cfg they will be accounted for.
++
++In any case, C<tlmgr> updates and maintains C<updmap.cfg> in
++C<TEXMFDIST> (while the other generated files are in
++C<TEXMFSYSVAR>), because that is the location where the fonts
++are installed.
+
+ In more detail: C<generate> remakes any of the five config files
+ C<language.dat>, C<language.def>, C<language.dat.lua>, C<fmtutil.cnf>,
+@@ -6590,26 +6546,27 @@
+ locally-maintained files.
+
+ The locally-maintained files are C<language-local.dat>,
+-C<language-local.def>, C<language-local.dat.lua>, C<fmtutil-local.cnf>,
+-or C<updmap-local.cfg>, searched for in C<TEXMFLOCAL> in the respective
+-directories. If they are present, the final file is made by starting
++C<language-local.def>, C<language-local.dat.lua>, or C<fmtutil-local.cnf>,
++searched for in C<TEXMFLOCAL> in the respective directories.
++The formerly supported C<updmap-local.cfg> is not supported anymore,
++since C<updmap> now supports multiple updmap.cfg files, so local
++additions can be put into an updmap.cfg file in TEXMFLOCAL.
++If local additions are present, the final file is made by starting
+ with the main file, omitting any entries that the local file specifies
+ to be disabled, and finally appending the local file.
+
+ Local files specify entries to be disabled with a comment line, namely
+ one of these:
+
+- #!NAME
+ %!NAME
+ --!NAME
+
+-where C<fmtutil.cnf> and C<updmap.cfg> use C<#>, C<language.dat> and
++where C<fmtutil.cnf> uses C<#>, C<language.dat> and
+ C<language.def> use C<%>, and C<language.dat.lua> use C<-->. In any
+-case, the I<name> is the respective format name, map file name (include
+-the C<.map> extension), or hyphenation pattern identifier. Examples:
++case, the I<name> is the respective format name, or hyphenation pattern
++identifier. Examples:
+
+ #!pdflatex
+- #!lm.map
+ %!german
+ --!usenglishmax
+
+@@ -6622,20 +6579,9 @@
+ syntax as the master files.
+
+ The form C<generate language> recreates both the C<language.dat>, the
+-C<language.def> and the C<language.dat.lua>files, while the forms with
++C<language.def> and the C<language.dat.lua> files, while the forms with
+ extension recreates only the given language file.
+
+-Special consideration for updmap.cfg: in addition to font map files,
+-this file specifies the setting of five options: C<dvipsPreferOutline>,
+-C<LW35>, C<dvipsDownloadBase35>, C<pdftexDownloadBase14>, and
+-C<dvipdfmDownloadBase14>. The defaults for these as set in
+-C<updmap-hdr.cfg> are usually fine. If you want to change them, you can
+-include changed settings for any or all of these five options in your
+-C<updmap-local.cfg> file and they will be respected by C<generate
+-updmap>. For example:
+-
+- dvipsDownloadBase35 true
+-
+ Options:
+
+ =over 4
+@@ -6643,7 +6589,7 @@
+ =item B<--dest> I<output_file>
+
+ specifies the output file (defaults to the respective location in
+-C<TEXMFSYSVAR> for C<language*> and C<fmtutil>, and C<TEXMFSYSCONFIG>
++C<TEXMFSYSVAR> for C<language*> and C<fmtutil>, and C<TEXMFSYSDIST>
+ for C<updmap>). If C<--dest> is given to C<generate language>, it serves
+ as a basename onto which C<.dat> will be appended for the name of the
+ C<language.dat> output file, C<.def> will be
+@@ -6681,13 +6627,6 @@
+ web2c/fmtutil.cnf (and fmtutil-local.cnf);
+ web2c/updmap.cfg (and updmap-local.cfg).
+
+-Final repetition: as explained above, C<tlmgr> does I<not> use
+-C<generate updmap> for font map files. Therefore, if you want to make
+-use of C<updmap-local.cfg>, you must run C<tlmgr generate updmap>
+-and C<updmap-sys> yourself after making any local changes. If you
+-make yourself responsible for rigorously using C<updmap-local.cfg>), set
+-C<option generate_updmap>).
+-
+
+ =head1 CONFIGURATION FILE
+
+Index: Master/texmf/web2c/updmap-hdr.cfg
+===================================================================
+--- Master.orig/texmf/web2c/updmap-hdr.cfg 2011-10-26 10:07:22.000000000 +0900
++++ Master/texmf/web2c/updmap-hdr.cfg 2012-01-12 13:42:09.000000000 +0900
+@@ -1,8 +1,8 @@
+ # $Id: updmap-hdr.cfg 24398 2011-10-26 01:07:22Z preining $
+ #
+-# The full updmap.cfg is generated by concatenating updmap-hdr.cfg with
+-# all the Map and MixedMap lines from an installation, possibly
+-# appending a local configuration file.
++# The updmap.cfg in this tree (TEXMFDIST) is generated by tlmgr by
++# concatenating updmap-hdr.cfg with all the Map and MixedMap lines
++# from an installation.
+ #
+ # To make local customizations to the map files, please use of the
+ # following methods:
+@@ -11,102 +11,11 @@
+ # updmap-sys --enable Map=foo.map
+ # for each map file. (Or MixedMap instead of Map, if your font has
+ # both Metafont and outline definitions.) See the updmap --help
+-# documentation.
++# documentation. This will add lines to the updmap.cfg file in
++# TEXMFSYSCONFIG (creating it if necessary).
+ #
+-# 2) add your local map entries to the file
+-# TEXMFLOCAL/web2c/updmap-local.cfg
+-# and then call
+-# tlmgr generate updmap
+-# which will concatenate updmap-local.cfg to the end of the final
+-# updmap.cfg. (You can override the local.cfg file location with the
+-# --localcfg option; see tlmgr --help.)
++# 2) put all your additional fonts into TEXMFLOCAL and edit
++# TEXMFLOCAL/web2c/updmap.cfg.
+ #
+-# If you use either of these methods, your local adaptations will be
+-# preserved when tlmgr updates the installation or this config file.
+-# Manual edits to updmap.cfg may be lost on update.
+-
+-
+-################################################################
+-# OPTIONS
+-################################################################
+-
++# Manual edits to this updmap.cfg will be lost on update.
+ #
+-# dvipsPreferOutline
+-#
+-# Should dvips (by default) prefer bitmap fonts or outline fonts
+-# if both are available? Independent of this setting, outlines
+-# can be forced by putting "p psfonts_t1.map" into a config file
+-# that dvips reads. Bitmaps (for the fonts in question) can
+-# be forced by putting "p psfonts_pk.map" into a config file.
+-# We provide such config files which can be enabled via
+-# dvips -Poutline ... resp. dvips -Ppk ...
+-#
+-# Valid settings for dvipsPreferOutline are true / false:
+-dvipsPreferOutline true
+-
+-#
+-# LW35
+-#
+-# Which fonts for the "Basic 35 Laserwriter Fonts" do you want to use and
+-# how are the filenames chosen? Valid settings:
+-# URW: URW fonts with "vendor" filenames (e.g. n019064l.pfb)
+-# URWkb: URW fonts with "berry" filenames (e.g. uhvbo8ac.pfb)
+-# ADOBE: Adobe fonts with "vendor" filenames (e.g. hvnbo___.pfb)
+-# ADOBEkb: Adobe fonts with "berry" filenames (e.g. phvbo8an.pfb)
+-LW35 URWkb
+-
+-#
+-# dvipsDownloadBase35
+-#
+-# Should dvips (by default) download the standard 35 LaserWriter fonts
+-# with the document (then set dvipsDownloadBase35 true) or should these
+-# fonts be used from the ps interpreter / printer?
+-# Whatever the default is, the user can override it by specifying
+-# dvips -Pdownload35 ... resp. dvips -Pbuiltin35 ... to either download
+-# the LW35 fonts resp. use the built-in fonts.
+-#
+-# Valid settings are true / false:
+-dvipsDownloadBase35 true
+-
+-#
+-# pdftexDownloadBase14
+-#
+-# Should pdftex download the base 14 pdf fonts? Since some configurations
+-# (ps / pdf tools / printers) use bad default fonts, it is safer to download
+-# the fonts. The pdf files will get bigger, though.
+-# Valid settings are true (download the fonts) or false (don't download
+-# the fonts). Adobe recommends embedding all fonts.
+-pdftexDownloadBase14 true
+-
+-#
+-# dvipdfmDownloadBase14
+-#
+-# Should dvipdfm download the base 14 pdf fonts? Since some configurations
+-# (ps / pdf tools / printers) use bad default fonts, it is safer to download
+-# the fonts. The pdf files will get bigger, though.
+-# Valid settings are true (download the fonts) or false (don't download
+-# the fonts).
+-dvipdfmDownloadBase14 true
+-
+-#
+-# kanjiEmbed
+-#
+-# updmap generates a file kanjix.map for usage with dvipdfmx. Using this
+-# option one can switch between not embedding any kanji font, and several
+-# available.
+-# Valid setting is any string. At updmap run time the @kanjiEmbed@ substring
+-# in a map file name will be replaced with this settings, and the respective
+-# map file used.
+-kanjiEmbed noEmbed
+-
+-################################################################
+-# Map files.
+-################################################################
+-#
+-# There are two possible entries: Map and MixedMap. Both have one additional
+-# argument: the filename of the map file. MixedMap ("mixed" means that
+-# the font is available as bitmap and as outline) lines will not be used
+-# in the default map of dvips if dvipsPreferOutline is false. Inactive
+-# Map files should be marked by "#! " (without the quotes), not just #.
+-#
+-
+Index: Master/tlpkg/TeXLive/TLUtils.pm
+===================================================================
+--- Master.orig/tlpkg/TeXLive/TLUtils.pm 2012-01-05 11:07:33.000000000 +0900
++++ Master/tlpkg/TeXLive/TLUtils.pm 2012-01-12 13:04:16.000000000 +0900
+@@ -2575,67 +2575,10 @@
+ }
+
+ sub create_updmap {
+- my ($tlpdb,$dest,$localconf) = @_;
+- my @tlpdblines = $tlpdb->updmap_cfg_lines(
+- get_disabled_local_configs($localconf, '#'));
+- # we do not use _create_config_files here because we want to
+- # parse the $localconf file for the five options in updmap.cfg
+- #_create_config_files($tlpdb, "texmf/web2c/updmap-hdr.cfg", $dest,
+- # $localconf, 0, '#', \@tlpdblines);
+- my $headfile = "texmf/web2c/updmap-hdr.cfg";
+- my $root = $tlpdb->root;
+- my @lines;
+- my @localconflines;
+- my %configs;
+- if (-r "$localconf") {
+- #
+- # this should be done more intelligently, but for now only add those
+- # lines without any duplication check ...
+- open FOO, "<$localconf"
+- or die "strange, -r ok but cannot open $localconf: $!";
+- my @bla = <FOO>;
+- close(FOO);
+- for my $l (@bla) {
+- my ($k, $v, @rest) = split(' ', $l);
+- if (check_updmap_config_value($k, $v, $localconf)) {
+- $configs{$k} = $v;
+- } else {
+- push @localconflines, $l;
+- }
+- }
+- }
+- #
+- # read the -hdr file and replace the options if given in the local
+- # config file
+- open(INFILE,"<$root/$headfile") or die("Cannot open $root/$headfile");
+- for my $l (<INFILE>) {
+- my ($k, $v, @rest) = split(' ', $l);
+- if (check_updmap_config_value($k, $v, "$root/$headfile")) {
+- if (defined($configs{$k})) {
+- push @lines, "$k $configs{$k}\n";
+- } else {
+- push @lines, $l;
+- }
+- } else {
+- push @lines, $l;
+- }
+- }
+- close (INFILE);
+-
+- # add the lines from the tlpdb
+- push @lines, @tlpdblines;
+-
+- # add additional local config lines
+- push @lines, @localconflines;
+-
+- if ($#lines >= 0) {
+- open(OUTFILE,">$dest")
+- or die("Cannot open $dest for writing: $!");
+-
+- printf OUTFILE "# Generated by %s on %s\n", "$0", scalar localtime;
+- print OUTFILE @lines;
+- close(OUTFILE) || warn "close(>$dest) failed: $!";
+- }
++ my ($tlpdb,$dest) = @_;
++ my @tlpdblines = $tlpdb->updmap_cfg_lines();
++ _create_config_files($tlpdb, "texmf/web2c/updmap-hdr.cfg", $dest,
++ undef, 0, '#', \@tlpdblines);
+ }
+
+ sub check_updmap_config_value {
+@@ -2703,7 +2646,7 @@
+ my @lines = <INFILE>;
+ push @lines, @$tlpdblinesref;
+ close (INFILE);
+- if (-r "$localconf") {
++ if (defined($localconf) && -r $localconf) {
+ #
+ # this should be done more intelligently, but for now only add those
+ # lines without any duplication check ...
+Index: Master/install-tl
+===================================================================
+--- Master.orig/install-tl 2011-10-07 07:50:55.000000000 +0900
++++ Master/install-tl 2012-01-12 13:27:39.000000000 +0900
+@@ -861,11 +861,10 @@
+ "$TEXMFSYSVAR/web2c/fmtutil.cnf",
+ "$TEXMFLOCAL/web2c/fmtutil-local.cnf");
+
+- mkdirhier "$vars{'TEXMFSYSCONFIG'}/web2c";
+- info("writing updmap.cfg to $TEXMFSYSCONFIG/web2c/updmap.cfg\n");
++ mkdirhier "$TEXDIR/texmf-dist/web2c";
++ info("writing updmap.cfg to $TEXDIR/texmf-dist/web2c/updmap.cfg\n");
+ TeXLive::TLUtils::create_updmap ($usedtlpdb,
+- "$TEXMFSYSCONFIG/web2c/updmap.cfg",
+- "$TEXMFLOCAL/web2c/updmap-local.cfg");
++ "$TEXDIR/texmf-dist/web2c/updmap.cfg");
+
+ info("writing language.dat to $TEXMFSYSVAR/tex/generic/config/language.dat\n");
+ TeXLive::TLUtils::create_language_dat($usedtlpdb,
+Index: Master/texmf/scripts/tetex/updmap.pl
+===================================================================
+--- Master.orig/texmf/scripts/tetex/updmap.pl 2011-11-16 07:55:48.000000000 +0900
++++ Master/texmf/scripts/tetex/updmap.pl 2012-01-12 13:48:49.000000000 +0900
+@@ -1,390 +1,452 @@
+-#! /usr/bin/env perl
+-# updmap: utility to maintain map files for outline fonts.
+-#
+-# Copyright 2002-2011 Thomas Esser.
+-# Fabrice Popineau wrote the Perl version.
++#!/usr/bin/env perl
++# mupdmap: utility to maintain map files for outline fonts.
++# $Id: mupdmap.pl 25074 2012-01-12 02:48:37Z preining $
++#
++# Copyright 2011, 2012 Norbert Preining
++# This file is licensed under the GNU General Public License version 2
++# or any later version.
++#
++# History:
++# Original shell script (C) 2002 Thomas Esser
++# first perl variant (C) Fabrice Popineau
++# later adaptions by Reinhard Kotucha and Karl Berry
++# the original versions were licensed under the following agreement:
+ # Anyone may freely use, modify, and/or distribute this file, without
+ # limitation.
++#
++# TODO
++# - check all other invocations
++#
++# TODO after inclusion in TL:
++# - remove the special code that excludes TEXMFMAIN and reorder the rest,
++# should not be necessary anymore
++# - after TL2012? Maybe remove support for reading updmap-local.cfg
++#
++
++my $TEXMFROOT;
+
+ BEGIN {
+ $^W=1;
+- chomp($TEXMFROOT = `kpsewhich -var-value=TEXMFROOT`);
++ $TEXMFROOT = `kpsewhich -var-value=TEXMFROOT`;
++ if ($?) {
++ print STDERR "(m)updmap: Cannot find TEXMFROOT, aborting!\n";
++ exit 1;
++ }
++ chomp($TEXMFROOT);
+ unshift (@INC, "$TEXMFROOT/tlpkg");
+ }
+
+-my $version = '$Id: updmap.pl 24602 2011-11-15 22:55:34Z preining $';
+-
+-use strict;
+-use TeXLive::TLUtils qw(mkdirhier mktexupd win32);
+-use Getopt::Long;
+-$Getopt::Long::autoabbrev=0;
+-Getopt::Long::Configure (qw(ignore_case_always));
+-
+-my $short_progname = "updmap";
+-
+-my $cnfFile;
+-my $cnfFileShort;
+-my $outputdir;
+-my $dvipsoutputdir;
+-my $pdftexoutputdir;
+-my $dvipdfmoutputdir;
+-my $pxdvioutputdir;
+-my $quiet;
+-my $nohash;
+-my $nomkmap;
+-my (@psADOBE, @fileADOBE, @fileADOBEkb, @fileURW);
+-
+-my $enableItem;
+-my @setoptions = ();
+-my @showoptions = ();
+-my @disableItem = ();
+-my $listmaps;
+-my $listavailablemaps;
+-my $syncwithtrees;
+-
+-my $opt_edit;
+-my $opt_force;
+-my $opt_help;
+-my $dry_run;
+-my $TEXMFMAIN;
+-my $TEXMFVAR;
+-
+-my $mode;
+-my $dvipsPreferOutline;
+-my $dvipsDownloadBase35;
+-my $pdftexDownloadBase14;
+-my $pxdviUse;
+-my $kanjiEmbed;
+-
+-my $dvips35;
+-my $pdftex35;
+-my $ps2pk35;
+-
+-my $newcnf;
+-my $copy;
+-my %link;
+-my %maps;
+-my @missing;
+-my $writelog = 0;
+-my $cache = 0; # don't change!
+-my $pdftexStripEnc = 0;
+-
+-# initialize mktexupd
+-my $updLSR=&mktexupd();
+-$updLSR->{mustexist}(0);
+-
+-my @cfg = ();
+-
+-&main;
+-exit 0;
+-
+-
+-# return program name + version string.
+-sub version {
+- my $ret = sprintf "%s (TeX Live) version %s\n", $short_progname, $version;
+- return $ret;
+-}
+-
+-###############################################################################
+-# help()
+-# display help message and exit
+-#
+-sub help {
+- my $usage= <<"EOF";
+-Usage: $short_progname [OPTION] ... [COMMAND]
+- or: $short_progname-sys [OPTION] ... [COMMAND]
+-
+-Update the default font map files used by pdftex, dvips, and dvipdfm(x),
+-(and optionally pxdvi) as determined by the configuration file updmap.cfg
+-(the one returned by running "kpsewhich updmap.cfg").
+-
+-Among other things, these map files are used to determine which fonts
+-should be used as bitmaps and which as outlines, and to determine which
+-fonts are included in the output.
+-
+-By default, the TeX filename database (ls-R) is also updated.
+-
+-Options:
+- --cnffile FILE read FILE for the updmap configuration
+- --dvipdfmoutputdir DIR specify output directory (dvipdfm syntax)
+- --dvipsoutputdir DIR specify output directory (dvips syntax)
+- --pdftexoutputdir DIR specify output directory (pdftex syntax)
+- --pxdvioutputdir DIR specify output directory (pxdvi syntax)
+- --outputdir DIR specify output directory (for all files)
+- --copy cp generic files rather than using symlinks
+- --force recreate files even if config hasn't changed
+- --nomkmap do not recreate map files
+- --nohash do not run texhash
+- -n, --dry-run only show the configuration, no output
+- --quiet, --silent reduce verbosity
+-
+-Commands:
+- --help show this message and exit
+- --version show version information and exit
+- --showoptions ITEM show alternatives for options
+- --setoption OPTION VALUE set option, where OPTION is one of:
+- LW35, dvipsPreferOutline, dvipsDownloadBase35,
+- pdftexDownloadBase14, pxdviUse, or kanjiEmbed
+- --setoption OPTION=VALUE as above, just different syntax
+- --enable MAPTYPE MAPFILE add "MAPTYPE MAPFILE" to updmap.cfg,
+- where MAPTYPE is one of: Map, MixedMap, KanjiMap
+- --enable Map=MAPFILE add \"Map MAPFILE\" to updmap.cfg
+- --enable MixedMap=MAPFILE add \"MixedMap MAPFILE\" to updmap.cfg
+- --enable KanjiMap=MAPFILE add \"KanjiMap MAPFILE\" to updmap.cfg
+- --disable MAPFILE disable MAPFILE, whether Map, MixedMap,
+- or KanjiMap
+- --listmaps list all active and inactive maps
+- --listavailablemaps same as --listmaps, but without
+- unavailable map files
+- --syncwithtrees disable unavailable map files in updmap.cfg
+-
+-Explanation of the map types: the (only) difference between Map and
+-MixedMap is that MixedMap entries are not added to psfonts_pk.map.
+-The purpose is to help users with printers that render Type 1 outline
+-fonts worse than mode-tuned Type 1 bitmap fonts. So, MixedMap is used
+-for fonts that are available as both Type 1 and Metafont.
+-
+-Explanation of the --setoption possibilities:
+-
+- dvipsPreferOutline true|false (default true)
+- Whether dvips uses bitmaps or outlines, when both are available.
+- dvipsDownloadBase35 true|false (default false)
+- Whether dvips includes the standard 35 PostScript fonts in its output.
+- pdftexDownloadBase14 true|false (default true)
+- Whether pdftex includes the standard 14 PDF fonts in its output.
+- pxdviUse true|false (default false)
+- Whether maps for pxdvi (Japanese-patched xdvi) is under control of updmap.
+- LW35 URWkb|URW|ADOBEkb|ADOBE (default URWkb)
+- Adapt the font and file names of the standard 35 PostScript fonts.
+- URWkb URW fonts with "berry" filenames (e.g. uhvbo8ac.pfb)
+- URW URW fonts with "vendor" filenames (e.g. n019064l.pfb)
+- ADOBEkb Adobe fonts with "berry" filenames (e.g. phvbo8an.pfb)
+- ADOBE Adobe fonts with "vendor" filenames (e.g. hvnbo___.pfb)
+- kanjiEmbed (any string)
+
+- These options are only read and acted on by updmap; dvips, pdftex, etc.,
+- do not know anything about them. They work by changing the default map
+- file which the programs read, so they can be overridden by specifying
+- command-line options or configuration files to the programs, as
+- explained at the beginning of updmap.cfg.
++my $version = '$Id: mupdmap.pl 25074 2012-01-12 02:48:37Z preining $';
+
+-Explanation of trees and files normally used:
++use Getopt::Long qw(:config no_autoabbrev ignore_case_always);
++use strict;
++use TeXLive::TLUtils qw(mkdirhier mktexupd win32 basename dirname
++ sort_uniq member);
+
+- updmap both reads and writes TEXMFCONFIG/web2c/updmap.cfg, according to
+- the actions specified.
++#use Data::Dumper;
++#$Data::Dumper::Indent = 1;
+
+- updmap writes the map files for dvips (psfonts.map) and pdftex
+- (pdftex.map) to the TEXMFVAR/fonts/map/updmap/{dvips,pdftex}/
+- directories.
++chomp(my $TEXMFMAIN = `kpsewhich --var-value=TEXMFMAIN`);
++chomp(my $TEXMFVAR = `kpsewhich -var-value=TEXMFVAR`);
++chomp(my $TEXMFCONFIG = `kpsewhich -var-value=TEXMFCONFIG`);
++
++# make sure that on windows *everything* is in lower case for comparison
++if (win32()) {
++ $TEXMFMAIN = lc($TEXMFMAIN);
++ $TEXMFVAR = lc($TEXMFVAR);
++ $TEXMFCONFIG = lc($TEXMFCONFIG);
++ $TEXMFROOT = lc($TEXMFROOT);
++}
++
++my $prg = basename($0);
++
++my %opts = ( quiet => 0, nohash => 0, nomkmap => 0 );
++my $alldata;
++my $updLSR;
++
++my @cmdline_options = (
++ "oldmode",
++ "cnffile=s@",
++ "copy",
++ "disable=s@",
++ "dvipdfmoutputdir=s",
++ "dvipsoutputdir=s",
++ # the following does not work, Getopt::Long looses the first
++ # entry in a multi setting, treat it separately in processOptions
++ # furthermore, it is not supported by older perls, so do it differently
++ #"enable=s{1,2}",
++ "edit",
++ "force",
++ "listavailablemaps",
++ "listmaps|l",
++ "nohash",
++ "nomkmap",
++ "dry-run|n",
++ "outputdir=s",
++ "pdftexoutputdir=s",
++ "pxdvioutputdir=s",
++ "quiet|silent|q",
++ # the following is a correct specification of an option according
++ # to the manual, but it does not work!
++ # we will treat that option by itself in processOptions
++ # furthermore, it is not supported by older perls, so do it differently
++ #"setoption=s@{1,2}",
++ "showoptions=s@",
++ "showoption=s@",
++ "syncwithtrees",
++ "version",
++ "help|h",
++ # some debugging invocations
++ "_readsave=s",
++ "_listupdmap",
++ );
++
++my %settings = (
++ dvipsPreferOutline => {
++ type => "binary",
++ default => "true",
++ },
++ LW35 => {
++ type => "string",
++ possible => [ qw/URW URWkb ADOBE ADOBEkb/ ],
++ default => "URWkb",
++ },
++ dvipsDownloadBase35 => {
++ type => "binary",
++ default => "true",
++ },
++ pdftexDownloadBase14 => {
++ type => "binary",
++ default => "true",
++ },
++ dvipdfmDownloadBase14 => {
++ type => "binary",
++ default => "true",
++ },
++ pxdviUse => {
++ type => "binary",
++ default => "false",
++ },
++ kanjiEmbed => {
++ type => "any",
++ default => "noEmbed",
++ },
++);
+
+- The log file is written to TEXMFVAR/web2c/updmap.log.
++&main();
+
+- When updmap-sys is run, TEXMFSYSCONFIG and TEXMFSYSVAR are used
+- instead. This is the only difference between updmap-sys and updmap.
++###############
+
+- Other locations can be used if overridden on the command line, or these
+- trees don't exist, or you are not using the original TeX Live.
++sub main {
++ processOptions();
+
+- To see the precise locations of the various files that
+- will be read and written, give the -n option (or read the man page).
++ help() if $opts{'help'};
+
+-For step-by-step instructions on making new fonts known to TeX, read
+-http://tug.org/fonts/fontinstall.html. For even more terse
+-instructions, read the beginning of updmap.cfg.
++ if ($opts{'_readsave'}) {
++ read_updmap_files($opts{'_readsave'});
++ print "READING DONE ============================\n";
++ #print Dumper($alldata);
++ $alldata->{'updmap'}{$opts{'_readsave'}}{'changed'} = 1;
++ save_updmap($opts{'_readsave'});
++ exit 0;
++ }
+
+-Report bugs to: tex-k\@tug.org
+-TeX Live home page: <http://tug.org/texlive/>
+-EOF
+-;
+- print &version();
+- print $usage;
+- exit 0;
+-}
++ if ($opts{'showoptions'}) {
++ for my $o (@{$opts{'showoptions'}}) {
++ if (defined($settings{$o})) {
++ if ($settings{$o}{'type'} eq "binary") {
++ print "true false\n";
++ } elsif ($settings{$o}{'type'} eq "string") {
++ print "@{$settings{$o}{'possible'}}\n";
++ } elsif ($settings{$o}{'type'} eq "any") {
++ print "(any string)\n";
++ } else {
++ print "strange: unknown type of option $o\nplease report\n";
++ }
++ } else {
++ print "$prg: unknown option: $o\n";
++ }
++ }
++ exit 0;
++ }
+
++ # config file for changes
++ my $changes_config_file;
+
+-
+-###############################################################################
+-# processOptions()
+-# process cmd line options
+-#
+-sub processOptions {
++ # determine which config files should be used
++ # replaces the former "setupCfgFile"
+ #
+- # We parse the command line twice. The first time is to handle
+- # --setoption, which might take either one or two following values.
+- # the second to handle everything else. The Getopt::Long feature to
+- # handle this is only supported in 5.8.8 (released in 2006) or later,
+- # and a few people run older perls.
+- #
+- my $oldconfig = Getopt::Long::Configure(qw(pass_through));
+- #
+- sub read_for_set_options {
+- my ($setopt, $val) = @_;
+- # check if = occurs in $val, if not, get the next argument
+- if ($val =~ m/=/) {
+- push (@setoptions, $val);
++ # we also determine here where changes will be saved to
++ if ($opts{'cnffile'}) {
++ for my $f (@{$opts{'cnffile'}}) {
++ if (! -f $f) {
++ die "$prg: Config file \"$f\" not found.";
++ }
++ }
++ # in case that config files are given on the command line, the first
++ # in the list is the one where changes will be written to.
++ ($changes_config_file) = @{$opts{'cnffile'}};
++ } else {
++ my @all_files = `kpsewhich -all updmap.cfg`;
++ chomp(@all_files);
++ my @used_files;
++ #
++ # in --oldmode we ignore texmf/web2c/updmap.cfg and reorder some
++ # order to get things right
++ # without --oldmode everything will be used as default to, i.e.
++ # the order is given by kpsewhich -all updmap.cfg
++ if (!$opts{"oldmode"}) {
++ push @used_files, @all_files;
+ } else {
+- my $vv = shift @ARGV;
+- die "$0: --setoption $val given with no value; try --help.\n"
+- if !defined($vv);
+- push (@setoptions, "$val=$vv");
++ # --oldmode
++ for my $f (@all_files) {
++ # make sure that all file names are lower case on windows for comparison
++ $f = lc($f) if win32();
++ if ($f =~ m!$TEXMFROOT/texmf/web2c/updmap.cfg!) {
++ warning("Ignoring $f, it is only a sample file!\n");
++ } else {
++ push @used_files, $f;
++ }
++ }
++ }
++ #
++ # reorder used files: since we ship and manage with tlmgr
++ # the file in TEXMFSYSCONFIG, and TEXMFLOCAL has *lower* priority
++ # then TEXMFSYSCONFIG, we move a TEXMFLOCAL-updmap.cfg if found
++ # after TEXMFCONFIG TEXMFVAR and TEXMFHOME
++ chomp(my $TEXMFLOCAL =`kpsewhich --var-value=TEXMFLOCAL`);
++ chomp(my $TEXMFHOME =`kpsewhich --var-value=TEXMFHOME`);
++ if (win32()) {
++ $TEXMFLOCAL = lc($TEXMFLOCAL);
++ $TEXMFHOME = lc($TEXMFHOME);
++ }
++ my $found = 0;
++ my $TMLabs = Cwd::abs_path($TEXMFLOCAL);
++ if ($TMLabs) {
++ for my $f (@used_files) {
++ my $absf = Cwd::abs_path($f); #should always work
++ if ($absf =~ m/^$TMLabs/) {
++ $found = 1;
++ last;
++ }
++ }
++ }
++ my $old_updmap_local_found = 0;
++ if (-r "$TMLabs/web2c/updmap-local.cfg") {
++ $old_updmap_local_found = 1;
++ warning("Old configuration file TEXMFLOCAL/web2c/updmap-local.cfg found!\n");
++ if ($found) {
++ warning("Will read this file *instead* of TEXMFLOCAL/web2c/updmap.cfg!!!\n");
++ } else {
++ # if TEXMFLOCAL updmap.cfg does not exist, we have to make sure
++ # that the replacement is added to the list of updmap files
++ push @used_files, "$TMLabs/web2c/updmap-local.cfg";
++ }
++ warning("Please consider moving the information from updmap-local.cfg to TEXMFLOCAL/web2c/updmap.cfg\n");
++ }
++ if ($found || $old_updmap_local_found) {
++ my @tmp;
++ my $local_pushed = 0;
++ for my $f (@used_files) {
++ if ($f =~ m!$TEXMFCONFIG|$TEXMFVAR|$TEXMFHOME!) {
++ push @tmp, $f;
++ } else {
++ if (!$local_pushed) {
++ # should we use the return value of grep here, but we know
++ # what we will find?!?!
++ if ($old_updmap_local_found) {
++ push @tmp, "$TEXMFLOCAL/web2c/updmap-local.cfg";
++ } else {
++ push @tmp, "$TEXMFLOCAL/web2c/updmap.cfg";
++ }
++ $local_pushed = 1;
++ }
++ # push the original
++ push @tmp, $f unless ($f =~ m!$TEXMFLOCAL!);
++ }
++ }
++ @used_files = @tmp;
++ }
++ @{$opts{'cnffile'}} = @used_files;
++ # determine the config file that we will use for changes
++ # if in the list of used files contains either one from
++ # TEXMFHOME or TEXMFCONFIG (which is TEXMFSYSCONFIG in the -sys case)
++ # then use the *top* file (which will be either one of the two),
++ # if none of the two exists, create a file in TEXMFCONFIG and use it
++ my $use_top = 0;
++ for my $f (@used_files) {
++ if ($f =~ m!($TEXMFHOME|$TEXMFCONFIG)/web2c/updmap.cfg!) {
++ $use_top = 1;
++ last;
++ }
++ }
++ if ($use_top) {
++ ($changes_config_file) = @used_files;
++ } else {
++ # add the empty config file
++ my $dn = "$TEXMFCONFIG/web2c";
++ $changes_config_file = "$dn/updmap.cfg";
+ }
+ }
+- GetOptions("setoption=s@" => \&read_for_set_options)
+- || die "$0: could not read for --setoption; try --help.\n";
+-
+- # restore old getopt config and read everything else.
+- Getopt::Long::Configure($oldconfig);
+- unless (&GetOptions (
+- "cnffile=s" => \$cnfFile,
+- "copy" => \$copy,
+- "disable=s" => \@disableItem,
+- "dvipdfmoutputdir=s" => \$dvipdfmoutputdir,
+- "dvipsoutputdir=s" => \$dvipsoutputdir,
+- "enable=s" => \$enableItem,
+- "edit" => \$opt_edit,
+- "force" => \$opt_force,
+- "listavailablemaps" => \$listavailablemaps,
+- "l|listmaps" => \$listmaps,
+- "nohash" => \$nohash,
+- "nomkmap" => \$nomkmap,
+- "n|dry-run" => \$dry_run,
+- "outputdir=s" => \$outputdir,
+- "pdftexoutputdir=s" => \$pdftexoutputdir,
+- "pxdvioutputdir=s" => \$pxdvioutputdir,
+- "q|quiet|silent" => \$quiet,
+- "setoption" =>
+- sub {die "$0: --setoption needs an option and value; try --help.\n"},
+- "showoptions=s" => \@showoptions,
+- "syncwithtrees" => \$syncwithtrees,
+- "version" => sub { print &version(); exit(0); },
+- "h|help" => \$opt_help)) {
+- die "Try \"$0 --help\" for more information.\n";
+- }
+-
+- if (@ARGV) {
+- warn "$0: Ignoring unexpected non-option argument(s): @ARGV.\n";
+- }
+-
+- if ($outputdir) {
+- $dvipsoutputdir = $outputdir if (! $dvipsoutputdir);
+- $pdftexoutputdir = $outputdir if (! $pdftexoutputdir);
+- $dvipdfmoutputdir = $outputdir if (! $dvipdfmoutputdir);
+- $pxdvioutputdir = $outputdir if (! $pxdvioutputdir);
+- }
+- if ($cnfFile && ! -f $cnfFile) {
+- die "$0: Config file \"$cnfFile\" not found.\n";
+- }
+- if ($dvipsoutputdir && ! $dry_run && ! -d $dvipsoutputdir) {
+- &mkdirhier ($dvipsoutputdir);
+- }
+- if ($dvipdfmoutputdir && ! $dry_run && ! -d $dvipdfmoutputdir) {
+- &mkdirhier ($dvipdfmoutputdir);
+- }
+- if ($pdftexoutputdir && ! $dry_run && ! -d $pdftexoutputdir) {
+- &mkdirhier ($pdftexoutputdir);
++ print "$prg is using the following updmap.cfg files (in precedence order):\n";
++ for my $f (@{$opts{'cnffile'}}) {
++ print " $f\n";
+ }
+- if ($pxdvioutputdir && ! $dry_run && ! -d $pxdvioutputdir) {
+- &mkdirhier ($pxdvioutputdir);
++ $alldata->{'changes_config'} = $changes_config_file;
++
++ if ($opts{'_listupdmap'}) {
++ exit 0;
+ }
+-}
+
+-
+-###############################################################################
+-# equalize_file(filename[, comment_char])
+-# read a file and return its processed content as a string.
+-# look into the source code for more details.
+-#
+-sub equalize_file {
+- my $file=shift;
+- my $comment=shift;
+- my @temp;
++ read_updmap_files(@{$opts{'cnffile'}});
+
+- open IN, "$file";
+- my @lines = (<IN>);
+- close IN;
+- chomp(@lines);
++ if ($opts{'showoption'}) {
++ for my $o (@{$opts{'showoption'}}) {
++ if (defined($settings{$o})) {
++ my ($v, $vo) = get_cfg($o);
++ print "$o: $v ($vo)\n";
++ } else {
++ print "$prg: unknown option: $o\n";
++ }
++ }
++ exit 0;
++ }
+
+- for (@lines) {
+- s/\s*${comment}.*// if (defined $comment); # remove comments
+- next if /^\s*$/; # remove empty lines
+- s/\s+/ /g; # replace multiple whitespace chars by a single one
+- push @temp, $_;
++ if ($opts{'listmaps'}) {
++ for my $m (keys %{$alldata->{'maps'}}) {
++ my $origin = $alldata->{'maps'}{$m}{'origin'};
++ print $alldata->{'updmap'}{$origin}{'maps'}{$m}{'type'}, " $m ",
++ $alldata->{'updmap'}{$origin}{'maps'}{$m}{'status'}, " in $origin\n";
++ }
++ exit 0;
+ }
+- return join('X', sort(@temp));
+-}
+
+-###############################################################################
+-# files_are_different(file_A, file_B[, comment_char])
+-# compare two equalized files.
+-#
+-sub files_are_different {
+- my $file_A=shift;
+- my $file_B=shift;
+- my $comment=shift;
+- my $retval=0;
++ # we do changes always in the used config file with the highest
++ # priority
++ my $bakFile = $changes_config_file;
++ $bakFile =~ s/\.cfg$/.bak/;
++ my $changed = 0;
+
+- my $A=equalize_file("$file_A", $comment);
+- my $B=equalize_file("$file_B", $comment);
+- $retval=1 unless ($A eq $B);
+- return $retval;
+-}
++ if ($opts{'syncwithtrees'}) {
++ my @missing = read_map_files();
++ if (@missing) {
++ print "Missing map files found, disabling them in $changes_config_file\n";
++ for my $m (@missing) {
++ $changed ||= disableMap($m);
++ }
++ # the original script did not run any update of the map files here,
++ # should we do that?
++ }
++ exit 0;
++ }
+
+-###############################################################################
+-# files_are_equal(file_A, file_B[, comment_char])
+-# compare two equalized files. Same as files_are_different() with
+-# return value inverted.
+-#
+-sub files_are_equal {
+- return (&files_are_different (@_))? 0:1;
+-}
++ my $cmd;
++ if ($opts{'edit'}) {
++ if ($opts{"dry-run"}) {
++ printf STDERR "No, are you joking, you want to edit with --dry-run?\n";
++ printf STDERR "Not doing that, bye bye!\n";
++ exit 1;
++ }
++ # it's not a good idea to edit updmap.cfg manually these days,
++ # but for compatibility we'll silently keep the option.
++ $cmd = 'edit';
++ my $editor = $ENV{'VISUAL'} || $ENV{'EDITOR'};
++ $editor ||= (&win32 ? "notepad" : "vi");
++ if (-r $changes_config_file) {
++ &copyFile($changes_config_file, $bakFile);
++ } else {
++ touch($bakFile);
++ touch($changes_config_file);
++ }
++ system($editor, $changes_config_file);
++ $changed = files_are_different($bakFile, $changes_config_file);
++ } elsif ($opts{'setoption'}) {
++ $cmd = 'setOption';
++ $changed = setOptions (@{$opts{'setoption'}});
++ } elsif ($opts{'enable'} || $opts{'disable'}) {
++ $cmd = 'enableMap';
++ $changed ||= enable_disable_maps(@{$opts{'enable'}}, @{$opts{'disable'}});
++ }
+
+-###############################################################################
+-# files_are_identical(file_A, file_B)
+-# compare two files. Same as cmp(1).
+-#
+-sub files_are_identical {
+- my $file_A=shift;
+- my $file_B=shift;
+- my $retval=0;
++ # what does this?
++ $updLSR = &mktexupd();
++ $updLSR->{mustexist}(0);
+
+- open IN, "$file_A";
+- my $A=(<IN>);
+- close IN;
+- open IN, "$file_B";
+- my $B=(<IN>);
+- close IN;
++ if ($cmd && !$opts{'force'} && !$changed) {
++ print "$changes_config_file unchanged. Map files not recreated.\n"
++ if !$opts{'quiet'};
++ } else {
++ if (!$opts{'nomkmap'}) {
++ # before we continue we have to make sure that a newly created config
++ # file is acually used. So we have to push the $changes_config_file
++ # onto the list of available files. Since it is already properly
++ # initialized and the merging is done later, all settings should be
++ # honored
++ my @aaa = @{$alldata->{'order'}};
++ unshift @aaa, $changes_config_file;
++ $alldata->{'order'} = [ @aaa ];
++ setupOutputDir("dvips");
++ setupOutputDir("pdftex");
++ setupOutputDir("dvipdfmx");
++ setupOutputDir("dvipdfm");
++ setupOutputDir("pxdvi");
++ my @missing = read_map_files();
++ if (@missing) {
++ print STDERR "\nERROR: The following map file(s) couldn't be found:\n";
++ for my $m (@missing) {
++ my $orig = $alldata->{'maps'}{$m}{'origin'};
++ print STDERR "\t$m (in $orig)\n";
++ }
++ print STDERR "\n\tDid you run mktexlsr?\n\n" .
++ "\tYou can disable non-existent map entries using the option\n".
++ "\t --syncwithtrees.\n\n";
++ exit 1;
++ }
++ merge_data();
++ # for inspecting the output
++ #print STDERR Data::Dumper->Dump([$alldata], [qw(mapdata)]);
++ #print Dumper($alldata);
++ mkMaps();
++ }
++ unlink ($bakFile) if (-r $bakFile);
++ }
+
+- $retval=1 if ($A eq $B);
+- return $retval;
++ if (!$opts{'nohash'}) {
++ print "$prg: Updating ls-R files.\n" if !$opts{'quiet'};
++ $updLSR->{exec}() unless $opts{"dry-run"};
++ }
+ }
+
+-###############################################################################
+-# getLines()
++##################################################################
+ #
+-###############################################################################
+-sub getLines {
++#
++
++sub getFonts {
++ my ($first, @rest) = @_;
++ my $getall = 0;
++ my @maps = ();
++ if ($first eq "-all") {
++ $getall = 1;
++ @maps = @rest;
++ } else {
++ @maps = ($first, @rest);
++ }
+ my @lines = ();
+- foreach my $fname (@_) {
+- next if (! $fname);
+- if (! exists $maps{"$fname"}) {
+- open FILE, "<$fname" or die "$0: can't get lines from $fname: $!";
+- my @file=<FILE>;
+- close FILE;
+- if ($writelog) {
+- print LOG ("\n$fname:\n");
+- foreach my $line (@file) {
+- next if $line =~ /^\s*%/; # comment
+- next if $line =~ /^\s*#/; # comment
+- next if $line =~ /^\s*$/; # empty line
+- my $tfm;
+- ($tfm)=split ' ', $line;
+- print LOG "$tfm\n";
++ for my $m (@maps) {
++ if (defined($alldata->{'maps'}{$m})) {
++ print LOG "\n" . $alldata->{'maps'}{$m}{'fullpath'} . ":\n" unless $opts{'dry-run'};
++ push @lines, "% $m";
++ for my $k (sort keys %{$alldata->{'maps'}{$m}{'fonts'}}) {
++ if ($getall || $alldata->{'fonts'}{$k}{'origin'} eq $m) {
++ if (defined($alldata->{'maps'}{$m}{'fonts'}{$k})) {
++ push @lines, "$k " . $alldata->{'maps'}{$m}{'fonts'}{$k};
++ } else {
++ print "undefined fonts for $k in $m ?!?!?\n";
++ }
++ print LOG "$k\n" unless $opts{'dry-run'};
+ }
+ }
+- $maps{"$fname"} = [ @file ] if ($cache);
+- push @lines, @file;
+- } else {
+- push @lines, @{$maps{"$fname"}};
+ }
+ }
+ chomp @lines;
+@@ -397,50 +459,33 @@
+ #
+ sub writeLines {
+ my ($fname, @lines) = @_;
++ return if $opts{"dry-run"};
+ map { ($_ !~ m/\n$/ ? s/$/\n/ : $_ ) } @lines;
+- open FILE, ">$fname" or die "$0: can't write lines to $fname: $!";
++ open FILE, ">$fname" or die "$prg: can't write lines to $fname: $!";
+ print FILE @lines;
+ close FILE;
+ }
+
+ ###############################################################################
+-# copyFile()
+-# copy file $src to $dst, sets $dst creation and mod time
++# to_pdftex()
++# if $pdftexStripEnc is set, strip "PS_Encoding_Name ReEncodeFont"
++# from map entries; they are ignored by pdftex. But since the sh
++# incarnation of updmap included them, and we want to minimize
++# differences, this is not done by default.
+ #
+-sub copyFile {
+- my ($src, $dst) = @_;
+- my $dir;
+- ($dir=$dst)=~s/(.*)\/.*/$1/;
+- mkdirhier $dir;
+-
+- $src eq $dst && return "can't copy $src to itself!\n";
+-
+- open IN, "<$src" or die "$0: can't open source file $src for copying: $!";
+- open OUT, ">$dst";
+-
+- binmode(IN);
+- binmode(OUT);
+- print OUT <IN>;
+- close(OUT);
+- close(IN);
+- my @t = stat($src);
+- utime($t[8], $t[9], $dst);
+-}
+-
+-###############################################################################
+-# SymlinkOrCopy(dir, src, dest)
+-# create symlinks if possible, otherwise copy files
+-#
+-sub SymlinkOrCopy {
+- my ($dir, $src, $dest) = @_;
+- if (&win32 || $copy) { # always copy
+- &copyFile("$dir/$src", "$dir/$dest");
+- } else { # symlink if supported by fs, copy otherwise
+- system("cd \"$dir\" && ln -s $src $dest 2>/dev/null || "
+- . "cp -p \"$dir/$src\" \"$dir/$dest\"");
++sub to_pdftex {
++ my $pdftexStripEnc = 0;
++ return @_ unless $pdftexStripEnc;
++ my @in = @_;
++ my @out;
++ foreach my $line (@in) {
++ if ($line =~ /^(.*\s+)(\S+\s+ReEncodeFont\s)(.*)/) {
++ $line = "$1$3";
++ $line =~ s/\s+\"\s+\"\s+/ /;
++ }
++ push @out, $line;
+ }
+- # remember for "Files generated" in &mkMaps.
+- $link{"$dest"}="$src";
++ return @out;
+ }
+
+ ###############################################################################
+@@ -448,35 +493,208 @@
+ # set symlink for psfonts.map according to dvipsPreferOutline variable
+ #
+ sub setupSymlinks {
++ my ($dvipsPreferOutline, $dvipsoutputdir, $pdftexDownloadBase14, $pdftexoutputdir) = @_;
+ my $src;
++ my %link;
++ my @link;
+
+- if ($dvipsPreferOutline) {
++ if ($dvipsPreferOutline eq "true") {
+ $src = "psfonts_t1.map";
+ } else {
+ $src = "psfonts_pk.map";
+ }
+- unlink "$dvipsoutputdir/psfonts.map";
+- &SymlinkOrCopy("$dvipsoutputdir", "$src", "psfonts.map");
++ unlink "$dvipsoutputdir/psfonts.map" unless $opts{"dry-run"};
++ push @link, &SymlinkOrCopy("$dvipsoutputdir", "$src", "psfonts.map");
+
+- if ($pdftexDownloadBase14) {
++ if ($pdftexDownloadBase14 eq "true") {
+ $src = "pdftex_dl14.map";
+ } else {
+ $src = "pdftex_ndl14.map";
+ }
+- unlink "$pdftexoutputdir/pdftex.map";
+- &SymlinkOrCopy("$pdftexoutputdir", "$src", "pdftex.map");
++ unlink "$pdftexoutputdir/pdftex.map" unless $opts{"dry-run"};
++ push @link, &SymlinkOrCopy("$pdftexoutputdir", "$src", "pdftex.map");
++ %link = @link;
++ return \%link;
++}
++
++###############################################################################
++# SymlinkOrCopy(dir, src, dest)
++# create symlinks if possible, otherwise copy files
++#
++sub SymlinkOrCopy {
++ my ($dir, $src, $dest) = @_;
++ return ($src, $dest) if $opts{"dry-run"};
++ if (&win32 || $opts{'copy'}) { # always copy
++ &copyFile("$dir/$src", "$dir/$dest");
++ } else { # symlink if supported by fs, copy otherwise
++ system("cd \"$dir\" && ln -s $src $dest 2>/dev/null || "
++ . "cp -p \"$dir/$src\" \"$dir/$dest\"");
++ }
++ # remember for "Files generated" in &mkMaps.
++ return ($dest, $src);
+ }
+
+-
++
+ ###############################################################################
+-# transLW35(args ...)
++# transLW35(mode args ...)
+ # transform fontname and filenames according to transformation specified
+ # by mode. Possible values:
+ # URW|URWkb|ADOBE|ADOBEkb
+ #
+ sub transLW35 {
+- my ($name) = @_;
+- my @lines = &getLines($name);
++ my ($mode, @lines) = @_;
++
++ my @psADOBE = (
++ 's/ URWGothicL-Demi / AvantGarde-Demi /',
++ 's/ URWGothicL-DemiObli / AvantGarde-DemiOblique /',
++ 's/ URWGothicL-Book / AvantGarde-Book /',
++ 's/ URWGothicL-BookObli / AvantGarde-BookOblique /',
++ 's/ URWBookmanL-DemiBold / Bookman-Demi /',
++ 's/ URWBookmanL-DemiBoldItal / Bookman-DemiItalic /',
++ 's/ URWBookmanL-Ligh / Bookman-Light /',
++ 's/ URWBookmanL-LighItal / Bookman-LightItalic /',
++ 's/ NimbusMonL-Bold / Courier-Bold /',
++ 's/ NimbusMonL-BoldObli / Courier-BoldOblique /',
++ 's/ NimbusMonL-Regu / Courier /',
++ 's/ NimbusMonL-ReguObli / Courier-Oblique /',
++ 's/ NimbusSanL-Bold / Helvetica-Bold /',
++ 's/ NimbusSanL-BoldCond / Helvetica-Narrow-Bold /',
++ 's/ NimbusSanL-BoldItal / Helvetica-BoldOblique /',
++ 's/ NimbusSanL-BoldCondItal / Helvetica-Narrow-BoldOblique /',
++ 's/ NimbusSanL-Regu / Helvetica /',
++ 's/ NimbusSanL-ReguCond / Helvetica-Narrow /',
++ 's/ NimbusSanL-ReguItal / Helvetica-Oblique /',
++ 's/ NimbusSanL-ReguCondItal / Helvetica-Narrow-Oblique /',
++ 's/ CenturySchL-Bold / NewCenturySchlbk-Bold /',
++ 's/ CenturySchL-BoldItal / NewCenturySchlbk-BoldItalic /',
++ 's/ CenturySchL-Roma / NewCenturySchlbk-Roman /',
++ 's/ CenturySchL-Ital / NewCenturySchlbk-Italic /',
++ 's/ URWPalladioL-Bold / Palatino-Bold /',
++ 's/ URWPalladioL-BoldItal / Palatino-BoldItalic /',
++ 's/ URWPalladioL-Roma / Palatino-Roman /',
++ 's/ URWPalladioL-Ital / Palatino-Italic /',
++ 's/ StandardSymL / Symbol /',
++ 's/ NimbusRomNo9L-Medi / Times-Bold /',
++ 's/ NimbusRomNo9L-MediItal / Times-BoldItalic /',
++ 's/ NimbusRomNo9L-Regu / Times-Roman /',
++ 's/ NimbusRomNo9L-ReguItal / Times-Italic /',
++ 's/ URWChanceryL-MediItal / ZapfChancery-MediumItalic /',
++ 's/ Dingbats / ZapfDingbats /',
++ );
++
++ my @fileADOBEkb = (
++ 's/\buagd8a.pfb\b/pagd8a.pfb/',
++ 's/\buagdo8a.pfb\b/pagdo8a.pfb/',
++ 's/\buagk8a.pfb\b/pagk8a.pfb/',
++ 's/\buagko8a.pfb\b/pagko8a.pfb/',
++ 's/\bubkd8a.pfb\b/pbkd8a.pfb/',
++ 's/\bubkdi8a.pfb\b/pbkdi8a.pfb/',
++ 's/\bubkl8a.pfb\b/pbkl8a.pfb/',
++ 's/\bubkli8a.pfb\b/pbkli8a.pfb/',
++ 's/\bucrb8a.pfb\b/pcrb8a.pfb/',
++ 's/\bucrbo8a.pfb\b/pcrbo8a.pfb/',
++ 's/\bucrr8a.pfb\b/pcrr8a.pfb/',
++ 's/\bucrro8a.pfb\b/pcrro8a.pfb/',
++ 's/\buhvb8a.pfb\b/phvb8a.pfb/',
++ 's/\buhvb8ac.pfb\b/phvb8an.pfb/',
++ 's/\buhvbo8a.pfb\b/phvbo8a.pfb/',
++ 's/\buhvbo8ac.pfb\b/phvbo8an.pfb/',
++ 's/\buhvr8a.pfb\b/phvr8a.pfb/',
++ 's/\buhvr8ac.pfb\b/phvr8an.pfb/',
++ 's/\buhvro8a.pfb\b/phvro8a.pfb/',
++ 's/\buhvro8ac.pfb\b/phvro8an.pfb/',
++ 's/\buncb8a.pfb\b/pncb8a.pfb/',
++ 's/\buncbi8a.pfb\b/pncbi8a.pfb/',
++ 's/\buncr8a.pfb\b/pncr8a.pfb/',
++ 's/\buncri8a.pfb\b/pncri8a.pfb/',
++ 's/\buplb8a.pfb\b/pplb8a.pfb/',
++ 's/\buplbi8a.pfb\b/pplbi8a.pfb/',
++ 's/\buplr8a.pfb\b/pplr8a.pfb/',
++ 's/\buplri8a.pfb\b/pplri8a.pfb/',
++ 's/\busyr.pfb\b/psyr.pfb/',
++ 's/\butmb8a.pfb\b/ptmb8a.pfb/',
++ 's/\butmbi8a.pfb\b/ptmbi8a.pfb/',
++ 's/\butmr8a.pfb\b/ptmr8a.pfb/',
++ 's/\butmri8a.pfb\b/ptmri8a.pfb/',
++ 's/\buzcmi8a.pfb\b/pzcmi8a.pfb/',
++ 's/\buzdr.pfb\b/pzdr.pfb/',
++ );
++
++ my @fileURW = (
++ 's/\buagd8a.pfb\b/a010015l.pfb/',
++ 's/\buagdo8a.pfb\b/a010035l.pfb/',
++ 's/\buagk8a.pfb\b/a010013l.pfb/',
++ 's/\buagko8a.pfb\b/a010033l.pfb/',
++ 's/\bubkd8a.pfb\b/b018015l.pfb/',
++ 's/\bubkdi8a.pfb\b/b018035l.pfb/',
++ 's/\bubkl8a.pfb\b/b018012l.pfb/',
++ 's/\bubkli8a.pfb\b/b018032l.pfb/',
++ 's/\bucrb8a.pfb\b/n022004l.pfb/',
++ 's/\bucrbo8a.pfb\b/n022024l.pfb/',
++ 's/\bucrr8a.pfb\b/n022003l.pfb/',
++ 's/\bucrro8a.pfb\b/n022023l.pfb/',
++ 's/\buhvb8a.pfb\b/n019004l.pfb/',
++ 's/\buhvb8ac.pfb\b/n019044l.pfb/',
++ 's/\buhvbo8a.pfb\b/n019024l.pfb/',
++ 's/\buhvbo8ac.pfb\b/n019064l.pfb/',
++ 's/\buhvr8a.pfb\b/n019003l.pfb/',
++ 's/\buhvr8ac.pfb\b/n019043l.pfb/',
++ 's/\buhvro8a.pfb\b/n019023l.pfb/',
++ 's/\buhvro8ac.pfb\b/n019063l.pfb/',
++ 's/\buncb8a.pfb\b/c059016l.pfb/',
++ 's/\buncbi8a.pfb\b/c059036l.pfb/',
++ 's/\buncr8a.pfb\b/c059013l.pfb/',
++ 's/\buncri8a.pfb\b/c059033l.pfb/',
++ 's/\buplb8a.pfb\b/p052004l.pfb/',
++ 's/\buplbi8a.pfb\b/p052024l.pfb/',
++ 's/\buplr8a.pfb\b/p052003l.pfb/',
++ 's/\buplri8a.pfb\b/p052023l.pfb/',
++ 's/\busyr.pfb\b/s050000l.pfb/',
++ 's/\butmb8a.pfb\b/n021004l.pfb/',
++ 's/\butmbi8a.pfb\b/n021024l.pfb/',
++ 's/\butmr8a.pfb\b/n021003l.pfb/',
++ 's/\butmri8a.pfb\b/n021023l.pfb/',
++ 's/\buzcmi8a.pfb\b/z003034l.pfb/',
++ 's/\buzdr.pfb\b/d050000l.pfb/',
++ );
++
++ my @fileADOBE = (
++ 's/\buagd8a.pfb\b/agd_____.pfb/',
++ 's/\buagdo8a.pfb\b/agdo____.pfb/',
++ 's/\buagk8a.pfb\b/agw_____.pfb/',
++ 's/\buagko8a.pfb\b/agwo____.pfb/',
++ 's/\bubkd8a.pfb\b/bkd_____.pfb/',
++ 's/\bubkdi8a.pfb\b/bkdi____.pfb/',
++ 's/\bubkl8a.pfb\b/bkl_____.pfb/',
++ 's/\bubkli8a.pfb\b/bkli____.pfb/',
++ 's/\bucrb8a.pfb\b/cob_____.pfb/',
++ 's/\bucrbo8a.pfb\b/cobo____.pfb/',
++ 's/\bucrr8a.pfb\b/com_____.pfb/',
++ 's/\bucrro8a.pfb\b/coo_____.pfb/',
++ 's/\buhvb8a.pfb\b/hvb_____.pfb/',
++ 's/\buhvb8ac.pfb\b/hvnb____.pfb/',
++ 's/\buhvbo8a.pfb\b/hvbo____.pfb/',
++ 's/\buhvbo8ac.pfb\b/hvnbo___.pfb/',
++ 's/\buhvr8a.pfb\b/hv______.pfb/',
++ 's/\buhvr8ac.pfb\b/hvn_____.pfb/',
++ 's/\buhvro8a.pfb\b/hvo_____.pfb/',
++ 's/\buhvro8ac.pfb\b/hvno____.pfb/',
++ 's/\buncb8a.pfb\b/ncb_____.pfb/',
++ 's/\buncbi8a.pfb\b/ncbi____.pfb/',
++ 's/\buncr8a.pfb\b/ncr_____.pfb/',
++ 's/\buncri8a.pfb\b/nci_____.pfb/',
++ 's/\buplb8a.pfb\b/pob_____.pfb/',
++ 's/\buplbi8a.pfb\b/pobi____.pfb/',
++ 's/\buplr8a.pfb\b/por_____.pfb/',
++ 's/\buplri8a.pfb\b/poi_____.pfb/',
++ 's/\busyr.pfb\b/sy______.pfb/',
++ 's/\butmb8a.pfb\b/tib_____.pfb/',
++ 's/\butmbi8a.pfb\b/tibi____.pfb/',
++ 's/\butmr8a.pfb\b/tir_____.pfb/',
++ 's/\butmri8a.pfb\b/tii_____.pfb/',
++ 's/\buzcmi8a.pfb\b/zcmi____.pfb/',
++ 's/\buzdr.pfb\b/zd______.pfb/',
++ );
+
+ if ($mode eq "" || $mode eq "URWkb") {
+ # do nothing
+@@ -497,963 +715,1300 @@
+ }
+
+ ###############################################################################
+-# locateWeb2c (file ...)
+-# apply kpsewhich with format 'web2c files'
+-#
+-sub locateWeb2c {
+- my @files = @_;
+- return @files if ($#files < 0);
+-
+- @files = split (/\n/, `kpsewhich --format="web2c files" @files`);
+- if (wantarray) {
+- return @files;
+- }
+- else {
+- return $files[0];
++# cidx2dvips()
++# reads from stdin, writes to stdout. It transforms "cid-x"-like syntax into
++# "dvips"-like syntax.
++###############################################################################
++sub cidx2dvips {
++ my ($s) = @_;
++ my @d;
++ foreach (@$s) {
++ if (m/^%/) {
++ push(@d, $_);
++ next;
++ }
++ s/,BoldItalic/ -s .3/;
++ s/,Bold//;
++ s/,Italic/ -s .3/;
++ s/\s\s*/ /g;
++ if ($_ =~ /.*[@\:\/,]/) {next;}
++ elsif ($_ =~ /^[^ ][^ ]* unicode /) {next;}
++ s/^([^ ][^ ]* [^ ][^ ]* [^ ][^ ]*)\.[Oo][Tt][Ff]/$1/;
++ s/^([^ ][^ ]* [^ ][^ ]* [^ ][^ ]*)\.[Tt][Tt][FfCc]/$1/;
++ s/$/ %/;
++ s/^(([^ ]*).*)/$1$2/;
++ s/^([^ ][^ ]* ([^ ][^ ]*) !*([^ ][^ ]*).*)/$1 $3-$2/;
++ s/^(.* -e ([.0-9-][.0-9-]*).*)/$1 "$2 ExtendFont"/;
++ s/^(.* -s ([.0-9-][.0-9-]*).*)/$1 "$2 SlantFont"/;
++ s/.*%//;
++ push(@d, $_);
++ }
++ return @d
++}
++
++sub get_cfg {
++ my ($v) = @_;
++ if (defined($alldata->{'merged'}{'setting'}{$v})) {
++ return ( $alldata->{'merged'}{'setting'}{$v}{'val'},
++ $alldata->{'merged'}{'setting'}{$v}{'origin'} );
++ } else {
++ return ($settings{$v}{'default'}, "default");
+ }
+ }
+
+-###############################################################################
+-# locateMap (file ...)
+-# apply kpsewhich with format 'map'
+-#
+-sub locateMap {
+- my @maps = @_;
+- return @maps if ($#maps < 0);
++sub mkMaps {
++ my $logfile;
+
+- my @files = `kpsewhich --format=map @maps`;
+- chomp @files;
++ $logfile = "$TEXMFVAR/web2c/updmap.log";
+
+- foreach my $map (@maps) {
+- push @missing, $map if (! grep /\/$map(\.map)?$/, @files);
++ if (! $opts{'dry-run'}) {
++ mkdirhier("$TEXMFVAR/web2c");
++ open LOG, ">$logfile"
++ or die "$prg: Can't open log file \"$logfile\": $!";
++ print LOG &version();
++ printf LOG "%s\n\n", scalar localtime();
++ print LOG "Using the following config files:\n";
++ for (@{$opts{'cnffile'}}) {
++ print LOG " $_\n";
++ }
+ }
+-
+- if (wantarray) {
+- return @files;
+- } else {
+- return $files[0];
++ sub print_and_log {
++ my $str=shift;
++ print $str if !$opts{'quiet'};
++ print LOG $str unless $opts{'dry-run'};
++ }
++ sub only_log {
++ print LOG shift unless $opts{'dry-run'};
+ }
+-}
+
+-
+-###############################################################################
+-# cfgval(variable)
+-# read variable ($1) from config file
+-#
+-sub cfgval {
+- my ($variable) = @_;
+- my $value;
++ my ($mode, $mode_origin) = get_cfg('LW35');
++ my ($dvipsPreferOutline, $dvipsPreferOutline_origin) =
++ get_cfg('dvipsPreferOutline');
++ my ($dvipsDownloadBase35, $dvipsDownloadBase35_origin) =
++ get_cfg('dvipsDownloadBase35');
++ my ($pdftexDownloadBase14, $pdftexDownloadBase14_origin) =
++ get_cfg('pdftexDownloadBase14');
++ my ($pxdviUse, $pxdviUse_origin) = get_cfg('pxdviUse');
++ my ($kanjiEmbed, $kanjiEmbed_origin) = get_cfg('kanjiEmbed');
++
++ print_and_log ("\n$prg is creating new map files"
++ . "\nusing the following configuration:"
++ . "\n LW35 font names : "
++ . "$mode ($mode_origin)"
++ . "\n prefer outlines : "
++ . "$dvipsPreferOutline ($dvipsPreferOutline_origin)"
++ . "\n texhash enabled : "
++ . ($opts{'nohash'} ? "false" : "true")
++ . "\n download standard fonts (dvips) : "
++ . "$dvipsDownloadBase35 ($dvipsDownloadBase35_origin)"
++ . "\n download standard fonts (pdftex) : "
++ . "$pdftexDownloadBase14 ($pdftexDownloadBase14_origin)"
++ . "\n kanjiEmbed replacement string : "
++ . "$kanjiEmbed ($kanjiEmbed_origin)"
++ . "\n create a mapfile for pxdvi : "
++ . "$pxdviUse ($pxdviUse_origin)"
++ . "\n\n");
+
+- if ($#cfg < 0) {
+- open FILE, "<$cnfFile" or die "$0: can't open configuration file $cnfFile: $!";
+- while (<FILE>) {
+- s/\s*$//; # strip trailing spaces
+- push @cfg, $_;
++ print_and_log ("Scanning for LW35 support files");
++ my $dvips35 = $alldata->{'maps'}{"dvips35.map"}{'fullpath'};
++ my $pdftex35 = $alldata->{'maps'}{"pdftex35.map"}{'fullpath'};
++ my $ps2pk35 = $alldata->{'maps'}{"ps2pk35.map"}{'fullpath'};
++ my $LW35 = "\n$dvips35\n$pdftex35\n$ps2pk35\n\n";
++ only_log ("\n");
++ only_log ($LW35);
++ print_and_log (" [ 3 files]\n");
++ only_log ("\n");
++
++ print_and_log ("Scanning for MixedMap entries");
++ my @mixedmaps;
++ my @notmixedmaps;
++ my @kanjimaps;
++ for my $m (keys %{$alldata->{'maps'}}) {
++ my $origin = $alldata->{'maps'}{$m}{'origin'};
++ next if !defined($origin);
++ next if ($alldata->{'updmap'}{$origin}{'maps'}{$m}{'status'} eq "disabled");
++ push @mixedmaps, $m
++ if ($alldata->{'updmap'}{$origin}{'maps'}{$m}{'type'} eq "MixedMap");
++ push @notmixedmaps, $m
++ if ($alldata->{'updmap'}{$origin}{'maps'}{$m}{'type'} eq "Map");
++ push @kanjimaps, $m
++ if ($alldata->{'updmap'}{$origin}{'maps'}{$m}{'type'} eq "KanjiMap");
++ }
++
++ @mixedmaps = sort @mixedmaps;
++ @notmixedmaps = sort @notmixedmaps;
++ @kanjimaps = sort @kanjimaps;
++ only_log("\n");
++ foreach my $m (sort @mixedmaps) {
++ if (defined($alldata->{'maps'}{$m}{'fullpath'})) {
++ only_log($alldata->{'maps'}{$m}{'fullpath'} . "\n");
++ } else {
++ only_log("$m (full path not set?)\n");
+ }
+- close FILE;
+- chomp (@cfg);
+ }
+- for my $line (@cfg) {
+- if ($line =~ m/^\s*${variable}[\s=]+(.*)\s*$/) {
+- $value = $1;
+- if ($value =~ m/^(true|yes|t|y|1)$/) {
+- $value = 1;
+- }
+- elsif ($value =~ m/^(false|no|f|n|0)$/) {
+- $value = 0;
+- }
+- last;
++ only_log("\n");
++ print_and_log (sprintf(" [%3d files]\n", scalar @mixedmaps));
++ only_log("\n");
++
++ print_and_log ("Scanning for KanjiMap entries");
++ only_log("\n");
++ foreach my $m (@kanjimaps) {
++ if (defined($alldata->{'maps'}{$m}{'fullpath'})) {
++ only_log($alldata->{'maps'}{$m}{'fullpath'} . "\n");
++ } else {
++ only_log("$m (full path not set?)\n");
+ }
+ }
+- return $value;
+-}
+-
+-###############################################################################
+-# configReplace(file, pattern, line)
+-# The first line in file that matches pattern gets replaced by line.
+-# line will be added at the end of the file if pattern does not match.
+-#
+-sub configReplace {
+- my ($file, $pat, $line) = @_;
+- my @lines = &getLines($file);
+- my $found = 0;
+- map {
+- if (/$pat/) {
+- $found = 1; $_ = $line;
+- }
+- } @lines;
+- if (! $found) {
+- push @lines, $line;
+- }
+- &writeLines($file, @lines);
+-}
+-
+-###############################################################################
+-# setOption (@options)
+-# parse @options for "key=value" (one element of @options)
+-# or "key", "value" (two elements of @options) pairs.
+-# (These were the values provided to --setoption.)
+-#
+-sub setOptions {
+- my (@options) = @_;
+- for (my $i = 0; $i < @options; $i++) {
+- my $o = $options[$i];
+-
+- my ($key,$val);
+- if ($o =~ /=/) {
+- ($key,$val) = split (/=/, $o, 2);
++ only_log("\n");
++ print_and_log (sprintf(" [%3d files]\n", scalar @kanjimaps));
++ only_log("\n");
++
++ print_and_log ("Scanning for Map entries");
++ only_log("\n");
++ foreach my $m (@notmixedmaps) {
++ if (defined($alldata->{'maps'}{$m}{'fullpath'})) {
++ only_log($alldata->{'maps'}{$m}{'fullpath'} . "\n");
+ } else {
+- $key = $o;
+- die "$0: no value for --setoption $key, goodbye.\n"
+- if $i + 1 >= @options;
+- $val = $options[$i + 1];
+- $i++;
++ only_log("$m (full path not set?)\n");
+ }
+-
+- die "$0: unexpected empty key or val for options (@options), goodbye.\n"
+- if !$key || !$val;
+- &setOption ($key, $val);
+ }
+-}
+-
+-###############################################################################
+-# setOption (option, value)
+-# sets option to value in the config file (replacing the existing setting
+-# or by adding a new line to the config file).
+-#
+-sub setOption {
+- my ($opt, $val) = @_;
++ only_log("\n");
++ print_and_log (sprintf(" [%3d files]\n\n", scalar @notmixedmaps));
++ only_log("\n");
+
+- if ($opt eq "LW35") {
+- if ($val !~ m/^(URWkb|URW|ADOBE|ADOBEkb)$/) {
+- die "$0: Invalid value $val for option $opt; try --help.\n";
+- }
+- } elsif ($opt =~
+-m/^(dvipsPreferOutline|dvipsDownloadBase35|(pdftex|dvipdfm)DownloadBase14|pxdviUse)$/) {
+- if ($val !~ m/^(true|false)$/) {
+- die "$0: Invalid value $val for option $opt; should be \"true\" or \"false\".\n";
+- }
+- } elsif ($opt eq "kanjiEmbed"){
+- # do nothing
+- } else {
+- die "$0: Unsupported option $opt (value given: $val).\n";
++ # Create psfonts_t1.map, psfonts_pk.map, ps2pk.map and pdftex.map:
++ my $dvipsoutputdir = $opts{'dvipsoutputdir'};
++ my $pdftexoutputdir = $opts{'pdftexoutputdir'};
++ my $dvipdfmoutputdir = $opts{'dvipdfmoutputdir'};
++ my $pxdvioutputdir = $opts{'pxdvioutputdir'};
++ if (!$opts{'dry-run'}) {
++ my @managed_files = ("$dvipsoutputdir/download35.map",
++ "$dvipsoutputdir/builtin35.map",
++ "$dvipsoutputdir/psfonts_t1.map",
++ "$dvipsoutputdir/psfonts_pk.map",
++ "$pdftexoutputdir/pdftex_dl14.map",
++ "$pdftexoutputdir/pdftex_ndl14.map",
++ "$dvipdfmoutputdir/kanjix.map",
++ "$dvipsoutputdir/ps2pk.map");
++ push @managed_files, "$pxdvioutputdir/xdvi-ptex.map"
++ if ($pxdviUse eq "true");
++ for my $file (@managed_files) {
++ open FILE, ">$file";
++ print FILE "% $file:\
++% maintained by updmap[-sys] (multi).\
++% Don't change this file directly. Use updmap[-sys] instead.\
++% See the updmap documentation.\
++% A log of the run that created this file is available here:\
++% $logfile\
++";
++ close FILE;
++ }
+ }
+
+- # silently accept this old option name, just in case.
+- return if $opt eq "dvipdfmDownloadBase14";
+-
+- #print "Setting option $opt to $val...\n" if !$quiet;
+- &configReplace("$cnfFile", "^" . "$opt" . "\\s", "$opt $val");
+-}
++ my @kanjimaps_fonts = getFonts(@kanjimaps);
++ @kanjimaps_fonts = &normalizeLines(@kanjimaps_fonts);
++ my @ps2pk_fonts = getFonts('-all', "ps2pk35.map");
++ my @dvips35_fonts = getFonts('-all', "dvips35.map");
++ my @pdftex35_fonts = getFonts('-all', "pdftex35.map");
++ my @mixedmaps_fonts = getFonts(@mixedmaps);
++ my @notmixedmaps_fonts = getFonts(@notmixedmaps);
+
+-###############################################################################
+-# showOptions(item)
+-# show Options for an item
+-#
+-sub showOptions {
+- foreach my $item (@_) {
+- if ($item eq "LW35") {
+- print "URWkb URW ADOBE ADOBEkb\n";
+- }
+- elsif ($item =~
+-m/(dvipsPreferOutline|(dvipdfm|pdftex)DownloadBase14|dvipsDownloadBase35|pxdviUse)/) {
+- print "true false\n";
+- }
+- elsif ($item eq "kanjiEmbed") {
+- print "(any string)\n";
+- }
+- else {
+- print "Unknown item \"$item\"; should be one of LW35, dvipsPreferOutline,\n"
+- . " dvipsDownloadBase35, pdftexDownloadBase14, pxdviUse or kanjiEmbed\n";
+- }
++ print "Generating output for dvipdfm...\n" if !$opts{'quiet'};
++ &writeLines(">$dvipdfmoutputdir/kanjix.map", @kanjimaps_fonts);
++
++ if ($pxdviUse eq "true") {
++ # we use the very same data as for kanjix.map, but generate
++ # a different file, so that in case a user wants to hand-craft it
++ print "Generating output for pxdvi...\n" if !$opts{'quiet'};
++ &writeLines(">$pxdvioutputdir/xdvi-ptex.map", @kanjimaps_fonts);
+ }
+- exit 0
+-}
+
+-
+-###############################################################################
+-# enableMap (type, map)
+-# enables an entry in the config file for map with a given type.
+-#
+-sub enableMap {
+- my ($type, $map) = @_;
+
+- if ($type !~ m/^(Map|MixedMap|KanjiMap)$/) {
+- die "$0: Invalid mapType $type\n";
++ print "Generating output for ps2pk...\n" if !$opts{'quiet'};
++ my @ps2pk_map;
++ push @ps2pk_map, "% ps2pk35.map";
++ push @ps2pk_map, transLW35($mode, @ps2pk_fonts);
++ push @ps2pk_map, @mixedmaps_fonts;
++ push @ps2pk_map, @notmixedmaps_fonts;
++ &writeLines(">$dvipsoutputdir/ps2pk.map",
++ normalizeLines(@ps2pk_map));
++
++ print "Generating output for dvips...\n" if !$opts{'quiet'};
++ my @download35_map;
++ push @download35_map, "% ps2pk35.map";
++ push @download35_map, transLW35($mode, @ps2pk_fonts);
++ &writeLines(">$dvipsoutputdir/download35.map",
++ normalizeLines(@download35_map));
++
++ my @builtin35_map;
++ push @builtin35_map, "% dvips35.map";
++ push @builtin35_map, transLW35($mode, @dvips35_fonts);
++ &writeLines(">$dvipsoutputdir/builtin35.map",
++ normalizeLines(@builtin35_map));
++
++ my @dftdvips_fonts = ($dvipsDownloadBase35 ? @ps2pk_fonts : @dvips35_fonts);
++
++ my @psfonts_t1_map;
++ if ($dvipsDownloadBase35) {
++ push @psfonts_t1_map, "% ps2pk35.map",
++ @dftdvips_fonts = @ps2pk_fonts;
++ } else {
++ push @psfonts_t1_map, "% dvips35.map";
++ @dftdvips_fonts = @dvips35_fonts;
+ }
+- # a map can only have one type, so we carefully disable everything
+- # about map here:
+- &disableMap("$map");
++ push @psfonts_t1_map, transLW35($mode, @dftdvips_fonts);
++ my @tmpkanji2 = cidx2dvips(\@kanjimaps_fonts);
++ push @psfonts_t1_map, @mixedmaps_fonts;
++ push @psfonts_t1_map, @notmixedmaps_fonts;
++ push @psfonts_t1_map, @tmpkanji2;
++ &writeLines(">$dvipsoutputdir/psfonts_t1.map",
++ normalizeLines(@psfonts_t1_map));
+
+- # now enable with the right type:
+- &configReplace("$cnfFile", "^#!\\s*" . "$type" . "\\s*$map", "$type $map");
+-}
++ my @psfonts_pk_map;
++ push @psfonts_pk_map, transLW35($mode, @dftdvips_fonts);
++ push @psfonts_pk_map, @notmixedmaps_fonts;
++ push @psfonts_pk_map, @tmpkanji2;
++ &writeLines(">$dvipsoutputdir/psfonts_pk.map",
++ normalizeLines(@psfonts_pk_map));
+
+-###############################################################################
+-# disableMap (map)
+-# disables map in config file (any type)
+-#
+-sub disableMap {
+- my ($map) = @_;
+- my %count = ();
+- my $type;
++ print "Generating output for pdftex...\n" if !$opts{'quiet'};
++ # remove PaintType due to Sebastian's request
++ my @pdftexmaps_ndl;
++ push @pdftexmaps_ndl, "% pdftex35.map";
++ push @pdftexmaps_ndl, transLW35($mode, @pdftex35_fonts);
++ push @pdftexmaps_ndl, @mixedmaps_fonts;
++ push @pdftexmaps_ndl, @notmixedmaps_fonts;
++ @pdftexmaps_ndl = grep { $_ !~ m/(^%\|PaintType)/ } @pdftexmaps_ndl;
++
++ my @pdftexmaps_dl;
++ push @pdftexmaps_dl, "% ps2pk35.map";
++ push @pdftexmaps_dl, transLW35($mode, @ps2pk_fonts);
++ push @pdftexmaps_dl, @mixedmaps_fonts;
++ push @pdftexmaps_dl, @notmixedmaps_fonts;
++ @pdftexmaps_dl = grep { $_ !~ m/(^%\|PaintType)/ } @pdftexmaps_dl;
+
+- my @mapType = grep {
+- my @fields = split;
+- if ($fields[0] and $fields[0] =~ /^(MixedMap|Map|KanjiMap)$/
+- and $fields[1] eq $map and ++$count{$fields[0]}) {
+- $_ = $fields[0];
+- }
+- else {
+- $_ = '';
+- }
+- } &getLines($cnfFile);
++ my @pdftex_ndl14_map = @pdftexmaps_ndl;
++ @pdftex_ndl14_map = &normalizeLines(@pdftex_ndl14_map);
++ @pdftex_ndl14_map = &to_pdftex(@pdftex_ndl14_map);
++ &writeLines(">$pdftexoutputdir/pdftex_ndl14.map", @pdftex_ndl14_map);
+
+- foreach $type (@mapType) {
+- &configReplace("$cnfFile", "^$type" . "\\s*$map", "#! $type $map");
+- }
+-}
++ my @pdftex_dl14_map = @pdftexmaps_dl;
++ @pdftex_dl14_map = &normalizeLines(@pdftex_dl14_map);
++ @pdftex_dl14_map = &to_pdftex(@pdftex_dl14_map);
++ &writeLines(">$pdftexoutputdir/pdftex_dl14.map", @pdftex_dl14_map);
+
+-###############################################################################
+-# setupDestDir()
+-# find an output directory if none specified on cmd line. First choice is
+-# $TEXMFVAR/fonts/map/updmap (if TEXMFVAR is set), next is relative to
+-# config file location. Fallback is $TEXMFMAIN/fonts/map/updmap.
+-#
+-sub setupOutputDir {
+- my($od, $driver) = @_;
++ our $link = &setupSymlinks($dvipsPreferOutline, $dvipsoutputdir, $pdftexDownloadBase14, $pdftexoutputdir);
++
++ print_and_log ("\nFiles generated:\n");
++ sub dir {
++ my ($d, $f, $target)=@_;
++ our $link;
++ if (-e "$d/$f") {
++ my @stat=lstat("$d/$f");
++ my ($s,$m,$h,$D,$M,$Y)=localtime($stat[9]);
++ my $timestamp=sprintf ("%04d-%02d-%02d %02d:%02d:%02d",
++ $Y+1900, $M+1, $D, $h, $m, $s);
++ my $date=sprintf "%12d %s %s", $stat[7], $timestamp, $f;
++ print_and_log ($date);
+
+- if (!$od) {
+- my $rel = "fonts/map/$driver/updmap";
+- my $tf;
+- # Try TEXMFVAR tree. Use it if variable is set and $rel can
+- # be written.
+- chomp($tf = `kpsewhich --var-value=TEXMFVAR`);
+- if ($tf) {
+- &mkdirhier("$tf/$rel");
+- if (! -w "$tf/$rel") {
+- die "$0: Directory \"$tf/$rel\" isn't writable.\n";
++ if (-l "$d/$f") {
++ my $lnk=sprintf " -> %s\n", readlink ("$d/$f");
++ print_and_log ($lnk);
++ } elsif ($f eq $target) {
++ if (&files_are_identical("$d/$f", "$d/" . $link->{$target})) {
++ print_and_log (" = $link->{$target}\n");
++ } else {
++ print_and_log (" = ?????\n"); # This shouldn't happen.
++ }
++ } else {
++ print_and_log ("\n");
+ }
++ } else {
++ print STDERR "Warning: File $d/$f doesn't exist.\n";
++ print LOG "Warning: File $d/$f doesn't exist.\n"
++ unless $opts{'dry-run'};
+ }
+- $od = "$tf/$rel";
+ }
+- &mkdirhier($od);
+- print "$driver output dir: \"$od\"\n" if !$quiet;
+- return $od;
+-}
+-
+-sub setupDestDir {
+- $dvipsoutputdir = &setupOutputDir($dvipsoutputdir, "dvips");
+- $pdftexoutputdir = &setupOutputDir($pdftexoutputdir, "pdftex");
+- $dvipdfmoutputdir = &setupOutputDir($dvipdfmoutputdir, "dvipdfm");
+- $pxdvioutputdir = &setupOutputDir($pxdvioutputdir, "pxdvi");
+-}
+
+-###############################################################################
+-# setupCfgFile()
+-# find config file if none specified on cmd line.
+-#
+-sub setupCfgFile {
+- if (! $cnfFile) {
+- my $tf = `kpsewhich --var-value=TEXMFCONFIG`;
+- chomp($tf);
+- if ($tf && ! -f "$tf/web2c/$cnfFileShort") {
+- &mkdirhier("$tf/web2c") if (! -d "$tf/web2c");
+- if (-d "$tf/web2c" && -w "$tf/web2c") {
+- unlink "$tf/web2c/$cnfFileShort";
+- my $original_cfg=`kpsewhich updmap.cfg`;
+- chomp($original_cfg);
+- print("copy $original_cfg => $tf/web2c/$cnfFileShort\n") if !$quiet;
+- $newcnf="$tf/web2c/$cnfFileShort";
+- &copyFile("$original_cfg", "$tf/web2c/$cnfFileShort");
+- $updLSR->{add}("$tf/web2c/$cnfFileShort");
+- }
+- }
+- $cnfFile = "$tf/web2c/updmap.cfg";
+- if (-s $cnfFile) {
+- print "Config file: \"$cnfFile\"\n" if !$quiet;
+- } else {
+- die "$0: Config file updmap.cfg not found.\n";
++ my $d;
++ $d = "$dvipsoutputdir";
++ print_and_log(" $d:\n");
++ foreach my $f ('builtin35.map', 'download35.map', 'psfonts_pk.map',
++ 'psfonts_t1.map', 'ps2pk.map', 'psfonts.map') {
++ dir ($d, $f, 'psfonts.map');
++ $updLSR->{add}("$d/$f") unless $opts{'dry-run'};
++ }
++ $d = "$pdftexoutputdir";
++ print_and_log(" $d:\n");
++ foreach my $f ('pdftex_dl14.map', 'pdftex_ndl14.map', 'pdftex.map') {
++ dir ($d, $f, 'pdftex.map');
++ $updLSR->{add}("$d/$f") unless $opts{'dry-run'};
++ }
++ $d="$dvipdfmoutputdir";
++ print_and_log(" $d:\n");
++ foreach my $f ('kanjix.map') {
++ dir ($d, $f, '');
++ $updLSR->{add}("$d/$f") unless $opts{'dry-run'};
++ }
++ if ($pxdviUse eq "true") {
++ $d="$pxdvioutputdir";
++ print_and_log(" $d:\n");
++ foreach my $f ('xdvi-ptex.map') {
++ dir ($d, $f, '');
++ $updLSR->{add}("$d/$f") unless $opts{'dry-run'};
+ }
+ }
++ close LOG unless $opts{'dry-run'};
++ print "\nTranscript written on \"$logfile\".\n" if !$opts{'quiet'};
++
+ }
+
+-###############################################################################
+-# catMaps(regex)
+-# filter config file by regex for map lines and extract the map filenames.
+-# These are then looked up (by kpsewhich in locateMap) and the content of
+-# all map files is send to stdout.
+-#
+-sub catMaps {
+- my ($map) = @_;
+- my %count = ( );
+- my @maps = grep { $_ =~ m/$map/ } @cfg;
+- map{
+- $_ =~ s/\#.*//;
+- $_ =~ s/\@kanjiEmbed@/$kanjiEmbed/;
+- $_ =~ s/\s*([^\s]*)\s*([^\s]*)/$2/;
+- } @maps;
+- @maps = sort(@maps);
+- @maps = grep { ++$count{$_} < 2; } @maps;
+
+- @maps = &locateMap(@maps);
+- return @maps;
++sub locateMap {
++ my $map = shift;
++ my $ret = `kpsewhich --format=map $map`;
++ chomp($ret);
++ return $ret;
+ }
+
+-###############################################################################
+-# listMaps()
+-# list all maps mentioned in the config file
+-#
+-sub listMaps {
+- my $what=shift;
+- my @mapfiles;
+- my @paths;
+- $kanjiEmbed = &cfgval("kanjiEmbed");
+- $kanjiEmbed = "noEmbed" unless (defined $kanjiEmbed);
+-
+- my @lines = grep {
+- if ($what eq 'sync') {
+- $_ =~ m/^(Mixed|Kanji)?Map/
++sub processOptions {
++ # first process the stupid setoption= s@{1,2} which is not accepted
++ # furthermore, try to work around missing s{1,2} support in older perls
++ my $oldconfig = Getopt::Long::Configure(qw(pass_through));
++ our @setoptions;
++ our @enable;
++ sub read_one_or_two {
++ my ($opt, $val) = @_;
++ our @setoptions;
++ our @enable;
++ # check if = occirs in $val, if not, get the next argument
++ if ($val =~ m/=/) {
++ if ($opt eq "setoption") {
++ push @setoptions, $val;
++ } else {
++ push @enable, $val;
++ }
+ } else {
+- $_ =~ m/^(\#! *)?(Mixed|Kanji)?Map/
+- }
+- } &getLines($cnfFile);
+-
+- if ($what eq 'list') {
+- # --listmaps
+- map { print "$_\n"; } @lines;
+- } else {
+- map { $_ =~ s/\@kanjiEmbed@/$kanjiEmbed/ } @lines;
+- @mapfiles=grep { $_ =~ s/^(\#! *)?(Mixed|Kanji)?Map\s+// } @lines;
+- @paths=&locateMap(@mapfiles);
+-
+- if ($what eq 'avail') {
+- # --listavailablemaps
+- map {
+- my $entry="$_";
+- # that was disabled, but I don't understand why (NP)
+- print "$entry\n" if (grep { $_ =~ m/\/$entry/ } @paths);
+- } @lines;
+- } elsif ($what eq 'sync') {
+- # --syncwithtrees
+- map {
+- my $entry="$_";
+- unless (grep { $_ =~ m/\/$entry/ } @paths) {
+- &disableMap($entry);
+- print " $entry disabled\n" if !$quiet;
+- }
+- } @lines;
++ my $vv = shift @ARGV;
++ die "Try \"$prg --help\" for more information.\n"
++ if !defined($vv);
++ if ($opt eq "setoption") {
++ push @setoptions, "$val=$vv";
++ } else {
++ push @enable, "$val=$vv";
++ }
+ }
+ }
+-}
++ GetOptions("setoption=s@" => \&read_one_or_two,
++ "enable=s@" => \&read_one_or_two) or
++ die "Try \"$prg --help\" for more information.\n";
+
+-###############################################################################
+-# normalizeLines()
+-# remove comments, whitespace is exactly one space, no empty lines,
+-# no whitespace at end of line, one space before and after "
+-#
+-sub normalizeLines {
+- my @lines = @_;
+- my %count = ();
++ @{$opts{'setoption'}} = @setoptions if (@setoptions);
++ @{$opts{'enable'}} = @enable if (@enable);
+
+- @lines = grep { $_ !~ m/^[*#;%]/ } @lines;
+- map {$_ =~ s/\s+/ /gx } @lines;
+- @lines = grep { $_ !~ m/^\s*$/x } @lines;
+- map { $_ =~ s/\s$//x ;
+- $_ =~ s/\s*\"\s*/ \" /gx;
+- $_ =~ s/\" ([^\"]*) \"/\"$1\"/gx;
+- } @lines;
++ Getopt::Long::Configure($oldconfig);
+
+- @lines = grep {++$count{$_} < 2 } (sort @lines);
++ # now continue with normal option handling
+
+- return @lines;
++ GetOptions(\%opts, @cmdline_options) or
++ die "Try \"$prg --help\" for more information.\n";
+ }
+
+-###############################################################################
+-# to_pdftex()
+-# if $pdftexStripEnc is set, strip "PS_Encoding_Name ReEncodeFont"
+-# from map entries; they are ignored by pdftex. But since the sh
+-# incarnation of updmap included them, and we want to minimize
+-# differences, this is not done by default.
+-#
+-sub to_pdftex {
+- return @_ unless $pdftexStripEnc;
+- my @in = @_;
+- my @out;
+- foreach my $line (@in) {
+- if ($line =~ /^(.*\s+)(\S+\s+ReEncodeFont\s)(.*)/) {
+- $line = "$1$3";
+- $line =~ s/\s+\"\s+\"\s+/ /;
++# determines the output dir for driver from cmd line, or if not given
++# from TEXMFVAR
++sub setupOutputDir {
++ my $driver = shift;
++ if (!$opts{$driver . "outputdir"}) {
++ if ($opts{'outputdir'}) {
++ $opts{$driver . "outputdir"} = $opts{'outputdir'};
++ } else {
++ $opts{$driver . "outputdir"} = "$TEXMFVAR/fonts/map/$driver/updmap";
+ }
+- push @out, $line;
+ }
+- return @out;
+-}
+-
+-###############################################################################
+-# cidx2dvips()
+-# reads from stdin, writes to stdout. It transforms "cid-x"-like syntax into
+-# "dvips"-like syntax.
+-###############################################################################
+-sub cidx2dvips {
+- my ($s) = @_;
+- my @d;
+- foreach (@$s) {
+- s/,BoldItalic/ -s .3/;
+- s/,Bold//;
+- s/,Italic/ -s .3/;
+- s/\s\s*/ /g;
+- if ($_ =~ /.*[@\:\/,]/) {next;}
+- elsif ($_ =~ /^[^ ][^ ]* unicode /) {next;}
+- s/^([^ ][^ ]* [^ ][^ ]* [^ ][^ ]*)\.[Oo][Tt][Ff]/$1/;
+- s/^([^ ][^ ]* [^ ][^ ]* [^ ][^ ]*)\.[Tt][Tt][FfCc]/$1/;
+- s/$/ %/;
+- s/^(([^ ]*).*)/$1$2/;
+- s/^([^ ][^ ]* ([^ ][^ ]*) !*([^ ][^ ]*).*)/$1 $3-$2/;
+- s/^(.* -e ([.0-9-][.0-9-]*).*)/$1 "$2 ExtendFont"/;
+- s/^(.* -s ([.0-9-][.0-9-]*).*)/$1 "$2 SlantFont"/;
+- s/.*%//;
+- push(@d, $_);
++ my $od = $opts{$driver . "outputdir"};
++ if (!$opts{"dry-run"}) {
++ &mkdirhier($od);
++ if (! -w $od) {
++ die "$prg: Directory \"$od\" isn't writable: $!";
+ }
+- return @d
++ }
++ print "$driver output dir: \"$od\"\n" if !$opts{'quiet'};
++ return $od;
+ }
+
+-
+ ###############################################################################
+-# mkMaps()
+-# the main task of this script: create the output files
++# setOption (@options)
++# parse @options for "key=value" (one element of @options)
++# we can only have "key=value" since that is the way it was prepared
++# in process_options
++# (These were the values provided to --setoption.)
+ #
+-sub mkMaps {
+- my @lines;
+- my $logfile;
++sub setOptions {
++ my (@options) = @_;
++ for (my $i = 0; $i < @options; $i++) {
++ my $o = $options[$i];
+
+- $cache=1;
++ my ($key,$val) = split (/=/, $o, 2);
+
+- if (! $dry_run) {
+- my $TEXMFVAR = `kpsewhich --var-value=TEXMFVAR`;
+- chomp($TEXMFVAR);
+- $logfile = "$TEXMFVAR/web2c/updmap.log";
+- mkdirhier "$TEXMFVAR/web2c";
+- open LOG, ">$logfile"
+- or die "$0: Can't open log file \"$logfile\": $!";
+- $writelog=1;
+- print LOG &version();
+- printf LOG "%s\n\n", scalar localtime();
+- print LOG "Using config file \"$cnfFile\".\n";
+- }
+- sub wlog () {
+- my $str=shift;
+- if ($dry_run) {
+- print $str;
+- } else {
+- print $str if !$quiet;
+- print LOG $str;
+- }
++ die "$prg: unexpected empty key or val for options (@options), goodbye.\n"
++ if !$key || !$val;
++ &setOption ($key, $val);
+ }
+- sub newline() {
+- if ($dry_run) {
+- print "\n";
++ return save_updmap($alldata->{'changes_config'});
++}
++
++sub enable_disable_maps {
++ my (@what) = @_;
++ my $tc = $alldata->{'changes_config'};
++ die "$prg: top config file $tc has not been read."
++ if (!defined($alldata->{'updmap'}{$tc}));
++ my $changed = 0;
++ for my $w (@what) {
++ if ($w =~ m/=/) {
++ # this is --enable MapType=MapName
++ my ($type, $map) = split ('=', $w);
++ enable_map($tc, $type, $map);
+ } else {
+- print LOG "\n";
++ # this is --disable MapName
++ disable_map($tc, $w);
+ }
+ }
++ return save_updmap($tc);
++}
+
+- $mode = &cfgval("LW35");
+- $mode = "URWkb" unless (defined $mode);
+-
+- $dvipsPreferOutline = &cfgval("dvipsPreferOutline");
+- $dvipsPreferOutline = 1 unless (defined $dvipsPreferOutline);
+-
+- $dvipsDownloadBase35 = &cfgval("dvipsDownloadBase35");
+- $dvipsDownloadBase35 = 1 unless (defined $dvipsDownloadBase35);
+-
+- $pdftexDownloadBase14 = &cfgval("pdftexDownloadBase14");
+- $pdftexDownloadBase14 = 1 unless (defined $pdftexDownloadBase14);
+-
+- $kanjiEmbed = &cfgval("kanjiEmbed");
+- $kanjiEmbed = "noEmbed" unless (defined $kanjiEmbed);
+-
+- $pxdviUse = &cfgval("pxdviUse");
+- $pxdviUse = 0 unless (defined $pxdviUse);
++sub enable_map {
++ my ($tc, $type, $map) = @_;
+
+- &wlog ("\n$0 "
+- . ($dry_run ? "would create" : "is creating") . " new map files"
+- . "\nusing the following configuration:"
+- . "\n LW35 font names : "
+- . $mode
+- . "\n prefer outlines : "
+- . ($dvipsPreferOutline ? "true" : "false")
+- . "\n texhash enabled : "
+- . ($nohash ? "false" : "true")
+- . "\n download standard fonts (dvips) : "
+- . ($dvipsDownloadBase35 ? "true" : "false")
+- . "\n download standard fonts (pdftex) : "
+- . ($pdftexDownloadBase14 ? "true" : "false")
+- . "\n create a mapfile for pxdvi : "
+- . ($pxdviUse ? "true" : "false")
+- . "\n\n");
++ die "$prg: invalid mapType $type" if ($type !~ m/^(Map|MixedMap|KanjiMap)$/);
+
+- &wlog ("Scanning for LW35 support files");
+- $dvips35 = &locateMap("dvips35.map");
+- $pdftex35 = &locateMap("pdftex35.map");
+- $ps2pk35 = &locateMap("ps2pk35.map");
+- my $LW35 = "\n$dvips35\n$pdftex35\n$ps2pk35\n\n";
+- if ($dry_run) {
+- print $LW35;
++ if (defined($alldata->{'updmap'}{$tc}{'maps'}{$map})) {
++ # the map data has already been read in, no special precautions necessary
++ if (($alldata->{'updmap'}{$tc}{'maps'}{$map}{'status'} eq "enabled") &&
++ ($alldata->{'updmap'}{$tc}{'maps'}{$map}{'type'} eq $type)) {
++ # nothing to do here ... be happy!
++ return;
++ } else {
++ $alldata->{'updmap'}{$tc}{'maps'}{$map}{'status'} = "enabled";
++ $alldata->{'updmap'}{$tc}{'maps'}{$map}{'type'} = $type;
++ $alldata->{'maps'}{$map}{'origin'} = $tc;
++ $alldata->{'maps'}{$map}{'status'} = "enabled";
++ $alldata->{'updmap'}{$tc}{'changed'} = 1;
++ }
+ } else {
+- print LOG $LW35;
++ # add a new map file!
++ $alldata->{'updmap'}{$tc}{'maps'}{$map}{'type'} = $type;
++ $alldata->{'updmap'}{$tc}{'maps'}{$map}{'status'} = "enabled";
++ $alldata->{'updmap'}{$tc}{'maps'}{$map}{'line'} = -1;
++ $alldata->{'updmap'}{$tc}{'changed'} = 1;
++ $alldata->{'maps'}{$map}{'origin'} = $tc;
++ $alldata->{'maps'}{$map}{'status'} = "enabled";
+ }
+- printf " [%3d files]\n", 3 unless ($quiet || $dry_run);
++}
+
+- &wlog ("Scanning for MixedMap entries");
+- &newline;
+- my @tmp1 = &catMaps('^MixedMap');
+- foreach my $line (@tmp1) {
+- if ($dry_run) {
+- print "$line\n";
++sub disable_map {
++ my ($tc, $map) = @_;
++
++ if (defined($alldata->{'updmap'}{$tc}{'maps'}{$map})) {
++ # the map data has already been read in, no special precautions necessary
++ if ($alldata->{'updmap'}{$tc}{'maps'}{$map}{'status'} eq "disabled") {
++ # nothing to do here ... be happy!
+ } else {
+- print LOG "$line\n";
++ $alldata->{'updmap'}{$tc}{'maps'}{$map}{'status'} = "disabled";
++ $alldata->{'maps'}{$map}{'origin'} = $tc;
++ $alldata->{'maps'}{$map}{'status'} = "disabled";
++ $alldata->{'updmap'}{$tc}{'changed'} = 1;
+ }
++ } else {
++ # disable a Map type that might be activated in a lower ranked updmap.cfg
++ if (!defined($alldata->{'maps'}{$map})) {
++ warning("Map is not present anywhere, why should I disable it?\n");
++ return;
++ }
++ my $orig = $alldata->{'maps'}{$map}{'origin'};
++ # add a new entry to the top level where we disable it
++ # copy over the type from the last entry
++ $alldata->{'updmap'}{$tc}{'maps'}{$map}{'type'} =
++ $alldata->{'updmap'}{$orig}{'maps'}{$map}{'type'};
++ $alldata->{'updmap'}{$tc}{'maps'}{$map}{'status'} = "disabled";
++ $alldata->{'updmap'}{$tc}{'maps'}{$map}{'line'} = -1;
++ # rewrite the origin
++ $alldata->{'maps'}{$map}{'origin'} = $tc;
++ $alldata->{'maps'}{$map}{'status'} = "disabled";
++ # go on for writing
++ $alldata->{'updmap'}{$tc}{'changed'} = 1;
+ }
+- &newline;
+- printf " [%3d files]\n", scalar @tmp1
+- unless ($quiet || $dry_run);
+-
+- &wlog ("Scanning for KanjiMap entries");
+- &newline;
+- my @tmpkanji0 = &catMaps('^KanjiMap');
+- foreach my $line (@tmpkanji0) {
+- if ($dry_run) {
+- print "$line\n";
+- } else {
+- print LOG "$line\n";
++}
++
++
++# returns 1 if actually saved due to changes
++sub save_updmap {
++ my $fn = shift;
++ return if $opts{'dry-run'};
++ my %upd = %{$alldata->{'updmap'}{$fn}};
++ if ($upd{'changed'}) {
++ mkdirhier(dirname($fn));
++ open (FN, ">$fn") || die "$prg: can't write to $fn: $!";
++ my @lines = @{$upd{'lines'}};
++ if (!@lines) {
++ print "Creating new config file $fn\n";
++ }
++ # collect the lines with data
++ my %line_to_setting;
++ my %line_to_map;
++ my @add_setting;
++ my @add_map;
++ if (defined($upd{'setting'})) {
++ for my $k (keys %{$upd{'setting'}}) {
++ if ($upd{'setting'}{$k}{'line'} == -1) {
++ push @add_setting, $k;
++ } else {
++ $line_to_setting{$upd{'setting'}{$k}{'line'}} = $k;
++ }
++ }
+ }
+- }
+- &newline;
+- printf " [%3d files]\n", scalar @tmpkanji0
+- unless ($quiet || $dry_run);
+-
+- &wlog ("Scanning for Map entries");
+- &newline();
+- my @tmp2 = &catMaps('^Map');
+- foreach my $line (@tmp2) {
+- if ($dry_run) {
+- print "$line\n";
+- } else {
+- print LOG "$line\n";
++ if (defined($upd{'maps'})) {
++ for my $k (keys %{$upd{'maps'}}) {
++ if ($upd{'maps'}{$k}{'line'} == -1) {
++ push @add_map, $k;
++ } else {
++ $line_to_map{$upd{'maps'}{$k}{'line'}} = $k;
++ }
++ }
+ }
++ for my $i (0..$#lines) {
++ if (defined($line_to_setting{$i})) {
++ my $k = $line_to_setting{$i};
++ my $v = $upd{'setting'}{$k}{'val'};
++ print FN "$k $v\n";
++ } elsif (defined($line_to_map{$i})) {
++ my $m = $line_to_map{$i};
++ my $rm;
++ if (defined($upd{'maps'}{$m}{'original'})) {
++ # we have the case that @noEmbed@ was replaced by the respective
++ # setting. Before writing out we have to replace this back with
++ # the original line!A
++ $rm = $upd{'maps'}{$m}{'original'};
++ } else {
++ $rm = $m;
++ }
++ my $t = $upd{'maps'}{$m}{'type'};
++ my $p = ($upd{'maps'}{$m}{'status'} eq "disabled" ? "#! " : "");
++ print FN "$p$t $rm\n";
++ } else {
++ print FN "$lines[$i]\n";
++ }
++ }
++ # add the new settings and maps
++ for my $k (@add_setting) {
++ my $v = $upd{'setting'}{$k}{'val'};
++ print FN "$k $v\n";
++ }
++ for my $m (@add_map) {
++ my $t = $upd{'maps'}{$m}{'type'};
++ my $p = ($upd{'maps'}{$m}{'status'} eq "disabled" ? "#! " : "");
++ print FN "$p$t $m\n";
++ }
++ close(FN) || warn("Cannot close file handle for $fn: $!");
++ delete $alldata->{'updmap'}{$fn}{'changed'};
++ return 1;
+ }
+- &newline;
+- printf " [%3d files]\n\n", scalar @tmp2
+- unless ($quiet || $dry_run);
+-
+- if (@missing > 0) {
+- print STDERR "\nERROR: The following map file(s) couldn't be found:\n\t";
+- print STDERR join(' ', @missing);
+- print STDERR "\n\n\tDid you run mktexlsr?\n\n" .
+- "\tYou can delete non-existent map entries using the option\n".
+- "\t --syncwithtrees.\n\n";
+- exit (1);
+- }
+- exit(0) if $dry_run;
++ return 0;
++}
+
+- # Create psfonts_t1.map, psfonts_pk.map, ps2pk.map and pdftex.map:
+- my @managed_files = ("$dvipsoutputdir/download35.map",
+- "$dvipsoutputdir/builtin35.map",
+- "$dvipsoutputdir/psfonts_t1.map",
+- "$dvipsoutputdir/psfonts_pk.map",
+- "$pdftexoutputdir/pdftex_dl14.map",
+- "$pdftexoutputdir/pdftex_ndl14.map",
+- "$dvipdfmoutputdir/kanjix.map",
+- "$dvipsoutputdir/ps2pk.map");
+- if ($pxdviUse) {
+- push @managed_files, "$pxdvioutputdir/xdvi-ptex.map";
+- }
+- for my $file (@managed_files) {
+- open FILE, ">$file";
+- print FILE "% $file:\
+-% maintained by updmap[-sys].\
+-% Don't change this file directly. Use updmap[-sys] instead.\
+-% See texmf/web2c/$cnfFileShort and the updmap documentation.\
+-% A log of the run that created this file is available here:\
+-% $logfile\
+-";
+- close FILE;
++######################
++# check for correct option value
++#
++sub check_option {
++ my ($opt, $val) = @_;
++ if ((($settings{$opt}{'type'} eq "binary") &&
++ $val ne "true" && $val ne "false") ||
++ (($settings{$opt}{'type'} eq "string") &&
++ !member($val, @{$settings{$opt}{'possible'}}))) {
++ return 0;
+ }
++ return 1;
++}
+
+- print "Generating output for dvipdfm...\n" if !$quiet;
+- my @tmpkanji1;
+- push @tmpkanji1, &getLines(@tmpkanji0);
+- @tmpkanji1 = &normalizeLines(@tmpkanji1);
+- &writeLines(">$dvipdfmoutputdir/kanjix.map",
+- @tmpkanji1);
+-
+- if ($pxdviUse) {
+- # we use the very same data as for kanjix.map, but generate
+- # a different file, so that in case a user wants to hand-craft it
+- print "Generating output for pxdvi...\n" if !$quiet;
+- &writeLines(">$pxdvioutputdir/xdvi-ptex.map",
+- @tmpkanji1);
+- }
+-
+- print "Generating output for ps2pk...\n" if !$quiet;
+- my @ps2pk_map = &transLW35($ps2pk35);
+- push @ps2pk_map, &getLines(@tmp1);
+- push @ps2pk_map, &getLines(@tmp2);
+- &writeLines(">$dvipsoutputdir/ps2pk.map",
+- &normalizeLines(@ps2pk_map));
+-
+- print "Generating output for dvips...\n" if !$quiet;
+- my @download35_map = &transLW35($ps2pk35);
+- &writeLines(">$dvipsoutputdir/download35.map",
+- &normalizeLines(@download35_map));
+-
+- my @builtin35_map = &transLW35($dvips35);
+- &writeLines(">$dvipsoutputdir/builtin35.map",
+- &normalizeLines(@builtin35_map));
+-
+- my $dftdvips = ($dvipsDownloadBase35 ? $ps2pk35 : $dvips35);
+-
+- my @psfonts_t1_map = &transLW35($dftdvips);
+- my @tmpkanji2 = &cidx2dvips(\@tmpkanji1);
+- push @psfonts_t1_map, &getLines(@tmp1);
+- push @psfonts_t1_map, &getLines(@tmp2);
+- push @psfonts_t1_map, @tmpkanji2;
+- &writeLines(">$dvipsoutputdir/psfonts_t1.map",
+- &normalizeLines(@psfonts_t1_map));
+-
+- my @psfonts_pk_map = &transLW35($dftdvips);
+- push @psfonts_pk_map, &getLines(@tmp2);
+- push @psfonts_pk_map, @tmpkanji2;
+- &writeLines(">$dvipsoutputdir/psfonts_pk.map",
+- &normalizeLines(@psfonts_pk_map));
++###############################################################################
++# setOption (conf_file, option, value)
++# sets option to value in the config file (replacing the existing setting
++# or by adding a new line to the config file).
++#
++sub setOption {
++ my ($opt, $val) = @_;
+
+- print "Generating output for pdftex...\n" if !$quiet;
+- # remove PaintType due to Sebastian's request
+- my @tmp3 = &transLW35($pdftex35);
+- push @tmp3, &getLines(@tmp1);
+- push @tmp3, &getLines(@tmp2);
+- @tmp3 = grep { $_ !~ m/(^%|PaintType)/ } @tmp3;
+-
+- my @tmp7 = &transLW35($ps2pk35);
+- push @tmp7, &getLines(@tmp1);
+- push @tmp7, &getLines(@tmp2);
+- @tmp7 = grep { $_ !~ m/(^%|PaintType)/ } @tmp7;
++ die "$prg: Unsupported option $opt." if (!defined($settings{$opt}));
++ die "$0: Invalid value $val for option $opt."
++ if (!check_option($opt, $val));
+
+- my @pdftex_ndl14_map = @tmp3;
+- @pdftex_ndl14_map = &normalizeLines(@pdftex_ndl14_map);
+- @pdftex_ndl14_map = &to_pdftex(@pdftex_ndl14_map);
+- &writeLines(">$pdftexoutputdir/pdftex_ndl14.map", @pdftex_ndl14_map);
++ # silently accept this old option name, just in case.
++ return if $opt eq "dvipdfmDownloadBase14";
+
+- my @pdftex_dl14_map = @tmp7;
+- @pdftex_dl14_map = &normalizeLines(@pdftex_dl14_map);
+- @pdftex_dl14_map = &to_pdftex(@pdftex_dl14_map);
+- &writeLines(">$pdftexoutputdir/pdftex_dl14.map", @pdftex_dl14_map);
++ #print "Setting option $opt to $val...\n" if !$opts{'quiet'};
++ my $tc = $alldata->{'changes_config'};
+
+- &setupSymlinks;
++ die "$prg: top config file $tc has not been read."
++ if (!defined($alldata->{'updmap'}{$tc}));
+
+- &wlog ("\nFiles generated:\n");
+- sub dir {
+- my ($d, $f, $target)=@_;
+- if (-e "$d/$f") {
+- my @stat=lstat("$d/$f");
+- my ($s,$m,$h,$D,$M,$Y)=localtime($stat[9]);
+- my $timestamp=sprintf ("%04d-%02d-%02d %02d:%02d:%02d",
+- $Y+1900, $M+1, $D, $h, $m, $s);
+- my $date=sprintf "%12d %s %s", $stat[7], $timestamp, $f;
+- &wlog ($date);
+-
+- if (-l "$d/$f") {
+- my $lnk=sprintf " -> %s\n", readlink ("$d/$f");
+- &wlog ($lnk);
+- } elsif ($f eq $target) {
+- if (&files_are_identical("$d/$f", "$d/$link{$target}")) {
+- &wlog (" = $link{$target}\n");
+- } else {
+- &wlog (" = ?????\n"); # This shouldn't happen.
+- }
+- } else {
+- &wlog ("\n");
+- }
+- } else {
+- print STDERR "Warning: File $d/$f doesn't exist.\n";
+- print LOG "Warning: File $d/$f doesn't exist.\n";
+- }
+- }
+- my $d;
+- $d="$dvipsoutputdir"; &wlog (" $d:\n");
+- foreach my $f ('builtin35.map', 'download35.map', 'psfonts_pk.map',
+- 'psfonts_t1.map', 'ps2pk.map', 'psfonts.map') {
+- dir ($d, $f, 'psfonts.map');
+- $updLSR->{add}("$d/$f");
+- }
+- $d="$pdftexoutputdir"; &wlog (" $d:\n");
+- foreach my $f ('pdftex_dl14.map', 'pdftex_ndl14.map', 'pdftex.map') {
+- dir ($d, $f, 'pdftex.map');
+- $updLSR->{add}("$d/$f");
+- }
+- $d="$dvipdfmoutputdir"; &wlog (" $d:\n");
+- foreach my $f ('kanjix.map') {
+- dir ($d, $f, '');
+- $updLSR->{add}("$d/$f");
+- }
+- if ($pxdviUse) {
+- $d="$pxdvioutputdir"; &wlog (" $d:\n");
+- foreach my $f ('xdvi-ptex.map') {
+- dir ($d, $f, '');
+- $updLSR->{add}("$d/$f");
++ if (defined($alldata->{'updmap'}{$tc}{'setting'}{$opt}{'val'})) {
++ # the value is already set, do nothing
++ if ($alldata->{'updmap'}{$tc}{'setting'}{$opt}{'val'} eq $val) {
++ return;
+ }
++ $alldata->{'updmap'}{$tc}{'setting'}{$opt}{'val'} = $val;
++ $alldata->{'updmap'}{$tc}{'changed'} = 1;
++ } else {
++ $alldata->{'updmap'}{$tc}{'setting'}{$opt}{'val'} = $val;
++ $alldata->{'updmap'}{$tc}{'setting'}{$opt}{'line'} = -1;
++ $alldata->{'updmap'}{$tc}{'changed'} = 1;
+ }
+- close LOG;
+- print "\nTranscript written on \"$logfile\".\n" if !$quiet;
+ }
+
+-
++
+ ###############################################################################
+-# initVars()
+-# initialize global variables
++# copyFile()
++# copy file $src to $dst, sets $dst creation and mod time
+ #
+-sub initVars {
+- $quiet = 0;
+- $nohash = 0;
+- $nomkmap = 0;
+- $cnfFile = "";
+- $cnfFileShort = "updmap.cfg";
+- $outputdir = "";
+- chomp($TEXMFMAIN =`kpsewhich --var-value=TEXMFMAIN`);
++sub copyFile {
++ my ($src, $dst) = @_;
++ my $dir;
++ ($dir=$dst)=~s/(.*)\/.*/$1/;
++ mkdirhier($dir);
+
+- @psADOBE = (
+- 's/ URWGothicL-Demi / AvantGarde-Demi /',
+- 's/ URWGothicL-DemiObli / AvantGarde-DemiOblique /',
+- 's/ URWGothicL-Book / AvantGarde-Book /',
+- 's/ URWGothicL-BookObli / AvantGarde-BookOblique /',
+- 's/ URWBookmanL-DemiBold / Bookman-Demi /',
+- 's/ URWBookmanL-DemiBoldItal / Bookman-DemiItalic /',
+- 's/ URWBookmanL-Ligh / Bookman-Light /',
+- 's/ URWBookmanL-LighItal / Bookman-LightItalic /',
+- 's/ NimbusMonL-Bold / Courier-Bold /',
+- 's/ NimbusMonL-BoldObli / Courier-BoldOblique /',
+- 's/ NimbusMonL-Regu / Courier /',
+- 's/ NimbusMonL-ReguObli / Courier-Oblique /',
+- 's/ NimbusSanL-Bold / Helvetica-Bold /',
+- 's/ NimbusSanL-BoldCond / Helvetica-Narrow-Bold /',
+- 's/ NimbusSanL-BoldItal / Helvetica-BoldOblique /',
+- 's/ NimbusSanL-BoldCondItal / Helvetica-Narrow-BoldOblique /',
+- 's/ NimbusSanL-Regu / Helvetica /',
+- 's/ NimbusSanL-ReguCond / Helvetica-Narrow /',
+- 's/ NimbusSanL-ReguItal / Helvetica-Oblique /',
+- 's/ NimbusSanL-ReguCondItal / Helvetica-Narrow-Oblique /',
+- 's/ CenturySchL-Bold / NewCenturySchlbk-Bold /',
+- 's/ CenturySchL-BoldItal / NewCenturySchlbk-BoldItalic /',
+- 's/ CenturySchL-Roma / NewCenturySchlbk-Roman /',
+- 's/ CenturySchL-Ital / NewCenturySchlbk-Italic /',
+- 's/ URWPalladioL-Bold / Palatino-Bold /',
+- 's/ URWPalladioL-BoldItal / Palatino-BoldItalic /',
+- 's/ URWPalladioL-Roma / Palatino-Roman /',
+- 's/ URWPalladioL-Ital / Palatino-Italic /',
+- 's/ StandardSymL / Symbol /',
+- 's/ NimbusRomNo9L-Medi / Times-Bold /',
+- 's/ NimbusRomNo9L-MediItal / Times-BoldItalic /',
+- 's/ NimbusRomNo9L-Regu / Times-Roman /',
+- 's/ NimbusRomNo9L-ReguItal / Times-Italic /',
+- 's/ URWChanceryL-MediItal / ZapfChancery-MediumItalic /',
+- 's/ Dingbats / ZapfDingbats /',
+- );
++ $src eq $dst && return "can't copy $src to itself!\n";
+
+- @fileADOBEkb = (
+- 's/\buagd8a.pfb\b/pagd8a.pfb/',
+- 's/\buagdo8a.pfb\b/pagdo8a.pfb/',
+- 's/\buagk8a.pfb\b/pagk8a.pfb/',
+- 's/\buagko8a.pfb\b/pagko8a.pfb/',
+- 's/\bubkd8a.pfb\b/pbkd8a.pfb/',
+- 's/\bubkdi8a.pfb\b/pbkdi8a.pfb/',
+- 's/\bubkl8a.pfb\b/pbkl8a.pfb/',
+- 's/\bubkli8a.pfb\b/pbkli8a.pfb/',
+- 's/\bucrb8a.pfb\b/pcrb8a.pfb/',
+- 's/\bucrbo8a.pfb\b/pcrbo8a.pfb/',
+- 's/\bucrr8a.pfb\b/pcrr8a.pfb/',
+- 's/\bucrro8a.pfb\b/pcrro8a.pfb/',
+- 's/\buhvb8a.pfb\b/phvb8a.pfb/',
+- 's/\buhvb8ac.pfb\b/phvb8an.pfb/',
+- 's/\buhvbo8a.pfb\b/phvbo8a.pfb/',
+- 's/\buhvbo8ac.pfb\b/phvbo8an.pfb/',
+- 's/\buhvr8a.pfb\b/phvr8a.pfb/',
+- 's/\buhvr8ac.pfb\b/phvr8an.pfb/',
+- 's/\buhvro8a.pfb\b/phvro8a.pfb/',
+- 's/\buhvro8ac.pfb\b/phvro8an.pfb/',
+- 's/\buncb8a.pfb\b/pncb8a.pfb/',
+- 's/\buncbi8a.pfb\b/pncbi8a.pfb/',
+- 's/\buncr8a.pfb\b/pncr8a.pfb/',
+- 's/\buncri8a.pfb\b/pncri8a.pfb/',
+- 's/\buplb8a.pfb\b/pplb8a.pfb/',
+- 's/\buplbi8a.pfb\b/pplbi8a.pfb/',
+- 's/\buplr8a.pfb\b/pplr8a.pfb/',
+- 's/\buplri8a.pfb\b/pplri8a.pfb/',
+- 's/\busyr.pfb\b/psyr.pfb/',
+- 's/\butmb8a.pfb\b/ptmb8a.pfb/',
+- 's/\butmbi8a.pfb\b/ptmbi8a.pfb/',
+- 's/\butmr8a.pfb\b/ptmr8a.pfb/',
+- 's/\butmri8a.pfb\b/ptmri8a.pfb/',
+- 's/\buzcmi8a.pfb\b/pzcmi8a.pfb/',
+- 's/\buzdr.pfb\b/pzdr.pfb/',
+- );
++ open IN, "<$src" or die "$0: can't open source file $src for copying: $!";
++ open OUT, ">$dst";
+
+- @fileURW = (
+- 's/\buagd8a.pfb\b/a010015l.pfb/',
+- 's/\buagdo8a.pfb\b/a010035l.pfb/',
+- 's/\buagk8a.pfb\b/a010013l.pfb/',
+- 's/\buagko8a.pfb\b/a010033l.pfb/',
+- 's/\bubkd8a.pfb\b/b018015l.pfb/',
+- 's/\bubkdi8a.pfb\b/b018035l.pfb/',
+- 's/\bubkl8a.pfb\b/b018012l.pfb/',
+- 's/\bubkli8a.pfb\b/b018032l.pfb/',
+- 's/\bucrb8a.pfb\b/n022004l.pfb/',
+- 's/\bucrbo8a.pfb\b/n022024l.pfb/',
+- 's/\bucrr8a.pfb\b/n022003l.pfb/',
+- 's/\bucrro8a.pfb\b/n022023l.pfb/',
+- 's/\buhvb8a.pfb\b/n019004l.pfb/',
+- 's/\buhvb8ac.pfb\b/n019044l.pfb/',
+- 's/\buhvbo8a.pfb\b/n019024l.pfb/',
+- 's/\buhvbo8ac.pfb\b/n019064l.pfb/',
+- 's/\buhvr8a.pfb\b/n019003l.pfb/',
+- 's/\buhvr8ac.pfb\b/n019043l.pfb/',
+- 's/\buhvro8a.pfb\b/n019023l.pfb/',
+- 's/\buhvro8ac.pfb\b/n019063l.pfb/',
+- 's/\buncb8a.pfb\b/c059016l.pfb/',
+- 's/\buncbi8a.pfb\b/c059036l.pfb/',
+- 's/\buncr8a.pfb\b/c059013l.pfb/',
+- 's/\buncri8a.pfb\b/c059033l.pfb/',
+- 's/\buplb8a.pfb\b/p052004l.pfb/',
+- 's/\buplbi8a.pfb\b/p052024l.pfb/',
+- 's/\buplr8a.pfb\b/p052003l.pfb/',
+- 's/\buplri8a.pfb\b/p052023l.pfb/',
+- 's/\busyr.pfb\b/s050000l.pfb/',
+- 's/\butmb8a.pfb\b/n021004l.pfb/',
+- 's/\butmbi8a.pfb\b/n021024l.pfb/',
+- 's/\butmr8a.pfb\b/n021003l.pfb/',
+- 's/\butmri8a.pfb\b/n021023l.pfb/',
+- 's/\buzcmi8a.pfb\b/z003034l.pfb/',
+- 's/\buzdr.pfb\b/d050000l.pfb/',
+- );
+-
+- @fileADOBE = (
+- 's/\buagd8a.pfb\b/agd_____.pfb/',
+- 's/\buagdo8a.pfb\b/agdo____.pfb/',
+- 's/\buagk8a.pfb\b/agw_____.pfb/',
+- 's/\buagko8a.pfb\b/agwo____.pfb/',
+- 's/\bubkd8a.pfb\b/bkd_____.pfb/',
+- 's/\bubkdi8a.pfb\b/bkdi____.pfb/',
+- 's/\bubkl8a.pfb\b/bkl_____.pfb/',
+- 's/\bubkli8a.pfb\b/bkli____.pfb/',
+- 's/\bucrb8a.pfb\b/cob_____.pfb/',
+- 's/\bucrbo8a.pfb\b/cobo____.pfb/',
+- 's/\bucrr8a.pfb\b/com_____.pfb/',
+- 's/\bucrro8a.pfb\b/coo_____.pfb/',
+- 's/\buhvb8a.pfb\b/hvb_____.pfb/',
+- 's/\buhvb8ac.pfb\b/hvnb____.pfb/',
+- 's/\buhvbo8a.pfb\b/hvbo____.pfb/',
+- 's/\buhvbo8ac.pfb\b/hvnbo___.pfb/',
+- 's/\buhvr8a.pfb\b/hv______.pfb/',
+- 's/\buhvr8ac.pfb\b/hvn_____.pfb/',
+- 's/\buhvro8a.pfb\b/hvo_____.pfb/',
+- 's/\buhvro8ac.pfb\b/hvno____.pfb/',
+- 's/\buncb8a.pfb\b/ncb_____.pfb/',
+- 's/\buncbi8a.pfb\b/ncbi____.pfb/',
+- 's/\buncr8a.pfb\b/ncr_____.pfb/',
+- 's/\buncri8a.pfb\b/nci_____.pfb/',
+- 's/\buplb8a.pfb\b/pob_____.pfb/',
+- 's/\buplbi8a.pfb\b/pobi____.pfb/',
+- 's/\buplr8a.pfb\b/por_____.pfb/',
+- 's/\buplri8a.pfb\b/poi_____.pfb/',
+- 's/\busyr.pfb\b/sy______.pfb/',
+- 's/\butmb8a.pfb\b/tib_____.pfb/',
+- 's/\butmbi8a.pfb\b/tibi____.pfb/',
+- 's/\butmr8a.pfb\b/tir_____.pfb/',
+- 's/\butmri8a.pfb\b/tii_____.pfb/',
+- 's/\buzcmi8a.pfb\b/zcmi____.pfb/',
+- 's/\buzdr.pfb\b/zd______.pfb/',
+- );
++ binmode(IN);
++ binmode(OUT);
++ print OUT <IN>;
++ close(OUT);
++ close(IN);
++ my @t = stat($src);
++ utime($t[8], $t[9], $dst);
+ }
+
+-
+ ###############################################################################
+-# main()
++# files_are_identical(file_A, file_B)
++# compare two files. Same as cmp(1).
+ #
+-sub main {
+- &initVars;
+- &processOptions;
++sub files_are_identical {
++ my $file_A=shift;
++ my $file_B=shift;
++ my $retval=0;
+
+- &help if ($opt_help);
++ open IN, "$file_A";
++ my $A=(<IN>);
++ close IN;
++ open IN, "$file_B";
++ my $B=(<IN>);
++ close IN;
+
+- if (@showoptions) {
+- &showOptions(@showoptions);
+- exit 0;
+- }
++ $retval=1 if ($A eq $B);
++ return $retval;
++}
+
+- &setupCfgFile;
++###############################################################################
++# files_are_different(file_A, file_B[, comment_char])
++# compare two equalized files.
++#
++sub files_are_different {
++ my $file_A=shift;
++ my $file_B=shift;
++ my $comment=shift;
++ my $retval=0;
+
+- if ($listmaps) {
+- &listMaps ('list');
+- exit 0;
+- }
+- if ($listavailablemaps) {
+- &listMaps ('avail');
+- exit 0;
+- }
+- if ($syncwithtrees) {
+- &listMaps ('sync');
+- exit 0;
++ my $A=equalize_file("$file_A", $comment);
++ my $B=equalize_file("$file_B", $comment);
++ $retval=1 unless ($A eq $B);
++ return $retval;
++}
++
++###############################################################################
++# equalize_file(filename[, comment_char])
++# read a file and return its processed content as a string.
++# look into the source code for more details.
++#
++sub equalize_file {
++ my $file=shift;
++ my $comment=shift;
++ my @temp;
++
++ open IN, "$file";
++ my @lines = (<IN>);
++ close IN;
++ chomp(@lines);
++
++ for (@lines) {
++ s/\s*${comment}.*// if (defined $comment); # remove comments
++ next if /^\s*$/; # remove empty lines
++ s/\s+/ /g; # replace multiple whitespace chars by a single one
++ push @temp, $_;
+ }
++ return join('X', sort(@temp));
++}
+
+- my $bakFile = $cnfFile;
+- $bakFile =~ s/\.cfg$/.bak/;
+- &copyFile($cnfFile, $bakFile);
++###############################################################################
++# normalizeLines()
++# not the original function, we want it to keep comments, that are
++# anyway only the file names we are adding!
++# whitespace is exactly one space, no empty lines,
++# no whitespace at end of line, one space before and after "
++#
++sub normalizeLines {
++ my @lines = @_;
++ my %count = ();
++
++ # @lines = grep { $_ !~ m/^[*#;%]/ } @lines;
++ map {$_ =~ s/\s+/ /gx } @lines;
++ @lines = grep { $_ !~ m/^\s*$/x } @lines;
++ map { $_ =~ s/\s$//x ;
++ $_ =~ s/\s*\"\s*/ \" /gx;
++ $_ =~ s/\" ([^\"]*) \"/\"$1\"/gx;
++ } @lines;
+
+- my $cmd = '';
++ # @lines = grep {++$count{$_} < 2 } (sort @lines);
++ @lines = grep {++$count{$_} < 2 } (@lines);
+
+- if ($opt_edit) {
+- # it's not a good idea to edit updmap.cfg manually these days,
+- # but for compatibility we'll silently keep the option.
+- $cmd = 'edit';
+- my $editor = $ENV{'VISUAL'} || $ENV{'EDITOR'};
+- $editor ||= (&win32 ? "notepad" : "vi");
+- system($editor, $cnfFile);
++ return @lines;
++}
+
+- } elsif (@setoptions) {
+- $cmd = 'setOption';
+- &setOptions (@setoptions);
+
+- } elsif ($enableItem) {
+- $cmd = 'enableMap';
+- if ($enableItem =~ /=/) {
+- &enableMap(split('=', $enableItem));
++#################################################################
++#
++# reading updmap-cfg files and the actual map files
++#
++# the following hash saves *all* the information and is passed around
++# we do not fill everything from the very beginning to make sure that
++# we only read what is necessary (speed!)
++#
++# initialized by main
++# $alldata->{'changes_config'} = the config file where changes are saved
++#
++# initialized by read_updmap_files
++# $alldata->{'order'} = [ list of updmap in decreasing priority ]
++# $alldata->{'updmap'}{$full_path_name_of_updmap}{'lines'} = \@lines
++# $alldata->{'updmap'}{$full_path_name_of_updmap}{'setting'}{$key}{'val'} = $val
++# $alldata->{'updmap'}{$full_path_name_of_updmap}{'setting'}{$key}{'line'} = $i
++# $alldata->{'updmap'}{$full_path_name_of_updmap}{'maps'}{$mapname}{'type'}
++# = 'Map'|'MixedMap'|'KanjiMap'|'disabled'
++# $alldata->{'updmap'}{$full_path_name_of_updmap}{'maps'}{$mapname}{'status'}
++# = 'enabled'|'disabled'
++# $alldata->{'updmap'}{$full_path_name_of_updmap}{'maps'}{$mapname}{'line'} = $i
++# $alldata->{'maps'}{$m}{'origin'} = $updmap_path_name
++# $alldata->{'maps'}{$m}{'status'} = enabled | disabled
++#
++# initialized by read_map_files
++# $alldata->{'maps'}{$m}{'fonts'}{$font} = $definition
++# $alldata->{'fonts'}{$f}{'origin'} = $map
++#
++# initialized by merge_data
++# $alldata->{'merged'}{'setting'}{$key}{'val'} = $val
++# $alldata->{'merged'}{'setting'}{$key}{'origin'} = $origin_updmap_cfg
++# $alldata->{'merged'}{'allMaps'}{'fonts'}{$fontdef} = $rest
++# $alldata->{'merged'}{'noMixedMaps'}{'fonts'}{$fontdef} = $rest
++# $alldata->{'merged'}{'KanjiMaps'}{'fonts'}{$fontdef} = $rest
++#
++
++sub read_updmap_files {
++ my (@l) = @_;
++ for my $l (@l) {
++ my $updmap = read_updmap_file($l);
++ $alldata->{'updmap'}{$l}{'lines'} = $updmap->{'lines'};
++ if (defined($updmap->{'setting'})) {
++ for my $k (keys %{$updmap->{'setting'}}) {
++ $alldata->{'updmap'}{$l}{'setting'}{$k}{'val'} = $updmap->{'setting'}{$k}{'val'};
++ $alldata->{'updmap'}{$l}{'setting'}{$k}{'line'} = $updmap->{'setting'}{$k}{'line'};
++ }
++ }
++ if (defined($updmap->{'maps'})) {
++ for my $k (keys %{$updmap->{'maps'}}) {
++ $alldata->{'updmap'}{$l}{'maps'}{$k}{'type'} = $updmap->{'maps'}{$k}{'type'};
++ $alldata->{'updmap'}{$l}{'maps'}{$k}{'status'} = $updmap->{'maps'}{$k}{'status'};
++ $alldata->{'updmap'}{$l}{'maps'}{$k}{'line'} = $updmap->{'maps'}{$k}{'line'};
++ }
++ }
++ }
++ # in case the changes_config is a new one read it in and initialize it here
++ my $cc = $alldata->{'changes_config'};
++ if (! -r $cc) {
++ $alldata->{'updmap'}{$cc}{'lines'} = [ ];
++ }
++ #
++ $alldata->{'order'} = \@l;
++ #
++ # merge the settings so that we can check for kanjiEmbed
++ #
++ merge_settings();
++ #
++ my ($kanjiEmbed, $kanjiEmbed_origin) = get_cfg('kanjiEmbed');
++ #
++ # go through all map files and check that the text is properly replaced
++ #
++ for my $l (@l) {
++ for my $m (keys %{$alldata->{'updmap'}{$l}{'maps'}}) {
++ if ($m =~ m/\@kanjiEmbed@/) {
++ my $newm = $m;
++ $newm =~ s/\@kanjiEmbed@/$kanjiEmbed/;
++ # now we have to update various linked items
++ $alldata->{'updmap'}{$l}{'maps'}{$newm}{'type'} =
++ $alldata->{'updmap'}{$l}{'maps'}{$m}{'type'};
++ $alldata->{'updmap'}{$l}{'maps'}{$newm}{'status'} =
++ $alldata->{'updmap'}{$l}{'maps'}{$m}{'status'};
++ $alldata->{'updmap'}{$l}{'maps'}{$newm}{'line'} =
++ $alldata->{'updmap'}{$l}{'maps'}{$m}{'line'};
++ $alldata->{'updmap'}{$l}{'maps'}{$newm}{'original'} = $m;
++ delete $alldata->{'updmap'}{$l}{'maps'}{$m};
++ }
++ }
++ }
++ #
++ # first round determine which maps should be used and which type, as
++ # different updmap.cfg files might specify different types of maps
++ # (MixedMap or Map or KanjiMap).
++ # Again, we have to do that in reverse order
++ for my $l (reverse @l) {
++ if (defined($alldata->{'updmap'}{$l}{'maps'})) {
++ for my $m (keys %{$alldata->{'updmap'}{$l}{'maps'}}) {
++ $alldata->{'maps'}{$m}{'origin'} = $l;
++ $alldata->{'maps'}{$m}{'status'} = $alldata->{'updmap'}{$l}{'maps'}{$m}{'status'};
++ }
++ }
++ }
++}
++
++sub read_updmap_file {
++ my $fn = shift;
++ my $is_old_local = ($fn =~ m/updmap-local.cfg/ ? 1 : 0);
++ my %data;
++ if (!open(FN,"<$fn")) {
++ die ("Cannot read $fn: $!");
++ }
++ # we count lines from 0 ..!!!!
++ my $i = -1;
++ my @lines = <FN>;
++ chomp(@lines);
++ $data{'lines'} = [ @lines ];
++ close(FN) || warn("Cannot close $fn: $!");
++ for (@lines) {
++ $i++;
++ chomp;
++ if ($is_old_local) {
++ # in case we read an old updmap-local.cfg we have to make sure
++ # that the disable lines
++ # ^#!foo.map
++ # are rewritten to proper disable lines
++ # ^#! Map foo.map
++ # we are guessing here the type of the map (namely Map)
++ $_ =~ s/^#!([^ ])/#! Map $1/;
++ }
++ next if /^\s*$/;
++ next if /^\s*#$/;
++ next if /^\s*#[^!]/;
++ next if /^\s*##/;
++ next if /^#![^ ]/;
++ # allow for commands on the line itself
++ s/([^#].*)#.*$/$1/;
++ my ($a, $b, @rest) = split ' ';
++ if ($a eq "#!") {
++ if ($b eq "Map" || $b eq "MixedMap" || $b eq "KanjiMap") {
++ my $c = shift @rest;
++ if (!defined($c)) {
++ warning("updmap: apparently not a real disable line, ignored: $_\n");
++ } else {
++ if (defined($data{'maps'}{$c})) {
++ warning("updmap: double mentioning of $c in $fn\n");
++ }
++ $data{'maps'}{$c}{'status'} = 'disabled';
++ $data{'maps'}{$c}{'type'} = $b;
++ $data{'maps'}{$c}{'line'} = $i;
++ }
++ }
++ next;
++ }
++ if (@rest) {
++ warning("updmap: line $i in $fn contains a syntax error, more than two words!\n");
++ }
++ if (defined($settings{$a})) {
++ if (check_option($a, $b)) {
++ $data{'setting'}{$a}{'val'} = $b;
++ $data{'setting'}{$a}{'line'} = $i;
++ } else {
++ warning("updmap: unknown setting for $a: $b, ignored!\n");
++ }
++ } elsif ($a eq "Map" || $a eq "MixedMap" || $a eq "KanjiMap") {
++ if (defined($data{'maps'}{$b}) && $data{'maps'}{$b}{'type'} ne $a) {
++ warning("updmap: double mentioning of $b with conflicting types in $fn\n");
++ } else {
++ $data{'maps'}{$b}{'type'} = $a;
++ $data{'maps'}{$b}{'status'} = 'enabled';
++ $data{'maps'}{$b}{'line'} = $i;
++ }
+ } else {
+- &enableMap($enableItem, shift @ARGV);
++ warning("updmap: unrecognized line $i in $fn: $_\n");
+ }
++ }
++ return \%data;
++}
+
+- } elsif (@disableItem) {
+- $cmd = 'disableMap';
+- foreach my $m (@disableItem) {
+- &disableMap($m);
++sub read_map_files {
++ if (!defined($alldata->{'updmap'})) {
++ return;
++ }
++ my @missing;
++ my @l = @{$alldata->{'order'}};
++ # first collect all the map files we are interested in
++ # and determine whether they exist, and get their full path
++ my @maps;
++ for my $f (@l) {
++ next if !defined($alldata->{'updmap'}{$f}{'maps'});
++ for my $m (keys %{$alldata->{'updmap'}{$f}{'maps'}}) {
++ # only read a map file if its final status is enabled!
++ push @maps, $m if ($alldata->{'maps'}{$m}{'status'} eq 'enabled');
++ }
++ }
++ for my $m (qw/dvips35.map pdftex35.map ps2pk35.map/) {
++ push @maps, $m;
++ $alldata->{'maps'}{$m}{'status'} = 'enabled';
++ }
++ @maps = sort_uniq(@maps);
++ my @fullpath = `kpsewhich --format=map @maps`;
++ chomp @fullpath;
++ foreach my $map (@maps) {
++ my ($ff) = grep /\/$map(\.map)?$/, @fullpath;
++ if ($ff) {
++ $alldata->{'maps'}{$map}{'fullpath'} = $ff;
++ } else {
++ # if the map file is not found, then push it onto the list of
++ # missing map files, since we know that it is enabled
++ push @missing, $map;
+ }
+ }
+
+- if ($cmd && !$opt_force && &files_are_equal($bakFile, $cnfFile)) {
+- print "$cnfFile unchanged. Map files not recreated.\n" if !$quiet;
+- } else {
+- if (! $nomkmap) {
+- &setupDestDir;
+- &mkMaps;
++ #
++ # read in the three basic fonts definition maps
++ for my $m (qw/dvips35.map pdftex35.map ps2pk35.map/) {
++ my $ret = read_map_file($alldata->{'maps'}{$m}{'fullpath'});
++ my @ff = ();
++ for my $font (keys %$ret) {
++ $alldata->{'fonts'}{$font}{'origin'} = $m;
++ $alldata->{'maps'}{$m}{'fonts'}{$font} = $ret->{$font};
++ }
++ }
++ # we read the updmap in reverse directions, since we
++ # replace the origin field of font definition always with the
++ # top one
++ for my $f (reverse @l) {
++ my @maps = keys %{$alldata->{'updmap'}{$f}{'maps'}};
++ for my $m (@maps) {
++ # we do not read a map file multiple times, if $alldata{'maps'}{$m} is
++ # defined we expect that it was read and do skip it
++ next if defined($alldata->{'maps'}{$m}{'fonts'});
++ # we do not read a map files content if it is disabled
++ next if ($alldata->{'maps'}{$m}{'status'} eq 'disabled');
++ if (!defined($alldata->{'maps'}{$m}{'fullpath'})) {
++ # we have already pushed these map files onto the list of missing
++ # map files, so do nothing here
++ next;
++ }
++ my $ret = read_map_file($alldata->{'maps'}{$m}{'fullpath'});
++ if (defined($ret)) {
++ for my $font (keys %$ret) {
++ if (defined($alldata->{'fonts'}{$font})) {
++ # we got another definition, warn on that
++ # if the origin is not defined by now, the font is defined
++ # multiple times in the same map file, otherwise it is
++ # defined in another map file already
++ if (defined($alldata->{'fonts'}{$font}{'origin'})) {
++ my $fontorig = $alldata->{'fonts'}{$font}{'origin'};
++ my $maporig = $alldata->{'maps'}{$fontorig}{'origin'};
++ warning("$prg: font $font is defined multiple times:\n");
++ warning("$prg: $fontorig (from $maporig)\n");
++ warning("$prg: $m (from $f) (used)\n");
++ } else {
++ warning("$prg: font $font is multiply defined in $m, using an arbitrary instance!\n");
++ }
++ }
++ $alldata->{'fonts'}{$font}{'origin'} = $m;
++ $alldata->{'maps'}{$m}{'fonts'}{$font} = $ret->{$font};
++ }
++ }
+ }
+- unlink ($bakFile);
+ }
++ return (@missing);
++}
+
+- unless ($nohash) {
+- print "$0: Updating ls-R files.\n" if !$quiet;
+- $updLSR->{exec}()
++sub read_map_file {
++ my $fn = shift;
++ my @lines;
++ if (!open(MF,"<$fn")) {
++ warn("cannot open $fn: $!");
++ return;
++ }
++ @lines = <MF>;
++ close(MF);
++ chomp(@lines);
++ my %data;
++ for (@lines) {
++ next if /^\s*#/;
++ next if /^\s*%/;
++ next if /^\s*$/;
++ my ($a, $b) = split(' ', $_, 2);
++ $data{$a} = $b;
+ }
++ return \%data;
++}
++
++#
++# merge and update the setting
++#
++sub merge_settings {
++ my @l = @{$alldata->{'order'}};
++ #
++ # for security clean out everything that was there
++ %{$alldata->{'merged'}} = ();
++ #
++ # first read in the settings
++ # we read it in *reverse* order and simple fill up the combined data
++ # thus if there are multiple definitions/settings, the one coming from
++ # the first in the original list will win!
++ for my $l (reverse @l) {
++ # merge settings
++ if (defined($alldata->{'updmap'}{$l}{'setting'})) {
++ for my $k (keys %{$alldata->{'updmap'}{$l}{'setting'}}) {
++ $alldata->{'merged'}{'setting'}{$k}{'val'} = $alldata->{'updmap'}{$l}{'setting'}{$k}{'val'};
++ $alldata->{'merged'}{'setting'}{$k}{'origin'} = $l;
++ }
++ }
++ }
++ #
++}
++
++#
++# merging the various font definitions
++#
++sub merge_data {
++ my @l = @{$alldata->{'order'}};
++ #
++ # now merge the data
++ #
++ for my $m (keys %{$alldata->{'maps'}}) {
++ my $origin = $alldata->{'maps'}{$m}{'origin'};
++ next if !defined($origin);
++ next if ($alldata->{'updmap'}{$origin}{'maps'}{$m}{'status'} eq "disabled");
++ for my $f (keys %{$alldata->{'maps'}{$m}{'fonts'}}) {
++ # use the font definition only for those fonts where the origin matches
++ if ($alldata->{'fonts'}{$f}{'origin'} eq $m) {
++ $alldata->{'merged'}{'allMaps'}{'fonts'}{$f} =
++ $alldata->{'maps'}{$m}{'fonts'}{$f}
++ if ($alldata->{'updmap'}{$origin}{'maps'}{$m}{'type'} ne "KanjiMap");
++ $alldata->{'merged'}{'noMixedMaps'}{'fonts'}{$f} =
++ $alldata->{'maps'}{$m}{'fonts'}{$f}
++ if ($alldata->{'updmap'}{$origin}{'maps'}{$m}{'type'} eq "Map");
++ $alldata->{'merged'}{'KanjiMap'}{'fonts'}{$f} =
++ $alldata->{'maps'}{$m}{'fonts'}{$f}
++ if ($alldata->{'updmap'}{$origin}{'maps'}{$m}{'type'} eq "KanjiMap");
++ }
++ }
++ }
++}
++
++sub warning {
++ print STDERR @_;
++}
++
++#
++# help, version etc etc
++#
++
++sub version {
++ my $ret = sprintf "%s (TeX Live, multi) version %s\n", $prg, $version;
++ return $ret;
++}
++
++sub help {
++ my $usage = <<"EOF";
++Usage: $prg [OPTION] ... [COMMAND]
++ or: $prg-sys [OPTION] ... [COMMAND]
++
++Update the default font map files used by pdftex, dvips, and dvipdfm(x),
++(and optionally pxdvi) as determined by all configuration files updmap.cfg
++(the ones returned by running "kpsewhich --all updmap.cfg", but see below).
++
++Among other things, these map files are used to determine which fonts
++should be used as bitmaps and which as outlines, and to determine which
++fonts are included in the output.
++
++By default, the TeX filename database (ls-R) is also updated.
++
++Options:
++ --cnffile FILE read FILE for the updmap configuration
++ (can be given multiple times, in which case
++ all the files are used)
++ --dvipdfmoutputdir DIR specify output directory (dvipdfm syntax)
++ --dvipsoutputdir DIR specify output directory (dvips syntax)
++ --pdftexoutputdir DIR specify output directory (pdftex syntax)
++ --pxdvioutputdir DIR specify output directory (pxdvi syntax)
++ --outputdir DIR specify output directory (for all files)
++ --copy cp generic files rather than using symlinks
++ --force recreate files even if config hasn't changed
++ --nomkmap do not recreate map files
++ --nohash do not run texhash
++ -n, --dry-run only show the configuration, no output
++ --quiet, --silent reduce verbosity
++
++Commands:
++ --help show this message and exit
++ --version show version information and exit
++ --showoptions OPTION show possible settings for OPTION
++ --showoption OPTION show the current setting of OPTION
++ --setoption OPTION VALUE set OPTION to value
++ --setoption OPTION=VALUE as above, just different syntax
++ --enable MAPTYPE MAPFILE add "MAPTYPE MAPFILE" to updmap.cfg,
++ where MAPTYPE is either Map, MixedMap, KanjiMap
++ --enable Map=MAPFILE add \"Map MAPFILE\" to updmap.cfg
++ --enable MixedMap=MAPFILE add \"MixedMap MAPFILE\" to updmap.cfg
++ --enable KanjiMap=MAPFILE add \"KanjiMap MAPFILE\" to updmap.cfg
++ --disable MAPFILE disable MAPFILE, whether Map, MixedMap, or KanjiMap
++ --listmaps list all active and inactive maps
++ --listavailablemaps same as --listmaps, but without
++ unavailable map files
++ --syncwithtrees disable unavailable map files in updmap.cfg
++
++Explanation of the map types: the (only) difference between Map and
++MixedMap is that MixedMap entries are not added to psfonts_pk.map.
++KanjiMap entries are added to psfonts_t1.map and kanjix.map.
++The purpose is to help users with printers that render Type 1 outline
++fonts worse than mode-tuned Type 1 bitmap fonts. So, MixedMap is used
++for fonts that are available as both Type 1 and Metafont.
++
++Explanation of the possible OPTIONS (showoptions, showoptions, setoption):
++
++ dvipsPreferOutline true|false (default true)
++ Whether dvips uses bitmaps or outlines, when both are available.
++ dvipsDownloadBase35 true|false (default false)
++ Whether dvips includes the standard 35 PostScript fonts in its output.
++ pdftexDownloadBase14 true|false (default true)
++ Whether pdftex includes the standard 14 PDF fonts in its output.
++ pxdviUse true|false (default false)
++ Whether maps for pxdvi (Japanese-patched xdvi) is under control of updmap.
++ LW35 URWkb|URW|ADOBEkb|ADOBE (default URWkb)
++ Adapt the font and file names of the standard 35 PostScript fonts.
++ URWkb URW fonts with "berry" filenames (e.g. uhvbo8ac.pfb)
++ URW URW fonts with "vendor" filenames (e.g. n019064l.pfb)
++ ADOBEkb Adobe fonts with "berry" filenames (e.g. phvbo8an.pfb)
++ ADOBE Adobe fonts with "vendor" filenames (e.g. hvnbo___.pfb)
++ kanjiEmbed (any string)
++
++ These options are only read and acted on by updmap; dvips, pdftex, etc.,
++ do not know anything about them. They work by changing the default map
++ file which the programs read, so they can be overridden by specifying
++ command-line options or configuration files to the programs, as
++ explained at the beginning of updmap.cfg.
++
++Explanation of trees and files normally used:
++
++NEEDS TO BE FIXED TODO TODO TODO AFTER FINAL INCLUSION
++
++BEHAVIOUR HOW IT IS NOW
++
++ updmap reads all the updmap.cfg found by
++ kpsewhich -all updmap.cfg
++ or those given on the command line with --cnffile. If kpsewhich is
++ used to determine the list of config files, there is one caveat: An
++ occurrence of updmap.cfg in TEXMFLOCAL is moved up in the priority
++ list just after files from TEXMFCONFIG, TEXMFVAR and TEXMFHOME. This
++ allows system administrator to override settings in
++ TEXMFSYSCONFIG/web2c/updmap.cfg which is used by tlmgr to manage
++ the installed options.
++
++BEHAVIOUR HOW IT SHOULD BE AFTER INCLUSION
++
++ updmap reads all the updmap.cfg files found by
++ kpsewhich -all updmap.cfg
++ in the order returned by kpsewhich. There is one exception to keep
++ upgradability from earlier versions of TeX Live: If there is a file
++ TEXMFLOCAL/web2c/updmap-local.cfg (which was formerly used by tlmgr
++ to merge local fonts), then a (not necessarily existing) file
++ TEXMFLOCAL/web2c/updmap.cfg is ignored and the updmap-local.cfg is
++ used instead. In this case updmap recognizes also the syntax for
++ disabling map files in the updmap-local.cfg (this syntax was different
++ to what is used now!).
++
++ According to the actions updmap might write to one of the given files or
++ create a new updmap.cfg, see below for details.
++
++ If multiple updmap.cfg files are found, all the map files mentioned
++ in all the updmap.cfg files are merged.
++
++ CAVEATS with multiple updmap.cfg files
++ * where changes are saved
++ If config files are given on the cmd line, then the first given will
++ be used to save changes (by --setoption, --enable or --disable).
++ If the config files are taken from kpsewhich, then the algorithm is
++ more complex:
++ - if one of \$TEXMFHOME/web2c/updmap.cfg or \$TEXMFCONFIG/web2c/updmap.cfg
++ appears in the list of used files, then the one given *first* by
++ kpsewhich --all, or equivalently, the one given by kpsewhich updmap.cfg,
++ is used
++ - if none of the above two are present, a new config file is created
++ in \$TEXMFCONFIG/web2c/updmap.cfg (in case there are actual changes)
++ and used
++
++ * multiple font definitions
++ If a font is defined multiple times in different maps, then the
++ definition of the map file that comes from the highest priority
++ updmap.cfg file is used.
++ If a font is defined multiple times in the same map file, an
++ arbitrary definition is used.
++ In both cases warnings are issued.
++
++ * disabling map files
++ updmap.cfg files with higher priority can disable map files that
++ are mentioned in lower priority updmap.cfg files by disabling
++ them, i.e., writing
++ \#! Map mapname.map
++ or
++ \#! MixedMap mapname.map
++ into the higher prioprity updmap.cfg file.
++
++ As an example take a user with a copy of the commercial MTPRO fonts.
++ He wants to disable the belleek version of the fonts, that is
++ disable the map belleek.map. The user should create a updmap.cfg file
++ in \$TEXMFCONFIG/web2c/updmap.cfg with the content
++ #! Map belleek.map
++ Map mt-plus.map
++ Map mt-yy.map
++ and call $prg.
++
++ updmap writes the map files for dvips (psfonts.map) and pdftex
++ (pdftex.map) to the TEXMFVAR/fonts/map/updmap/{dvips,pdftex}/
++ directories.
++
++ The log file is written to TEXMFVAR/web2c/updmap.log.
++
++ When updmap-sys is run, TEXMFSYSCONFIG and TEXMFSYSVAR are used
++ instead. This is the only difference between updmap-sys and updmap.
++
++ Other locations can be used if overridden on the command line, or these
++ trees don't exist, or you are not using the original TeX Live.
++
++ To see the precise locations of the various files that
++ will be read and written, give the -n option (or read the man page).
++
++For step-by-step instructions on making new fonts known to TeX, read
++http://tug.org/fonts/fontinstall.html. For even more terse
++instructions, read the beginning of updmap.cfg.
++
++Report bugs to: tex-k\@tug.org
++TeX Live home page: <http://tug.org/texlive/>
++EOF
++;
++ print &version();
++ print $usage;
++ exit 0;
+ }
+-__END__
+
+ ### Local Variables:
+ ### perl-indent-level: 2