https://pickwiki.org/index.php?action=history&feed=atom&title=CvsList
CvsList - Revision history
2026-04-28T22:12:47Z
Revision history for this page on the wiki
MediaWiki 1.43.0
https://pickwiki.org/index.php?title=CvsList&diff=1606&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 list CVS status<br />
<br />
<PRE><br />
<br />
SUBROUTINE CVS.LIST(RTN, FILE, OPTIONS)<br />
***************************************************************************<br />
* Program: CVS.LIST<br />
* Author : Ian [[McGowan]]<br />
* Date : 04/20/2004<br />
* Checkin: $Id: CVS.LIST,v 1.2 2004/04/21 02:03:53 dsiroot Exp $<br />
* Comment: <br />
***************************************************************************<br />
* $Log: CVS.LIST,v $<br />
* Revision 1.2 2004/04/21 02:03:53 dsiroot<br />
* mcgowan:Use cvs_status perl scrupt<br />
*<br />
* Revision 1.1 2004/04/21 01:50:41 dsiroot<br />
* mcgowan:List CVS status of a directory<br />
*<br />
<br />
CALL CVS.GETDIR(DIR,FILE)<br />
IF DIR='ZZZ' THEN RTN='NOSTATUS';RETURN<br />
RTN=""<br />
<br />
E=\!cd \:DIR:\;cvs_status\<br />
PRINT E<br />
EXECUTE E CAPTURING LIST<br />
N=DCOUNT(LIST,@AM)<br />
FOR F=1 TO N<br />
PRINT LIST<F><br />
NEXT F<br />
RETURN<br />
</PRE></div>
Conversion script