|
|
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.