#!/bin/sh
# rcslocks -- List RCS files with active locks
case $# in
0)
	if [ -d RCS ]
	then
		set RCS
	else
		set .
	fi
	;;
esac

find "$@" -name '*,v' -print |
xargs grep -l '^locks$'