JavaLocalVariableTable.st
author Claus Gittinger <cg@exept.de>
Thu, 24 Nov 2011 12:32:40 +0100
changeset 2243 ae85addb2982
parent 2242 ca34c8fde5dd
child 2302 a1c3bd3f9985
permissions -rw-r--r--
changed: #copyright
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
     1
"
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
     2
 COPYRIGHT (c) 1996-2011 by Claus Gittinger
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
     3
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
     4
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
     5
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
     6
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
     7
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
     8
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
     9
 hereby transferred.
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    10
"
713
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    11
"{ Package: 'stx:libjava' }"
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    12
427
a7083b7a8724 *** empty log message ***
cg
parents: 264
diff changeset
    13
Array variableSubclass:#JavaLocalVariableTable
103
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    14
	instanceVariableNames:''
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    15
	classVariableNames:''
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    16
	poolDictionaries:''
713
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    17
	category:'Languages-Java-Support'
103
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    18
!
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    19
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    20
!JavaLocalVariableTable class methodsFor:'documentation'!
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    21
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    22
copyright
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    23
"
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    24
 COPYRIGHT (c) 1996-2011 by Claus Gittinger
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    25
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    26
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    27
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    28
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    29
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    30
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    31
 hereby transferred.
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    32
"
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    33
! !
103
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    34
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    35
!JavaLocalVariableTable methodsFor:'queries'!
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    36
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    37
nameForSlot:slot atPC:pc
255
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    38
    |numEntryForSlot entryForSlot|
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    39
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    40
    numEntryForSlot := 0.
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    41
    self do:[:entry |
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    42
        entry slot == slot ifTrue:[
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    43
            entry startPC <= pc ifTrue:[
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    44
                entry endPC >= pc ifTrue:[
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    45
                    ^ entry name
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    46
                ]
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    47
            ].
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    48
            numEntryForSlot := numEntryForSlot + 1.
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    49
            entryForSlot := entry.
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    50
        ]
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    51
    ].
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    52
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    53
    "/ not at this pc - but maybe the name is valid
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    54
    "/ for all of the methods lines ...
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    55
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    56
    numEntryForSlot == 1 ifTrue:[
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    57
        ^ entryForSlot name
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    58
    ].
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    59
103
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    60
    ^ nil
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    61
255
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    62
    "Created: / 2.7.1996 / 11:30:09 / cg"
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
    63
    "Modified: / 8.1.1998 / 18:56:20 / cg"
103
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    64
! !
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    65
135
098936234135 *** empty log message ***
cg
parents: 103
diff changeset
    66
!JavaLocalVariableTable class methodsFor:'documentation'!
103
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    67
a04662e7b6e8 intitial checkin
cg
parents:
diff changeset
    68
version
2243
ae85addb2982 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 2242
diff changeset
    69
    ^ '$Header: /cvs/stx/stx/libjava/JavaLocalVariableTable.st,v 1.10 2011-11-24 11:32:40 cg Exp $'
2242
ca34c8fde5dd added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
    70
!
ca34c8fde5dd added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
    71
ca34c8fde5dd added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
    72
version_CVS
2243
ae85addb2982 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 2242
diff changeset
    73
    ^ '$Header: /cvs/stx/stx/libjava/JavaLocalVariableTable.st,v 1.10 2011-11-24 11:32:40 cg Exp $'
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    74
!
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    75
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    76
version_SVN
2242
ca34c8fde5dd added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
    77
    ^ '§Id: JavaLocalVariableTable.st,v 1.8 2011/08/18 18:42:48 vrany Exp §'
2108
ca8c4e7db2e8 category change
Claus Gittinger <cg@exept.de>
parents: 749
diff changeset
    78
! !