https://pickwiki.org/index.php?action=history&feed=atom&title=CvsDiff CvsDiff - Revision history 2026-04-28T22:10:47Z Revision history for this page on the wiki MediaWiki 1.43.0 https://pickwiki.org/index.php?title=CvsDiff&diff=1662&oldid=prev Conversion script: link fix 2015-02-26T23:48:54Z <p>link fix</p> <p><b>New page</b></p><div>[[HomePage]] &gt;&gt; [[BasicSource]] &gt;&gt; [[TclStack]]<br /> <br /> A helper program to show diffs between working version and CVS version<br /> <br /> &lt;PRE&gt;<br /> SUBROUTINE CVS.DIFF(RTN,FILE,ITEM,OPTIONS)<br /> ***************************************************************************<br /> * Program: CVS.DIFF<br /> * Author : $mcgowan<br /> * Date : 11/08/2002<br /> * Edited : 17:32:31 Nov 08 2002 By MCGOWAN <br /> * Comment: Do a diff, basically same as checkout<br /> ***************************************************************************<br /> *$Log: CVS.DIFF,v $<br /> *Revision 1.3 2003/04/10 03:41:20 dsiroot<br /> *mcgowan:Show working version vs. cvs version<br /> *<br /> *Revision 1.2 2003/04/10 02:37:22 dsiroot<br /> *mcgowan:Return an error flag of -1<br /> *<br /> *Revision 1.1 2002/11/12 09:38:40 dsiroot<br /> *Auto Checkin<br /> *<br /> *Revision 1.1 2002/11/09 01:46:25 mcgowan<br /> *Checkin<br /> *<br /> <br /> RTN=&#039;&#039;<br /> CALL CVS.STATUS(STATUS.RTN,FILE,ITEM,&#039;&#039;)<br /> STATUS=STATUS.RTN&lt;1&gt;<br /> WORK.VER=STATUS.RTN&lt;2&gt;<br /> CVS.VER=STATUS.RTN&lt;3&gt;<br /> <br /> IF STATUS=&#039;NOTINCVS&#039; THEN<br /> IF OPTIONS&lt;1&gt;=&#039;SHOW&#039; THEN<br /> PRINT ITEM:&#039; not in cvs&#039;<br /> END<br /> RTN=-1<br /> RETURN<br /> END<br /> <br /> IF WORK.VER # CVS.VER THEN<br /> IF OPTIONS&lt;1&gt;=&#039;SHOW&#039; THEN<br /> PRINT &#039;Working version=&#039;:WORK.VER:&#039;, CVS=&#039;:CVS.VER<br /> END<br /> END<br /> <br /> CALL CVS.GETDIR(DIR,FILE)<br /> <br /> E=\!cd \:DIR:\;cvs diff \:ITEM<br /> EXECUTE E CAPTURING RTN<br /> IF RTN = &#039;&#039; THEN<br /> IF OPTIONS&lt;1&gt;=&#039;SHOW&#039; THEN<br /> PRINT &#039;Working version matches cvs&#039;<br /> END<br /> END ELSE<br /> IF OPTIONS&lt;1&gt;=&#039;SHOW&#039; THEN<br /> I=DCOUNT(RTN,@AM)<br /> FOR F=1 TO I; PRINT RTN&lt;F&gt;; NEXT F<br /> END<br /> END<br /> RETURN<br /> &lt;/PRE&gt;</div> Conversion script