usr.bin/vgrind/vgrind.sh

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