hg/stx-libjava: JavaMethod.st@7b06266d8249 (annotated)

454 38f590639d65 * empty log message * cg parents: 449 diff changeset	1	"
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	3	All Rights Reserved
454 38f590639d65 * empty log message * cg parents: 449 diff changeset	4
38f590639d65 * empty log message * cg parents: 449 diff changeset	5	This software is furnished under a license and may be used
38f590639d65 * empty log message * cg parents: 449 diff changeset	6	only in accordance with the terms of that license and with the
38f590639d65 * empty log message * cg parents: 449 diff changeset	7	inclusion of the above copyright notice. This software may not
38f590639d65 * empty log message * cg parents: 449 diff changeset	8	be provided or otherwise made available to, or used by, any
38f590639d65 * empty log message * cg parents: 449 diff changeset	9	other person. No title to or ownership of the software is
38f590639d65 * empty log message * cg parents: 449 diff changeset	10	hereby transferred.
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	11	"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: 748 diff changeset	12
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: 748 diff changeset	13
678 0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	14	"{ Package: 'stx:libjava' }"
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	15
427 a7083b7a8724 * empty log message * cg parents: 423 diff changeset	16	CompiledCode variableSubclass:#JavaMethod
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	17	instanceVariableNames:'accessFlags selector javaClass signature lineNumberTable
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	18	localVariableTable'
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	19	classVariableNames:'AbstractMethodInvokationSignal SignatureTypeCodes
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	20	ForceByteCodeDisplay UnresolvedClassSignal A_PUBLIC A_PRIVATE
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	21	A_PROTECTED A_STATIC A_FINAL A_SYNCHRONIZED A_ABSTRACT A_NATIVE
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	22	A_BREAKPOINT R_VOID R_LONG R_DOUBLE A_HASHANDLER'
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	23	poolDictionaries:''
2107 f4509f6767fa category change Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	24	category:'Languages-Java-Classes'
2 91843ac44d2f intitial checkin cg parents: diff changeset	25	!
91843ac44d2f intitial checkin cg parents: diff changeset	26
454 38f590639d65 * empty log message * cg parents: 449 diff changeset	27	!JavaMethod class methodsFor:'documentation'!
38f590639d65 * empty log message * cg parents: 449 diff changeset	28
38f590639d65 * empty log message * cg parents: 449 diff changeset	29	copyright
38f590639d65 * empty log message * cg parents: 449 diff changeset	30	"
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	31	COPYRIGHT (c) 1997 by eXept Software AG
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	32	All Rights Reserved
454 38f590639d65 * empty log message * cg parents: 449 diff changeset	33
38f590639d65 * empty log message * cg parents: 449 diff changeset	34	This software is furnished under a license and may be used
38f590639d65 * empty log message * cg parents: 449 diff changeset	35	only in accordance with the terms of that license and with the
38f590639d65 * empty log message * cg parents: 449 diff changeset	36	inclusion of the above copyright notice. This software may not
38f590639d65 * empty log message * cg parents: 449 diff changeset	37	be provided or otherwise made available to, or used by, any
38f590639d65 * empty log message * cg parents: 449 diff changeset	38	other person. No title to or ownership of the software is
38f590639d65 * empty log message * cg parents: 449 diff changeset	39	hereby transferred.
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	40	"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: 748 diff changeset	41
454 38f590639d65 * empty log message * cg parents: 449 diff changeset	42	! !
2 91843ac44d2f intitial checkin cg parents: diff changeset	43
129 f40775af59a5 checkin from browser cg parents: 127 diff changeset	44	!JavaMethod class methodsFor:'initialization'!
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	45
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	46	initialize
277 511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	47	AbstractMethodInvokationSignal isNil ifTrue:[
2114 cbdc4c02a8e2 ExecutionErrorSignal -> ExecutionError Claus Gittinger <cg@exept.de> parents: 2110 diff changeset	48	AbstractMethodInvokationSignal := ExecutionError newSignalMayProceed:true.
594 0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	49	AbstractMethodInvokationSignal nameClass:self message:#abstractMethodInvokationSignal.
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	50	AbstractMethodInvokationSignal notifierString:'attempt to execute abstract method'.
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	51
2114 cbdc4c02a8e2 ExecutionErrorSignal -> ExecutionError Claus Gittinger <cg@exept.de> parents: 2110 diff changeset	52	UnresolvedClassSignal := ExecutionError newSignalMayProceed:true.
594 0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	53	UnresolvedClassSignal nameClass:self message:#unresolvedClassSignal.
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	54	UnresolvedClassSignal notifierString:'unresolved class'.
277 511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	55	].
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	56
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	57	A_PUBLIC := 16r0001.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	58	A_PRIVATE := 16r0002.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	59	A_PROTECTED := 16r0004.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	60	A_STATIC := 16r0008.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	61	A_FINAL := 16r0010.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	62	A_SYNCHRONIZED := 16r0020.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	63	A_NATIVE := 16r0100.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	64	A_ABSTRACT := 16r0400.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	65
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	66	R_VOID := 16r100000.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	67	R_LONG := 16r200000.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	68	R_DOUBLE := 16r300000.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	69
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	70	A_BREAKPOINT := 16r0800000.
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	71	A_HASHANDLER := 16r1000000.
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	72
173 10513c48882f checkin from browser cg parents: 169 diff changeset	73	self flags:(self flags bitOr:Behavior flagJavaMethod).
10513c48882f checkin from browser cg parents: 169 diff changeset	74
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	75	SignatureTypeCodes := IdentityDictionary new.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	76	SignatureTypeCodes at:$B put:#byte.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	77	SignatureTypeCodes at:$C put:#char.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	78	SignatureTypeCodes at:$D put:#double.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	79	SignatureTypeCodes at:$F put:#float.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	80	SignatureTypeCodes at:$I put:#int.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	81	SignatureTypeCodes at:$J put:#long.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	82	SignatureTypeCodes at:$S put:#'unsigned short'.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	83	SignatureTypeCodes at:$Z put:#boolean.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	84	SignatureTypeCodes at:$L put:#object.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	85	SignatureTypeCodes at:$[ put:#array.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	86
207 dfbd9b69a64e checkin from browser cg parents: 189 diff changeset	87	ForceByteCodeDisplay := false.
dfbd9b69a64e checkin from browser cg parents: 189 diff changeset	88
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	89	"
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	90	JavaMethod initialize.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	91	JavaMethodWithHandler initialize.
209 9e4b45da1117 checkin from browser cg parents: 207 diff changeset	92	ForceByteCodeDisplay := true.
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	93	ForceByteCodeDisplay := false.
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	94	"
173 10513c48882f checkin from browser cg parents: 169 diff changeset	95
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	96	"Modified: / 16.10.1998 / 01:29:48 / cg"
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	97	! !
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	98
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	99	!JavaMethod class methodsFor:'instance creation'!
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	100
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	101	fromMethod:aJavaMethod
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	102	"create a new javaMethod, copying values from another javaMethod"
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	103
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	104	^ self new fromMethod:aJavaMethod
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	105
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	106	"Created: / 16.10.1998 / 01:25:12 / cg"
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	107	!
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	108
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	109	new
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	110	"create a new javaMethod.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	111	Redefined, since constants are NOT stored in a literalArray,
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	112	but my classes constantTable instead."
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	113
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	114	^ self basicNew:0.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	115
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	116	"Created: / 16.10.1998 / 01:13:02 / cg"
277 511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	117	! !
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	118
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	119	!JavaMethod class methodsFor:'Signal constants'!
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	120
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	121	abstractMethodInvokationSignal
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	122	"return the signal raised when an abstract method is invoked"
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	123
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	124	^ AbstractMethodInvokationSignal
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	125
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	126	"Created: / 27.1.1998 / 21:50:05 / cg"
594 0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	127	!
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	128
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	129	unresolvedClassSignal
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	130	"return the signal raised when an unresolved class is referenced"
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	131
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	132	^ UnresolvedClassSignal
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	133
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	134	"Created: / 27.1.1998 / 21:50:05 / cg"
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	135	! !
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	136
357 90d866d87398 more st-class reading cg parents: 334 diff changeset	137	!JavaMethod class methodsFor:'constants'!
90d866d87398 more st-class reading cg parents: 334 diff changeset	138
467 c2a6ef8c7db7 checkin from browser cg parents: 454 diff changeset	139	A_HASHANDLER
c2a6ef8c7db7 checkin from browser cg parents: 454 diff changeset	140	^ A_HASHANDLER
c2a6ef8c7db7 checkin from browser cg parents: 454 diff changeset	141
c2a6ef8c7db7 checkin from browser cg parents: 454 diff changeset	142	"Created: / 26.11.1998 / 22:23:12 / cg"
c2a6ef8c7db7 checkin from browser cg parents: 454 diff changeset	143	!
c2a6ef8c7db7 checkin from browser cg parents: 454 diff changeset	144
357 90d866d87398 more st-class reading cg parents: 334 diff changeset	145	A_NATIVE
2091 de89909ef851 * empty log message * Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	146	^ A_NATIVE
357 90d866d87398 more st-class reading cg parents: 334 diff changeset	147
90d866d87398 more st-class reading cg parents: 334 diff changeset	148	"Created: / 16.5.1998 / 01:18:24 / cg"
90d866d87398 more st-class reading cg parents: 334 diff changeset	149	!
90d866d87398 more st-class reading cg parents: 334 diff changeset	150
90d866d87398 more st-class reading cg parents: 334 diff changeset	151	A_PUBLIC
2091 de89909ef851 * empty log message * Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	152	^ A_PUBLIC
357 90d866d87398 more st-class reading cg parents: 334 diff changeset	153
90d866d87398 more st-class reading cg parents: 334 diff changeset	154	"Created: / 16.5.1998 / 00:01:10 / cg"
90d866d87398 more st-class reading cg parents: 334 diff changeset	155	!
90d866d87398 more st-class reading cg parents: 334 diff changeset	156
90d866d87398 more st-class reading cg parents: 334 diff changeset	157	A_STATIC
2091 de89909ef851 * empty log message * Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	158	^ A_STATIC
357 90d866d87398 more st-class reading cg parents: 334 diff changeset	159
90d866d87398 more st-class reading cg parents: 334 diff changeset	160	"Created: / 16.5.1998 / 00:01:17 / cg"
90d866d87398 more st-class reading cg parents: 334 diff changeset	161	! !
90d866d87398 more st-class reading cg parents: 334 diff changeset	162
169 269f334e9f34 * empty log message * cg parents: 168 diff changeset	163	!JavaMethod class methodsFor:'misc'!
269f334e9f34 * empty log message * cg parents: 168 diff changeset	164
269f334e9f34 * empty log message * cg parents: 168 diff changeset	165	forceByteCodeDisplay
269f334e9f34 * empty log message * cg parents: 168 diff changeset	166	^ ForceByteCodeDisplay
269f334e9f34 * empty log message * cg parents: 168 diff changeset	167
269f334e9f34 * empty log message * cg parents: 168 diff changeset	168	"Created: 7.4.1997 / 20:11:39 / cg"
309 e1bfd26cadae * empty log message * cg parents: 277 diff changeset	169	!
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	170
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	171	forceByteCodeDisplay:aBoolean
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	172	ForceByteCodeDisplay := aBoolean
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	173
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	174	"
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	175	self forceByteCodeDisplay:true
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	176	self forceByteCodeDisplay:false
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	177	"
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	178
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	179	"Created: / 4.2.1998 / 00:22:54 / cg"
169 269f334e9f34 * empty log message * cg parents: 168 diff changeset	180	! !
269f334e9f34 * empty log message * cg parents: 168 diff changeset	181
129 f40775af59a5 checkin from browser cg parents: 127 diff changeset	182	!JavaMethod class methodsFor:'signature parsing'!
5 f026f5d20c15 checkin from browser cg parents: 2 diff changeset	183
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	184	argSigArrayFromSignature:aSignature
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	185	"given a signature, return a specArray for the arguments"
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	186
238 18c543cfe8ef * empty log message * cg parents: 237 diff changeset	187	\|s\|
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	188
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	189	s := aSignature readStream.
237 4c9ca89313d4 * empty log message * cg parents: 220 diff changeset	190	s next ~~ $( ifTrue:[self halt].
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	191
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	192	^ self argSigArrayFromStream:s.
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	193
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	194	"
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	195	JavaMethod argSigArrayFromSignature:'(LObject;)V'
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	196	JavaMethod argSigArrayFromSignature:'(BB)S'
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	197	JavaMethod argSigArrayFromSignature:'(LObject;LObject;II)V'
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	198	"
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	199	!
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	200
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	201	argSigArrayFromStream:s
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	202	"parse an argSpec, return an array of specs - see java doc"
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	203
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	204	\|argSpec spec\|
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	205
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	206	spec := #().
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	207	[s atEnd or:[s peek == $)]] whileFalse:[
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	208	"/ s peek == Character space ifTrue:[
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	209	"/ s next
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	210	"/ ] ifFalse:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	211	argSpec := self fieldTypeFromStream:s in:nil.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	212	spec := spec copyWith:argSpec.
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	213	"/ ]
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	214	].
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	215	^ spec
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	216
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	217	"Modified: / 8.1.1998 / 19:10:20 / cg"
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	218	!
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	219
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	220	argSignatureFromArgTypeArray:arr
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	221	\|sig\|
321 1fc4570fb914 preps for getMethod nativeCall cg parents: 309 diff changeset	222
1fc4570fb914 preps for getMethod nativeCall cg parents: 309 diff changeset	223	sig := ''.
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	224	arr do:[:el \|
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	225	\|jCLass\|
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: 748 diff changeset	226
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	227	jCLass := el.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	228	jCLass isJavaClass ifFalse:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	229	jCLass := JavaVM classForJavaClassObject:el
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	230	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	231	jCLass isJavaClass ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	232	sig := sig , jCLass typeName.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	233	sig := sig, ';'
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	234	] ifFalse:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	235	self halt.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	236	]
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	237	].
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	238	^ sig
321 1fc4570fb914 preps for getMethod nativeCall cg parents: 309 diff changeset	239
1fc4570fb914 preps for getMethod nativeCall cg parents: 309 diff changeset	240	"
1fc4570fb914 preps for getMethod nativeCall cg parents: 309 diff changeset	241	self argSignatureFromArgTypeArray:
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	242	(Array
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	243	with:(JavaVM javaClassObjectForClass:(Java at:'com.sun.java.swing.JComponent')))
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	244	"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: 748 diff changeset	245
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	246	"Modified: / 13.2.1998 / 14:57:58 / cg"
321 1fc4570fb914 preps for getMethod nativeCall cg parents: 309 diff changeset	247	!
1fc4570fb914 preps for getMethod nativeCall cg parents: 309 diff changeset	248
113 481bf55e161e * empty log message * cg parents: 111 diff changeset	249	argSpecFromSignature:aSignature withName:name
481bf55e161e * empty log message * cg parents: 111 diff changeset	250	"given a signature, return a spec"
481bf55e161e * empty log message * cg parents: 111 diff changeset	251
238 18c543cfe8ef * empty log message * cg parents: 237 diff changeset	252	\|s argSpec\|
113 481bf55e161e * empty log message * cg parents: 111 diff changeset	253
481bf55e161e * empty log message * cg parents: 111 diff changeset	254	s := aSignature readStream.
481bf55e161e * empty log message * cg parents: 111 diff changeset	255	s next ~~ $( ifTrue:[self halt. ^ name].
481bf55e161e * empty log message * cg parents: 111 diff changeset	256
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	257	argSpec := self argSpecFromStream:s in:nil.
113 481bf55e161e * empty log message * cg parents: 111 diff changeset	258
481bf55e161e * empty log message * cg parents: 111 diff changeset	259	s next ~~ $) ifTrue:[self halt. ^ name].
481bf55e161e * empty log message * cg parents: 111 diff changeset	260
481bf55e161e * empty log message * cg parents: 111 diff changeset	261	^ name , ' (' , argSpec , ')'
481bf55e161e * empty log message * cg parents: 111 diff changeset	262
481bf55e161e * empty log message * cg parents: 111 diff changeset	263	"
481bf55e161e * empty log message * cg parents: 111 diff changeset	264	JavaMethod argSpecFromSignature:'(LObject;)V' withName:'foo'
481bf55e161e * empty log message * cg parents: 111 diff changeset	265	JavaMethod argSpecFromSignature:'(BB)S' withName:'foo'
481bf55e161e * empty log message * cg parents: 111 diff changeset	266	"
481bf55e161e * empty log message * cg parents: 111 diff changeset	267
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	268	"Modified: / 8.1.1998 / 19:05:36 / cg"
5 f026f5d20c15 checkin from browser cg parents: 2 diff changeset	269	!
f026f5d20c15 checkin from browser cg parents: 2 diff changeset	270
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	271	argSpecFromStream:s in:aPackage
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	272	"parse an argSpec - see java doc"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	273
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	274	\|argSpec spec\|
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	275
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	276	spec := ''.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	277	[s atEnd or:[s peek == $)]] whileFalse:[
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	278	"/ s peek == Character space ifTrue:[
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	279	"/ s next
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	280	"/ ] ifFalse:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	281	argSpec := self fieldTypeFromStream:s in:aPackage.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	282	spec size ~~ 0 ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	283	spec := spec , ' '
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	284	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	285	spec := spec , argSpec.
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	286	"/ ]
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	287	].
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	288	^ spec
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	289
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	290	"Created: 18.3.1997 / 11:06:44 / cg"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	291	!
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	292
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	293	argSpecWithArgsFromStream:s in:aPackage
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	294	"parse an argSpec - see java doc"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	295
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	296	^ self argSpecWithArgsFromStream:s in:aPackage argNames:nil
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	297
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	298	"Modified: / 8.1.1998 / 19:21:00 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	299	!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	300
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	301	argSpecWithArgsFromStream:s in:aPackage argNames:argNames
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	302	"parse an argSpec - see java doc"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	303
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	304	\|argSpec spec argNr nm\|
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	305
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	306	argNr := 1.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	307	spec := ''.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	308	[s atEnd or:[s peek == $)]] whileFalse:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	309	argSpec := self fieldTypeFromStream:s in:aPackage.
750 d594c0664435 Synchronized with CVS repository at: vranyj1 parents: 749 diff changeset	310
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	311	(argNames notNil
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	312	and:[argNames size >= argNr
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	313	and:[(nm := argNames at:argNr) notNil]]) ifFalse:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	314	nm := 'arg' , argNr printString.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	315	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	316	argSpec := argSpec , ' ' , nm.
750 d594c0664435 Synchronized with CVS repository at: vranyj1 parents: 749 diff changeset	317
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	318	spec size ~~ 0 ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	319	spec := spec , ', '
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	320	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	321	spec := spec , argSpec.
750 d594c0664435 Synchronized with CVS repository at: vranyj1 parents: 749 diff changeset	322
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	323	argNr := argNr + 1.
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	324	].
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	325	^ spec
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	326
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	327	"Created: / 8.1.1998 / 19:20:36 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	328	"Modified: / 8.1.1998 / 21:14:33 / cg"
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	329	!
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	330
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	331	fieldTypeFromStream:s in:aPackage
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	332	"parse a fieldTypeSpec - see java doc"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	333
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	334	\|typeChar typeSym elType size className nm\|
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	335
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	336	typeChar := s next.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	337
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	338	typeSym := SignatureTypeCodes at:typeChar ifAbsent:#unknown.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	339
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	340	typeSym == #unknown ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	341	^ typeSym
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	342	].
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	343	typeSym == #object ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	344	className := s upTo:$;.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	345	"/ strip off default
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: 748 diff changeset	346
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	347	nm := className.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	348	aPackage notNil ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	349	(nm startsWith:aPackage) ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	350	nm := nm copyFrom:(aPackage size + 2).
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	351	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	352	].
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	353
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	354	nm := nm copyReplaceAll:$/ with:$..
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	355	^ nm
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	356	].
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	357
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	358	typeSym == #array ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	359	s peek isDigit ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	360	size := Integer readFrom:s.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	361	elType := self fieldTypeFromStream:s in:aPackage.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	362	^ elType , '[' , size printString , ']'
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	363	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	364	elType := self fieldTypeFromStream:s in:aPackage.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	365	^ elType , '[]'
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	366	].
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	367
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	368	^ typeSym
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	369
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	370	"Created: / 18.3.1997 / 11:07:56 / cg"
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	371	"Modified: / 18.7.1998 / 22:57:06 / cg"
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	372	!
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	373
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	374	numArgsFromSignature:aSignature
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	375	"given a signature, return the number of args"
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	376
238 18c543cfe8ef * empty log message * cg parents: 237 diff changeset	377	\|s\|
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	378
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	379	s := aSignature readStream.
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	380	s next ~~ $( ifTrue:[self halt].
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	381
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	382	^ self numArgsFromStream:s.
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	383
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	384	"
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	385	JavaMethod numArgsFromSignature:'(LObject;)V'
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	386	JavaMethod numArgsFromSignature:'(BB)S'
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	387	JavaMethod numArgsFromSignature:'()V'
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	388	"
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	389	!
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	390
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	391	numArgsFromStream:s
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	392	"parse an argSpec - see java doc"
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	393
238 18c543cfe8ef * empty log message * cg parents: 237 diff changeset	394	\|n t\|
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	395
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	396	n := 0.
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	397	[s atEnd or:[s peek == $)]] whileFalse:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	398	t := self fieldTypeFromStream:s in:nil.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	399	"/
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	400	"/ some args count as 2
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	401	"/
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	402	t == #long ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	403	n := n + 2.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	404	] ifFalse:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	405	t == #double ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	406	n := n + 2
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	407	] ifFalse:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	408	n := n + 1.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	409	]
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	410	]
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	411	].
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	412	^ n
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	413
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	414	"Modified: / 8.1.1998 / 19:10:25 / cg"
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	415	!
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	416
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	417	retValSpecFromSignature:aSignature in:aPackage
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	418	"given a signature, return a spec"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	419
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	420	\|s argSpec retvalSpec\|
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	421
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	422	s := aSignature readStream.
237 4c9ca89313d4 * empty log message * cg parents: 220 diff changeset	423	s next ~~ $( ifTrue:[self halt].
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	424
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	425	argSpec := self argSpecFromStream:s in:aPackage.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	426
237 4c9ca89313d4 * empty log message * cg parents: 220 diff changeset	427	s next ~~ $) ifTrue:[self halt].
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	428
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	429	retvalSpec := self retvalSpecFromStream:s in:aPackage.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	430
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	431	^ retvalSpec
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	432
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	433	"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	434	JavaMethod retValSpecFromSignature:'(LObject;)V'
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	435	JavaMethod retValSpecFromSignature:'(BB)S'
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	436	"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	437
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	438	"Created: 18.3.1997 / 11:11:50 / cg"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	439	!
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	440
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	441	returnTypeFromSignature:aSignature in:aPackage
babfb18fc67b signature parsing cg parents: 184 diff changeset	442	"given a signature, return its type as a string"
babfb18fc67b signature parsing cg parents: 184 diff changeset	443
238 18c543cfe8ef * empty log message * cg parents: 237 diff changeset	444	\|s c\|
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	445
babfb18fc67b signature parsing cg parents: 184 diff changeset	446	s := aSignature readStream.
babfb18fc67b signature parsing cg parents: 184 diff changeset	447	(c := s peek) ~~ $( ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	448	c == $' ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	449	[s peek ~= $'] whileTrue:[s next].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	450	s next.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	451	^ (self retvalSpecFromStream:s in:aPackage)
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	452	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	453	^ (self retvalSpecFromStream:s in:aPackage)
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	454	].
babfb18fc67b signature parsing cg parents: 184 diff changeset	455
babfb18fc67b signature parsing cg parents: 184 diff changeset	456	s next.
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	457	self argSpecFromStream:s in:aPackage.
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	458	s next ~~ $) ifTrue:[self halt. ^ nil].
babfb18fc67b signature parsing cg parents: 184 diff changeset	459
babfb18fc67b signature parsing cg parents: 184 diff changeset	460	^ (self retvalSpecFromStream:s in:aPackage)
babfb18fc67b signature parsing cg parents: 184 diff changeset	461
babfb18fc67b signature parsing cg parents: 184 diff changeset	462	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	463	JavaMethod returnTypeFromSignature:'(LObject;)V'
babfb18fc67b signature parsing cg parents: 184 diff changeset	464	JavaMethod returnTypeFromSignature:'(BB)S'
babfb18fc67b signature parsing cg parents: 184 diff changeset	465	JavaMethod returnTypeFromSignature:'()J'
babfb18fc67b signature parsing cg parents: 184 diff changeset	466	JavaMethod returnTypeFromSignature:'''first''J'
babfb18fc67b signature parsing cg parents: 184 diff changeset	467	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	468
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	469	"Created: / 1.8.1997 / 10:54:31 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	470	"Modified: / 8.1.1998 / 19:09:06 / cg"
72 9427aa6a8528 * empty log message * cg parents: 64 diff changeset	471	!
9427aa6a8528 * empty log message * cg parents: 64 diff changeset	472
9427aa6a8528 * empty log message * cg parents: 64 diff changeset	473	returnsVoidFromSignature:aSignature
9427aa6a8528 * empty log message * cg parents: 64 diff changeset	474	"given a signature, return true if it returns void, false if not"
9427aa6a8528 * empty log message * cg parents: 64 diff changeset	475
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	476	^ (self typeFromSignature:aSignature in:nil) = 'void'
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	477
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	478	"
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	479	JavaMethod returnsVoidFromSignature:'(LObject;)V'
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	480	JavaMethod returnsVoidFromSignature:'(BB)S'
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	481	"
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	482
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	483	"Modified: / 8.1.1998 / 19:13:53 / cg"
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	484	!
1f803ce6d3fc better signature code cg parents: 8 diff changeset	485
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	486	retvalSpecFromStream:s in:aPackage
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	487	"parse a retvalSpec - see java doc"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	488
332 2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	489	\|spec\|
2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	490
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	491	s atEnd ifTrue:[self halt. ^ #void].
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	492	s peek == $V ifTrue:[^ #void].
332 2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	493	spec := self fieldTypeFromStream:s in:aPackage.
2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	494	spec knownAsSymbol ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	495	^ spec asSymbol
332 2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	496	].
2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	497	^ spec
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	498
332 2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	499	"Created: / 18.3.1997 / 11:12:19 / cg"
2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	500	"Modified: / 7.4.1998 / 22:28:27 / cg"
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	501	!
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	502
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	503	specComponentsWithArgsFromSignature:aSignature withName:name in:aPackage
babfb18fc67b signature parsing cg parents: 184 diff changeset	504	"given a signature, return a spec"
babfb18fc67b signature parsing cg parents: 184 diff changeset	505
babfb18fc67b signature parsing cg parents: 184 diff changeset	506	\|s argSpec retvalSpec\|
babfb18fc67b signature parsing cg parents: 184 diff changeset	507
babfb18fc67b signature parsing cg parents: 184 diff changeset	508	s := aSignature readStream.
babfb18fc67b signature parsing cg parents: 184 diff changeset	509	s next ~~ $( ifTrue:[self halt. ^ name].
babfb18fc67b signature parsing cg parents: 184 diff changeset	510
babfb18fc67b signature parsing cg parents: 184 diff changeset	511	argSpec := self argSpecWithArgsFromStream:s in:aPackage.
babfb18fc67b signature parsing cg parents: 184 diff changeset	512
babfb18fc67b signature parsing cg parents: 184 diff changeset	513	s next ~~ $) ifTrue:[self halt. ^ name].
babfb18fc67b signature parsing cg parents: 184 diff changeset	514
babfb18fc67b signature parsing cg parents: 184 diff changeset	515	retvalSpec := self retvalSpecFromStream:s in:aPackage.
babfb18fc67b signature parsing cg parents: 184 diff changeset	516
babfb18fc67b signature parsing cg parents: 184 diff changeset	517	^ Array with:retvalSpec with:name with:argSpec
babfb18fc67b signature parsing cg parents: 184 diff changeset	518
babfb18fc67b signature parsing cg parents: 184 diff changeset	519	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	520	JavaMethod specWithArgsFromSignature:'(LObject;)V' withName:'foo' in:nil
babfb18fc67b signature parsing cg parents: 184 diff changeset	521	JavaMethod specComponentsWithArgsFromSignature:'(LObject;)V' withName:'foo' in:nil
babfb18fc67b signature parsing cg parents: 184 diff changeset	522	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	523
babfb18fc67b signature parsing cg parents: 184 diff changeset	524	"Created: 18.3.1997 / 11:06:22 / cg"
babfb18fc67b signature parsing cg parents: 184 diff changeset	525	"Modified: 1.8.1997 / 11:03:50 / cg"
babfb18fc67b signature parsing cg parents: 184 diff changeset	526	!
babfb18fc67b signature parsing cg parents: 184 diff changeset	527
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	528	specFromSignature:aSignature withName:name argNames:argNames in:aPackage
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	529	"given a signature, return a spec"
1f803ce6d3fc better signature code cg parents: 8 diff changeset	530
1f803ce6d3fc better signature code cg parents: 8 diff changeset	531	\|s argSpec retvalSpec\|
1f803ce6d3fc better signature code cg parents: 8 diff changeset	532
1f803ce6d3fc better signature code cg parents: 8 diff changeset	533	s := aSignature readStream.
1f803ce6d3fc better signature code cg parents: 8 diff changeset	534	s next ~~ $( ifTrue:[self halt. ^ name].
1f803ce6d3fc better signature code cg parents: 8 diff changeset	535
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	536	argSpec := self argSpecWithArgsFromStream:s in:aPackage argNames:argNames.
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	537
1f803ce6d3fc better signature code cg parents: 8 diff changeset	538	s next ~~ $) ifTrue:[self halt. ^ name].
1f803ce6d3fc better signature code cg parents: 8 diff changeset	539
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	540	retvalSpec := self retvalSpecFromStream:s in:aPackage.
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	541
1f803ce6d3fc better signature code cg parents: 8 diff changeset	542	^ retvalSpec , ' ' , name , ' (' , argSpec , ')'
1f803ce6d3fc better signature code cg parents: 8 diff changeset	543
1f803ce6d3fc better signature code cg parents: 8 diff changeset	544	"
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	545	JavaMethod specFromSignature:'(LObject;)V' withName:'foo' argNames:#('a') in:nil
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	546	JavaMethod specFromSignature:'(BB)S' withName:'foo' argNames:#('a' 'b') in:nil
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	547	"
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	548
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	549	"Created: / 18.3.1997 / 11:06:22 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	550	"Modified: / 8.1.1998 / 21:14:43 / cg"
83 2d61ef3579e4 * empty log message * cg parents: 80 diff changeset	551	!
2d61ef3579e4 * empty log message * cg parents: 80 diff changeset	552
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	553	specFromSignature:aSignature withName:name in:aPackage
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	554	"given a signature, return a spec"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	555
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	556	\|s argSpec retvalSpec\|
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	557
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	558	s := aSignature readStream.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	559	s next ~~ $( ifTrue:[self halt. ^ name].
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	560
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	561	argSpec := self argSpecFromStream:s in:aPackage.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	562
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	563	s next ~~ $) ifTrue:[self halt. ^ name].
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	564
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	565	retvalSpec := self retvalSpecFromStream:s in:aPackage.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	566
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	567	^ retvalSpec , ' ' , name , ' (' , argSpec , ')'
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	568
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	569	"
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	570	JavaMethod specFromSignature:'(LObject;)V' withName:'foo' in:nil
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	571	JavaMethod specFromSignature:'(BB)S' withName:'foo' in:nil
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	572	"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	573
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	574	"Created: / 18.3.1997 / 11:06:22 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	575	"Modified: / 8.1.1998 / 21:06:32 / cg"
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	576	!
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	577
678 0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	578	specTextFromSignature:aSignature in:aPackage withName:name
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	579	"given a signature, return a spec as boldified text"
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	580
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	581	\|s argSpec retvalSpec\|
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	582
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	583	s := aSignature readStream.
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	584	s next ~~ $( ifTrue:[self halt. ^ name].
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	585
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	586	argSpec := self argSpecFromStream:s in:aPackage.
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	587
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	588	s next ~~ $) ifTrue:[self halt. ^ name].
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	589
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	590	retvalSpec := self retvalSpecFromStream:s in:aPackage.
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	591
2110 6188ec8713ea no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	592	"/ ^ retvalSpec , ' ' , (name allBold) , ' (' , argSpec , ')'
6188ec8713ea no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	593	^ (name allBold) , ' (' , argSpec , ')'
678 0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	594
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	595	"
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	596	JavaMethod specTextFromSignature:'(LObject;)V' withName:'foo'
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	597	JavaMethod specTextFromSignature:'(BB)S' withName:'foo'
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	598	"
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	599
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	600	"Modified: / 8.1.1998 / 19:11:20 / cg"
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	601	!
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	602
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	603	specTextFromSignature:aSignature withName:name
68da52e100ab * empty log message * cg parents: 174 diff changeset	604	"given a signature, return a spec as boldified text"
68da52e100ab * empty log message * cg parents: 174 diff changeset	605
68da52e100ab * empty log message * cg parents: 174 diff changeset	606	\|s argSpec retvalSpec\|
68da52e100ab * empty log message * cg parents: 174 diff changeset	607
68da52e100ab * empty log message * cg parents: 174 diff changeset	608	s := aSignature readStream.
68da52e100ab * empty log message * cg parents: 174 diff changeset	609	s next ~~ $( ifTrue:[self halt. ^ name].
68da52e100ab * empty log message * cg parents: 174 diff changeset	610
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	611	argSpec := self argSpecFromStream:s in:nil.
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	612
68da52e100ab * empty log message * cg parents: 174 diff changeset	613	s next ~~ $) ifTrue:[self halt. ^ name].
68da52e100ab * empty log message * cg parents: 174 diff changeset	614
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	615	retvalSpec := self retvalSpecFromStream:s in:nil.
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	616
2110 6188ec8713ea no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	617	^ retvalSpec , ' ' , (name allBold) , ' (' , argSpec , ')'
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	618
68da52e100ab * empty log message * cg parents: 174 diff changeset	619	"
68da52e100ab * empty log message * cg parents: 174 diff changeset	620	JavaMethod specTextFromSignature:'(LObject;)V' withName:'foo'
68da52e100ab * empty log message * cg parents: 174 diff changeset	621	JavaMethod specTextFromSignature:'(BB)S' withName:'foo'
68da52e100ab * empty log message * cg parents: 174 diff changeset	622	"
68da52e100ab * empty log message * cg parents: 174 diff changeset	623
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	624	"Modified: / 8.1.1998 / 19:11:20 / cg"
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	625	!
68da52e100ab * empty log message * cg parents: 174 diff changeset	626
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	627	specTextWithArgsFromSignature:aSignature withName:name in:aPackage
babfb18fc67b signature parsing cg parents: 184 diff changeset	628	"given a signature, return a spec"
babfb18fc67b signature parsing cg parents: 184 diff changeset	629
babfb18fc67b signature parsing cg parents: 184 diff changeset	630	\|s argSpec retvalSpec\|
babfb18fc67b signature parsing cg parents: 184 diff changeset	631
babfb18fc67b signature parsing cg parents: 184 diff changeset	632	s := aSignature readStream.
babfb18fc67b signature parsing cg parents: 184 diff changeset	633	s next ~~ $( ifTrue:[self halt. ^ name].
babfb18fc67b signature parsing cg parents: 184 diff changeset	634
babfb18fc67b signature parsing cg parents: 184 diff changeset	635	argSpec := self argSpecWithArgsFromStream:s in:aPackage.
babfb18fc67b signature parsing cg parents: 184 diff changeset	636
babfb18fc67b signature parsing cg parents: 184 diff changeset	637	s next ~~ $) ifTrue:[self halt. ^ name].
babfb18fc67b signature parsing cg parents: 184 diff changeset	638
babfb18fc67b signature parsing cg parents: 184 diff changeset	639	retvalSpec := self retvalSpecFromStream:s in:aPackage.
babfb18fc67b signature parsing cg parents: 184 diff changeset	640
2110 6188ec8713ea no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	641	^ retvalSpec , ' ' , (name allBold) , ' (' , argSpec , ')'
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	642
babfb18fc67b signature parsing cg parents: 184 diff changeset	643	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	644	JavaMethod specWithArgsFromSignature:'(LObject;)V' withName:'foo' in:nil
babfb18fc67b signature parsing cg parents: 184 diff changeset	645	JavaMethod specWithArgsFromSignature:'(BB)S' withName:'foo' in:nil
babfb18fc67b signature parsing cg parents: 184 diff changeset	646	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	647
babfb18fc67b signature parsing cg parents: 184 diff changeset	648	"Modified: 20.3.1997 / 12:50:10 / cg"
babfb18fc67b signature parsing cg parents: 184 diff changeset	649	"Created: 1.8.1997 / 10:43:57 / cg"
babfb18fc67b signature parsing cg parents: 184 diff changeset	650	!
babfb18fc67b signature parsing cg parents: 184 diff changeset	651
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	652	specWithArgsFromSignature:aSignature withName:name in:aPackage
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	653	"given a signature, return a spec"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	654
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	655	\|s argSpec retvalSpec\|
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	656
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	657	s := aSignature readStream.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	658	s next ~~ $( ifTrue:[self halt. ^ name].
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	659
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	660	argSpec := self argSpecWithArgsFromStream:s in:aPackage.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	661
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	662	s next ~~ $) ifTrue:[self halt. ^ name].
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	663
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	664	retvalSpec := self retvalSpecFromStream:s in:aPackage.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	665
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	666	^ retvalSpec , ' ' , name , ' (' , argSpec , ')'
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	667
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	668	"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	669	JavaMethod specWithArgsFromSignature:'(LObject;)V' withName:'foo' in:nil
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	670	JavaMethod specWithArgsFromSignature:'(BB)S' withName:'foo' in:nil
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	671	"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	672
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	673	"Created: 18.3.1997 / 11:06:22 / cg"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	674	"Modified: 20.3.1997 / 12:50:10 / cg"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	675	!
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	676
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	677	typeFromSignature:aSignature in:package
babfb18fc67b signature parsing cg parents: 184 diff changeset	678	"given a signature, return its type as a string"
babfb18fc67b signature parsing cg parents: 184 diff changeset	679
238 18c543cfe8ef * empty log message * cg parents: 237 diff changeset	680	\|s c\|
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	681
babfb18fc67b signature parsing cg parents: 184 diff changeset	682	s := aSignature readStream.
babfb18fc67b signature parsing cg parents: 184 diff changeset	683	(c := s peek) ~~ $( ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	684	c == $' ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	685	s next.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	686	[s peek ~= $'] whileTrue:[s next].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	687	s next.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	688	^ (self retvalSpecFromStream:s in:package)
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	689	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	690	^ (self retvalSpecFromStream:s in:package)
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	691	].
babfb18fc67b signature parsing cg parents: 184 diff changeset	692
babfb18fc67b signature parsing cg parents: 184 diff changeset	693	s next.
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	694	self argSpecFromStream:s in:nil.
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	695	s next ~~ $) ifTrue:[self halt. ^ nil].
babfb18fc67b signature parsing cg parents: 184 diff changeset	696
babfb18fc67b signature parsing cg parents: 184 diff changeset	697	^ (self retvalSpecFromStream:s in:package)
babfb18fc67b signature parsing cg parents: 184 diff changeset	698
babfb18fc67b signature parsing cg parents: 184 diff changeset	699	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	700	JavaMethod typeFromSignature:'(LObject;)Ljava/lang/Object'
babfb18fc67b signature parsing cg parents: 184 diff changeset	701	JavaMethod typeFromSignature:'(LObject;)Ljava/lang/Object' in:'java.lang'
babfb18fc67b signature parsing cg parents: 184 diff changeset	702	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	703
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	704	"Created: / 1.8.1997 / 10:50:38 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	705	"Modified: / 8.1.1998 / 19:09:31 / cg"
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	706	! !
1f803ce6d3fc better signature code cg parents: 8 diff changeset	707
1f803ce6d3fc better signature code cg parents: 8 diff changeset	708	!JavaMethod methodsFor:'accessing'!
1f803ce6d3fc better signature code cg parents: 8 diff changeset	709
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	710	accessFlags
638045537cf7 * empty log message * cg parents: 332 diff changeset	711	"java calls this the modifiers"
638045537cf7 * empty log message * cg parents: 332 diff changeset	712
638045537cf7 * empty log message * cg parents: 332 diff changeset	713	^ accessFlags
638045537cf7 * empty log message * cg parents: 332 diff changeset	714
638045537cf7 * empty log message * cg parents: 332 diff changeset	715	"Created: / 9.4.1998 / 17:49:44 / cg"
638045537cf7 * empty log message * cg parents: 332 diff changeset	716	!
638045537cf7 * empty log message * cg parents: 332 diff changeset	717
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	718	argSignature
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	719	^ self class argSigArrayFromSignature:signature
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	720	!
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	721
678 0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	722	comment
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	723	"should access the source here, and parse any method comment"
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	724
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	725	^ nil
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	726	!
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	727
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	728	constantPool
1f803ce6d3fc better signature code cg parents: 8 diff changeset	729	^ javaClass constantPool
1f803ce6d3fc better signature code cg parents: 8 diff changeset	730
1f803ce6d3fc better signature code cg parents: 8 diff changeset	731	"Modified: 16.4.1996 / 12:36:27 / cg"
1f803ce6d3fc better signature code cg parents: 8 diff changeset	732	"Created: 16.4.1996 / 15:28:50 / cg"
1f803ce6d3fc better signature code cg parents: 8 diff changeset	733	!
1f803ce6d3fc better signature code cg parents: 8 diff changeset	734
129 f40775af59a5 checkin from browser cg parents: 127 diff changeset	735	containingClass
f40775af59a5 checkin from browser cg parents: 127 diff changeset	736	^ javaClass
f40775af59a5 checkin from browser cg parents: 127 diff changeset	737
f40775af59a5 checkin from browser cg parents: 127 diff changeset	738	!
f40775af59a5 checkin from browser cg parents: 127 diff changeset	739
169 269f334e9f34 * empty log message * cg parents: 168 diff changeset	740	decompiledBytecode
269f334e9f34 * empty log message * cg parents: 168 diff changeset	741	\|s\|
269f334e9f34 * empty log message * cg parents: 168 diff changeset	742
269f334e9f34 * empty log message * cg parents: 168 diff changeset	743	s := '' writeStream.
269f334e9f34 * empty log message * cg parents: 168 diff changeset	744	JavaDecompiler decompile:self to:s.
269f334e9f34 * empty log message * cg parents: 168 diff changeset	745	^ s contents
269f334e9f34 * empty log message * cg parents: 168 diff changeset	746
269f334e9f34 * empty log message * cg parents: 168 diff changeset	747	"Created: 7.4.1997 / 20:10:37 / cg"
269f334e9f34 * empty log message * cg parents: 168 diff changeset	748	!
269f334e9f34 * empty log message * cg parents: 168 diff changeset	749
75 9816a04c8b21 checkin from browser cg parents: 72 diff changeset	750	decompiledSource
9816a04c8b21 checkin from browser cg parents: 72 diff changeset	751	\|s\|
9816a04c8b21 checkin from browser cg parents: 72 diff changeset	752
9816a04c8b21 checkin from browser cg parents: 72 diff changeset	753	s := '' writeStream.
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	754	self decompileSourceTo:s.
75 9816a04c8b21 checkin from browser cg parents: 72 diff changeset	755	^ s contents
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	756
68da52e100ab * empty log message * cg parents: 174 diff changeset	757	"Modified: 30.7.1997 / 16:27:55 / cg"
75 9816a04c8b21 checkin from browser cg parents: 72 diff changeset	758	!
9816a04c8b21 checkin from browser cg parents: 72 diff changeset	759
135 098936234135 * empty log message * cg parents: 129 diff changeset	760	exceptionHandlerTable
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	761	^ nil
135 098936234135 * empty log message * cg parents: 129 diff changeset	762
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	763	"Created: / 16.10.1998 / 01:50:51 / cg"
135 098936234135 * empty log message * cg parents: 129 diff changeset	764	!
098936234135 * empty log message * cg parents: 129 diff changeset	765
83 2d61ef3579e4 * empty log message * cg parents: 80 diff changeset	766	exceptionTable
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	767	^ nil
83 2d61ef3579e4 * empty log message * cg parents: 80 diff changeset	768
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	769	"Created: / 16.10.1998 / 01:51:04 / cg"
83 2d61ef3579e4 * empty log message * cg parents: 80 diff changeset	770	!
2d61ef3579e4 * empty log message * cg parents: 80 diff changeset	771
2090 756cbebc78f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2087 diff changeset	772	getSourcePosition
756cbebc78f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2087 diff changeset	773	^ 1
756cbebc78f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2087 diff changeset	774	!
756cbebc78f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2087 diff changeset	775
90 918e2740098c resolve rewritten cg parents: 85 diff changeset	776	hasLineNumberInformation
918e2740098c resolve rewritten cg parents: 85 diff changeset	777	^ lineNumberTable notNil
918e2740098c resolve rewritten cg parents: 85 diff changeset	778
918e2740098c resolve rewritten cg parents: 85 diff changeset	779	"Created: 16.4.1996 / 12:34:04 / cg"
918e2740098c resolve rewritten cg parents: 85 diff changeset	780	"Modified: 16.4.1996 / 12:49:06 / cg"
918e2740098c resolve rewritten cg parents: 85 diff changeset	781	!
918e2740098c resolve rewritten cg parents: 85 diff changeset	782
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	783	javaByteCode
184 f65eb9c4ba6e checkin from browser cg parents: 175 diff changeset	784	"/ ^ javaByteCode
f65eb9c4ba6e checkin from browser cg parents: 175 diff changeset	785	^ byteCode
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	786
1f803ce6d3fc better signature code cg parents: 8 diff changeset	787	"Created: 16.4.1996 / 14:55:44 / cg"
184 f65eb9c4ba6e checkin from browser cg parents: 175 diff changeset	788	"Modified: 1.8.1997 / 00:08:45 / cg"
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	789	!
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	790
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	791	javaClass
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	792	^ javaClass
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	793
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	794	"Modified: 16.4.1996 / 12:36:27 / cg"
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	795	"Created: 16.4.1996 / 14:55:44 / cg"
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	796	!
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	797
90 918e2740098c resolve rewritten cg parents: 85 diff changeset	798	lineNumber
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	799	lineNumberTable isNil ifTrue:[^ nil].
90 918e2740098c resolve rewritten cg parents: 85 diff changeset	800	^ lineNumberTable at:2
918e2740098c resolve rewritten cg parents: 85 diff changeset	801
918e2740098c resolve rewritten cg parents: 85 diff changeset	802	"Created: 16.4.1996 / 12:34:04 / cg"
918e2740098c resolve rewritten cg parents: 85 diff changeset	803	"Modified: 16.4.1996 / 12:49:06 / cg"
918e2740098c resolve rewritten cg parents: 85 diff changeset	804	!
918e2740098c resolve rewritten cg parents: 85 diff changeset	805
50 458467ce0e15 checkin from browser cg parents: 48 diff changeset	806	lineNumberTable
458467ce0e15 checkin from browser cg parents: 48 diff changeset	807	^ lineNumberTable
458467ce0e15 checkin from browser cg parents: 48 diff changeset	808
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	809	"Created: 16.4.1996 / 12:34:04 / cg"
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	810	"Modified: 16.4.1996 / 12:49:06 / cg"
50 458467ce0e15 checkin from browser cg parents: 48 diff changeset	811	!
458467ce0e15 checkin from browser cg parents: 48 diff changeset	812
618 1ef28aa96092 added #sends: query cg parents: 611 diff changeset	813	literalsDetect:aBlock ifNone:exceptionBlock
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	814	"execute a one arg block for each of our literals.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	815	return the first literal for which aBlock returns true"
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	816
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	817	"/ sigh - must first extract all accessed literals ...
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	818	"/ must deparse the byteCode in order to do this.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	819
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	820	\|walker\|
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	821
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	822	walker := JavaByteCodeEnumerator new.
651 c4f8130fb962 checkin from browser cg parents: 637 diff changeset	823	walker literalAction:[:pc :slotIndex :const \|
c4f8130fb962 checkin from browser cg parents: 637 diff changeset	824	const isJavaMethodRef ifTrue:[
654 da8d060a3150 checkin from browser cg parents: 651 diff changeset	825	(aBlock value:(const name)) ifTrue:[^ const name].
651 c4f8130fb962 checkin from browser cg parents: 637 diff changeset	826	] ifFalse:[
c4f8130fb962 checkin from browser cg parents: 637 diff changeset	827	const isJavaClassRef ifTrue:[
654 da8d060a3150 checkin from browser cg parents: 651 diff changeset	828	(aBlock value:(const name)) ifTrue:[^ const name].
651 c4f8130fb962 checkin from browser cg parents: 637 diff changeset	829	]
c4f8130fb962 checkin from browser cg parents: 637 diff changeset	830	]
c4f8130fb962 checkin from browser cg parents: 637 diff changeset	831	].
618 1ef28aa96092 added #sends: query cg parents: 611 diff changeset	832	walker decompile:self to:nil.
654 da8d060a3150 checkin from browser cg parents: 651 diff changeset	833	^ nil
618 1ef28aa96092 added #sends: query cg parents: 611 diff changeset	834
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	835	"Created: / 9.11.1999 / 15:21:40 / cg"
654 da8d060a3150 checkin from browser cg parents: 651 diff changeset	836	"Modified: / 24.12.1999 / 02:55:55 / cg"
618 1ef28aa96092 added #sends: query cg parents: 611 diff changeset	837	!
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	838
85 888c37bbe4bb checkin from browser cg parents: 83 diff changeset	839	localVariableTable
888c37bbe4bb checkin from browser cg parents: 83 diff changeset	840	^ localVariableTable
888c37bbe4bb checkin from browser cg parents: 83 diff changeset	841
888c37bbe4bb checkin from browser cg parents: 83 diff changeset	842	"
888c37bbe4bb checkin from browser cg parents: 83 diff changeset	843	JavaMethod allInstancesDo:[:m\| m localVariableTable notNil ifTrue:[self halt]]
888c37bbe4bb checkin from browser cg parents: 83 diff changeset	844	"
888c37bbe4bb checkin from browser cg parents: 83 diff changeset	845	!
888c37bbe4bb checkin from browser cg parents: 83 diff changeset	846
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	847	methodArgAndVarNames
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	848	^ ((1 to:self numArgs) collect:[:i \| 'arg' , i printString])
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	849	,
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	850	((1 to:self numVars) collect:[:i \| 'local' , i printString])
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: 748 diff changeset	851
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	852	!
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	853
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	854	methodArgNames
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	855	\|nA\|
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	856
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	857	nA := self numArgs.
102 de5ab089cf47 checkin from browser cg parents: 90 diff changeset	858	localVariableTable notNil ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	859	^ (1 to:nA) collect:
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	860	[:argIndex \|
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	861	\|slot name\|
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	862	"/ search for an entry with that index (slot),
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	863	"/ which has is valid at PC 0
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: 748 diff changeset	864
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	865	self isStatic ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	866	slot := argIndex
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	867	] ifFalse:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	868	slot := argIndex + 1
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	869	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	870	name := localVariableTable nameForSlot:slot atPC:0.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	871	name isNil ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	872	'arg' , argIndex printString
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	873	] ifFalse:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	874	name
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	875	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	876	]
102 de5ab089cf47 checkin from browser cg parents: 90 diff changeset	877	].
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	878	^ (1 to:nA) collect:[:i \| 'arg' , i printString]
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	879	!
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	880
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	881	name
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	882	^ (selector copyWithoutLast:signature size) asSymbol
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	883
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	884	"Created: 16.4.1996 / 11:34:22 / cg"
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	885	!
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	886
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	887	numLocals
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	888	^super numVars.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	889	"/ numLocals isNil ifTrue:[^ 0].
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	890	"/ ^ numLocals
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	891
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	892	"Modified: / 3.1.1998 / 21:15:38 / cg"
118 c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	893	!
c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	894
261 d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	895	numVars
d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	896	\|n\|
118 c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	897
261 d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	898	"/ a Java-stackframe includes the args in the locals
d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	899	n := self numLocals - self numArgs.
d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	900	^ n
d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	901
d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	902	"Modified: / 13.1.1998 / 17:34:37 / cg"
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	903	!
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	904
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	905	previousVersion
68da52e100ab * empty log message * cg parents: 174 diff changeset	906	^ nil
68da52e100ab * empty log message * cg parents: 174 diff changeset	907
68da52e100ab * empty log message * cg parents: 174 diff changeset	908	"Created: 30.7.1997 / 15:56:18 / cg"
68da52e100ab * empty log message * cg parents: 174 diff changeset	909	!
68da52e100ab * empty log message * cg parents: 174 diff changeset	910
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	911	retValSignature
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	912	^ self class retValSpecFromSignature:signature in:nil
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	913
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	914	"Modified: / 8.1.1998 / 19:06:40 / cg"
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	915	!
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	916
123 4a5d4ac95782 checkin from browser cg parents: 118 diff changeset	917	returnType
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	918	"/ ^ returnType
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	919	^ self class typeFromSignature:signature in:nil.
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	920
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	921	"Modified: / 16.10.1998 / 00:17:43 / cg"
123 4a5d4ac95782 checkin from browser cg parents: 118 diff changeset	922	!
4a5d4ac95782 checkin from browser cg parents: 118 diff changeset	923
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	924	returnTypeClass
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	925	\|cls returnType\|
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	926
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	927	(returnType := self returnType) isNil ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	928	self halt.
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	929	].
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	930	cls := Java at:returnType.
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	931	cls notNil ifTrue:[^ cls].
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	932
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	933	returnType == #void ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	934	^ nil
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	935	].
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	936	returnType == #double ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	937	'warning: no returnTypeClass for double' printCR.
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	938	"/ self halt:'no returnTypeClass for double'.
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	939	^ nil
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	940	].
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	941	returnType == #float ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	942	'warning: no returnTypeClass for float' printCR.
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	943	"/ self halt:'no returnTypeClass for float'.
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	944	^ nil
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	945	].
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	946	returnType == #long ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	947	'warning: no returnTypeClass for long' printCR.
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	948	"/ self halt:'no returnTypeClass for long'.
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	949	^ nil
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	950	].
638045537cf7 * empty log message * cg parents: 332 diff changeset	951	returnType == #int ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	952	'warning: no returnTypeClass for int' printCR.
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	953	"/ self halt:'no returnTypeClass for int'.
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	954	^ nil
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	955	].
638045537cf7 * empty log message * cg parents: 332 diff changeset	956	returnType == #boolean ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	957	'warning: no returnTypeClass for boolean' printCR.
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	958	"/ self halt:'no returnTypeClass for boolean'.
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	959	^ nil
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	960	].
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	961	self halt.
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	962	^ nil
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	963
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	964	"Created: / 13.2.1998 / 15:08:26 / cg"
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	965	"Modified: / 16.10.1998 / 00:16:07 / cg"
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	966	!
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	967
116 7d612d4450c0 * empty log message * cg parents: 113 diff changeset	968	returnsDouble
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	969	^ self returnType == #double
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	970
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	971	"Modified: / 16.10.1998 / 00:18:24 / cg"
116 7d612d4450c0 * empty log message * cg parents: 113 diff changeset	972	!
7d612d4450c0 * empty log message * cg parents: 113 diff changeset	973
72 9427aa6a8528 * empty log message * cg parents: 64 diff changeset	974	returnsLong
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	975	^ self returnType == #long
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	976
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	977	"Modified: / 16.10.1998 / 00:18:41 / cg"
72 9427aa6a8528 * empty log message * cg parents: 64 diff changeset	978	!
9427aa6a8528 * empty log message * cg parents: 64 diff changeset	979
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	980	returnsVoid
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	981	^ self returnType == #void
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	982
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	983	"Modified: / 16.10.1998 / 00:18:53 / cg"
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	984	!
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	985
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	986	selector
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	987	"/ could theoretically be extracted from my classes
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	988	"/ methodDictionary via:
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	989	"/ ^ javaClass methodDictionary keyAtValue:self ifAbsent:nil.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	990
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	991	^ selector
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	992
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	993	"Created: / 7.1.1998 / 14:05:11 / cg"
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	994	"Modified: / 16.10.1998 / 13:41:06 / cg"
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	995	!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	996
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	997	setAccessFlags:flags
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	998	accessFlags := flags.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	999
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1000	"Created: 16.4.1996 / 11:34:14 / cg"
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1001	!
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1002
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1003	setCode:codeBytes maxStack:max_stack maxLocals:max_locals u1:unknown1 u2:unknown2
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1004	"/ javaByteCode := codeBytes.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1005	byteCode := codeBytes.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1006	"/ numStack := max_stack.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1007	"/ numLocals := max_locals.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1008	super numberOfVars:max_locals.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1009	super stackSize:max_stack.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1010
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1011	"/ self displayString printNL.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1012	"/ ' nStack: ' print. numStack print.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1013	"/ ' nLocal: ' print. numLocals print.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1014	"/ ' u1: ' print. unknown1 print.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1015	"/ ' u2: ' print. unknown2 printNL.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1016
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1017	"Modified: 1.8.1997 / 00:08:32 / cg"
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1018	!
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1019
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1020	setJavaClass:aJavaClass
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1021	javaClass := aJavaClass
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1022
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1023	"Modified: 16.4.1996 / 12:36:27 / cg"
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1024	"Created: 16.4.1996 / 15:28:15 / cg"
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1025	!
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1026
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1027	setLineNumberTable:anArrayOfPCtoLineAssociations
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1028	"since this uses up lots of memory, compress it"
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1029
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1030	\|allBytes allWords idx\|
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1031
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1032	allBytes := allWords := true.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1033
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1034	anArrayOfPCtoLineAssociations do:[:assoc \|
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1035	assoc key > 255 ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1036	allBytes := false.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1037	assoc key > 16rFFFF ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1038	allWords := false.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1039	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1040	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1041	assoc value > 255 ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1042	allBytes := false.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1043	assoc value > 16rFFFF ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1044	allWords := false
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1045	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1046	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1047	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1048	allBytes ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1049	lineNumberTable := ByteArray new:(anArrayOfPCtoLineAssociations size * 2).
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1050	] ifFalse:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1051	allWords ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1052	lineNumberTable := WordArray new:(anArrayOfPCtoLineAssociations size * 2).
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1053	] ifFalse:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1054	lineNumberTable := Array new:(anArrayOfPCtoLineAssociations size * 2).
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1055	]
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1056	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1057
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1058	idx := 1.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1059	anArrayOfPCtoLineAssociations do:[:assoc \|
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1060	lineNumberTable at:idx put:assoc key.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1061	lineNumberTable at:idx+1 put:assoc value.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1062	idx := idx + 2.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1063	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1064
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1065	"Created: 16.4.1996 / 12:34:04 / cg"
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1066	"Modified: 16.4.1996 / 12:49:06 / cg"
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1067	!
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1068
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1069	setLocalVariableTable:anArray
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1070	localVariableTable := anArray.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1071	!
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1072
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1073	setName:nameString signature:signatureString
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1074	selector := (nameString , signatureString) asSymbol.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1075	self setSignature:signatureString
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1076	!
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1077
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1078	setSignature:aString
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1079	\|numArgs tooManyArgs returnType\|
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1080
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1081	signature := aString asSymbol.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1082
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1083	numArgs := self class numArgsFromSignature:aString.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1084	(tooManyArgs := (numArgs > self class maxNumberOfArguments)) ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1085	numArgs := 0.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1086	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1087	self numberOfArgs:numArgs.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1088	returnType := self class typeFromSignature:aString in:nil.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1089
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1090	"/ for the convenience of the VM, also mirror the return type in
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1091	"/ the flags ...
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1092
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1093	returnType == #void ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1094	accessFlags := accessFlags bitOr:R_VOID
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1095	] ifFalse:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1096	returnType == #long ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1097	accessFlags := accessFlags bitOr:R_LONG
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1098	] ifFalse:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1099	returnType == #double ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1100	accessFlags := accessFlags bitOr:R_DOUBLE
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1101	]
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1102	]
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1103	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1104	tooManyArgs ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1105	^ ArgumentSignal
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1106	raiseRequestWith:self
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1107	errorString:'too many args in method'
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1108	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1109
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1110	"Created: / 16.4.1996 / 11:34:29 / cg"
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1111	"Modified: / 16.10.1998 / 00:17:12 / cg"
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1112	!
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1113
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	1114	signature
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1115	^ signature
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1116
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1117	"Created: 16.4.1996 / 11:34:29 / cg"
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1118	!
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1119
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1120	source
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1121	\|classSource\|
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1122
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1123	"/ self isNative ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1124	"/ ^ 'native method'
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1125	"/ ].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1126
169 269f334e9f34 * empty log message * cg parents: 168 diff changeset	1127	ForceByteCodeDisplay == true ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1128	^ self decompiledBytecode
169 269f334e9f34 * empty log message * cg parents: 168 diff changeset	1129	].
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1130
75 9816a04c8b21 checkin from browser cg parents: 72 diff changeset	1131	lineNumberTable notNil ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1132	classSource := javaClass source.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1133	classSource notNil ifTrue:[^ classSource].
75 9816a04c8b21 checkin from browser cg parents: 72 diff changeset	1134	].
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1135
75 9816a04c8b21 checkin from browser cg parents: 72 diff changeset	1136	^ self decompiledSource
169 269f334e9f34 * empty log message * cg parents: 168 diff changeset	1137
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1138	"Modified: / 4.1.1998 / 13:48:35 / cg"
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1139	!
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1140
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1141	sourceFilename
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1142	^ javaClass sourceFile
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	1143	!
68da52e100ab * empty log message * cg parents: 174 diff changeset	1144
68da52e100ab * empty log message * cg parents: 174 diff changeset	1145	sourceLineNumber
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1146	ForceByteCodeDisplay == true ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1147	^ 1
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	1148	].
68da52e100ab * empty log message * cg parents: 174 diff changeset	1149
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1150	lineNumberTable notNil ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1151	^ lineNumberTable at:2
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1152	].
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: 748 diff changeset	1153
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1154	^ 1
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: 748 diff changeset	1155
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1156	"Created: 30.7.1997 / 15:40:45 / cg"
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1157	"Modified: 30.7.1997 / 15:46:12 / cg"
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	1158	! !
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	1159
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1160	!JavaMethod methodsFor:'debugging'!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1161
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1162	breakPoint
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1163	Debugger enter:thisContext sender withMessage:'breakpoint'
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1164
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1165	"Modified: / 9.1.1998 / 23:01:17 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1166	!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1167
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1168	clearBreakPoint
449 c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1169	self hasCode ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1170	MessageTracer unwrapMethod:self
449 c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1171	].
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1172	accessFlags := (accessFlags bitClear:A_BREAKPOINT).
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1173
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1174	"Modified: / 13.11.1998 / 23:31:00 / cg"
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1175	!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1176
257 f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1177	isCounting
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1178	^ false.
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1179
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1180	"Created: / 12.1.1998 / 20:02:23 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1181	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1182
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1183	isCountingMemoryUsage
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1184	^ false.
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1185
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1186	"Created: / 12.1.1998 / 20:03:22 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1187	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1188
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1189	setBreakPoint
449 c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1190	self hasCode ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1191	MessageTracer trapMethod:self
449 c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1192	].
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1193	accessFlags := (accessFlags bitOr:A_BREAKPOINT).
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1194
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1195	"Modified: / 13.11.1998 / 23:30:45 / cg"
257 f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1196	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1197
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1198	setTraceFullPoint
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1199	"not yet implemented"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1200
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1201	"Modified: / 9.1.1998 / 23:01:17 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1202	"Created: / 12.1.1998 / 20:04:45 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1203	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1204
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1205	setTracePoint
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1206	"not yet implemented"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1207
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1208	"Modified: / 9.1.1998 / 23:01:17 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1209	"Created: / 12.1.1998 / 20:04:02 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1210	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1211
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1212	setTraceSenderPoint
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1213	"not yet implemented"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1214
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1215	"Modified: / 9.1.1998 / 23:01:17 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1216	"Created: / 12.1.1998 / 20:04:35 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1217	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1218
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1219	startCounting
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1220	"not yet implemented"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1221
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1222	"Modified: / 9.1.1998 / 23:01:17 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1223	"Created: / 12.1.1998 / 20:05:01 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1224	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1225
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1226	startCountingMemoryUsage
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1227	"not yet implemented"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1228
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1229	"Modified: / 9.1.1998 / 23:01:17 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1230	"Created: / 12.1.1998 / 20:05:04 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1231	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1232
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1233	startTiming
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1234	"not yet implemented"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1235
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1236	"Modified: / 9.1.1998 / 23:01:17 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1237	"Created: / 12.1.1998 / 20:04:57 / cg"
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1238	! !
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1239
18 6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1240	!JavaMethod methodsFor:'decompiling'!
6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1241
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	1242	decompileSourceTo:aStream
637 d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1243	\|argNames\|
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1244
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1245	byteCode isNil ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1246	self isPublic ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1247	aStream nextPutAll:'public '.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1248	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1249	self isProtected ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1250	aStream nextPutAll:'protected '.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1251	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1252	self isPrivate ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1253	aStream nextPutAll:'private '.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1254	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1255	self isStatic ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1256	aStream nextPutAll:'static '.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1257	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1258
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1259	self isNative ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1260	aStream nextPutAll:'native '.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1261	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1262	self isAbstract ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1263	aStream nextPutAll:'abstract '.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1264	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1265	argNames := #('arg1' 'arg2' 'arg3' 'arg4' 'arg5' 'arg6' 'arg7' 'arg8' 'arg9').
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1266	aStream nextPutAll:(self signatureNameWithArgNames:argNames).
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1267	aStream nextPutAll:';'; cr.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1268	^ self
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1269	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1270
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1271	JavaDeparser isNil ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1272	aStream nextPutAll:'// Sorry - no decompiler'.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1273	^ self
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1274	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1275
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1276
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1277	"/ self isNative ifFalse:[
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1278	"/ self isAbstract ifFalse:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1279	aStream nextPutAll:'// '; cr.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1280	aStream nextPutAll:'// decompiled source'; cr.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1281	aStream nextPutAll:'// '; cr.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1282	aStream cr.
637 d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1283	SignalSet anySignal handle:[:ex \|
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1284	ex signal == Object haltSignal ifTrue:[ex reject].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1285	ex signal == MessageTracer breakpointSignal ifTrue:[ex reject].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1286	ex signal == Signal noHandlerSignal ifTrue:[ex reject].
506 81d3ef12bdc9 * empty log message * cg parents: 504 diff changeset	1287
637 d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1288	aStream nextPutAll:'error while decompiling:'.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1289	aStream cr; cr; spaces:4.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1290	aStream nextPutAll:ex errorString.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1291	aStream cr.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1292	aStream nextPutAll:ex suspendedContext printString.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1293	aStream cr.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1294	aStream nextPutAll:ex suspendedContext sender printString.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1295	aStream cr.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1296	aStream nextPutAll:ex suspendedContext sender sender printString.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1297	aStream cr.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1298	aStream nextPutAll:ex suspendedContext sender sender sender printString.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1299	aStream cr.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1300	aStream nextPutAll:ex suspendedContext sender sender sender sender printString.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1301	aStream cr.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1302	aStream nextPutAll:ex suspendedContext sender sender sender sender sender printString.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1303	aStream cr.
2095 6773680aeb85 * empty log message * Claus Gittinger <cg@exept.de> parents: 2091 diff changeset	1304	aStream nextPutAll:ex suspendedContext sender sender sender sender sender sender printString.
6773680aeb85 * empty log message * Claus Gittinger <cg@exept.de> parents: 2091 diff changeset	1305	aStream cr.
6773680aeb85 * empty log message * Claus Gittinger <cg@exept.de> parents: 2091 diff changeset	1306	aStream nextPutAll:ex suspendedContext sender sender sender sender sender sender sender printString.
6773680aeb85 * empty log message * Claus Gittinger <cg@exept.de> parents: 2091 diff changeset	1307	aStream cr.
6773680aeb85 * empty log message * Claus Gittinger <cg@exept.de> parents: 2091 diff changeset	1308	aStream nextPutAll:ex suspendedContext sender sender sender sender sender sender sender sender printString.
6773680aeb85 * empty log message * Claus Gittinger <cg@exept.de> parents: 2091 diff changeset	1309	aStream cr.
506 81d3ef12bdc9 * empty log message * cg parents: 504 diff changeset	1310
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1311	JavaDecompiler isNil ifTrue:[
637 d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1312	aStream nextPutAll:'// Sorry - no decompiler'
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1313	] ifFalse:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1314	JavaDecompiler decompile:self to:aStream.
637 d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1315	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1316	ex return
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1317	] do:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1318	aStream nextPutAll:(JavaDeparser decompile:self).
637 d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1319	].
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1320	"/ ].
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1321	"/ ].
18 6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1322
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1323	"Created: / 30.7.1997 / 16:28:09 / cg"
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1324	"Modified: / 21.12.1999 / 14:31:54 / cg"
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	1325	!
68da52e100ab * empty log message * cg parents: 174 diff changeset	1326
68da52e100ab * empty log message * cg parents: 174 diff changeset	1327	decompiler
68da52e100ab * empty log message * cg parents: 174 diff changeset	1328	^ JavaDecompiler
68da52e100ab * empty log message * cg parents: 174 diff changeset	1329
68da52e100ab * empty log message * cg parents: 174 diff changeset	1330	"Created: 30.7.1997 / 16:36:48 / cg"
261 d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	1331	!
d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	1332
449 c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1333	isMethod
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1334	"return true, if the receiver is some kind of method;
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1335	true returned here - the method is redefined from Object."
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1336
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1337	^ true
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1338
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1339	"Created: / 13.11.1998 / 23:57:40 / cg"
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1340	!
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1341
261 d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	1342	originalMethod
d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	1343	^ self
d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	1344
d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	1345	"Created: / 13.1.1998 / 15:03:05 / cg"
18 6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1346	! !
6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1347
277 511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1348	!JavaMethod methodsFor:'error handling'!
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1349
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1350	invalidByteCode
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1351	self isAbstract ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1352	^ AbstractMethodInvokationSignal raise.
277 511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1353	].
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1354	((self class numArgsFromSignature:signature) > self class maxNumberOfArguments) ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1355	^ self error:'method cannot be executed - too many args'
309 e1bfd26cadae * empty log message * cg parents: 277 diff changeset	1356	].
277 511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1357	^ super invalidByteCode
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1358
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1359	"Created: / 27.1.1998 / 21:48:01 / cg"
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1360	"Modified: / 27.1.1998 / 21:50:19 / cg"
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1361	!
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1362
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1363	invalidMethodRef
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1364	self halt.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1365	^ nil.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1366
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1367	"Modified: / 27.1.1998 / 21:50:19 / cg"
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1368	"Created: / 16.10.1998 / 11:27:21 / cg"
594 0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	1369	!
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	1370
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	1371	nullClassPointer
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	1372	JavaVM throwClassNotFoundException
277 511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1373	! !
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1374
118 c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1375	!JavaMethod methodsFor:'methodref interchangability'!
c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1376
673 5afd5a1e3b15 * empty log message * cg parents: 670 diff changeset	1377	homeMethod
5afd5a1e3b15 * empty log message * cg parents: 670 diff changeset	1378	^ self
5afd5a1e3b15 * empty log message * cg parents: 670 diff changeset	1379	!
5afd5a1e3b15 * empty log message * cg parents: 670 diff changeset	1380
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1381	mclass
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1382	^ self javaClass
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1383	!
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1384
118 c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1385	method
c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1386	^ self
692 2d757af88e5b comment cg parents: 685 diff changeset	1387	!
2d757af88e5b comment cg parents: 685 diff changeset	1388
2d757af88e5b comment cg parents: 685 diff changeset	1389	setPackage:newPackage
2d757af88e5b comment cg parents: 685 diff changeset	1390	newPackage ~= javaClass package ifTrue:[
2d757af88e5b comment cg parents: 685 diff changeset	1391	self halt:'java method cannot be in a package different from its class'.
2d757af88e5b comment cg parents: 685 diff changeset	1392	]
118 c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1393	! !
c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1394
148 db560ebab8b5 * empty log message * cg parents: 143 diff changeset	1395	!JavaMethod methodsFor:'misc'!
db560ebab8b5 * empty log message * cg parents: 143 diff changeset	1396
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1397	fromMethod:aJavaMethod
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1398	"copy values from another javaMethod"
149 d6fe26e9af47 * empty log message * cg parents: 148 diff changeset	1399
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1400	flags := aJavaMethod flags.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1401	byteCode := aJavaMethod byteCode.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1402	accessFlags := aJavaMethod accessFlags.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1403	selector := aJavaMethod selector.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1404	javaClass := aJavaMethod javaClass.
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1405	signature := aJavaMethod signature.
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1406	lineNumberTable := aJavaMethod lineNumberTable.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1407	localVariableTable := aJavaMethod localVariableTable.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: 748 diff changeset	1408
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1409	"Modified: / 16.10.1998 / 01:27:19 / cg"
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1410	!
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1411
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1412	updateClassRefsFrom:oldClass to:newClass
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1413	javaClass == oldClass ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1414	"/ invalidate
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1415	byteCode := nil.
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1416	]
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1417
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1418	"Created: / 6.1.1998 / 18:19:48 / cg"
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1419	! !
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1420
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	1421	!JavaMethod methodsFor:'printing & storing'!
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	1422
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	1423	displayString
168 90e39cb3fa04 * empty log message * cg parents: 166 diff changeset	1424	javaClass isNil ifTrue:[
611 490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1425	^ self class name , '(???)'
168 90e39cb3fa04 * empty log message * cg parents: 166 diff changeset	1426	].
611 490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1427	^ self class name , '(' , javaClass displayString , '::' , self signatureName , ')'
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 412 diff changeset	1428
611 490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1429	"Modified: / 25.9.1999 / 23:04:01 / cg"
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	1430	!
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	1431
670 92f120745381 printStringForBrowser cg parents: 654 diff changeset	1432	printStringForBrowserWithSelector:dummySelector inClass:dummyClass
43 2c4ca2eb8d07 checkin from browser cg parents: 31 diff changeset	1433	"/ self isStatic ifTrue:[
2c4ca2eb8d07 checkin from browser cg parents: 31 diff changeset	1434	"/ ^ 'static ' , self signatureName
2c4ca2eb8d07 checkin from browser cg parents: 31 diff changeset	1435	"/ ].
168 90e39cb3fa04 * empty log message * cg parents: 166 diff changeset	1436	"/ self isBreakpointed ifTrue:[
90e39cb3fa04 * empty log message * cg parents: 166 diff changeset	1437	"/ ^ (LabelAndIcon '!! ' , self signatureName
90e39cb3fa04 * empty log message * cg parents: 166 diff changeset	1438	"/ ].
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	1439
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1440	self name = #'<init>' ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1441	^ self class specTextFromSignature:signature in:javaClass package withName:(javaClass lastName).
166 3bb2f7fbd489 checkin from browser cg parents: 164 diff changeset	1442	].
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1443	^ self class specTextFromSignature:signature in:javaClass package withName:(self name)
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	1444	!
1f803ce6d3fc better signature code cg parents: 8 diff changeset	1445
118 c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1446	shortDisplayString
c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1447	^ javaClass name , '::' , self signatureNameWithoutReturnType
c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1448	!
c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1449
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	1450	signatureName
1f803ce6d3fc better signature code cg parents: 8 diff changeset	1451	"return a string to be used when browsing"
1f803ce6d3fc better signature code cg parents: 8 diff changeset	1452
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1453	^ self class specFromSignature:signature withName:(self name) in:nil
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1454
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1455	"Modified: / 8.1.1998 / 19:15:33 / cg"
113 481bf55e161e * empty log message * cg parents: 111 diff changeset	1456	!
481bf55e161e * empty log message * cg parents: 111 diff changeset	1457
164 724c443e6f79 * empty log message * cg parents: 156 diff changeset	1458	signatureNameFor:name withArgsIn:aPackage
724c443e6f79 * empty log message * cg parents: 156 diff changeset	1459	"return a string to be used when decompiling"
724c443e6f79 * empty log message * cg parents: 156 diff changeset	1460
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1461	^ self class specWithArgsFromSignature:signature withName:name in:aPackage
164 724c443e6f79 * empty log message * cg parents: 156 diff changeset	1462
724c443e6f79 * empty log message * cg parents: 156 diff changeset	1463	"Created: 25.3.1997 / 18:49:45 / cg"
724c443e6f79 * empty log message * cg parents: 156 diff changeset	1464	!
724c443e6f79 * empty log message * cg parents: 156 diff changeset	1465
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	1466	signatureNameIn:aPackage
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	1467	"return a string to be used when browsing"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	1468
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1469	^ self class specFromSignature:signature withName:(self name) in:aPackage
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	1470
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	1471	"Created: 18.3.1997 / 11:11:01 / cg"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	1472	!
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	1473
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	1474	signatureNameText
68da52e100ab * empty log message * cg parents: 174 diff changeset	1475	"return a text to be used when browsing"
68da52e100ab * empty log message * cg parents: 174 diff changeset	1476
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1477	^ self class specTextFromSignature:signature withName:(self name)
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	1478
68da52e100ab * empty log message * cg parents: 174 diff changeset	1479	"Created: 30.7.1997 / 14:40:29 / cg"
68da52e100ab * empty log message * cg parents: 174 diff changeset	1480	!
68da52e100ab * empty log message * cg parents: 174 diff changeset	1481
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	1482	signatureNameTextFor:name withArgsIn:aPackage
babfb18fc67b signature parsing cg parents: 184 diff changeset	1483	"return a text to be used when decompiling"
babfb18fc67b signature parsing cg parents: 184 diff changeset	1484
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1485	^ self class specTextWithArgsFromSignature:signature withName:name in:aPackage
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	1486
babfb18fc67b signature parsing cg parents: 184 diff changeset	1487	"Created: 25.3.1997 / 18:49:45 / cg"
babfb18fc67b signature parsing cg parents: 184 diff changeset	1488	"Modified: 1.8.1997 / 10:44:28 / cg"
babfb18fc67b signature parsing cg parents: 184 diff changeset	1489	!
babfb18fc67b signature parsing cg parents: 184 diff changeset	1490
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1491	signatureNameWithArgNames:argNames
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1492	"return a string to be used when browsing"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1493
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1494	\|myName\|
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1495
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1496	myName := self name.
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1497	myName = '<init>' ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1498	myName := javaClass name
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1499	].
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1500	^ self class specFromSignature:signature withName:myName argNames:argNames in:nil
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1501
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1502	"Created: / 8.1.1998 / 21:04:03 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1503	"Modified: / 8.1.1998 / 21:22:38 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1504	!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1505
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1506	signatureNameWithArgNames:argNames in:package
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1507	"return a string to be used when browsing"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1508
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1509	\|myName\|
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1510
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1511	myName := self name.
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1512	myName = '<init>' ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1513	myName := javaClass name
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1514	].
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1515	^ self class specFromSignature:signature withName:myName argNames:argNames in:package
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1516
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1517	"Modified: / 8.1.1998 / 21:05:52 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1518	"Created: / 8.1.1998 / 21:23:03 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1519	!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1520
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1521	signatureNameWithArgsIn:aPackage
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1522	"return a string to be used when browsing"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1523
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1524	^ self class specWithArgsFromSignature:signature withName:(self name) in:aPackage
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: 748 diff changeset	1525
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1526	"Created: 20.3.1997 / 12:44:17 / cg"
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1527	!
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1528
113 481bf55e161e * empty log message * cg parents: 111 diff changeset	1529	signatureNameWithoutReturnType
481bf55e161e * empty log message * cg parents: 111 diff changeset	1530	"return a string to be used when browsing"
481bf55e161e * empty log message * cg parents: 111 diff changeset	1531
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1532	^ self class argSpecFromSignature:signature withName:(self name)
113 481bf55e161e * empty log message * cg parents: 111 diff changeset	1533
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	1534	! !
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	1535
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	1536	!JavaMethod methodsFor:'queries'!
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	1537
111 23243f9273fa * empty log message * cg parents: 102 diff changeset	1538	handlerFor:anException at:pc
611 490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1539	"return an exceptionHandlers pc, for an exception of the given type,
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1540	occurring at pc. Returns nil, if there is none."
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1541
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1542	\|handlerTable\|
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1543
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1544	(handlerTable := self exceptionHandlerTable) isNil ifTrue:[^ nil].
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1545
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1546	handlerTable do:[:entry \|
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1547	\|hpc\|
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1548
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1549	hpc := entry handlerPCFor:anException at:pc in:self.
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1550	hpc notNil ifTrue:[^ hpc].
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1551	].
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1552
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1553	^ nil
48 1e12f315ed97 checkin from browser cg parents: 46 diff changeset	1554
611 490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1555	"Created: / 16.10.1998 / 01:18:40 / cg"
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	1556	"Modified: / 25.9.1999 / 23:07:01 / cg"
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1557	!
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1558
127 96f1bf74011f * empty log message * cg parents: 123 diff changeset	1559	hasResource
96f1bf74011f * empty log message * cg parents: 123 diff changeset	1560	^ false
96f1bf74011f * empty log message * cg parents: 123 diff changeset	1561	!
96f1bf74011f * empty log message * cg parents: 123 diff changeset	1562
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	1563	isAbstract
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1564	^ (accessFlags bitAnd:A_ABSTRACT) ~~ 0
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	1565	!
512a19e2d46f checkin from browser cg parents: 18 diff changeset	1566
80 f08d2cab0b55 * empty log message * cg parents: 75 diff changeset	1567	isBreakpointed
256 2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1568	^ (accessFlags bitAnd:A_BREAKPOINT) ~~ 0
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1569
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1570	"Modified: / 11.1.1998 / 13:28:43 / cg"
80 f08d2cab0b55 * empty log message * cg parents: 75 diff changeset	1571	!
f08d2cab0b55 * empty log message * cg parents: 75 diff changeset	1572
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	1573	isFinal
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1574	^ (accessFlags bitAnd:A_FINAL) ~~ 0
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	1575	!
512a19e2d46f checkin from browser cg parents: 18 diff changeset	1576
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	1577	isIgnored
68da52e100ab * empty log message * cg parents: 174 diff changeset	1578	"not really a java attribute;
68da52e100ab * empty log message * cg parents: 174 diff changeset	1579	added to allow browsing"
68da52e100ab * empty log message * cg parents: 174 diff changeset	1580
68da52e100ab * empty log message * cg parents: 174 diff changeset	1581	^ false.
68da52e100ab * empty log message * cg parents: 174 diff changeset	1582
68da52e100ab * empty log message * cg parents: 174 diff changeset	1583	"Created: 30.7.1997 / 15:34:33 / cg"
68da52e100ab * empty log message * cg parents: 174 diff changeset	1584	!
68da52e100ab * empty log message * cg parents: 174 diff changeset	1585
625 b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1586	isJavaClassRef
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1587	^ false
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1588
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1589	"Created: / 9.11.1999 / 17:16:20 / cg"
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1590	!
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1591
431 fe362bcc1aeb checkin from browser cg parents: 428 diff changeset	1592	isJavaMethod
fe362bcc1aeb checkin from browser cg parents: 428 diff changeset	1593	^ true
fe362bcc1aeb checkin from browser cg parents: 428 diff changeset	1594
fe362bcc1aeb checkin from browser cg parents: 428 diff changeset	1595	"Created: / 10.11.1998 / 18:24:51 / cg"
fe362bcc1aeb checkin from browser cg parents: 428 diff changeset	1596	!
fe362bcc1aeb checkin from browser cg parents: 428 diff changeset	1597
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	1598	isNative
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1599	^ (accessFlags bitAnd:A_NATIVE) ~~ 0
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	1600	!
512a19e2d46f checkin from browser cg parents: 18 diff changeset	1601
512a19e2d46f checkin from browser cg parents: 18 diff changeset	1602	isPrivate
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1603	^ (accessFlags bitAnd:A_PRIVATE) ~~ 0
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	1604	!
512a19e2d46f checkin from browser cg parents: 18 diff changeset	1605
512a19e2d46f checkin from browser cg parents: 18 diff changeset	1606	isProtected
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1607	^ (accessFlags bitAnd:A_PROTECTED) ~~ 0
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	1608	!
512a19e2d46f checkin from browser cg parents: 18 diff changeset	1609
512a19e2d46f checkin from browser cg parents: 18 diff changeset	1610	isPublic
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1611	^ (accessFlags bitAnd:A_PUBLIC) ~~ 0
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	1612	!
512a19e2d46f checkin from browser cg parents: 18 diff changeset	1613
512a19e2d46f checkin from browser cg parents: 18 diff changeset	1614	isStatic
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1615	^ (accessFlags bitAnd:A_STATIC) ~~ 0
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	1616	!
512a19e2d46f checkin from browser cg parents: 18 diff changeset	1617
512a19e2d46f checkin from browser cg parents: 18 diff changeset	1618	isSynchronized
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1619	^ (accessFlags bitAnd:A_SYNCHRONIZED) ~~ 0
18 6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1620	!
6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1621
256 2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1622	isTraced
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1623	^ false
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1624
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1625	"Modified: / 11.1.1998 / 13:28:43 / cg"
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1626	"Created: / 11.1.1998 / 13:38:11 / cg"
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1627	!
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1628
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	1629	isUnloaded
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	1630	^ false
18 6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1631	!
6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1632
256 2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1633	isWrapped
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1634	^ self isBreakpointed
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1635
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1636	"Modified: / 11.1.1998 / 13:28:43 / cg"
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1637	"Created: / 11.1.1998 / 13:38:04 / cg"
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1638	!
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	1639
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1640	lineNumberForPC:pc
75 9816a04c8b21 checkin from browser cg parents: 72 diff changeset	1641	\|last num text classSource\|
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1642
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1643	num := nil.
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1644
207 dfbd9b69a64e checkin from browser cg parents: 189 diff changeset	1645	ForceByteCodeDisplay == true ifFalse:[
169 269f334e9f34 * empty log message * cg parents: 168 diff changeset	1646
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1647	lineNumberTable notNil ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1648	classSource := javaClass source.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1649	classSource notNil ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1650	lineNumberTable pairWiseDo:[:lPc :lNr \|
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1651	lPc >= pc ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1652	lPc == pc ifTrue:[^ lNr].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1653	last isNil ifTrue:[^ lNr].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1654	^ last.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1655	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1656	last := lNr.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1657	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1658	last notNil ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1659	^ last
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1660	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1661	^ lineNumberTable at:2
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1662	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1663	].
46 db9b84631d43 checkin from browser cg parents: 43 diff changeset	1664	].
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1665
46 db9b84631d43 checkin from browser cg parents: 43 diff changeset	1666	"/ decompile and look which line the pc falls into
209 9e4b45da1117 checkin from browser cg parents: 207 diff changeset	1667
9e4b45da1117 checkin from browser cg parents: 207 diff changeset	1668	ForceByteCodeDisplay == true ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1669	text := self decompiledBytecode asCollectionOfLines.
209 9e4b45da1117 checkin from browser cg parents: 207 diff changeset	1670	] ifFalse:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1671	text := self decompiledSource asCollectionOfLines.
209 9e4b45da1117 checkin from browser cg parents: 207 diff changeset	1672	].
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1673
46 db9b84631d43 checkin from browser cg parents: 43 diff changeset	1674	text keysAndValuesDo:[:lineNr :line \|
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1675	\|nr\|
750 d594c0664435 Synchronized with CVS repository at: vranyj1 parents: 749 diff changeset	1676
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1677	(line startsWith:' ') ifFalse:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1678	nr := Integer readFrom:line onError:0.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1679	nr >= pc ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1680	^ lineNr
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1681	]
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1682	]
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1683	].
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1684	^ num
141 0baa4706b898 checkin from browser cg parents: 135 diff changeset	1685
261 d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	1686	"Modified: / 14.1.1998 / 13:30:54 / cg"
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1687	!
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1688
2087 2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1689	messagesSent
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1690	"return a collection of messages sent by this method"
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1691
2091 de89909ef851 * empty log message * Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	1692	\|walker selectors\|
2087 2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1693
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1694	"/ sigh - must extract all accessed literals ...
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1695	"/ must deparse the byteCode in order to do this.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1696
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1697	selectors := IdentitySet new.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1698	walker := JavaByteCodeEnumerator new.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1699	walker
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1700	literalAction:
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1701	[:pc :slotIndex :const \|
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1702	\|mSel\|
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1703
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1704	(const isNumber
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1705	or:[const isString
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1706	or:[const isNil]]) ifFalse:[
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1707	const isJavaMethod ifTrue:[
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1708	mSel := const selector.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1709	] ifFalse:[
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1710	const isJavaMethodRef ifTrue:[
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1711	mSel := const selector "/ signature.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1712	]
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1713	].
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1714	].
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1715	mSel notNil ifTrue:[
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1716	"/ Transcript showCR:mSel.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1717	selectors add:mSel
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1718	].
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1719	].
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1720	walker decompile:self to:nil.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1721	^ selectors
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1722	!
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1723
156 fee47d32724d * empty log message * cg parents: 155 diff changeset	1724	package
685 1ea755ac6ac6 * empty log message * cg parents: 678 diff changeset	1725	"in java, class extensions are not possible;
1ea755ac6ac6 * empty log message * cg parents: 678 diff changeset	1726	all methods MUST be in their classes package"
156 fee47d32724d * empty log message * cg parents: 155 diff changeset	1727
685 1ea755ac6ac6 * empty log message * cg parents: 678 diff changeset	1728	^ javaClass package
156 fee47d32724d * empty log message * cg parents: 155 diff changeset	1729	!
fee47d32724d * empty log message * cg parents: 155 diff changeset	1730
428 4b400c64ccec checkin from browser cg parents: 427 diff changeset	1731	quickLineNumberForPC:pc
4b400c64ccec checkin from browser cg parents: 427 diff changeset	1732	\|last\|
4b400c64ccec checkin from browser cg parents: 427 diff changeset	1733
4b400c64ccec checkin from browser cg parents: 427 diff changeset	1734	lineNumberTable notNil ifTrue:[
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1735	lineNumberTable pairWiseDo:[:lPc :lNr \|
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1736	lPc >= pc ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1737	lPc == pc ifTrue:[^ lNr].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1738	last isNil ifTrue:[^ lNr].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1739	^ last.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1740	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1741	last := lNr.
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1742	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1743	last notNil ifTrue:[
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1744	^ last
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1745	].
66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1746	^ lineNumberTable at:2
428 4b400c64ccec checkin from browser cg parents: 427 diff changeset	1747	].
4b400c64ccec checkin from browser cg parents: 427 diff changeset	1748	^ nil
4b400c64ccec checkin from browser cg parents: 427 diff changeset	1749
4b400c64ccec checkin from browser cg parents: 427 diff changeset	1750	"Modified: / 14.1.1998 / 13:30:54 / cg"
4b400c64ccec checkin from browser cg parents: 427 diff changeset	1751	"Created: / 10.11.1998 / 14:18:22 / cg"
4b400c64ccec checkin from browser cg parents: 427 diff changeset	1752	!
4b400c64ccec checkin from browser cg parents: 427 diff changeset	1753
625 b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1754	referencesGlobal:aGlobalName
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1755	"return true, if this method refers to a global named aGlobalName"
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1756
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1757	\|walker any\|
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1758
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1759	"/ quick check, if constantPool includes a methodRef for this
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1760	"/ selector.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1761
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1762	any := false.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1763	self javaClass constantPool do:[:const \|
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1764	(const isNumber
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1765	or:[const isString
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1766	or:[const isNil]]) ifFalse:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1767	const isJavaClass ifTrue:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1768	any := any or:[const fullName = aGlobalName].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1769	] ifFalse:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1770	const isJavaClassRef ifTrue:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1771	any := any or:[const fullName = aGlobalName].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1772	]
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1773	].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1774	].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1775	].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1776	any ifFalse:[^ false].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1777
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1778	"/ sigh - must extract all accessed literals ...
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1779	"/ must deparse the byteCode in order to do this.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1780
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1781	walker := JavaByteCodeEnumerator new.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1782	walker
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1783	literalAction:
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1784	[:pc :slotIndex :const \|
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1785	\|mSel\|
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1786
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1787	(const isNumber
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1788	or:[const isString
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1789	or:[const isNil]]) ifFalse:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1790	const isJavaClass ifTrue:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1791	mSel := const fullName.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1792	] ifFalse:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1793	const isJavaClassRef ifTrue:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1794	mSel := const fullName.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1795	]
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1796	].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1797	].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1798	mSel notNil ifTrue:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1799	"/ Transcript showCR:mSel.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1800	mSel = aGlobalName ifTrue:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1801	^ true
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1802	]
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1803	].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1804	].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1805	walker decompile:self to:nil.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1806
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1807	"Created: / 9.11.1999 / 17:15:46 / cg"
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1808	"Modified: / 9.11.1999 / 17:18:02 / cg"
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1809	!
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1810
618 1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1811	sends:aSelectorSymbol
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1812	"return true, if this method contains a message-send
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1813	with aSelectorSymbol as selector."
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1814
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1815	\|walker any\|
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1816
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1817	"/ quick check, if constantPool includes a methodRef for this
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1818	"/ selector.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1819
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1820	any := false.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1821	self javaClass constantPool do:[:const \|
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1822	(const isNumber
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1823	or:[const isString
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1824	or:[const isNil]]) ifFalse:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1825	const isJavaMethod ifTrue:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1826	any := any or:[const selector = aSelectorSymbol].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1827	] ifFalse:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1828	const isJavaMethodRef ifTrue:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1829	any := any or:[const signature = aSelectorSymbol].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1830	]
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1831	].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1832	].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1833	].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1834	any ifFalse:[^ false].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1835
625 b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1836	"/ sigh - must extract all accessed literals ...
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1837	"/ must deparse the byteCode in order to do this.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1838
618 1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1839	walker := JavaByteCodeEnumerator new.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1840	walker
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1841	literalAction:
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1842	[:pc :slotIndex :const \|
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1843	\|mSel\|
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1844
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1845	(const isNumber
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1846	or:[const isString
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1847	or:[const isNil]]) ifFalse:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1848	const isJavaMethod ifTrue:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1849	mSel := const selector.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1850	] ifFalse:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1851	const isJavaMethodRef ifTrue:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1852	mSel := const signature.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1853	]
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1854	].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1855	].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1856	mSel notNil ifTrue:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1857	"/ Transcript showCR:mSel.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1858	mSel = aSelectorSymbol ifTrue:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1859	^ true
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1860	]
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1861	].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1862	].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1863	walker decompile:self to:nil.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1864
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1865	"Created: / 9.11.1999 / 15:38:14 / cg"
625 b0d1764545b5 checkin from browser cg parents: 618 diff changeset	1866	"Modified: / 9.11.1999 / 17:06:03 / cg"
618 1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1867	!
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1868
18 6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1869	who
6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1870	"return the class and selector of where I am defined in."
6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1871
64 2e4b425dc40c changes for new methodDict cg parents: 55 diff changeset	1872	\|sel\|
18 6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1873
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1874	javaClass isNil ifTrue:[^ nil].
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1875	sel := selector.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1876	"/ sel := javaClass methodDictionary keyAtValue:self ifAbsent:nil.
64 2e4b425dc40c changes for new methodDict cg parents: 55 diff changeset	1877	sel isNil ifTrue:[^ nil].
129 f40775af59a5 checkin from browser cg parents: 127 diff changeset	1878	^ Method::MethodWhoInfo class:javaClass selector:sel.
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1879
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1880	"Modified: / 16.10.1998 / 13:42:10 / cg"
5 f026f5d20c15 checkin from browser cg parents: 2 diff changeset	1881	! !
f026f5d20c15 checkin from browser cg parents: 2 diff changeset	1882
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1883	!JavaMethod methodsFor:'signature parsing'!
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1884
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1885	XXXspecWithArgsFromSignature:aSignature withName:name in:aPackage
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1886	"given a signature, return a spec with args"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1887
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1888	\|s argSpec retvalSpec\|
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1889
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1890	s := aSignature readStream.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1891	s next ~~ $( ifTrue:[self halt. ^ name].
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1892
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1893	argSpec := self argSpecWithArgsFromStream:s in:aPackage.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1894
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1895	s next ~~ $) ifTrue:[self halt. ^ name].
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1896
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1897	retvalSpec := self retvalSpecFromStream:s in:aPackage.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1898
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1899	^ retvalSpec , ' ' , name , ' (' , argSpec , ')'
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1900
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1901	"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1902	JavaMethod specFromSignature:'(LObject;)V' withName:'foo'
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1903	JavaMethod specFromSignature:'(BB)S' withName:'foo'
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1904	"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1905
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1906	"Created: / 8.1.1998 / 19:17:58 / cg"
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1907	! !
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	1908
129 f40775af59a5 checkin from browser cg parents: 127 diff changeset	1909	!JavaMethod class methodsFor:'documentation'!
2 91843ac44d2f intitial checkin cg parents: diff changeset	1910
91843ac44d2f intitial checkin cg parents: diff changeset	1911	version
2114 cbdc4c02a8e2 ExecutionErrorSignal -> ExecutionError Claus Gittinger <cg@exept.de> parents: 2110 diff changeset	1912	^ '$Header: /cvs/stx/stx/libjava/JavaMethod.st,v 1.105 2003-12-10 10:06:45 cg Exp $'
2 91843ac44d2f intitial checkin cg parents: diff changeset	1913	! !
2107 f4509f6767fa category change Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	1914
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1915	JavaMethod initialize!

author	Stefan Vogel <sv@exept.de>
	Tue, 08 Nov 2005 17:49:17 +0100
changeset 2121	7b06266d8249
parent 2114	cbdc4c02a8e2
child 2145	0df96de83547
permissions	-rw-r--r--