# FILE: SCcreate
#
# SYNOPSIS: SCcreate -r<release> -c<comment_file> file ...
#===========================================================
#
# PARSE COMMAND LINE
while ("$1" =~ -*) 
	switch ($1)
	case -r*:
		set release = $1
		if ("$release" =~ *.*) then
			echo "-r option: specify release WITHOUT level"
			exit (1)
		endif
		shift
		breaksw
	case -c*:
		set commt_file = `echo $1 | colrm 1 2`
		shift
		breaksw
	default:
		echo "Invalid option $1"
		exit (1)
	endsw
end
#
if ((! $?release) || (! $?commt_file) || ($#argv == 0)) then
	echo "Usage: SCcreate -r<release> -c<comment_file> file..."
	exit (1)
endif
#
# CREATE THE FILES
sccs create $release $argv
#
# WRITE THE COMMENTARY TO THE FIRST DELTA
set version = $release.1
foreach i ($argv)
	set filnam = SCCS/s.$i
	/usr/sccs/cdc $version $filnam <$commt_file
end
#
echo " "
echo "If not C source code, don't forget to add these new files to SCcreate"
