# System V line printer spooler model for PostScript/TranScript printer
# Copyright (c) 1985,1987,1991,1992 Adobe Systems Incorporated. All Rights
# Reserved.  
# GOVERNMENT END USERS: See Notice file in TranScript library directory
# -- probably /usr/lib/ps/Notice
# RCSID: $Header: /afs/dev.mit.edu/project/sipb/repository/third/transcript/lib/psint.sysv,v 1.1.1.1 1997/12/10 21:40:53 ghudson Exp $

# stty options are: 
#	stty cs8 9600 cread -clocal -ignbrk brkint -parmrk \
#	inpck -istrip -inlcr -igncr -icrnl -iuclc ixon -ixany ixoff \
#	-opost -isig -icanon -xcase 
#	-echo -echoe -echok -echonl min \^a time \^d
#
# on 3B2 Sys Vr2v2 this is "1412:0:4bd:0:7f:1c:23:40:1:4:0:0"

sttyopts="XCODEX"
SPOOLDIR=XSPOOLDIRX

# establish basics
# the log files is also our stdout and stderr file (set up with lpadmin)
#	argv[0] is interface/PRINTERNAME
#	cwd is the spooler directory (/usr/spool/lp)
#	our environment gives us fairly little info though lots is passed in

prog=$0
pr=`basename $prog`
printdev=/dev/$pr
printer=$pr
cwd=`pwd`
ptime=`date`
log=$SPOOLDIR/transcript/${pr}-log
if [ ! -w "$log" ] ; then
	disable -r"can't access log file $log" $pr 1>/dev/console 2>&1
	exit 1
fi
# set these however you want, set psrv to null if you don't want reversal
PSLIBDIR=XPSLIBDIRX
PSCOMM=XPSCOMMX
send=$PSLIBDIR/$PSCOMM
banner=$PSLIBDIR/psbanner
docman=$PSLIBDIR/psdman
BANNERPRO=$PSLIBDIR/banner.pro
VERBOSELOG=XVERBOSELOGX
BANNERFIRST=XBANNERFIRSTX
BANNERLAST=XBANNERLASTX
REVERSE=XREVERSEX
PSTEMPDIR=XPSTEMPDIRX
export VERBOSELOG BANNERPRO BANNERFIRST BANNERLAST PSTEMPDIR REVERSE PSLIBDIR

# printer-specific options file (can change any of the above)
test -r ./transcript/${pr}.opt && . ./transcript/${pr}.opt

if [ "$sttyopts" = "" ] 
then
    dostty=FALSE
else
    dostty=TRUE
fi

# parse command line options (cannonical)
seqid=$1
name=$2
title="$3"
copies=$4
options="$5"
shift; shift; shift; shift; shift
files="$*"
if [ -z "$title" ] ; then
	title=`basename $1`
fi
# parse TranScript-specific user options with getopt
set -- `getopt hmr "$options"`
if [ $? != 0 ] ; then
	echo $pr: $seqid bad user options $options
	exit 2
fi
Hflag= Mflag= Rflag=
for i in $*
do	case $i in
	-h|h)	Hflag=$i; shift;;	# no banner page
	-m|m)	Mflag=$i; shift;;	# mail stream output if any
	-r|r)	Rflag=$i; shift;;	# never reverse
	--)	shift ;;
	esac
done

# set up to send the job
if [ ! -x $send ] ; then
	disable -r"can't execute $send filter" $pr
	exit 1
fi

# add args to $send now
send="$send -P $printer -n $name"

echo $pr: $seqid $name "$title" start - $ptime

# create banner page
if [ -z "$Hflag" -a \( "$BANNERFIRST" = "1" -o "$BANNERLAST" = "1" \) ] ; then
	if [ ! -x $banner ] ; then
	    disable -r"can't exec $banner program" $pr
	    exit 1
	fi
	bannerf=$PSTEMPDIR/bantmp.$$
#	trap "rm -f $bannerf" 1 2 3 15
	if [ ! -r $BANNERPRO ] ; then
		disable -r"can't access banner prolog" $pr
		exit 1
	fi
	$banner $pr $seqid $name "$title" "$ptime" >$bannerf
fi

# print banner page first ?
if [ -z "$Hflag" -a "$BANNERFIRST" = "1" ] ; then
    if [ $dostty = "TRUE" ]
    then
	(stty $sttyopts <&1
	$send <$bannerf
	) 1>$printdev 2>>$log 3<$printdev
    else 
	($send <$bannerf
	) 1>$printdev 2>>$log 3<$printdev
    fi
fi

# set up to mail job output if user flag set
if [ -n "$Mflag" ] ; then
	JOBOUTPUT=${PSTEMPDIR}/outtmp.$$
	export JOBOUTPUT
fi

# now process the print files
for f in $files
do
	echo $pr: $seqid `basename $f` - `date`
	cop=$copies
	# print all the copies, reversing as necessary
    if [ $dostty = "TRUE" ]
    then
	while [ $cop -ge 1 ] 
	do	(stty $sttyopts <&1
                $docman -P $printer <$f | $send
		) 1>$printdev 2>>$log 3<$printdev
		cop=`expr $cop - 1`
	done
    else
	while [ $cop -ge 1 ] 
	do	(
                $docman -P $printer <$f | $send
		) 1>$printdev 2>>$log 3<$printdev
		cop=`expr $cop - 1`
	done
    fi

done

# print banner page last ?
if [ -z "$Hflag" -a "$BANNERLAST" = "1" ] ; then
    if [ $dostty = "TRUE" ]
    then
	(stty $sttyopts <&1
	$send <$bannerf
	) 1>$printdev 2>>$log 3<$printdev
    else
	($send <$bannerf
	) 1>$printdev 2>>$log 3<$printdev
    fi
fi

# mail user the job ouput if flag set
if [ -n "$Mflag" ] ; then
	if [ -s "$JOBOUTPUT" ] ; then
		(echo Subject: output from PostScript print job $seqid follows
		cat $JOBOUTPUT ) | mail $name
	fi
	rm -f $JOBOUTPUT
fi

echo $pr: $seqid end - `date`

# clean up
rm -f $bannerf