Cherry-picked `Context` cherry-picked Context.st from a6b6dda4caff: * 4aaf30c174e9: #DOCUMENTATION by cg, Claus Gittinger <cg@exept.de> * c67311afcc6c: #OTHER by cg, Claus Gittinger <cg@exept.de> * 883f79e7b2a6: #FEATURE by cg, Claus Gittinger <cg@exept.de> * 716f3fbb09e9: Don't mark contexts with `CATCHMARK`, Jan Vrany <jan.vrany@fit.cvut.cz> * cff24fa817b0: #REFACTORING by stefan, Stefan Vogel <sv@exept.de> * 521f0d837330: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * bf1118f0fcca: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * e587cdd22868: #BUGFIX by cg, Claus Gittinger <cg@exept.de> * fe9f9487a3ed: #DOCUMENTATION by cg, Claus Gittinger <cg@exept.de> * d5b781899274: #BUGFIX by cg, Claus Gittinger <cg@exept.de> * 8258751a7465: #FEATURE by cg, Claus Gittinger <cg@exept.de> * 40173e082cbc: Copyright updates, Jan Vrany <jan.vrany@fit.cvut.cz> * 6db5c28207d5: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 871ea64fd5dc: #FEATURE by cg, Claus Gittinger <cg@exept.de> * 4b544a108e4e: #DOCUMENTATION by cg, Claus Gittinger <cg@exept.de> * 9a8d8399e566: #FEATURE by cgexept.de, Claus Gittinger <cg@exept.de> * 170b00be0103: #BUGFIX by stefan, Stefan Vogel <sv@exept.de> * a6c73965eae8: #FEATURE by cg, Claus Gittinger <cg@exept.de> * ce2a0e462ff0: #FEATURE by cg, Claus Gittinger <cg@exept.de> * 46a260a9ca92: #FEATURE by cg, Claus Gittinger <cg@exept.de> * 46cab49167fb: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 7d52dfd3997d: #DOCUMENTATION by exept, Claus Gittinger <cg@exept.de> * c52eeea62763: Fix `Context >> argAndVarNames` in cases when debug info is not available, Jan Vrany <jan.vrany@labware.com> * b5d6963fe4a9: Backed out changeset c52eeea62763, Jan Vrany <jan.vrany@labware.com> * 6fd3896f8703: #FEATURE by exept, Claus Gittinger <cg@exept.de> * b530ee616256: #REFACTORING by cg, Claus Gittinger <cg@exept.de> * ef9b481d7498: #FEATURE by cg, Claus Gittinger <cg@exept.de> * ea663b72bd51: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 6179572a733c: #FEATURE by exept, Claus Gittinger <cg@exept.de> * 84155b1b6622: #DOCUMENTATION by exept, Claus Gittinger <cg@exept.de> * 37d06602d856: *** empty log message ***, Claus Gittinger <cg@exept.de> * f927b9022fea: *** empty log message ***, Claus Gittinger <cg@exept.de> * 427d3be62d97: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de>

     1

"{ Package: 'stx:libbasic' }"

     2

     3

"{ NameSpace: Smalltalk }"

     4

     5

Object subclass:#AbstractSourceFileReader

     6

	instanceVariableNames:''

     7

	classVariableNames:''

     8

	poolDictionaries:''

     9

	category:'Kernel-Classes-Support'

    10

!

    11

    12

!AbstractSourceFileReader class methodsFor:'documentation'!

    13

    14

documentation

    15

"

    16

    Abstract common superclass for source file readers

    17

"

    18

! !

    19

    20

!AbstractSourceFileReader class methodsFor:'fileIn'!

    21

    22

fileIn: aFilename

    23

    24

    ^self new fileIn: aFilename

    25

    26

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

    27

!

    28

    29

fileInStream: aStream

    30

    31

    ^self new fileInStream: aStream

    32

    33

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

    34

! !

    35

    36

!AbstractSourceFileReader class methodsFor:'queries'!

    37

    38

isAbstract

    39

    ^ self == AbstractSourceFileReader

    40

! !

    41

    42

!AbstractSourceFileReader methodsFor:'fileIn'!

    43

    44

fileIn:aFilename

    45

    46

    | stream |

    47

    [stream := aFilename asFilename readStream.

    48

    self fileInStream: stream]

    49

        ensure:

    50

            [stream notNil ifTrue:[stream close]]

    51

    52

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

    53

    "Modified: / 08-08-2010 / 14:38:35 / cg"

    54

!

    55

    56

fileInStream:arg

    57

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

    58

    59

    ^ self subclassResponsibility

    60

! !

    61

    62

!AbstractSourceFileReader class methodsFor:'documentation'!

    63

    64

version

    65

    ^ '$Header$'

    66

!

    67

    68

version_CVS

    69

    ^ '$Header$'

    70

!

    71

    72

version_SVN

    73

    ^'$Id$'

    74

! !

    75