1#! /bin/csh -f
2#
3#	@(#)vtroff.sh	4.4	(Berkeley)	5/4/84;	1.4	(CWI)	88/03/04
4#
5umask 0
6set flags=() noglob length=() fonts=() fontf=() banner=() Tflags=(-Tver) Dflags=()
7unset t
8set sort = (/usr/lib/vsort80)
9set lpr = (/usr/ucb/lpr -Pvp -n)
10set troff = (/usr/local/ditroff)
11set class = (`hostname`)
12top:
13	if ($#argv > 0) then
14		switch ($argv[1])
15		case -t:
16			set t
17			shift argv
18			goto top
19		case -h:
20			if ($#argv < 2) then
21				echo -h takes following host name.
22				exit(1)
23			endif
24			set host = $argv[2]
25			shift argv
26			shift argv
27			goto top
28		case -D:
29			set Dflags = -D
30			shift argv
31			goto top
32		case -J:
33			shift argv
34			set banner = $argv[1]
35			shift argv
36			goto top
37		case -C:
38			shift argv
39			set class = $argv[1]
40			shift argv
41			goto top
42		case -x:
43			set Tflags = -Thar
44			set banner = NewHarris
45			set lpr = (/usr/ucb/lpr -Pnvp -n)
46			set sort = (/usr/lib/nvsort80)
47			shift argv
48			goto top
49		case -N:
50			set Tflags = -Tnver
51			set banner = (NewHarris)
52			set lpr = (/usr/ucb/lpr -Pnvp -n)
53			shift argv
54			goto top
55		case -*:
56			set flags = ($flags $argv[1])
57			shift argv
58			goto top
59		case -:
60			breaksw
61		endsw
62	endif
63
64if ($#argv == 0) then
65	set argv=(-)
66	if ($#banner == 0) then
67		set banner=Vtroff
68	endif
69else
70	if ($#banner == 0) then
71		set banner=$argv[1]
72	endif
73endif
74
75set tflags=(-t -rv2 $flags)
76
77if ($?host) then
78    if ($?t) then
79	soelim $* | rsh $host \"$troff $tflags - | $sort \"
80    else
81	soelim $* | rsh $host \"$troff $Tflags $Dflags $tflags - | $sort | $lpr -Tvp -J$banner \"
82    endif
83else
84    if ($?t) then
85	$troff $tflags $* | $sort
86    else
87	$troff $Tflags $Dflags $tflags $* | $sort | $lpr -J$banner -C$class
88    endif
89endif
90