hg/stx-libjava: JavaRelease.st@2fae1fd966be (annotated)

749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2	COPYRIGHT (c) 1996-2011 by Claus Gittinger
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	3
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	4	New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	5
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	6	COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	7	SWING Research Group, Czech Technical University in Prague
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	8
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	9	This software is furnished under a license and may be used
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	10	only in accordance with the terms of that license and with the
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	11	inclusion of the above copyright notice. This software may not
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	12	be provided or otherwise made available to, or used by, any
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	13	other person. No title to or ownership of the software is
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	14	hereby transferred.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	15
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	16	[1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	17	of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	18	see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	19	as of 1.9.2010
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	20	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	21	"{ Package: 'stx:libjava' }"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	22
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	23	Object subclass:#JavaRelease
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	24	instanceVariableNames:'javaHome sourcePath classes bootClassPathClasses extDirsClasses
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	25	bundle bootClassPath'
2909 2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	26	classVariableNames:'System'
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	27	poolDictionaries:''
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	28	category:'Languages-Java-Support'
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	29	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	30
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	31	JavaRelease class instanceVariableNames:'instance'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	32
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	33	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	34	No other class instance variables are inherited by this class.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	35	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	36	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	37
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	38	JavaRelease subclass:#OpenJDK6
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	39	instanceVariableNames:''
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	40	classVariableNames:''
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	41	poolDictionaries:'JavaVMData'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	42	privateIn:JavaRelease
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	43	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	44
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	45	JavaRelease::OpenJDK6 subclass:#OpenJDK7
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	46	instanceVariableNames:''
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	47	classVariableNames:''
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	48	poolDictionaries:'JavaVMData'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	49	privateIn:JavaRelease
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	50	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	51
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	52	JavaRelease::OpenJDK6 subclass:#OracleJDK6
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	53	instanceVariableNames:''
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	54	classVariableNames:''
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	55	poolDictionaries:''
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	56	privateIn:JavaRelease
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	57	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	58
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	59	JavaRelease::OpenJDK7 subclass:#OracleJDK7
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	60	instanceVariableNames:''
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	61	classVariableNames:''
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	62	poolDictionaries:''
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	63	privateIn:JavaRelease
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	64	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	65
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	66	JavaRelease subclass:#SunJDK122
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	67	instanceVariableNames:''
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	68	classVariableNames:''
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	69	poolDictionaries:''
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	70	privateIn:JavaRelease
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	71	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	72
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	73	!JavaRelease class methodsFor:'documentation'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	74
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	75	copyright
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	76	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	77	COPYRIGHT (c) 1996-2011 by Claus Gittinger
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	78
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	79	New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	80
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	81	COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	82	SWING Research Group, Czech Technical University in Prague
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	83
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	84	This software is furnished under a license and may be used
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	85	only in accordance with the terms of that license and with the
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	86	inclusion of the above copyright notice. This software may not
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	87	be provided or otherwise made available to, or used by, any
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	88	other person. No title to or ownership of the software is
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	89	hereby transferred.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	90
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	91	[1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	92	of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	93	see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	94	as of 1.9.2010
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	95
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	96	"
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	97	!
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	98
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	99	documentation
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	100	"
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	101	Sub-instance of me represent a particular Java release and provides and
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	102	access to JDK/JRE files as well and native method implementation and other
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	103	things that are release-dependent.
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	104
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	105	There is a guessing mechanism trying to auto-detect path to JRE/JDK. If it fails,
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	106	you may always set javaHome manually (see #javaHome:).
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	107
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	108	NOTE: an instance of OpenJDKx and OracleJDKx represent provide access to both,
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	109	plain JRE or full JDK.
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	110
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	111	[author:]
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	112	Jan Vrany <jan.vrany@fit.cvut.cz>
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	113
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	114	[instance variables:]
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	115
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	116	[class variables:]
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	117
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	118	[see also:]
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	119
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	120	"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	121	! !
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	122
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	123	!JavaRelease class methodsFor:'initialization'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	124
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	125	flush
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	126	Java release: nil.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	127	instance := nil.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	128	self subclasses do:[:e\|e flush].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	129
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	130	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	131	JavaRelease flush.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	132	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	133
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	134	"Created: / 12-02-2013 / 03:20:05 / 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: 2153 diff changeset	135	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	136
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	137	!JavaRelease class methodsFor:'instance creation'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	138
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	139	JDK6
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	140	"Meta-release - return either OpenJDK or OracleJDK"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	141	^self openJDK6 isAvailable
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	142	ifTrue:[self openJDK6]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	143	ifFalse:[self oracleJDK6].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	144
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	145	"Created: / 16-02-2013 / 09:21: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: 2153 diff changeset	146	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	147
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	148	JDK7
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	149	"Meta-release - return either OpenJDK or OracleJDK"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	150	^self openJDK7 isAvailable
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	151	ifTrue:[self openJDK7]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	152	ifFalse:[self oracleJDK7].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	153
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	154	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	155	JavaRelease JDK6
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	156	JavaRelease JDK7
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	157
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	158	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	159
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	160	"Created: / 16-02-2013 / 09:21: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: 2153 diff changeset	161	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	162
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	163	openJDK6
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	164	^ OpenJDK6 instance
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	165
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	166	"Created: / 27-10-2010 / 21:41:33 / 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: 2153 diff changeset	167	"Modified: / 05-11-2011 / 18:45:02 / 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: 2153 diff changeset	168	"Modified: / 27-07-2012 / 00:22:39 / 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: 2153 diff changeset	169	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	170
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	171	openJDK7
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	172	^ OpenJDK7 instance.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	173
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	174	"Created: / 26-07-2012 / 23:51:32 / 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: 2153 diff changeset	175	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	176
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	177	oracleJDK6
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	178	^ OracleJDK6 instance
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	179
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	180	"Created: / 12-02-2013 / 03:03:45 / 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: 2153 diff changeset	181	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	182
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	183	oracleJDK7
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	184	^ OracleJDK7 instance
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	185
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	186	"Created: / 12-02-2013 / 03:03: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: 2153 diff changeset	187	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	188
2375 0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	189	oracleJRE7
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	190	^ OracleJRE7 instance
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	191	!
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	192
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	193	sunJDK122
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	194	^ SunJDK122 instance
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	195
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	196	"Created: / 27-10-2010 / 21:41: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: 2153 diff changeset	197	"Modified: / 05-11-2011 / 18:45:09 / 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: 2153 diff changeset	198	"Modified: / 27-07-2012 / 00:22:47 / 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: 2153 diff changeset	199	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	200
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	201	!JavaRelease class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	202
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	203	all
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	204	^(self allSubclasses
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	205	reject: [:rel \| rel isAbstract ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	206	thenCollect: [:rel \| rel instance ])
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	207	asSortedCollection: [:a :b \| a priority > b priority ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	208
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	209
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	210	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	211	JavaRelease all
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	212	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	213
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	214	"Created: / 27-07-2012 / 00:10:22 / 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: 2153 diff changeset	215	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	216
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	217	any
2909 2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	218	<resource: #obsolete>
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	219	\| releases \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	220
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	221	releases := self available.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	222	releases isEmptyOrNil ifTrue:[ ^ nil ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	223	^ releases first initialize
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	224
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	225
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	226	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	227	JavaRelease any
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	228	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	229
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	230	"Created: / 22-11-2010 / 13:11:58 / 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: 2153 diff changeset	231	"Modified: / 01-11-2011 / 14:02: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: 2153 diff changeset	232	"Modified: / 26-07-2012 / 23:42:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	233	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	234
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	235	available
2462 2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	236	\| releases out path \|
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	237
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	238	releases := self all select: [:rel \| rel isAvailable ].
2462 2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	239	releases isEmpty ifTrue: [
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	240	"/ none of the releases seems to be installed in a way that it is found
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	241	"/ out of the box. Try a 'java' command...
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	242	(path := OperatingSystem pathOfCommand:'java') notNil ifTrue:[
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	243	out := WriteStream on:(String new:100).
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	244	(OperatingSystem executeCommand:'java -version' outputTo:out) ifTrue:[
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	245	out := out contents.
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	246	releases := self all select:[:rel \| rel validateJavaVersionString:out].
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	247	('/System/Library/Java' asFilename) exists
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	248	releases do:[:each \|
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	249	each javaHome:('/System/Library/Java/Home' asFilename).
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	250	].
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	251	].
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	252	].
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	253	releases isEmpty ifTrue: [
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	254	self error: 'No Java release found'. ^nil
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	255	].
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	256	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	257	^releases
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	258
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	259	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	260	JavaRelease available
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	261	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	262
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	263	"Created: / 26-07-2012 / 23:41:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2909 2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	264	!
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	265
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	266	default
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	267	\| releases \|
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	268
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	269	releases := self available.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	270	releases isEmptyOrNil ifTrue:[ ^ nil ].
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	271	^ releases first initialize
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	272
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	273
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	274	"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	275	JavaRelease any
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	276	"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	277
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	278	"Created: / 11-11-2013 / 14:07:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	279	!
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	280
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	281	inDirectory:javaHome
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	282	"Returns an instance of JavaRelease for given javaHome or nil if
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	283	given javaHome does not point to Java installation directory"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	284
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	285
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	286	javaHome notNil ifTrue:[
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	287	\| releases \|
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	288	releases := self allSubclasses reject:[:each \| each isAbstract ] thenCollect:[:each \| each new ].
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	289	releases sort:[:a :b \| a priority > b priority ].
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	290	releases do:[:release \|
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	291	(release validateJavaHome: javaHome) ifTrue:[
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	292	release javaHome: javaHome.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	293	^ release.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	294	].
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	295	]
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	296	].
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	297	^ nil.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	298
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	299	"Created: / 11-11-2013 / 14:53:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	300	!
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	301
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	302	system
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	303	"Return the release for system java or nil if not system JDK/JRE
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	304	installation is available.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	305
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	306	By system JDK/JRE we mean JDK/JRE used by `java` command found along the path"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	307
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	308	\| javaExecutable javaHome \|
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	309
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	310	System isNil ifTrue:[
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	311	javaExecutable := OperatingSystem pathOfCommand: 'java'.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	312	javaExecutable isNil ifTrue:[ ^ nil ].
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	313	"/ On some Linux installations, /usr/bin/java -> /etc/alternatives/java -> /usr/lib/jvm/.../jre/java/bin,
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	314	"/ care for that.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	315	javaExecutable := javaExecutable asFilename asAbsoluteFilename.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	316	javaExecutable isSymbolicLink ifTrue:[
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	317	javaExecutable := javaExecutable physicalFilename asAbsoluteFilename.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	318	].
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	319
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	320	javaHome := nil.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	321	OperatingSystem isMSWINDOWSlike ifTrue:[
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	322	(javaExecutable pathName endsWith: 'jre\bin\java.exe') ifTrue:[
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	323	javaHome := javaExecutable pathName copyTo: javaExecutable pathName size - 'jre\bin\java.exe' size - 1.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	324	] ifFalse:[
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	325	(javaExecutable pathName endsWith: 'bin\java.exe') ifTrue:[
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	326	javaHome := javaExecutable pathName copyTo: javaExecutable pathName size - 'bin\java.exe' size - 1.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	327	]
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	328	].
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	329	] ifFalse:[
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	330	(javaExecutable pathName endsWith: 'jre/bin/java') ifTrue:[
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	331	javaHome := javaExecutable pathName copyTo: javaExecutable pathName size - 'jre/bin/java' size - 1.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	332	] ifFalse:[
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	333	(javaExecutable pathName endsWith: 'bin\java.exe') ifTrue:[
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	334	javaHome := javaExecutable pathName copyTo: javaExecutable pathName size - 'bin/java' size - 1.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	335	]
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	336	].
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	337	].
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	338	System := self inDirectory: javaHome
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	339	].
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	340	^ System
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	341
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	342	"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	343	JavaRelease system
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	344	"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	345
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	346	"Created: / 11-11-2013 / 14:18:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	347	"Modified: / 11-11-2013 / 16:03:12 / 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: 2153 diff changeset	348	! !
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	349
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	350	!JavaRelease class methodsFor:'instance creation-private'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	351
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	352	instance
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	353	instance isNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	354	instance := self new initialize
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	355	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	356	^instance
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	357
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	358	"Created: / 27-07-2012 / 00:22: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: 2153 diff changeset	359	! !
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	360
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	361	!JavaRelease class methodsFor:'others'!
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	362
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	363	version_HG
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	364
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	365	^ '$Changeset: <not expanded> $'
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	366	! !
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	367
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	368	!JavaRelease class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	369
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	370	isAbstract
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	371
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	372	^self class == JavaRelease
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	373
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	374	"Created: / 22-11-2010 / 13:33:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	375	! !
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	376
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	377	!JavaRelease methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	378
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	379	bootClassPath
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	380	"Returns a default value of sun.boot.class.path"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	381
2462 2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	382	bootClassPath isNil ifTrue:[
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	383	\| jreHome libs \|
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	384
2462 2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	385	jreHome := self jreHome.
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	386	libs := jreHome / 'lib'.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	387	bootClassPath := OrderedCollection new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	388	libs directoryContentsAsFilenames do:[:each\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	389	(each pathName endsWith:'.jar') ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	390	(each pathName endsWith: 'rt.jar') ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	391	bootClassPath addFirst: each pathName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	392	] ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	393	bootClassPath addLast: each pathName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	394	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	395	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	396	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	397	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	398	^bootClassPath.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	399
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	400	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	401	Java release bootClassPath
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	402	"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	403
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	404	"Created: / 02-11-2011 / 12:19:43 / 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: 2153 diff changeset	405	"Modified (format): / 31-07-2012 / 10:16:25 / jv"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	406	"Modified: / 23-01-2013 / 15:18:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	407	"Modified (format): / 11-04-2013 / 14:30:16 / Marcel Hlopko <marcel.hlopko@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: 2153 diff changeset	408	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	409
2462 2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	410	bootClassPath:aCollectionOfPathes
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	411	"Change the bootClassPath"
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	412
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	413	bootClassPath := OrderedCollection withAll:aCollectionOfPathes.
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	414
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	415	"
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	416	Java release bootClassPath
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	417	"
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	418	!
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	419
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	420	javaBundle
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	421	"Returns bundle representing Java code (both core + extections)"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	422
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	423	bundle isNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	424	bundle := JavaCodeBundle new
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	425	name: self name;
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	426	add: self bootBundle;
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	427	add: self extBundle;
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	428	yourself.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	429	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	430	^bundle
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	431
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	432	"Created: / 12-02-2013 / 14:56:53 / 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: 2153 diff changeset	433	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	434
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	435	javaExtDirs
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	436
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	437	"Returns a default value of java.ext.dirs property"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	438
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	439	OperatingSystem isUNIXlike ifTrue:[ ^ self javaExtDirsOnUNIX ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	440	OperatingSystem isMSWINDOWSlike ifTrue:[ ^ self javaExtDirsOnWindows ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	441	self error:'Unsupported platform'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	442	^ #()
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	443
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	444
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	445	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	446	JavaRelease openJDK6 classPath
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	447	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	448
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	449	"Modified: / 27-10-2010 / 21:48:07 / 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: 2153 diff changeset	450	"Created: / 31-08-2011 / 19:59: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: 2153 diff changeset	451	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	452
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	453	javaExtDirsOnUNIX
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	454
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	455	^#()
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	456
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	457	"Created: / 31-08-2011 / 19:59:32 / 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: 2153 diff changeset	458	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	459
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	460	javaExtDirsOnWindows
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	461
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	462	^#()
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	463
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	464	"Created: / 31-08-2011 / 19:59:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	465	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	466
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	467	javaHome
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	468	"Answer a Java home. This is either path to JRE (no JDK is found) or to
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	469	full JDK (if JDK is installed)
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	470
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	471	If you want path to either JRE or JDK, use
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	472	#jreHome
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	473	#jdkHome
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	474
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	475	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	476
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	477	javaHome isNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	478	javaHome := self searchForJavaHome.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	479	].
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	480	^javaHome
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	481
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	482	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	483	JavaRelease openJDK6 javaHome
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	484	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	485
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	486	"Created: / 27-10-2010 / 18:59:35 / 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: 2153 diff changeset	487	"Modified: / 27-07-2012 / 00:24:17 / 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: 2153 diff changeset	488	"Modified (comment): / 23-01-2013 / 12:19:45 / 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: 2153 diff changeset	489	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	490
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	491	javaHome: aString
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	492	javaHome := aString.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	493	self searchForSourcePath.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	494
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	495	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	496	JavaRelease openJDK6 javaHome
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	497	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	498
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	499	"Created: / 26-07-2012 / 23:32:34 / 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: 2153 diff changeset	500	"Modified: / 11-02-2013 / 02:58:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	501	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	502
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	503	javaHomeOrNil
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	504
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	505	"Answer a Java home"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	506
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	507	\| home \|
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	508	home := (javaHome
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	509	ifNotNil:[javaHome]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	510	ifNil:[self searchForJavaHome]).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	511	^home
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	512
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	513	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	514	JavaRelease openJDK6 javaHome
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	515	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	516
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	517	"Created: / 22-11-2010 / 13:17:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	518	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	519
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	520	javaHomes
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	521
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	522	"Answer a set of possible java homes, those directories are searched"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	523
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	524
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	525	OperatingSystem isUNIXlike ifTrue:[ ^ self javaHomesOnUNIX ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	526	OperatingSystem isMSWINDOWSlike ifTrue:[ ^ self javaHomesOnWindows ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	527	self error:'Unsupported platform'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	528	^ #()
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	529
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	530	"Modified: / 22-11-2010 / 13:28:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	531	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	532
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	533	javaHomesOnUNIX
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	534	"raise an error: must be redefined in concrete subclass(es)"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	535
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	536	^ self subclassResponsibility
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	537	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	538
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	539	javaHomesOnWindows
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	540	"raise an error: must be redefined in concrete subclass(es)"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	541
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	542	^ self subclassResponsibility
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	543	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	544
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	545	javaNativeMethodsImplementation
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	546	"Returns an object that imolements native methods."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	547
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	548	^ self subclassResponsibility
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	549
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	550	"Created: / 16-01-2013 / 19:58:25 / 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: 2153 diff changeset	551	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	552
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	553	jdkHome
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	554
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	555	"Answers the directory where the JDK lives or nil, if no JDK is found"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	556
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	557	\| jdkHome \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	558
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	559	self javaHome isNil ifTrue:[ ^ nil ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	560
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	561	^((jdkHome := self javaHome) asFilename / 'jre') exists
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	562	ifTrue:[jdkHome]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	563	ifFalse:[nil].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	564
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	565	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	566	Java release searchForJavaHome; jdkHome
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	567	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	568
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	569	"Created: / 23-01-2013 / 12:20: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: 2153 diff changeset	570	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	571
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	572	jreHome
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	573
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	574	"Answers the directory where the JRE lives"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	575
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	576	\| jreHome \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	577
2462 2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	578	OperatingSystem isOSXlike ifTrue:[
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	579	^ '/System/Library/Java/Home' asFilename
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	580	].
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	581
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	582	self javaHome isNil ifTrue:[ ^ nil ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	583
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	584	^(jreHome := self javaHome asFilename / 'jre') exists
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	585	ifTrue:[jreHome]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	586	ifFalse:[javaHome asFilename].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	587
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	588	"Created: / 27-10-2010 / 21:24:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	589	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	590
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	591	name
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	592
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	593	"Answer a human readable name of the Java release such as Sun JDK 1.2.2 or OpenJDK 6"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	594
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	595	^self subclassResponsibility
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	596
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	597	"Created: / 27-10-2010 / 18:53:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	598	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	599
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	600	priority
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	601
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	602	^50
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	603
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	604	"Created: / 22-11-2010 / 13:34:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	605	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	606
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	607	selector
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	608	"Returns instance-creation selector to get the receiver.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	609	See JavaRelease class, protocol instance creation"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	610
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	611	^self subclassResponsibility
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	612
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	613	"Created: / 27-07-2012 / 10:04: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: 2153 diff changeset	614	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	615
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	616	sourcePath
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	617
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	618	"Returns a paths where sources are located"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	619
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	620	sourcePath ifNil:[self searchForSourcePath].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	621	^sourcePath
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	622
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	623	"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	624	JavaRelease openJDK6 sourcePath
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	625	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	626
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	627	"Created: / 27-10-2010 / 19:20:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	628	"Modified: / 30-11-2010 / 11:55:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	629	! !
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	630
2909 2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	631	!JavaRelease methodsFor:'comparing'!
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	632
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	633	= anotherRelease
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	634	^ self class == anotherRelease class
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	635	and:[self javaHome = anotherRelease javaHome]
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	636
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	637	"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	638	JavaRelease system = JavaRelease JDK7
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	639	JavaRelease system hash = JavaRelease JDK7 hash
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	640	"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	641
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	642	"Created: / 11-11-2013 / 15:56:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	643	!
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	644
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	645	hash
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	646	^ self class hash bitXor:javaHome hash
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	647
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	648	"Created: / 11-11-2013 / 15:55:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	649	! !
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	650
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	651	!JavaRelease methodsFor:'debugging'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	652
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	653	dumpConfigOn: stream
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	654
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	655	\| dumper \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	656	dumper := [:name :value :isfile\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	657	\| values \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	658
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	659	'%-30s : ' printf:{ name } on: stream.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	660	value isString
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	661	ifTrue:[values := { value asString }]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	662	ifFalse:[values := value].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	663	values do:[:v\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	664	stream nextPutAll: v asString.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	665	isfile ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	666	v asFilename exists ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	667	stream nextPutAll:' (not found!!!!!!)'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	668	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	669	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	670	] separatedBy:[stream cr; next: 30 + 3 put: Character space].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	671	stream cr.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	672	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	673
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	674
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	675
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	676	stream nextPutAll: '== Java release config =='; cr.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	677	dumper value: 'name' value: self name value: false.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	678	dumper value: 'JAVA home' value: self javaHome asString value: true.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	679	dumper value: 'JRE home' value: self jreHome asString value: true.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	680	dumper value: 'JDK home' value: self jdkHome asString value: true.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	681	dumper value: 'boot class path' value: self bootClassPath value: true.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	682	dumper value: 'ext dirs' value: self javaExtDirs value: true.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	683
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	684
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	685	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	686	Java release dumpConfigOn: Transcript.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	687	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	688
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	689	"Created: / 10-12-2011 / 12:55:51 / 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: 2153 diff changeset	690	"Modified: / 08-02-2013 / 10:22:15 / 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: 2153 diff changeset	691	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	692
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	693	!JavaRelease methodsFor:'displaying'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	694
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	695	displayString
2909 2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	696	self == self class system ifTrue:[
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	697	^ ( 'System (', self name , ')' ) asText colorizeAllWith: Color gray.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	698	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	699	^self name
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	700
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	701	"Created: / 27-07-2012 / 00:01:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2909 2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	702	"Modified: / 11-11-2013 / 16:04:36 / 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: 2153 diff changeset	703	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	704
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	705	!JavaRelease methodsFor:'initialization'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	706
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	707	initializeBootClassPathIndex
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	708	bootClassPathClasses := IdentitySet new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	709	self bootClassPath do: [:file \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	710	\| filename \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	711
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	712	filename := file asFilename.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	713
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	714	self assert: (filename suffix = 'jar').
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	715	self assert: (filename exists).
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	716	self selectAllClassNamesIn: file to: bootClassPathClasses.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	717	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	718
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	719	"Created: / 02-11-2011 / 12:12:50 / 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: 2153 diff changeset	720	"Modified: / 19-07-2012 / 11:02:41 / jv"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	721	"Modified: / 23-01-2013 / 17:24: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: 2153 diff changeset	722	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	723
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	724	initializeClassIndex
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	725	\| jreHome \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	726
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	727	(jreHome := self jreHome) isNil ifTrue:[ ^ self ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	728	classes := IdentitySet new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	729
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	730	self jreHome recursiveDirectoryContents do: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	731	:each \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	732	(each endsWith: '.class') ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	733	classes add: each asSymbol.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	734	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	735	(each endsWith: '.jar') ifTrue: [ self selectAllClassNamesIn: (self jreHome asFilename / each asFilename) to: classes. ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	736	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	737
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	738	"Created: / 01-11-2011 / 14:09:07 / 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: 2153 diff changeset	739	"Modified: / 27-07-2012 / 13:59:05 / 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: 2153 diff changeset	740	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	741
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	742	initializeExtDirsIndex
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	743	extDirsClasses := IdentitySet new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	744	self javaExtDirs do: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	745	:dir \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	746	dir exists ifFalse: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	747	Logger
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	748	log: dir pathName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	749	, ', included in JavaRelease>>javaExtDirs, does not exist'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	750	severity: #info
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	751	facility: 'JVM'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	752	] ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	753	dir recursiveDirectoryContents do: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	754	:filename \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	755	(filename endsWith: '.class') ifTrue: [ extDirsClasses add: filename asSymbol ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	756	(filename endsWith: '.jar') ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	757	self selectAllClassNamesIn: dir asFilename / filename asFilename to: extDirsClasses
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	758	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	759	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	760	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	761	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	762
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	763	"Created: / 02-11-2011 / 12:12:53 / 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: 2153 diff changeset	764	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	765
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	766	!JavaRelease methodsFor:'object conversions'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	767
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	768	as_ST_String: aJavaString
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	769	"Given a java.lang.String instance, returns a coresponding
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	770	Smalltalk String"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	771
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	772	^self subclassResponsibility
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	773
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	774	"Created: / 08-08-1997 / 12:02:55 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	775	"Modified: / 04-01-1999 / 23:55:08 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	776	"Modified: / 22-03-2011 / 17:21:19 / 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: 2153 diff changeset	777	"Modified: / 07-02-2013 / 20:01:50 / 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: 2153 diff changeset	778	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	779
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	780	as_String:aString
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	781	"Given a Smalltalk string, returns corresponsing instance of
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	782	java.lang.String"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	783
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	784	^self subclassResponsibility
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	785
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	786	"Created: / 07-08-1997 / 21:15:49 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	787	"Modified: / 07-02-2013 / 20:02: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: 2153 diff changeset	788	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	789
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	790	!JavaRelease methodsFor:'private'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	791
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	792	bootBundle
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	793	\| src b \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	794
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	795	src := self sourcePath detect:[:e\|e endsWith: 'src.zip'] ifNone:[nil].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	796	b := JavaCodeBundle new name: 'Runtime Library'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	797	self bootClassPath do:[:each\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	798	b add: (JavaCodeLibrary new
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	799	name: (each copyFrom: (each lastIndexOf: Filename separator) + 1);
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	800	classes: each;
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	801	sources: src;
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	802	yourself)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	803	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	804	^b
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	805
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	806	"Created: / 12-02-2013 / 14:57:31 / 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: 2153 diff changeset	807	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	808
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	809	extBundle
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	810	\| src b \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	811
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	812	src := self sourcePath detect:[:e\|e endsWith: 'src.zip'] ifNone:[nil].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	813	b := JavaCodeBundle new name: 'Extensions'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	814	self javaExtDirs do:[:extnm\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	815	\| ext \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	816
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	817	ext := extnm asFilename.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	818	ext exists ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	819	ext directoryContentsAsFilenamesDo:[:each\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	820	each suffix = 'jar' ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	821	b add: (JavaCodeLibrary new
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	822	name: each baseName;
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	823	classes: each pathName;
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	824	sources: src;
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	825	yourself)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	826	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	827	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	828	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	829	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	830	^b
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	831
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	832	"Created: / 12-02-2013 / 14:57:31 / 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: 2153 diff changeset	833	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	834
2909 2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	835	jdkBundle
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	836	\| src b jdk lib\|
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	837
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	838	(jdk := self jdkHome) isNil ifTrue:[ ^ nil ].
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	839	src := self sourcePath detect:[:e\|e endsWith: 'src.zip'] ifNone:[nil].
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	840	b := JavaCodeBundle new name: 'JDK'.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	841	lib := jdk asFilename / 'lib'.
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	842	lib exists ifTrue:[
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	843	lib directoryContentsAsFilenamesDo:[:each\|
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	844	each suffix = 'jar' ifTrue:[
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	845	b add: (JavaCodeLibrary new
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	846	name: each baseName;
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	847	classes: each pathName;
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	848	sources: src;
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	849	yourself)
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	850	]
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	851	].
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	852	].
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	853	^b
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	854
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	855	"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	856	Java release jdkBundle
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	857	"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	858
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	859	"Created: / 11-11-2013 / 15:32:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	860	!
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 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: 2153 diff changeset	862	searchInternalIndex: anIdentityCollection for: className
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	863	\| classFileName \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	864	classFileName := (className asSlashedJavaClassName) asSymbol.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	865	^ anIdentityCollection includes: classFileName asSymbol.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	866
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	867	"Created: / 02-11-2011 / 12:27:56 / 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: 2153 diff changeset	868	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	869
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	870	selectAllClassNamesIn: jarArchiveName to: anIdentityCollection
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	871	\| jar classesInJar \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	872	jar := ZipArchive readingFrom: jarArchiveName asFilename readStream.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	873	classesInJar := jar entries select: [:each \| each endsWith: '.class'. ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	874	classesInJar do: [:each \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	875	anIdentityCollection add: (each copyFrom: 1 to: each size - 6) asSymbol
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	876	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	877
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	878	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	879	JavaRelease any."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	880
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	881	"Created: / 02-11-2011 / 12:17: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: 2153 diff changeset	882	"Modified (format): / 02-11-2011 / 23:34:54 / 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: 2153 diff changeset	883	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	884
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	885	updateClassIndexFrom: jarArchiveName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	886	\| jar classesInJar \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	887	jar := ZipArchive
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	888	readingFrom: (self jreHome asFilename / jarArchiveName asFilename)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	889	readStream.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	890	classesInJar := jar entries select: [:each \| each endsWith: '.class'. ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	891	classesInJar do: [:each \| classes add: each asSymbol].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	892
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	893	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	894	JavaRelease any."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	895
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	896	"Created: / 01-11-2011 / 14:18:42 / 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: 2153 diff changeset	897	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	898
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	899	!JavaRelease methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	900
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	901	bootClassPathIncludesClassNamed: className
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	902	bootClassPathClasses isNil ifTrue:[self initializeBootClassPathIndex].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	903	^ self searchInternalIndex: bootClassPathClasses for: className.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	904
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	905	"Created: / 02-11-2011 / 12:11:03 / 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: 2153 diff changeset	906	"Modified: / 31-07-2012 / 18:00: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: 2153 diff changeset	907	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	908
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	909	extDirsIncludesClassNamed: className
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	910	"Looks like a bug, shouldn't it look to extDirClasses?"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	911
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	912	classes isNil ifTrue:[self initializeClassIndex].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	913	^self searchInternalIndex: classes for: className.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	914
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	915	"Created: / 02-11-2011 / 12:11:44 / 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: 2153 diff changeset	916	"Modified (comment): / 31-07-2012 / 18:00: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: 2153 diff changeset	917	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	918
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	919	includesClassNamed: className
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	920	classes isNil ifTrue:[self initializeClassIndex].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	921	^self searchInternalIndex: classes for: className.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	922
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	923	"Created: / 01-11-2011 / 14:50:03 / 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: 2153 diff changeset	924	"Modified: / 31-07-2012 / 17:58:53 / 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: 2153 diff changeset	925	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	926
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	927	isAvailable
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	928
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	929	^self javaHomeOrNil notNil
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	930
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	931	"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	932	JavaRelease openJDK6 isAvailable
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	933	JavaRelease oracleJDK6 isAvailable
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	934
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	935	JavaRelease openJDK7 isAvailable
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	936	JavaRelease oracleJDK7 isAvailable
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	937
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	938
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	939	JavaRelease available
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	940	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	941
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	942	"Created: / 22-11-2010 / 13:15:16 / 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: 2153 diff changeset	943	"Modified (comment): / 12-02-2013 / 03:18: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: 2153 diff changeset	944	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	945
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	946	isCustom
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	947	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	948
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	949	"Created: / 27-07-2012 / 00:08:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	950	! !
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	951
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	952	!JavaRelease methodsFor:'searching'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	953
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	954	searchForJavaHome
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	955
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	956	\| h \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	957
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	958	bundle := nil.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	959	h := (OperatingSystem getEnvironment:'JAVA_HOME').
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	960	h notNil ifTrue:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	961	(h endsWith: '\jre') ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	962	h := h copyTo: h size - 5
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	963	].
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	964	h := h asFilename.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	965
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	966	"/Do not trust JAVA_HOME, it might be wrong (on Windows machine due
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	967	"/to a registry mess
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	968	(self validateJavaHome: h) ifTrue:[ javaHome := h. ^ javaHome ].
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	969	].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	970
2462 2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	971	self javaHomes do: [:home\|
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	972	\| homeAsFilename \|
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	973
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	974	homeAsFilename := home asFilename.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	975	homeAsFilename exists ifTrue:
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	976	[(self validateJavaHome: homeAsFilename) ifTrue:
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	977	[^javaHome := home]]].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	978
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	979	^nil
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	980
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	981	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	982	Java release searchForJavaHome
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	983	Java release javaHome
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	984
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	985	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	986
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	987	"Created: / 27-10-2010 / 19:03:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	988	"Modified: / 15-03-2011 / 13:29:14 / Jan Kurs <kursjan@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	989	"Modified: / 15-03-2011 / 13:47:02 / 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: 2153 diff changeset	990	"Modified: / 19-07-2012 / 11:08:04 / jv"
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	991	"Modified: / 20-02-2013 / 02:50:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	992	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	993
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	994	searchForSourcePath
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	995
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	996	\| java_home src_zip \|
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	997
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	998	sourcePath := OrderedCollection new.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	999	bundle := nil.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1000	java_home := self javaHome.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1001	java_home notNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1002	src_zip := self javaHome asFilename / 'src.zip'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1003	src_zip exists ifTrue:[sourcePath add: src_zip pathName].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1004	].
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1005
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1006	"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1007	JavaRelease openJDK6 searchForSourcePath; sourcePath
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1008	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1009
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1010	"Created: / 27-10-2010 / 21:15:00 / 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: 2153 diff changeset	1011	"Modified: / 12-01-2013 / 15:55:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1012	! !
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1013
2789 e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1014	!JavaRelease methodsFor:'testing'!
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1015
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1016	isJava6
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1017	^ false
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1018
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1019	"Created: / 04-10-2013 / 11:10:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1020	!
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1021
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1022	isJava7
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1023	^ false
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1024
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1025	"Created: / 04-10-2013 / 11:11:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1026	! !
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1027
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1028	!JavaRelease methodsFor:'validating'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1029
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1030	validateJavaHome1: home
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1031
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1032	home isNil ifTrue:[ ^ false ].
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1033
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1034	"Just JRE"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1035	( home asFilename / 'lib' / 'rt.jar' ) exists ifTrue:[^true].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1036
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1037	"Full JDK"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1038	( home asFilename / 'jre' / 'lib' / 'rt.jar' ) exists ifTrue:[^true].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1039
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1040	^ false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1041
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1042	"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1043	JavaRelease basicNew validateJavaHome: '/usr/lib/jvm/java-6-openjdk'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1044	JavaRelease basicNew validateJavaHome: '/tmp'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1045	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1046
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1047	"Created: / 12-02-2013 / 02:50:51 / 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: 2153 diff changeset	1048	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1049
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1050	validateJavaHome2: home
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1051	self subclassResponsibility
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1052
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1053	"Created: / 12-02-2013 / 02:51: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: 2153 diff changeset	1054	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1055
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1056	validateJavaHome: home
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1057
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1058	^(self validateJavaHome1: home) and:[self validateJavaHome2: home]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1059
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1060
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1061	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1062	JavaRelease basicNew validateJavaHome: '/usr/lib/jvm/java-6-openjdk'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1063	JavaRelease basicNew validateJavaHome: '/tmp'
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1064	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1065
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1066	"Created: / 27-10-2010 / 19:14: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: 2153 diff changeset	1067	"Modified: / 12-02-2013 / 02:51:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2462 2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1068	!
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1069
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1070	validateJavaVersionString:aVersionString
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1071	"Return true if aVersionString (which is what 'java -version' returns)
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1072	matches what I expect."
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1073
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1074	^ false
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1075	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1076
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1077	!JavaRelease::OpenJDK6 class methodsFor:'documentation'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1078
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1079	copyright
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1080	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1081	COPYRIGHT (c) 1996-2011 by Claus Gittinger
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1082
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1083	New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1084
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1085	COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1086	SWING Research Group, Czech Technical University in Prague
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1087
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1088	This software is furnished under a license and may be used
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1089	only in accordance with the terms of that license and with the
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1090	inclusion of the above copyright notice. This software may not
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1091	be provided or otherwise made available to, or used by, any
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1092	other person. No title to or ownership of the software is
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1093	hereby transferred.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1094
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1095	[1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1096	of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1097	see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1098	as of 1.9.2010
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1099
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1100	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1101	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1102
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1103	version_SVN
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1104	^ 'Id:: '
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1105	! !
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1106
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1107	!JavaRelease::OpenJDK6 methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1108
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1109	javaExtDirsOnUNIX
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1110
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1111	^{
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1112	self jreHome asFilename / 'lib' / 'ext' .
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1113	'/usr/java/packages/lib/ext' asFilename
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1114	}
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1115
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1116	"Created: / 31-08-2011 / 20:01: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: 2153 diff changeset	1117	"Modified: / 16-12-2012 / 15:46:15 / 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: 2153 diff changeset	1118	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1119
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1120	javaExtDirsOnWindows
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1121
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1122	^{
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1123	self jreHome asFilename / 'lib' / 'ext' .
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1124	}
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1125
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1126	"Created: / 31-08-2011 / 20:02: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: 2153 diff changeset	1127	"Modified: / 16-12-2012 / 15:46:21 / 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: 2153 diff changeset	1128	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1129
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1130	javaHomesOnUNIX
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1131	\| arch \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1132
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1133	arch := OperatingSystem getSystemInfo at:#machine.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1134	arch = 'x86_64' ifTrue:[arch := 'amd64'].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1135
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1136	^ {
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1137	'/usr/lib/jvm/java-6-openjdk-',arch. "/ JDK - newer linuxes
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1138	'/usr/lib/jvm/java-6-openjdk' . "/ JDK - older linuxes
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1139
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1140	'/usr/lib/jvm/java-6-openjdk-',arch, '/jre'. "/ JRE - newer linuxes
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1141	'/usr/lib/jvm/java-6-openjdk/jre' . "/ JRE - older linuxes
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1142	}
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1143
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1144	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1145	JavaRelease::OpenJDK6 new javaHomesOnUNIX
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1146	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1147
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1148	"Modified: / 21-02-2013 / 03:57:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1149	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1150
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1151	javaHomesOnWindows
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1152	"raise an error: must be redefined in concrete subclass(es)"
2153 5f9be1e4dea3 jre path Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1153
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1154	^ #() "/ There is nothing like Open JDK 6 for Windows!!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1155
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1156	"Modified: / 06-02-2013 / 13:37: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: 2153 diff changeset	1157	!
2153 5f9be1e4dea3 jre path Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1158
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1159	javaNativeMethodsImplementation
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1160	"Returns an object that imolements native methods."
2153 5f9be1e4dea3 jre path Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1161
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1162	^ JavaNativeMethodImpl_OpenJDK6
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1163
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1164	"Modified: / 16-01-2013 / 19:59:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1165	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1166
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1167	name
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1168	"superclass JavaRelease says that I am responsible to implement this method"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1169
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1170	^ 'Open JDK 6'
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1171
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1172	"Modified: / 27-10-2010 / 19:16:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1173	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1174
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1175	priority
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1176
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1177	^80
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1178	"/^70
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1179
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1180	"Created: / 22-11-2010 / 13:35:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1181	"Modified: / 04-02-2011 / 06:59:27 / 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: 2153 diff changeset	1182	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1183
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1184	selector
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1185	"Returns instance-creation selector to get the receiver.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1186	See JavaRelease class, protocol instance creation"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1187
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1188	^#openJDK6
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1189
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1190	"Created: / 27-07-2012 / 10:05:05 / 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: 2153 diff changeset	1191	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1192
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1193	!JavaRelease::OpenJDK6 methodsFor:'object conversions'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1194
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1195	as_ST_String: aJavaString
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1196	"Given a java.lang.String instance, returns a coresponfing
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1197	Smalltalk String"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1198
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1199	\| str count offs start stop \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1200
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1201	aJavaString isNil ifTrue: [ ^ nil ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1202
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1203	"/ count := aJavaString instVarNamed:'count'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1204
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1205	count := aJavaString instVarAt: 3+1"lockWord".
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1206
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1207	"/ str := aJavaString instVarNamed:'value'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1208
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1209	str := aJavaString instVarAt: 1+1"lockWord".
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1210	str size == count
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1211	ifTrue:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1212	[ "cos I don't see any reason to do this"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1213	"/ ^ str asOneByteString.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1214	^ str ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1215
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1216	"/ offs := (aJavaString instVarNamed:'offset').
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1217
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1218	offs := aJavaString instVarAt: 2+1"lockWord".
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1219
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1220	"/ start := offs + 1.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1221
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1222	start := offs + 1.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1223
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1224	"/ stop := start + (aJavaString instVarNamed:'count') - 1.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1225
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1226	stop := start + count - 1.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1227
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1228	"/ ^ ((aJavaString instVarNamed:'value') copyFrom:start to:stop) asString
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1229
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1230	^ (str copyFrom: start to: stop) asOneByteString
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1231
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1232	"Created: / 08-08-1997 / 12:02:55 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1233	"Modified: / 04-01-1999 / 23:55:08 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1234	"Modified: / 22-03-2011 / 17:21:19 / 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: 2153 diff changeset	1235	"Modified: / 08-02-2013 / 00:56: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: 2153 diff changeset	1236	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1237
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1238	as_String:aString
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1239	"Given a Smalltalk string, returns corresponsing instance of
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1240	java.lang.String"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1241
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1242	"hard-coding internas of java.lang.String here is bad ..."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1243
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1244	\|s\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1245
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1246	s := Java java_lang_String basicNew.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1247	s instVarAt:1+1"_lockWord_" put: aString.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1248	s instVarAt:3+1"_lockWord_" put: aString size.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1249	^ s
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1250
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1251	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1252	Java as_String:'hello world'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1253	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1254
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1255	"Created: / 07-08-1997 / 21:15:49 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1256	"Modified: / 08-02-2013 / 00:58: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: 2153 diff changeset	1257	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1258
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1259	!JavaRelease::OpenJDK6 methodsFor:'searching'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1260
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1261	searchForSourcePath
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1262
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1263	\| jdkHome src_zip \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1264
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1265	super searchForSourcePath.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1266
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1267	sourcePath := OrderedCollection new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1268	jdkHome := self jdkHome.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1269	jdkHome notNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1270	src_zip := jdkHome asFilename / 'src.zip'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1271	src_zip exists ifTrue:[sourcePath add: src_zip pathName].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1272	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1273
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1274	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1275	JavaRelease openJDK7 searchForSourcePath; sourcePath
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1276	JavaRelease sunJDK6 searchForSourcePath; sourcePath
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1277	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1278
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1279	"Created: / 03-09-2012 / 18:38: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: 2153 diff changeset	1280	"Modified: / 23-01-2013 / 12:22:33 / 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: 2153 diff changeset	1281	"Modified (comment): / 06-02-2013 / 12:55:15 / 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: 2153 diff changeset	1282	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1283
2789 e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1284	!JavaRelease::OpenJDK6 methodsFor:'testing'!
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1285
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1286	isJava6
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1287	^ true
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1288
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1289	"Created: / 04-10-2013 / 11:11:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1290	! !
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 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: 2153 diff changeset	1292	!JavaRelease::OpenJDK6 methodsFor:'validating'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1293
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1294	validateJavaHome2: home
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1295	"Bit of a hack, but..."
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1296	^OperatingSystem isUNIXlike
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1297	and: [(home asString includesString: 'oracle') not
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1298	and: [(home asString includesString: 'sun') not]]
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1299
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1300	"Created: / 12-02-2013 / 02:52:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1301	"Modified: / 11-04-2013 / 14:22:19 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
2462 2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1302	!
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1303
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1304	validateJavaVersionString:aVersionString
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1305	"Return true if aVersionString (which is what 'java -version' returns)
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1306	matches what I expect."
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1307
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1308	^ aVersionString matches: 'java version "1.6.*'
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1309	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1310
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1311	!JavaRelease::OpenJDK7 class methodsFor:'documentation'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1312
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1313	copyright
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1314	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1315	COPYRIGHT (c) 1996-2011 by Claus Gittinger
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1316
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1317	New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1318
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1319	COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1320	SWING Research Group, Czech Technical University in Prague
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1321
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1322	This software is furnished under a license and may be used
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1323	only in accordance with the terms of that license and with the
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1324	inclusion of the above copyright notice. This software may not
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1325	be provided or otherwise made available to, or used by, any
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1326	other person. No title to or ownership of the software is
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1327	hereby transferred.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1328
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1329	[1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1330	of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1331	see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1332	as of 1.9.2010
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1333
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1334	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1335	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1336
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1337	version_SVN
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1338	^ 'Id:: '
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1339	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1340
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1341	!JavaRelease::OpenJDK7 methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1342
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1343	javaHomesOnUNIX
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1344	\| arch \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1345
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1346	arch := OperatingSystem getSystemInfo at:#machine.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1347	arch = 'x86_64' ifTrue:[arch := 'amd64'].
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1348	arch = 'i686' ifTrue:[arch := 'i386'].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1349
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1350	^ {
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1351	'/usr/lib/jvm/java-7-openjdk-',arch. "/ JDK - newer linuxes
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1352	'/usr/lib/jvm/java-7-openjdk' . "/ JDK - older linuxes
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1353
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1354	'/usr/lib/jvm/java-7-openjdk-',arch, '/jre'."/ JRE - newer linuxes
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1355	'/usr/lib/jvm/java-7-openjdk/jre' . "/ JRE - older linuxes
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1356	}
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1357
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1358	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1359	JavaRelease::OpenJDK7 new javaHomesOnUNIX
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1360	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1361
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1362	"Created: / 11-02-2012 / 17:47:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1363	"Modified: / 13-06-2013 / 09:10: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: 2153 diff changeset	1364	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1365
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1366	javaHomesOnWindows
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1367	"raise an error: must be redefined in concrete subclass(es)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1368
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1369	^ #() "/ not yet implemented
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1370
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1371	"Modified: / 06-02-2013 / 13:37: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: 2153 diff changeset	1372	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1373
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1374	javaNativeMethodsImplementation
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1375	"Returns an object that imolements native methods."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1376
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1377	^ JavaNativeMethodImpl_OpenJDK7
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1378
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1379	"Created: / 07-02-2013 / 20:53:31 / 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: 2153 diff changeset	1380	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1381
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1382	name
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1383	^ 'Open JDK 7'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1384
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1385	"Created: / 27-07-2012 / 00:03:17 / 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: 2153 diff changeset	1386	"Modified: / 08-02-2013 / 10:23:57 / 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: 2153 diff changeset	1387	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1388
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1389	priority
2909 2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	1390	^ super priority + 10
2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	1391
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1392	"Created: / 11-02-2012 / 17:47:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2909 2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	1393	"Modified: / 11-11-2013 / 14:10:34 / 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: 2153 diff changeset	1394	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1395
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1396	selector
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1397	"Returns instance-creation selector to get the receiver.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1398	See JavaRelease class, protocol instance creation"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1399
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1400	^#openJDK7
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1401
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1402	"Created: / 27-07-2012 / 10:05:32 / 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: 2153 diff changeset	1403	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1404
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1405	!JavaRelease::OpenJDK7 methodsFor:'object conversions'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1406
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1407	as_ST_String: aJavaString
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1408	"Given a java.lang.String instance, returns a coresponfing
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1409	Smalltalk String"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1410
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1411	Java java_lang_String instSize == 5 ifTrue:[
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1412	"Old implementation"
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1413	^super as_ST_String:aJavaString
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1414	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1415	^aJavaString instVarAt: 1+1"_lockWord_".
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1416
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1417	"Created: / 08-08-1997 / 12:02:55 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1418	"Modified: / 04-01-1999 / 23:55:08 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1419	"Modified: / 22-03-2011 / 17:21:19 / 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: 2462 diff changeset	1420	"Modified: / 13-06-2013 / 09:04: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: 2153 diff changeset	1421	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1422
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1423	as_String:aString
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1424	"Given a Smalltalk string, returns corresponsing instance of
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1425	java.lang.String"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1426
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1427	\|s\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1428
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1429	Java java_lang_String instSize == 5 ifTrue:[
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1430	"Old implementation"
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1431	^super as_String:aString
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1432	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1433	s := Java java_lang_String basicNew.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1434	s instVarAt:1+1"_lockWord_" put: aString.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1435	^s
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1436
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1437	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1438	Java as_String:'hello world'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1439	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1440
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1441	"Created: / 07-08-1997 / 21:15:49 / cg"
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1442	"Modified: / 13-06-2013 / 09:04:21 / 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: 2153 diff changeset	1443	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1444
2789 e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1445	!JavaRelease::OpenJDK7 methodsFor:'testing'!
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1446
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1447	isJava6
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1448	^ false
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1449
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1450	"Created: / 04-10-2013 / 11:11:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1451	!
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1452
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1453	isJava7
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1454	^ true
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1455
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1456	"Created: / 04-10-2013 / 11:11:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1457	! !
e6109bd7dfd2 Problem highlighting optimization/cleanup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1458
2462 2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1459	!JavaRelease::OpenJDK7 methodsFor:'validating'!
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1460
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1461	validateJavaVersionString:aVersionString
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1462	"Return true if aVersionString (which is what 'java -version' returns)
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1463	matches what I expect."
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1464
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1465	^ aVersionString matches: 'java version "1.7.*'
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1466	! !
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1467
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1468	!JavaRelease::OracleJDK6 class methodsFor:'documentation'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1469
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1470	copyright
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1471	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1472	COPYRIGHT (c) 1996-2011 by Claus Gittinger
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1473
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1474	New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1475
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1476	COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1477	SWING Research Group, Czech Technical University in Prague
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1478
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1479	This software is furnished under a license and may be used
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1480	only in accordance with the terms of that license and with the
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1481	inclusion of the above copyright notice. This software may not
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1482	be provided or otherwise made available to, or used by, any
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1483	other person. No title to or ownership of the software is
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1484	hereby transferred.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1485
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1486	[1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1487	of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1488	see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1489	as of 1.9.2010
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1490
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1491	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1492	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1493
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1494	version_SVN
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1495	^ 'Id:: '
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1496	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1497
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1498	!JavaRelease::OracleJDK6 methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1499
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1500	javaHomeOnWindowsFromRegistry
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1501	"Return path to java home (either JDK or JRE) based on values in registry.
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1502	If not on windows or registry key not found, return nil"
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1503
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1504	\|entry vsn home \|
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1505
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1506	OperatingSystem isMSWINDOWSlike ifFalse:[ ^ nil ].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1507	vsn := '1.6'.
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1508
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1509	"Search for JDK first..."
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1510	entry := (OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Development Kit\', vsn).
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1511	entry notNil ifTrue:[
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1512	home := entry valueNamed:'JavaHome'.
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1513	(home notNil and:[(home := home asFilename) exists]) ifTrue:[ ^ home ].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1514	].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1515	"Search for JRE...."
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1516	entry := (OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\', vsn).
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1517	entry notNil ifTrue:[
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1518	home := entry valueNamed:'JavaHome'.
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1519	(home notNil and:[(home := home asFilename) exists]) ifTrue:[ ^ home ].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1520	].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1521
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1522	^nil
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1523
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1524	"Created: / 16-02-2013 / 02:52:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1525	"Modified: / 21-02-2013 / 03:51:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1526	!
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1527
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1528	javaHomesOnUNIX
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1529
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1530	^ #( '/usr/lib/jvm/java-6-sun' )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1531
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1532	"Created: / 22-11-2010 / 13:31:01 / 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: 2153 diff changeset	1533	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1534
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1535	javaHomesOnWindows
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1536	\|home paths \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1537
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1538	home := self javaHomeOnWindowsFromRegistry.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1539	home notNil ifTrue:[ ^ Array with: home ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1540
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1541	paths := OrderedCollection new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1542	#(
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1543	'C:\Program Files\Java'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1544	'C:\Program Files (x86)\Java'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1545	) do:[:rootpath\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1546	\| root \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1547
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1548	root := rootpath asFilename.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1549	root exists ifTrue:[
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1550	"Search for JDK first"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1551	root directoryContents do:[:dir\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1552	(dir startsWith:self javaHomeOnWindowsJDKDirectoryPrefix) ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1553	\| path \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1554	(path := root / dir) isDirectory ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1555	paths add: path
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1556	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1557	].
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1558	].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1559	"Search for JDK first"
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1560	root directoryContents do:[:dir\|
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1561	(dir startsWith:self javaHomeOnWindowsJREDirectoryPrefix) ifTrue:[
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1562	\| path \|
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1563	(path := root / dir) isDirectory ifTrue:[
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1564	paths add: path
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1565	].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1566	].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1567	].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1568
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1569	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1570	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1571
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1572	^ paths
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1573
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1574	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1575	self basicNew javaHomesOnWindows
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1576	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1577
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1578	"Modified (format): / 19-08-2011 / 00:46:40 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1579	"Modified: / 19-07-2012 / 11:04:44 / jv"
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1580	"Modified: / 21-02-2013 / 03:27:32 / 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: 2153 diff changeset	1581	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1582
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1583	javaNativeMethodsImplementation
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1584	"Returns an object that imolements native methods."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1585
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1586	^ JavaNativeMethodImpl_SunJDK6
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1587
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1588	"Created: / 06-02-2013 / 08:39: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: 2153 diff changeset	1589	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1590
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1591	name
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1592
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1593	^ 'Oracle JDK 6'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1594
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1595	"Created: / 22-11-2010 / 13:31: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: 2153 diff changeset	1596	"Modified: / 12-02-2013 / 03:03:27 / 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: 2153 diff changeset	1597	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1598
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1599	priority
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1600
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1601	"/There is no OpenJDK 6 for Windows yet...
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1602	OperatingSystem isMSWINDOWSlike ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1603	^100
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1604	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1605	^75
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1606
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1607	"Created: / 22-11-2010 / 13:35:09 / 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: 2153 diff changeset	1608	"Modified: / 19-07-2012 / 10:57:55 / jv"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1609	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1610
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1611	selector
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1612	"Returns instance-creation selector to get the receiver.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1613	See JavaRelease class, protocol instance creation"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1614
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1615	^#oracleJDK6
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1616
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1617	"Created: / 27-07-2012 / 10:05: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: 2153 diff changeset	1618	"Modified: / 12-02-2013 / 03: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: 2153 diff changeset	1619	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1620
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1621	!JavaRelease::OracleJDK6 methodsFor:'private'!
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1622
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1623	javaHomeOnWindowsJDKDirectoryPrefix
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1624	^'jdk1.6'
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1625
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1626	"Created: / 19-07-2012 / 11:04:34 / jv"
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1627	!
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1628
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1629	javaHomeOnWindowsJREDirectoryPrefix
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1630	^'jdk6'
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1631
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1632	"Created: / 21-02-2013 / 03:19:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1633	! !
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1634
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1635	!JavaRelease::OracleJDK6 methodsFor:'searching'!
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1636
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1637	searchForJavaHome
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1638	\| h \|
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1639
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1640	"Try registry first..."
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1641	h := self javaHomeOnWindowsFromRegistry.
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1642	h notNil ifTrue:[ javaHome := h. ^ javaHome ].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1643	^super searchForJavaHome
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1644
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1645
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1646
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1647	"
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1648	JavaRelease openJDK7 searchForSourcePath; sourcePath
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1649	JavaRelease sunJDK6 searchForSourcePath; sourcePath
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1650	"
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1651
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1652	"Created: / 20-02-2013 / 02:55:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1653	! !
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1654
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1655	!JavaRelease::OracleJDK6 methodsFor:'validating'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1656
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1657	validateJavaHome2: home
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1658	\| homeFromRegistry f \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1659
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1660	homeFromRegistry := self javaHomeOnWindowsFromRegistry.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1661	homeFromRegistry = home ifTrue:[ ^ true ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1662
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1663	"JDK..."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1664	(f := home / 'LICENSE') exists ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1665	f readingFileDo:[:s\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1666	((s nextLine = 'Please refer to http://java.com/license')
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1667	and:[(home / 'release') exists not
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1668	and:[(home / 'THIRDPARTYLICENSEREADME-JAVAFX.txt') exists not]]) ifTrue:[ ^ true ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1669	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1670	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1671	"JRE..."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1672	(f := home / 'COPYRIGHT') exists ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1673	f readingFileDo:[:s\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1674	(s nextLine includesString: 'Oracle') ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1675	^(home / 'LICENSE.txt') exists
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1676	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1677	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1678	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1679	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1680
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1681
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1682
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1683	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1684	JavaRelease::OracleJDK6 new validateJavaHome: 'c:\Program Files\Java\jdk1.7.0_13' asFilename
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1685	JavaRelease::OracleJDK6 new validateJavaHome: 'c:\Program Files\Java\jdk1.7.0_13\jre' asFilename
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1686	JavaRelease::OracleJDK6 new validateJavaHome: 'c:\Program Files\Java\jdk1.6.0_34' asFilename
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1687	JavaRelease::OracleJDK6 new validateJavaHome: 'c:\Program Files\Java\jdk1.6.0_34\jre' asFilename
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1688
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1689	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1690
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1691	"Created: / 12-02-2013 / 02:52: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: 2153 diff changeset	1692	"Modified: / 16-02-2013 / 02:54:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2462 2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1693	!
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1694
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1695	validateJavaVersionString:aVersionString
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1696	"Return true if aVersionString (which is what 'java -version' returns)
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1697	matches what I expect."
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1698
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1699	^ aVersionString matches: 'java version "1.6.*'
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1700	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1701
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1702	!JavaRelease::OracleJDK7 class methodsFor:'documentation'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1703
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1704	copyright
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1705	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1706	COPYRIGHT (c) 1996-2011 by Claus Gittinger
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1707
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1708	New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1709
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1710	COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1711	SWING Research Group, Czech Technical University in Prague
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1712
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1713	This software is furnished under a license and may be used
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1714	only in accordance with the terms of that license and with the
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1715	inclusion of the above copyright notice. This software may not
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1716	be provided or otherwise made available to, or used by, any
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1717	other person. No title to or ownership of the software is
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1718	hereby transferred.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1719
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1720	[1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1721	of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1722	see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1723	as of 1.9.2010
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1724
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1725	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1726	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1727
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1728	!JavaRelease::OracleJDK7 methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1729
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1730	javaHomeOnWindowsFromRegistry
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1731	"Return path to java home (either JDK or JRE) based on values in registry.
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1732	If not on windows or registry key not found, return nil"
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1733
2459 2f9323002c41 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	1734	\|entry vsn home prg\|
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1735
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1736	OperatingSystem isMSWINDOWSlike ifFalse:[ ^ nil ].
2425 424deefe5cd7 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	1737	vsn := '1.7'.
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1738
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1739	"Search for JDK first..."
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1740	entry := (OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Development Kit\', vsn).
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1741	entry notNil ifTrue:[
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1742	home := entry valueNamed:'JavaHome'.
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1743	(home notNil and:[(home := home asFilename) exists]) ifTrue:[ ^ home ].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1744	].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1745	"Search for JRE...."
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1746	entry := (OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\', vsn).
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1747	entry notNil ifTrue:[
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1748	home := entry valueNamed:'JavaHome'.
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1749	(home notNil and:[(home := home asFilename) exists]) ifTrue:[ ^ home ].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1750	].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1751
2459 2f9323002c41 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	1752	(prg := OperatingSystem getEnvironment:'ProgramFiles(x86)') notEmptyOrNil ifTrue:[
2f9323002c41 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	1753	(home := prg asFilename / 'Java' / 'jre7') exists ifTrue:[ ^ home ].
2f9323002c41 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	1754	].
2f9323002c41 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	1755	(prg := OperatingSystem getEnvironment:'ProgramFiles') notEmptyOrNil ifTrue:[
2f9323002c41 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	1756	(home := prg asFilename / 'Java' / 'jre7') exists ifTrue:[ ^ home ].
2f9323002c41 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	1757	].
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1758	^nil
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1759
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1760	"Created: / 16-02-2013 / 02:52:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1761	"Modified: / 21-02-2013 / 03:51:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1762	!
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1763
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1764	javaHomesOnUNIX
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1765
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1766	^ #( '/usr/lib/jvm/java-7-sun' )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1767
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1768	"Created: / 22-11-2010 / 13:31:01 / 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: 2153 diff changeset	1769	"Modified: / 11-02-2013 / 02:49: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: 2153 diff changeset	1770	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1771
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1772	javaHomesOnWindows
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1773	\|home paths \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1774
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1775	home := self javaHomeOnWindowsFromRegistry.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1776	home notNil ifTrue:[ ^ Array with: home ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1777
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1778	paths := OrderedCollection new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1779	#(
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1780	'C:\Program Files\Java'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1781	'C:\Program Files (x86)\Java'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1782	) do:[:rootpath\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1783	\| root \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1784
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1785	root := rootpath asFilename.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1786	root exists ifTrue:[
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1787	"Search for JDK first"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1788	root directoryContents do:[:dir\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1789	(dir startsWith:self javaHomeOnWindowsJDKDirectoryPrefix) ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1790	\| path \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1791	(path := root / dir) isDirectory ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1792	paths add: path
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1793	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1794	].
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1795	].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1796	"Search for JDK first"
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1797	root directoryContents do:[:dir\|
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1798	(dir startsWith:self javaHomeOnWindowsJREDirectoryPrefix) ifTrue:[
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1799	\| path \|
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1800	(path := root / dir) isDirectory ifTrue:[
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1801	paths add: path
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1802	].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1803	].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1804	].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1805
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1806	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1807	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1808
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1809	^ paths
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1810
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1811	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1812	self basicNew javaHomesOnWindows
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1813	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1814
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1815	"Modified (format): / 19-08-2011 / 00:46:40 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1816	"Modified: / 19-07-2012 / 11:04:44 / jv"
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1817	"Modified: / 21-02-2013 / 03:27:32 / 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: 2153 diff changeset	1818	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1819
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1820	javaNativeMethodsImplementation
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1821	"Returns an object that imolements native methods."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1822
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1823	^ JavaNativeMethodImpl_SunJDK7
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1824
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1825	"Created: / 06-02-2013 / 08:39: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: 2153 diff changeset	1826	"Modified: / 11-02-2013 / 02:50: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: 2153 diff changeset	1827	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1828
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1829	name
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1830
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1831	^ 'Oracle JDK 7'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1832
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1833	"Created: / 22-11-2010 / 13:31: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: 2153 diff changeset	1834	"Modified: / 12-02-2013 / 03:03:21 / 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: 2153 diff changeset	1835	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1836
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1837	priority
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1838
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1839	"/There is no OpenJDK 6 for Windows yet...
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1840	OperatingSystem isMSWINDOWSlike ifTrue:[
2909 2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	1841	super priority
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1842	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1843	^65
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1844
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1845	"Created: / 22-11-2010 / 13:35:09 / 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: 2153 diff changeset	1846	"Modified: / 19-07-2012 / 10:57:55 / jv"
2909 2fae1fd966be Added JavaRelease>>system which uses default system Java installation. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2789 diff changeset	1847	"Modified: / 11-11-2013 / 14:11:12 / 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: 2153 diff changeset	1848	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1849
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1850	selector
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1851	"Returns instance-creation selector to get the receiver.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1852	See JavaRelease class, protocol instance creation"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1853
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1854	^#oracleJDK7
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1855
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1856	"Created: / 27-07-2012 / 10:05: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: 2153 diff changeset	1857	"Modified: / 12-02-2013 / 03:03: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: 2153 diff changeset	1858	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1859
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1860	!JavaRelease::OracleJDK7 methodsFor:'private'!
2390 47358426d752 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2375 diff changeset	1861
47358426d752 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2375 diff changeset	1862	javaHomeOnWindowsJDKDirectoryPrefix
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1863	^'jdk1.7'
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1864
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1865	"Created: / 19-07-2012 / 11:04:34 / jv"
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1866	"Modified: / 21-02-2013 / 03:56:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2390 47358426d752 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2375 diff changeset	1867	!
47358426d752 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2375 diff changeset	1868
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1869	javaHomeOnWindowsJREDirectoryPrefix
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1870	^'jdk7'
2390 47358426d752 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2375 diff changeset	1871
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1872	"Created: / 21-02-2013 / 03:19:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2390 47358426d752 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2375 diff changeset	1873	! !
47358426d752 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2375 diff changeset	1874
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1875	!JavaRelease::OracleJDK7 methodsFor:'searching'!
2390 47358426d752 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2375 diff changeset	1876
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1877	searchForJavaHome
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1878	\| h \|
2390 47358426d752 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2375 diff changeset	1879
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1880	"Try registry first..."
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1881	h := self javaHomeOnWindowsFromRegistry.
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1882	h notNil ifTrue:[ javaHome := h. ^ javaHome ].
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1883	^super searchForJavaHome
2390 47358426d752 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2375 diff changeset	1884
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1885
2390 47358426d752 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2375 diff changeset	1886
47358426d752 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2375 diff changeset	1887	"
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1888	JavaRelease openJDK7 searchForSourcePath; sourcePath
fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1889	JavaRelease sunJDK6 searchForSourcePath; sourcePath
2390 47358426d752 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2375 diff changeset	1890	"
47358426d752 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2375 diff changeset	1891
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1892	"Created: / 20-02-2013 / 02:55:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2375 0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1893	! !
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1894
2396 fadc6d7a2f5b Updated to rev 009a0df3afce Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2390 diff changeset	1895	!JavaRelease::OracleJDK7 methodsFor:'validating'!
2375 0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1896
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1897	validateJavaHome2: home
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1898	\| homeFromRegistry f \|
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1899
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1900	homeFromRegistry := self javaHomeOnWindowsFromRegistry.
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1901	homeFromRegistry = home ifTrue:[ ^ true ].
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1902
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1903	"JDK..."
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1904	(f := home / 'release') exists ifTrue:[
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1905	f readingFileDo:[:s\|
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1906	s nextLine = 'JAVA_VERSION="1.7.0"' ifTrue:[ ^ true ]
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1907	].
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1908	].
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1909	"JRE..."
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1910	(f := home / 'COPYRIGHT') exists ifTrue:[
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1911	f readingFileDo:[:s\|
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1912	(s nextLine includesString: 'Oracle') ifTrue:[
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1913	^(home / 'THIRDPARTYLICENSEREADME-JAVAFX.txt') exists
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1914	]
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1915	].
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1916	].
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1917	^false
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1918
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1919
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1920
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1921	"
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1922	JavaRelease::OracleJDK7 new validateJavaHome: 'c:\Program Files\Java\jdk1.7.0_13' asFilename
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1923	JavaRelease::OracleJDK7 new validateJavaHome: 'c:\Program Files\Java\jdk1.7.0_13\jre' asFilename
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1924	JavaRelease::OracleJDK7 new validateJavaHome: 'c:\Program Files\Java\jdk1.6.0_34' asFilename
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1925	JavaRelease::OracleJDK7 new validateJavaHome: 'c:\Program Files\Java\jdk1.6.0_34\jre' asFilename
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1926
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1927	"
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1928
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1929	"Created: / 12-02-2013 / 02:52:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1930	"Modified: / 16-02-2013 / 02:54:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2462 2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1931	!
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1932
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1933	validateJavaVersionString:aVersionString
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1934	"Return true if aVersionString (which is what 'java -version' returns)
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1935	matches what I expect."
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1936
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	1937	^ aVersionString matches: 'java version "1.7.*'
2375 0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1938	! !
0a138040c0e1 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	1939
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1940	!JavaRelease::SunJDK122 class methodsFor:'documentation'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1941
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1942	copyright
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1943	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1944	COPYRIGHT (c) 1996-2011 by Claus Gittinger
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1945
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1946	New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1947
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1948	COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1949	SWING Research Group, Czech Technical University in Prague
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1950
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1951	This software is furnished under a license and may be used
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1952	only in accordance with the terms of that license and with the
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1953	inclusion of the above copyright notice. This software may not
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1954	be provided or otherwise made available to, or used by, any
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1955	other person. No title to or ownership of the software is
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1956	hereby transferred.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1957
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1958	[1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1959	of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1960	see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1961	as of 1.9.2010
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1962
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1963	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1964	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1965
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1966	version_SVN
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	1967	^ 'Id:: '
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1968	! !
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1969
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1970	!JavaRelease::SunJDK122 methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1971
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1972	javaHomesOnUNIX
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1973	"superclass JavaRelease says that I am responsible to implement this method"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1974
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1975	^#(
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1976	'/home/jv/Projects/JavaX/jdk1.2.2' "/On Jan Vrany's machine :-)
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1977	)
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1978
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1979	"Created: / 22-11-2010 / 13:26:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1980	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1981
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1982	javaHomesOnWindows
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1983
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1984	^ #()
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1985
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1986	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1987
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1988	name
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1989	"superclass JavaRelease says that I am responsible to implement this method"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1990
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1991	^ 'Sun JDK 1.2.2'
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1992
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	1993	"Modified: / 27-07-2012 / 00:14:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1994	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1995
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1996	priority
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1997
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1998	^10
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1999
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2000	"Created: / 22-11-2010 / 13:34:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2001	!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2002
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2003	selector
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2004	"Returns instance-creation selector to get the receiver.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2005	See JavaRelease class, protocol instance creation"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2006
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2007	^#sunJDK122
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2008
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2009	"Created: / 27-07-2012 / 10:06:03 / 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: 2153 diff changeset	2010	! !
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2011
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2012	!JavaRelease::SunJDK122 methodsFor:'displaying'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2013
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2014	displayString
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2015
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2016	^self isAvailable ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2017	self name
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2018	] ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2019	(self name , ' ' , '(not available)') asText colorizeAllWith: Color gray
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2020	]
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2021
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2022	"Created: / 27-07-2012 / 00:13: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: 2153 diff changeset	2023	! !
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2024
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2025	!JavaRelease::SunJDK122 methodsFor:'queries'!
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2026
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2027	isAvailable
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2028	"We don't really support it"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2029
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2030	^false
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2031
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2032	"Created: / 27-07-2012 / 00:04:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2033	! !
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2034
2462 2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	2035	!JavaRelease::SunJDK122 methodsFor:'validating'!
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	2036
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	2037	validateJavaVersionString:aVersionString
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	2038	"Return true if aVersionString (which is what 'java -version' returns)
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	2039	matches what I expect."
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	2040
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	2041	^ aVersionString matches: 'java version "1.2.*'
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	2042	! !
2b3a015bc970 class: JavaRelease Claus Gittinger <cg@exept.de> parents: 2459 diff changeset	2043
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2044	!JavaRelease class methodsFor:'documentation'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2045
2354 87341109a572 defined source container Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2353 diff changeset	2046	version
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	2047	^ '$Header: /cvs/stx/stx/libjava/JavaRelease.st,v 1.12 2013-09-06 00:41:26 vrany Exp $'
2354 87341109a572 defined source container Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2353 diff changeset	2048	!
87341109a572 defined source container Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2353 diff changeset	2049
2153 5f9be1e4dea3 jre path Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2050	version_CVS
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	2051	^ '$Header: /cvs/stx/stx/libjava/JavaRelease.st,v 1.12 2013-09-06 00:41:26 vrany Exp $'
2153 5f9be1e4dea3 jre path Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2052	!
5f9be1e4dea3 jre path Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2053
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2054	version_SVN
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2462 diff changeset	2055	^ 'Id:: '
2152 1cbdfbcc685c Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 749 diff changeset	2056	! !
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2153 diff changeset	2057

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 11 Nov 2013 17:27:08 +0000
branch	development
changeset 2909	2fae1fd966be
parent 2789	e6109bd7dfd2
child 2921	85ccd41f883c
permissions	-rw-r--r--