View source for CvsLog

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

A helper program to show the status and log from CVS

<PRE>
SUBROUTINE CVS.LOG(RTN, FILE, ITEM, OPTIONS)
***************************************************************************
* Program: CVS.LOG
* Author : Ian [[McG]]
* Date   : 04/10/2003
* Checkin: $Id: CVS.LOG,v 1.3 2004/04/21 01:41:07 dsiroot Exp $
* Comment: Show CVS log
***************************************************************************
* $Log: CVS.LOG,v $
* Revision 1.3  2004/04/21 01:41:07  dsiroot
* mcgowan:Add cvs tags
*

CALL CVS.GETDIR(DIR,FILE)
IF DIR='ZZZ' THEN RTN='NOSTATUS';RETURN

E=\!(cd \:DIR:\;\
E:=\cvs status \:ITEM:\; \
E:=\cvs log \:ITEM:\)\
IF OPTIONS<1>="LESS" THEN
    E:=\ | less\
END
EXECUTE E
RETURN
</PRE>