v06i041: CVS, an RCS fonrt-end (cvs), Part2/2

sources-request at mirror.UUCP sources-request at mirror.UUCP
Fri Jul 4 03:00:24 AEST 1986


Submitted by: Dick Grune <seismo!mcvax!vu44!dick>
Mod.sources: Volume 6, Issue 41
Archive-name: cvs/Part2

: This is a shar archive.  Extract with sh, not csh.
: This archive ends with exit, so do not worry about trailing junk.
: --------------------------- cut here --------------------------
PATH=/bin:/usr/bin
echo Extracting \B\E\.\a\u\x
sed 's/^X//' > \B\E\.\a\u\x << '+ END-OF-FILE '\B\E\.\a\u\x
X#	This file is part of the Concurrent Versions System CVS.
X#	Written by Dick Grune, Vrije Universiteit, Amsterdam.
X#	$Header: BE.aux,v 1.9 86/06/22 18:08:57 dick Exp $
X
X#
X#		B u i l d   E n t r y
X#	Script, to be included.
X#
X#	Assumes set:
X#		$CVSLIB
X#		$Name
X#		$Options
X#		$Rcs
X#		$Repository
X#		$User
X#
X#	Builds an entry for a new file and sets up $User,[pt] by
X#	interrogating the user.
X#
X#	Sets OK to no and calls continue, if necessary.
X#
X
X# there may be an old file with the same name in the attic!
X# this is an awkward place to test, but other places are equally awkward
Xif	# it is in the attic already
X	[ -r $Repository/Attic/$User,v ]
Xthen
X	echo $Name: there is an old file $User already \
X						in $Repository/Attic >&2
X	OK=no
X	continue
Xfi
X
X# isn't the name too long?
Xif	# both $User and $User,x can be linked made by linking
X	ln $User $User, >/dev/null 2>/dev/null \
X&&
X	ln $User $User,x >/dev/null 2>/dev/null
Xthen
X	rm $User, $User,x
Xelse
X	rm -f $User,
X	echo $Name: filename $User is too long >&2
X	OK=no
X	continue
Xfi
X
X# store the options
Xecho "$Options" >$User,p
X
X# get a description file by imitating a call of rcs -i
Xecho "RCS file: $Rcs"
Xecho "enter description, terminated with ^D or '.':"
Xecho "NOTE: This is NOT the log message!"
Xcp /dev/null $User,t
Xwhile	# the user still provides text
X	echo -n ">> "
X	read TXT
Xdo	# add it to $User,t, except if it is a single dot
X	if	# it is the terminating dot
X		[ "$TXT" = "." ]
X	then
X		break
X	fi
X	echo "$TXT" >>$User,t
Xdone
Xecho done
X
X# create the entry (at the end, since the user may have interrupted)
X$CVSLIB/RG.aux $User 0 "Initial $User"
+ END-OF-FILE BE.aux
chmod 'u=rwx,g=rx,o=rx' \B\E\.\a\u\x
set `sum \B\E\.\a\u\x`
sum=$1
case $sum in
16090)	:;;
*)	echo 'Bad sum in '\B\E\.\a\u\x >&2
esac
echo Extracting \C\A\.\a\u\x
sed 's/^X//' > \C\A\.\a\u\x << '+ END-OF-FILE '\C\A\.\a\u\x
X#	This file is part of the Concurrent Versions System CVS.
X#	Written by Dick Grune, Vrije Universiteit, Amsterdam.
X#	$Header: CA.aux,v 1.4 86/06/22 18:09:14 dick Exp $
X
X#
X#		C r e a t e   A d m i n i s t r a t i o n
X#	Script, to be included.
X#
X#	Assumes set:
X#		$InitRecord
X#		$Name
X#		$Repository
X#
X#	Creates a CVS administration directory based on repository
X#	$Repository; the Entries file is prefilled from $InitRecord.
X#
X
X# check the repository
Xif	# there is such a repository
X	[ -d $Repository ]
Xthen	:
Xelse
X	echo $Name: there is no repository $Repository >&2
X	exit 1
Xfi
X
X# check the initial record
Xif	# there is such a file
X	[ -f $InitRecord ]
Xthen	:
Xelse
X	echo $Name: there is no file $InitRecord >&2
X	exit 1
Xfi
X
X# install CVS.adm directory
Xif	# there is already a directory CVS.adm
X	[ -d CVS.adm ]
Xthen
X	echo $Name: there is a version here already >&2
X	exit 1
Xfi
X
Xif	# we can create the administration directory
X	mkdir CVS.adm
Xthen	:
Xelse
X	echo $Name: cannot make administration directory ./CVS.adm >&2
X	exit 1
Xfi
X
X# set up the administration
Xecho $Repository >CVS.adm/Repository
Xcat $InitRecord >CVS.adm/Entries	# use > to make Entries writeable
+ END-OF-FILE CA.aux
chmod 'u=rw,g=r,o=r' \C\A\.\a\u\x
set `sum \C\A\.\a\u\x`
sum=$1
case $sum in
18085)	:;;
*)	echo 'Bad sum in '\C\A\.\a\u\x >&2
esac
echo Extracting \C\I\.\a\u\x
sed 's/^X//' > \C\I\.\a\u\x << '+ END-OF-FILE '\C\I\.\a\u\x
X#	This file is part of the Concurrent Versions System CVS.
X#	Written by Dick Grune, Vrije Universiteit, Amsterdam.
X#	$Header: CI.aux,v 1.6 86/06/22 18:09:32 dick Exp $
X
X#
X#		C h e c k   I n
X#	Script, to be included
X#
X#	Assumes set:
X#		$ACT
X#		$CVSLIB
X#		$Message
X#		$Name
X#		$RCSBIN
X#		$Repository
X#		$Revision	(to be set to -rN if needed; empty otherwise)
X#		$User
X#
X#	Does a very careful check-in of the file $User, and tries not
X#	to spoil its modification time (to avoid useless recompilations)
X#
X#	Sets OK to no, if necessary.
X#
X
Xecho Checking in $User\; log: "$Message"
XRcs=$Repository/$User,v
X
X# offer copy to RCS, in an attempt not to spoil the modification time of $User
XTmp=,,$User
X$ACT mv $User $Tmp
X$ACT cp $Tmp $User
X
Xif	# check in $Rcs
X	$ACT $RCSBIN/ci $Revision -m"$Message" $Rcs 2>&1
Xthen	# the file $User will now be gone; get a new copy,
X	# with a possibly updated $Header
X	$ACT $RCSBIN/co -q $Rcs
X	$ACT chmod +w $User
X	# but maybe the old $User may still serve
X	if	# there were no funny modifications
X		$ACT cmp -s $User $Tmp
X	then	# $User is preferable, because of 'make'
X		$ACT mv $Tmp $User
X	else	# $Tmp is not of use any more
X		$ACT rm $Tmp
X	fi
X	# get new version number and time stamp
X	. $CVSLIB/VT.aux	# sets $VN_User, $VN_Rcs, $TS_User, $TS_Rcs
X	# and register $User
X	$ACT $CVSLIB/RG.aux $User $VN_Rcs "$TS_User"
Xelse	# something is very wrong
X	# restore the old $User
X	$ACT mv $Tmp $User
X	echo $Name: could not check in $User >&2
X	OK=no
X	if	# unlock $Rcs
X		$ACT $RCSBIN/rcs -u $Rcs
X	then	:
X	else
X		echo $Name: could not UNlock $Rcs >&2
X	fi
Xfi
+ END-OF-FILE CI.aux
chmod 'u=rw,g=r,o=r' \C\I\.\a\u\x
set `sum \C\I\.\a\u\x`
sum=$1
case $sum in
11171)	:;;
*)	echo 'Bad sum in '\C\I\.\a\u\x >&2
esac
echo Extracting \C\S\.\a\u\x
sed 's/^X//' > \C\S\.\a\u\x << '+ END-OF-FILE '\C\S\.\a\u\x
X#	This file is part of the Concurrent Versions System CVS.
X#	Written by Dick Grune, Vrije Universiteit, Amsterdam.
X#	$Header: CS.aux,v 1.16 86/06/22 18:10:11 dick Exp $
X
X#
X#		C o l l e c t   S e t s
X#	Script, to be included.
X#
X#	Assumes set:
X#		$@
X#		$CVSLIB
X#		$Name
X#		$User
X#		$VN_Rcs
X#		$VN_User
X#		$TS_Rcs
X#		$TS_User
X#
X#	Collects the interesting file names from the administration and
X#	the repository in a number of shell variables:
X#							solved by:
X#		CLIST	conflict-ridden			(user)
X#		GLIST	modified, needs merging		(--/UV)
X#		MLIST	modified, needs checking in	(CM/--)
X#		OLIST	needs checking out		(--/UV)
X#		ALIST	to be added			(CM/--)
X#		RLIST	to be removed			(CM/--)
X#		WLIST	remove entry			(--/UV)
X#
X#	It sets OK to no if something is wrong.
X#
X
Xfor User in $@
Xdo
X	Rcs=$Repository/$User,v
X	. $CVSLIB/VT.aux	# sets $VN_User, $VN_Rcs, $TS_User, $TS_Rcs
X	
X	# what entry is this?
X	case $VN_User in
X	"")
X		# no entry available, $TS_Rcs is invalid
X		
X		# how is the RCS file?
X		case $VN_Rcs in
X		"")
X			# there is no RCS file either
X			
X			# how is the user file?
X			case "$TS_User" in
X			"")
X				# there is no user file
X				echo $Name: nothing known about $User >&2
X				OK=no
X				;;
X			*)
X				# there is a user file
X				echo $Name: use AE to create entry \
X								for $User >&2
X				OK=no
X				;;
X			esac
X			;;
X		*)
X			# there is an RCS file
X			
X			# how is the user file?
X			case "$TS_User" in
X			"")
X				# there is no user file
X				OLIST="$OLIST $User"
X				;;
X			*)
X				# there is a user file
X				echo $Name: move away $User\; \
X							it is in the way >&2
X				CLIST="$CLIST $User"
X				OK=no
X				;;
X			esac
X			;;
X		esac
X		;;
X	
X	0)
X		# an entry for a new-born file, $TS_Rcs is dummy
X		
X		# how is the user file?
X		case "$TS_User" in
X		"")
X			# there is no user file, but there should be one
X			
X			echo $Name: warning: \
X					new-born $User has disappeared >&2
X			WLIST="$WLIST $User"
X			;;
X		*)
X			# there is a user file
X			
X			# how is the RCS file?
X			case $VN_Rcs in
X			"")
X				# there is no RCS file
X				
X				ALIST="$ALIST $User"
X				;;
X			*)
X				# there is an RCS file
X				
X				echo $Name: conflict: $User created \
X					independently by second party >&2
X				CLIST="$CLIST $User"
X				OK=no
X				;;
X			esac
X			;;
X		esac
X		;;
X
X	-*)
X		# an entry for a removed file, $TS_Rcs is valid
X		
X		# how is the user file?
X		case "$TS_User" in
X		"")
X			# there is no user file (as it should be)
X			
X			# how is the RCS file?
X			case -$VN_Rcs in
X			-)
X				# there is no RCS file
X			
X				# this is all-right, however; it has been
X				# removed independently by second party
X				WLIST="$WLIST $User"
X				;;
X			$VN_User)
X				# the RCS file is the same version as
X				# the user file
X				
X				# and that's OK
X				RLIST="$RLIST $User"
X				;;
X			*)
X				# the RCS file is a newer version than
X				# the user file
X				
X				# and this is definitely not OK
X				echo $Name: conflict: removed $User was \
X						modified by second party >&2
X				CLIST="$CLIST $User"
X				OK=no
X				;;
X			esac
X			;;
X		*)
X			# user file shouldn't be there
X			echo $Name: $User should be removed \
X						and is still there >&2
X			OK=no
X			;;
X		esac
X		;;
X	
X	*)
X		# a normal entry, $TS_Rcs is valid
X		
X		# how is the RCS file?
X		case $VN_Rcs in
X		"")
X			# there is no RCS file
X			
X			# how is the user file?
X			case "$TS_User" in
X			"")
X				# there is no user file
X				echo $Name: warning: $User is not \
X						\(no longer\) pertinent >&2
X				WLIST="$WLIST $User"
X				;;
X			"$TS_Rcs")
X				# the user file is still unmodified
X				echo $Name: $User is no longer \
X							in the repository >&2
X				WLIST="$WLIST $User"
X				;;
X			*)
X				# the user file has been modified
X				echo $Name: conflict: $User is modified but \
X					no longer in the repository >&2
X				CLIST="$CLIST $User"
X				OK=no
X				;;
X			esac
X			;;
X		$VN_User)
X			# the RCS file is the same version as the user file
X			
X			# how is the user file?
X			case "$TS_User" in
X			"")
X				# there is no user file
X				echo $Name: warning: $User was lost >&2
X				OLIST="$OLIST $User"
X				;;
X			"$TS_Rcs")
X				# the user file is still unmodified
X				# nothing special at all!
X				;;
X			*)
X				# the user file has been modified
X				# but do we believe it? This is complicated:
X				. $CVSLIB/ND.aux # sets MLIST, if necessary
X				;;
X			esac
X			;;
X		*)
X			# the RCS file is a newer version than the user file
X			
X			# how is the user file?
X			case "$TS_User" in
X			"")
X				# there is no user file
X				echo $Name: warning: $User was lost >&2
X				OLIST="$OLIST $User"
X				;;
X			"$TS_Rcs")
X				# the user file is still unmodified
X				OLIST="$OLIST $User"
X				;;
X			*)
X				# the user file has been modified
X				GLIST="$GLIST $User"
X				;;
X			esac
X			;;
X		esac
X		;;
X	esac
Xdone
+ END-OF-FILE CS.aux
chmod 'u=rwx,g=rx,o=rx' \C\S\.\a\u\x
set `sum \C\S\.\a\u\x`
sum=$1
case $sum in
57537)	:;;
*)	echo 'Bad sum in '\C\S\.\a\u\x >&2
esac
echo Extracting \E\F\.\a\u\x
sed 's/^X//' > \E\F\.\a\u\x << '+ END-OF-FILE '\E\F\.\a\u\x
X#!/bin/sh
X#	This file is part of the Concurrent Versions System CVS.
X#	Written by Dick Grune, Vrije Universiteit, Amsterdam.
X#	$Header: EF.aux,v 1.1 86/06/15 18:01:03 dick Exp $
X
X#
X#		E n t r i e s   f i l e   t o   F i l e s   f i l e
X#	Creates a file CVS.adm/Files containing the names that comprise
X#	the project, from CVS.adm/Entries.
X#
X
X<CVS.adm/Entries sed '
X	/^-/d
X	s/.* \(.*\)|/\1/
X' |
Xsort >CVS.adm/Files
+ END-OF-FILE EF.aux
chmod 'u=rwx,g=rx,o=rx' \E\F\.\a\u\x
set `sum \E\F\.\a\u\x`
sum=$1
case $sum in
15654)	:;;
*)	echo 'Bad sum in '\E\F\.\a\u\x >&2
esac
echo Extracting \F\N\.\a\u\x
sed 's/^X//' > \F\N\.\a\u\x << '+ END-OF-FILE '\F\N\.\a\u\x
X#!/bin/sh
X#	This file is part of the Concurrent Versions System CVS.
X#	Written by Dick Grune, Vrije Universiteit, Amsterdam.
X#	$Header: FN.aux,v 1.17 86/06/13 17:59:18 dick Exp $
X
X#
X#		F i n d  N a m e s
X#	Writes all the pertinent file names, both from the administration
X#	and from the repository $1 to standard output, sorted.
X#
X
X(
X	(cd $1; ls *,v) | grep -v '\*' | sed 's/,v$//'
X	(<CVS.adm/Entries sed 's/.* \(.*\)|/\1/')
X) |
Xsort -u
+ END-OF-FILE FN.aux
chmod 'u=rwx,g=rx,o=rx' \F\N\.\a\u\x
set `sum \F\N\.\a\u\x`
sum=$1
case $sum in
38797)	:;;
*)	echo 'Bad sum in '\F\N\.\a\u\x >&2
esac
echo Extracting \L\R\.\a\u\x
sed 's/^X//' > \L\R\.\a\u\x << '+ END-OF-FILE '\L\R\.\a\u\x
X#	This file is part of the Concurrent Versions System CVS.
X#	Written by Dick Grune, Vrije Universiteit, Amsterdam.
X#	$Header: LR.aux,v 1.6 86/06/22 18:11:55 dick Exp $
X
X#
X#		L o c a t e   R C S   F i l e
X#	Script, to be included.
X#
X#	Assumes set:
X#		$Repository
X#		$User
X#
X#	Called when the RCS file sought may be in the attic $Repository/Attic.
X#	Sets $Rcs to $Repository/Attic/$User,v if appropriate and to
X#	$Repository/$User,v otherwise.
X#
X
XRcs=$Repository/$User,v
XOld=$Repository/Attic/$User,v
Xif	# it is in the repository
X	[ -r $Rcs ]
Xthen	:
Xelif	# it is in the attic
X	[ -r $Old ]
Xthen
X	Rcs=$Old
Xelse	# it is treated as if it were in the repository
X	:
Xfi
+ END-OF-FILE LR.aux
chmod 'u=rw,g=r,o=r' \L\R\.\a\u\x
set `sum \L\R\.\a\u\x`
sum=$1
case $sum in
55946)	:;;
*)	echo 'Bad sum in '\L\R\.\a\u\x >&2
esac
echo Extracting \N\D\.\a\u\x
sed 's/^X//' > \N\D\.\a\u\x << '+ END-OF-FILE '\N\D\.\a\u\x
X#	This file is part of the Concurrent Versions System CVS.
X#	Written by Dick Grune, Vrije Universiteit, Amsterdam.
X#	$Header: ND.aux,v 1.13 86/06/22 18:12:57 dick Exp $
X
X#
X#		N o   D i f f e r e n c e
X#	Script, to be included.
X#
X#	Assumes set:
X#		$ACT
X#		$CVSLIB
X#		$Name
X#		$RCSBIN
X#		$Rcs
X#		$TS_User
X#		$User
X#		$VN_Rcs
X#		$VN_User
X#
X#	The user file looks modified judging from its time stamp; however
X#	it needn't be.  ND.aux finds out whether it is or not.
X#	If it is, it adds its name to the $MLIST.
X#	If it is not, it updates the administration.
X#	It may set OK to 'no'.
X#
X
XTmp=,,$User
Xif	# we can retrieve a provisional copy of $Rcs
X	$RCSBIN/co -p -q -r$VN_User $Rcs >$Tmp
Xthen	# test for differences
X	if	# they are equal
X		cmp -s $User $Tmp
X	then	# there were no real user differences:
X		# update reference time stamp
X		TS_Rcs="$TS_User"
X		$ACT $CVSLIB/RG.aux $User $VN_Rcs "$TS_User"
X	else	# its name belongs in the MLIST
X		MLIST="$MLIST $User"
X	fi
X	
X	rm -f $Tmp
X	
Xelse	# something very wrong
X	echo $Name: could not check out revision $VN_User of $User >&2
X	rm $Tmp
X	OK=no
Xfi
X
+ END-OF-FILE ND.aux
chmod 'u=rwx,g=rx,o=rx' \N\D\.\a\u\x
set `sum \N\D\.\a\u\x`
sum=$1
case $sum in
42347)	:;;
*)	echo 'Bad sum in '\N\D\.\a\u\x >&2
esac
echo Extracting \N\R\.\a\u\x
sed 's/^X//' > \N\R\.\a\u\x << '+ END-OF-FILE '\N\R\.\a\u\x
X#	This file is part of the Concurrent Versions System CVS.
X#	Written by Dick Grune, Vrije Universiteit, Amsterdam.
X#	$Header: NR.aux,v 1.9 86/06/22 18:13:16 dick Exp $
X
X#
X#		N a m e   o f   R e p o s i t o r y
X#	Script, to be included.
X#
X#	Assumes set:
X#		$Name
X#		$Repository
X#
X#	Determines the name of the RCS repository and sets $Repository
X#	accordingly.
X#
X
Xif	# there is no administration directory
X	[ ! -d CVS.adm ]
Xthen
X	echo $Name: there is no version here\; do CV first >&2
X	exit 1
Xfi
X
X# compatibility patch						P A T C H
Xif	# this is an old administration
X	[ ! -r CVS.adm/Repository -a -r CVS.adm/RCSDIR ]
Xthen	# update the name of the repository file
X	mv CVS.adm/RCSDIR CVS.adm/Repository
Xfi
X
Xif	# the necessary files are there
X	[ -r CVS.adm/Repository -a -r CVS.adm/Entries ]
Xthen	# read the name of the RCS repository from the file
X	Repository=`cat CVS.adm/Repository`
Xelse	# no good
X	echo $Name: \*PANIC\* administration files missing >&2
X	exit 1
Xfi
X
Xif	# the promised repository isn't there
X	[ ! -d $Repository ]
Xthen
X	echo $Name: there is no repository $Repository >&2
X	exit 1
Xfi
X
Xexport Repository
+ END-OF-FILE NR.aux
chmod 'u=rwx,g=rx,o=rx' \N\R\.\a\u\x
set `sum \N\R\.\a\u\x`
sum=$1
case $sum in
43511)	:;;
*)	echo 'Bad sum in '\N\R\.\a\u\x >&2
esac
echo Extracting \O\P\.\a\u\x
sed 's/^X//' > \O\P\.\a\u\x << '+ END-OF-FILE '\O\P\.\a\u\x
X#	This file is part of the Concurrent Versions System CVS.
X#	Written by Dick Grune, Vrije Universiteit, Amsterdam.
X#	$Header: OP.aux,v 1.4 86/05/18 12:00:44 dick Exp $
X
X#
X#		O p t i o n s
X#	Script, to be included.
X#
X#	Collects options from $@ and puts them in $Options
X#
X
XGO_ON=true
Xwhile	# there may still be an option
X	$GO_ON
Xdo
X	case $1 in
X	-*)
X		Options="$Options $1"
X		shift
X		;;
X	*)
X		GO_ON=false
X		;;
X	esac
Xdone
+ END-OF-FILE OP.aux
chmod 'u=rw,g=r,o=r' \O\P\.\a\u\x
set `sum \O\P\.\a\u\x`
sum=$1
case $sum in
38435)	:;;
*)	echo 'Bad sum in '\O\P\.\a\u\x >&2
esac
echo Extracting \R\G\.\a\u\x
sed 's/^X//' > \R\G\.\a\u\x << '+ END-OF-FILE '\R\G\.\a\u\x
X#!/bin/sh
X#	This file is part of the Concurrent Versions System CVS.
X#	Written by Dick Grune, Vrije Universiteit, Amsterdam.
X#	$Header: RG.aux,v 1.11 86/06/09 14:37:57 dick Exp $
X
X#
X#		R e g i s t e r
X#	Enters file $1 into the administration with version number $2
X#	and time stamp $3.  Removes the old entry first, if necessary.
X#
X#	Assumes set:
X#		$CVSLIB
X#
X
X$CVSLIB/SC.aux $1			# scratch the entry
Xecho "$2|$3|" >>CVS.adm/Entries		# and append a new one
+ END-OF-FILE RG.aux
chmod 'u=rwx,g=rx,o=rx' \R\G\.\a\u\x
set `sum \R\G\.\a\u\x`
sum=$1
case $sum in
13059)	:;;
*)	echo 'Bad sum in '\R\G\.\a\u\x >&2
esac
echo Extracting \S\C\.\a\u\x
sed 's/^X//' > \S\C\.\a\u\x << '+ END-OF-FILE '\S\C\.\a\u\x
X#!/bin/sh
X#	This file is part of the Concurrent Versions System CVS.
X#	Written by Dick Grune, Vrije Universiteit, Amsterdam.
X#	$Header: SC.aux,v 1.8 86/05/18 12:01:59 dick Exp $
X
X#
X#		S c r a t c h
X#	Scratches file $1 from the administration
X#
X
Xmv CVS.adm/Entries CVS.adm/Entries.Backup
Xfgrep -v " $1|" CVS.adm/Entries.Backup >CVS.adm/Entries
+ END-OF-FILE SC.aux
chmod 'u=rwx,g=rx,o=rx' \S\C\.\a\u\x
set `sum \S\C\.\a\u\x`
sum=$1
case $sum in
30030)	:;;
*)	echo 'Bad sum in '\S\C\.\a\u\x >&2
esac
echo Extracting \S\L\.\a\u\x
sed 's/^X//' > \S\L\.\a\u\x << '+ END-OF-FILE '\S\L\.\a\u\x
X#	This file is part of the Concurrent Versions System CVS.
X#	Written by Dick Grune, Vrije Universiteit, Amsterdam.
X#	$Header: SL.aux,v 1.2 86/06/22 18:14:12 dick Exp $
X
X#
X#		S e t   L o c k
X#	Script, to be included.
X#
X#	Assumes set:
X#		$LCK		name of lock
X#		$LDR		name of directory to be locked
X#		$Name
X#
X#	Persistently tries to make the directory $LCK, which serves as
X#	a lock.
X#
X
Xuntil	# we can enter the critical section
X	trap '' 1 2 3 15		# play deaf
X	mkdir $LCK >/dev/null 2>/dev/null
Xdo
X	# we missed it this cycle
X	echo $Name: `date`: waiting for access to $LDR
X	
X	# sleep with both ears open
X	trap 'exit 1' 1 2 3 15
X	sleep 60
Xdone
+ END-OF-FILE SL.aux
chmod 'u=rw,g=r,o=r' \S\L\.\a\u\x
set `sum \S\L\.\a\u\x`
sum=$1
case $sum in
01189)	:;;
*)	echo 'Bad sum in '\S\L\.\a\u\x >&2
esac
echo Extracting \V\N\.\a\u\x
sed 's/^X//' > \V\N\.\a\u\x << '+ END-OF-FILE '\V\N\.\a\u\x
X#!/bin/sh
X#	This file is part of the Concurrent Versions System CVS.
X#	Written by Dick Grune, Vrije Universiteit, Amsterdam.
X#	$Header: VN.aux,v 1.8 86/06/09 14:38:22 dick Exp $
X
X#
X#		V e r s i o n   N u m b e r
X#	Writes the version number of the most recent revision of $1
X#	to standard output.
X#	This is sloppy, but the only way to do it, short of analysing
X#	the *,v file itself.
X#
X#	Assumes set:
X#		$RCSBIN
X#
X
X(	#	The following stupid construction is necessary, since the
X	#	shell sometimes generates a NL when a pipe breaks, as it
X	#	does here, where sed stops after a few lines.  Letting
X	#	sed process all the rest is also a shame.
X	#
X$RCSBIN/rlog $1 |
Xsed -n '
X	/^head:/{
X		s/.* //p
X		q
X	}
X'
X) 2>/dev/null
+ END-OF-FILE VN.aux
chmod 'u=rwx,g=rx,o=rx' \V\N\.\a\u\x
set `sum \V\N\.\a\u\x`
sum=$1
case $sum in
46756)	:;;
*)	echo 'Bad sum in '\V\N\.\a\u\x >&2
esac
echo Extracting \V\T\.\a\u\x
sed 's/^X//' > \V\T\.\a\u\x << '+ END-OF-FILE '\V\T\.\a\u\x
X#	This file is part of the Concurrent Versions System CVS.
X#	Written by Dick Grune, Vrije Universiteit, Amsterdam.
X#	$Header: VT.aux,v 1.16 86/06/09 10:03:15 dick Exp $
X
X#
X#		V e r s i o n   &   T i m e   S t a m p
X#	Script, to be included.
X#
X#	Assumes set:
X#		$CVSLIB
X#		$Rcs
X#		$User
X#
X#	Sets the following shell variables:
X#	VN_User		version # of the RCS file the user file derives from
X#			may also be:
X#				empty:		no entry for user file
X#				0:		user file is new
X#				-$VN_User:	user file is to be removed
X#	VN_Rcs		version # of active RCS file
X#				is empty for absent RCS file
X#	TS_User		present time stamp of the user file
X#				is empty for absent user file
X#	TS_Rcs		time stamp of the lastest check-out of the RCS file.
X#
X#	The syntax of an entry is
X#		<version-number>|<time-stamp>|
X#	and since the time stamp is obtained through ls, it includes
X#	the file name.
X#
X
XVN_Rcs=`$CVSLIB/VN.aux $Rcs`
X
Xif	# the user file exists
X	[ -r $User ]
Xthen	#get its time stamp
X	TS_User=`ls -ld $User`
Xelse	# yield null
X	TS_User=
Xfi
X
XENTRY=`fgrep " $User|" CVS.adm/Entries`
Xif	# the entry is non-empty
X	[ "$ENTRY" != "" ]
Xthen	# dissect it
X	VN_User=`expr "$ENTRY" : '\(.*\)|.' `
X	TS_Rcs=`expr "$ENTRY" : '.*|\(.*\)|' `
Xelse	# yield nulls
X	VN_User=
X	TS_Rcs=
Xfi
+ END-OF-FILE VT.aux
chmod 'u=rwx,g=rx,o=rx' \V\T\.\a\u\x
set `sum \V\T\.\a\u\x`
sum=$1
case $sum in
60984)	:;;
*)	echo 'Bad sum in '\V\T\.\a\u\x >&2
esac
exit 0



More information about the Mod.sources mailing list