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