|
|
1.1 root 1: #! /bin/sh
2: #
3: # @(#)nettroff.sh 4.1 (Berkeley) 9/12/82
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
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.