https://pickwiki.org/index.php?action=history&feed=atom&title=CvsCheckout
CvsCheckout - Revision history
2026-04-28T22:23:26Z
Revision history for this page on the wiki
MediaWiki 1.43.0
https://pickwiki.org/index.php?title=CvsCheckout&diff=1677&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 out source from CVS<br />
<br />
<PRE><br />
SUBROUTINE CVS.CHECKOUT(RTN, FILE, ITEM, OPTIONS)<br />
***************************************************************************<br />
* Program: CVS.CHECKOUT<br />
* Author : Ian [[McGowan]]<br />
* Date : 11/08/2002<br />
* Edited : 18:13:28 Nov 08 2002 By MCGOWAN<br />
* Comment: Check to see if working file matches cvs version, warn<br />
***************************************************************************<br />
* $Id: CVS.CHECKOUT,v 1.7 2003/04/10 17:51:07 dsiroot Exp $<br />
<br />
* $Log: CVS.CHECKOUT,v $<br />
* Revision 1.7 2003/04/10 17:51:07 dsiroot<br />
* mcgowan:Shorted verbage, -U option on cvs update<br />
*<br />
* Revision 1.6 2003/04/10 03:36:21 dsiroot<br />
* mcgowan:Add more verbage<br />
*<br />
* Revision 1.5 2003/04/10 03:23:03 dsiroot<br />
* mcgowan:Show version numbers<br />
*<br />
* Revision 1.4 2003/04/10 02:45:34 dsiroot<br />
* mcgowan:Add more verbage to blind update<br />
*<br />
* Revision 1.3 2003/04/10 02:37:48 dsiroot<br />
* mcgowan:Handle weird statuses better<br />
*<br />
* Revision 1.2 2003/04/10 02:18:02 dsiroot<br />
* mcgowan:Show diff start and end<br />
<br />
PROMPT ''<br />
RTN=''<br />
CALL CVS.GETDIR(DIR,FILE)<br />
CALL CVS.STATUS(STAT.RTN,FILE,ITEM,'')<br />
STATUS=STAT.RTN<1><br />
WORK.VER=STAT.RTN<2><br />
CVS.VER=STAT.RTN<3><br />
<br />
BEGIN CASE<br />
CASE STATUS='NOTINCVS'<br />
PRINT "New program"<br />
CASE STATUS='UPTODATE'<br />
PRINT "Working version (":WORK.VER:") matches CVS (":CVS.VER:")"<br />
CASE STATUS='MODIFIED'<br />
GOSUB UPDATE<br />
CASE 1<br />
PRINT "Unknown cvs status:":STAT.RTN<br />
END CASE<br />
RETURN<br />
<br />
UPDATE:<br />
CALL CVS.DIFF(DIFF.RTN,FILE,ITEM,'')<br />
IF DIFF.RTN = '' THEN<br />
PRINT "CVS status says an update is required. This may be "<br />
PRINT "because diff ignores changes in whitespace or CVS"<br />
PRINT "comments, or because the versions are different"<br />
PRINT<br />
PRINT "Working version=":WORK.VER:", CVS=":CVS.VER<br />
PRINT<br />
PRINT "An update may clear this up, proceed? ":<br />
INPUT YORN<br />
IF YORN = "Y" THEN<br />
E=\!cd \:DIR:\;cvs update -C \:ITEM<br />
EXECUTE E<br />
END<br />
END ELSE<br />
PRINT "Working version does not match cvs version"<br />
I=DCOUNT(DIFF.RTN,@AM)<br />
FOR F=1 TO I; PRINT "Diff:":DIFF.RTN<F>; NEXT F<br />
PRINT<br />
PRINT "Would you like to "<br />
PRINT " U) pdate this item from cvs (losing changes), or"<br />
PRINT " C) heckin the changes, or"<br />
PRINT " RTN) Do nothing"<br />
INPUT ACTION<br />
BEGIN CASE<br />
CASE ACTION='U'<br />
PRINT 'Are you sure you want to overwrite the working copy? ':<br />
INPUT YORN<br />
IF YORN='Y' THEN<br />
*E=\!rm \:DIR:\/\:ITEM<br />
*EXECUTE E<br />
E=\!cd \:DIR:\;cvs update -C \:ITEM<br />
EXECUTE E<br />
END<br />
CASE ACTION='C'<br />
CI.OPTIONS=''<br />
CALL CVS.CHECKIN(CI.RTN,FILE,ITEM,CI.OPTIONS)<br />
CASE 1<br />
PRINT 'No action taken'<br />
END CASE<br />
END<br />
RETURN<br />
</PRE></div>
Conversion script