hg/stx-libjava: extensions.st@36b5b06398b5 (annotated)

2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1	"{ Package: 'stx:libjava' }"!
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	3	!Behavior methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	4
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	5	isInterface
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	6	"return true, if the receiver is a Java interface"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	7
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	8	^ false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	9
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	10	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	11	True isInterface
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	12	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	13
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	14	"Created: / 22-02-2012 / 21:53:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	15	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	16
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	17	!Behavior methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	18
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	19	isJavaPrimitiveType
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	20
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	21	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	22
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	23	"Created: / 20-12-2010 / 21:52:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	24	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	25
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	26	!Boolean class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	27
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	28	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	29
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	30	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	31
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	32	"Created: / 25-02-2011 / 08:22:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	33	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	34
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	35	!Boolean class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	36
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	37	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	38	^ BooleanArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	39
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	40	"Created: / 25-02-2011 / 08:27:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	41	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	42
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	43	!Boolean class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	44
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	45	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	46	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	47
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	48	wrapper := (JavaVM classForName: 'java.lang.Boolean') new.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	49	wrapper perform: #'<init>(Z)V' with: anObject.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	50	^ wrapper
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	51
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	52	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	53	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	54
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	55	!Boolean class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	56
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	57	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	58
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	59	^'boolean'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	60
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	61	"Modified: / 25-02-2011 / 18:58:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	62	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	63
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	64	!Boolean class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	65
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	66	javaUnbox: object onError: errorBlock
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	67
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	68	\| value \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	69
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	70	(object class binaryName = 'java/lang/Boolean') ifFalse:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	71	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	72	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	73	value := object instVarNamed: #value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	74	(value ~~ 0 and:[value ~~ 1]) ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	75	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	76	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	77	^value
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	78
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	79	"Created: / 22-11-2011 / 11:52:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	80	"Modified: / 08-10-2013 / 22:41:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	81	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	82
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	83	!Boolean class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	84
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	85	javaUnwrap: zeroOrOne
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	86
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	87	^zeroOrOne == 1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	88
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	89	"Created: / 10-12-2011 / 20:00:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	90	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	91
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	92	!Boolean class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	93
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	94	javaWrap: boolean
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	95
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	96	^boolean ifTrue:[1] ifFalse:[0].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	97
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	98	"Created: / 18-03-2012 / 22:03:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	99	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	100
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	101	!Boolean class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	102
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	103	javaWrapRequired
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	104	^true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	105
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	106	"Created: / 29-11-2012 / 23:02:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	107	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	108
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	109	!Boolean class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	110
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	111	javaWrapperClass
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	112	^(JavaVM classForName: 'java.lang.Boolean')
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	113
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	114	"Created: / 24-02-2012 / 19:43:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	115	"Modified: / 07-05-2013 / 11:21:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	116	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	117
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	118	!BooleanArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	119
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	120	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	121	^self basicSize
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	122
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	123	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	124	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	125
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	126	!BooleanArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	127
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	128	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	129	^cls == BooleanArray ifTrue:[self] ifFalse:[JavaVM throwClassCastException]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	130
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	131	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	132	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	133
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	134	!BooleanArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	135
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	136	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	137	^BooleanArray == cls ifTrue:[1] ifFalse:[0]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	138
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	139	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	140	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	141
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	142	!BooleanArray methodsFor:'queries'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	143
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	144	isInterface
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	145
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	146	^false
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	147
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	148	"Created: / 31-05-2011 / 16:07:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	149	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	150
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	151	!BooleanArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	152
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	153	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	154
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	155	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	156	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	157
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	158	!BooleanArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	159
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	160	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	161
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	162	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	163
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	164	"Created: / 20-12-2010 / 22:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	165	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	166
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	167	!BooleanArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	168
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	169	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	170
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	171	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	172	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	173
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	174	"Created: / 20-12-2010 / 22:30:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	175	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	176
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	177	!BooleanArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	178
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	179	javaArrayClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	180	^ JavaArray javaArrayClassFor: self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	181
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	182	"Created: / 06-12-2011 / 17:29:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	183	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	184
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	185	!BooleanArray class methodsFor:'accessing-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	186
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	187	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	188
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	189	^Boolean
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	190
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	191	"Created: / 20-12-2010 / 22:13:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	192	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	193
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	194	!BooleanArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	195
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	196	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	197
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	198	^'[Z'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	199
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	200	"Modified: / 31-08-2011 / 23:57:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	201	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	202
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	203	!ByteArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	204
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	205	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	206	^self basicSize
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	207
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	208	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	209	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	210
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	211	!ByteArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	212
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	213	_CHECKCAST: cls
2974 36b5b06398b5 Fix in ByteArray>>_CHECKCAST:/_INSTANCEOF: (typo/copy paste error) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2965 diff changeset	214	^cls == ByteArray ifTrue:[self] ifFalse:[JavaVM throwClassCastException]
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	215
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	216	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	217	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	218
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	219	!ByteArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	220
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	221	_INSTANCEOF: cls
2974 36b5b06398b5 Fix in ByteArray>>_CHECKCAST:/_INSTANCEOF: (typo/copy paste error) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2965 diff changeset	222	^ByteArray == cls ifTrue:[1] ifFalse:[0]
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	223
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	224	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	225	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	226
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	227	!ByteArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	228
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	229	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	230
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	231	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	232	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	233
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	234	!ByteArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	235
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	236	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	237
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	238	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	239
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	240	"Created: / 05-02-2011 / 22:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	241	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	242
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	243	!ByteArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	244
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	245	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	246
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	247	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	248	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	249
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	250	"Created: / 20-12-2010 / 22:30:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	251	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	252
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	253	!ByteArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	254
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	255	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	256
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	257	^JavaArray javaArrayClassFor: self
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	258
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	259	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	260	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	261
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	262	!ByteArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	263
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	264	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	265
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	266	^JavaByte
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	267
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	268	"Created: / 20-12-2010 / 22:05:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	269	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	270
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	271	!ByteArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	272
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	273	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	274
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	275	^'[B'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	276
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	277	"Modified: / 25-02-2011 / 19:02:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	278	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	279
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	280	!Character class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	281
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	282	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	283
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	284	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	285
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	286	"Created: / 20-12-2010 / 22:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	287	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	288
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	289	!Character class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	290
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	291	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	292	^ String
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	293
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	294	"Created: / 11-02-2011 / 10:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	295	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	296
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	297	!Character class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	298
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	299	javaBox: anObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	300	\| wrapper \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	301
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	302	wrapper := (JavaVM classForName: 'java.lang.Character') new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	303	wrapper perform: #'<init>(C)V' with: anObject codePoint.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	304	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	305
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	306	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	307	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	308
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	309	!Character class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	310
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	311	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	312
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	313	^'char'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	314
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	315	"Modified: / 25-02-2011 / 18:58:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	316	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	317
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	318	!Character class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	319
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	320	javaUnbox: object onError: errorBlock
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	321
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	322	\| value \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	323
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	324	(object class binaryName = 'java/lang/Character') ifFalse:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	325	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	326	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	327	value := object instVarNamed: #value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	328	(value between: 0 and: 255) ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	329	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	330	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	331	^value
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	332
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	333	"Created: / 22-11-2011 / 11:52:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	334	"Modified: / 08-10-2013 / 22:41:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	335	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	336
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	337	!Character class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	338
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	339	javaWrapperClass
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	340	^(JavaVM classForName: 'java.lang.Character')
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	341
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	342	"Created: / 24-02-2012 / 19:42:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	343	"Modified: / 07-05-2013 / 11:21:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	344	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	345
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	346	!CharacterArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	347
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	348	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	349	^self basicSize
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	350
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	351	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	352	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	353
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	354	!CharacterArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	355
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	356	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	357	cls == Unicode16String ifTrue:[^self].
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	358	cls == String ifTrue:[^self].
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	359	^JavaVM throwClassCastException.
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	360
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	361
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	362	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	363	"Modified: / 14-05-2013 / 11:10:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	364	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	365
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	366	!CharacterArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	367
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	368	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	369	cls == Unicode16String ifTrue:[^1].
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	370	cls == String ifTrue:[^1].
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	371	^0
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	372
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	373	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	374	"Modified: / 14-05-2013 / 11:10:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	375	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	376
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	377	!CharacterArray methodsFor:'java conversions'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	378
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	379	asDottedJavaClassName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	380
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	381	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	382	examples:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	383	java.lang.String
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	384	[[[Ljava/lang/Object; => java.lang.Object
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	385	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	386
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	387
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	388	\| nm \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	389	nm := self asJavaComponentClassName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	390	(nm startsWith: $L) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	391	nm := nm copyFrom: 2 to: nm size - 1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	392	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	393	(nm includes: $/) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	394	nm := nm asString copyReplaceAll: $/ with: $.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	395	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	396	^ nm.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	397
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	398	"Created: / 21-10-2011 / 12:31:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	399	"Created: / 30-10-2011 / 17:41:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	400	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	401
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	402	!CharacterArray methodsFor:'java conversions'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	403
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	404	asJavaComponentClassName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	405	\| componentClassName \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	406
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	407	componentClassName := self utf8Encoded.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	408	(componentClassName matches: '\[') ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	409	componentClassName := componentClassName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	410	copyFrom: (componentClassName lastIndexOf: $[) + 1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	411	to: componentClassName size.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	412	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	413	^ componentClassName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	414	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	415
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	416	!CharacterArray methodsFor:'java conversions'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	417
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	418	asNiceJavaClassName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	419	\| niceName \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	420
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	421	niceName := self asJavaComponentClassName asSTXInternalJavaClassName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	422	(self occurrencesOf: $[) timesRepeat: [ niceName := niceName , '[]' ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	423	niceName := niceName asString copyReplaceAll: $/ with: $..
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	424	^ niceName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	425	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	426
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	427	!CharacterArray methodsFor:'java conversions'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	428
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	429	asSTXInternalJavaClassName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	430	\| internalName \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	431
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	432	internalName := self asJavaComponentClassName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	433	(internalName startsWith: $L) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	434	internalName := internalName copyFrom: 2 to: internalName size - 1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	435	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	436	(internalName includes: $.) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	437	internalName := internalName asString copyReplaceAll: $. with: $/
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	438	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	439	^internalName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	440	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	441
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	442	!CharacterArray methodsFor:'java conversions'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	443
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	444	asSlashedJavaClassName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	445	"removes square brackets and adds slashes"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	446	\| internalName \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	447	internalName := self asJavaComponentClassName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	448	(internalName startsWith: $L) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	449	internalName := internalName copyFrom: 2 to: internalName size - 1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	450	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	451	(internalName includes: $.) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	452	internalName := internalName asString copyReplaceAll: $. with: $/
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	453	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	454	^ internalName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	455
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	456	"Created: / 21-10-2011 / 12:31:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	457	"Created: / 30-10-2011 / 17:40:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	458	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	459
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	460	!CharacterArray methodsFor:'java queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	461
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	462	isJavaArrayDescriptor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	463	^ self startsWith:$[.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	464	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	465
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	466	!CharacterArray methodsFor:'java queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	467
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	468	isJavaPrimitiveTypeDescriptor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	469	^ (self size = 1 and: [ JavaDescriptor baseTypes includesKey: self first ]).
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	470	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	471
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	472	!CharacterArray methodsFor:'special string converting'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	473
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	474	withoutSuffix: aString
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	475	"if the receiver endsWith aString, return a copy without it.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	476	Otherwise return the receiver"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	477
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	478	(self endsWith: aString) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	479	^ self copyFrom: 1 to: self size - aString size
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	480	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	481	^ self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	482
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	483	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	484	'helloworld' withoutSuffix:'world'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	485	'helloworld' withoutSuffix:'foo'"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	486
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	487	"Created: / 08-12-2012 / 20:26:27 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	488	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	489
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	490	!CharacterArray class methodsFor:'encoding & decoding'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	491
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	492	decodeFromJavaUTF8: bytes
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	493	"Decodes a string from modified UTF8 encoding
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	494	as used in Java .class files. see
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	495	'The class file format specification', section 4.5.7"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	496
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	497	\| string i s b codePoint realLength \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	498
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	499	string := String new: bytes size.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	500	realLength := bytes size.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	501	s := bytes readStream.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	502	i := 1.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	503	[ s atEnd ] whileFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	504	[ b := s next.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	505	(b & 2r10000000) == 0
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	506	ifTrue: [ codePoint := b ]
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	507	ifFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	508	[ self assert: (b & 2r01000000) = 2r01000000.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	509	(b & 2r00100000) = 0
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	510	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	511	[ "two byte utf char"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	512	realLength := realLength - 1.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	513	self assert: s size > 0.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	514	self assert: (b & 2r01000000) = 2r01000000.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	515	string bitsPerCharacter < 16
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	516	ifTrue: [ string := Unicode16String fromString: string ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	517	codePoint := (b & 2r00011111) << 6.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	518	b := s next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	519	self assert: (b & 2r11000000) = 2r10000000.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	520	codePoint := codePoint + (b & 2r00111111). ]
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	521	ifFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	522	[ "at lease 3 byte utf char"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	523	realLength := realLength - 2.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	524	string bitsPerCharacter < 16"was: 32"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	525	ifTrue: [ string := Unicode16String"was: Unicode32String" fromString: string ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	526	self assert: s size > 1.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	527	(b & 2r00010000) = 0
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	528	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	529	[ \| utf32Possible utf32Value \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	530
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	531	"3 or 6 byte utf char"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	532	self assert: s size > 1.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	533	s size < 5
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	534	ifTrue: [ utf32Possible := false ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	535	ifFalse: [ utf32Possible := true ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	536	b ~= 2r11101101 ifTrue: [ utf32Possible := false ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	537	codePoint := (b & 2r00001111) << 12.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	538	b := s next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	539	self assert: (b & 2r11000000) = 2r10000000.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	540	((b & 2r11110000) = 2r10100000 and: [ utf32Possible ])
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	541	ifTrue: [ utf32Value := 2r00010000 + ((b & 2r00001111) << 16) ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	542	ifFalse: [ utf32Possible := false ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	543	codePoint := codePoint + ((b & 2r00111111) << 6).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	544	b := s next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	545	self assert: (b & 2r11000000) = 2r10000000.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	546	utf32Possible
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	547	ifTrue: [ utf32Value := utf32Value + ((b & 2r00111111) << 10) ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	548	codePoint := codePoint + (b & 2r00111111).
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	549	utf32Possible
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	550	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	551	[ \| tmpB \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	552
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	553	string bitsPerCharacter < 32
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	554	ifTrue: [ string := Unicode32String fromString: string ].
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	555	tmpB := s copy.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	556	b := tmpB next.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	557	b = 2r11101101
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	558	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	559	[ b := tmpB next.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	560	(b & 2r11110000) = 2r10110000
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	561	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	562	[ utf32Value := utf32Value + ((b & 2r00001111) << 6).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	563	b := tmpB next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	564	self assert: (b & 2r11000000) = 2r10000000.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	565	utf32Value := utf32Value + (b & 2r00111111).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	566	codePoint := utf32Value.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	567	realLength := realLength - 3. s position: tmpB position.] ] ] ]
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	568	ifFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	569	[ "should not happen, ask mh"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	570	self halt. ] ] ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	571	string at: i put: (Character codePoint: codePoint).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	572	i := i + 1. ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	573	^ string subString: 1 to: realLength.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	574
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	575	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	576	String decodeFromJavaUTF8: 'Hello world' asByteArray"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	577
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	578	"Created: / 22-12-2010 / 23:45:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	579	"Modified: / 09-02-2011 / 01:12:25 / Marcel Hlopko <hlopik@gmail.com>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	580	"Modified: / 13-03-2011 / 15:52:36 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	581	"Modified: / 09-12-2011 / 19:49:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	582	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	583
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	584	!CharacterArray class methodsFor:'instance creation'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	585
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	586	fromJavaUTF8Bytes:aByteCollection
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	587	"return a new string which represents the characters as decoded
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	588	from the modified utf8 encoded bytes as specified in
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	589	The class file format specification, section 4.5.7"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	590
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	591	^ self decodeFromJavaUTF8:aByteCollection.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	592
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	593	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	594	CharacterArray fromUTF8Bytes:#[ 16r41 16r42 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	595	CharacterArray fromUTF8Bytes:#[ 16rC1 16r02 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	596	CharacterArray fromUTF8Bytes:#[ 16rE0 16r81 16r02 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	597	CharacterArray fromUTF8Bytes:#[ 16rEF 16rBF 16rBF ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	598
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	599	rfc2279 examples:
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	600	CharacterArray fromUTF8Bytes:#[ 16r41 16rE2 16r89 16rA2 16rCE 16r91 16r2E ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	601	CharacterArray fromUTF8Bytes:#[ 16rED 16r95 16r9C 16rEA 16rB5 16rAD 16rEC 16r96 16rB4 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	602	CharacterArray fromUTF8Bytes:#[ 16rE6 16r97 16rA5 16rE6 16r9C 16rAC 16rE8 16rAA 16r9E ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	603
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	604	invalid:
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	605	CharacterArray fromUTF8Bytes:#[ 16rC0 16r80 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	606	CharacterArray fromUTF8Bytes:#[ 16rE0 16r80 16r80 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	607	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	608
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	609	"Created: / 23-12-2010 / 09:01:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	610	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	611
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	612	!CharacterArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	613
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	614	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	615
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	616	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	617
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	618	"Created: / 05-02-2011 / 22:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	619	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	620
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	621	!CharacterArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	622
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	623	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	624
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	625	^JavaArray javaArrayClassFor: Unicode16String
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	626
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	627	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	628	"Modified: / 10-08-2011 / 13:18:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	629	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	630
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	631	!CharacterArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	632
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	633	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	634
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	635	^Character
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	636
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	637	"Created: / 20-12-2010 / 22:05:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	638	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	639
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	640	!Class methodsFor:'accessing - java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	641
2942 c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	642	binaryName
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	643	"Returns Java binary name for this class."
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	644
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	645	^ 'SMALLTALK/' , self name
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	646
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	647	"Created: / 20-11-2013 / 15:55:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	648	! !
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	649
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	650	!Class methodsFor:'accessing - java'!
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	651
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	652	classLoader
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	653	JavaVM smalltalkClassLoader
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	654
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	655	"Created: / 22-08-2012 / 13:00:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	656	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	657
2942 c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	658	!Class methodsFor:'queries'!
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	659
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	660	isSynthetic
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	661	^ false "/ Smalltalk classes are not synthetic...
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	662
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	663	"Created: / 20-11-2013 / 16:03:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	664	! !
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	665
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	666	!Class methodsFor:'accessing - java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	667
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	668	javaMirror
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	669	^self javaMirrorClass forClass: self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	670
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	671	"Created: / 31-07-2012 / 17:39:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	672	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	673
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	674	!Class methodsFor:'accessing - java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	675
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	676	javaMirrorClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	677	"Returns a Java mirror class to be used by Java reflection"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	678
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	679	self isJavaPrimitiveType ifTrue:[ ^ JavaMirror mirrorClassForJavaPrimitive ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	680	self isJavaArrayClass ifTrue:[ ^ JavaMirror mirrorClassForJavaArray ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	681	^JavaMirror mirrorClassForAlienClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	682
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	683	"Created: / 31-07-2012 / 17:39:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	684	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	685
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	686	!Class methodsFor:'accessing - java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	687
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	688	lookupMethodByNameAndType: nameAndType
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	689	\| descriptor selector \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	690
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	691	descriptor := JavaMethodDescriptor fromString: (nameAndType descriptor).
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	692	selector := nameAndType name copyReplaceAll: $_ with: $:.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	693	descriptor numArgs > 0 ifTrue:[selector := selector , ':'].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	694	selector := selector asSymbol.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	695
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	696	^self lookupMethodFor: selector
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	697
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	698	"Created: / 22-08-2012 / 13:11:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	699	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	700
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	701	!ConfigurableFeatures class methodsFor:'queries-features'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	702
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	703	hasJavaSupport
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	704	"/ use Smalltalk-at to trick the dependency/prerequisite generator
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	705	^ (Smalltalk at: #'JavaVM' ifAbsent:nil) notNil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	706
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	707	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	708	ConfigurableFeatures hasJavaSupport
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	709	ConfigurableFeatures includesFeature:#JavaSupport
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	710	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	711
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	712	"Created: / 03-01-2012 / 15:36:03 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	713	"Created: / 18-02-2012 / 16:42:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	714	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	715
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	716	!Context methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	717
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	718	arg1Index
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	719	^1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	720
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	721	"Created: / 31-01-2013 / 13:29:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	722	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	723
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	724	!Delay methodsFor:'delaying'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	725
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	726	waitWithState:state
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	727	"suspend the current process until either the relative time delta
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	728	has passed (if millisecondDelta is non-nil), or the absolute millisecondTime
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	729	has been reached (if resumptionTime non-nil)."
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	730
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	731	Processor activeProcess state:state.
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	732	self wait.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	733
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	734	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	735	Transcript showCR:'1'.
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	736	(Delay forSeconds:10) waitWithState:#sleep.
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	737	Transcript showCR:'2'.
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	738	"
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	739
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	740	"Modified: / 18-04-1997 / 11:56:46 / stefan"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	741	"Created: / 30-11-2011 / 13:38:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	742	"Modified: / 25-07-2013 / 11:33:41 / exept"
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	743	"Modified: / 25-07-2013 / 11:34:54 / cg"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	744	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	745
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	746	!DoubleArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	747
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	748	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	749	^self basicSize
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	750
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	751	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	752	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	753
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	754	!DoubleArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	755
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	756	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	757	^cls == DoubleArray ifTrue:[self] ifFalse:[JavaVM throwClassCastException]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	758
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	759	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	760	"Modified: / 14-05-2013 / 11:11:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	761	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	762
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	763	!DoubleArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	764
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	765	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	766	^DoubleArray == cls ifTrue:[1] ifFalse:[0]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	767
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	768	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	769	"Modified: / 14-05-2013 / 11:11:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	770	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	771
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	772	!DoubleArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	773
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	774	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	775
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	776	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	777	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	778
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	779	!DoubleArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	780
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	781	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	782
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	783	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	784
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	785	"Created: / 20-12-2010 / 22:47:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	786	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	787
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	788	!DoubleArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	789
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	790	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	791
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	792	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	793	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	794
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	795	"Created: / 20-12-2010 / 22:30:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	796	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	797
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	798	!DoubleArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	799
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	800	javaArrayClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	801	^ JavaArray javaArrayClassFor: self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	802
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	803	"Created: / 06-12-2011 / 17:28:26 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	804	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	805
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	806	!DoubleArray class methodsFor:'accessing-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	807
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	808	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	809
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	810	^Float
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	811
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	812	"Created: / 20-12-2010 / 22:06:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	813	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	814
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	815	!DoubleArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	816
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	817	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	818
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	819	^'[D'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	820
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	821	"Modified: / 25-02-2011 / 19:03:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	822	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	823
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	824	!ExecutableFunction methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	825
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	826	isJavaConstructor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	827	^ false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	828
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	829	"Created: / 31-07-2012 / 18:42:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	830	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	831
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	832	!ExecutableFunction methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	833
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	834	isProxyMethod
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	835	"return true, if the receiver is a proxy method.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	836	false is returned here, true is returned in ProxyMethod."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	837
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	838	^ false.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	839
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	840	"Created: / 16-12-2012 / 13:35:41 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	841	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	842
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	843	!Float class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	844
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	845	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	846
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	847	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	848
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	849	"Created: / 06-02-2011 / 17:21:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	850	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	851
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	852	!Float class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	853
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	854	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	855	^ DoubleArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	856
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	857	"Created: / 11-02-2011 / 10:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	858	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	859
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	860	!Float class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	861
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	862	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	863	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	864
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	865	wrapper := (JavaVM classForName: 'java.lang.Double') new.
2918 e2fc5ead5542 Fix in Float/LargeInteger>>javaBox: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2907 diff changeset	866	wrapper perform: #'<init>(D)V' with: anObject with: nil.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	867	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	868
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	869	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2918 e2fc5ead5542 Fix in Float/LargeInteger>>javaBox: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2907 diff changeset	870	"Modified: / 14-11-2013 / 01:21:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	871	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	872
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	873	!Float class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	874
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	875	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	876
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	877	^'double'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	878
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	879	"Modified: / 25-02-2011 / 18:59:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	880	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	881
2442 037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	882	!Float class methodsFor:'autoboxing support'!
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	883
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	884	javaUnbox: object onError: errorBlock
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	885
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	886	\| value \|
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	887
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	888	(object class binaryName = 'java/lang/Double') ifFalse:[
2442 037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	889	errorBlock value.
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	890	].
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	891	value := object instVarNamed: #value.
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	892	^value
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	893
6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	894	"Modified: / 08-10-2013 / 22:41:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2442 037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	895	! !
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	896
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	897	!Float class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	898
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	899	javaWrapperClass
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	900	^(JavaVM classForName: 'java.lang.Double')
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	901
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	902	"Created: / 24-02-2012 / 19:42:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	903	"Modified: / 07-05-2013 / 11:21:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	904	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	905
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	906	!FloatArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	907
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	908	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	909	^self basicSize
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	910
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	911	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	912	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	913
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	914	!FloatArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	915
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	916	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	917	^cls == FloatArray ifTrue:[self] ifFalse:[JavaVM throwClassCastException]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	918
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	919	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	920	"Modified: / 14-05-2013 / 11:11:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	921	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	922
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	923	!FloatArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	924
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	925	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	926	^FloatArray == cls ifTrue:[1] ifFalse:[0]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	927
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	928	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	929	"Modified: / 14-05-2013 / 11:11:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	930	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	931
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	932	!FloatArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	933
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	934	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	935
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	936	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	937	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	938
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	939	!FloatArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	940
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	941	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	942
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	943	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	944
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	945	"Created: / 20-12-2010 / 22:47:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	946	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	947
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	948	!FloatArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	949
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	950	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	951
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	952	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	953	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	954
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	955	"Created: / 20-12-2010 / 22:30:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	956	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	957
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	958	!FloatArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	959
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	960	javaArrayClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	961	^ JavaArray javaArrayClassFor: self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	962
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	963	"Created: / 06-12-2011 / 17:29:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	964	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	965
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	966	!FloatArray class methodsFor:'accessing-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	967
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	968	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	969
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	970	^ShortFloat
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	971
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	972	"Created: / 20-12-2010 / 22:06:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	973	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	974
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	975	!FloatArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	976
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	977	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	978
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	979	^'[F'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	980
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	981	"Modified: / 25-02-2011 / 19:03:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	982	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	983
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	984	!Integer class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	985
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	986	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	987
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	988	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	989
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	990	"Created: / 11-02-2011 / 11:12:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	991	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	992
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	993	!Integer class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	994
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	995	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	996	^ SignedIntegerArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	997
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	998	"Created: / 11-02-2011 / 10:51:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	999	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1000
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1001	!Integer class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1002
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1003	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1004	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1005
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1006	wrapper := (JavaVM classForName: 'java.lang.Integer') new.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1007	wrapper perform: #'<init>(I)V' with: anObject.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1008	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1009
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1010	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1011	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1012
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1013	!Integer class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1014
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1015	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1016
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1017	^'int'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1018
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1019	"Modified: / 25-02-2011 / 18:59:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1020	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1021
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1022	!Integer class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1023
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1024	javaUnbox: object onError: errorBlock
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1025
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1026	^self javaUnbox: object onError: errorBlock
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1027	min: "Integer.MIN_VALUE"-2147483648
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1028	max: "Integer.MAX_VALUE" 2147483647
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1029
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1030	"Created: / 25-11-2011 / 19:10:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1031	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1032
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1033	!Integer class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1034
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1035	javaUnbox: object onError: errorBlock min: min max: max
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1036
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1037	\| value \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1038
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1039	(#( 'java/lang/Byte'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1040	'java/lang/Short'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1041	'java/lang/Integer'
2907 503761e88b38 Fixes for Mauve tests. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2841 diff changeset	1042	"'java/lang/Long'" ) includes: object class binaryName) ifFalse:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1043	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1044	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1045
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1046	value := object instVarNamed:#value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1047	(value between: min and: max) ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1048	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1049	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1050	^value
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1051
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1052	"Created: / 22-11-2011 / 11:43:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2907 503761e88b38 Fixes for Mauve tests. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2841 diff changeset	1053	"Modified: / 08-11-2013 / 00:02:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1054	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1055
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1056	!Integer class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1057
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1058	javaWrapperClass
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	1059	^(JavaVM classForName: 'java.lang.Integer')
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1060
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1061	"Created: / 24-02-2012 / 19:41:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	1062	"Modified: / 07-05-2013 / 11:21:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1063	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1064
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1065	!LargeInteger class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1066
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1067	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1068
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1069	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1070
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1071	"Created: / 04-02-2011 / 11:55:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1072	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1073
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1074	!LargeInteger class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1075
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1076	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1077	^ SignedLongIntegerArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1078
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1079	"Created: / 11-02-2011 / 10:51:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1080	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1081
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1082	!LargeInteger class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1083
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1084	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1085	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1086
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1087	wrapper := (JavaVM classForName: 'java.lang.Long') new.
2918 e2fc5ead5542 Fix in Float/LargeInteger>>javaBox: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2907 diff changeset	1088	wrapper perform: #'<init>(J)V' with: anObject with: nil.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1089	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1090
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1091	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2918 e2fc5ead5542 Fix in Float/LargeInteger>>javaBox: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2907 diff changeset	1092	"Modified: / 14-11-2013 / 01:21:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1093	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1094
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1095	!LargeInteger class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1096
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1097	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1098
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1099	^'long'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1100
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1101	"Modified: / 25-02-2011 / 18:59:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1102	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1103
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1104	!LargeInteger class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1105
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1106	javaUnbox: object onError: errorBlock
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1107
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1108	\| value \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1109
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1110	(object class binaryName = 'java/lang/Long') ifFalse:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1111	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1112	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1113
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1114	value := object instVarNamed:#value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1115	(value between: "Integer.MIN_VALUE"-9223372036854775808 and: "Integer.MAX_VALUE" 9223372036854775807) ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1116	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1117	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1118	^value
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1119
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1120	"Created: / 22-11-2011 / 11:45:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1121	"Modified: / 08-10-2013 / 22:42:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1122	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1123
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1124	!LargeInteger class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1125
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1126	javaWrapperClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1127	^(Java classForName: 'java.lang.Long')
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1128
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1129	"Created: / 24-02-2012 / 19:42:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1130	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1131
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1132	!Method methodsFor:'queries-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1133
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1134	isAbstract
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1135	"For compatibility with Java methods"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1136
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1137	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1138
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1139	"Created: / 22-08-2012 / 13:19:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1140	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1141
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1142	!Method methodsFor:'queries-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1143
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1144	isStatic
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1145	"For compatibility with Java methods"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1146
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1147	^mclass notNil and:[mclass isMetaclass]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1148
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1149	"Created: / 22-08-2012 / 12:27:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1150	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1151
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1152	!Method methodsFor:'accessing-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1153
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1154	javaClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1155	"For compatibiliry with JavaMethod"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1156	^mclass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1157
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1158	"Created: / 22-08-2012 / 13:20:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1159	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1160
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1161	!Object methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1162
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1163	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1164	^JavaVM _ARRAYLENGTH: self
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1165
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1166	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1167	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1168
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1169	!Object methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1170
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1171	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1172	^JavaVM _CHECKCAST: self _: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1173
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1174	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1175	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1176
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1177	!Object methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1178
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1179	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1180	^JavaVM _INSTANCEOF: self _: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1181
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1182	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1183	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1184
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1185	!Object methodsFor:'accessing-Java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1186
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1187	getJavaLockWord
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1188	"Returns a Java lock word for given object. The returned
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1189	value is
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1190	- either SmallInteger that encodes the thinlock
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1191	- or a fat lock, instance of JavaMonitor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1192	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1193
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1194	"/For nonJava objects, always return fatlock
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1195
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1196	^self getJavaMonitor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1197
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1198	"Created: / 26-08-2012 / 14:03:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1199	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1200
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1201	!Object methodsFor:'accessing-Java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1202
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1203	getJavaMonitor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1204	"Returns fat JavaMonitor associated with the receiver"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1205
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1206	^JavaVM getJavaMonitorFor: self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1207
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1208	"Created: / 26-08-2012 / 18:35:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1209	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1210
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1211	!Object methodsFor:'testing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1212
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1213	isGroovyClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1214	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1215
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1216	"Created: / 18-02-2012 / 20:29:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1217	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1218
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1219	!Object methodsFor:'testing'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1220
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1221	isJavaArray
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1222
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1223	^self class isJavaArrayClass
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1224
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1225	"Created: / 19-12-2010 / 17:05:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1226	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1227
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1228	!Object methodsFor:'testing'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1229
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1230	isJavaNameAndType
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1231	"return true, if given object represents name and type struct in java constant pool"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1232
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1233	^ false.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1234
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1235	"Created: / 10-05-2011 / 12:21:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1236	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1237
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1238	!Object methodsFor:'testing'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1239
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1240	isJavaPackage
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1241	"return true, if the receiver is a java package.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1242	False is returned here - the method is only redefined in JavaPackage."
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1243
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1244	^ false
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1245
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1246	"Created: / 09-08-2011 / 09:35:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1247	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1248
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1249	!Object methodsFor:'testing'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1250
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1251	isJavaRef
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1252	"Return true, if given object represents reference in java constant pool"
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1253
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1254	^ false.
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1255
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1256	"Created: / 08-04-2011 / 16:12:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1257	"Modified (comment): / 30-08-2013 / 00:41:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1258	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1259
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1260	!Object methodsFor:'testing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1261
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1262	isJavaWrapperClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1263	"return true, if this is a java wrapper class, i.e, java.lang.Integer, java.lang.Boolean etc."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1264
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1265	^ false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1266
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1267	"Created: / 01-01-2012 / 17:25:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1268	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1269
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1270	!Object methodsFor:'testing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1271
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1272	isSocket
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1273	"return true, if the receiver is some kind of socket;
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1274	false returned here - the method is only redefined in Socket."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1275
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1276	^ false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1277
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1278	"Created: / 17-08-2012 / 15:32:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1279	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1280
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1281	!Object methodsFor:'autoboxing support'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1282
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1283	javaBox: anObject
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1284
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1285	^anObject
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1286
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1287	"Created: / 15-08-2011 / 10:52:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1288	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1289
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1290	!Object methodsFor:'autoboxing support'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1291
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1292	javaUnwrap: anObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1293	"Unwraps the objects. Possibly call on the wrapped class"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1294
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1295	^anObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1296
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1297	"Created: / 10-12-2011 / 19:51:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1298	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1299
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1300	!Object methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1301
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1302	javaUnwrapFrom: javaType
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1303	^ self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1304
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1305	"Created: / 10-12-2011 / 19:51:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1306	"Created: / 30-12-2011 / 15:22:06 / kursjan <kursjan@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1307	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1308
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1309	!Object methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1310
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1311	javaWrap: anObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1312	"Wraps the receiver into corresponding Java object"
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1313
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1314	^anObject
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1315
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1316	"Created: / 26-12-2011 / 00:57:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1317	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1318
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1319	!Object methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1320
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1321	javaWrapRequired
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1322	"Returns true, if a #javaWrap: has to be called
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1323	prior an instance of Smalltalk object is passed
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1324	as an argument to Java method, whoose formal tyoe
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1325	is the receiver.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1326
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1327	Example:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1328	Let's say the Java method is declared as
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1329
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1330	publid void setCount(int c) { ... }
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1331
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1332	and Smalltalk calls
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1333
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1334	obj setCount: 0
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1335
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1336	then 'Integer javaWrapRequired' should return false as there
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1337	is no need to wrap SmallInt as it represent java int values.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1338	(Integer is formal type of argument c.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1339
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1340	If the method is declared as:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1341
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1342	publid void setCount(java.lang.Integer c) { ... }
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1343
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1344	then 'java.lang.Integer javaWrapRequired' should return true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1345	as the integer value must be wrapped into an instance of
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1346	java.lang.Integer before it is passed to a Java method.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1347
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1348	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1349
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1350	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1351
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1352	"Created: / 05-11-2012 / 00:29:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1353	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1354
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1355	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1356
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1357	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1358
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1359	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1360
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1361	"Created: / 19-12-2010 / 17:05:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1362	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1363
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1364	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1365
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1366	isJavaClassType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1367
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1368	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1369
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1370	"Created: / 11-02-2011 / 08:08:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1371	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1372
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1373	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1374
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1375	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1376
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1377	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1378
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1379	"Created: / 20-12-2010 / 21:52:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1380	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1381
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1382	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1383
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1384	isJavaType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1385
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1386	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1387
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1388	"Created: / 20-12-2010 / 21:52:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1389	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1390
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1391	!Process methodsFor:'Java protocol'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1392
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1393	clearInterrupted
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1394	JavaVM clearInterrupted: self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1395
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1396	"Created: / 30-11-2011 / 10:44:26 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1397	"Modified: / 16-08-2012 / 22:03:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1398	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1399
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1400	!Process methodsFor:'Java protocol'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1401
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1402	isInterrupted
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1403
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1404	^ JavaVM isInterrupted: self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1405
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1406	"Created: / 30-11-2011 / 12:12:33 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1407	"Modified: / 16-08-2012 / 21:56:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1408	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1409
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1410	!Process methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1411
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1412	isParked
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1413	"return true, iff the receiver is parked (by means of sun.misc.Unsafe.park() )"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1414
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1415	^ (state == #parked)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1416
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1417	"Created: / 16-08-2012 / 22:13:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1418	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1419
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1420	!Process methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1421
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1422	isSleeping
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1423	"return true, iff the receiver is sleeping on Delay"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1424
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1425	^ (state == #sleep)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1426
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1427	"Created: / 30-11-2011 / 13:35:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1428	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1429
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1430	!Process methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1431
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1432	isWaiting
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1433	"return true, iff the receiver is waiting on semaphore or something"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1434
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1435	^ (state == #wait)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1436
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1437	"Created: / 20-11-2011 / 20:55:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1438	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1439
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1440	!Process methodsFor:'Java protocol'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1441
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1442	javaInterrupt
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1443	self isWaiting ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1444	self interruptWith: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1445	JavaVM throwInterruptedException: 'thread has been interrupted during wait'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1446	self terminate
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1447	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1448	^self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1449	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1450
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1451	self isSleeping ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1452	self interruptWith: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1453	JavaVM throwInterruptedException: 'thread has been interrupted during sleep'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1454	self terminate
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1455	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1456	^self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1457	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1458
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1459	self isParked ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1460	self setInterrupted.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1461	JavaVM unpark: self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1462	^self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1463	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1464
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1465	self setInterrupted
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1466
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1467	"Created: / 30-11-2011 / 13:35:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1468	"Modified: / 16-08-2012 / 22:14:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1469	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1470
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1471	!Process methodsFor:'Java protocol'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1472
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1473	setInterrupted
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1474
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1475	JavaVM setInterrupted: self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1476
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1477	"Created: / 30-11-2011 / 10:44:37 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1478	"Modified: / 16-08-2012 / 22:03:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1479	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1480
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1481	!ProgrammingLanguage methodsFor:'testing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1482
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1483	isGroovy
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1484	"true iff this is a Groovy language"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1485
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1486	^ false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1487
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1488	"Created: / 13-04-2012 / 17:47:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1489	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1490
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1491	!ProgrammingLanguage methodsFor:'testing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1492
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1493	isJavaLike
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1494	"true if receiver is kind of Java language (based on Java)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1495
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1496	^ false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1497
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1498	"Created: / 13-04-2012 / 17:48:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1499	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1500
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1501	!ProjectDefinition class methodsFor:'description - java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1502
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1503	javaBundle
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1504	"Defines a Java code bundle provided by this package.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1505	Used by STX:LIBJAVA"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1506
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1507	^nil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1508
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1509	"Created: / 15-01-2013 / 16:49:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1510	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1511
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1512	!ProjectDefinition class methodsFor:'description - java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1513
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1514	javaClassPath
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1515
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1516	"Defines a Java class path containing java classes/jars
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1517	required by this package"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1518
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1519	^#()
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1520
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1521	"Created: / 13-12-2011 / 23:48:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1522	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1523
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1524	!ProjectDefinition class methodsFor:'description - java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1525
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1526	javaSourcePath
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1527
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1528	"Defines paths to Java source files (for packages that
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1529	contains Java code"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1530	^#()
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1531
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1532	"Created: / 13-12-2011 / 23:49:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1533	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1534
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1535	!Semaphore methodsFor:'waiting'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1536
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1537	parkWithTimeoutMs:milliSeconds
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1538	"Same as #waitWithTimeoutMs: but sets the state to #parked.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1539
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1540	Stupid, that I have to copy-paste this method...
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1541	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1542
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1543	\|activeProcess timeoutOccured wasBlocked timeoutBlock now endTime\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1544
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1545	wasBlocked := OperatingSystem blockInterrupts.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1546
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1547	count <= 0 ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1548	"with zero-timeout, this is a poll"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1549	milliSeconds == 0 ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1550	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1551	^ nil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1552	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1553
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1554	activeProcess := Processor activeProcess.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1555	timeoutOccured := false.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1556
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1557	milliSeconds notNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1558	"Wait with timeout: calculate the end-time"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1559	now := OperatingSystem getMillisecondTime.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1560	endTime := OperatingSystem millisecondTimeAdd:now and:milliSeconds.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1561
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1562	timeoutBlock := [timeoutOccured := true. timeoutBlock:= nil. Processor resume:activeProcess].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1563	Processor addTimedBlock:timeoutBlock for:activeProcess atMilliseconds:endTime.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1564	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1565
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1566	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1567	need a while-loop here, since more than one process may
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1568	wait for it and another one may also wake up.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1569	Thus, the count is not always non-zero after returning from
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1570	suspend.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1571	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1572	[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1573	self addWaitingProcess:activeProcess.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1574
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1575	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1576	for some more descriptive info in processMonitor ...
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1577	... set the state to #wait (instead of #suspend)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1578	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1579	[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1580	"sleep until resumed..."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1581	activeProcess suspendWithState:#parked.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1582	] ifCurtailed:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1583	"interrupts are not blocked when entered through Processor>>#interruptActive"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1584	OperatingSystem blockInterrupts.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1585	timeoutBlock notNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1586	Processor removeTimedBlock:timeoutBlock.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1587	timeoutBlock := nil.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1588	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1589	self removeWaitingProcess:activeProcess.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1590	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1591	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1592
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1593	self removeWaitingProcess:activeProcess.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1594	timeoutOccured ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1595	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1596	^ nil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1597	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1598	] doUntil:[count > 0].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1599
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1600	timeoutBlock notNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1601	Processor removeTimedBlock:timeoutBlock.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1602	timeoutBlock := nil.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1603	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1604	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1605
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1606	"if we come here, we have accquired the semaphore"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1607	count := count - 1.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1608	count == 0 ifTrue:[
2639 453c3d9e8a94 class: Semaphore Stefan Vogel <sv@exept.de> parents: 2638 diff changeset	1609	activeProcess isNil ifTrue:[activeProcess := Processor activeProcess].
453c3d9e8a94 class: Semaphore Stefan Vogel <sv@exept.de> parents: 2638 diff changeset	1610	lastOwner := activeProcess.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1611	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1612	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1613	^ self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1614
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1615	"Created: / 16-08-2012 / 20:53:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1616	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1617
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1618	!Set methodsFor:'javaProtocol'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1619
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1620	java__contains:anObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1621	^ self contains: [:el \| anObject = el ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1622	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1623
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1624	!ShortFloat class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1625
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1626	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1627
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1628	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1629
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1630	"Created: / 06-02-2011 / 17:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1631	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1632
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1633	!ShortFloat class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1634
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1635	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1636	^ FloatArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1637
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1638	"Created: / 11-02-2011 / 10:50:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1639	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1640
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1641	!ShortFloat class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1642
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1643	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1644	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1645
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1646	wrapper := (JavaVM classForName: 'java.lang.Float') new.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1647	wrapper perform: #'<init>(F)V' with: anObject.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1648	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1649
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1650	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1651	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1652
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1653	!ShortFloat class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1654
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1655	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1656
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1657	^'float'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1658
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1659	"Modified: / 25-02-2011 / 18:59:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1660	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1661
2450 1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1662	!ShortFloat class methodsFor:'autoboxing support'!
1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1663
1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1664	javaUnbox: object onError: errorBlock
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1665	(object class binaryName = 'java/lang/Float') ifFalse:[
2450 1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1666	errorBlock value.
1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1667	].
1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1668	^object instVarNamed: #value.
1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1669
1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1670	"Created: / 22-11-2011 / 11:52:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1671	"Modified: / 08-10-2013 / 22:42:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2450 1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1672	! !
1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1673
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1674	!ShortFloat class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1675
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1676	javaWrapperClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1677	^(Java classForName: 'java.lang.Float')
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1678
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1679	"Created: / 24-02-2012 / 19:42:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1680	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1681
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1682	!SignedIntegerArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1683
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1684	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1685	^self basicSize
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1686
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1687	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1688	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1689
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1690	!SignedIntegerArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1691
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1692	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1693	^cls == SignedIntegerArray ifTrue:[self] ifFalse:[JavaVM throwClassCastException]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1694
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1695	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1696	"Modified: / 14-05-2013 / 11:11:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1697	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1698
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1699	!SignedIntegerArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1700
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1701	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1702	^SignedIntegerArray == cls ifTrue:[1] ifFalse:[0]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1703
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1704	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1705	"Modified: / 14-05-2013 / 11:11:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1706	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1707
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1708	!SignedIntegerArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1709
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1710	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1711
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1712	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1713	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1714
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1715	!SignedIntegerArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1716
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1717	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1718
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1719	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1720
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1721	"Created: / 06-02-2011 / 15:16:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1722	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1723
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1724	!SignedIntegerArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1725
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1726	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1727
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1728	^JavaArray javaArrayClassFor: SignedIntegerArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1729
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1730	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1731	"Modified: / 10-08-2011 / 22:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1732	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1733
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1734	!SignedIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1735
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1736	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1737
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1738	^ Integer
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1739
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1740	"Created: / 25-06-2011 / 08:38:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1741	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1742
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1743	!SignedIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1744
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1745	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1746
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1747	^'[I'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1748
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1749	"Modified: / 25-02-2011 / 19:03:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1750	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1751
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1752	!SignedLongIntegerArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1753
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1754	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1755	^self basicSize
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1756
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1757	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1758	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1759
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1760	!SignedLongIntegerArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1761
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1762	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1763	^cls == SignedLongIntegerArray ifTrue:[self] ifFalse:[JavaVM throwClassCastException]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1764
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1765	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1766	"Modified: / 14-05-2013 / 11:14:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1767	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1768
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1769	!SignedLongIntegerArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1770
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1771	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1772	^SignedLongIntegerArray == cls ifTrue:[1] ifFalse:[0]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1773
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1774	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1775	"Modified: / 14-05-2013 / 11:14:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1776	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1777
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1778	!SignedLongIntegerArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1779
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1780	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1781
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1782	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1783	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1784
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1785	!SignedLongIntegerArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1786
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1787	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1788
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1789	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1790
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1791	"Created: / 20-12-2010 / 22:47:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1792	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1793
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1794	!SignedLongIntegerArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1795
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1796	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1797
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1798	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1799	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1800
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1801	"Created: / 20-12-2010 / 22:30:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1802	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1803
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1804	!SignedLongIntegerArray class methodsFor:'accessing-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1805
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1806	javaArrayClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1807
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1808	^JavaArray javaArrayClassFor: SignedLongIntegerArray
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1809
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1810	"Modified: / 10-08-2011 / 22:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1811	"Created: / 26-08-2011 / 18:29:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1812	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1813
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1814	!SignedLongIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1815
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1816	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1817
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1818	^LargeInteger
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1819
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1820	"Modified: / 25-06-2011 / 08:38:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1821	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1822
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1823	!SignedLongIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1824
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1825	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1826
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1827	^'[J'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1828
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1829	"Modified: / 25-02-2011 / 19:03:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1830	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1831
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1832	!SignedWordArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1833
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1834	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1835	^self basicSize
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1836
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1837	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1838	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1839
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1840	!SignedWordArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1841
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1842	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1843	^cls == SignedWordArray ifTrue:[self] ifFalse:[JavaVM throwClassCastException]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1844
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1845	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1846	"Modified: / 14-05-2013 / 11:14:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1847	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1848
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1849	!SignedWordArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1850
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1851	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1852	^SignedWordArray == cls ifTrue:[1] ifFalse:[0]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1853
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1854	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1855	"Modified: / 14-05-2013 / 11:14:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1856	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1857
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1858	!SignedWordArray class methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1859
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1860	isJavaArrayClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1861
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1862	^true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1863
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1864	"Created: / 20-12-2010 / 22:47:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1865	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1866
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1867	!SignedWordArray class methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1868
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1869	isJavaReferenceType
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1870
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1871	"Java arrays are reference types"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1872	^true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1873
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1874	"Created: / 20-12-2010 / 22:30:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1875	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1876
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1877	!SignedWordArray class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1878
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1879	javaComponentClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1880
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1881	^JavaShort
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1882
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1883	"Modified: / 24-02-2012 / 17:46:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1884	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1885
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1886	!SignedWordArray class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1887
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1888	javaName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1889
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1890	^'[S'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1891
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1892	"Modified: / 24-02-2012 / 17:46:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1893	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1894
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1895	!SmallInteger methodsFor:'autoboxing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1896
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1897	javaUnwrapFrom: javaType
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1898	javaType = #boolean ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1899	^ self = 1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1900	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1901	^ self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1902
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1903	"Created: / 30-12-2011 / 15:22:52 / kursjan <kursjan@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1904	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1905
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1906	!Socket methodsFor:'testing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1907
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1908	isSocket
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1909	^true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1910
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1911	"Created: / 17-08-2012 / 15:32:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1912	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1913
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1914	!Socket methodsFor:'special'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1915
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1916	reOpenIfPossible
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1917	"If the socket was listening (server-sockets), try to reopen it"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1918
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1919	listening ifFalse:[ ^ self ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1920	[
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1921	self domain:domain type:socketType protocol:protocol reuseAddress:true.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1922	self bindTo:port address:nil.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1923	self listenFor: 5
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1924	] on: OpenError do:[
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1925	"Nothing, socket could not be reopened"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1926	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1927
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1928	"Created: / 17-08-2012 / 15:43:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1929	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1930
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1931	!String methodsFor:'converting'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1932
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1933	asArrayOfSubstringsSeparatedBy:aSeparator
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1934	"Modified version of asArrayOfSubstrings"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1935
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1936	\|substrings start end\|
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1937
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1938	substrings := OrderedCollection new.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1939	start := 1.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1940	[start <= self size] whileTrue:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1941	(self at:start) = aSeparator ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1942	end := start + 1.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1943	[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1944	end <= self size and:[(self at:end) ~= aSeparator]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1945	] whileTrue:[end := end + 1].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1946	substrings add:(self copyFrom:start to:end - 1).
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1947	start := end - 1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1948	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1949	start := start + 1
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1950	].
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1951	^ substrings asArray
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1952
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1953	"Created: / 07-02-2011 / 11:18:03 / Marcel Hlopko <hlopik@gmail.com>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1954	"Modified: / 08-02-2011 / 01:08:15 / Marcel Hlopko <hlopik@gmail.com>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1955	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1956
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1957	!String class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1958
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1959	javaName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1960	^ '[C'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1961
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1962	"Created: / 18-01-2013 / 22:27:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1963	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1964
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1965	!UndefinedObject methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1966
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1967	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1968	^JavaVM throwNullPointerException
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1969
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1970	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1971	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1972
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1973	!UndefinedObject methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1974
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1975	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1976	^nil
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1977
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1978	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1979	"Modified: / 14-05-2013 / 11:10:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1980	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1981
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1982	!UndefinedObject methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1983
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1984	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1985	^0
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1986
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1987	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1988	"Modified: / 14-05-2013 / 11:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1989	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1990
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1991	!UndefinedObject class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1992
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1993	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1994
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1995	"void"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1996
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1997	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1998
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1999	"Created: / 21-12-2010 / 22:52:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2000	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2001
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2002	!UndefinedObject class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2003
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2004	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2005
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2006	^'void'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2007
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2008	"Modified: / 25-02-2011 / 18:59:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2009	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2010
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2011	!Unicode16String class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2012
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2013	javaName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2014	^ '[C'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2015
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2016	"Created: / 18-01-2013 / 22:27:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2017	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2018
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2019	!UserPreferences methodsFor:'accessing-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2020
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2021	javaRelease
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2022	"Return the Java release according to the preferences
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2023	or nil, if not set"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2024
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2025	\| rel sel \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2026	sel := self javaReleaseSelector.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2027	sel notNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2028	rel := JavaRelease perform: sel asSymbol ifNotUnderstood:[nil]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2029	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2030	^rel
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2031
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2032	"Created: / 27-07-2012 / 10:12:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2033	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2034
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2035	!UserPreferences methodsFor:'accessing-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2036
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2037	javaReleaseSelector
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2038	^ self at:#javaReleaseSelector ifAbsent:[nil].
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2039
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2040	"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2041	UserPreferences current javaReleaseSelector
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2042	UserPreferences current javaReleaseSelector: #openJDK6
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2043	UserPreferences current javaReleaseSelector: nil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2044
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2045	Java release
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2046	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2047
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2048	"Created: / 27-07-2012 / 10:02:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2049	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2050
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2051	!UserPreferences methodsFor:'accessing-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2052
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2053	javaReleaseSelector: name
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2054	"Sets the Java release to use. selector must be one of
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2055	releases defined in JavaRelease, protocol 'instance creation'"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2056
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2057	self at:#javaReleaseSelector put: name.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2058	Java notNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2059	Java reinitializeRelease
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2060	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2061
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2062
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2063	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2064	UserPreferences current javaReleaseSelector
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2065	UserPreferences current javaReleaseSelector: #openJDK7
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2066	UserPreferences current javaReleaseSelector: nil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2067
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2068	Java release
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2069	Java release:nil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2070
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2071	Java reinitializeRelease
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2072	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2073
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2074	"Created: / 27-07-2012 / 10:02:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2075	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2076
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2077	!WordArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2078
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2079	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2080
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2081	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2082	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2083
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2084	!WordArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2085
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2086	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2087
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2088	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2089
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2090	"Created: / 20-12-2010 / 22:47:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2091	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2092
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2093	!WordArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2094
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2095	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2096
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2097	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2098	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2099
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2100	"Created: / 20-12-2010 / 22:30:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2101	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2102
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2103	!WordArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2104
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2105	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2106
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2107	^JavaArray javaArrayClassFor: WordArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2108
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2109	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2110	"Modified: / 10-08-2011 / 22:46:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2111	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2112
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2113	!WordArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2114
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2115	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2116
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2117	^JavaShort
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2118
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2119	"Created: / 20-12-2010 / 22:13:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2120	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2121
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2122	!WordArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2123
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2124	javaName
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2125	^ '[S'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2126
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2127	"Modified: / 06-12-2011 / 16:43:59 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2128	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2129
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2130	!WrappedMethod methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2131
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2132	descriptor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2133	"Returns descriptor object (for wrapped Java methods)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2134
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2135	\| orig \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2136	orig := self originalMethod.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2137	^(orig respondsTo: #descriptor) ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2138	orig descriptor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2139	] ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2140	self doesNotUnderstand: (Message selector: #descriptor)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2141	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2142
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2143	"Created: / 16-12-2011 / 20:03:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2144	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2145
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2146	!WrappedMethod methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2147
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2148	isAbstract
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2149
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2150	^self originalMethod isAbstract.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2151
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2152	"Created: / 04-12-2011 / 11:24:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2152 1cbdfbcc685c Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 749 diff changeset	2153	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2154
2604 b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2155	!ZipArchive methodsFor:'queries - java support'!
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2156
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2157	isValidFile: path
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2158	"Return true, if the recevier contains given file. false otherwise.
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2159	"
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2160	^zipMembersByName includesKey: path
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2161
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2162	"Created: / 20-05-2013 / 23:37:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2163
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2164	! !
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2165
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2166	!ZipArchive methodsFor:'reading - java support'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2167
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2168	nextBytes: bytesToRead of: zmember startingAt: pos into: b startingAt: off
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2169
2638 54cd07376ffb use #position/#position: instead of #positionXBased Stefan Vogel <sv@exept.de> parents: 2635 diff changeset	2170	file position: (self dataStartOf: zmember) + startOfArchive + pos.
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2171	^ file nextBytes: bytesToRead into: b startingAt: off.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2172
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2173	"Created: / 01-05-2011 / 16:21:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	2174	"Modified: / 10-12-2012 / 05:41:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2175	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2176
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2177	!stx_libjava class methodsFor:'documentation'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2178
2578 fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	2179	extensionsVersion_HG
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	2180
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	2181	^ '$Changeset: <not expanded> $'
2476 d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2450 diff changeset	2182	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sat, 18 Jan 2014 21:44:04 +0000
branch	development
changeset 2974	36b5b06398b5
parent 2965	bac7022ca26a
child 2993	ed8cd8e5a16d
permissions	-rw-r--r--