#! /bin/bash -e
# by pts@fazekas.hu at Sun Mar 30 13:08:59 CEST 2003
# set -e : exit on first error

# Extract the .pfb files
cd /usr/share/texmf/fonts/type1/public/cm-super
if /usr/bin/t1c2pfb libraries ok; then
  /usr/bin/t1c2pfb <cm-super.t1c
else
  export PERL_BADLANG=x
  perl -x /usr/bin/t1c2pfb.pl <cm-super.t1c
fi
rm -f cm-super.t1c

# Run updmap for pdftex (and possibly dvips)
if grep -vq '^## cm-super-no-debian-install' /etc/texmf/dvips/updmap; then
  cd /etc/texmf/dvips
  export CMS=`echo cm-super-*.map`
  cp updmap updmap.u0
  perl -e '
    sub delcms($) { my $S=$_[0]; 1 while $S=~s@\s+cm-super-(\S+)[.]map\s+@ @; $S }
    sub addcms($) { "\n  $ENV{CMS} $_[0]" }
    $_=join"",<STDIN>;
    die unless s@^(mf_modules=")([^"]*[^"\s])\s*"@$1.addcms(delcms$2)."\n\""@me; print
  ' <updmap.u0 >updmap
  ./updmap
  rm -f updmap.u0
fi

# Update mappings for dvipdfm
if grep -vq '^%% cm-super-no-debian-install' /etc/texmf/dvips/updmap; then
  cd /etc/texmf/dvipdfm
  export CMS=`echo cm-super-*.map`
  cp config config.u0
  perl -e '
    $_=join"",<STDIN>;
    s@^%*\s*f\s+cm-super.*\n?$@@mg;
    s@\s*\Z(?!\n)@\n\n@;
    $_.=join"",map{"f $_\n"}split/\s+/,$ENV{CMS}; print
  ' <config.u0 >config
  rm -f config.u0
fi

mktexlsr