home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / texlatex.zip / web2c72.zip / bin / mktexpk < prev    next >
Text File  |  1999-09-14  |  8KB  |  216 lines
  1. #!sh
  2. # original mktexpk -- make a new PK font, because one wasn't found.
  3. # 
  4. # (If you change or delete the word `original' on the previous line,
  5. # installation won't write this script over yours.)
  6. # 
  7. # te@informatik.uni-hannover.de, kb@mail.tug.org, and infovore@xs4all.nl.
  8. # Public domain.
  9.  
  10. version='$Id: mktexpk,v 1.21 1998/02/20 16:23:22 olaf Exp $'
  11. progname=`echo $0 | sed 's%.*/%%'`
  12. usage="Usage: $progname [OPTION] NAME [REDIRECT],
  13.   Create a PK font.
  14.  
  15. --dpi DPI           use resolution DPI.
  16. --bdpi BDPI         use base resolution BDPI.
  17. --mag MAG           use magnificiation MAG.
  18. --mfmode MODE       use MODE as the METAFONT mode.
  19. --destdir DESTDIR   write fonts in DESTDIR.
  20.  
  21. Try to create a PK file for NAME at resolution DPI, with an assumed
  22. device base resolution of BDPI, and a Metafont \`mag' of MAG. Use MODE
  23. for the METAFONT mode.  Use DESTDIR for the root of where to install
  24. into, either the absolute directory name to use (if it starts with a
  25. /) or relative to the default DESTDIR (if not). REDIRECT, if supplied,
  26. is a string of the form '>&n', where n is the number of the file
  27. descriptor which is to receive, instead of stdout, the name of the
  28. newly created pk file."
  29.  
  30. # Handle non-positional options, except for --version/--help
  31. while test $# -gt 0; do
  32.   case "$1" in
  33.     --destdir) shift; DEST="$1"; shift ;;
  34.     --dpi) shift; DPI="$1"; shift ;;
  35.     --bdpi) shift; BDPI="$1"; shift ;;
  36.     --mfmode) shift; test "x$1" != "x/" && MODE="$1"; shift ;;
  37.     --mag) shift; MAG="$1"; shift;;
  38.     --version|-version) break ;;
  39.     --help|-help) break ;;
  40.     *) break ;;
  41.   esac
  42. done
  43.  
  44. if test "x$2" != x; then
  45.   tail="`echo \"x$2\" | sed 's/^x>&//' | grep '^[0-9]*$'`"
  46.   if test -z "$tail"; then
  47.     echo "$progname: argument '$2' ignored - bad file number" >&2
  48.   elif test "$tail" != 1; then
  49.       eval 'exec 1>&$tail'
  50.   fi
  51. fi
  52.  
  53. mt_max_args=2
  54.  
  55. # Common code for all scripts.
  56. : ${MT_TEXMFMAIN=`kpsewhich --expand-path='$TEXMFMAIN'`}
  57. : ${MT_MKTEX_OPT=`kpsewhich --format='web2c files' mktex.opt`}
  58. test -n "$MT_MKTEX_OPT" || MT_MKTEX_OPT="$MT_TEXMFMAIN/web2c/mktex.opt"
  59. if test ! -f "$MT_MKTEX_OPT"; then
  60.   echo "$progname: Cannot find mktex.opt; check your installation." >&2
  61.   exit 1
  62. fi
  63.  
  64. . "$MT_MKTEX_OPT"
  65.  
  66. # Since we want to pass the generated filename and only that filename
  67. # back to the caller on standard output, we do some redirections so
  68. # regular echo's will end up on stderr, and do an echo >$STDOUT at the end.
  69. # Then the contents of $STDOUT will be echoed to stdout by a trap.
  70.  
  71. # start of redirection stdout -> stderr, stdin <- /dev/null
  72. (
  73.  
  74. NAME=$1
  75.  
  76. # grep for the font in $PSMAPFILE.  These are base font names, such as
  77. # rpplr (the original) or pplr0 (an interim step) or pplr8r (current).
  78. : ${PSMAPFILE=`kpsewhich psfonts.map`}
  79. pattern="^$NAME"'([     ]|$)' 
  80. psline=`egrep "$pattern" $PSMAPFILE`
  81. if test -n "$psline"; then
  82.   MODE=modeless
  83.   # ps_to_pk is set in mktex.opt
  84.   case $ps_to_pk in
  85.     ps2pk)
  86.       set x `echo "$psline" | sed 's%[<["]%%g'`
  87.       shift; shift; shift;
  88.       encoding=; psname=; slant=; extend=
  89.       while test ! -z "$1"; do
  90.         case "$1" in
  91.           *.enc)       encoding="-e $1";;
  92.           *.pf[ab])    psname="$1";;
  93.           *SlantFont)  slant="-S $lastopt";;
  94.           *ExtendFont) extend="-E $lastopt";;
  95.         esac
  96.         lastopt="$1"
  97.         shift
  98.       done
  99.       test -n "$psname" ||
  100.         { pfa=`(kpsewhich $NAME.pfa 2>/dev/null)`; psname=$pfa; }
  101.       test -n "$psname" ||
  102.         { pfb=`(kpsewhich $NAME.pfb 2>/dev/null)`; psname=$pfb; }
  103.       ANAME=`echo $NAME | sed 's/8r$/8a/'`
  104.       test -n "$psname" ||
  105.         { pfa=`(kpsewhich $ANAME.pfa 2>/dev/null)`; psname=$pfa; }
  106.       test -n "$psname" ||
  107.         { pfb=`(kpsewhich $ANAME.pfb 2>/dev/null)`; psname=$pfb; }
  108.       if [ -z "$psname" ]; then
  109.         echo "$progname: cannot find $NAME.pfa or $NAME.pfb. Trying gsftopk." >&2
  110.         cmd="gsftopk $NAME $DPI"
  111.       else
  112.         cmd="ps2pk -v -X$DPI -R$BDPI $slant $extend $encoding $psname $NAME.${DPI}pk"
  113.       fi
  114.       ;;
  115.     *)
  116.       cmd="$ps_to_pk $NAME $DPI" 
  117.       ;;
  118.   esac
  119. else
  120.   # Check that $BDPI and $MODE are consistent; if not, ignore the mode and
  121.   # hope we can correctly guess it from bdpi.  (People like to specify the
  122.   # resolution on the command line, not the mode so much.)
  123.   if test -n "$MODE"; then
  124.     mf_bdpi=`mf \
  125. '\mode:='$MODE';mode_setup;message"BDPI= "&decimal round pixels_per_inch;end.'\
  126.              </dev/null \
  127.              | awk '/DPI=/ {print $2}'`
  128.     if test "x$mf_bdpi" != x$BDPI; then
  129.       echo "$progname: Mismatched mode $MODE and resolution $BDPI; ignoring mode." >&2
  130.       MODE=
  131.     fi
  132.   fi
  133.  
  134.   # If an explicit mode is not supplied, try to guess. You can get a
  135.   # list of extant modes from ftp://ftp.tug.org/tex/modes.mf.
  136.   if test -z "$MODE" || test "x$MODE" = xdefault; then
  137.     case "$BDPI" in
  138.       85) MODE=sun;;
  139.      100) MODE=nextscrn;;
  140.      180) MODE=toshiba;;
  141.      300) MODE=cx;;
  142.      400) MODE=nexthi;;
  143.      600) MODE=ljfour;;
  144.     1270) MODE=linoone;;
  145.        *) echo "$progname: Can't guess mode for $BDPI dpi devices." >&2
  146.           echo "$progname: Use a config file, or update me." >&2
  147.           exit 1
  148.     esac
  149.   fi
  150.  
  151.   # Run Metafont. Always use plain Metafont, since reading cmbase.mf
  152.   # does not noticeably slow things down.
  153.   cmd="mf \mode:=$MODE; mag:=$MAG; nonstopmode; input $NAME"
  154. fi
  155.  
  156. OIFS=$IFS; IFS=$SEP
  157. set x `"$MT_MKTEXNAM" $NAME $DPI $MODE $DEST`; shift
  158. IFS=$OIFS
  159.  
  160. PKDEST="$1"
  161. PKDESTDIR=`echo "$PKDEST" | sed -e 's%/[^/][^/]*$%%' -e 's%^.:%%'` # can't rely on dirname
  162. PKNAME=`basename "$PKDEST"`
  163. GFNAME=$NAME.${DPI}gf
  164.  
  165. if test -r "$PKDESTDIR/$PKNAME"; then
  166.   echo "$progname: $PKDESTDIR/$PKNAME already exists." >&2
  167.   echo "$PKDESTDIR/$PKNAME" >$STDOUT
  168.   "$MT_MKTEXUPD" "$PKDESTDIR" $PKNAME
  169.   exit 0
  170. fi
  171.  
  172. "$MT_MKTEXDIR" "$PKDESTDIR"
  173. if test ! -d "$PKDESTDIR"; then
  174.   echo "$progname: mktexdir $PKDESTDIR failed." >&2
  175.   exit 1
  176. fi
  177.  
  178. echo "$progname: Running $cmd"
  179. $cmd </dev/null || {
  180.   # Don't abort if only "Strange path" errors occurr.
  181.   grep '^!' $NAME.log >$$.errs 2>/dev/null
  182.   grep '^! Strange path' $$.errs >$$.strange 2>/dev/null
  183.   if cmp $$.errs $$.strange >/dev/null 2>&1 \
  184.     && test -s $$.strange >/dev/null 2>&1; then
  185.     echo "$progname: warning: \`$cmd' caused strange path errors." >&2
  186.   else
  187.     echo "$progname: \`$cmd' failed." >&2
  188.     test -s $NAME.log && mv -f $NAME.log "$KPSE_DOT"
  189.     exit 1;
  190.   fi
  191. }
  192.  
  193. test -r $GFNAME && { gftopk ./$GFNAME $PKNAME || exit 1; }
  194. test ! -f $PKNAME && test -f $NAME.${DPI}pk && mv $NAME.${DPI}pk $PKNAME
  195. if test ! -s $PKNAME; then
  196.   echo "$progname: \`$cmd' failed to make $PKNAME." >&2
  197.   exit 1
  198. fi
  199.  
  200. # Install the PK file carefully, since others may be working simultaneously.
  201. # Use cp when mv fails, since DOS will fail mv for deeply-nested directories.
  202. mv $PKNAME "$PKDESTDIR/pk$$.tmp" 2>/dev/null \
  203.   || cp $PKNAME "$PKDESTDIR/pk$$.tmp" || exit 1
  204. cd $PKDESTDIR || exit 1
  205. chmod `kpsestat -xst,go-w .` pk$$.tmp
  206. test -r $PKNAME || mv pk$$.tmp $PKNAME || exit 1
  207.  
  208. # Update ls-R if necessary.
  209. "$MT_MKTEXUPD" "$PKDESTDIR" $PKNAME
  210.  
  211. # If this line (or an equivalent) is not present, dvipsk/xdvik/dviljk
  212. # will think mktexpk failed.  Any other output to stdout will also lose.
  213. echo "$PKDESTDIR/$PKNAME" >$STDOUT
  214. echo "$progname: $PKDESTDIR/$PKNAME: successfully generated." >&2
  215. ) 1>&2 </dev/null
  216.