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

     2 

     3 Object subclass:#AbstractSourceFileReader

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'Kernel-Classes'

     8 !

     9 

    10 !AbstractSourceFileReader class methodsFor:'documentation'!

    11 

    12 versionSVN

    13 

    14     ^'$Id: AbstractSourceFileReader.st,v 1.1 2009-09-17 14:13:30 fm Exp $'

    15 ! !

    16 

    17 !AbstractSourceFileReader class methodsFor:'fileIn'!

    18 

    19 fileIn: aFilename

    20 

    21     ^self new fileIn: aFilename

    22 

    23     "Created: / 16-08-2009 / 10:14:51 / Jan Vrany <vranyj1@fel.cvut.cz>"

    24 !

    25 

    26 fileInStream: aStream

    27 

    28     ^self new fileInStream: aStream

    29 

    30     "Created: / 16-08-2009 / 10:15:05 / Jan Vrany <vranyj1@fel.cvut.cz>"

    31 ! !

    32 

    33 !AbstractSourceFileReader methodsFor:'fileIn'!

    34 

    35 fileIn:aFilename

    36 

    37     | stream |

    38     [stream := aFilename asFilename readStream.

    39     self fileInStream: stream]

    40         ensure:

    41             [stream ifNotNil:[stream close]]

    42 

    43     "Modified: / 15-08-2009 / 14:47:29 / Jan Vrany <vranyj1@fel.cvut.cz>"

    44 !

    45 

    46 fileInStream:arg

    47     "raise an error: must be redefined in concrete subclass(es)"

    48 

    49     ^ self subclassResponsibility

    50 ! !

    51 

    52 !AbstractSourceFileReader class methodsFor:'documentation'!

    53 

    54 version

    55     ^ '$Header: /cvs/stx/stx/libbasic/AbstractSourceFileReader.st,v 1.1 2009-09-17 14:13:30 fm Exp $'

    56 ! !