View source for CvsList

[[HomePage]] >> [[BasicSource]] >> [[TclStack]]

A helper program to list CVS status

<PRE>

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
</PRE>