#! /bin/csh -f
# troff to the IMAGEN imPrint printer
# /etc/renice 4 $$ >& /dev/null
set flags=(-rv1) noglob fonts=() cflags=() host=() rshhost=()
set macp=(/usr/lib/tmac/tmac.vcat)
set facp=(-F/usr/lib/imagen/font/ftXX )
set PATH=(. /usr/local/bin /usr/bin /usr/ucb )
set path=($PATH)
set local load=(1)
unset t w dv i doremote
top:
	if ($#argv > 0) then
		switch ($argv[1])

		case -sd:
			set dv
			shift argv
			goto top

		case -si:
			set i
			shift argv
			goto top

		case -sc:
		case -t:
			set t
			shift argv
			goto top

		case -w:
			set w
			shift argv
			goto top

		case -x:
			set macp=()
			shift argv
			goto top

		case -F:
			shift argv
			if ($#argv > 0) then
				set flags = ($flags -F$argv[1]/ftXX)
				set cflags = ($cflags -C$argv[1]/catab)
				set facp = ()
				set w
				shift argv
			endif
			goto top

		case -c*:
			set cflags = ($cflags $argv[1])
			shift argv
			goto top
		case -h:
			set host = ($argv[1])
			set doremote
			shift argv
			set host= ($host $argv[1])
			set rshhost= ($argv[1])
			shift argv
			goto top

		case -l:
			unset local
			shift argv
			goto top

		case -r:
			shift argv
			set load=($argv[1])
			shift argv
			goto top

		case -*:
			set flags = ($flags $argv[1])
			shift argv
			goto top

		endsw
	endif
if ($#argv == 0) then
	set argv=(-)
	set banner=stdin
else
	set banner="$argv"
endif
/usr/local/bin/load -s $load
if ($status == 0 && $?local) then
	set troffcmd=(rtroff)
	set catcmd=(/usr/local/bin/rcatdvi $host )
else
	set troffcmd=(troff)
	set catcmd=(/usr/local/bin/catdvi)
	set host=()
endif
if ($?doremote) then
	set troffcmd=(rtroff)
	set catcmd=(rcatdvi $host )
endif
if ($?t) then
    /usr/bin/troff -x -t $flags $facp $macp $*
else
    /usr/bin/fgrep -s ,`/usr/ucb/whoami`, /etc/restrict/mdqs/ltroff_users
    if ($status) then
         echo Sorry, you\'re not authorized to send directly to the Imagen.
	else if ($?dv) then
	    $troffcmd $host -x -t $flags $facp $macp $* | $catcmd -b "$banner" $cflags
	else if ($?i) then
	    $troffcmd $host -x -t $flags $facp $macp $* | $catcmd -a -b "$banner" $cflags 
	else if ($?w) then
	    $troffcmd $host -x -t $flags $facp $macp $* | $catcmd -b "$banner" $cflags
	else 
	    $troffcmd $host -x -t $flags $facp $macp $* | $catcmd -a -b "$banner" $cflags | /usr/bin/qpr -q imagen-imp
#######else
#######    /usr/bin/troff -x -t $flags $facp $macp $* | /usr/ucb/lpr -Pimagen -t
	endif
endif
