Commit | Line | Data |
---|---|---|
5812a2e0 BJ |
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 |