#!/bin/sh
#
# $Id$
#
# Removes symbols (tags) set in RCS (*,v) files, set between 'symbols'
# and 'locks' section of the RCS file.
if [ -z "$1" ]; then
echo "usage: `basename $0` dir [dir2 ..]" >&2
exit 100
fi
find $@ -name '*,v' -print0 | xargs -0 \
perl -i -nle '$skip = 1 if s/^(symbols)$/$1;/;' \
-e '$skip = 0 if /^locks/; print unless $skip and /^\s/'