Return to vgrind.sh CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / vgrind

Annotation of 43BSDTahoe/ucb/vgrind/vgrind.sh, revision 1.1

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

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