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