equal
deleted
inserted
replaced
56 |
56 |
57 | stream | |
57 | stream | |
58 [stream := aFilename asFilename readStream. |
58 [stream := aFilename asFilename readStream. |
59 self fileInStream: stream] |
59 self fileInStream: stream] |
60 ensure: |
60 ensure: |
61 [stream ifNotNil:[stream close]] |
61 [stream notNil ifTrue:[stream close]] |
62 |
62 |
63 "Modified: / 15-08-2009 / 14:47:29 / Jan Vrany <vranyj1@fel.cvut.cz>" |
63 "Modified: / 15-08-2009 / 14:47:29 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
64 "Modified: / 08-08-2010 / 14:38:35 / cg" |
64 ! |
65 ! |
65 |
66 |
66 fileInStream:arg |
67 fileInStream:arg |
67 "raise an error: must be redefined in concrete subclass(es)" |
68 "raise an error: must be redefined in concrete subclass(es)" |
68 |
69 |
70 ! ! |
71 ! ! |
71 |
72 |
72 !AbstractSourceFileReader class methodsFor:'documentation'! |
73 !AbstractSourceFileReader class methodsFor:'documentation'! |
73 |
74 |
74 version |
75 version |
75 ^ '$Id: AbstractSourceFileReader.st 10544 2010-07-12 16:20:36Z vranyj1 $' |
76 ^ '$Id: AbstractSourceFileReader.st 10564 2010-08-10 08:55:15Z vranyj1 $' |
76 ! |
77 ! |
77 |
78 |
78 version_CVS |
79 version_CVS |
79 ^ '§Header: /cvs/stx/stx/libbasic/AbstractSourceFileReader.st,v 1.4 2009/10/08 11:50:15 fm Exp §' |
80 ^ '§Header: /cvs/stx/stx/libbasic/AbstractSourceFileReader.st,v 1.5 2010/08/08 12:38:42 cg Exp §' |
80 ! |
81 ! |
81 |
82 |
82 version_SVN |
83 version_SVN |
83 ^ '$Id: AbstractSourceFileReader.st 10544 2010-07-12 16:20:36Z vranyj1 $' |
84 ^ '$Id: AbstractSourceFileReader.st 10564 2010-08-10 08:55:15Z vranyj1 $' |
84 ! ! |
85 ! ! |
85 |
86 |
86 |
87 |
87 |
88 |
|
89 |