#BUGFIX by stefan
class: FileStream
changed: #copy:into:bufferSize:
Unix: check that UnixOperatingSystem class >> #copyFromFd:toFd:startIndex:count:
copied all the data
"{ 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$'
! !