![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to vgrind.sh CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / pgrm / vgrind|
Return to vgrind.sh CVS log | Up to [CSRG BSD Unix] / 43BSDReno / pgrm / vgrind |
1.1 root 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 are permitted
7: # provided that the above copyright notice and this paragraph are
8: # duplicated in all such forms and that any documentation,
9: # advertising materials, and other materials related to such
10: # distribution and use acknowledge that the software was developed
11: # by the University of California, Berkeley. The name of the
12: # University may not be used to endorse or promote products derived
13: # from this software without specific prior written permission.
14: # THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
15: # IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
16: # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
17: #
18: # @(#)vgrind.sh 5.6 (Berkeley) 5/1/89
19: #
20: set voptions=
21: set options=
22: set files=
23: set f=''
24: set head=""
25: set vf=/usr/libexec/vfontedpr
26: set tm=/usr/share/tmac
27: top:
28: if ($#argv > 0) then
29: switch ($1:q)
30:
31: case -f:
32: set f='filter'
33: set options = "$options $1:q"
34: shift
35: goto top
36:
37: case -t:
38: set voptions = "$voptions -t"
39: shift
40: goto top
41:
42: case -o*:
43: set voptions="$voptions $1:q"
44: shift
45: goto top
46:
47: case -W:
48: set voptions = "$voptions -W"
49: shift
50: goto top
51:
52: case -d:
53: if ($#argv < 2) then
54: echo "vgrind: $1:q option must have argument"
55: goto done
56: else
57: set options = ($options $1:q $2)
58: shift
59: shift
60: goto top
61: endif
62:
63: case -h:
64: if ($#argv < 2) then
65: echo "vgrind: $1:q option must have argument"
66: goto done
67: else
68: set head="$2"
69: shift
70: shift
71: goto top
72: endif
73:
74: case -*:
75: set options = "$options $1:q"
76: shift
77: goto top
78:
79: default:
80: set files = "$files $1:q"
81: shift
82: goto top
83: endsw
84: endif
85: if (-r index) then
86: echo > nindex
87: foreach i ($files)
88: # make up a sed delete command for filenames
89: # being careful about slashes.
90: echo "? $i ?d" | sed -e "s:/:\\/:g" -e "s:?:/:g" >> nindex
91: end
92: sed -f nindex index >xindex
93: if ($f == 'filter') then
94: if ("$head" != "") then
95: $vf $options -h "$head" $files | cat $tm/tmac.vgrind -
96: else
97: $vf $options $files | cat $tm/tmac.vgrind -
98: endif
99: else
100: if ("$head" != "") then
101: $vf $options -h "$head" $files | \
102: sh -c "vtroff -rx1 $voptions -i -mvgrind 2>> xindex"
103: else
104: $vf $options $files | \
105: sh -c "vtroff -rx1 $voptions -i -mvgrind 2>> xindex"
106: endif
107: endif
108: sort -df +0 -2 xindex >index
109: rm nindex xindex
110: else
111: if ($f == 'filter') then
112: if ("$head" != "") then
113: $vf $options -h "$head" $files | cat $tm/tmac.vgrind -
114: else
115: $vf $options $files | cat $tm/tmac.vgrind -
116: endif
117: else
118: if ("$head" != "") then
119: $vf $options -h "$head" $files | vtroff -i $voptions -mvgrind
120: else
121: $vf $options $files | vtroff -i $voptions -mvgrind
122: endif
123: endif
124: endif
125:
126: done:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.