|
|
1.1 ! root 1: # nettroff typeset on CC or VAX typesetter ! 2: # VAX->A version ! 3: set local=v ! 4: set typesetter=a ! 5: set troff=troff ! 6: set net=/usr/ucb/net ! 7: set whoami=/usr/ucb/whoami ! 8: onintr remove ! 9: set flags=() noglob length=() fonts=() fontf=() ! 10: top: ! 11: if ($#argv > 0) then ! 12: switch ($argv[1]) ! 13: ! 14: case -l*: ! 15: case -F: ! 16: case -1: ! 17: case -2: ! 18: case -3: ! 19: case -a: ! 20: case -b: ! 21: case -f: ! 22: case -g: ! 23: case -s*: ! 24: case -w: ! 25: echo $argv[1] not allowed. ! 26: exit(1) ! 27: ! 28: case -*: ! 29: set flags = ($flags $argv[1]) ! 30: shift argv ! 31: goto top ! 32: ! 33: endsw ! 34: endif ! 35: if ($#argv == 0) then ! 36: set argv=(-) ! 37: endif ! 38: $troff -t $flags $fontf $* >/usr/tmp/vp$$ ! 39: # check for valid format before sending off to A machine ! 40: /usr/net/bin/chktroff /usr/tmp/vp$$ ! 41: if ($status != 0) then ! 42: goto remove ! 43: endif ! 44: set person=`$whoami` ! 45: $net -q -m $typesetter -s /usr/tmp/vp$$ -c "nettroff $*" "/usr/lib/ntq -m $local -n $person" ! 46: remove: ! 47: rm -f /usr/tmp/vp$$ ! 48: if ($#fontf) then ! 49: rm -f $fontf ! 50: endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.