#!/bin/sh
# rcsall -- Run a command in the directory above every RCS directory 
#           under the current one.
# Usage: rcsall commands
#

for f in `find . -name RCS \( -type d -o -type l \) -print`
do
    (cd $f/..; echo '---->' `pwd` ; eval $*)
done
