home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / unixtex-6.1b-bin0.lha / bin / MakeTeXPK < prev    next >
Text File  |  1996-10-12  |  10KB  |  283 lines
  1. #!/bin/sh
  2. # original MakeTeXPK -- make a new PK font, because one wasn't found.
  3. # Version of 12dec94.
  4. # 
  5. # (If you change or delete the word `original' on the previous line,
  6. # installation won't write this MakeTeXPK over yours.)
  7. #
  8. # This script must echo the name of the generated PK file (and nothing
  9. # else) to standard output. Yes, this is different from the original dvips.
  10. # 
  11. # Parameters:
  12. #   name dpi bdpi magnification [mode [destdir]]
  13. #
  14. #   `name' is the base name of the font, such as `cmr10'.
  15. #   `dpi' is the resolution the font is needed at.
  16. #   `bdpi' is the base resolution, used to intuit the mode to use.
  17. #   `magnification' is a string to pass to MF as the value of `mag'.
  18. #   `mode', if supplied, is the mode to use. Unless it's `default', in
  19. #     which case we guess. (This is so people can specify a destdir
  20. #     without a mode.)
  21. #   `destdir', if supplied, is either the absolute directory name to use
  22. #     (if it starts with a /) or relative to the default DESTDIR (if not).
  23.  
  24. # The root of where to put the new file. (Using the sh construct
  25. # ${var=value} is the tersest construct that lets an environment
  26. # variable `var' override the value given here.)
  27. : ${DESTROOT=${MTPK_DESTROOT-/ade/lib/texmf/fonts}}
  28.  
  29. # Define to `gsftopk' or `ps2pk' or whatever to make PK files for
  30. # PostScript fonts. If this is defined, PSMAPFILE must also be defined to
  31. # be your psfonts.map file or some equivalent.
  32. : ${ps_to_pk=gsftopk}
  33. : ${PSMAPFILE=/ade/lib/texmf/dvips/psfonts.map}
  34.  
  35. # Location of the files that map font name parts to directory names.
  36. : ${NAMEMAPDIR=/ade/lib/texmf/fontname}
  37.  
  38. # This is needed only if all the font directories were not included in
  39. # the compile-time path for gsftopk. 
  40. : ${DVIPSHEADERS=/ade/lib/ghostscript/type1:}
  41.  
  42. # If this directory doesn't exist, the DC fonts won't be attempted.
  43. : ${dcfontdir=/ade/lib/texmf/fonts/public/dc}
  44.  
  45. # If this directory doesn't exist, the Sauter stuff won't be attempted.
  46. : ${sauterdir=/ade/lib/texmf/fonts/public/sauter}
  47.  
  48. # If the true typeface directory cannot be determined from the fontname,
  49. # the files are installed here, relative to $DESTROOT.
  50. : ${default_namepart=tmp/pk}
  51.  
  52. # TEMPDIR needs to be unique for each process because of the possibility
  53. # of processes simultaneously running this script.
  54. TEMPDIR=${TMPDIR-/tmp}/mtpk.$$
  55.  
  56. if test $# -lt 4; then
  57.   echo "Usage: $0 name dpi bdpi mag [mode [destdir]]." >&2
  58.   exit 1
  59. fi
  60.  
  61. NAME=$1
  62. DPI=$2
  63. BDPI=$3
  64. MAG=$4
  65. MODE=$5
  66.  
  67. # DESTDIR is harder.
  68. case "$6" in
  69.   "")
  70.       # Nothing specified, so try to intuit the directory from the
  71.       # fontname. First the special cases: either $NAME matches an entire
  72.       # name in special.map, or it matches the abbreviation in
  73.       # special.map and ends with a numeral (for the pointsize).
  74.       # We (painfully) use only the minimal features in original awk.
  75.       if test -r $NAMEMAPDIR/special.map; then
  76.         namepart=`awk \
  77. '{if ($1 == NAME || (substr (NAME, 1, length ($1)) == $1 \
  78.                       && substr (NAME, length (NAME), 1) ~ /[0-9]/)) \
  79.      { print $2 "/" $3; exit; }}' NAME=$NAME $NAMEMAPDIR/special.map`
  80.  
  81.         if test -z "$namepart"; then
  82.           # Try the normal case. Source first.
  83.           s_abbrev=`echo $NAME | cut -c 1-1`
  84.           sourcedir=`awk '{ if ($1 == s_abbrev) { print $2; exit; }}' \
  85.                      s_abbrev=$s_abbrev $NAMEMAPDIR/source.map`
  86.  
  87.           if test -n "$sourcedir"; then
  88.             # We found the source. Try for the typeface.
  89.             t_abbrev=`echo $NAME | cut -c 2-3`
  90.             typefacedir=`awk '{ if ($1 == t_abbrev) { print $2; exit; }}' \
  91.                          t_abbrev=$t_abbrev $NAMEMAPDIR/typeface.map`
  92.  
  93.             if test -n "$typefacedir"; then
  94.               # Found everything.
  95.               namepart=$sourcedir/$typefacedir
  96.  
  97.             else
  98.               echo "$0: Could not map typeface abbreviation $t_abbrev." >&2
  99.             fi
  100.           else
  101.             echo "$0: Could not map source abbreviation $s_abbrev." >&2
  102.           fi
  103.         fi
  104.       else
  105.         # No map files.
  106.         :
  107.       fi
  108.       if test -z "$namepart"; then
  109.         # If we failed for whatever reason, default to a generic subdir.
  110.         namepart=$default_namepart
  111.       else
  112.         # Otherwise, get the `pk' in before we append the mode.
  113.         namepart=$namepart/pk 
  114.       fi
  115.       
  116.       # Finally, update the parent of the installation directory.
  117.       DESTROOT="$DESTROOT/$namepart"
  118.       ;;
  119.   /*) DESTDIR=$6;;           # Absolute, explicit destdir => use it.
  120.    *) DESTDIR=$DESTROOT/$6;; # Relative destdir => append to the default.
  121. esac
  122.  
  123. GFNAME=$NAME.$DPI'gf'
  124. PKNAME=$NAME.$DPI'pk'
  125.  
  126. # Clean up on normal or abnormal exit. DESTDIR changes, hence the eval.
  127. # AmigaOS hack:  Add a sleep to work around a race condition that allows
  128. # for a dying process to hold a lock on TEMPDIR long enough to prevent
  129. # it from being immediately deleted.
  130. trap "cd /; sleep 5; eval rm -rf $TEMPDIR \$DESTDIR/pktmp.$$" 0 1 2 15
  131.  
  132. # Allow fonts to be read and written (especially in case we make
  133. # directories) by everyone.  
  134. umask 0
  135.  
  136. # Possible local customizations?
  137. test -r /ade/lib/texmf/web2c/MakeTeXPK.site
  138.  
  139. # Remember where we were for the paths. We'd most like to replace `.',
  140. # wherever it is in the path, with $SAVEPWD, but we don't have access to the
  141. # compile-time path. So we are conservative, and put this at the end.
  142. SAVEPWD=`pwd`
  143.  
  144. # Go to the unique working directory.
  145. test -d $TEMPDIR || mkdir $TEMPDIR 
  146. cd $TEMPDIR || exit 1
  147.  
  148. # grep for the font in $PSMAPFILE, if some ps-to-pk is claimed to be supported.
  149. # We have to figure out the name of the base font -- $NAME is probably
  150. # something like pplr, but it's rpplr or pplr0 or pplr8r that's in psfonts.map.
  151. pattern="^r?$NAME"'(0|8r)?([     ]|$)' 
  152. test -n "$ps_to_pk" && egrep "$pattern" $PSMAPFILE >psline
  153. if test -s psline; then
  154.   # This is a PostScript font.
  155.   MODE=$ps_to_pk
  156.   case $ps_to_pk in
  157.        ps2pk*) special_part=`cat psline | sed -e 's/^.*"//' -e 's/".*$//'`
  158.                # .167 SlantFont
  159.                slant=`echo $special_part \
  160.                       | awk '{ if ($2 == SlantFont) print "-S" $1 }'`
  161.                extend=`echo $special_part \
  162.                        | awk '{ if ($2 == ExtendFont) print "-E" $1 }'`
  163.                cmd="$ps_to_pk -v -X$DPI $slant $extend $NAME";;
  164.             *) cmd="$ps_to_pk $NAME $DPI";;
  165.   esac
  166.  
  167.   # Update DESTDIR for new mode, and check if we were spuriously called.
  168.   test -z "$6" && DESTDIR="$DESTROOT/$MODE"
  169.   if test -r $DESTDIR/$PKNAME; then # sigh, this is repeated below
  170.     echo "$0: $DESTDIR/$PKNAME already exists." >&2
  171.     echo $DESTDIR/$PKNAME
  172.     exit 0
  173.   fi
  174.  
  175.   DVIPSHEADERS="$DVIPSHEADERS:$SAVEPWD"
  176.   export DVIPSHEADERS
  177.   echo "$0: Running $cmd" >&2
  178.   $cmd >&2 || { echo "$0: $ps_to_pk failed." >&2; exit 1; }
  179.  
  180. else
  181.   # Try Metafont.
  182.   MFINPUTS="$MFINPUTS:$SAVEPWD"
  183.   export MFINPUTS
  184.  
  185.   # If an explicit mode is not supplied, try to guess. You can get a
  186.   # list of extant modes from ftp.cs.umb.edu:pub/tex/modes.mf.
  187.   if test -z "$MODE" || test "$MODE" = default; then
  188.     case "$BDPI" in
  189.       85) MODE=sun;;
  190.      300) MODE=cx;;
  191.      600) MODE=ljfour;;
  192.     1270) MODE=linolo;;
  193.        *) echo "$0: Can't guess mode for $BDPI dpi devices." >&2
  194.           echo "$0: Use a config file, or update me." >&2
  195.           exit 1
  196.     esac
  197.   fi
  198.  
  199.   # If no destination directory specified, install font in directory
  200.   # named for the mode.
  201.   test -z "$6" && DESTDIR="$DESTROOT/$MODE"
  202.  
  203.   if test -r $DESTDIR/$PKNAME; then # sigh, this is repeated above
  204.     echo "$0: $DESTDIR/$PKNAME already exists." >&2
  205.     echo $DESTDIR/$PKNAME
  206.     exit 0
  207.   fi
  208.  
  209.   # Run Metafont. Always use plain Metafont, since reading cmbase.mf
  210.   # does not noticeably slow things down. Separate the filename from the
  211.   # rest, since we have to use ./$NAME if we generate something.
  212.   cmd="mf \mode:=$MODE; mag:=$MAG; scrollmode; input"
  213.   echo "$0: Running $cmd $NAME" >&2
  214.   if $cmd $NAME </dev/null >&2; then
  215.     : # Success already.
  216.   
  217.   else
  218.     # These other cases should really be part of MakeTeXMF.
  219.     # First have to figure out the real magnification, which means
  220.     # extracting the point size from the name -- a trailing number.
  221.     rootname=`echo $NAME | sed 's/[0-9]*$//'`
  222.     pointsize=`echo $NAME | sed "s/^$rootname//"`
  223.     case "$pointsize" in
  224.       11) realsize=10.95444;;    # \magstephalf
  225.       14) realsize=14.4;;    # \magstep2
  226.       17) realsize=17.28;;    # \magstep3
  227.       20) realsize=20.74;;    # \magstep4
  228.       25) realsize=24.88;;    # \magstep5
  229.        *) realsize=$pointsize;;
  230.     esac
  231.     mfname=$NAME.mf
  232.     rm -f $mfname # We are in $TEMPDIR, so this is safe.
  233.  
  234.     if test -z "$pointsize"; then
  235.       # No point size, so it can't be a DC or Sauter font. Give up.
  236.       :
  237.  
  238.     elif echo $NAME | grep '^dc' >/dev/null; then
  239.       echo "$0: Trying DC font." >&2
  240.       echo "if unknown dxbase: input dxbase fi;" >$mfname
  241.       echo "gensize:=$realsize;" >>$mfname
  242.       echo "generate $rootname." >>$mfname
  243.       echo "$0: Running $cmd ./$NAME" >&2
  244.       $cmd ./$mfname </dev/null >&2
  245.  
  246.     elif test -d $sauterdir; then
  247.       echo "$0: Trying interpolated/extrapolated (Sauter) font." >&2
  248.       echo "design_size:=$realsize;" >>$mfname
  249.       echo "input b-$rootname;" >>$mfname
  250.       echo "$0: Running $cmd ./$NAME" >&2
  251.       $cmd ./$mfname </dev/null >&2
  252.       # Result should go in the sauterdir, not the cm dir.
  253.       test -z "$6" && $DESTDIR=$sauterdir/pk/$MODE
  254.     fi # alternative mf sources
  255.   fi # first mf failed
  256.   
  257.   # If we couldn't make the font, quit.
  258.   test -r $GFNAME || \
  259.     { echo "$0: Metafont failed to make $GFNAME." >&2; exit 1; }
  260.  
  261.   # Success.  Make the PK file.
  262.   gftopk ./$GFNAME $PKNAME || exit 1
  263. fi
  264.  
  265. # If we get here, we've succeeded; move the final font to $DESTDIR.
  266. test -d $DESTDIR \
  267.   || mkdir $DESTDIR \
  268.   || { echo "$0: Could not mkdir $DESTDIR." >&2; exit 1; }
  269.  
  270. # Install the PK file carefully, since others may be working simultaneously.
  271. # Note that we use cp+rm rather than mv since mv may not work across filesystems.
  272. cp $PKNAME $DESTDIR/pktmp.$$ \
  273.   || { echo "$0: Could not cp $PKNAME $DESTDIR/pktmp.$$." >&2; exit 1; }
  274. rm $PKNAME \
  275.   || { echo "$0: Could not rm $PKNAKE." >&2; exit 1; }
  276.  
  277. cd $DESTDIR || exit 1
  278. mv pktmp.$$ $PKNAME
  279.  
  280. # If this line (or an equivalent) is not present, dvipsk/xdvik/dviljk
  281. # will think MakeTeXPK failed.  Any other output to stdout will also lose.
  282. echo $DESTDIR/$PKNAME
  283.