CvsList
From Pickwiki
HomePage >> BasicSource >> TclStack
A helper program to list CVS status
SUBROUTINE CVS.LIST(RTN, FILE, OPTIONS)
***************************************************************************
* Program: CVS.LIST
* Author : Ian [[McGowan]]
* Date : 04/20/2004
* Checkin: $Id: CVS.LIST,v 1.2 2004/04/21 02:03:53 dsiroot Exp $
* Comment:
***************************************************************************
* $Log: CVS.LIST,v $
* Revision 1.2 2004/04/21 02:03:53 dsiroot
* mcgowan:Use cvs_status perl scrupt
*
* Revision 1.1 2004/04/21 01:50:41 dsiroot
* mcgowan:List CVS status of a directory
*
CALL CVS.GETDIR(DIR,FILE)
IF DIR='ZZZ' THEN RTN='NOSTATUS';RETURN
RTN=""
E=\!cd \:DIR:\;cvs_status\
PRINT E
EXECUTE E CAPTURING LIST
N=DCOUNT(LIST,@AM)
FOR F=1 TO N
PRINT LIST<F>
NEXT F
RETURN
