xref: /freebsd/usr.bin/vgrind/vgrind.sh (revision 8e537d168674d6b65869f73c20813001af875738)
1#!/bin/csh -f
2#
3# Copyright (c) 1980, 1993
4#	The Regents of the University of California.  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	8.1 (Berkeley) 6/6/93
35#
36
37set voptions=
38set options=
39set files=
40set f=''
41set head=""
42set vf=/usr/libexec/vfontedpr
43set tm=/usr/share/tmac
44set postproc=psroff
45top:
46if ($#argv > 0) then
47    switch ($1:q)
48
49    case -f:
50	set f='filter'
51	set options = "$options $1:q"
52	shift
53	goto top
54
55    case -t:
56	set voptions = "$voptions -t"
57	shift
58	goto top
59
60    case -o*:
61	set voptions="$voptions $1:q"
62	shift
63	goto top
64
65    case -W:
66	set voptions = "$voptions -W"
67	shift
68	goto top
69
70    case -d:
71	if ($#argv < 2) then
72	    echo "vgrind: $1:q option must have argument"
73	    goto done
74	else
75	    set options = ($options $1:q $2)
76	    shift
77	    shift
78	    goto top
79	endif
80
81    case -h:
82	if ($#argv < 2) then
83	    echo "vgrind: $1:q option must have argument"
84	    goto done
85	else
86	    set head="$2"
87	    shift
88	    shift
89	    goto top
90	endif
91
92    case -p:
93	if ($#argv < 2) then
94	    echo "vgrind: $1:q option must have argument"
95	    goto done
96	else
97	    set postproc="$2"
98	    shift
99	    shift
100	    goto top
101	endif
102
103    case -*:
104	set options = "$options $1:q"
105	shift
106	goto top
107
108    default:
109	set files = "$files $1:q"
110	shift
111	goto top
112    endsw
113endif
114if (-r index) then
115    echo > nindex
116    foreach i ($files)
117	#	make up a sed delete command for filenames
118	#	being careful about slashes.
119	echo "? $i ?d" | sed -e "s:/:\\/:g" -e "s:?:/:g" >> nindex
120    end
121    sed -f nindex index >xindex
122    if ($f == 'filter') then
123	if ("$head" != "") then
124	    $vf $options -h "$head" $files | cat $tm/tmac.vgrind -
125	else
126	    $vf $options $files | cat $tm/tmac.vgrind -
127	endif
128    else
129	if ("$head" != "") then
130	    $vf $options -h "$head" $files | \
131		sh -c "$postproc -rx1 $voptions -i -mvgrind 2>> xindex"
132	else
133	    $vf $options $files | \
134		sh -c "$postproc -rx1 $voptions -i -mvgrind 2>> xindex"
135	endif
136    endif
137    sort -df +0 -2 xindex >index
138    rm nindex xindex
139else
140    if ($f == 'filter') then
141	if ("$head" != "") then
142	    $vf $options -h "$head" $files | cat $tm/tmac.vgrind -
143	else
144	    $vf $options $files | cat $tm/tmac.vgrind -
145	endif
146    else
147	if ("$head" != "") then
148	    $vf $options -h "$head" $files | $postproc -i $voptions -mvgrind
149	else
150	    $vf $options $files | $postproc -i $voptions -mvgrind
151	endif
152    endif
153endif
154
155done:
156