    # sh script to take things out of SCCS s.* files and remove the s.* files
    # usage: unadmin {filenames}

    # example:
    # 	find . -name "s.*" -print | xargs unadmin
    # will take an entire tree and remove all trasces of SCCS

    # Note: does not look for p.* files

dot=`pwd`

for i in $*; do
    dirname=`dirname $i`
    basename=`basename $i`
    name=`echo $basename | sed -e s/s.//`
    cd $dirname
    if get -s -p $basename > undelta$$; then
	if mv -f undelta$$ $name; then
	    rm -f $basename;
	else
	    exit 9;
	fi
    else
	exit 10;
    fi
    cd $dot
done

