Return to sccs CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / pascal / pdx

Annotation of 42BSD/ucb/pascal/pdx/sccs, revision 1.1

1.1     ! root        1: #! /bin/csh -f
        !             2: #
        !             3: # Simple version of the "sccs" command that understands
        !             4: # subdirectories better.
        !             5: #
        !             6: 
        !             7: set dir = SCCS
        !             8: set command = $1
        !             9: shift
        !            10: set flags = ()
        !            11: set files = ()
        !            12: foreach i ($*)
        !            13:     if ($i == "-*") then
        !            14:        set flags = ($flags $i)
        !            15:     else
        !            16:        set files = ($files $i)
        !            17:     endif
        !            18: end
        !            19: 
        !            20: if ($command == info) then
        !            21:     foreach i (SCCS/{p.*,*/p.*})
        !            22:        echo $i:t `cat $i`
        !            23:     end
        !            24:     exit 0
        !            25: endif
        !            26: 
        !            27: foreach i ($files)
        !            28:     if ($i:h == $i:t) then
        !            29:        set sfile = $dir/s.$i
        !            30:     else
        !            31:        set sfile = $dir/$i:h/s.$i:t
        !            32:     endif
        !            33:     switch ($command)
        !            34:        case get:
        !            35:            get $flags $sfile
        !            36:            if ($i:h != $i:t) then
        !            37:                mv -f $i:t $i
        !            38:            endif
        !            39:            breaksw
        !            40: 
        !            41:        case edit:
        !            42:            get -e $flags $sfile
        !            43:            if ($i:h != $i:t) then
        !            44:                mv -f $i:t $i
        !            45:            endif
        !            46:            breaksw
        !            47: 
        !            48:        case delta:
        !            49:            if ($i:h != $i:t) then
        !            50:                mv -f $i $i:t
        !            51:            endif
        !            52:            delta $flags $sfile
        !            53:            breaksw
        !            54: 
        !            55:        case delget:
        !            56:            ./sccs delta $i
        !            57:            ./sccs get $i
        !            58:            breaksw
        !            59: 
        !            60:        case deledit:
        !            61:            ./sccs delta $i
        !            62:            ./sccs edit $i
        !            63:            breaksw
        !            64: 
        !            65:        case prt:
        !            66:            prt $sfile
        !            67:            breaksw
        !            68: 
        !            69:        default:
        !            70:            echo $command\: unknown command
        !            71:            exit 1
        !            72:     endsw
        !            73: end

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