head     1.1;
branch   ;
access   ;
symbols  ;
locks    ; strict;
comment  @# @;


1.1
date     90.03.24.22.08.03;  author kevin;  state Exp;
branches ;
next     ;


desc
@@



1.1
log
@Initial revision
@
text
@#! /bin/csh -f
#
#	ldrcs <command> <destination>
#
switch ($1)
    case co:
	set rcscmd=(co -l)
	breaksw
    case ci:
	set rcscmd=(ci -u)
	breaksw
    case uco:
	set rcscmd=(rcs -u)
	breaksw
    default:
	echo "Usage: $0 [ci|co|uco] <destination>
	exit 1
endsw

echo "enter files to $rcscmd, terminate w/ just return"
set files=($<)
while ($#files != 0)
    set rcsfiles=()
    foreach file ($files)
	if (-e $2/RCS/$file,v) then
	    set rcsfiles=($rcsfiles $2/RCS/$file,v)
	else
	    echo "cannot find $2/RCS/$file,v"
	endif
    end
    if ($#rcsfiles != 0) then
	$rcscmd $rcsfiles
	if ("$1" == "uco") then
	    chmod -w $files
	    co -q $rcsfiles
	endif
    endif
    echo "enter more files to $rcscmd, or terminate w/ just return"
    set files=($<)
end
@
