Home | History | Annotate | Line # | Download | only in vgrind
vgrind.sh revision 1.1 
      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 | \
    119 		sh -c "vtroff -rx1 $voptions -i -mvgrind 2>> xindex"
    120 	else
    121 	    $vf $options $files | \
    122 		sh -c "vtroff -rx1 $voptions -i -mvgrind 2>> xindex"
    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
    136 	    $vf $options -h "$head" $files | vtroff -i $voptions -mvgrind
    137 	else
    138 	    $vf $options $files | vtroff -i $voptions -mvgrind
    139 	endif
    140     endif
    141 endif
    142 
    143 done:
    144