https://pickwiki.org/index.php?action=history&feed=atom&title=CvsStatus
CvsStatus - Revision history
2026-04-28T22:12:02Z
Revision history for this page on the wiki
MediaWiki 1.43.0
https://pickwiki.org/index.php?title=CvsStatus&diff=1596&oldid=prev
Conversion script: link fix
2015-02-26T23:48:53Z
<p>link fix</p>
<p><b>New page</b></p><div>[[HomePage]] >> [[BasicSource]] >> [[TclStack]]<br />
<br />
A helper program to get the status of a program in CVS<br />
<br />
<PRE><br />
SUBROUTINE CVS.STATUS(RTN,FILE,ITEM,OPTIONS)<br />
***************************************************************************<br />
* Program: CVS.STATUS<br />
* Author : $mcgowan<br />
* Date : 11/08/2002<br />
* Edited : 17:53:15 Nov 08 2002 By MCGOWAN <br />
* Comment: <br />
***************************************************************************<br />
* $Id: CVS.STATUS,v 1.10 2003/10/02 22:00:51 dsiroot Exp $<br />
<br />
* $Log: CVS.STATUS,v $<br />
* Revision 1.10 2003/10/02 22:00:51 dsiroot<br />
* mcgowan:Add 'locally added' to list of statuses<br />
*<br />
* Revision 1.9 2003/04/30 19:08:12 dsiroot<br />
* mcgowan:Add unresolved conflict to list of statuses<br />
*<br />
* Revision 1.8 2003/04/11 23:00:46 dsiroot<br />
* mcgowan:Add Needs Merge to list of statuses<br />
*<br />
* Revision 1.7 2003/04/11 22:59:19 dsiroot<br />
* mcgowan:Return WORK.REV for locally modified programs<br />
*<br />
* Revision 1.6 2003/04/10 17:51:49 dsiroot<br />
* mcgowan:Add Needs Checkout to list of statuses<br />
*<br />
* Revision 1.5 2003/04/10 17:40:24 dsiroot<br />
* mcgowan:Redirect stderr for cvs status command<br />
*<br />
* Revision 1.4 2003/04/10 03:45:52 dsiroot<br />
* mcgowan:Don't be verbose<br />
*<br />
* Revision 1.3 2003/04/10 03:20:09 dsiroot<br />
* mcgowan:Add work and cvs rev number<br />
*<br />
* Revision 1.2 2003/04/10 02:14:29 dsiroot<br />
* mcgowan:Add needs patch to list of updated statuses<br />
*<br />
<br />
CALL CVS.GETDIR(DIR,FILE)<br />
IF DIR='ZZZ' THEN RTN='NOSTATUS';RETURN<br />
<br />
E=\!cd \:DIR:\;\<br />
E:=\cvs status \:ITEM:\ 2>/dev/null | \<br />
E:=\awk '[[/Status]]:/ {print} [[/Working]] revision:/ {print $3} [[/Repository]] revision:/ {print $3}' \<br />
E:=\2>/dev/null\<br />
EXECUTE E CAPTURING OUTPUT<br />
STATUS=OUTPUT<1><br />
WORK.REV=OUTPUT<2><br />
CVS.REV=OUTPUT<3><br />
<br />
BEGIN CASE<br />
CASE INDEX(STATUS,"Unknown",1)<br />
RTN='NOTINCVS'<br />
CASE INDEX(STATUS,"Up-to-date",1)<br />
RTN='UPTODATE'<br />
RTN<2>=WORK.REV<br />
RTN<3>=CVS.REV<br />
CASE INDEX(STATUS,"Locally Added",1) OR INDEX(STATUS,"Locally Modified",1) OR INDEX(STATUS,"Needs Patch",1) OR INDEX(STATUS,"Needs Checkout",1) OR INDEX(STATUS,"Needs Merge",1) OR INDEX(STATUS,"Unresolved Conflict",1)<br />
RTN='MODIFIED'<br />
RTN<2>=WORK.REV<br />
RTN<3>=CVS.REV<br />
CASE 1<br />
RTN='NOSTATUS'<br />
PRINT OUTPUT<br />
END CASE<br />
RETURN<br />
</PRE></div>
Conversion script