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


1.2
date	2011.01.26.01.09.03;	author dunc;	state Exp;
branches;
next	1.1;

1.1
date	2011.01.26.00.32.33;	author dunc;	state Exp;
branches;
next	;


desc
@@


1.2
log
@Tested OK
@
text
@#!/bin/sh
case "$1" in
"")
  i=.
  ;;
-)
  cd $2/..
  tstclean -r1.1 -u
  exit
  ;;
*)
  i=$1
  ;;
esac
find $i \( -type d -o -type l \) -name RCS -print -exec rcs2patch - {} \;
@


1.1
log
@(copy of megatstclean)
@
text
@d8 1
a8 1
  tstclean
d15 1
a15 1
find $i \( -type d -o -type l \) -name RCS -print -exec megatstclean - {} \;
@
