#! /bin/sh
# $Header: ditroff.backup,v 1.1 88/01/15 13:03:40 simpson Rel $
# $Log:	ditroff.backup,v $
#Revision 1.1  88/01/15  13:03:40  simpson
#initial release
#
#Revision 0.1  87/12/11  18:30:49  simpson
#beta test
#
# We must give the -T flag to ditroff so it knows to look in 
# --DIFONT--.  We also must parse the ditroff and lpr flags.
troffflags=-Tqms
lprflags=-n
while [ $# -gt 0 ];do
    case $1 in
# Begin of ditroff flags
    -o* | -n* | -m* | -i | -q | -z | -a | -T*)
	troffflags="$troffflags $1"
	shift
	;;
# Begin of lpr flags
    -P* | -\#* | -w* | -l | -t | -d | -g | -v | -c | -r | -h | -s | -L)
	lprflags="$lprflags $1"
	shift
	;;
    -C | -J | -1 | -2 | -3 | -4)
	lprflags="$lprflags $1 $2"
	shift; shift
	;;
# Troff extension flags
    -R*)
	troffflags="$troffflags `echo $1|sed s/-R/-r/`"
	shift
	;;
    -M)
	lprflags="$lprflags -m"
	shift
	;;
# Any remaining flags go to troff
    -*)
	troffflags="$troffflags $1"
	shift
	;;
    *)
	break
	;;
    esac
done
troff $troffflags $* | glpr $lprflags