date and time created 83/08/11 20:49:31 by sam

[unix-history] / usr / src / old / vpr / vtroff.sh

diff --git a/usr/src/old/vpr/vtroff.sh b/usr/src/old/vpr/vtroff.sh
index f50658f..b54d75d 100644 (file)
--- a/usr/src/old/vpr/vtroff.sh
+++ b/usr/src/old/vpr/vtroff.sh
@@ -1,31 +1,34 @@
-#      @(#)vtroff.sh   1.2     %G%
+#! /bin/csh -f
+#
+#      @(#)vtroff.sh   4.2     (Berkeley)      %G%
+#

 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.


@@ -33,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:


@@ -59,38 +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 | /usr/ucb/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 | /usr/ucb/vpr -t $fonts
-#          /usr/lib/vsort -c $length | /usr/ucb/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