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