: "
   12/09/82
   print any file found in /usr/spool/tac "

trap "  echo Aborting tpr - ignore error messages during cleanup
	rm tpr$$ /usr/spool/tac/lock /usr/spool/tac/$$*
	echo A B O R T  $$ | tpr &
	exit
" 1 2 3 15

lockflag=0
if test ! -f /usr/spool/tac/lock
then
	lockflag=1
	cat </dev/null >/usr/spool/tac/lock
fi

if test $# -eq 0
then
	cat >tpr$$
	clear >>tpr$$
	mv tpr$$ /usr/spool/tac
else
	for i
	do
		pr -b $i >/usr/spool/tac/$$`basename $i`
	done
fi

:   if test ! -f /usr/spool/tac/lock
if test $lockflag = 1
then

	cat </dev/null >/usr/spool/tac/lock

	while test -f /usr/spool/lpd/lock
	do
		sleep 20
	done

	trap "  echo Aborting tpr - ignore error messages during cleanup
		rm tpr$$ /usr/spool/tac/lock /usr/spool/tac/$$*
		rm -f /usr/spool/lpd/lock
		echo A B O R T  $$ | tpr &
		sleep 4
		/usr/lib/lpd
		exit
	" 1 2 3 15

	cat </dev/null >/usr/spool/lpd/lock

	while true
	do
		PR=`ls /usr/spool/tac`

		if test "$PR" = lock
		then
			break
		fi

		for i in $PR
		do
			if test $i = lock
			then
				continue
			fi

			cat /usr/spool/tac/$i >/dev/tty8
			rm -f /usr/spool/tac/$i
		done
	done

	clear >/dev/tty8
	rm -f /usr/spool/tac/lock
	rm -f /usr/spool/lpd/lock
	/usr/lib/lpd
fi
