https://pickwiki.org/index.php?action=history&feed=atom&title=CvsCheckin
CvsCheckin - Revision history
2026-04-29T00:35:34Z
Revision history for this page on the wiki
MediaWiki 1.43.0
https://pickwiki.org/index.php?title=CvsCheckin&diff=1660&oldid=prev
Conversion script: link fix
2015-02-26T23:48:54Z
<p>link fix</p>
<p><b>New page</b></p><div>[[HomePage]] >> [[BasicSource]] >> [[TclStack]]<br />
<br />
A helper program to check programs in to CVS<br />
<br />
<PRE><br />
SUBROUTINE CVS.CHECKIN(RTN, FILE, ITEM, OPTIONS)<br />
***************************************************************************<br />
* Program: CVS.CHECKIN<br />
* Author : $Author: dsiroot $<br />
* Date : 11/08/2002<br />
* Edited : $Id: CVS.CHECKIN,v 1.7 2003/10/02 22:02:08 dsiroot Exp $<br />
* Comment:<br />
***************************************************************************<br />
*$Log: CVS.CHECKIN,v $<br />
*Revision 1.7 2003/10/02 22:02:08 dsiroot<br />
*mcgowan:Do not allow double quotes in checkin message<br />
*<br />
*Revision 1.6 2003/04/10 03:30:58 dsiroot<br />
*mcgowan:Change CVS.STATUS return params<br />
*<br />
*Revision 1.5 2002/12/18 17:32:34 dsiroot<br />
*mcgowan:Supress screen output if auto checkin<br />
*<br />
*Revision 1.4 2002/11/12 09:46:39 dsiroot<br />
*Auto Checkin<br />
*<br />
*Revision 1.3 2002/11/12 08:27:09 dsiroot<br />
*dsiroot:Fix heading, use : rather than -<br />
*<br />
*Revision 1.2 2002/11/12 08:23:16 dsiroot<br />
*dsiroot-Prepend user name to checkin message<br />
*<br />
*Revision 1.1 2002/11/12 07:44:02 dsiroot<br />
*Add AUTO option<br />
*<br />
*Revision 1.0 2002/11/09 02:01:06 mcgowan<br />
*INITIAL CHECKIN<br />
*<br />
<br />
IF OPTIONS<1>='AUTO' THEN AUTO=1 ELSE AUTO=0<br />
<br />
PROMPT ''<br />
RTN=''<br />
CALL CVS.GETDIR(DIR,FILE)<br />
<br />
* Decide if we need to add or commit<br />
CALL CVS.STATUS(STATUS.RTN,FILE,ITEM,'')<br />
STATUS=STATUS.RTN<1><br />
WORK.VER=STATUS.RTN<2><br />
CVS.VER=STATUS.RTN<3><br />
BEGIN CASE<br />
CASE STATUS='NOTINCVS'<br />
GOSUB ADD.IT; SLEEP 3; GOSUB COMMIT.IT<br />
CASE STATUS='UPTODATE'<br />
IF NOT(AUTO) THEN PRINT 'Already up-to-date'<br />
CASE STATUS='MODIFIED'<br />
IF NOT(AUTO) THEN CALL CVS.DIFF(DIFF.RTN,FILE,ITEM,'SHOW')<br />
GOSUB COMMIT.IT<br />
CASE 1<br />
PRINT 'Weird status, aborting-':STATUS<br />
END CASE<br />
RETURN<br />
<br />
ADD.IT:<br />
E=\!cd \:DIR:\;cvs add \:ITEM<br />
IF NOT(AUTO) THEN PRINT E<br />
EXECUTE E CAPTURING OUTPUT<br />
IF NOT(AUTO) THEN<br />
I=DCOUNT(OUTPUT,@AM)<br />
FOR F=1 TO I; PRINT OUTPUT<F>; NEXT F<br />
END<br />
RETURN<br />
<br />
COMMIT.IT:<br />
IF AUTO THEN<br />
MSG="Auto Checkin"<br />
END ELSE<br />
PRINT "Enter short comment: ":<br />
INPUT MSG<br />
CONVERT \"\ TO \'\ IN MSG<br />
IF MSG = "/" OR MSG="" THEN<br />
PRINT "Checkin aborted" ; RETURN<br />
END<br />
MSG=@LOGNAME:":":MSG<br />
END<br />
<br />
E=\!cd \:DIR:\;cvs commit -m "\:MSG:\" \:ITEM<br />
IF NOT(AUTO) THEN PRINT E<br />
EXECUTE E CAPTURING OUTPUT<br />
IF NOT(AUTO) THEN<br />
I=DCOUNT(OUTPUT,@AM)<br />
FOR F=1 TO I; PRINT OUTPUT<F>; NEXT F<br />
END<br />
RETURN<br />
<br />
</PRE></div>
Conversion script