Return to vgrind.sh CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / vgrind

Annotation of 42BSD/ucb/vgrind/vgrind.sh, revision 1.1.1.1

1.1       root        1: #! /bin/csh
                      2: #
                      3: #      @(#)vgrind.sh   1.8     (Berkeley)      10/21/82
                      4: #
                      5: # vgrind
                      6: #
                      7: set b=/usr/lib
                      8: set voptions=
                      9: set options=
                     10: set files=
                     11: set f=''
                     12: set head=""
                     13: top:
                     14: if ($#argv > 0) then
                     15:     switch ($1:q)
                     16: 
                     17:     case -f:
                     18:        set f='filter'
                     19:        set options = "$options $1:q"
                     20:        shift
                     21:        goto top
                     22: 
                     23:     case -t:
                     24:        set voptions = "$voptions -t"
                     25:        shift
                     26:        goto top
                     27: 
                     28:     case -o*:
                     29:        set voptions="$voptions $1:q"
                     30:        shift
                     31:        goto top
                     32: 
                     33:     case -W:
                     34:        set voptions = "$voptions -W"
                     35:        shift
                     36:        goto top
                     37: 
                     38:     case -d:
                     39:        if ($#argv < 2) then
                     40:            echo "vgrind: $1:q option must have argument"
                     41:            goto done
                     42:        else
                     43:            set options = ($options $1:q $2)
                     44:            shift
                     45:            shift
                     46:            goto top
                     47:        endif
                     48:                        
                     49:     case -h:
                     50:        if ($#argv < 2) then
                     51:            echo "vgrind: $1:q option must have argument"
                     52:            goto done
                     53:        else
                     54:            set head="$2"
                     55:            shift
                     56:            shift
                     57:            goto top
                     58:        endif
                     59:                        
                     60:     case -*:
                     61:        set options = "$options $1:q"
                     62:        shift
                     63:        goto top
                     64: 
                     65:     default:
                     66:        set files = "$files $1:q"
                     67:        shift
                     68:        goto top
                     69:     endsw
                     70: endif
                     71: if (-r index) then
                     72:     echo > nindex
                     73:     foreach i ($files)
                     74:        #       make up a sed delete command for filenames
                     75:        #       being careful about slashes.
                     76:        echo "? $i ?d" | sed -e "s:/:\\/:g" -e "s:?:/:g" >> nindex
                     77:     end
                     78:     sed -f nindex index >xindex
                     79:     if ($f == 'filter') then
                     80:        if ("$head" != "") then
                     81:            $b/vfontedpr $options -h "$head" $files | cat $b/tmac/tmac.vgrind -
                     82:        else
                     83:            $b/vfontedpr $options $files | cat $b/tmac/tmac.vgrind -
                     84:        endif
                     85:     else
                     86:        if ("$head" != "") then
                     87:            $b/vfontedpr $options -h "$head" $files | \
                     88:                /bin/sh -c "vtroff -rx1 $voptions -i -mvgrind 2>> xindex"
                     89:        else
                     90:            $b/vfontedpr $options $files | \
                     91:                /bin/sh -c "vtroff -rx1 $voptions -i -mvgrind 2>> xindex"
                     92:        endif
                     93:     endif
                     94:     sort -df +0 -2 xindex >index
                     95:     rm nindex xindex
                     96: else
                     97:     if ($f == 'filter') then
                     98:        if ("$head" != "") then
                     99:            $b/vfontedpr $options -h "$head" $files | cat $b/tmac/tmac.vgrind -
                    100:        else
                    101:            $b/vfontedpr $options $files | cat $b/tmac/tmac.vgrind -
                    102:        endif
                    103:     else
                    104:        if ("$head" != "") then
                    105:            $b/vfontedpr $options -h "$head" $files \
                    106:                | vtroff -i $voptions -mvgrind
                    107:        else
                    108:            $b/vfontedpr $options $files \
                    109:                | vtroff -i $voptions -mvgrind
                    110:        endif
                    111:     endif
                    112: endif
                    113: 
                    114: done:

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.