1 "{ Package: 'stx:libbasic' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 Object subclass:#SqueakCommentReader

     6 	instanceVariableNames:'myClass'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'Kernel-Support'

    10 !

    11 

    12 !SqueakCommentReader class methodsFor:'documentation'!

    13 

    14 documentation

    15 "

    16     a helper class for fileIn of squeak source code with commentStamp chunks.

    17     This reader reads the next chunk as a string comment

    18 

    19     [author:]

    20         Claus Gittinger

    21 "

    22 ! !

    23 

    24 !SqueakCommentReader methodsFor:'private'!

    25 

    26 class:aClass stamp:stampString priorVersion:priorVersion

    27     myClass := aClass.

    28 ! !

    29 

    30 !SqueakCommentReader methodsFor:'reading'!

    31 

    32 fileInFrom:aStream notifying:requestor passChunk:passChunk single:oneChunkOnly

    33     "read a single comment chunk"

    34 

    35     |chunk|

    36 

    37     chunk := aStream nextChunk.

    38     myClass comment:chunk.

    39 !

    40 

    41 fileInFrom:aStream notifying:requestor passChunk:passChunk single:oneChunkOnly silent:beSilent

    42     "read a single comment chunk"

    43 

    44     |chunk|

    45 

    46     chunk := aStream nextChunk.

    47     myClass comment:chunk.

    48 ! !

    49 

    50 !SqueakCommentReader class methodsFor:'documentation'!

    51 

    52 version

    53     ^ '$Header$'

    54 !

    55 

    56 version_CVS

    57     ^ '$Header$'

    58 ! !

    59