#REFACTORING by exept
class: Smalltalk class
changed: #recursiveInstallAutoloadedClassesFrom:rememberIn:maxLevels:noAutoload:packageTop:showSplashInLevels:
Transcript showCR:(... bindWith:...) -> Transcript showCR:... with:...
"{ Package: 'stx:libbasic' }"
"{ NameSpace: Smalltalk }"
Object subclass:#SqueakCommentReader
instanceVariableNames:'myClass'
classVariableNames:''
poolDictionaries:''
category:'Kernel-Support'
!
!SqueakCommentReader class methodsFor:'documentation'!
documentation
"
a helper class for fileIn of squeak source code with commentStamp chunks.
This reader reads the next chunk as a string comment
[author:]
Claus Gittinger
"
! !
!SqueakCommentReader methodsFor:'private'!
class:aClass stamp:stampString priorVersion:priorVersion
myClass := aClass.
! !
!SqueakCommentReader methodsFor:'reading'!
fileInFrom:aStream notifying:requestor passChunk:passChunk single:oneChunkOnly
"read a single comment chunk"
|chunk|
chunk := aStream nextChunk.
myClass comment:chunk.
!
fileInFrom:aStream notifying:requestor passChunk:passChunk single:oneChunkOnly silent:beSilent
"read a single comment chunk"
|chunk|
chunk := aStream nextChunk.
myClass comment:chunk.
! !
!SqueakCommentReader class methodsFor:'documentation'!
version
^ '$Header$'
!
version_CVS
^ '$Header$'
! !