#DOCUMENTATION by mawalch
authormawalch
Mon, 18 Dec 2017 10:13:40 +0100
changeset 4293 6ad063b90b0f
parent 4292 edbabb3f6941
child 4294 13c16e970531
#DOCUMENTATION by mawalch class: SourceCodeCache comment/format in: #streamForClass:fileName:revision:repository:module:directory:ifAbsent:
SourceCodeCache.st
--- a/SourceCodeCache.st	Thu Dec 07 10:56:03 2017 +0100
+++ b/SourceCodeCache.st	Mon Dec 18 10:13:40 2017 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic3' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#SourceCodeCache
 	instanceVariableNames:''
 	classVariableNames:'Default'
@@ -76,7 +78,7 @@
     "Answers a stream for given class (stored in classFileName) at
      given revision. If the stream is not in the cache, then the
      block is called with the desired cached filename as an argument.
-     The block should return a stream (not necesarily on the filename
+     The block should return a stream (not necessarily on the filename
      passed)."
 
     | file stream |
@@ -85,10 +87,10 @@
         ^file readStream.
     ].
 
-    [ 
-        file directory recursiveMakeDirectory 
+    [
+        file directory recursiveMakeDirectory
     ] on: Error do:[:ex|
-        self error: 'Cannot make cache directory: ', ex description.        
+        self error: 'Cannot make cache directory: ', ex description.
     ].
     stream := block valueWithOptionalArgument: file.
     stream isNil ifTrue:[^nil].
@@ -110,6 +112,7 @@
     ^stream
 
     "Created: / 12-10-2011 / 09:58:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 18-12-2017 / 10:12:24 / mawalch"
 ! !
 
 !SourceCodeCache methodsFor:'private'!
@@ -141,10 +144,10 @@
 !SourceCodeCache class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeCache.st,v 1.4 2014-02-05 17:51:43 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeCache.st,v 1.4 2014-02-05 17:51:43 cg Exp $'
+    ^ '$Header$'
 ! !