Commit | Line | Data |
---|---|---|
15637ed4 RG |
1 | #!/bin/csh -f |
2 | # | |
3 | # Copyright (c) 1980 The Regents of the University of California. | |
4 | # All rights reserved. | |
5 | # | |
6 | # Redistribution and use in source and binary forms, with or without | |
7 | # modification, are permitted provided that the following conditions | |
8 | # are met: | |
9 | # 1. Redistributions of source code must retain the above copyright | |
10 | # notice, this list of conditions and the following disclaimer. | |
11 | # 2. Redistributions in binary form must reproduce the above copyright | |
12 | # notice, this list of conditions and the following disclaimer in the | |
13 | # documentation and/or other materials provided with the distribution. | |
14 | # 3. All advertising materials mentioning features or use of this software | |
15 | # must display the following acknowledgement: | |
16 | # This product includes software developed by the University of | |
17 | # California, Berkeley and its contributors. | |
18 | # 4. Neither the name of the University nor the names of its contributors | |
19 | # may be used to endorse or promote products derived from this software | |
20 | # without specific prior written permission. | |
21 | # | |
22 | # THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | |
23 | # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |
24 | # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |
25 | # ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | |
26 | # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |
27 | # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | |
28 | # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | |
29 | # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | |
30 | # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | |
31 | # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | |
32 | # SUCH DAMAGE. | |
33 | # | |
34 | # @(#)vgrind.sh 5.7 (Berkeley) 4/16/91 | |
35 | # | |
36 | ||
37 | set voptions= | |
38 | set options= | |
39 | set files= | |
40 | set f='' | |
41 | set head="" | |
42 | set vf=/usr/libexec/vfontedpr | |
43 | set tm=/usr/share/tmac | |
44 | top: | |
45 | if ($#argv > 0) then | |
46 | switch ($1:q) | |
47 | ||
48 | case -f: | |
49 | set f='filter' | |
50 | set options = "$options $1:q" | |
51 | shift | |
52 | goto top | |
53 | ||
54 | case -t: | |
55 | set voptions = "$voptions -t" | |
56 | shift | |
57 | goto top | |
58 | ||
59 | case -o*: | |
60 | set voptions="$voptions $1:q" | |
61 | shift | |
62 | goto top | |
63 | ||
64 | case -W: | |
65 | set voptions = "$voptions -W" | |
66 | shift | |
67 | goto top | |
68 | ||
69 | case -d: | |
70 | if ($#argv < 2) then | |
71 | echo "vgrind: $1:q option must have argument" | |
72 | goto done | |
73 | else | |
74 | set options = ($options $1:q $2) | |
75 | shift | |
76 | shift | |
77 | goto top | |
78 | endif | |
79 | ||
80 | case -h: | |
81 | if ($#argv < 2) then | |
82 | echo "vgrind: $1:q option must have argument" | |
83 | goto done | |
84 | else | |
85 | set head="$2" | |
86 | shift | |
87 | shift | |
88 | goto top | |
89 | endif | |
90 | ||
91 | case -*: | |
92 | set options = "$options $1:q" | |
93 | shift | |
94 | goto top | |
95 | ||
96 | default: | |
97 | set files = "$files $1:q" | |
98 | shift | |
99 | goto top | |
100 | endsw | |
101 | endif | |
102 | if (-r index) then | |
103 | echo > nindex | |
104 | foreach i ($files) | |
105 | # make up a sed delete command for filenames | |
106 | # being careful about slashes. | |
107 | echo "? $i ?d" | sed -e "s:/:\\/:g" -e "s:?:/:g" >> nindex | |
108 | end | |
109 | sed -f nindex index >xindex | |
110 | if ($f == 'filter') then | |
111 | if ("$head" != "") then | |
112 | $vf $options -h "$head" $files | cat $tm/tmac.vgrind - | |
113 | else | |
114 | $vf $options $files | cat $tm/tmac.vgrind - | |
115 | endif | |
116 | else | |
117 | if ("$head" != "") then | |
118 | $vf $options -h "$head" $files | \ | |
c1bf8dd4 | 119 | sh -c "troff -rx1 $voptions -i -mvgrind 2>> xindex" |
15637ed4 RG |
120 | else |
121 | $vf $options $files | \ | |
c1bf8dd4 | 122 | sh -c "troff -rx1 $voptions -i -mvgrind 2>> xindex" |
15637ed4 RG |
123 | endif |
124 | endif | |
125 | sort -df +0 -2 xindex >index | |
126 | rm nindex xindex | |
127 | else | |
128 | if ($f == 'filter') then | |
129 | if ("$head" != "") then | |
130 | $vf $options -h "$head" $files | cat $tm/tmac.vgrind - | |
131 | else | |
132 | $vf $options $files | cat $tm/tmac.vgrind - | |
133 | endif | |
134 | else | |
135 | if ("$head" != "") then | |
c1bf8dd4 | 136 | $vf $options -h "$head" $files | troff -i $voptions -mvgrind |
15637ed4 | 137 | else |
c1bf8dd4 | 138 | $vf $options $files | troff -i $voptions -mvgrind |
15637ed4 RG |
139 | endif |
140 | endif | |
141 | endif | |
142 | ||
143 | done: |