https://pickwiki.org/index.php?action=history&feed=atom&title=CvsGetDir
CvsGetDir - Revision history
2026-04-28T23:50:48Z
Revision history for this page on the wiki
MediaWiki 1.43.0
https://pickwiki.org/index.php?title=CvsGetDir&diff=1621&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 to get the source directory of a file<br />
<br />
<PRE><br />
SUBROUTINE CVS.GETDIR(DIR,FILE)<br />
***************************************************************************<br />
* Program: CVS.GETDIR<br />
* Author : Ian [[McGowan]]<br />
* Date : 11/08/2002<br />
* Edited : $Id: CVS.GETDIR,v 1.2 2004/04/21 01:42:06 dsiroot Exp $<br />
* Comment:<br />
***************************************************************************<br />
*$Log: CVS.GETDIR,v $<br />
*Revision 1.2 2004/04/21 01:42:06 dsiroot<br />
*mcgowan:Fix tags<br />
*<br />
*Revision 1.1 2002/11/12 09:38:50 dsiroot<br />
*Auto Checkin<br />
*<br />
*Revision 1.2 2002/11/09 01:56:40 mcgowan<br />
*Do not print error on screen<br />
*<br />
*Revision 1.1 2002/11/09 01:44:21 mcgowan<br />
*My initial checkin<br />
*<br />
<br />
OPEN 'VOC' TO VOC ELSE ABORT<br />
<br />
READ REC FROM VOC, FILE THEN<br />
DIR=REC<2><br />
END ELSE<br />
*PRINT 'CANNOT READ FILE POINTER IN VOC: ':FILE<br />
DIR='ZZZ'<br />
END<br />
RETURN<br />
</PRE></div>
Conversion script