#!/bin/rc # '$Id: makempx.in,v 1.7 1997/12/01 19:21:12 olaf Exp $' # Make an MPX file from the labels in a MetaPost source file, # using mpto and either dvitomp (TeX) or dmp (troff). # From John Hobby's original (though there's not much of it left by now). # Public domain. rfork e rcs_revision='$Revision: 1.7 $' version=1.7 DMP=dmp DVITOMP=dvitomp MAKEMPX_BINDIR=/sys/lib/texmf/bin/$objtype MPFILE='' MPXFILE='' MPTEXPRE=mptexpre.tex MPTOTEX=(mpto -tex) MPTOTR=(mpto -troff) NEWER=newer TEX=tex TROFF='eqn -d$$ | troff -Tpost' # These names are documented in the MetaPost manual, so it's # unwise to change them. ERRLOG=mpxerr.log # file for an error log if necessary TEXERR=mpxerr.tex # file for erroneous TeX if any DVIERR=mpxerr.dvi # troublesome dvi file if any TROFF_INERR=mpxerr # file for erroneous troff input, if any TROFF_OUTERR=mpxerr.t # file for troublesome troff output, if any usage='Usage: '$0' [-tex|-troff] MPFILE MPXFILE. If MPXFILE is older than MPFILE, translate the labels from the MetaPost input file MPFIle to low-level commands in MPXFILE, by running $MPTOTEX, $TEX, and $DVITOMP by default; or, if -troff is specified, $MPTOTR, $TROFF, and $DMP. The current directory is used for writing temporary files. Errors are left in mpxerr.{tex,log,dvi}. If the file named in \$MPTEXPRE (mptexpre.tex by default) exists, it is prepended to the output in tex mode. Email bug reports to tex-k@mail.tug.org.' mode=tex while(! ~ $#* 0) { switch($1){ case -help --help echo $usage exit usage case -version --version echo `{basename $0} '(Web2c 7.2)' $version echo 'There is NO warranty. This script is public domain. Primary author: John Hobby' exit case -troff --troff mode=troff case -tex --tex mode=tex case -* echo $0': Invalid option: '$1 >[1=2] echo 'Try '$0' --help for more information.' >[1=2] exit usage case * if(~ $MPFILE '') MPFILE=$1 if not if(~ $MPXFILE '') MPXFILE=$1 if not { echo $0': Extra argument '$1 >[1=2] echo 'Try '$0' --help for more information.' >[1=2] exit badusage } } shift } if(~ $MPFILE '' || ~ $MPXFILE '') { echo $0': need exactly two arguments' >[1=2] exit usage } # trap "rm -f mpx$$.* $ERRLOG; exit 4" 1 2 3 15 if($NEWER $MPFILE $MPXFILE) { switch($mode){ case tex MPTO=$MPTOTEX case troff MPTO=$MPTOTR case * echo $0': unknown typesetter mode '$mode >[1=2] exit typeset } # Step 1: Extract typesetter source from MetaPost source. if(! $MPTO $MPFILE >mpx$pid.tex >[2]$ERRLOG) { echo $0': command failed:' $MPTO $MPFILE >[1=2] cat $ERRLOG >[1=2] rm -f mpx$pid.tex exit error } if(~ $mode troff) mv -f mpx$pid.tex mpx$pid.i # Step 2: Run typesetter. if(~ $mode tex) { if(test -r $MPTEXPRE) { cat $MPTEXPRE mpx$pid.tex >mpx$pid.tmp mv mpx$pid.tmp mpx$pid.tex } if($TEX --interaction'='batchmode mpx$pid.tex /dev/null) { WHATEVER_TO_MPX=$DVITOMP INFILE=mpx$pid.dvi INERROR=$DVIERR } if not { mv -f mpx$pid.tex $TEXERR mv -f mpx$pid.log $ERRLOG echo $0': command failed:' $TEX $TEXERR; see $ERRLOG >[1=2] exit texfail } } if not if(~ $mode troff) { if(cat mpx$pid.i | eval $TROFF >mpx$pid.t) { WHATEVER_TO_MPX=$DMP INFILE=mpx$pid.t INERROR=$TROFF_OUTERR } if not { mv -f mpx$pid.i $TROFF_INERR echo $0': command failed:' cat $TROFF_INERR '|' $TROFF >[1=2] rm -f mpx$pid.t exit trofffail } } if not { echo can''''t happen >[1=2] exit coredump } # Step 3: Translate typesetter output to a MetaPost MPX. if(! $WHATEVER_TO_MPX $INFILE $MPXFILE >$ERRLOG) { mv -f $INFILE $INERROR ~ $mode troff && mv -f mpx$pid.i $TROFF_INERR echo $0': command failed:' $WHATEVER_TO_MPX $INERROR $MPXFILE >[1=2] # Better to remove $MPXFILE if something went wrong rather than # leaving behind an unfinished or unusable version since $NEWER # might think that all is fine if $MPXFILE exists. rm -f $MPXFILE cat $ERRLOG >[1=2] exit trofffail } rm -f $ERRLOG mpx$pid.* } exit ''