date and time created 83/08/05 13:35:46 by sam
[unix-history] / usr / src / old / vpr / vtroff.sh
index 609d163..b54d75d 100644 (file)
@@ -1,41 +1,34 @@
 #! /bin/csh -f
 #
 #! /bin/csh -f
 #
-#      @(#)vtroff.sh   1.4     (Berkeley)      %G%
+#      @(#)vtroff.sh   4.2     (Berkeley)      %G%
 #
 #
-set remote = ucbernie
-set execdir = /usr/ucb
-if ($remote != `hostname`) then
-       set cmd = "/usr/ucb/rsh $remote"
-else
-       set cmd = ""
-endif
 umask 0
 umask 0
-set flags=() noglob length=() fonts=() fontf=() macp=(/usr/lib/tmac/tmac.vcat)
+set flags=() noglob length=() fonts=() fontf=()
 unset t
 unset t
+set macp = (/usr/lib/tmac/tmac.vcat)
+set sort = (/usr/lib/rvsort)
+set lpr = (/usr/ucb/lpr -Pvarian)
 top:
        if ($#argv > 0) then
                switch ($argv[1])
 top:
        if ($#argv > 0) then
                switch ($argv[1])
-
                case -t:
                        set t
                        shift argv
                        goto top
                case -t:
                        set t
                        shift argv
                        goto top
-
                case -l*:
                        set length = $argv[1]
                        shift argv
                        goto top
                case -l*:
                        set length = $argv[1]
                        shift argv
                        goto top
-
                case -V:
                case -V:
-                       unset wide
+                       set sort = (/usr/lib/rvsort)
+                       set lpr = (/usr/ucb/lpr -Pvarian)
                        shift argv
                        goto top
                        shift argv
                        goto top
-
                case -W:
                case -W:
-                       set wide
+                       set sort = (/usr/lib/vsort -W)
+                       set lpr = (/usr/ucb/lpr -Pversatec)
                        shift argv
                        goto top
                        shift argv
                        goto top
-
                case -F:
                        if ($#argv < 2) then
                                echo -F takes following font name.
                case -F:
                        if ($#argv < 2) then
                                echo -F takes following font name.
@@ -43,7 +36,6 @@ top:
                        endif
                        set argv=(-1 $2.r -2 $2.i -3 $2.b $argv[3-])
                        goto top
                        endif
                        set argv=(-1 $2.r -2 $2.i -3 $2.b $argv[3-])
                        goto top
-
                case -1:
                case -2:
                case -3:
                case -1:
                case -2:
                case -3:
@@ -69,37 +61,28 @@ top:
                        shift argv
                        shift argv
                        goto top
                        shift argv
                        shift argv
                        goto top
-
                case -x:
                        set macp=()
                        shift argv
                        goto top
                case -x:
                        set macp=()
                        shift argv
                        goto top
-
                case -*:
                        set flags = ($flags $argv[1])
                        shift argv
                        goto top
                case -*:
                        set flags = ($flags $argv[1])
                        shift argv
                        goto top
-
                endsw
        endif
 if ($#argv == 0) then
        set argv=(-)
                endsw
        endif
 if ($#argv == 0) then
        set argv=(-)
+       set banner=vtroff
+else
+       set banner=$argv[1]
 endif
 endif
-if ($?wide) then
-    if ($?t) then
-       /usr/bin/troff -t -rv1 $flags $macp $fontf $* | /usr/lib/vsort -W $length
-    else
-       /usr/bin/troff -t -rv1 $flags $macp $fontf $* | \
-           /usr/lib/vsort -W $length | $cmd $execdir/vpr -W -t $fonts
-    endif
+if ($?t) then
+    /usr/bin/troff -t -rv1 $flags $macp $fontf $* | $sort $length
 else
 else
-    if ($?t) then
-       /usr/bin/troff -t -rv1 $flags $macp $fontf $* | /usr/lib/rvsort $length
-    else
-       /usr/bin/troff -t -rv1 $flags $macp $fontf $* | \
-           /usr/lib/rvsort $length | $cmd $execdir/vpr -t $fonts
-    endif
+    /usr/bin/troff -t -rv1 $flags $macp $fontf $* | $sort $length |\
+       $lpr -J$banner -t $fonts
 endif
 if ($#fontf) then
 endif
 if ($#fontf) then
-       rm $fontf
+    /bin/rm $fontf
 endif
 endif