install mupdmap into scripts/texlive and link to bin dirs

git-svn-id: svn://tug.org/texlive/trunk@24085 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 0 insertions, 1724 deletions

diff --git a/Master/tlpkg/dev/multi-updmap.pl b/Master/tlpkg/dev/multi-updmap.pl
deleted file mode 100644
index add0a101e99..00000000000
--- a/Master/tlpkg/dev/multi-updmap.pl
+++ /dev/null
@@ -1,1724 +0,0 @@
-#!/usr/bin/env perl
-# updmap: utility to maintain map files for outline fonts.
-# 
-# Copyright 2011 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.
-#
-
-my $TEXMFROOT;
-
-BEGIN {
-  $^W=1;
-  $TEXMFROOT = `kpsewhich -var-value=TEXMFROOT`;
-  if ($?) {
-    print STDERR "updmap: Cannot find TEXMFROOT, aborting!\n";
-    exit 1;
-  }
-  chomp($TEXMFROOT);
-  unshift (@INC, "$TEXMFROOT/tlpkg");
-}
-
-
-my $version = '$Id$';
-
-use Getopt::Long qw(:config no_autoabbrev ignore_case_always);
-use strict;
-use TeXLive::TLUtils qw(mkdirhier mktexupd win32 basename dirname 
-  sort_uniq member);
-
-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 = (
-  "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",
-  "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@",
-  "syncwithtrees",
-  "version",
-  "help|h"
-  );
-
-my %settings = (
-  dvipsPreferOutline    => [ qw/true false/ ],
-  LW35                  => [ qw/URW URWkb ADOBE ADOBEkb/ ],
-  dvipsDownloadBase35   => [ qw/true false/ ],
-  pdftexDownloadBase14  => [ qw/true false/ ],
-  dvipdfmDownloadBase14 => [ qw/true false/ ],
-);
-
-&main();
-
-###############
-
-sub main {
-  processOptions();
-
-  help() if $opts{'help'};
-
-  if ($opts{'showoptions'}) {
-    for my $o (@{$opts{'showoptions'}}) {
-      if (defined($settings{$o})) {
-        print "@{$settings{$o}}\n";
-      } else {
-        print "$prg: unknown option: $o\n";
-      }
-    }
-    exit 0;
-  }
-
-  # config file for changes
-  my $changes_config_file;
-
-  # determine which config files should be used
-  # replaces the former "setupCfgFile"
-  # we do NOT read texmf/web2c/updmap.cfg
-  #
-  # 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;
-    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;
-        }
-      }
-    }
-    if ($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?!?!
-            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";
-    }
-  }
-  print "$prg is using the following updmap.cfg files (in precedence order):\n";
-  for my $f (@{$opts{'cnffile'}}) {
-    print "  $f\n";
-  }
-  $alldata->{'changes_config'} = $changes_config_file;
-  read_updmap_files(@{$opts{'cnffile'}});
-
-  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;
-  }
-
-  # 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;
-
-  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;
-  }
-
-  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'}});
-  }
-
-  # what does this?
-  $updLSR = &mktexupd();
-  $updLSR->{mustexist}(0);
-
-  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");
-      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
-      #use Data::Dumper;
-      #$Data::Dumper::Indent = 1;
-      #print STDERR Data::Dumper->Dump([$alldata], [qw(mapdata)]);
-      mkMaps();
-    }
-    unlink ($bakFile) if (-r $bakFile);
-  }
-
-  if (!$opts{'nohash'}) {
-    print "$prg: Updating ls-R files.\n" if !$opts{'quiet'};
-    $updLSR->{exec}() unless $opts{"dry-run"};
-  }
-}
-
-##################################################################
-#
-#
-
-sub getFonts {
-  my ($first, @rest) = @_;
-  my $getall = 0;
-  my @maps = ();
-  if ($first eq "-all") {
-    $getall = 1;
-    @maps = @rest;
-  } else {
-    @maps = ($first, @rest);
-  }
-  my @lines = ();
-  for my $m (@maps) {
-    if (defined($alldata->{'maps'}{$m})) {
-      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'};
-        }
-      }
-    }
-  }
-  chomp @lines;
-  return @lines;
-}
-
-###############################################################################
-# writeLines()
-#   write the lines in $filename
-#
-sub writeLines {
-  my ($fname, @lines) = @_;
-  return if $opts{"dry-run"};
-  map { ($_ !~ m/\n$/ ? s/$/\n/ : $_ ) } @lines;
-  open FILE, ">$fname" or die "$prg: can't write lines to $fname: $!";
-  print FILE @lines;
-  close FILE;
-}
-
-###############################################################################
-# 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 {
-  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;
-  }
-  return @out;
-}
-
-###############################################################################
-# setupSymlinks()
-#   set symlink for psfonts.map according to dvipsPreferOutline variable
-#
-sub setupSymlinks {
-  my ($dvipsPreferOutline, $dvipsoutputdir, $pdftexDownloadBase14, $pdftexoutputdir) = @_;
-  my $src;
-  my %link;
-  my @link;
-
-  if ($dvipsPreferOutline) {
-    $src = "psfonts_t1.map";
-  } else {
-    $src = "psfonts_pk.map";
-  }
-  unlink "$dvipsoutputdir/psfonts.map" unless $opts{"dry-run"};
-  push @link, &SymlinkOrCopy("$dvipsoutputdir", "$src", "psfonts.map");
-
-  if ($pdftexDownloadBase14) {
-    $src = "pdftex_dl14.map";
-  } else {
-    $src = "pdftex_ndl14.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(mode args ...)
-#   transform fontname and filenames according to transformation specified
-#   by mode.  Possible values:
-#      URW|URWkb|ADOBE|ADOBEkb
-#
-sub transLW35 {
-  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
-  } elsif ($mode eq "URW") {
-    for my $r (@fileURW) {
-      map { eval($r); } @lines;
-    }
-  } elsif ($mode eq "ADOBE" || $mode eq "ADOBEkb") {
-    for my $r (@psADOBE) {
-      map { eval($r); } @lines;
-    }
-    my @filemode = eval ("\@file" . $mode);
-    for my $r (@filemode) {
-      map { eval($r); } @lines;
-    }
-  }
-  return @lines;
-}
-
-
-sub mkMaps {
-  my $logfile;
-
-  $logfile = "$TEXMFVAR/web2c/updmap.log";
-
-  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";
-    }
-  }
-  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'};
-  }
-  sub get_cfg {
-    my ($v, $def, $opt) = @_;
-    if (defined($alldata->{'merged'}{'setting'}{$v})) {
-      if (defined($opt) && $opt eq "-str") {
-        return ( $alldata->{'merged'}{'setting'}{$v}{'val'},
-                 $alldata->{'merged'}{'setting'}{$v}{'origin'} );
-      } else {
-        return ( ($alldata->{'merged'}{'setting'}{$v}{'val'} eq "true" ? 1 : 0),
-                 $alldata->{'merged'}{'setting'}{$v}{'origin'} );
-      }
-    } else {
-      return ($def, "default");
-    }
-  }
-
-  my ($mode, $mode_origin) = 
-    get_cfg('LW35', 'URWkb', '-str');
-  my ($dvipsPreferOutline, $dvipsPreferOutline_origin) =
-    get_cfg('dvipsPreferOutline', 1);
-  my ($dvipsDownloadBase35, $dvipsDownloadBase35_origin) =
-    get_cfg('dvipsDownloadBase35', 1);
-  my ($pdftexDownloadBase14, $pdftexDownloadBase14_origin) =
-    get_cfg('pdftexDownloadBase14', 1);
-
-  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 ? "true" : "false") 
-         .      " ($dvipsPreferOutline_origin)"
-         . "\n  texhash enabled                  : "
-         .      ($opts{'nohash'} ? "false" : "true")
-         . "\n  download standard fonts (dvips)  : "
-         .      ($dvipsDownloadBase35 ? "true" : "false")
-         .      " ($dvipsDownloadBase35_origin)"
-         . "\n  download standard fonts (pdftex) : "
-         .      ($pdftexDownloadBase14 ? "true" : "false" )
-         .      " ($pdftexDownloadBase14_origin)"
-         . "\n\n");
-
-  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;
-  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");
-  }
-  @mixedmaps = sort @mixedmaps;
-  @notmixedmaps = sort @notmixedmaps;
-  only_log("\n");
-  foreach my $line (sort @mixedmaps) {
-    only_log("$line\n");
-  }
-  only_log("\n");
-  print_and_log (sprintf("    [%3d files]\n", scalar @mixedmaps));
-  only_log("\n");
-
-  print_and_log ("Scanning for Map entries");
-  only_log("\n");
-  foreach my $line (@notmixedmaps) {
-    only_log("$line\n");
-  }
-  only_log("\n");
-  print_and_log (sprintf("         [%3d files]\n\n", scalar @notmixedmaps));
-  only_log("\n");
-
-  # Create psfonts_t1.map, psfonts_pk.map, ps2pk.map and pdftex.map:
-  my $dvipsoutputdir = $opts{'dvipsoutputdir'};
-  my $pdftexoutputdir = $opts{'pdftexoutputdir'};
-  if (!$opts{'dry-run'}) {
-    for my $file ("$dvipsoutputdir/download35.map",
-      "$dvipsoutputdir/builtin35.map",
-      "$dvipsoutputdir/psfonts_t1.map",
-      "$dvipsoutputdir/psfonts_pk.map",
-      "$pdftexoutputdir/pdftex_dl14.map",
-      "$pdftexoutputdir/pdftex_ndl14.map",
-      "$dvipsoutputdir/ps2pk.map") {
-      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;
-    }
-  }
-
-  print "Generating output for ps2pk...\n" if !$opts{'quiet'};
-  my @ps2pk_fonts = getFonts('-all', "ps2pk35.map");
-  my @ps2pk_map;
-  push @ps2pk_map, "% ps2pk35.map";
-  push @ps2pk_map, transLW35($mode, @ps2pk_fonts);
-  push @ps2pk_map, getFonts(@mixedmaps);
-  push @ps2pk_map, getFonts(@notmixedmaps);
-  &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;
-  my @dvips35_fonts = getFonts('-all', "dvips35.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;
-  }
-  push @psfonts_t1_map, transLW35($mode, @dftdvips_fonts);
-  push @psfonts_t1_map, getFonts(@mixedmaps);
-  push @psfonts_t1_map, getFonts(@notmixedmaps);
-  &writeLines(">$dvipsoutputdir/psfonts_t1.map", 
-    normalizeLines(@psfonts_t1_map));
-
-  my @psfonts_pk_map;
-  push @psfonts_pk_map, transLW35($mode, @dftdvips_fonts);
-  push @psfonts_pk_map, getFonts(@notmixedmaps);
-  &writeLines(">$dvipsoutputdir/psfonts_pk.map", 
-    normalizeLines(@psfonts_pk_map));
-
-  print "Generating output for pdftex...\n" if !$opts{'quiet'};
-  # remove PaintType due to Sebastian's request
-  my @pdftex35_fonts = getFonts('-all', "pdftex35.map");
-  my @pdftexmaps_ndl;
-  push @pdftexmaps_ndl, "% pdftex35.map";
-  push @pdftexmaps_ndl, transLW35($mode, @pdftex35_fonts);
-  push @pdftexmaps_ndl, getFonts(@mixedmaps);
-  push @pdftexmaps_ndl, getFonts(@notmixedmaps);
-  @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, getFonts(@mixedmaps);
-  push @pdftexmaps_dl, getFonts(@notmixedmaps);
-  @pdftexmaps_dl = grep { $_ !~ m/(^%\|PaintType)/ } @pdftexmaps_dl;
-
-  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);
-
-  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);
-
-  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 (-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'};
-    }
-  }
-
-  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'};
-  }
-  close LOG unless $opts{'dry-run'};
-  print "\nTranscript written on \"$logfile\".\n" if !$opts{'quiet'};
-
-}
-
-
-sub locateMap {
-  my $map = shift;
-  my $ret = `kpsewhich --format=map $map`;
-  chomp($ret);
-  return $ret;
-}
-
-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 {
-      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";
-
-  @{$opts{'setoption'}} = @setoptions if (@setoptions);
-  @{$opts{'enable'}} = @enable if (@enable);
-
-  Getopt::Long::Configure($oldconfig);
-
-  # now continue with normal option handling
-
-  GetOptions(\%opts, @cmdline_options) or 
-    die "Try \"$prg --help\" for more information.\n";
-}
-
-# 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";
-    }
-  }
-  my $od = $opts{$driver . "outputdir"};
-  if (!$opts{"dry-run"}) {
-    &mkdirhier($od);
-    if (! -w $od) {
-      die "$prg: Directory \"$od\" isn't writable: $!";
-    }
-  }
-  print "$driver output dir: \"$od\"\n" if !$opts{'quiet'};
-  return $od;
-}
-
-###############################################################################
-# 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 setOptions {
-  my (@options) = @_;
-  for (my $i = 0; $i < @options; $i++) {
-    my $o = $options[$i];
-
-    my ($key,$val) = split (/=/, $o, 2);
-    
-    die "$prg: unexpected empty key or val for options (@options), goodbye.\n"
-      if !$key || !$val;
-    &setOption ($key, $val);
-  }
-  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 {
-      # this is --disable MapName
-      disable_map($tc, $w);
-    }
-  }
-  return save_updmap($tc);
-}
-
-sub enable_map {
-  my ($tc, $type, $map) = @_;
-
-  die "$prg: invalid mapType $type" if ($type !~ m/^(Map|MixedMap)$/);
-
-  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 {
-    # 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";
-  }
-}
-
-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 {
-      $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;
-  }
-}
-
-
-# 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;
-        }
-      }
-    }
-    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 $t = $upd{'maps'}{$m}{'type'};
-        my $p = ($upd{'maps'}{$m}{'status'} eq "disabled" ? "#! " : "");
-        print FN "$p$t $m\n";
-      } else {
-        print "$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;
-  }
-  return 0;
-}
-
-###############################################################################
-# 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) = @_;
-
-  die "$prg: Unsupported option $opt." if (!defined($settings{$opt}));
-  die "$0: Invalid value $val for option $opt." 
-    if (!member($val, @{$settings{$opt}}));
-
-  # silently accept this old option name, just in case.
-  return if $opt eq "dvipdfmDownloadBase14";
-  
-  #print "Setting option $opt to $val...\n" if !$opts{'quiet'};
-  my $tc = $alldata->{'changes_config'};
-
-  die "$prg: top config file $tc has not been read."
-    if (!defined($alldata->{'updmap'}{$tc}));
-
-  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;
-  }
-}
-
-
-###############################################################################
-# copyFile()
-#   copy file $src to $dst, sets $dst creation and mod time
-#
-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);
-}
-
-###############################################################################
-# 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;
-
-  open IN, "$file_A";
-  my $A=(<IN>);
-  close IN;
-  open IN, "$file_B";
-  my $B=(<IN>);
-  close IN;
-
-  $retval=1 if ($A eq $B);
-  return $retval;
-}
-
-###############################################################################
-# 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;
-
-  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));
-}
-
-###############################################################################
-# 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;
-
-  # @lines = grep {++$count{$_} < 2 } (sort @lines);
-  @lines = grep {++$count{$_} < 2 } (@lines);
-
-  return @lines;
-}
-
-
-#################################################################
-#
-# 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'|'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
-#
-
-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;
-  # 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).
-  # 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 %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;
-    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") {
-        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})) {
-      my @possible_values = @{$settings{$a}};
-      if (scalar(grep($_ eq $b, @possible_values))) {
-        $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") {
-      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 {
-      warning("updmap: unrecognized line $i in $fn: $_\n");
-    }
-  }
-  return \%data;
-}
-
-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;
-    }
-  }
-
-  #
-  # 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};
-        }
-      }
-    }
-  }
-  return (@missing);
-}
-
-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;
-}
-
-
-#
-# merging the various font definitions
-#
-sub merge_data {
-  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;
-      }
-    }
-  }
-  #
-  # 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};
-        $alldata->{'merged'}{'noMixedMaps'}{'fonts'}{$f} = 
-          $alldata->{'maps'}{$m}{'fonts'}{$f}
-            if ($alldata->{'updmap'}{$origin}{'maps'}{$m}{'type'} eq "Map");
-      }
-    }
-  }
-}
-
-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),
-as determined by all configuration files updmap.cfg (the one 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)
-  --dvipsoutputdir DIR      specify output directory (dvips syntax)
-  --pdftexoutputdir DIR     specify output directory (pdftex 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,
-                             or pdftexDownloadBase14
-  --setoption OPTION=VALUE  as above, just different syntax
-  --enable MAPTYPE MAPFILE  add "MAPTYPE MAPFILE" to updmap.cfg,
-                              where MAPTYPE is either Map or MixedMap
-  --enable Map=MAPFILE      add \"Map MAPFILE\" to updmap.cfg
-  --enable MixedMap=MAPFILE add \"MixedMap MAPFILE\" to updmap.cfg
-  --disable MAPFILE         disable MAPFILE, whether Map or MixedMap
-  --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.
-  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)
-
-  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:
-
-  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.
-
-  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;
-}
-
-### Local Variables:
-### perl-indent-level: 2
-### tab-width: 2
-### indent-tabs-mode: nil
-### End:
-# vim:set tabstop=2 expandtab: #