Return to nettroff.sh CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / berknet

Annotation of 40BSD/cmd/berknet/nettroff.sh, revision 1.1.1.1

1.1       root        1: #      nettroff        typeset on CC or VAX typesetter
                      2: #
                      3: #      don't change this code - it is updated remotely
                      4: #      mail problems to "csvax:schmidt" -- your changes wil be lost
                      5: #
                      6: #      A machine phototypesetter version
                      7: #
                      8: set local=`cat /usr/include/whoami`
                      9: set typesetter=a
                     10: set troff=troff
                     11: set net=/usr/ucb/net
                     12: set whoami=/usr/ucb/whoami
                     13: onintr remove
                     14: set flags=() noglob length=() fonts=() fontf=()
                     15: top:
                     16:        if ($#argv > 0) then
                     17:                switch ($argv[1])
                     18: 
                     19:                case -l*:
                     20:                case -F:
                     21:                case -1:
                     22:                case -2:
                     23:                case -3:
                     24:                case -a:
                     25:                case -b:
                     26:                case -f:
                     27:                case -g:
                     28:                case -s*:
                     29:                case -w:
                     30:                        echo $argv[1] not allowed.
                     31:                        exit(1)
                     32: 
                     33:                case -*:
                     34:                        set flags = ($flags $argv[1])
                     35:                        shift argv
                     36:                        goto top
                     37: 
                     38:                endsw
                     39:        endif
                     40: if ($#argv == 0) then
                     41:        set argv=(-)
                     42: endif
                     43: $troff -t $flags $fontf $* >/usr/tmp/vp$$
                     44: # check for valid format before sending off to A machine
                     45: /usr/net/bin/chktroff /usr/tmp/vp$$
                     46: if ($status != 0) then
                     47:        goto remove
                     48: endif
                     49: set person=`$whoami`
                     50: $net -q -m $typesetter -s /usr/tmp/vp$$ -c "nettroff $*" "/usr/lib/ntq -m $local -n $person"
                     51: remove:
                     52: rm -f /usr/tmp/vp$$
                     53: if ($#fontf) then
                     54:        rm -f $fontf
                     55: endif

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.