hg/stx-libjava: src/extensions.st@b01c1a55490d (annotated)

1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1	"{ Package: 'stx:libjava' }"!
1353 2968f8acb434 one step closer to eager method resolving hlopkmar parents: 1336 diff changeset	2
1376 c4b2cf1467c3 Fixes for Groovy and class reloading vranyj1 parents: 1368 diff changeset	3	!Behavior methodsFor:'queries'!
c4b2cf1467c3 Fixes for Groovy and class reloading vranyj1 parents: 1368 diff changeset	4
c4b2cf1467c3 Fixes for Groovy and class reloading vranyj1 parents: 1368 diff changeset	5	isInterface
c4b2cf1467c3 Fixes for Groovy and class reloading vranyj1 parents: 1368 diff changeset	6	"return true, if the receiver is a Java interface"
c4b2cf1467c3 Fixes for Groovy and class reloading vranyj1 parents: 1368 diff changeset	7
c4b2cf1467c3 Fixes for Groovy and class reloading vranyj1 parents: 1368 diff changeset	8	^ false
c4b2cf1467c3 Fixes for Groovy and class reloading vranyj1 parents: 1368 diff changeset	9
c4b2cf1467c3 Fixes for Groovy and class reloading vranyj1 parents: 1368 diff changeset	10	"
c4b2cf1467c3 Fixes for Groovy and class reloading vranyj1 parents: 1368 diff changeset	11	True isInterface
c4b2cf1467c3 Fixes for Groovy and class reloading vranyj1 parents: 1368 diff changeset	12	"
c4b2cf1467c3 Fixes for Groovy and class reloading vranyj1 parents: 1368 diff changeset	13
c4b2cf1467c3 Fixes for Groovy and class reloading vranyj1 parents: 1368 diff changeset	14	"Created: / 22-02-2012 / 21:53:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c4b2cf1467c3 Fixes for Groovy and class reloading vranyj1 parents: 1368 diff changeset	15	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	16
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	17	!Boolean class methodsFor:'queries'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	18
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	19	isJavaPrimitiveType
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	20
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	21	^true
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	22
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	23	"Created: / 25-02-2011 / 08:22:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	24	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	25
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	26	!Boolean class methodsFor:'queries'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	27
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	28	javaArrayClass
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	29	^ BooleanArray
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	30
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	31	"Created: / 25-02-2011 / 08:27:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	32	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	33
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	34	!Boolean class methodsFor:'autoboxing support'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	35
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	36	javaBox: anObject
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	37	\| wrapper \|
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	38
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	39	wrapper := (JavaVM classForName: 'java.lang.Boolean') new.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	40	wrapper perform: #'<init>(Z)V' with: anObject.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	41	^ wrapper
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	42
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	43	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	44	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	45
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	46	!Boolean class methodsFor:'accessing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	47
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	48	javaName
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	49
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	50	^'boolean'.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	51
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	52	"Modified: / 25-02-2011 / 18:58:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	53	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	54
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	55	!Boolean class methodsFor:'autoboxing support'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	56
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	57	javaUnbox: object onError: errorBlock
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	58
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	59	\| value \|
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	60
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	61	(object class name = 'java/lang/Boolean') ifFalse:[
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	62	errorBlock value.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	63	].
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	64	value := object instVarNamed: #value.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	65	(value ~~ 0 and:[value ~~ 1]) ifTrue:[
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	66	errorBlock value.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	67	].
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	68	^value
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	69
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	70	"Created: / 22-11-2011 / 11:52:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	71	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	72
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	73	!Boolean class methodsFor:'autoboxing support'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	74
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	75	javaUnwrap: zeroOrOne
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	76
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	77	^zeroOrOne == 1
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	78
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	79	"Created: / 10-12-2011 / 20:00:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	80	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	81
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	82	!Boolean class methodsFor:'autoboxing support'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	83
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	84	javaWrap: boolean
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	85
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	86	^boolean ifTrue:[1] ifFalse:[0].
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	87
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	88	"Created: / 18-03-2012 / 22:03:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	89	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	90
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	91	!Boolean class methodsFor:'accessing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	92
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	93	javaWrapperClass
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	94	^(Java classForName: 'java.lang.Boolean')
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	95
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	96	"Created: / 24-02-2012 / 19:43:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	97	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	98
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	99	!BooleanArray methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	100
826 db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	101	isInterface
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	102
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	103	^false
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	104
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	105	"Created: / 31-05-2011 / 16:07:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	106	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	107
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	108	!BooleanArray class methodsFor:'testing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	109
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	110	isInterface
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	111
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	112	^false
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	113	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	114
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	115	!BooleanArray class methodsFor:'queries'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	116
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	117	isJavaArrayClass
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	118
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	119	^true
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	120
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	121	"Created: / 20-12-2010 / 22:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	122	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	123
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	124	!BooleanArray class methodsFor:'queries'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	125
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	126	isJavaReferenceType
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	127
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	128	"Java arrays are reference types"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	129	^true
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	130
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	131	"Created: / 20-12-2010 / 22:30:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	132	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	133
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	134	!BooleanArray class methodsFor:'accessing-java'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	135
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	136	javaArrayClass
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	137	^ JavaArray javaArrayClassFor: self
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	138
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	139	"Created: / 06-12-2011 / 17:29:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	140	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	141
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	142	!BooleanArray class methodsFor:'accessing-java'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	143
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	144	javaComponentClass
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	145
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	146	^Boolean
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	147
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	148	"Created: / 20-12-2010 / 22:13:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	149	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	150
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	151	!BooleanArray class methodsFor:'accessing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	152
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	153	javaName
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	154
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	155	^'[Z'.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	156
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	157	"Modified: / 31-08-2011 / 23:57:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	158	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	159
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	160	!ByteArray class methodsFor:'testing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	161
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	162	isInterface
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	163
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	164	^false
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	165	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	166
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	167	!ByteArray class methodsFor:'queries'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	168
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	169	isJavaArrayClass
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	170
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	171	^true
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	172
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	173	"Created: / 05-02-2011 / 22:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	174	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	175
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	176	!ByteArray class methodsFor:'queries'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	177
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	178	isJavaReferenceType
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	179
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	180	"Java arrays are reference types"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	181	^true
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	182
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	183	"Created: / 20-12-2010 / 22:30:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	184	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	185
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	186	!ByteArray class methodsFor:'accessing-java'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	187
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	188	javaArrayClass
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	189
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	190	^JavaArray javaArrayClassFor: self
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	191
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	192	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	193	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	194
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	195	!ByteArray class methodsFor:'accessing-java'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	196
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	197	javaComponentClass
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	198
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	199	^JavaByte
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	200
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	201	"Created: / 20-12-2010 / 22:05:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	202	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	203
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	204	!ByteArray class methodsFor:'accessing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	205
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	206	javaName
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	207
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	208	^'[B'.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	209
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	210	"Modified: / 25-02-2011 / 19:02:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	211	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	212
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	213	!Character class methodsFor:'queries'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	214
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	215	isJavaPrimitiveType
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	216
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	217	^true
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	218
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	219	"Created: / 20-12-2010 / 22:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	220	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	221
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	222	!Character class methodsFor:'accessing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	223
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	224	javaArrayClass
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	225	^ String
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	226
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	227	"Created: / 11-02-2011 / 10:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	228	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	229
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	230	!Character class methodsFor:'autoboxing support'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	231
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	232	javaBox: anObject
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	233	\| wrapper \|
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	234
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	235	wrapper := (JavaVM classForName: 'java.lang.Character') new.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	236	wrapper perform: #'<init>(C)V' with: anObject codePoint.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	237	^ wrapper
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	238
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	239	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	240	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	241
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	242	!Character class methodsFor:'accessing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	243
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	244	javaName
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	245
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	246	^'char'.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	247
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	248	"Modified: / 25-02-2011 / 18:58:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	249	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	250
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	251	!Character class methodsFor:'autoboxing support'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	252
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	253	javaUnbox: object onError: errorBlock
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	254
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	255	\| value \|
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	256
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	257	(object class name = 'java/lang/Character') ifFalse:[
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	258	errorBlock value.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	259	].
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	260	value := object instVarNamed: #value.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	261	(value between: 0 and: 255) ifFalse:[
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	262	errorBlock value.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	263	].
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	264	^value
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	265
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	266	"Created: / 22-11-2011 / 11:52:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	267	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	268
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	269	!Character class methodsFor:'accessing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	270
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	271	javaWrapperClass
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	272	^(Java classForName: 'java.lang.Character')
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	273
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	274	"Created: / 24-02-2012 / 19:42:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	275	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	276
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	277	!CharacterArray methodsFor:'java conversions'!
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	278
1061 59aed4985b1d vranyj1 parents: 1060 diff changeset	279	asDottedJavaClassName
59aed4985b1d vranyj1 parents: 1060 diff changeset	280
59aed4985b1d vranyj1 parents: 1060 diff changeset	281	"
59aed4985b1d vranyj1 parents: 1060 diff changeset	282	examples:
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	283	java.lang.String
1061 59aed4985b1d vranyj1 parents: 1060 diff changeset	284	[[[Ljava/lang/Object; => java.lang.Object
59aed4985b1d vranyj1 parents: 1060 diff changeset	285	"
59aed4985b1d vranyj1 parents: 1060 diff changeset	286
59aed4985b1d vranyj1 parents: 1060 diff changeset	287
59aed4985b1d vranyj1 parents: 1060 diff changeset	288	\| nm \|
59aed4985b1d vranyj1 parents: 1060 diff changeset	289	nm := self asJavaComponentClassName.
59aed4985b1d vranyj1 parents: 1060 diff changeset	290	(nm startsWith: $L) ifTrue: [
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	291	nm := nm copyFrom: 2 to: nm size - 1
1061 59aed4985b1d vranyj1 parents: 1060 diff changeset	292	].
59aed4985b1d vranyj1 parents: 1060 diff changeset	293	(nm includes: $/) ifTrue: [
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	294	nm := nm asString copyReplaceAll: $/ with: $.
1061 59aed4985b1d vranyj1 parents: 1060 diff changeset	295	].
59aed4985b1d vranyj1 parents: 1060 diff changeset	296	^ nm.
59aed4985b1d vranyj1 parents: 1060 diff changeset	297
59aed4985b1d vranyj1 parents: 1060 diff changeset	298	"Created: / 21-10-2011 / 12:31:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
59aed4985b1d vranyj1 parents: 1060 diff changeset	299	"Created: / 30-10-2011 / 17:41:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
59aed4985b1d vranyj1 parents: 1060 diff changeset	300	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	301
1061 59aed4985b1d vranyj1 parents: 1060 diff changeset	302	!CharacterArray methodsFor:'java conversions'!
59aed4985b1d vranyj1 parents: 1060 diff changeset	303
1036 4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	304	asInternalJavaClassName
1060 c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	305
c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	306	<resource: #obsolete>
c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	307
c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	308	^self asSlashedJavaClassName
1036 4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	309
4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	310	"Created: / 21-10-2011 / 12:31:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
1060 c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	311	"Modified: / 30-10-2011 / 17:40:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1036 4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	312	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	313
1036 4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	314	!CharacterArray methodsFor:'java conversions'!
4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	315
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	316	asJavaComponentClassName
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	317	\| componentClassName \|
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	318
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	319	componentClassName := self utf8Encoded.
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	320	(componentClassName matches: '\[') ifTrue: [
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	321	componentClassName := componentClassName
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	322	copyFrom: (componentClassName lastIndexOf: $[) + 1
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	323	to: componentClassName size.
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	324	].
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	325	^ componentClassName.
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	326	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	327
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	328	!CharacterArray methodsFor:'java conversions'!
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	329
1036 4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	330	asJavaishClassName
1060 c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	331
c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	332	<resource: #obsolete>
c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	333
c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	334	^self asDottedJavaClassName.
1036 4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	335
4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	336	"Created: / 21-10-2011 / 12:33:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
1060 c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	337	"Modified: / 30-10-2011 / 17:41:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1036 4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	338	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	339
1036 4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	340	!CharacterArray methodsFor:'java conversions'!
4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	341
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	342	asNiceJavaClassName
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	343	\| niceName \|
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	344
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	345	niceName := self asJavaComponentClassName asSTXInternalJavaClassName.
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	346	(self occurrencesOf: $[) timesRepeat: [ niceName := niceName , '[]' ].
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	347	niceName := niceName asString copyReplaceAll: $/ with: $..
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	348	^ niceName.
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	349	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	350
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	351	!CharacterArray methodsFor:'java conversions'!
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	352
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	353	asSTXInternalJavaClassName
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	354	\| internalName \|
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	355
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	356	internalName := self asJavaComponentClassName.
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	357	(internalName startsWith: $L) ifTrue: [
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	358	internalName := internalName copyFrom: 2 to: internalName size - 1
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	359	].
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	360	(internalName includes: $.) ifTrue: [
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	361	internalName := internalName asString copyReplaceAll: $. with: $/
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	362	].
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	363	^internalName.
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	364	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	365
1061 59aed4985b1d vranyj1 parents: 1060 diff changeset	366	!CharacterArray methodsFor:'java conversions'!
59aed4985b1d vranyj1 parents: 1060 diff changeset	367
59aed4985b1d vranyj1 parents: 1060 diff changeset	368	asSlashedJavaClassName
59aed4985b1d vranyj1 parents: 1060 diff changeset	369	"removes square brackets and adds slashes"
59aed4985b1d vranyj1 parents: 1060 diff changeset	370	\| internalName \|
59aed4985b1d vranyj1 parents: 1060 diff changeset	371	internalName := self asJavaComponentClassName.
59aed4985b1d vranyj1 parents: 1060 diff changeset	372	(internalName startsWith: $L) ifTrue: [
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	373	internalName := internalName copyFrom: 2 to: internalName size - 1
1061 59aed4985b1d vranyj1 parents: 1060 diff changeset	374	].
59aed4985b1d vranyj1 parents: 1060 diff changeset	375	(internalName includes: $.) ifTrue: [
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	376	internalName := internalName asString copyReplaceAll: $. with: $/
1061 59aed4985b1d vranyj1 parents: 1060 diff changeset	377	].
59aed4985b1d vranyj1 parents: 1060 diff changeset	378	^ internalName.
59aed4985b1d vranyj1 parents: 1060 diff changeset	379
59aed4985b1d vranyj1 parents: 1060 diff changeset	380	"Created: / 21-10-2011 / 12:31:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
59aed4985b1d vranyj1 parents: 1060 diff changeset	381	"Created: / 30-10-2011 / 17:40:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
59aed4985b1d vranyj1 parents: 1060 diff changeset	382	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	383
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	384	!CharacterArray methodsFor:'java queries'!
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	385
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	386	isJavaArrayDescriptor
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	387	^ self startsWith:$[.
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	388	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	389
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	390	!CharacterArray methodsFor:'java queries'!
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	391
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	392	isJavaPrimitiveTypeDescriptor
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	393	^ (self size = 1 and: [ JavaDescriptor baseTypes includesKey: self first ]).
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	394	! !
1190 00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	395
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	396	!CharacterArray class methodsFor:'encoding & decoding'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	397
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	398	decodeFromJavaUTF8: bytes
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	399	"Decodes a string from modified UTF8 encoding
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	400	as used in Java .class files. see
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	401	'The class file format specification', section 4.5.7"
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	402
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	403	\| string i s b codePoint realLength \|
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	404
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	405	string := String new: bytes size.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	406	realLength := bytes size.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	407	s := bytes readStream.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	408	i := 1.
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	409	[ s atEnd ] whileFalse:
1253 0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	410	[ b := s next.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	411	(b & 2r10000000) == 0
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	412	ifTrue: [ codePoint := b ]
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	413	ifFalse:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	414	[ self assert: (b & 2r01000000) = 2r01000000.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	415	(b & 2r00100000) = 0
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	416	ifTrue:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	417	[ "two byte utf char"
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	418	realLength := realLength - 1.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	419	self assert: s size > 0.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	420	self assert: (b & 2r01000000) = 2r01000000.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	421	string bitsPerCharacter < 16
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	422	ifTrue: [ string := Unicode16String fromString: string ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	423	codePoint := (b & 2r00011111) << 6.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	424	b := s next.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	425	self assert: (b & 2r11000000) = 2r10000000.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	426	codePoint := codePoint + (b & 2r00111111). ]
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	427	ifFalse:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	428	[ "at lease 3 byte utf char"
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	429	realLength := realLength - 2.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	430	string bitsPerCharacter < 16"was: 32"
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	431	ifTrue: [ string := Unicode16String"was: Unicode32String" fromString: string ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	432	self assert: s size > 1.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	433	(b & 2r00010000) = 0
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	434	ifTrue:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	435	[ \| utf32Possible utf32Value \|
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	436
1253 0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	437	"3 or 6 byte utf char"
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	438	self assert: s size > 1.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	439	s size < 5
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	440	ifTrue: [ utf32Possible := false ]
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	441	ifFalse: [ utf32Possible := true ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	442	b ~= 2r11101101 ifTrue: [ utf32Possible := false ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	443	codePoint := (b & 2r00001111) << 12.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	444	b := s next.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	445	self assert: (b & 2r11000000) = 2r10000000.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	446	((b & 2r11110000) = 2r10100000 and: [ utf32Possible ])
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	447	ifTrue: [ utf32Value := 2r00010000 + ((b & 2r00001111) << 16) ]
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	448	ifFalse: [ utf32Possible := false ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	449	codePoint := codePoint + ((b & 2r00111111) << 6).
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	450	b := s next.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	451	self assert: (b & 2r11000000) = 2r10000000.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	452	utf32Possible
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	453	ifTrue: [ utf32Value := utf32Value + ((b & 2r00111111) << 10) ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	454	codePoint := codePoint + (b & 2r00111111).
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	455	utf32Possible
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	456	ifTrue:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	457	[ \| tmpB \|
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	458
1253 0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	459	string bitsPerCharacter < 32
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	460	ifTrue: [ string := Unicode32String fromString: string ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	461	tmpB := s copy.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	462	b := tmpB next.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	463	b = 2r11101101
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	464	ifTrue:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	465	[ b := tmpB next.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	466	(b & 2r11110000) = 2r10110000
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	467	ifTrue:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	468	[ utf32Value := utf32Value + ((b & 2r00001111) << 6).
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	469	b := tmpB next.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	470	self assert: (b & 2r11000000) = 2r10000000.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	471	utf32Value := utf32Value + (b & 2r00111111).
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	472	codePoint := utf32Value.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	473	realLength := realLength - 3. s position: tmpB position.] ] ] ]
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	474	ifFalse:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	475	[ "should not happen, ask mh"
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	476	self halt. ] ] ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	477	string at: i put: (Character codePoint: codePoint).
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	478	i := i + 1. ].
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	479	^ string subString: 1 to: realLength.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	480
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	481	"
1253 0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	482	String decodeFromJavaUTF8: 'Hello world' asByteArray"
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	483
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	484	"Created: / 22-12-2010 / 23:45:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	485	"Modified: / 09-02-2011 / 01:12:25 / Marcel Hlopko <hlopik@gmail.com>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	486	"Modified: / 13-03-2011 / 15:52:36 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
1253 0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	487	"Modified: / 09-12-2011 / 19:49:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	488	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	489
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	490	!CharacterArray class methodsFor:'instance creation'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	491
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	492	fromJavaUTF8Bytes:aByteCollection
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	493	"return a new string which represents the characters as decoded
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	494	from the modified utf8 encoded bytes as specified in
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	495	The class file format specification, section 4.5.7"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	496
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	497	^ self decodeFromJavaUTF8:aByteCollection.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	498
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	499	"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	500	CharacterArray fromUTF8Bytes:#[ 16r41 16r42 ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	501	CharacterArray fromUTF8Bytes:#[ 16rC1 16r02 ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	502	CharacterArray fromUTF8Bytes:#[ 16rE0 16r81 16r02 ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	503	CharacterArray fromUTF8Bytes:#[ 16rEF 16rBF 16rBF ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	504
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	505	rfc2279 examples:
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	506	CharacterArray fromUTF8Bytes:#[ 16r41 16rE2 16r89 16rA2 16rCE 16r91 16r2E ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	507	CharacterArray fromUTF8Bytes:#[ 16rED 16r95 16r9C 16rEA 16rB5 16rAD 16rEC 16r96 16rB4 ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	508	CharacterArray fromUTF8Bytes:#[ 16rE6 16r97 16rA5 16rE6 16r9C 16rAC 16rE8 16rAA 16r9E ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	509
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	510	invalid:
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	511	CharacterArray fromUTF8Bytes:#[ 16rC0 16r80 ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	512	CharacterArray fromUTF8Bytes:#[ 16rE0 16r80 16r80 ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	513	"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	514
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	515	"Created: / 23-12-2010 / 09:01:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	516	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	517
865 82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	518	!CharacterArray class methodsFor:'queries'!
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	519
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	520	isJavaArrayClass
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	521
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	522	^true
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	523
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	524	"Created: / 05-02-2011 / 22:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	525	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	526
865 82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	527	!CharacterArray class methodsFor:'accessing-java'!
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	528
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	529	javaArrayClass
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	530
901 64a889b68bef - JavaVM: more natives vranyj1 parents: 900 diff changeset	531	^JavaArray javaArrayClassFor: Unicode16String
865 82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	532
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	533	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
901 64a889b68bef - JavaVM: more natives vranyj1 parents: 900 diff changeset	534	"Modified: / 10-08-2011 / 13:18:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
865 82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	535	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	536
865 82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	537	!CharacterArray class methodsFor:'accessing-java'!
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	538
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	539	javaComponentClass
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	540
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	541	^Character
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	542
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	543	"Created: / 20-12-2010 / 22:05:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	544	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	545
1581 70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	546	!Class methodsFor:'accessing - java'!
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	547
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	548	javaMirror
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	549	^self javaMirrorClass forClass: self.
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	550
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	551	"Created: / 31-07-2012 / 17:39:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	552	! !
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	553
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	554	!Class methodsFor:'accessing - java'!
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	555
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	556	javaMirrorClass
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	557	^self isJavaPrimitiveType ifTrue:[
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	558	JavaMirror mirrorClassForJavaPrimitive
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	559	] ifFalse:[
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	560	JavaMirror mirrorClassForAlienClass
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	561	]
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	562
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	563	"Created: / 31-07-2012 / 17:39:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	564	! !
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	565
1368 5f502e712403 Groovy language support and integration vranyj1 parents: 1362 diff changeset	566	!ConfigurableFeatures class methodsFor:'queries-features'!
5f502e712403 Groovy language support and integration vranyj1 parents: 1362 diff changeset	567
5f502e712403 Groovy language support and integration vranyj1 parents: 1362 diff changeset	568	hasJavaSupport
5f502e712403 Groovy language support and integration vranyj1 parents: 1362 diff changeset	569	"/ use Smalltalk-at to trick the dependency/prerequisite generator
5f502e712403 Groovy language support and integration vranyj1 parents: 1362 diff changeset	570	^ (Smalltalk at: #'JavaVM' ifAbsent:nil) notNil
5f502e712403 Groovy language support and integration vranyj1 parents: 1362 diff changeset	571
5f502e712403 Groovy language support and integration vranyj1 parents: 1362 diff changeset	572	"
5f502e712403 Groovy language support and integration vranyj1 parents: 1362 diff changeset	573	ConfigurableFeatures hasJavaSupport
5f502e712403 Groovy language support and integration vranyj1 parents: 1362 diff changeset	574	ConfigurableFeatures includesFeature:#JavaSupport
5f502e712403 Groovy language support and integration vranyj1 parents: 1362 diff changeset	575	"
5f502e712403 Groovy language support and integration vranyj1 parents: 1362 diff changeset	576
5f502e712403 Groovy language support and integration vranyj1 parents: 1362 diff changeset	577	"Created: / 03-01-2012 / 15:36:03 / cg"
5f502e712403 Groovy language support and integration vranyj1 parents: 1362 diff changeset	578	"Created: / 18-02-2012 / 16:42:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5f502e712403 Groovy language support and integration vranyj1 parents: 1362 diff changeset	579	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	580
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	581	!Delay methodsFor:'delaying'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	582
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	583	waitWithState:state
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	584	"suspend the current process until either the relative time delta
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	585	has passed (if millisecondDelta is non-nil), or the absolute millisecondTime
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	586	has been reached (if resumptionTime non-nil)."
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	587
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	588	\| wasBlocked currentDelta dueTime now then \|
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	589	isInterrupted := false.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	590	millisecondDelta notNil ifTrue: [
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	591	now := OperatingSystem getMillisecondTime.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	592	currentDelta := millisecondDelta rounded.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	593	currentDelta > 16r0fffffff ifTrue: [
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	594	"NOTE: the microsecondTime is increasing monotonically,
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	595	while millisecondTime is wrapping at 16r1fffffff.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	596	So use the microsecondTime to check when we are finished"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	597	dueTime := OperatingSystem getMicrosecondTime + (currentDelta * 1000).
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	598	currentDelta := 16r0fffffff.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	599	].
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	600	then := OperatingSystem millisecondTimeAdd: now and: currentDelta.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	601	] ifFalse: [ then := resumptionTime. ].
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	602	wasBlocked := OperatingSystem blockInterrupts.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	603	[
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	604	[
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	605	Processor signal: delaySemaphore atMilliseconds: then.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	606	Processor activeProcess state: state.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	607	delaySemaphore wait.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	608	] doWhile: [
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	609	(dueTime notNil
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	610	and: [
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	611	isInterrupted not
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	612	and: [ (currentDelta := dueTime - OperatingSystem getMicrosecondTime) > 0 ]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	613	])
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	614	ifTrue: [
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	615	currentDelta := (currentDelta // 1000) min: 16r0fffffff.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	616	now := OperatingSystem getMillisecondTime.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	617	then := OperatingSystem millisecondTimeAdd: now and: currentDelta.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	618	true.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	619	]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	620	ifFalse: [ false ]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	621	].
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	622	] ensure: [ wasBlocked ifFalse: [ OperatingSystem unblockInterrupts ]. ]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	623
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	624	"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	625	Transcript showCR:'1'.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	626	(Delay forSeconds:10) wait.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	627	Transcript showCR:'2'."
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	628
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	629	"Modified: / 26-02-1997 / 15:21:35 / cg"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	630	"Modified: / 18-04-1997 / 11:56:46 / stefan"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	631	"Created: / 30-11-2011 / 13:38:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	632	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	633
826 db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	634	!DoubleArray class methodsFor:'testing'!
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	635
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	636	isInterface
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	637
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	638	^false
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	639	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	640
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	641	!DoubleArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	642
912 e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	643	isJavaArrayClass
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	644
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	645	^true
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	646
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	647	"Created: / 20-12-2010 / 22:47:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	648	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	649
912 e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	650	!DoubleArray class methodsFor:'queries'!
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	651
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	652	isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	653
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	654	"Java arrays are reference types"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	655	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	656
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	657	"Created: / 20-12-2010 / 22:30:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	658	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	659
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	660	!DoubleArray class methodsFor:'accessing-java'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	661
1226 bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	662	javaArrayClass
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	663	^ JavaArray javaArrayClassFor: self.
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	664
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	665	"Created: / 06-12-2011 / 17:28:26 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	666	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	667
1226 bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	668	!DoubleArray class methodsFor:'accessing-java'!
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	669
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	670	javaComponentClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	671
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	672	^Float
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	673
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	674	"Created: / 20-12-2010 / 22:06:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	675	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	676
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	677	!DoubleArray class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	678
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	679	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	680
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	681	^'[D'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	682
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	683	"Modified: / 25-02-2011 / 19:03:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	684	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	685
1581 70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	686	!ExecutableFunction methodsFor:'queries'!
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	687
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	688	isJavaConstructor
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	689	^ false
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	690
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	691	"Created: / 31-07-2012 / 18:42:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	692	! !
70fbc03d2d82 Java reflection support refactoring - moved to use JavaMirrors vranyj1 parents: 1570 diff changeset	693
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	694	!Float class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	695
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	696	isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	697
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	698	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	699
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	700	"Created: / 06-02-2011 / 17:21:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	701	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	702
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	703	!Float class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	704
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	705	javaArrayClass
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	706	^ DoubleArray
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	707
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	708	"Created: / 11-02-2011 / 10:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	709	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	710
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	711	!Float class methodsFor:'autoboxing support'!
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	712
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	713	javaBox: anObject
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	714	\| wrapper \|
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	715
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	716	wrapper := (JavaVM classForName: 'java.lang.Double') new.
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	717	wrapper perform: #'<init>(D)V' with: anObject.
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	718	^ wrapper
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	719
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	720	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	721	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	722
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	723	!Float class methodsFor:'accessing'!
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	724
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	725	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	726
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	727	^'double'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	728
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	729	"Modified: / 25-02-2011 / 18:59:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	730	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	731
1386 5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	732	!Float class methodsFor:'accessing'!
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	733
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	734	javaWrapperClass
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	735	^(Java classForName: 'java.lang.Double')
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	736
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	737	"Created: / 24-02-2012 / 19:42:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	738	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	739
826 db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	740	!FloatArray class methodsFor:'testing'!
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	741
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	742	isInterface
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	743
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	744	^false
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	745	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	746
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	747	!FloatArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	748
912 e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	749	isJavaArrayClass
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	750
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	751	^true
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	752
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	753	"Created: / 20-12-2010 / 22:47:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	754	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	755
912 e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	756	!FloatArray class methodsFor:'queries'!
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	757
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	758	isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	759
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	760	"Java arrays are reference types"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	761	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	762
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	763	"Created: / 20-12-2010 / 22:30:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	764	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	765
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	766	!FloatArray class methodsFor:'accessing-java'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	767
1226 bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	768	javaArrayClass
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	769	^ JavaArray javaArrayClassFor: self.
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	770
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	771	"Created: / 06-12-2011 / 17:29:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	772	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	773
1226 bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	774	!FloatArray class methodsFor:'accessing-java'!
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	775
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	776	javaComponentClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	777
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	778	^ShortFloat
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	779
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	780	"Created: / 20-12-2010 / 22:06:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	781	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	782
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	783	!FloatArray class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	784
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	785	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	786
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	787	^'[F'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	788
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	789	"Modified: / 25-02-2011 / 19:03:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	790	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	791
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	792	!Integer class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	793
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	794	isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	795
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	796	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	797
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	798	"Created: / 11-02-2011 / 11:12:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	799	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	800
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	801	!Integer class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	802
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	803	javaArrayClass
873 933263bd2d27 Fixes for primitive array types (uses Signed* variant of an array) vranyj1 parents: 866 diff changeset	804	^ SignedIntegerArray
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	805
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	806	"Created: / 11-02-2011 / 10:51:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	807	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	808
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	809	!Integer class methodsFor:'autoboxing support'!
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	810
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	811	javaBox: anObject
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	812	\| wrapper \|
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	813
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	814	wrapper := (JavaVM classForName: 'java.lang.Integer') new.
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	815	wrapper perform: #'<init>(I)V' with: anObject.
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	816	^ wrapper
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	817
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	818	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	819	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	820
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	821	!Integer class methodsFor:'accessing'!
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	822
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	823	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	824
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	825	^'int'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	826
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	827	"Modified: / 25-02-2011 / 18:59:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	828	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	829
1204 6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	830	!Integer class methodsFor:'autoboxing support'!
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	831
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	832	javaUnbox: object onError: errorBlock
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	833
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	834	^self javaUnbox: object onError: errorBlock
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	835	min: "Integer.MIN_VALUE"-2147483648
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	836	max: "Integer.MAX_VALUE" 2147483647
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	837
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	838	"Created: / 25-11-2011 / 19:10:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	839	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	840
1205 ea0a42e158f0 vranyj1 parents: 1204 diff changeset	841	!Integer class methodsFor:'autoboxing support'!
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	842
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	843	javaUnbox: object onError: errorBlock min: min max: max
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	844
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	845	\| value \|
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	846
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	847	(#( 'java/lang/Byte'
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	848	'java/lang/Short'
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	849	'java/lang/Integer'
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	850	"'java/lang/Long'" ) includes: object class name) ifFalse:[
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	851	errorBlock value.
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	852	].
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	853
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	854	value := object instVarNamed:#value.
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	855	(value between: min and: max) ifFalse:[
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	856	errorBlock value.
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	857	].
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	858	^value
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	859
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	860	"Created: / 22-11-2011 / 11:43:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	861	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	862
1386 5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	863	!Integer class methodsFor:'accessing'!
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	864
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	865	javaWrapperClass
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	866	^(Java classForName: 'java.lang.Integer')
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	867
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	868	"Created: / 24-02-2012 / 19:41:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	869	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	870
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	871	!LargeInteger class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	872
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	873	isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	874
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	875	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	876
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	877	"Created: / 04-02-2011 / 11:55:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	878	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	879
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	880	!LargeInteger class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	881
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	882	javaArrayClass
873 933263bd2d27 Fixes for primitive array types (uses Signed* variant of an array) vranyj1 parents: 866 diff changeset	883	^ SignedLongIntegerArray
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	884
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	885	"Created: / 11-02-2011 / 10:51:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	886	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	887
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	888	!LargeInteger class methodsFor:'autoboxing support'!
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	889
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	890	javaBox: anObject
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	891	\| wrapper \|
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	892
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	893	wrapper := (JavaVM classForName: 'java.lang.Long') new.
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	894	wrapper perform: #'<init>(J)V' with: anObject.
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	895	^ wrapper
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	896
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	897	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	898	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	899
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	900	!LargeInteger class methodsFor:'accessing'!
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	901
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	902	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	903
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	904	^'long'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	905
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	906	"Modified: / 25-02-2011 / 18:59:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	907	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	908
1204 6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	909	!LargeInteger class methodsFor:'autoboxing support'!
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	910
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	911	javaUnbox: object onError: errorBlock
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	912
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	913	\| value \|
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	914
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	915	(object class name = 'java/lang/Long') ifFalse:[
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	916	errorBlock value.
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	917	].
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	918
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	919	value := object instVarNamed:#value.
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	920	(value between: "Integer.MIN_VALUE"-9223372036854775808 and: "Integer.MAX_VALUE" 9223372036854775807) ifFalse:[
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	921	errorBlock value.
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	922	].
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	923	^value
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	924
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	925	"Created: / 22-11-2011 / 11:45:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	926	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	927
1386 5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	928	!LargeInteger class methodsFor:'accessing'!
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	929
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	930	javaWrapperClass
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	931	^(Java classForName: 'java.lang.Long')
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	932
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	933	"Created: / 24-02-2012 / 19:42:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	934	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	935
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	936	!Object methodsFor:'testing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	937
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	938	isGroovyClass
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	939	^false
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	940
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	941	"Created: / 18-02-2012 / 20:29:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	942	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	943
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	944	!Object methodsFor:'testing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	945
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	946	isJavaArray
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	947
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	948	^self class isJavaArrayClass
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	949
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	950	"Created: / 19-12-2010 / 17:05:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	951	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	952
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	953	!Object methodsFor:'testing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	954
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	955	isJavaNameAndType
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	956	"return true, if given object represents name and type struct in java constant pool"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	957
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	958	^ false.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	959
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	960	"Created: / 10-05-2011 / 12:21:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	961	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	962
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	963	!Object methodsFor:'testing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	964
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	965	isJavaPackage
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	966	"return true, if the receiver is a java package.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	967	False is returned here - the method is only redefined in JavaPackage."
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	968
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	969	^ false
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	970
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	971	"Created: / 09-08-2011 / 09:35:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	972	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	973
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	974	!Object methodsFor:'testing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	975
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	976	isJavaRef
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	977	"return true, if given object represents reference in java constant pool"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	978	^ false.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	979
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	980	"Created: / 08-04-2011 / 16:12:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	981	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	982
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	983	!Object methodsFor:'testing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	984
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	985	isJavaWrapperClass
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	986	"return true, if this is a java wrapper class, i.e, java.lang.Integer, java.lang.Boolean etc."
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	987
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	988	^ false
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	989
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	990	"Created: / 01-01-2012 / 17:25:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	991	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	992
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	993	!Object methodsFor:'autoboxing support'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	994
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	995	javaBox: anObject
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	996
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	997	^anObject
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	998
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	999	"Created: / 15-08-2011 / 10:52:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1000	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1001
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1002	!Object methodsFor:'autoboxing support'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1003
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1004	javaUnwrap: anObject
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1005	"Unwraps the objects. Possibly call on the wrapped class"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1006
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1007	^anObject
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1008
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1009	"Created: / 10-12-2011 / 19:51:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1010	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1011
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1012	!Object methodsFor:'autoboxing support'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1013
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1014	javaUnwrapFrom: javaType
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1015	^ self.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1016
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1017	"Created: / 10-12-2011 / 19:51:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1018	"Created: / 30-12-2011 / 15:22:06 / kursjan <kursjan@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1019	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1020
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1021	!Object methodsFor:'autoboxing support'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1022
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1023	javaWrap: anObject
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1024	"Wraps the receiver into corresponding Java object"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1025
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1026	^anObject
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1027
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1028	"Created: / 26-12-2011 / 00:57:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1029	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1030
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1031	!Object class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1032
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1033	isJavaArrayClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1034
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1035	^false
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1036
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1037	"Created: / 19-12-2010 / 17:05:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1038	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1039
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1040	!Object class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1041
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1042	isJavaClassType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1043
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1044	^false
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1045
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1046	"Created: / 11-02-2011 / 08:08:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1047	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1048
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1049	!Object class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1050
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1051	isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1052
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1053	^false
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1054
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1055	"Created: / 20-12-2010 / 21:52:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1056	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1057
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1058	!Object class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1059
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1060	isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1061
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1062	^false
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1063
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1064	"Created: / 20-12-2010 / 21:52:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1065	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1066
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1067	!Object class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1068
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1069	isJavaType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1070
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1071	^false
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1072
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1073	"Created: / 20-12-2010 / 21:52:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1074	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1075
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1076	!Process methodsFor:'Java protocol'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1077
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1078	clearInterrupted
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1079	JavaVM threadInterrupts at: self put: false.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1080
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1081	"Created: / 30-11-2011 / 10:44:26 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1082	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1083
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1084	!Process methodsFor:'Java protocol'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1085
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1086	isInterrupted
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1087
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1088	^ JavaVM threadInterrupts at: self
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1089	ifAbsent: [ JavaVM threadInterrupts at: self put: false. ]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1090
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1091	"Created: / 30-11-2011 / 12:12:33 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1092	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1093
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1094	!Process methodsFor:'queries'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1095
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1096	isSleeping
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1097	"return true, iff the receiver is sleeping on Delay"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1098
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1099	^ (state == #sleep)
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1100
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1101	"Created: / 30-11-2011 / 13:35:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1102	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1103
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1104	!Process methodsFor:'queries'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1105
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1106	isWaiting
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1107	"return true, iff the receiver is waiting on semaphore or something"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1108
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1109	^ (state == #wait)
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1110
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1111	"Created: / 20-11-2011 / 20:55:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1112	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1113
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1114	!Process methodsFor:'Java protocol'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1115
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1116	javaInterrupt
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1117	self isWaiting ifTrue: [
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1118	self
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1119	interruptWith: [
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1120	JavaVM
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1121	throwInterruptedException: 'thread has been interrupted during wait'.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1122	self terminate
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1123	]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1124	] ifFalse: [
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1125	self isSleeping ifTrue: [
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1126
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1127	self
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1128	interruptWith: [
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1129	JavaVM
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1130	throwInterruptedException: 'thread has been interrupted during sleep'.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1131	self terminate
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1132	]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1133	] ifFalse: [ self setInterrupted. ]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1134	]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1135
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1136	"Created: / 30-11-2011 / 13:35:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1137	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1138
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1139	!Process methodsFor:'Java protocol'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1140
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1141	setInterrupted
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1142
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1143	JavaVM threadInterrupts at: self put: true.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1144
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1145	"Created: / 30-11-2011 / 10:44:37 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1146	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1147
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1148	!ProgrammingLanguage methodsFor:'testing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1149
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1150	isGroovy
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1151	"true iff this is a Groovy language"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1152
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1153	^ false
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1154
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1155	"Created: / 13-04-2012 / 17:47:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1156	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1157
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1158	!ProgrammingLanguage methodsFor:'testing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1159
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1160	isJavaLike
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1161	"true if receiver is kind of Java language (based on Java)"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1162
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1163	^ false
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1164
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1165	"Created: / 13-04-2012 / 17:48:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1166	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1167
1276 5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1168	!ProjectDefinition class methodsFor:'description - java'!
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1169
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1170	javaClassPath
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1171
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1172	"Defines a Java class path containing java classes/jars
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1173	required by this package"
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1174
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1175	^#()
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1176
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1177	"Created: / 13-12-2011 / 23:48:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1178	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1179
1276 5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1180	!ProjectDefinition class methodsFor:'description - java'!
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1181
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1182	javaSourcePath
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1183
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1184	"Defines paths to Java source files (for packages that
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1185	contains Java code"
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1186	^#()
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1187
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1188	"Created: / 13-12-2011 / 23:49:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1189	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1190
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1191	!Set methodsFor:'javaProtocol'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1192
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1193	java__contains:anObject
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1194	^ self contains: [:el \| anObject = el ]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1195	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1196
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1197	!ShortFloat class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1198
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1199	isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1200
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1201	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1202
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1203	"Created: / 06-02-2011 / 17:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1204	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1205
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1206	!ShortFloat class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1207
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1208	javaArrayClass
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1209	^ FloatArray
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1210
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1211	"Created: / 11-02-2011 / 10:50:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1212	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1213
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1214	!ShortFloat class methodsFor:'autoboxing support'!
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1215
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1216	javaBox: anObject
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1217	\| wrapper \|
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1218
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	1219	wrapper := (JavaVM classForName: 'java.lang.Float') new.
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1220	wrapper perform: #'<init>(F)V' with: anObject.
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	1221	^ wrapper
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1222
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1223	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1224	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1225
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1226	!ShortFloat class methodsFor:'accessing'!
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1227
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1228	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1229
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1230	^'float'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1231
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1232	"Modified: / 25-02-2011 / 18:59:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1233	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1234
1386 5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	1235	!ShortFloat class methodsFor:'accessing'!
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	1236
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	1237	javaWrapperClass
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	1238	^(Java classForName: 'java.lang.Float')
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	1239
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	1240	"Created: / 24-02-2012 / 19:42:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5a5fc5c71e48 Added lost methods vranyj1 parents: 1384 diff changeset	1241	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1242
866 10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1243	!SignedIntegerArray class methodsFor:'testing'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1244
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1245	isInterface
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1246
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1247	^false
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1248	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1249
866 10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1250	!SignedIntegerArray class methodsFor:'queries'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1251
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1252	isJavaArrayClass
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1253
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1254	^true
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1255
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1256	"Created: / 06-02-2011 / 15:16:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1257	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1258
905 d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1259	!SignedIntegerArray class methodsFor:'accessing-java'!
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1260
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1261	javaArrayClass
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1262
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1263	^JavaArray javaArrayClassFor: SignedIntegerArray
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1264
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1265	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1266	"Modified: / 10-08-2011 / 22:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1267	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1268
866 10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1269	!SignedIntegerArray class methodsFor:'accessing'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1270
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1271	javaComponentClass
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1272
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1273	^ Integer
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1274
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1275	"Created: / 25-06-2011 / 08:38:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1276	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1277
866 10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1278	!SignedIntegerArray class methodsFor:'accessing'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1279
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1280	javaName
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1281
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1282	^'[I'.
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1283
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1284	"Modified: / 25-02-2011 / 19:03:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1285	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1286
866 10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1287	!SignedLongIntegerArray class methodsFor:'testing'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1288
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1289	isInterface
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1290
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1291	^false
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1292	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1293
866 10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1294	!SignedLongIntegerArray class methodsFor:'queries'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1295
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1296	isJavaArrayClass
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1297
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1298	^true
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1299
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1300	"Created: / 20-12-2010 / 22:47:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1301	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1302
866 10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1303	!SignedLongIntegerArray class methodsFor:'queries'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1304
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1305	isJavaReferenceType
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1306
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1307	"Java arrays are reference types"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1308	^true
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1309
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1310	"Created: / 20-12-2010 / 22:30:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1311	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1312
927 be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1313	!SignedLongIntegerArray class methodsFor:'accessing-java'!
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1314
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1315	javaArrayClass
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1316
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1317	^JavaArray javaArrayClassFor: SignedLongIntegerArray
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1318
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1319	"Modified: / 10-08-2011 / 22:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1320	"Created: / 26-08-2011 / 18:29:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1321	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1322
866 10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1323	!SignedLongIntegerArray class methodsFor:'accessing'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1324
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1325	javaComponentClass
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1326
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1327	^LargeInteger
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1328
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1329	"Modified: / 25-06-2011 / 08:38:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1330	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1331
866 10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1332	!SignedLongIntegerArray class methodsFor:'accessing'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1333
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1334	javaName
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1335
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1336	^'[J'.
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1337
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1338	"Modified: / 25-02-2011 / 19:03:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1339	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1340
1384 d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1341	!SignedWordArray class methodsFor:'queries'!
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1342
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1343	isJavaArrayClass
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1344
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1345	^true
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1346
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1347	"Created: / 20-12-2010 / 22:47:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1348	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1349
1384 d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1350	!SignedWordArray class methodsFor:'queries'!
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1351
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1352	isJavaReferenceType
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1353
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1354	"Java arrays are reference types"
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1355	^true
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1356
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1357	"Created: / 20-12-2010 / 22:30:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1358	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1359
1384 d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1360	!SignedWordArray class methodsFor:'accessing'!
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1361
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1362	javaComponentClass
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1363
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1364	^JavaShort
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1365
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1366	"Modified: / 24-02-2012 / 17:46:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1367	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1368
1384 d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1369	!SignedWordArray class methodsFor:'accessing'!
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1370
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1371	javaName
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1372
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1373	^'[S'.
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1374
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1375	"Modified: / 24-02-2012 / 17:46:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d62dd4b29c22 Fixes in INSTANCE_OF + added missing method. SAXON-B now works again vranyj1 parents: 1376 diff changeset	1376	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1377
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1378	!SmallInteger methodsFor:'autoboxing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1379
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1380	javaUnwrapFrom: javaType
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1381	javaType = #boolean ifTrue: [
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1382	^ self = 1
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1383	].
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1384	^ self
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1385
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1386	"Created: / 30-12-2011 / 15:22:52 / kursjan <kursjan@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1387	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1388
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1389	!String methodsFor:'converting'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1390
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1391	asArrayOfSubstringsSeparatedBy:aSeparator
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1392	"Modified version of asArrayOfSubstrings"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1393
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1394	\|substrings start end\|
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1395
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1396	substrings := OrderedCollection new.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1397	start := 1.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1398	[start <= self size] whileTrue:[
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1399	(self at:start) = aSeparator ifFalse:[
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1400	end := start + 1.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1401	[
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1402	end <= self size and:[(self at:end) ~= aSeparator]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1403	] whileTrue:[end := end + 1].
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1404	substrings add:(self copyFrom:start to:end - 1).
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1405	start := end - 1
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1406	].
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1407	start := start + 1
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1408	].
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1409	^ substrings asArray
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1410
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1411	"Created: / 07-02-2011 / 11:18:03 / Marcel Hlopko <hlopik@gmail.com>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1412	"Modified: / 08-02-2011 / 01:08:15 / Marcel Hlopko <hlopik@gmail.com>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1413	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1414
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1415	!UndefinedObject class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1416
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1417	isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1418
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1419	"void"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1420
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1421	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1422
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1423	"Created: / 21-12-2010 / 22:52:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1424	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1425
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1426	!UndefinedObject class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1427
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1428	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1429
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1430	^'void'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1431
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1432	"Modified: / 25-02-2011 / 18:59:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1433	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1434
1570 e6b2fd21ba17 - JavaClassRegistry vranyj1 parents: 1557 diff changeset	1435	!UserPreferences methodsFor:'accessing-java'!
1557 e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1436
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1437	javaClassPath
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1438	"Return the Java user-defined class path encoded as literal array"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1439
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1440	^ self at:#javaClassPath ifAbsent:[#()].
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1441
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1442	"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1443	UserPreferences current javaClassPath
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1444	UserPreferences current javaClassPath: #openJDK7
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1445
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1446	Java classPath
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1447	"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1448
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1449	"Created: / 27-07-2012 / 12:52:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1450	! !
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1451
1570 e6b2fd21ba17 - JavaClassRegistry vranyj1 parents: 1557 diff changeset	1452	!UserPreferences methodsFor:'accessing-java'!
1557 e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1453
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1454	javaClassPath: literalArrayEncoding
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1455	"Sets the Java user-defined class path as literalArrayEncoding of a collection
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1456	of JavaPathElements"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1457
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1458	self at:#javaClassPath put: literalArrayEncoding.
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1459	(Java notNil and:[thisContext sender receiver == Java]) ifFalse:[
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1460	\| classPath \|
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1461	classPath := literalArrayEncoding decodeAsLiteralArray.
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1462	Java classPath: classPath.
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1463	].
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1464
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1465
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1466	"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1467	UserPreferences current javaClassPath
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1468	UserPreferences current javaClassPath: #openJDK7
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1469
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1470	Java classPath
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1471	"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1472
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1473	"Created: / 27-07-2012 / 12:50:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1474	! !
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1475
1570 e6b2fd21ba17 - JavaClassRegistry vranyj1 parents: 1557 diff changeset	1476	!UserPreferences methodsFor:'accessing-java'!
1557 e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1477
1588 b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1478	javaClassPathDecoded
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1479	"Return the Java user-defined class path (a collection of JavaPathElement)"
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1480
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1481	^ self javaClassPath decodeAsLiteralArray
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1482
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1483	"
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1484	UserPreferences current javaClassPathDecoded
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1485	UserPreferences current javaClassPath
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1486
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1487	Java classPath
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1488	"
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1489
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1490	"Created: / 02-08-2012 / 09:43:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1491	! !
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1492
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1493	!UserPreferences methodsFor:'accessing-java'!
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1494
1557 e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1495	javaRelease
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1496	"Return the Java release according to the preferences
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1497	or nil, if not set"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1498
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1499	\| rel sel \|
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1500	sel := self javaReleaseSelector.
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1501	sel notNil ifTrue:[
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1502	rel := JavaRelease perform: sel asSymbol ifNotUnderstood:[nil]
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1503	].
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1504	^rel
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1505
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1506	"Created: / 27-07-2012 / 10:12:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1507	! !
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1508
1570 e6b2fd21ba17 - JavaClassRegistry vranyj1 parents: 1557 diff changeset	1509	!UserPreferences methodsFor:'accessing-java'!
1557 e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1510
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1511	javaReleaseSelector
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1512	^ self at:#javaReleaseSelector ifAbsent:[nil].
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1513
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1514	"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1515	UserPreferences current javaReleaseSelector
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1516	UserPreferences current javaReleaseSelector: #openJDK6
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1517	UserPreferences current javaReleaseSelector: nil
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1518
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1519	Java release
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1520	"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1521
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1522	"Created: / 27-07-2012 / 10:02:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1523	! !
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1524
1570 e6b2fd21ba17 - JavaClassRegistry vranyj1 parents: 1557 diff changeset	1525	!UserPreferences methodsFor:'accessing-java'!
1557 e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1526
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1527	javaReleaseSelector: name
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1528	"Sets the Java release to use. selector must be one of
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1529	releases defined in JavaRelease, protocol 'instance creation'"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1530
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1531	self at:#javaReleaseSelector put: name.
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1532	Java notNil ifTrue:[
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1533	Java reinitializeRelease
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1534	].
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1535
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1536
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1537	"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1538	UserPreferences current javaReleaseSelector
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1539	UserPreferences current javaReleaseSelector: #openJDK7
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1540	UserPreferences current javaReleaseSelector: nil
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1541
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1542	Java release
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1543	Java release:nil
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1544
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1545	Java reinitializeRelease
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1546	"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1547
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1548	"Created: / 27-07-2012 / 10:02:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1549	! !
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1550
1570 e6b2fd21ba17 - JavaClassRegistry vranyj1 parents: 1557 diff changeset	1551	!UserPreferences methodsFor:'accessing-java'!
1557 e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1552
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1553	javaSourcePath
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1554	"Return the Java user-defined source path encoded as literal array"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1555
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1556	^ self at:#javaSourcePath ifAbsent:[#()].
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1557
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1558	"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1559	UserPreferences current javaSourcePath
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1560	UserPreferences current javaSourcePath: #openJDK7
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1561
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1562	Java sourcePath
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1563	"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1564
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1565	"Created: / 27-07-2012 / 12:54:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1566	! !
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1567
1570 e6b2fd21ba17 - JavaClassRegistry vranyj1 parents: 1557 diff changeset	1568	!UserPreferences methodsFor:'accessing-java'!
1557 e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1569
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1570	javaSourcePath: literalArrayEncoding
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1571	"Sets the Java user-defined source path as literalArrayEncoding of a collection
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1572	of JavaPathElements"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1573
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1574	self at:#javaSourcePath put: literalArrayEncoding.
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1575	(Java notNil and:[thisContext sender receiver == Java]) ifFalse:[
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1576	\| classPath \|
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1577	classPath := literalArrayEncoding decodeAsLiteralArray.
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1578	Java sourceDirectories: classPath.
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1579	].
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1580
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1581
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1582	"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1583	UserPreferences current javaClassPath
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1584	UserPreferences current javaClassPath: #openJDK7
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1585
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1586	Java sourceDirectories
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1587	"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1588
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1589	"Created: / 27-07-2012 / 12:54:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1590	! !
e47ce26d5734 JavaRelease vranyj1 parents: 1532 diff changeset	1591
1588 b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1592	!UserPreferences methodsFor:'accessing-java'!
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1593
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1594	javaSourcePathDecoded
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1595	"Return the Java user-defined source path (a collection of JavaPathElement)"
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1596
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1597	^ self javaSourcePath decodeAsLiteralArray
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1598
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1599	"
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1600	UserPreferences current javaSourcePathDecoded
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1601	UserPreferences current javaSourcePath
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1602
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1603	Java sourceDirectories
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1604	"
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1605
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1606	"Created: / 02-08-2012 / 09:44:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1607	! !
b01c1a55490d - stx_libjava vranyj1 parents: 1581 diff changeset	1608
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1609	!UserPreferences methodsFor:'accessing-java-devel'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1610
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1611	javaTestsDirectory
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1612	^ self at: #javaTestsDirectory
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1613	ifAbsent:
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1614	[ \| nm \|
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1615
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1616	nm := OperatingSystem getLoginName.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1617	"Default path for Jan"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1618	(nm = 'jv' and:[OperatingSystem isUNIXlike])
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1619	ifTrue:
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1620	[ '/home/jv/Projects/libjava/sources/libjava/branches/jk_new_structure/tests' ]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1621	ifFalse:
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1622	[ "Default path for Jan (the other one :-)"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1623	nm = 'jk'
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1624	ifTrue: [ 'path for Jan' ]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1625	ifFalse:
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1626	[ "Default path for Marcel"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1627	nm = 'm'
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1628	ifTrue: [ '/home/m/Projects/libjava/branches/jk_new_structure/tests' ]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1629	ifFalse:
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1630	[ \| "Look into package dir" p \|
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1631
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1632	(p := (Smalltalk getPackageDirectoryForPackage: 'stx:libjava') asFilename
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1633	/ 'tests') exists
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1634	ifTrue: [ p pathName ]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1635	ifFalse:
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1636	[ \| "Try the environment variable (used by Hudson)" p \|
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1637
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1638	(p := OperatingSystem getEnvironment: 'LIBJAVA_TESTS') notNil
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1639	ifTrue: [ p ]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1640	ifFalse:
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1641	[ "No default, trigger an error"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1642	self error: 'No tests path specified' ] ] ] ] ] ]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1643
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1644	"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1645	UserPreferences current javaTestsDirectory"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1646
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1647	"Created: / 07-05-2011 / 17:43:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1648	"Modified: / 07-05-2011 / 20:21:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1649	"Modified: / 12-05-2011 / 15:54:39 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1650	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1651
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1652	!UserPreferences methodsFor:'accessing-java-devel'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1653
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1654	javaTestsDirectory: aStringOrFilename
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1655
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1656	self at:#javaTestsDirectory put: aStringOrFilename asString.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1657
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1658	"Created: / 07-05-2011 / 17:45:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1659	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1660
826 db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	1661	!WordArray class methodsFor:'testing'!
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	1662
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	1663	isInterface
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	1664
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	1665	^false
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	1666	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1667
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1668	!WordArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1669
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1670	isJavaArrayClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1671
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1672	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1673
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1674	"Created: / 20-12-2010 / 22:47:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1675	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1676
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1677	!WordArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1678
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1679	isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1680
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1681	"Java arrays are reference types"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1682	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1683
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1684	"Created: / 20-12-2010 / 22:30:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1685	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1686
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1687	!WordArray class methodsFor:'accessing-java'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1688
905 d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1689	javaArrayClass
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1690
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1691	^JavaArray javaArrayClassFor: WordArray
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1692
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1693	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1694	"Modified: / 10-08-2011 / 22:46:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1695	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1696
905 d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1697	!WordArray class methodsFor:'accessing-java'!
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1698
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1699	javaComponentClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1700
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1701	^JavaShort
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1702
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1703	"Created: / 20-12-2010 / 22:13:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1704	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1705
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1706	!WordArray class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1707
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1708	javaName
1225 30600ca8173c ok now we enabled permissions and groovy maybe does not work :/ hlopkmar parents: 1209 diff changeset	1709	^ '[S'.
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1710
1225 30600ca8173c ok now we enabled permissions and groovy maybe does not work :/ hlopkmar parents: 1209 diff changeset	1711	"Modified: / 06-12-2011 / 16:43:59 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1712	! !
1532 ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1713
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1714	!WrappedMethod methodsFor:'accessing'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1715
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1716	descriptor
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1717	"Returns descriptor object (for wrapped Java methods)"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1718
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1719	\| orig \|
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1720	orig := self originalMethod.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1721	^(orig respondsTo: #descriptor) ifTrue:[
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1722	orig descriptor
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1723	] ifFalse:[
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1724	self doesNotUnderstand: (Message selector: #descriptor)
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1725	]
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1726
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1727	"Created: / 16-12-2011 / 20:03:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1728	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1729
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1730	!WrappedMethod methodsFor:'queries'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1731
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1732	isAbstract
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1733
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1734	^self originalMethod isAbstract.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1735
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1736	"Created: / 04-12-2011 / 11:24:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1737	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1738
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1739	!ZipArchive methodsFor:'reading - java support'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1740
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1741	nextBytes: bytesToRead of: zmember startingAt: pos into: b startingAt: off
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1742
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1743	file position0Based: zmember fileStart + startOfArchive + pos.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1744	^ file nextBytes: bytesToRead into: b startingAt: off.
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1745
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1746	"Created: / 01-05-2011 / 16:21:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1747	! !
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1748
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1749	!stx_libjava class methodsFor:'documentation'!
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1750
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1751	extensionsVersion_SVN
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1752	^ '$Id:: $'
ae63ecbd509e updating two failing tests in JavaClassRefTests hlopkmar parents: 1529 diff changeset	1753	! !

author	vranyj1
	Fri, 10 Aug 2012 15:10:40 +0000
branch	jk_new_structure
changeset 1588	b01c1a55490d
parent 1581	70fbc03d2d82
child 1598	67d1b6811a57
permissions	-rw-r--r--