SqueakCommentReader.st
author Stefan Vogel <sv@exept.de>
Wed, 15 Apr 2020 20:18:14 +0200
changeset 25357 cec6ca6e3af4
parent 19639 a6130485ba3f
permissions -rw-r--r--
#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$'
! !