# Script to grind nice program listings using TeX.

#! /bin/sh
# Script to grind nice program listings using TeX.
#
# written Feb, 1985 by Van Jacobson, Lawrence Berkeley Laboratory (adapted
# from the 4.2bsd "vgrind" script).
#
# Translated to Bourne Shell, March 1987, Lou Salkind, New York University
#
# Since TeX output handling is site dependent, you'll have to edit this
# file to get output to your local typesetting device(s). Our site uses
# the flags "-v" (versatec output), "-q" (qms output) and "-o" (keep dvi file)
# to route output. Put something appropriate to your site at the "PUT OUTPUT
# HANDLING..." comment at the end of this script. If you've already dealt
# with this in your local tex command, just change the -v/q/k (or whatever)
# cases in the first "switch" to set variable "texoptions" appropriately.
#
b=/usr/local/lib/tfontedpr
tex=/usr/local/bin/tex
options=
texoptions=
files=
head=""
format=""
output="dvi"
outputfile=tgrind.dvi
expecting=filename

for A do
case $A in

-d)
expecting=doptions ;;

-f)
format="Y" ;;

-h)
expecting=head ;;

-o)
output=dvi
expecting=outputfile ;;

# some sample devices...
-v)
output="ver" ;;

-q)
output="qms" ;;

-*)
options="$options $A" ;;

*)
case $expecting in
outputfile)
outputfile="$A" ;;
head)
head="$A" ;;
doptions)
options="$options -d $A" ;;
filename)
files="$files $A" ;;
esac
expecting=filename ;;
esac
done

if [ "$format" = "Y" ]; then
if [ "$head" != "" ]; then
$b $options -h "$head" $files
else
$b $options $files
fi
exit 0
fi

trap 'rm -f tgrnd$$.tex tgrnd$$.dvi tgrnd$$.log' 0 2 3 15

if [ "$head" != "" ]; then
$b $options -h "$head" $files >tgrnd$$.tex
else
$b $options $files >tgrnd$$.tex
fi
$tex $texoptions tgrnd$$.tex

# PUT OUTPUT HANDLING COMMANDS HERE.
case $output in
ver)
;;
qms)
;;
dvi)
# if [ `expr $outputfile : '/*'` -eq 0 ]; then
# outputfile=$mydir/$outputfile
# fi
mv tgrnd$$.dvi $outputfile
;;
esac