# sh/ptroff.sysv
# Copyright 1985,1987 Adobe Systems Incorporated. All rights reserved.
# GOVERNMENT END USERS: See notice of rights in Notice file in TranScript
# library directory -- probably /usr/lib/ps/Notice
# RCSID: $Header: /afs/dev.mit.edu/project/sipb/repository/third/transcript/sh/ptroff.sysv,v 1.1.1.1 1997/12/10 21:41:33 ghudson Exp $
#
# run old troff in a System V environment to print on a PostScript printer
#
# ptroff - otroff | pscat [| lp]
PATH=/bin:/usr/bin:$PATH       # Make sure we get system programs.
export PATH

opt= spool= 
family=Times
offset="-y -31"
printer=-d${LPDEST-PostScript}
while test $# != 0
do	case "$1" in
	-F)	if test "$#" -lt 2 ; then
			echo '-F takes following font family name' 1>&2
			exit 1 
		fi
		family=$2 ; shift ;;
	-F*)	echo 'use -F familyname' 1>&2 ;
		exit 1 ;;
	-t)	nospool=1 ;;
	-n*|-m|-w|-s)	spool="$spool $1" ;;
	-r|-h)	spool="$spool -o$1" ;;
	-d*)	printer=$1 ;;
	-)	fil="$fil $1" ;;
	-*)	opt="$opt $1" ;;

	*)	fil="$fil $1" ; jobname=${jobname-$1} ;;
	esac
	shift
done
if test "$jobname" = "" ; then
	jobname="otroff"
fi
spool="$printer -t'$jobname' $spool"
if test "$fil" = "" ; then
	fil="-"
fi
troff="otroff -t -Tps/${family} $opt /usr/lib/font/ps/${family}/font.head $fil "
pscat="pscat $offset -F/usr/lib/font/ps/${family}/font.ct "

if test "$nospool" = "1" ; then
	$troff | $pscat
else
	$troff | $pscat | lp $spool
fi