![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ditroff CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / new / dipress / doc|
Return to ditroff CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / new / dipress / doc |
1.1 root 1: #! /bin/csh -f
2: set troff = /usr/local/troff_p
3: set dterm = (/usr/local/dterm -m -c)
4: #! /bin/csh -f These three lines come from Makefile
5: # set troff = /usr/local/troff_p
6: # set dterm = (/usr/local/dterm -m -c)
7: set typesetter = -Pip
8: set lineprinter = -Pvx
9: set type = -Tip
10: if ($?PRINTER) then
11: set typesetter = -P$PRINTER
12: set lineprinter = -P$PRINTER
13: set type = -T$PRINTER
14: endif
15: if ($?TYPESETTER) then
16: set typesetter = -P$TYPESETTER
17: set type = -T$TYPESETTER
18: endif
19: set lpr = /usr/ucb/lpr
20: umask 0
21: set flags=() noglob files=() rv1=-rv1
22: unset t
23: top:
24: if ($#argv > 0) then
25: switch ($argv[1])
26: case -z:
27: case -a:
28: set flags = ($flags $argv[1])
29: case -t:
30: set t
31: shift argv
32: goto top
33: case -Pversatec:
34: case -Pvp:
35: case -W:
36: set typesetter = -Pvp
37: set type = -Tvp
38: shift argv
39: goto top
40: case -Pxerox:
41: case -Ppress:
42: case -Pdp:
43: set typesetter = -Pdp
44: set type = -Tdp
45: shift argv
46: goto top
47: case -Pipress2:
48: case -Pop:
49: set typesetter = -Pop
50: set type = -Tdp
51: shift argv
52: goto top
53: case -Pimagen:
54: case -Pip:
55: case -I:
56: set typesetter = -Pip
57: set type = -Tip
58: shift argv
59: goto top
60: case -Pimagen-cx:
61: case -P300:
62: case -Pcx:
63: set typesetter = -Pcx
64: set type = -Tcx
65: shift argv
66: goto top
67: case -Papple-lz:
68: case -Plazy:
69: case -Plz:
70: set typesetter = -Plz
71: set type = -Tpsc
72: shift argv
73: goto top
74: case -Paps:
75: set typesetter = -Paps
76: set type = -Taps
77: shift argv
78: goto top
79: case -Pter:
80: set typesetter = -Pter
81: set type = -Tter
82: shift argv
83: goto top
84: case -P*:
85: set typesetter = $argv[1]
86: if ($?gottype) set type = $argv[1]
87: shift argv
88: goto top
89: case -T*:
90: set type = $argv[1]
91: set gottype
92: shift argv
93: goto top
94: case -F*:
95: set flags = ($flags $argv[1])
96: shift argv
97: goto top
98: case -:
99: set files = ($files -)
100: shift argv
101: goto top
102: case -*:
103: set flags = ($flags $argv[1])
104: shift argv
105: goto top
106: default:
107: set files = ($files $argv[1])
108: shift argv
109: goto top
110: endsw
111: endif
112:
113: switch ($type)
114: case -Tvp:
115: set rv1=""
116: breaksw
117: case -Tlz:
118: set type = -Tpsc
119: breaksw
120: case -Taps:
121: set troff=/usr/old/ditroff
122: set rv1="-rv2"
123: # incomplete, need to replace lpr
124: set t
125: breaksw
126: endsw
127:
128: if ($#files > 0) then
129: set name = $files[1]
130: else
131: set name = ditroff
132: endif
133:
134: if ($?t) then
135: if ($typesetter == ter) then
136: $troff -Tter $rv1 $flags $files | $dterm
137: else
138: $troff $type $rv1 $flags $files
139: endif
140: else if ($typesetter == ter) then
141: $troff -Tter $rv1 $flags $files | $dterm -L | $lpr $lineprinter -J$name
142: else
143: $troff $type $rv1 $flags $files | $lpr $typesetter -n -J$name
144: endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.