home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / unix / riscbsd / 1_1_beta / upgrades / maketexpk_ / maketexpk_~
Encoding:
Text File  |  1996-07-04  |  9.9 KB  |  277 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-/usr/local/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=/usr/local/lib/texmf/dvips/psfonts.map}
  34.  
  35. # Location of the files that map font name parts to directory names.
  36. : ${NAMEMAPDIR=/usr/local/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=/usr/local/lib/ghostscript/type1:}
  41.  
  42. # If this directory doesn't exist, the DC fonts won't be attempted.
  43. : ${dcfontdir=/usr/local/lib/texmf/fonts/public/dc}
  44.  
  45. # If this directory doesn't exist, the Sauter stuff won't be attempted.
  46. : ${sauterdir=/usr/local/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. trap "cd /; eval rm -rf $TEMPDIR \$DESTDIR/pktmp.$$" 0 1 2 15
  128.  
  129. # Allow fonts to be read and written (especially in case we make
  130. # directories) by everyone.  
  131. umask 0
  132.  
  133. # Possible local customizations?
  134. test -r /usr/local/lib/texmf/web2c/MakeTeXPK.site && . /usr/local/lib/texmf/web2c/MakeTeXPK.site
  135.  
  136. # Remember where we were for the paths. We'd most like to replace `.',
  137. # wherever it is in the path, with $SAVEPWD, but we don't have access to the
  138. # compile-time path. So we are conservative, and put this at the end.
  139. SAVEPWD=`pwd`
  140.  
  141. # Go to the unique working directory.
  142. test -d $TEMPDIR || mkdir $TEMPDIR 
  143. cd $TEMPDIR || exit 1
  144.  
  145. # grep for the font in $PSMAPFILE, if some ps-to-pk is claimed to be supported.
  146. # We have to figure out the name of the base font -- $NAME is probably
  147. # something like pplr, but it's rpplr or pplr0 or pplr8r that's in psfonts.map.
  148. pattern="^r?$NAME"'(0|8r)?([     ]|$)' 
  149. test -n "$ps_to_pk" && egrep "$pattern" $PSMAPFILE >psline
  150. if test -s psline; then
  151.   # This is a PostScript font.
  152.   MODE=$ps_to_pk
  153.   case $ps_to_pk in
  154.        ps2pk*) special_part=`cat psline | sed -e 's/^.*"//' -e 's/".*$//'`
  155.                # .167 SlantFont
  156.                slant=`echo $special_part \
  157.                       | awk '{ if ($2 == SlantFont) print "-S" $1 }'`
  158.                extend=`echo $special_part \
  159.                        | awk '{ if ($2 == ExtendFont) print "-E" $1 }'`
  160.                cmd="$ps_to_pk -v -X$DPI $slant $extend $NAME";;
  161.             *) cmd="$ps_to_pk $NAME $DPI";;
  162.   esac
  163.  
  164.   # Update DESTDIR for new mode, and check if we were spuriously called.
  165.   test -z "$6" && DESTDIR="$DESTROOT/$MODE"
  166.   if test -r $DESTDIR/$PKNAME; then # sigh, this is repeated below
  167.     echo "$0: $DESTDIR/$PKNAME already exists." >&2
  168.     echo $DESTDIR/$PKNAME
  169.     exit 0
  170.   fi
  171.  
  172.   DVIPSHEADERS="$DVIPSHEADERS:$SAVEPWD"
  173.   export DVIPSHEADERS
  174.   echo "$0: Running $cmd" >&2
  175.   $cmd >&2 || { echo "$0: $ps_to_pk failed." >&2; exit 1; }
  176.  
  177. else
  178.   # Try Metafont.
  179.   MFINPUTS="$MFINPUTS:$SAVEPWD"
  180.   export MFINPUTS
  181.  
  182.   # If an explicit mode is not supplied, try to guess. You can get a
  183.   # list of extant modes from ftp.cs.umb.edu:pub/tex/modes.mf.
  184.   if test -z "$MODE" || test "$MODE" = default; then
  185.     case "$BDPI" in
  186.       85) MODE=sun;;
  187.      300) MODE=cx;;
  188.      600) MODE=ljfour;;
  189.     1270) MODE=linolo;;
  190.        *) echo "$0: Can't guess mode for $BDPI dpi devices." >&2
  191.           echo "$0: Use a config file, or update me." >&2
  192.           exit 1
  193.     esac
  194.   fi
  195.  
  196.   # If no destination directory specified, install font in directory
  197.   # named for the mode.
  198.   test -z "$6" && DESTDIR="$DESTROOT/$MODE"
  199.  
  200.   if test -r $DESTDIR/$PKNAME; then # sigh, this is repeated above
  201.     echo "$0: $DESTDIR/$PKNAME already exists." >&2
  202.     echo $DESTDIR/$PKNAME
  203.     exit 0
  204.   fi
  205.  
  206.   # Run Metafont. Always use plain Metafont, since reading cmbase.mf
  207.   # does not noticeably slow things down. Separate the filename from the
  208.   # rest, since we have to use ./$NAME if we generate something.
  209.   cmd="mf \mode:=$MODE; mag:=$MAG; scrollmode; input"
  210.   echo "$0: Running $cmd $NAME" >&2
  211.   if $cmd $NAME </dev/null >&2; then
  212.     : # Success already.
  213.   
  214.   else
  215.     # These other cases should really be part of MakeTeXMF.
  216.     # First have to figure out the real magnification, which means
  217.     # extracting the point size from the name -- a trailing number.
  218.     rootname=`echo $NAME | sed 's/[0-9]*$//'`
  219.     pointsize=`echo $NAME | sed "s/^$rootname//"`
  220.     case "$pointsize" in
  221.       11) realsize=10.95444;;    # \magstephalf
  222.       14) realsize=14.4;;    # \magstep2
  223.       17) realsize=17.28;;    # \magstep3
  224.       20) realsize=20.74;;    # \magstep4
  225.       25) realsize=24.88;;    # \magstep5
  226.        *) realsize=$pointsize;;
  227.     esac
  228.     mfname=$NAME.mf
  229.     rm -f $mfname # We are in $TEMPDIR, so this is safe.
  230.  
  231.     if test -z "$pointsize"; then
  232.       # No point size, so it can't be a DC or Sauter font. Give up.
  233.       :
  234.  
  235.     elif echo $NAME | grep '^dc' >/dev/null; then
  236.       echo "$0: Trying DC font." >&2
  237.       echo "if unknown dxbase: input dxbase fi;" >$mfname
  238.       echo "gensize:=$realsize;" >>$mfname
  239.       echo "generate $rootname." >>$mfname
  240.       echo "$0: Running $cmd ./$NAME" >&2
  241.       $cmd ./$mfname </dev/null >&2
  242.  
  243.     elif test -d $sauterdir; then
  244.       echo "$0: Trying interpolated/extrapolated (Sauter) font." >&2
  245.       echo "design_size:=$realsize;" >>$mfname
  246.       echo "input b-$rootname;" >>$mfname
  247.       echo "$0: Running $cmd ./$NAME" >&2
  248.       $cmd ./$mfname </dev/null >&2
  249.       # Result should go in the sauterdir, not the cm dir.
  250.       test -z "$6" && $DESTDIR=$sauterdir/pk/$MODE
  251.     fi # alternative mf sources
  252.   fi # first mf failed
  253.   
  254.   # If we couldn't make the font, quit.
  255.   test -r $GFNAME || \
  256.     { echo "$0: Metafont failed to make $GFNAME." >&2; exit 1; }
  257.  
  258.   # Success.  Make the PK file.
  259.   gftopk ./$GFNAME $PKNAME || exit 1
  260. fi
  261.  
  262. # If we get here, we've succeeded; move the final font to $DESTDIR.
  263. test -d $DESTDIR \
  264.   || mkdir $DESTDIR \
  265.   || { echo "$0: Could not mkdir $DESTDIR." >&2; exit 1; }
  266.  
  267. # Install the PK file carefully, since others may be working simultaneously.
  268. mv $PKNAME $DESTDIR/pktmp.$$ \
  269.   || { echo "$0: Could not mv $PKNAME $DESTDIR/pktmp.$$." >&2; exit 1; }
  270.  
  271. cd $DESTDIR || exit 1
  272. mv pktmp.$$ $PKNAME
  273.  
  274. # If this line (or an equivalent) is not present, dvipsk/xdvik/dviljk
  275. # will think MakeTeXPK failed.  Any other output to stdout will also lose.
  276. echo $DESTDIR/$PKNAME
  277.