.fp 3 CW
.CW
.nr cW \n(.f
.ft P
.nr cE \n(.f
.br
.ft 3
.cs 3 24
if\& test \(34$\(de\(34 = 0; then cat \(fi\(fi\(rg!
Usage: \(34mmt [ options ] f\&iles\(34 where \(34options\(34 are:
-a	=\(fl output to terminal
-e	=\(fl preprocess input with eqn
-t	=\(fl preprocess input with tbl
-Tst	=\(fl output to MH STARE
-T4014 =\(fl output to Tektronix 4014
-Tvp	=\(fl output to Versatec printer
-	=\(fl use instead of\& \(34f\&iles\(34 when mmt used inside a pipeline.
Other options as required by TROFF and the MM macros.
!
	exit 1
f\&i
PATH='/bin:/usr/bin'; O='-g'; o='|gcat -ph'; 
\(de		Assumes typesetter is accessed via gcat(1)
\(de		If\& typesetter is on-line, use O=''; o=''
while test -n \(34$1\(34 -a ! -r \(34$1\(34
do case \(34$1\(34 in
	-a)		O='-a';		o='' ;;
	-Tst)		O='-g';		o='|gcat -st';;
\(de		Above line f\&or MH STARE only
	-T4014)		O='-t';		o='|tc';;
	-Tvp)		O='-t';		o='|vpr -t';;
	-e)		e='eqn';;
	-t)		f\&='tbl';;
	-)		break;;
	*)		a=\(34$a $1\(34;;
   esac
   shif\&t
done
if\& test -z \(34$1\(34;	then echo 'mmt: no input f\&ile'; exit 1; f\&i
if\& test \(34$O\(34 = '-g';	then x=\(34-f\&$1\(34;	f\&i
d=\(34$*\(34
if\& test \(34$d\(34 = '-';	then shif\&t;	x='';	d='';	f\&i
if\& test -n \(34$f\&\(34;	then f\&=\(34tbl $*|\(34;	d='';	f\&i
if\& test -n \(34$e\(34
	then	if\& test -n \(34$f\&\(34
			then e='eqn|'
			else e=\(34eqn $*|\(34;	d=''
		f\&i
f\&i
eval \(34$f\& $e trof\&f\& $O -cm $a $d $o $x\(34
exit 0
.br
.cs 3
.ft \n(cE
.ft \n(cW
.CN
