bill@ssbn.WLK.COM (Bill Kennedy) (12/27/89)
Having beaten my head against sccs for the last few days I tossed
together some scripts that are handy for getting stuff in and out
of sccs as well as putting a (hopefully) useful/appropriate sccs
key into the source. There's nothing fancy about thse, nor are
they bulletproof, but they are a lot easier to use than admin, get,
and delta. Hopefully someone with better developed sccs skills
will spruce them up and re-post.
============================ cut ======== cut =========== cut ============
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create:
# scopy
# sget
# skey
# snew
# sput
# This archive created: Tue Dec 26 17:16:09 1989
export PATH; PATH=/bin:/usr/bin:$PATH
echo shar: "extracting 'scopy'" '(332 characters)'
if test -f 'scopy'
then
echo shar: "will not over-write existing file 'scopy'"
else
sed 's/^ X//' << \SHAR_EOF > 'scopy'
X#
X# @(#)scopy.sh 1.1 @(#)scopy.sh 1.1 12/26/89 17:05:37
X# /usr/lbin/scopy
X#
X# Get a file from sccs but not for editing.
X#
Xif [ -z "$1" ]
Xthen
X echo "Usage: scopy -getflags file1 [file2 [file3]...]"
X exit 0
Xfi
Xflags=
Xfor arg in $*
Xdo
X case $arg in
X
X -*)
X flags=$flags" $arg"
X ;;
X *)
X get $flags s.$arg
X ;;
X esac
Xdone
SHAR_EOF
if test 332 -ne "`wc -c < 'scopy'`"
then
echo shar: "error transmitting 'scopy'" '(should have been 332 characters)'
fi
chmod +x 'scopy'
fi
echo shar: "extracting 'sget'" '(329 characters)'
if test -f 'sget'
then
echo shar: "will not over-write existing file 'sget'"
else
sed 's/^ X//' << \SHAR_EOF > 'sget'
X#
X# @(#)sget.sh 1.1 @(#)sget.sh 1.1 12/26/89 17:06:42
X# /usr/lbin/sget
X#
X# Check out a file from sccs for editing.
X#
Xif [ -z "$1" ]
Xthen
X echo "Usage: sget -getflags file1 [file2 [file3]...]"
X exit 0
Xfi
Xflags=
Xfor arg in $*
Xdo
X case $arg in
X
X -*)
X flags=$flags" $arg"
X ;;
X *)
X get -e $flags s.$arg
X ;;
X esac
Xdone
SHAR_EOF
if test 329 -ne "`wc -c < 'sget'`"
then
echo shar: "error transmitting 'sget'" '(should have been 329 characters)'
fi
chmod +x 'sget'
fi
echo shar: "extracting 'skey'" '(1489 characters)'
if test -f 'skey'
then
echo shar: "will not over-write existing file 'skey'"
else
sed 's/^ X//' << \SHAR_EOF > 'skey'
X# @(#)skey.sh 1.1 @(#)skey.sh 1.1 12/26/89 17:06:53
X#
X# /usr/lbin/skey
X#
X# This script will accept a string of file names and figure
X# out what kind(s) of sccs key(s) belong on the more common
X# kinds of source files.
X#
X# W. L. Kennedy, Jr. 10/28/89
X#
Xheader="@(#)skey.sh 1.1 @(#)skey.sh 1.1 12/26/89 17:06:53"
Xsccsc="static char *sccsid = \"$header\";" # for .c files
Xsccsh="/* $header */"
Xsccss="# $header"
X#
X# If no arguments, display usage
X#
Xif [ -z "$1" ]
Xthen
X echo "Usage: skey file1 [file2 [file3]...]"
X exit 1
Xfi
X#
X# Figure out what kind of file each of them is
X#
Xfor file in $*
Xdo
X if [ ! -f "$file" ]
X then
X echo "$0: invalid file $file"
X continue
X fi
X #
X # Pitch it if it already has an sccs key
X #
X if fgrep '@(#)skey.sh' $file > /dev/null 2>&1
X then
X echo "$file already has an sccs key"
X continue
X fi
X #
X # Pitch it if it already has a filled out sccs header
X #
X if fgrep '@(#)' $file > /dev/null 2>&1
X then
X echo "$file already has an sccs header"
X continue
X fi
X #
X # Select the appropriate sccs key for the file type
X #
X case $file in
X *.c)
X sccskey=$sccsc
X ;;
X *.h)
X sccskey=$sccsh
X ;;
X *)
X sccskey=$sccss
X ;;
X esac
X #
X # Now edit the appropriate key into the file
X #
X case $file in
X *.sh)
X ed - $file << EOF > /dev/null
X1a
X$sccskey
X.
Xw
Xq
XEOF
X ;;
X *.c)
X ed - $file << EOF > /dev/null
X0a
X#ifndef LINT
X$sccskey
X#endif
X.
Xw
Xq
XEOF
X ;;
X *)
X ed - $file << EOF > /dev/null
X0a
X$sccskey
X.
Xw
Xq
XEOF
X ;;
X esac
Xdone
SHAR_EOF
if test 1489 -ne "`wc -c < 'skey'`"
then
echo shar: "error transmitting 'skey'" '(should have been 1489 characters)'
fi
chmod +x 'skey'
fi
echo shar: "extracting 'snew'" '(443 characters)'
if test -f 'snew'
then
echo shar: "will not over-write existing file 'snew'"
else
sed 's/^ X//' << \SHAR_EOF > 'snew'
X#
X# @(#)snew.sh 1.1 @(#)snew.sh 1.1 12/26/89 17:07:01
X# /usr/lbin/snew
X#
X# Put a new file into sccs with the admin command
X#
Xif [ -z "$1" ]
Xthen
X echo "Usage: snew -adminflags file1 [file2 [file3]...]"
X exit 0
Xfi
Xflags=
Xfor arg in $*
Xdo
X case $arg in
X
X -*)
X flags=$flags" $arg"
X ;;
X *)
X if fgrep '@(#)%M' $arg > /dev/null 2>&1
X then
X admin -i$arg $flags s.$arg
X else
X echo "$arg has no sccs key"
X fi
X ;;
X esac
Xdone
SHAR_EOF
if test 443 -ne "`wc -c < 'snew'`"
then
echo shar: "error transmitting 'snew'" '(should have been 443 characters)'
fi
chmod +x 'snew'
fi
echo shar: "extracting 'sput'" '(318 characters)'
if test -f 'sput'
then
echo shar: "will not over-write existing file 'sput'"
else
sed 's/^ X//' << \SHAR_EOF > 'sput'
X#
X# @(#)sput.sh 1.1 @(#)sput.sh 1.1 12/26/89 17:07:07
X# /usr/lbin/sput
X#
X# Delta a file back into sccs
X#
Xif [ -z "$1" ]
Xthen
X echo "Usage: sput -deltaflags file1 [file2 [file3]...]"
X exit 0
Xfi
Xflags=
Xfor arg in $*
Xdo
X case $arg in
X
X -*)
X flags=$flags" $arg"
X ;;
X *)
X delta $flags s.$arg
X ;;
X esac
Xdone
SHAR_EOF
if test 318 -ne "`wc -c < 'sput'`"
then
echo shar: "error transmitting 'sput'" '(should have been 318 characters)'
fi
chmod +x 'sput'
fi
exit 0
# End of shell archive
============================ cut ======== cut =========== cut ============
--
Bill Kennedy usenet {attctc,att,cs.utexas.edu,sun!daver}!ssbn!bill
internet bill@ssbn.WLK.COM or attmail!ssbn!bill