#!/bin/sh 

EROFF_DIR=/utils/eroff
EROFF_FONTDIR=/utils/eroff/usr/lib/font
EROFF_LPOPTS=-opostscript

export EROFF_DIR
export EROFF_FONTDIR
export EROFF_LPOPTS

set -- `getopt LlT:m:r: $*`

USAGE0="Usage: psprt [-hl -m mac ] file"
if [ $? -ne 0 ]; then
		echo $USAGE0
		exit 2
fi

opt_l=""
macro=""

while [ $#  -gt  0 ]; do
		case $1 in
		-m)
				macro="-m$2 $macro"
				shift 2
				;;
		-r)
				macro="-r$2 $macro"
				shift 2
				;;
		-l) 
				opt_l="-l1"
				shift
				 ;;
		-h) 
				echo $USAGE0
				exit
				 ;;
		-T)
				tr_opt="$tr_opt -$2"
				shift 2
				 ;;
		-L) macro="-P-l $macro"
				shift
				;;

		--) 
				shift
				break
				 ;;
		esac
done


groff $macro -t -p -Tps $tr_opt $1 > $1.ps


perl -i.bak -pe '
$_ = qq@%!PS-Adobe-2.0\n@ if ($. == 1);
' $1.ps

if [ $? = 0 ] ; then 
	rm $1.ps.bak
fi