date and time created 83/08/05 13:34:33 by sam

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

diff --git a/usr/src/old/vpr/vpr.sh b/usr/src/old/vpr/vpr.sh
index e2dbbb8..ea9abe0 100644 (file)
--- a/usr/src/old/vpr/vpr.sh
+++ b/usr/src/old/vpr/vpr.sh
@@ -1,57 +1,24 @@
 #! /bin/csh -f
 #
 #! /bin/csh -f
 #

-#      @(#)vpr.sh      1.5     (Berkeley)      %G%
+#      @(#)vpr.sh      4.1     (Berkeley)      %G%

 #
 #

-# vpr.sh - Use on machines without raster plotters
-#
-set remote = ucbernie
-set execdir = /usr/ucb
-if ($remote != `hostname`) then
-       set cmd = "/usr/ucb/rsh $remote $execdir"
-else
-       set cmd = "/usr/lib"
-endif
-set flags=() files=()
+set flags = ()
+set printer = -Pvarian

 top:
        if ($#argv > 0) then
                switch ($argv[1])
 top:
        if ($#argv > 0) then
                switch ($argv[1])

-
-               case -m:
-                       echo "Sorry, the '$argv[1]' flag is not supported."
+               case -V:
+                       set printer = -Pvarian

                        shift argv
                        goto top
                        shift argv
                        goto top

-
-               case -1:
-               case -2:
-               case -3:
-               case -4:
-                       if ($#argv > 1) then
-                               set flags = ($flags $argv[1] $argv[2])
-                               shift argv
-                               shift argv
-                               goto top
-                       else
-                               echo $argv[1] takes following font name.
-                               exit(1)
-                       endif
-
-               case -*:
-                       set flags = ($flags $argv[1])
+               case -W:
+                       set printer = -Pversatec

                        shift argv
                        goto top
                        shift argv
                        goto top

-               
-               default:
-                       set files = ($files $argv[1])
+               case -*:
+                       set flags = ($flags $argv[1])

                        shift argv
                        goto top
                        shift argv
                        goto top

-

                endsw
        endif
                endsw
        endif

-
-if ($#files) then
-       foreach i ($files)
-               $cmd/vpr $flags < $i
-       end
-else
-       $cmd/vpr $flags
-endif
+/usr/ucb/lpr $printer $flags $*