Commit | Line | Data |
---|---|---|
80f0b80d | 1 | # |
8951abd2 | 2 | # @(#)vpr.sh 1.2 (Berkeley) %G% |
80f0b80d KM |
3 | # |
4 | # vpr.sh - Use on machines without raster plotters | |
5 | # | |
6 | set remote = ucbernie | |
7 | set execdir = /usr/ucb | |
8 | if ($remote != `hostname`) then | |
8951abd2 | 9 | set cmd = "/usr/ucb/rsh $remote $execdir" |
80f0b80d | 10 | else |
8951abd2 | 11 | set cmd = "/usr/lib" |
80f0b80d KM |
12 | endif |
13 | set flags=() files=() | |
14 | top: | |
15 | if ($#argv > 0) then | |
16 | switch ($argv[1]) | |
17 | ||
18 | case -m: | |
19 | echo "Sorry, the '$argv[1]' flag is not supported." | |
20 | shift argv | |
21 | goto top | |
22 | ||
8951abd2 RH |
23 | case -1: |
24 | case -2: | |
25 | case -3: | |
26 | case -4: | |
27 | if ($#argv > 1) then | |
28 | set flags = ($flags $argv[1] $argv[2]) | |
29 | shift argv | |
30 | shift argv | |
31 | goto top | |
32 | else | |
33 | echo $argv[1] takes following font name. | |
34 | exit(1) | |
35 | endif | |
36 | ||
80f0b80d KM |
37 | case -*: |
38 | set flags = ($flags $argv[1]) | |
39 | shift argv | |
40 | goto top | |
41 | ||
42 | default: | |
43 | set files = ($files $argv[1]) | |
44 | shift argv | |
45 | goto top | |
46 | ||
47 | endsw | |
48 | endif | |
49 | ||
50 | if ($#files) then | |
51 | foreach i ($files) | |
8951abd2 | 52 | $cmd/vpr $flags < $i |
80f0b80d KM |
53 | end |
54 | else | |
8951abd2 | 55 | $cmd/vpr $flags |
80f0b80d | 56 | endif |