JavaMethodWithException.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Fri, 19 Apr 2013 13:50:19 +0200
branchdevelopment
changeset 2532 64a784c73d1e
parent 2429 ebece4dcaab9
child 2588 58b1e0fd20e7
permissions -rw-r--r--
Update bytecode and constpool upon context restart. This way the restarted method can execute new code. This allows for fix & continue workflow. Should check for exceptions - will do it later.
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: 2107
diff changeset
     2
 COPYRIGHT (c) 1996-2011 by Claus Gittinger
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
     3
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
     4
 New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
     5
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
     6
 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
     7
                            SWING Research Group, Czech Technical University in Prague
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
     8
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
     9
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    10
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    11
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    12
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    13
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    14
 hereby transferred.
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    15
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    16
 [1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    17
     of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    18
     see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    19
     as of 1.9.2010
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    20
"
688
dcd829fd4094 *** empty log message ***
cg
parents: 616
diff changeset
    21
"{ Package: 'stx:libjava' }"
dcd829fd4094 *** empty log message ***
cg
parents: 616
diff changeset
    22
2396
fadc6d7a2f5b Updated to rev 009a0df3afce
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2353
diff changeset
    23
JavaMethod subclass:#JavaMethodWithException
422
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    24
	instanceVariableNames:'exceptionTable'
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    25
	classVariableNames:''
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    26
	poolDictionaries:''
2107
f4509f6767fa category change
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
    27
	category:'Languages-Java-Classes'
422
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    28
!
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    29
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    30
!JavaMethodWithException class methodsFor:'documentation'!
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    31
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    32
copyright
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    33
"
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    34
 COPYRIGHT (c) 1996-2011 by Claus Gittinger
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    35
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    36
 New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    37
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    38
 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    39
                            SWING Research Group, Czech Technical University in Prague
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    40
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    41
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    42
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    43
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    44
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    45
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    46
 hereby transferred.
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    47
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    48
 [1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    49
     of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    50
     see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    51
     as of 1.9.2010
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    52
2082
ee2fac5efadb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 749
diff changeset
    53
"
454
38f590639d65 *** empty log message ***
cg
parents: 427
diff changeset
    54
! !
422
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    55
2396
fadc6d7a2f5b Updated to rev 009a0df3afce
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2353
diff changeset
    56
616
53bf2ec50346 *** empty log message ***
cg
parents: 454
diff changeset
    57
!JavaMethodWithException class methodsFor:'initialization'!
53bf2ec50346 *** empty log message ***
cg
parents: 454
diff changeset
    58
53bf2ec50346 *** empty log message ***
cg
parents: 454
diff changeset
    59
initialize
53bf2ec50346 *** empty log message ***
cg
parents: 454
diff changeset
    60
    self flags:(self flags bitOr:Behavior flagJavaMethod).
53bf2ec50346 *** empty log message ***
cg
parents: 454
diff changeset
    61
! !
53bf2ec50346 *** empty log message ***
cg
parents: 454
diff changeset
    62
2396
fadc6d7a2f5b Updated to rev 009a0df3afce
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2353
diff changeset
    63
422
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    64
!JavaMethodWithException methodsFor:'accessing'!
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    65
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    66
exceptionClasses
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    67
    "Return a collection of declared exception classes that this method
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    68
     throws"    
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    69
    exceptionTable isNil ifTrue: [ ^ nil ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    70
    ^ exceptionTable collect: [:classRef | classRef resolve ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    71
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    72
    "Created: / 01-08-2012 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    73
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
    74
422
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    75
exceptionTable
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    76
    "return exception table - collection of classRefs"
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    77
    ^ exceptionTable.
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    78
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    79
    "Created: / 05-11-1998 / 19:58:38 / cg"
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    80
    "Modified: / 04-02-2011 / 22:07:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    81
    "Modified: / 04-06-2011 / 17:20:17 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    82
!
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    83
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    84
getExceptionTable
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    85
 "return exception table - collection of classRefs"
422
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    86
    ^ exceptionTable
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    87
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    88
    "Created: / 04-02-2011 / 23:07:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    89
    "Modified: / 04-06-2011 / 17:20:29 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
422
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    90
!
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    91
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    92
setExceptionTable: anArray 
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    93
     "set exception table - expected arg: collection of classRefs"
422
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    94
    exceptionTable := anArray.
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    95
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    96
    "Created: / 05-11-1998 / 19:58:43 / cg"
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
    97
    "Modified: / 04-06-2011 / 17:21:17 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
422
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    98
! !
52d7ad2a295d initial checkin
cg
parents:
diff changeset
    99
2396
fadc6d7a2f5b Updated to rev 009a0df3afce
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2353
diff changeset
   100
422
52d7ad2a295d initial checkin
cg
parents:
diff changeset
   101
!JavaMethodWithException class methodsFor:'documentation'!
52d7ad2a295d initial checkin
cg
parents:
diff changeset
   102
52d7ad2a295d initial checkin
cg
parents:
diff changeset
   103
version
2396
fadc6d7a2f5b Updated to rev 009a0df3afce
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2353
diff changeset
   104
    ^ '$Header: /cvs/stx/stx/libjava/JavaMethodWithException.st,v 1.11 2013-02-25 11:15:31 vrany Exp $'
2202
5ad161e32a6f changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
   105
!
5ad161e32a6f changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
   106
5ad161e32a6f changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
   107
version_CVS
2396
fadc6d7a2f5b Updated to rev 009a0df3afce
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2353
diff changeset
   108
    ^ '$Header: /cvs/stx/stx/libjava/JavaMethodWithException.st,v 1.11 2013-02-25 11:15:31 vrany Exp $'
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
   109
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
   110
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
   111
version_HG
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
   112
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
   113
    ^ '$Changeset: <not expanded> $'
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
   114
!
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
   115
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2107
diff changeset
   116
version_SVN
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
   117
    ^ '§Id§'
422
52d7ad2a295d initial checkin
cg
parents:
diff changeset
   118
! !
2107
f4509f6767fa category change
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   119
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2309
diff changeset
   120
2082
ee2fac5efadb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 749
diff changeset
   121
JavaMethodWithException initialize!