--- a/CVSSourceCodeManager.st Thu Sep 30 13:35:21 2004 +0200
+++ b/CVSSourceCodeManager.st Tue Oct 19 17:50:26 2004 +0200
@@ -2339,7 +2339,7 @@
"Modified: / 28.4.1999 / 12:21:10 / cg"
!
-streamForClass:cls fileName:fileName revision:revision directory:packageDir module:moduleDir cache:cacheIt
+streamForClass:cls fileName:fileName revision:revision directory:packageDir module:moduleDir cache:cacheItArg
"extract a source file and return an open readStream on it,
or nil if the extract failed. If revision is nil or (#newest), take
the latest; otherwise, a specific revisions source is extracted.
@@ -2349,7 +2349,9 @@
|dir cachedSourceFilename cachedFile cmd fullName revisionArg stream
checkoutName checkoutNameLocal fullTempName fullCachedName tempdir cmdOut
- classFileName cvsRoot tempFile revMsg|
+ classFileName cvsRoot tempFile revMsg cacheIt|
+
+ cacheIt := cacheItArg.
(DisabledModules notNil and:[DisabledModules includes:moduleDir]) ifTrue:[
Transcript showCR:'cvs access for module ' , moduleDir , ' has been disabled (due to previous failure)'.
@@ -2484,8 +2486,11 @@
cmdOut notNil ifTrue:[cmdOut remove].
fullTempName := tempdir construct:checkoutNameLocal.
- fullCachedName := CacheDirectoryName asFilename constructString:cachedSourceFilename.
-
+ CacheDirectoryName isNil ifTrue:[
+ cacheIt := false
+ ] ifFalse:[
+ fullCachedName := CacheDirectoryName asFilename constructString:cachedSourceFilename.
+ ].
fullTempName exists ifFalse:[
('CVSSourceCodeManager [error]: failed to checkout ', fullTempName pathName, ' (file does not exist after cvs co)') errorPrintCR.
tempdir recursiveRemove.
@@ -4460,7 +4465,7 @@
!CVSSourceCodeManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.286 2004-06-11 17:18:41 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.287 2004-10-19 15:50:26 penk Exp $'
! !
CVSSourceCodeManager initialize!