head     1.3;
access   ;
symbols  ;
locks    ; strict;
comment  @# @;


1.3
date     91.04.28.13.16.14;  author ram;  state Exp;
branches ;
next     1.2;

1.2
date     91.04.20.22.45.36;  author wlott;  state Exp;
branches ;
next     1.1;

1.1
date     91.03.08.19.41.02;  author ram;  state Exp;
branches ;
next     ;


desc
@Script to find all the RCS changes since a particular date in a subtree.
@


1.3
log
@Changed to repeatedly exec rlog instead of just calling once, as it seems to
lose big if you give it too many files.  Also, added a -time option which is
passed through to find to reduce the number of times rlog is called.
@
text
@#!/bin/csh -f

set from = ""
set to = ""
set mtime = ()
set dirs = ()

while ($#argv > 0)
	if ("$argv[1]" !~ -*) then
		set dirs = ($dirs $argv[1])
	else
		switch ($argv[1])
			case "-from":
				set from = $argv[2]
				shift
				breaksw
			case "-to":
				set to = $argv[2]
				shift
				breaksw
			case "-mtime":
			        set mtime = ($argv[1-2])
				shift
				breaksw
			default:
				echo "Bogus switch: $argv[1]"
				exit
		endsw
	endif
	shift
end

if ($#dirs == 0) set dirs = .

find $dirs -follow -name '*,v' $mtime -exec rlog  "-d$from<$to" '{}' \; | \
    sed -n -e '/^RCS file:/p' -e '/^------/,/^======/p' | \
    sed -e '/^RCS file:/{;:again\
	N;s/^RCS file.*\nRCS file/RCS file/;t again\
	}' 
@


1.2
log
@Fixed the -to switch.
@
text
@d5 1
d21 4
d35 1
a35 2
find $dirs -follow -name '*,v' -print | \
    rlog - "-d$from<$to" | \
@


1.1
log
@Initial revision
@
text
@d17 1
a17 1
				set from = $argv[2]
@
