#! /bin/sh

# Bugger about with SCCS s. files
# You're mad if you run this.

for a
do
	if [ -f SCCS/p.$a ]
	then
		2>&1 echo $a is being edited!
		exit 1
	fi

	sfile=SCCS/s.$a


	(
	set -e		# Exit if any command fails.
	chmod +w $sfile
	vi $sfile
	sccs admin -z $sfile
	chmod -w $sfile
	get $sfile
	)
done