usr/src/ucb/berknet/nettroff.sh

#! /bin/sh
#
#       @(#)nettroff.sh 4.1     (Berkeley)      9/12/82
#
#       nettroff        typeset on CC or VAX typesetter
#
#       don't change this code - it is updated remotely
#       mail problems to "csvax:schmidt" -- your changes wil be lost
#
#       A machine phototypesetter version
#
set local=`cat /usr/include/whoami`
set typesetter=a
set troff=troff
set net=/usr/ucb/net
set whoami=/usr/ucb/whoami
onintr remove
set flags=() noglob length=() fonts=() fontf=()
top:
        if ($#argv > 0) then
                switch ($argv[1])

                case -l*:
                case -F:
                case -1:
                case -2:
                case -3:
                case -a:
                case -b:
                case -f:
                case -g:
                case -s*:
                case -w:
                        echo $argv[1] not allowed.
                        exit(1)

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

                endsw
        endif
if ($#argv == 0) then
        set argv=(-)
endif
$troff -t $flags $fontf $* >/usr/tmp/vp$$
# check for valid format before sending off to A machine
/usr/net/bin/chktroff /usr/tmp/vp$$
if ($status != 0) then
        goto remove
endif
set person=`$whoami`
$net -q -m $typesetter -s /usr/tmp/vp$$ -c "nettroff $*" "/usr/lib/ntq -m $local -n $person"
remove:
rm -f /usr/tmp/vp$$
if ($#fontf) then
        rm -f $fontf
endif