hg/stx-libjava: Java.st@02fa3319362d (annotated)

454 38f590639d65 * empty log message * cg parents: 436 diff changeset	1	"
38f590639d65 * empty log message * cg parents: 436 diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG
38f590639d65 * empty log message * cg parents: 436 diff changeset	3	All Rights Reserved
38f590639d65 * empty log message * cg parents: 436 diff changeset	4
38f590639d65 * empty log message * cg parents: 436 diff changeset	5	This software is furnished under a license and may be used
38f590639d65 * empty log message * cg parents: 436 diff changeset	6	only in accordance with the terms of that license and with the
38f590639d65 * empty log message * cg parents: 436 diff changeset	7	inclusion of the above copyright notice. This software may not
38f590639d65 * empty log message * cg parents: 436 diff changeset	8	be provided or otherwise made available to, or used by, any
38f590639d65 * empty log message * cg parents: 436 diff changeset	9	other person. No title to or ownership of the software is
38f590639d65 * empty log message * cg parents: 436 diff changeset	10	hereby transferred.
38f590639d65 * empty log message * cg parents: 436 diff changeset	11	"
38f590639d65 * empty log message * cg parents: 436 diff changeset	12
38f590639d65 * empty log message * cg parents: 436 diff changeset	13
38f590639d65 * empty log message * cg parents: 436 diff changeset	14
17 ea80d8a83063 intitial checkin cg parents: diff changeset	15	Object subclass:#Java
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	16	instanceVariableNames:''
469fe709a779 checkin from browser cg parents: 552 diff changeset	17	classVariableNames:'Classes UnresolvedClassRefs ClassPath SourceDirectories JavaHome
469fe709a779 checkin from browser cg parents: 552 diff changeset	18	Java_lang_String Java_lang_Class PrettyPrintStyle
469fe709a779 checkin from browser cg parents: 552 diff changeset	19	LastArgumentString Threads ExcludedClassPath FailedToLoadClasses'
469fe709a779 checkin from browser cg parents: 552 diff changeset	20	poolDictionaries:''
469fe709a779 checkin from browser cg parents: 552 diff changeset	21	category:'Java-Support'
17 ea80d8a83063 intitial checkin cg parents: diff changeset	22	!
ea80d8a83063 intitial checkin cg parents: diff changeset	23
454 38f590639d65 * empty log message * cg parents: 436 diff changeset	24	!Java class methodsFor:'documentation'!
38f590639d65 * empty log message * cg parents: 436 diff changeset	25
38f590639d65 * empty log message * cg parents: 436 diff changeset	26	copyright
38f590639d65 * empty log message * cg parents: 436 diff changeset	27	"
38f590639d65 * empty log message * cg parents: 436 diff changeset	28	COPYRIGHT (c) 1997 by eXept Software AG
38f590639d65 * empty log message * cg parents: 436 diff changeset	29	All Rights Reserved
38f590639d65 * empty log message * cg parents: 436 diff changeset	30
38f590639d65 * empty log message * cg parents: 436 diff changeset	31	This software is furnished under a license and may be used
38f590639d65 * empty log message * cg parents: 436 diff changeset	32	only in accordance with the terms of that license and with the
38f590639d65 * empty log message * cg parents: 436 diff changeset	33	inclusion of the above copyright notice. This software may not
38f590639d65 * empty log message * cg parents: 436 diff changeset	34	be provided or otherwise made available to, or used by, any
38f590639d65 * empty log message * cg parents: 436 diff changeset	35	other person. No title to or ownership of the software is
38f590639d65 * empty log message * cg parents: 436 diff changeset	36	hereby transferred.
38f590639d65 * empty log message * cg parents: 436 diff changeset	37	"
38f590639d65 * empty log message * cg parents: 436 diff changeset	38
38f590639d65 * empty log message * cg parents: 436 diff changeset	39
38f590639d65 * empty log message * cg parents: 436 diff changeset	40	! !
17 ea80d8a83063 intitial checkin cg parents: diff changeset	41
135 098936234135 * empty log message * cg parents: 121 diff changeset	42	!Java class methodsFor:'accessing'!
24 4a9822b95fc0 checkin from browser cg parents: 21 diff changeset	43
147 14fc6545fb32 checkin from browser cg parents: 146 diff changeset	44	classForName:aString
14fc6545fb32 checkin from browser cg parents: 146 diff changeset	45	"return a javaClass - either existing or loaded"
14fc6545fb32 checkin from browser cg parents: 146 diff changeset	46
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	47	\|cls loader classURL\|
147 14fc6545fb32 checkin from browser cg parents: 146 diff changeset	48
14fc6545fb32 checkin from browser cg parents: 146 diff changeset	49	cls := self at:aString.
14fc6545fb32 checkin from browser cg parents: 146 diff changeset	50	cls isNil ifTrue:[
340 79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	51	FailedToLoadClasses notNil ifTrue:[
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	52	(FailedToLoadClasses includes:aString) ifTrue:[
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	53	"/ ('JAVA [info]: class loading already failed: ' , aString) infoPrintCR.
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	54	^ nil
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	55	]
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	56	].
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	57
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	58	('JAVA [info]: late class loading: ' , aString) infoPrintCR.
548 063963638b8d raise -> query cg parents: 546 diff changeset	59	loader := JavaClassReader classLoaderQuerySignal query.
340 79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	60	loader isNil ifTrue:[
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	61	"/ load using default (ST/X) loader
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	62	cls := JavaClassReader loadClass:aString.
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	63	] ifFalse:[
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	64	"/ load using a Java class loader
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	65	"/ classURL := Java as_URL:('file:' , aString , '.class').
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	66	"/ loader loadClass:classURL.
340 79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	67	loader perform:#'loadClass(Ljava/lang/String;)Ljava/lang/Class;'
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	68	with:(Java as_String:aString).
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	69
340 79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	70	cls := self at:aString.
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	71	].
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	72	cls isNil ifTrue:[
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	73	FailedToLoadClasses isNil ifTrue:[
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	74	FailedToLoadClasses := Set new.
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	75	].
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	76	FailedToLoadClasses add:aString
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	77	]
147 14fc6545fb32 checkin from browser cg parents: 146 diff changeset	78	].
14fc6545fb32 checkin from browser cg parents: 146 diff changeset	79	^ cls
14fc6545fb32 checkin from browser cg parents: 146 diff changeset	80
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	81	"Created: / 18.3.1997 / 16:45:57 / cg"
340 79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	82	"Modified: / 27.4.1998 / 15:00:52 / cg"
147 14fc6545fb32 checkin from browser cg parents: 146 diff changeset	83	!
14fc6545fb32 checkin from browser cg parents: 146 diff changeset	84
90 918e2740098c resolve rewritten cg parents: 84 diff changeset	85	classNamed:aString
918e2740098c resolve rewritten cg parents: 84 diff changeset	86	^ self at:aString
32 0dbaa43a73db checkin from browser cg parents: 27 diff changeset	87	!
0dbaa43a73db checkin from browser cg parents: 27 diff changeset	88
167 77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	89	java_lang_Class
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	90	Java_lang_Class isNil ifTrue:[
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	91	Java_lang_Class := self at:'java.lang.Class'
167 77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	92	].
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	93	^ Java_lang_Class
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	94
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	95	"Created: 26.3.1997 / 13:42:59 / cg"
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	96	"Modified: 26.3.1997 / 13:46:24 / cg"
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	97	!
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	98
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	99	java_lang_String
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	100	Java_lang_String isNil ifTrue:[
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	101	Java_lang_String := self at:'java.lang.String'
167 77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	102	].
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	103	^ Java_lang_String
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	104
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	105	"Created: 26.3.1997 / 13:43:17 / cg"
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	106	"Modified: 26.3.1997 / 13:50:21 / cg"
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	107	!
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	108
188 5de467ea7e45 support color printing cg parents: 176 diff changeset	109	prettyPrintStyle
5de467ea7e45 support color printing cg parents: 176 diff changeset	110	^ PrettyPrintStyle
5de467ea7e45 support color printing cg parents: 176 diff changeset	111
5de467ea7e45 support color printing cg parents: 176 diff changeset	112	"Created: 1.8.1997 / 10:37:57 / cg"
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	113	!
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	114
538 6e695c5be20a checkin from browser cg parents: 527 diff changeset	115	systemPropertyAt:key put:something
6e695c5be20a checkin from browser cg parents: 527 diff changeset	116	JavaVM systemProperties at:key put:something
6e695c5be20a checkin from browser cg parents: 527 diff changeset	117
6e695c5be20a checkin from browser cg parents: 527 diff changeset	118	"Created: / 9.1.1999 / 14:49:35 / cg"
6e695c5be20a checkin from browser cg parents: 527 diff changeset	119	!
6e695c5be20a checkin from browser cg parents: 527 diff changeset	120
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	121	threads
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	122	Threads isNil ifTrue:[
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	123	Threads := WeakIdentityDictionary new.
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	124	].
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	125	^ Threads
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	126
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	127	"Created: 26.8.1997 / 19:53:57 / cg"
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	128	"Modified: 26.8.1997 / 19:55:27 / cg"
192 80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	129	! !
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	130
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	131	!Java class methodsFor:'accessing paths'!
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	132
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	133	addToClassPath:aPath
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	134	(ClassPath includes:aPath) ifFalse:[
369 3d0628c9b63e flush failedToLoadedClasses whenever classPath changes. cg parents: 367 diff changeset	135	ClassPath add:aPath.
3d0628c9b63e flush failedToLoadedClasses whenever classPath changes. cg parents: 367 diff changeset	136	FailedToLoadClasses := nil
192 80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	137	]
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	138
369 3d0628c9b63e flush failedToLoadedClasses whenever classPath changes. cg parents: 367 diff changeset	139	"Created: / 1.8.1997 / 21:10:07 / cg"
3d0628c9b63e flush failedToLoadedClasses whenever classPath changes. cg parents: 367 diff changeset	140	"Modified: / 17.9.1998 / 20:43:55 / cg"
192 80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	141	!
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	142
198 5543d1079a4a * empty log message * cg parents: 192 diff changeset	143	addToSourcePath:aPath
5543d1079a4a * empty log message * cg parents: 192 diff changeset	144	(SourceDirectories includes:aPath) ifFalse:[
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	145	SourceDirectories add:aPath
198 5543d1079a4a * empty log message * cg parents: 192 diff changeset	146	]
5543d1079a4a * empty log message * cg parents: 192 diff changeset	147
5543d1079a4a * empty log message * cg parents: 192 diff changeset	148	"Modified: 7.2.1997 / 19:23:55 / cg"
5543d1079a4a * empty log message * cg parents: 192 diff changeset	149	"Created: 2.8.1997 / 14:12:31 / cg"
5543d1079a4a * empty log message * cg parents: 192 diff changeset	150	!
5543d1079a4a * empty log message * cg parents: 192 diff changeset	151
192 80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	152	classPath
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	153	^ ClassPath
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	154
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	155	"Created: 7.2.1997 / 19:23:45 / cg"
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	156	"Modified: 7.2.1997 / 19:23:55 / cg"
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	157	!
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	158
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	159	classPath:aCollectionOfPaths
369 3d0628c9b63e flush failedToLoadedClasses whenever classPath changes. cg parents: 367 diff changeset	160	ClassPath := aCollectionOfPaths asOrderedCollection.
3d0628c9b63e flush failedToLoadedClasses whenever classPath changes. cg parents: 367 diff changeset	161	FailedToLoadClasses := nil
192 80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	162
369 3d0628c9b63e flush failedToLoadedClasses whenever classPath changes. cg parents: 367 diff changeset	163	"Created: / 7.2.1997 / 19:23:45 / cg"
3d0628c9b63e flush failedToLoadedClasses whenever classPath changes. cg parents: 367 diff changeset	164	"Modified: / 17.9.1998 / 20:44:09 / cg"
192 80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	165	!
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	166
276 70c74d8bd43f added path exclusion cg parents: 274 diff changeset	167	excludedClassPath
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	168	^ ExcludedClassPath
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	169
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	170	"Modified: / 7.2.1997 / 19:23:55 / cg"
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	171	"Created: / 27.1.1998 / 21:57:13 / cg"
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	172	!
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	173
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	174	isExcludedFromClassPath:fileName
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	175	\|nm\|
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	176
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	177	nm := fileName asFilename pathName.
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	178	ExcludedClassPath do:[:excludedPath \|
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	179	(nm startsWith:excludedPath) ifTrue:[^ true].
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	180	].
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	181	^ false
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	182
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	183	"Created: / 27.1.1998 / 22:00:40 / cg"
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	184	!
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	185
201 912c48b6e7ac * empty log message * cg parents: 200 diff changeset	186	javaHome
912c48b6e7ac * empty log message * cg parents: 200 diff changeset	187	^ JavaHome
912c48b6e7ac * empty log message * cg parents: 200 diff changeset	188
912c48b6e7ac * empty log message * cg parents: 200 diff changeset	189	"Created: 6.8.1997 / 00:53:19 / cg"
912c48b6e7ac * empty log message * cg parents: 200 diff changeset	190	!
912c48b6e7ac * empty log message * cg parents: 200 diff changeset	191
912c48b6e7ac * empty log message * cg parents: 200 diff changeset	192	javaHome:aPath
912c48b6e7ac * empty log message * cg parents: 200 diff changeset	193	JavaHome := aPath
912c48b6e7ac * empty log message * cg parents: 200 diff changeset	194
912c48b6e7ac * empty log message * cg parents: 200 diff changeset	195	"Created: 6.8.1997 / 00:53:23 / cg"
912c48b6e7ac * empty log message * cg parents: 200 diff changeset	196	!
912c48b6e7ac * empty log message * cg parents: 200 diff changeset	197
192 80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	198	removeFromClassPath:aPath
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	199	(ClassPath includes:aPath) ifTrue:[
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	200	ClassPath remove:aPath
192 80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	201	]
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	202
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	203	"Modified: 7.2.1997 / 19:23:55 / cg"
80dde7b3cd73 checkin from browser cg parents: 191 diff changeset	204	"Created: 1.8.1997 / 21:10:21 / cg"
188 5de467ea7e45 support color printing cg parents: 176 diff changeset	205	!
5de467ea7e45 support color printing cg parents: 176 diff changeset	206
198 5543d1079a4a * empty log message * cg parents: 192 diff changeset	207	removeFromSourcePath:aPath
5543d1079a4a * empty log message * cg parents: 192 diff changeset	208	(SourceDirectories includes:aPath) ifTrue:[
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	209	SourceDirectories remove:aPath
198 5543d1079a4a * empty log message * cg parents: 192 diff changeset	210	]
5543d1079a4a * empty log message * cg parents: 192 diff changeset	211
5543d1079a4a * empty log message * cg parents: 192 diff changeset	212	"Modified: 7.2.1997 / 19:23:55 / cg"
5543d1079a4a * empty log message * cg parents: 192 diff changeset	213	"Created: 2.8.1997 / 14:13:01 / cg"
5543d1079a4a * empty log message * cg parents: 192 diff changeset	214	!
5543d1079a4a * empty log message * cg parents: 192 diff changeset	215
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	216	sourceDirectories
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	217	^ SourceDirectories
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	218	!
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	219
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	220	sourceDirectories:aCollectionOfPaths
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	221	SourceDirectories := aCollectionOfPaths asOrderedCollection
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	222
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	223	"
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	224	Java
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	225	sourceDirectories:#(
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	226	'/phys/ibm3/java/src'
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	227	)
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	228	"
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	229
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	230
261 d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	231	!
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	232
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	233	sourcePath
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	234	^ SourceDirectories
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	235
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	236	"Created: / 16.1.1998 / 13:26:55 / cg"
24 4a9822b95fc0 checkin from browser cg parents: 21 diff changeset	237	! !
4a9822b95fc0 checkin from browser cg parents: 21 diff changeset	238
135 098936234135 * empty log message * cg parents: 121 diff changeset	239	!Java class methodsFor:'class initialization'!
47 b5f63f59c2c1 some net primitives added cg parents: 43 diff changeset	240
b5f63f59c2c1 some net primitives added cg parents: 43 diff changeset	241	initAllClasses
340 79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	242	\|system\|
147 14fc6545fb32 checkin from browser cg parents: 146 diff changeset	243
340 79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	244	FailedToLoadClasses := nil.
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	245	self initAllStaticFields.
147 14fc6545fb32 checkin from browser cg parents: 146 diff changeset	246
340 79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	247	system := self classForName:'java.lang.System'.
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	248	system isInitialized ifFalse:[
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	249	self initSystemClass.
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	250	].
147 14fc6545fb32 checkin from browser cg parents: 146 diff changeset	251
340 79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	252	self allClassesDo:[:cls \|
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	253	cls isInitialized ifFalse:[
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	254	cls classInit
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	255	]
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	256	]
47 b5f63f59c2c1 some net primitives added cg parents: 43 diff changeset	257
509 b06f892d2f52 * empty log message * cg parents: 508 diff changeset	258	"
b06f892d2f52 * empty log message * cg parents: 508 diff changeset	259	Java initAllClasses
b06f892d2f52 * empty log message * cg parents: 508 diff changeset	260	"
b06f892d2f52 * empty log message * cg parents: 508 diff changeset	261
b06f892d2f52 * empty log message * cg parents: 508 diff changeset	262	"Modified: / 27.11.1998 / 00:33:05 / cg"
47 b5f63f59c2c1 some net primitives added cg parents: 43 diff changeset	263	!
b5f63f59c2c1 some net primitives added cg parents: 43 diff changeset	264
102 de5ab089cf47 checkin from browser cg parents: 98 diff changeset	265	initAllStaticFields
de5ab089cf47 checkin from browser cg parents: 98 diff changeset	266	self allClassesDo:[:cls \|
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	267	cls initializeStaticFields
102 de5ab089cf47 checkin from browser cg parents: 98 diff changeset	268	]
de5ab089cf47 checkin from browser cg parents: 98 diff changeset	269
de5ab089cf47 checkin from browser cg parents: 98 diff changeset	270	!
de5ab089cf47 checkin from browser cg parents: 98 diff changeset	271
146 0aa6ccd0c1b1 checkin from browser cg parents: 145 diff changeset	272	initSystemClass
198 5543d1079a4a * empty log message * cg parents: 192 diff changeset	273	\|system\|
5543d1079a4a * empty log message * cg parents: 192 diff changeset	274
5543d1079a4a * empty log message * cg parents: 192 diff changeset	275	system := Java at:'java.lang.System'.
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	276	system isNil ifTrue:[
542 260c8c742627 checkin from browser cg parents: 538 diff changeset	277	"/ JavaVM initializeVM.
260c8c742627 checkin from browser cg parents: 538 diff changeset	278	"/ system := Java at:'java.lang.System'.
260c8c742627 checkin from browser cg parents: 538 diff changeset	279	"/ system isNil ifTrue:[
550 2dc6c18efc89 checkin from browser cg parents: 548 diff changeset	280	self warn:'JavaVM: no ''' , 'java.lang.System' asText allBold , ''' class.'.
2dc6c18efc89 checkin from browser cg parents: 548 diff changeset	281	"/ self error:'no ''java.lang.System'' class'.
261 d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	282	^ self
542 260c8c742627 checkin from browser cg parents: 538 diff changeset	283	"/ ].
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	284	].
429 99990a8a3509 * empty log message * cg parents: 426 diff changeset	285
99990a8a3509 * empty log message * cg parents: 426 diff changeset	286	system classInit.
200 518c67464105 * empty log message * cg parents: 198 diff changeset	287	(system implements:#'initializeSystemClass()V') ifTrue:[
414 0f33ff2c2fd3 checkin from browser cg parents: 407 diff changeset	288	system perform: "invokeStatic:" #'initializeSystemClass()V'.
198 5543d1079a4a * empty log message * cg parents: 192 diff changeset	289	].
146 0aa6ccd0c1b1 checkin from browser cg parents: 145 diff changeset	290
147 14fc6545fb32 checkin from browser cg parents: 146 diff changeset	291	"
14fc6545fb32 checkin from browser cg parents: 146 diff changeset	292	Java initSystemClass
215 f8e28c816033 * empty log message * cg parents: 214 diff changeset	293
f8e28c816033 * empty log message * cg parents: 214 diff changeset	294	(Java at:'java.lang.System')
261 d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	295	perform:#'getProperty(Ljava/lang/String;)Ljava/lang/String;'
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	296	with:(Java as_String:'java.home')
147 14fc6545fb32 checkin from browser cg parents: 146 diff changeset	297	"
14fc6545fb32 checkin from browser cg parents: 146 diff changeset	298
429 99990a8a3509 * empty log message * cg parents: 426 diff changeset	299	"Modified: / 10.11.1998 / 12:39:58 / cg"
146 0aa6ccd0c1b1 checkin from browser cg parents: 145 diff changeset	300	!
0aa6ccd0c1b1 checkin from browser cg parents: 145 diff changeset	301
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	302	initialize
602 6aa4830a55b3 checkin from browser cg parents: 601 diff changeset	303	\|tryJDK1_2 tryJDK1_2beta tryJDK1_17 tryJDK1_16 tryJDK1_15 tryJDK1_13 tryJDK1_11 tryJDK1_03
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	304	tryJDK1_02 directoriesToSearch possibleJavaDirs
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	305	jHome jClasses jSources mozillaHome tryNetscape4_0
665 02fa3319362d checkin from browser cg parents: 664 diff changeset	306	tryMS tryBorland tryVA tryJRE1_1 fn d classPath\|
02fa3319362d checkin from browser cg parents: 664 diff changeset	307
02fa3319362d checkin from browser cg parents: 664 diff changeset	308	classPath := OperatingSystem getEnvironment:'CLASSPATH'.
364 571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	309
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	310	"/ those dirs are tried to search for a java system ...
665 02fa3319362d checkin from browser cg parents: 664 diff changeset	311	OperatingSystem isUNIXlike ifTrue:[
02fa3319362d checkin from browser cg parents: 664 diff changeset	312	possibleJavaDirs := #(
02fa3319362d checkin from browser cg parents: 664 diff changeset	313	'/opt'
02fa3319362d checkin from browser cg parents: 664 diff changeset	314	'/opt/java'
02fa3319362d checkin from browser cg parents: 664 diff changeset	315	'/home/java'
02fa3319362d checkin from browser cg parents: 664 diff changeset	316	'/home2/java'
02fa3319362d checkin from browser cg parents: 664 diff changeset	317	'/phys/exept/home/java'
02fa3319362d checkin from browser cg parents: 664 diff changeset	318	'/phys/exept/home2/java'
02fa3319362d checkin from browser cg parents: 664 diff changeset	319	'/usr/local/java'
02fa3319362d checkin from browser cg parents: 664 diff changeset	320	'/usr/local/lib'
02fa3319362d checkin from browser cg parents: 664 diff changeset	321	'/usr/local'
02fa3319362d checkin from browser cg parents: 664 diff changeset	322	'/usr/lib'
02fa3319362d checkin from browser cg parents: 664 diff changeset	323	'/usr/java'
02fa3319362d checkin from browser cg parents: 664 diff changeset	324	'/usr'
02fa3319362d checkin from browser cg parents: 664 diff changeset	325	).
02fa3319362d checkin from browser cg parents: 664 diff changeset	326	classPath notNil ifTrue:[
02fa3319362d checkin from browser cg parents: 664 diff changeset	327	classPath := classPath asCollectionOfSubstringsSeparatedBy:$:.
02fa3319362d checkin from browser cg parents: 664 diff changeset	328	].
02fa3319362d checkin from browser cg parents: 664 diff changeset	329	].
02fa3319362d checkin from browser cg parents: 664 diff changeset	330	OperatingSystem isMSWINDOWSlike ifTrue:[
02fa3319362d checkin from browser cg parents: 664 diff changeset	331	possibleJavaDirs := #(
02fa3319362d checkin from browser cg parents: 664 diff changeset	332	'c:\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	333	'c:\java\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	334	'c:\Programs\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	335	'c:\Programme\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	336	'c:\Program Files\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	337	'c:\Program Files\JavaSoft\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	338	'c:\Program Files\JavaSoft\JRE\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	339	'd:\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	340	'd:\java\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	341	'd:\Programs\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	342	'd:\Programme\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	343	'd:\Program Files\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	344	'd:\Program Files\JavaSoft\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	345	'd:\Program Files\JavaSoft\JRE\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	346	'\\exept\home\java\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	347	'\\exept\home2\java\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	348	'\\exept\cg\home\java\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	349	'\\exept\cg\home2\java\'
02fa3319362d checkin from browser cg parents: 664 diff changeset	350	).
02fa3319362d checkin from browser cg parents: 664 diff changeset	351	"/ TODO: look in the registry ...
02fa3319362d checkin from browser cg parents: 664 diff changeset	352	classPath notNil ifTrue:[
02fa3319362d checkin from browser cg parents: 664 diff changeset	353	classPath := classPath asCollectionOfSubstringsSeparatedBy:$;.
02fa3319362d checkin from browser cg parents: 664 diff changeset	354	].
02fa3319362d checkin from browser cg parents: 664 diff changeset	355	].
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	356
1beb3676dcd4 better search for java cg parents: 559 diff changeset	357	possibleJavaDirs := possibleJavaDirs collect:[:dirName \| dirName asFilename].
1beb3676dcd4 better search for java cg parents: 559 diff changeset	358	possibleJavaDirs := possibleJavaDirs select:[:dir \| dir exists].
1beb3676dcd4 better search for java cg parents: 559 diff changeset	359	possibleJavaDirs := possibleJavaDirs select:[:dir \| dir isDirectory].
1beb3676dcd4 better search for java cg parents: 559 diff changeset	360
665 02fa3319362d checkin from browser cg parents: 664 diff changeset	361	classPath notNil ifTrue:[
02fa3319362d checkin from browser cg parents: 664 diff changeset	362	possibleJavaDirs := classPath , possibleJavaDirs.
02fa3319362d checkin from browser cg parents: 664 diff changeset	363	possibleJavaDirs := possibleJavaDirs select:[:dir \| dir exists].
02fa3319362d checkin from browser cg parents: 664 diff changeset	364	].
02fa3319362d checkin from browser cg parents: 664 diff changeset	365
364 571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	366	FailedToLoadClasses := nil.
283 71cad9a8e4a3 do not use JDK1.2 yet cg parents: 280 diff changeset	367
71cad9a8e4a3 do not use JDK1.2 yet cg parents: 280 diff changeset	368	"/ cannot use JDK1.2 yet (they made so many changes ...)
559 8632100a5ecb preps for JRE-use cg parents: 558 diff changeset	369	"/ tryJDK1_2 := true.
8632100a5ecb preps for JRE-use cg parents: 558 diff changeset	370	"/ tryJDK1_2beta := true.
8632100a5ecb preps for JRE-use cg parents: 558 diff changeset	371
8632100a5ecb preps for JRE-use cg parents: 558 diff changeset	372	"/ cannot use those yet (they also made changes ...)
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	373	"/ tryVA := true.
469fe709a779 checkin from browser cg parents: 552 diff changeset	374	"/ tryNetscape4_0 := true.
664 521682217662 checkin from browser cg parents: 662 diff changeset	375	tryMS := true.
559 8632100a5ecb preps for JRE-use cg parents: 558 diff changeset	376
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	377	tryBorland := true.
607 687bee3deaea checkin from browser cg parents: 606 diff changeset	378	"/ tryJDK1_17 := true. "/ needs String_intern
372 1c7da8a0e6ab checkin from browser cg parents: 369 diff changeset	379	tryJDK1_16 := true.
364 571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	380	tryJDK1_15 := true.
665 02fa3319362d checkin from browser cg parents: 664 diff changeset	381	tryJDK1_13 := true.
372 1c7da8a0e6ab checkin from browser cg parents: 369 diff changeset	382	tryJDK1_11 := true.
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	383	"/ tryJDK1_03 := false.
469fe709a779 checkin from browser cg parents: 552 diff changeset	384	"/ tryJDK1_02 := false.
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	385
559 8632100a5ecb preps for JRE-use cg parents: 558 diff changeset	386	tryJRE1_1 := true.
8632100a5ecb preps for JRE-use cg parents: 558 diff changeset	387
276 70c74d8bd43f added path exclusion cg parents: 274 diff changeset	388	ExcludedClassPath := OrderedCollection new.
70c74d8bd43f added path exclusion cg parents: 274 diff changeset	389
364 571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	390	directoriesToSearch := OrderedCollection new.
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	391
559 8632100a5ecb preps for JRE-use cg parents: 558 diff changeset	392	tryJRE1_1 == true ifTrue:[
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	393	possibleJavaDirs do:[:d \|
1beb3676dcd4 better search for java cg parents: 559 diff changeset	394	directoriesToSearch add:(d construct:'JRE\1.1').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	395	directoriesToSearch add:(d construct:'JRE/1.1').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	396	]
559 8632100a5ecb preps for JRE-use cg parents: 558 diff changeset	397	].
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	398	tryVA == true ifTrue:[
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	399	directoriesToSearch add:('C:\IBMVJava\EAB\jdk' asFilename).
407 568d64f6d7d6 checkin from browser cg parents: 393 diff changeset	400	].
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	401	tryBorland == true ifTrue:[
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	402	directoriesToSearch add:('c:\jbuilder2\java' asFilename).
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	403	].
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	404
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	405	tryMS == true ifTrue:[
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	406	"/ (fn := 'c:\windows\java\classes' asFilename) exists ifTrue:[
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	407	"/ directoriesToSearch add:('c:\windows\java\classes' asFilename).
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	408	"/ fn directoryContents do:[:f \|
38a5f940feb7 checkin from browser cg parents: 454 diff changeset	409	"/ (f asFilename hasSuffix:'zip') ifTrue:[
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	410	"/ directoriesToSearch add:(fn construct:f)
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	411	"/ ]
38a5f940feb7 checkin from browser cg parents: 454 diff changeset	412	"/ ]
38a5f940feb7 checkin from browser cg parents: 454 diff changeset	413	"/ ].
659 5b92a855ef25 classPath search cg parents: 654 diff changeset	414
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	415	(fn := 'c:\windows\java\packages' asFilename) exists ifTrue:[
38a5f940feb7 checkin from browser cg parents: 454 diff changeset	416	fn directoryContents do:[:f \|
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	417	(f asFilename hasSuffix:'zip') ifTrue:[
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	418	directoriesToSearch add:(fn construct:f)
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	419	]
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	420	]
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	421	].
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	422	(fn := 'c:\windows\java\trustlib' asFilename) exists ifTrue:[
38a5f940feb7 checkin from browser cg parents: 454 diff changeset	423	fn directoryContents do:[:f \|
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	424	(f asFilename hasSuffix:'zip') ifTrue:[
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	425	directoriesToSearch add:(fn construct:f)
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	426	]
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	427	]
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	428	]
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	429	].
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	430
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	431	tryJDK1_2 == true ifTrue:[
1beb3676dcd4 better search for java cg parents: 559 diff changeset	432	possibleJavaDirs do:[:d \|
1beb3676dcd4 better search for java cg parents: 559 diff changeset	433	directoriesToSearch add:(d construct:'jdk1.2').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	434	directoriesToSearch add:(d construct:'jdk12').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	435	]
364 571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	436	].
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	437
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	438	tryJDK1_2beta == true ifTrue:[
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	439	possibleJavaDirs do:[:d \|
1beb3676dcd4 better search for java cg parents: 559 diff changeset	440	directoriesToSearch add:(d construct:'jdk12beta2').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	441	directoriesToSearch add:(d construct:'jdk1.2beta2').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	442	]
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	443	].
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	444
602 6aa4830a55b3 checkin from browser cg parents: 601 diff changeset	445	tryJDK1_17 == true ifTrue:[
6aa4830a55b3 checkin from browser cg parents: 601 diff changeset	446	possibleJavaDirs do:[:d \|
6aa4830a55b3 checkin from browser cg parents: 601 diff changeset	447	directoriesToSearch add:(d construct:'jdk117').
6aa4830a55b3 checkin from browser cg parents: 601 diff changeset	448	directoriesToSearch add:(d construct:'jdk1.1.7').
6aa4830a55b3 checkin from browser cg parents: 601 diff changeset	449	]
6aa4830a55b3 checkin from browser cg parents: 601 diff changeset	450	].
6aa4830a55b3 checkin from browser cg parents: 601 diff changeset	451
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	452	tryJDK1_16 == true ifTrue:[
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	453	possibleJavaDirs do:[:d \|
1beb3676dcd4 better search for java cg parents: 559 diff changeset	454	directoriesToSearch add:(d construct:'jdk116').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	455	directoriesToSearch add:(d construct:'jdk1.1.6').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	456	]
372 1c7da8a0e6ab checkin from browser cg parents: 369 diff changeset	457	].
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	458
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	459	tryJDK1_15 == true ifTrue:[
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	460	possibleJavaDirs do:[:d \|
1beb3676dcd4 better search for java cg parents: 559 diff changeset	461	directoriesToSearch add:(d construct:'jdk115').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	462	directoriesToSearch add:(d construct:'jdk1.1.5').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	463	]
283 71cad9a8e4a3 do not use JDK1.2 yet cg parents: 280 diff changeset	464	].
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	465
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	466	tryJDK1_13 == true ifTrue:[
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	467	possibleJavaDirs do:[:d \|
1beb3676dcd4 better search for java cg parents: 559 diff changeset	468	directoriesToSearch add:(d construct:'jdk113').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	469	directoriesToSearch add:(d construct:'jdk1.1.3').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	470	]
364 571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	471	].
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	472
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	473	tryJDK1_11 == true ifTrue:[
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	474	possibleJavaDirs do:[:d \|
1beb3676dcd4 better search for java cg parents: 559 diff changeset	475	directoriesToSearch add:(d construct:'jdk111').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	476	directoriesToSearch add:(d construct:'jdk1.1.1').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	477	]
372 1c7da8a0e6ab checkin from browser cg parents: 369 diff changeset	478	].
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	479
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	480	tryJDK1_03 == true ifTrue:[
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	481	possibleJavaDirs do:[:d \|
1beb3676dcd4 better search for java cg parents: 559 diff changeset	482	directoriesToSearch add:(d construct:'jdk103').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	483	directoriesToSearch add:(d construct:'jdk1.0.3').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	484	]
372 1c7da8a0e6ab checkin from browser cg parents: 369 diff changeset	485	].
364 571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	486
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	487	tryJDK1_02 == true ifTrue:[
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	488	possibleJavaDirs do:[:d \|
1beb3676dcd4 better search for java cg parents: 559 diff changeset	489	directoriesToSearch add:(d construct:'jdk102').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	490	directoriesToSearch add:(d construct:'jdk1.0.2').
1beb3676dcd4 better search for java cg parents: 559 diff changeset	491	]
550 2dc6c18efc89 checkin from browser cg parents: 548 diff changeset	492	].
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	493	directoriesToSearch := directoriesToSearch collect:[:dirName \| dirName asFilename].
1beb3676dcd4 better search for java cg parents: 559 diff changeset	494	directoriesToSearch := directoriesToSearch select:[:dir \| dir exists].
659 5b92a855ef25 classPath search cg parents: 654 diff changeset	495	directoriesToSearch := directoriesToSearch select:[:dir \|
5b92a855ef25 classPath search cg parents: 654 diff changeset	496	((dir hasSuffix:'jar')
5b92a855ef25 classPath search cg parents: 654 diff changeset	497	or:[(dir hasSuffix:'zip')
5b92a855ef25 classPath search cg parents: 654 diff changeset	498	or:[dir isDirectory]]).
5b92a855ef25 classPath search cg parents: 654 diff changeset	499	].
550 2dc6c18efc89 checkin from browser cg parents: 548 diff changeset	500
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	501	jClasses := OrderedCollection new.
38a5f940feb7 checkin from browser cg parents: 454 diff changeset	502
364 571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	503	directoriesToSearch do:[:aPath \|
659 5b92a855ef25 classPath search cg parents: 654 diff changeset	504	\|dir libDir toAdd\|
364 571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	505
571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	506	dir := aPath asFilename.
571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	507	(jHome isNil and:[dir exists]) ifTrue:[
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	508	((dir hasSuffix:'jar')
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	509	or:[dir hasSuffix:'zip']) ifTrue:[
662 5f66aeda7635 * empty log message * cg parents: 659 diff changeset	510	toAdd := dir pathName.
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	511	] ifFalse:[
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	512
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	513	"/ there must be either a classes directory,
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	514	"/ or a classes.zip file ...
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	515	(libDir := dir construct:'lib') exists ifTrue:[
615 2645eb9c9d3b checkin from browser cg parents: 608 diff changeset	516	((libDir construct:'classes') exists
2645eb9c9d3b checkin from browser cg parents: 608 diff changeset	517	and:[(libDir construct:'classes') isDirectory]) ifTrue:[
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	518	jHome := aPath.
659 5b92a855ef25 classPath search cg parents: 654 diff changeset	519	toAdd := (libDir constructString:'classes').
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	520	] ifFalse:[
615 2645eb9c9d3b checkin from browser cg parents: 608 diff changeset	521	(libDir construct:'classes.zip') exists ifTrue:[
559 8632100a5ecb preps for JRE-use cg parents: 558 diff changeset	522	jHome := aPath.
659 5b92a855ef25 classPath search cg parents: 654 diff changeset	523	toAdd := (libDir constructString:'classes.zip').
559 8632100a5ecb preps for JRE-use cg parents: 558 diff changeset	524	] ifFalse:[
615 2645eb9c9d3b checkin from browser cg parents: 608 diff changeset	525	(libDir construct:'rt.zip') exists ifTrue:[
2645eb9c9d3b checkin from browser cg parents: 608 diff changeset	526	jHome := aPath.
659 5b92a855ef25 classPath search cg parents: 654 diff changeset	527	toAdd := (libDir constructString:'rt.zip').
615 2645eb9c9d3b checkin from browser cg parents: 608 diff changeset	528	]
364 571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	529	]
571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	530	]
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	531	].
358 3ae6682e3861 for now, add idefix to the classPath. cg parents: 340 diff changeset	532	].
274 0a9193e3f2be * empty log message * cg parents: 270 diff changeset	533	].
659 5b92a855ef25 classPath search cg parents: 654 diff changeset	534	toAdd notNil ifTrue:[
662 5f66aeda7635 * empty log message * cg parents: 659 diff changeset	535	Transcript showCR:'Adding to classPath: ' , toAdd.
659 5b92a855ef25 classPath search cg parents: 654 diff changeset	536	jClasses add:toAdd.
5b92a855ef25 classPath search cg parents: 654 diff changeset	537	].
239 6834fd8e8550 checkin from browser cg parents: 228 diff changeset	538	].
188 5de467ea7e45 support color printing cg parents: 176 diff changeset	539
239 6834fd8e8550 checkin from browser cg parents: 228 diff changeset	540	self javaHome:jHome.
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	541	self classPath:jClasses.
364 571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	542
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	543	jHome isNil ifTrue:[
38a5f940feb7 checkin from browser cg parents: 454 diff changeset	544	Transcript showCR:'no java home directory found'.
38a5f940feb7 checkin from browser cg parents: 454 diff changeset	545	] ifFalse:[
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	546	jHome := jHome asFilename.
1beb3676dcd4 better search for java cg parents: 559 diff changeset	547	Transcript showCR:'Found javaHome in: ' , jHome pathName.
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	548
567 1beb3676dcd4 better search for java cg parents: 559 diff changeset	549	(jSources := jHome construct:'source') exists ifFalse:[
1beb3676dcd4 better search for java cg parents: 559 diff changeset	550	(jSources := jHome construct:'src') exists ifFalse:[
1beb3676dcd4 better search for java cg parents: 559 diff changeset	551	(jSources := jHome construct:'sources') exists ifFalse:[
571 b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	552	(jSources := jHome construct:'src.zip') exists ifFalse:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	553	jSources := nil.
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	554	]
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	555	]
364 571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	556	]
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	557	].
364 571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	558
457 38a5f940feb7 checkin from browser cg parents: 454 diff changeset	559	jSources isNil ifTrue:[
38a5f940feb7 checkin from browser cg parents: 454 diff changeset	560	Transcript showCR:'no java source directory found'.
38a5f940feb7 checkin from browser cg parents: 454 diff changeset	561	] ifFalse:[
38a5f940feb7 checkin from browser cg parents: 454 diff changeset	562	Transcript showCR:'Found javaSources in: ' , jSources pathName.
38a5f940feb7 checkin from browser cg parents: 454 diff changeset	563	self sourceDirectories:(Array with:jSources pathName).
38a5f940feb7 checkin from browser cg parents: 454 diff changeset	564	].
364 571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	565	].
188 5de467ea7e45 support color printing cg parents: 176 diff changeset	566
367 510b061cf0d8 checkin from browser cg parents: 364 diff changeset	567	directoriesToSearch := OrderedCollection new.
510b061cf0d8 checkin from browser cg parents: 364 diff changeset	568	directoriesToSearch add:'/usr/local/java/moz3_0/lib_unix'.
605 537f1988b780 checkin from browser cg parents: 604 diff changeset	569	directoriesToSearch add:'..\..\..\cg\java\java\ns30_unix.zip'.
641 79545e4f055c checkin from browser cg parents: 615 diff changeset	570	d := Smalltalk projectDirectoryForClass:self.
79545e4f055c checkin from browser cg parents: 615 diff changeset	571	d notNil ifTrue:[
79545e4f055c checkin from browser cg parents: 615 diff changeset	572	directoriesToSearch add:((d asFilename construct:'java') constructString:'ns30_unix.zip').
79545e4f055c checkin from browser cg parents: 615 diff changeset	573	].
367 510b061cf0d8 checkin from browser cg parents: 364 diff changeset	574
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	575	tryVA == true ifTrue:[
407 568d64f6d7d6 checkin from browser cg parents: 393 diff changeset	576	directoriesToSearch add:'C:\IBMVJava\EAB\bdk'.
568d64f6d7d6 checkin from browser cg parents: 393 diff changeset	577	].
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	578	tryNetscape4_0 == true ifTrue:[
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	579	directoriesToSearch add:'C:\Programme\Netscape\Communicator\Program\Java\Classes\java40.jar'.
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	580	].
557 469fe709a779 checkin from browser cg parents: 552 diff changeset	581	tryBorland == true ifTrue:[
414 0f33ff2c2fd3 checkin from browser cg parents: 407 diff changeset	582	directoriesToSearch addAll:#(
0f33ff2c2fd3 checkin from browser cg parents: 407 diff changeset	583	'C:\jbuilder2\lib\jbuilder.zip'
0f33ff2c2fd3 checkin from browser cg parents: 407 diff changeset	584	'C:\jbuilder2\lib\jbcl2.0.jar'
0f33ff2c2fd3 checkin from browser cg parents: 407 diff changeset	585	'C:\jbuilder2\lib\jbcl2.0-res.jar'
0f33ff2c2fd3 checkin from browser cg parents: 407 diff changeset	586	'C:\jbuilder2\lib\swingall.jar'
0f33ff2c2fd3 checkin from browser cg parents: 407 diff changeset	587	'C:\jbuilder2\lib\jgl3.1.0.jar'
0f33ff2c2fd3 checkin from browser cg parents: 407 diff changeset	588	'C:\jbuilder2\lib\jctable.jar'
0f33ff2c2fd3 checkin from browser cg parents: 407 diff changeset	589	'C:\jbuilder2\lib\jcchart.jar'
0f33ff2c2fd3 checkin from browser cg parents: 407 diff changeset	590	'C:\jbuilder2\lib\jcbwt.jar'
0f33ff2c2fd3 checkin from browser cg parents: 407 diff changeset	591	)
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	592	].
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	593
367 510b061cf0d8 checkin from browser cg parents: 364 diff changeset	594	directoriesToSearch do:[:aPath \|
510b061cf0d8 checkin from browser cg parents: 364 diff changeset	595	\|dir classDir\|
510b061cf0d8 checkin from browser cg parents: 364 diff changeset	596
510b061cf0d8 checkin from browser cg parents: 364 diff changeset	597	dir := aPath asFilename.
605 537f1988b780 checkin from browser cg parents: 604 diff changeset	598	(dir exists) ifTrue:[
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	599	((dir hasSuffix:'jar')
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	600	or:[dir hasSuffix:'zip']) ifTrue:[
605 537f1988b780 checkin from browser cg parents: 604 diff changeset	601	Transcript showCR:'Adding to classPath: ' , dir pathName.
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	602	Java addToClassPath:dir.
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	603	] ifFalse:[
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	604	mozillaHome := dir.
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	605	classDir := (dir construct:'classes').
605 537f1988b780 checkin from browser cg parents: 604 diff changeset	606	classDir exists ifTrue:[
537f1988b780 checkin from browser cg parents: 604 diff changeset	607	Transcript showCR:'Adding to classPath: ' , classDir pathName.
537f1988b780 checkin from browser cg parents: 604 diff changeset	608	Java addToClassPath:classDir pathName.
537f1988b780 checkin from browser cg parents: 604 diff changeset	609	].
537f1988b780 checkin from browser cg parents: 604 diff changeset	610
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	611	"/
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	612	"/ care to only load mozilla classes from there ...
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	613	"/ i.e. ignore the java/sun stuff found there.
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	614	"/
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	615	ExcludedClassPath add:(classDir construct:'java') pathName.
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	616	ExcludedClassPath add:(classDir construct:'sun') pathName.
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	617	]
367 510b061cf0d8 checkin from browser cg parents: 364 diff changeset	618	]
241 bb25b3861830 checkin from browser cg parents: 239 diff changeset	619	].
188 5de467ea7e45 support color printing cg parents: 176 diff changeset	620	self initializePrettyPrintStyle.
5de467ea7e45 support color printing cg parents: 176 diff changeset	621
274 0a9193e3f2be * empty log message * cg parents: 270 diff changeset	622	"
364 571d544bf2d0 search more directories for javaHome. cg parents: 360 diff changeset	623	Java initialize.
274 0a9193e3f2be * empty log message * cg parents: 270 diff changeset	624	JavaVM initializeVM
0a9193e3f2be * empty log message * cg parents: 270 diff changeset	625	"
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	626
664 521682217662 checkin from browser cg parents: 662 diff changeset	627	"Modified: / 29.1.2000 / 21:14:48 / cg"
188 5de467ea7e45 support color printing cg parents: 176 diff changeset	628	!
5de467ea7e45 support color printing cg parents: 176 diff changeset	629
5de467ea7e45 support color printing cg parents: 176 diff changeset	630	initializePrettyPrintStyle
5de467ea7e45 support color printing cg parents: 176 diff changeset	631	PrettyPrintStyle := IdentityDictionary new.
5de467ea7e45 support color printing cg parents: 176 diff changeset	632	PrettyPrintStyle at:#accessAttribute put:(#color -> (Color red:0 green:0 blue:25)).
5de467ea7e45 support color printing cg parents: 176 diff changeset	633	PrettyPrintStyle at:#className put:(Array with:(#color -> Color black) with:#bold).
5de467ea7e45 support color printing cg parents: 176 diff changeset	634	PrettyPrintStyle at:#methodName put:(Array with:(#color -> Color black) with:#bold).
5de467ea7e45 support color printing cg parents: 176 diff changeset	635	PrettyPrintStyle at:#code put:(#color -> Color black).
5de467ea7e45 support color printing cg parents: 176 diff changeset	636
5de467ea7e45 support color printing cg parents: 176 diff changeset	637
5de467ea7e45 support color printing cg parents: 176 diff changeset	638	"
5de467ea7e45 support color printing cg parents: 176 diff changeset	639	Java initializePrettyPrintStyle
5de467ea7e45 support color printing cg parents: 176 diff changeset	640	"
5de467ea7e45 support color printing cg parents: 176 diff changeset	641
5de467ea7e45 support color printing cg parents: 176 diff changeset	642	"Created: 1.8.1997 / 11:08:43 / cg"
5de467ea7e45 support color printing cg parents: 176 diff changeset	643	"Modified: 1.8.1997 / 11:09:58 / cg"
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	644	!
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	645
47 b5f63f59c2c1 some net primitives added cg parents: 43 diff changeset	646	reinitAllClasses
b5f63f59c2c1 some net primitives added cg parents: 43 diff changeset	647	self markAllClassesUninitialized.
b5f63f59c2c1 some net primitives added cg parents: 43 diff changeset	648	self initAllClasses
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 248 diff changeset	649
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 248 diff changeset	650	"
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 248 diff changeset	651	Java reinitAllClasses
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 248 diff changeset	652	"
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 248 diff changeset	653
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 248 diff changeset	654	"Modified: / 4.1.1998 / 00:34:29 / cg"
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	655	!
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	656
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	657	reinitialize
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	658	"/ all JavaThreads are lost on a restart (for now)
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	659
340 79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	660	FailedToLoadClasses := nil.
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	661	Threads := nil.
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	662
285 10bf4fdcd02f allow multiple java applets to be open cg parents: 283 diff changeset	663	"
10bf4fdcd02f allow multiple java applets to be open cg parents: 283 diff changeset	664	Java reinitialize
10bf4fdcd02f allow multiple java applets to be open cg parents: 283 diff changeset	665	"
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	666
285 10bf4fdcd02f allow multiple java applets to be open cg parents: 283 diff changeset	667	"Created: / 26.8.1997 / 20:07:00 / cg"
340 79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	668	"Modified: / 27.4.1998 / 14:57:23 / cg"
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	669	!
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	670
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	671	startupJavaSystem
527 7eb6f6291fea * empty log message * cg parents: 514 diff changeset	672	\|javaEventThread haveEventThread haveScreenUpdater\|
285 10bf4fdcd02f allow multiple java applets to be open cg parents: 283 diff changeset	673
340 79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	674	FailedToLoadClasses := nil.
79f09bb1ac21 remember classes which failed to load - dont try those again. cg parents: 324 diff changeset	675
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	676	"/
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	677	"/ check if already running
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	678	"/
301 2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	679
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	680	haveEventThread := true.
527 7eb6f6291fea * empty log message * cg parents: 514 diff changeset	681	javaEventThread := JavaVM javaEventThread.
7eb6f6291fea * empty log message * cg parents: 514 diff changeset	682	(javaEventThread isNil or:[javaEventThread isDead]) ifTrue:[
301 2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	683	haveEventThread := false
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	684	].
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	685
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	686	haveScreenUpdater := false.
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	687	haveEventThread ifTrue:[
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	688	self threads do:[:aJavaThread \|
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	689	aJavaThread name = 'JAVA-Screen Updater' ifTrue:[
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	690	aJavaThread isDead ifFalse:[
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	691	"/ already running
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	692	haveScreenUpdater := true
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	693	]
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	694	]
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	695	].
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	696	].
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	697
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	698	(haveEventThread and:[haveScreenUpdater]) ifTrue:[
2945ec2eee92 better reinit (look for both event-thread AND screenUpdater thread) cg parents: 285 diff changeset	699	^ self
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	700	].
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	701
436 8ac4dcd7fba9 in #startupJavaSystem: cg parents: 429 diff changeset	702	JavaClass orderOfClassInits isNil ifTrue:[
8ac4dcd7fba9 in #startupJavaSystem: cg parents: 429 diff changeset	703	"/ the very first start ...
8ac4dcd7fba9 in #startupJavaSystem: cg parents: 429 diff changeset	704	'JAVA [info]: (re)initializing JAVA environment completely ...' infoPrintCR.
285 10bf4fdcd02f allow multiple java applets to be open cg parents: 283 diff changeset	705
436 8ac4dcd7fba9 in #startupJavaSystem: cg parents: 429 diff changeset	706	JavaVM initializeVM.
8ac4dcd7fba9 in #startupJavaSystem: cg parents: 429 diff changeset	707	] ifFalse:[
654 da8d060a3150 checkin from browser cg parents: 648 diff changeset	708	JavaVM initializeVMIfNoEventThreadRunning
436 8ac4dcd7fba9 in #startupJavaSystem: cg parents: 429 diff changeset	709	].
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	710	'JAVA [info]: done JAVA initialization.' infoPrintCR.
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	711
285 10bf4fdcd02f allow multiple java applets to be open cg parents: 283 diff changeset	712	"
10bf4fdcd02f allow multiple java applets to be open cg parents: 283 diff changeset	713	Java startupJavaSystem
10bf4fdcd02f allow multiple java applets to be open cg parents: 283 diff changeset	714	"
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	715
654 da8d060a3150 checkin from browser cg parents: 648 diff changeset	716	"Modified: / 24.12.1999 / 01:37:49 / cg"
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	717	!
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	718
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	719	terminateAllThreads
305 872463871468 checkin from browser cg parents: 301 diff changeset	720	\|myself threadsToKill\|
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	721
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	722	Threads isNil ifTrue:[
270 6f21225aab53 * empty log message * cg parents: 267 diff changeset	723	^ self
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	724	].
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	725
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	726	myself := Processor activeProcess.
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	727
305 872463871468 checkin from browser cg parents: 301 diff changeset	728	threadsToKill := IdentitySet new.
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	729	Threads do:[:aJavaThread \|
270 6f21225aab53 * empty log message * cg parents: 267 diff changeset	730	aJavaThread ~~ myself ifTrue:[
6f21225aab53 * empty log message * cg parents: 267 diff changeset	731	(aJavaThread isNil or:[aJavaThread == 0]) ifFalse:[
6f21225aab53 * empty log message * cg parents: 267 diff changeset	732	(aJavaThread isMemberOf:JavaProcess) ifTrue:[
6f21225aab53 * empty log message * cg parents: 267 diff changeset	733	aJavaThread isDead ifFalse:[
305 872463871468 checkin from browser cg parents: 301 diff changeset	734	threadsToKill add:aJavaThread
270 6f21225aab53 * empty log message * cg parents: 267 diff changeset	735	]
6f21225aab53 * empty log message * cg parents: 267 diff changeset	736	]
6f21225aab53 * empty log message * cg parents: 267 diff changeset	737	]
6f21225aab53 * empty log message * cg parents: 267 diff changeset	738	]
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	739	].
305 872463871468 checkin from browser cg parents: 301 diff changeset	740	threadsToKill do:[:aThread \|
527 7eb6f6291fea * empty log message * cg parents: 514 diff changeset	741	aThread == JavaVM javaScreenUpdaterThread ifTrue:[self halt].
654 da8d060a3150 checkin from browser cg parents: 648 diff changeset	742	aThread == JavaVM javaEventQueueThread ifTrue:[self halt].
305 872463871468 checkin from browser cg parents: 301 diff changeset	743	aThread terminate
872463871468 checkin from browser cg parents: 301 diff changeset	744	].
248 964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	745	Threads := nil.
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	746
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	747	"
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	748	Java terminateAllThreads
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	749	"
964ad5f9e8bc no reinit - multiple browsers cg parents: 241 diff changeset	750
270 6f21225aab53 * empty log message * cg parents: 267 diff changeset	751	"Created: / 26.8.1997 / 19:57:40 / cg"
654 da8d060a3150 checkin from browser cg parents: 648 diff changeset	752	"Modified: / 24.12.1999 / 02:34:53 / cg"
47 b5f63f59c2c1 some net primitives added cg parents: 43 diff changeset	753	! !
b5f63f59c2c1 some net primitives added cg parents: 43 diff changeset	754
135 098936234135 * empty log message * cg parents: 121 diff changeset	755	!Java class methodsFor:'enumerating'!
43 2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	756
90 918e2740098c resolve rewritten cg parents: 84 diff changeset	757	allClasses
208 054c2bbc03e8 * empty log message * cg parents: 205 diff changeset	758	^ Classes ? #()
054c2bbc03e8 * empty log message * cg parents: 205 diff changeset	759
280 274951f1502c checkin from browser cg parents: 279 diff changeset	760	"
274951f1502c checkin from browser cg parents: 279 diff changeset	761	\|if\|
274951f1502c checkin from browser cg parents: 279 diff changeset	762
274951f1502c checkin from browser cg parents: 279 diff changeset	763	if := Java at:'java.awt.GraphicsEnvironment'.
274951f1502c checkin from browser cg parents: 279 diff changeset	764	Java allClasses select:[:aClass \|
274951f1502c checkin from browser cg parents: 279 diff changeset	765	aClass hasInterface:if
274951f1502c checkin from browser cg parents: 279 diff changeset	766	]
274951f1502c checkin from browser cg parents: 279 diff changeset	767	"
274951f1502c checkin from browser cg parents: 279 diff changeset	768
274951f1502c checkin from browser cg parents: 279 diff changeset	769	"Modified: / 28.1.1998 / 01:42:04 / cg"
90 918e2740098c resolve rewritten cg parents: 84 diff changeset	770	!
918e2740098c resolve rewritten cg parents: 84 diff changeset	771
43 2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	772	allClassesDo:aBlock
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	773	Classes notNil ifTrue:[
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	774	Classes do:aBlock
43 2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	775	]
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	776	! !
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	777
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	778	!Java class methodsFor:'object conversions'!
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	779
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	780	as_Float:aNumber
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	781	"convert an ST-float into a Java Float"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	782
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	783	\|i\|
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	784
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	785	i := (Java at:'java.lang.Float') new.
261 d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	786	i perform:#'<init>(F)V' with:(aNumber asShortFloat).
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	787	^ i
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	788
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	789	"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	790	Java as_Float:1
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	791	Java as_Float:3.14159
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	792	"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	793
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	794	"Created: 7.8.1997 / 21:21:13 / cg"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	795	"Modified: 7.8.1997 / 21:22:05 / cg"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	796	!
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	797
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	798	as_Hashtable:aDictionary
261 d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	799	"given a smalltalk dictionary, create and return
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	800	a Java hashTable for it"
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	801
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	802	\|hashTable\|
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	803
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	804	hashTable := (self classForName:'java.util.Hashtable') new.
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	805	aDictionary keysAndValuesDo:[:k :v \|
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	806	\|sk sv jk jv\|
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	807
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	808	(sk := k) isSymbol ifTrue:[
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	809	sk := sk asString
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	810	].
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	811	(sv := v) isSymbol ifTrue:[
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	812	sv := sv asString
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	813	].
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	814	jk := self as_Object:sk.
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	815	jv := self as_Object:sv.
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	816
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	817	hashTable
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	818	perform:#'put(Ljava/lang/Object;Ljava/lang/Object;)Ljava/lang/Object;'
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	819	with:jk
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	820	with:jv.
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	821	].
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	822	^ hashTable
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	823
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	824	"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	825	Java as_Hashtable:(Dictionary new
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	826	at:'hello' put:'Hallo';
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	827	at:'world' put:'Welt';
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	828	yourself)
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	829	"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	830
261 d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	831	"Modified: / 14.1.1998 / 17:02:13 / cg"
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	832	!
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	833
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	834	as_Integer:anInteger
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	835	"convert an ST-integer into a Java Integer"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	836
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	837	\|i\|
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	838
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	839	i := (Java at:'java.lang.Integer') new.
261 d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	840	i perform:#'<init>(I)V' with:anInteger.
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	841	^ i
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	842
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	843	"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	844	Java as_Integer:1
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	845	"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	846
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	847	"Modified: 7.8.1997 / 21:19:37 / cg"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	848	"Created: 7.8.1997 / 21:21:13 / cg"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	849	!
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	850
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	851	as_Object:anObject
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	852	"convert an ST-Object into a Java Object"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	853
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	854	anObject isString ifTrue:[
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	855	^ self as_String:anObject
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	856	].
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	857	anObject isInteger ifTrue:[
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	858	^ self as_Integer:anObject
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	859	].
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	860
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	861	self halt.
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	862
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	863	"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	864	Java as_Object:'hello world'
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	865	"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	866
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	867	"Created: 7.8.1997 / 21:15:38 / cg"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	868	"Modified: 7.8.1997 / 21:20:07 / cg"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	869	!
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	870
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	871	as_ST_String:aJavaString
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	872	"hard-coding internas of java.lang.String here is bad ..."
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	873
407 568d64f6d7d6 checkin from browser cg parents: 393 diff changeset	874	\|str count offs start stop\|
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	875
514 a1f3d99a4194 checkin from browser cg parents: 509 diff changeset	876	aJavaString isNil ifTrue:[^ nil].
a1f3d99a4194 checkin from browser cg parents: 509 diff changeset	877
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	878	"/ count := aJavaString instVarNamed:'count'.
509 b06f892d2f52 * empty log message * cg parents: 508 diff changeset	879	count := aJavaString instVarAt:3. "/ (JavaSlotIndexCache string_slot_count).
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	880
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	881	"/ str := aJavaString instVarNamed:'value'
509 b06f892d2f52 * empty log message * cg parents: 508 diff changeset	882	str := aJavaString instVarAt:1. "/ (JavaSlotIndexCache string_slot_value).
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	883
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	884	str size == count ifTrue:[
407 568d64f6d7d6 checkin from browser cg parents: 393 diff changeset	885	^ str
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	886	].
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	887
407 568d64f6d7d6 checkin from browser cg parents: 393 diff changeset	888	"/ offs := (aJavaString instVarNamed:'offset').
509 b06f892d2f52 * empty log message * cg parents: 508 diff changeset	889	offs := aJavaString instVarAt:2. "/ (JavaSlotIndexCache string_slot_offset).
407 568d64f6d7d6 checkin from browser cg parents: 393 diff changeset	890
568d64f6d7d6 checkin from browser cg parents: 393 diff changeset	891	"/ start := offs + 1.
568d64f6d7d6 checkin from browser cg parents: 393 diff changeset	892	start := offs + 1.
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	893
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	894	"/ stop := start + (aJavaString instVarNamed:'count') - 1.
407 568d64f6d7d6 checkin from browser cg parents: 393 diff changeset	895	stop := start + count - 1.
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	896
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	897	"/ ^ ((aJavaString instVarNamed:'value') copyFrom:start to:stop) asString
407 568d64f6d7d6 checkin from browser cg parents: 393 diff changeset	898	^ (str copyFrom:start to:stop) asString
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	899
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	900	"Created: / 8.8.1997 / 12:02:55 / cg"
514 a1f3d99a4194 checkin from browser cg parents: 509 diff changeset	901	"Modified: / 4.1.1999 / 23:55:08 / cg"
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	902	!
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	903
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	904	as_String:aString
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	905	"convert an ST-String into a Java String"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	906
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	907	"hard-coding internas of java.lang.String here is bad ..."
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	908
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	909	\|s\|
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	910
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	911	s := Java_lang_String basicNew.
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	912	s instVarNamed:'value' put: aString.
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	913	s instVarNamed:'offset' put: 0.
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	914	s instVarNamed:'count' put: aString size.
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	915	^ s
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	916
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	917	"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	918	Java as_String:'hello world'
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	919	"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	920
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	921	"Created: 7.8.1997 / 21:15:49 / cg"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	922	"Modified: 7.8.1997 / 21:19:37 / cg"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	923	!
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	924
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	925	as_URL:aString
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	926	"convert an ST-String into a Java String"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	927
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	928	"hard-coding internas of java.lang.String here is bad ..."
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	929
608 b0d71dcc94f6 kludge for MSDOS volumes cg parents: 607 diff changeset	930	\|u s\|
b0d71dcc94f6 kludge for MSDOS volumes cg parents: 607 diff changeset	931
b0d71dcc94f6 kludge for MSDOS volumes cg parents: 607 diff changeset	932	s := aString.
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	933
608 b0d71dcc94f6 kludge for MSDOS volumes cg parents: 607 diff changeset	934	"/ kludge for volume
b0d71dcc94f6 kludge for MSDOS volumes cg parents: 607 diff changeset	935	OperatingSystem isMSDOSlike ifTrue:[
b0d71dcc94f6 kludge for MSDOS volumes cg parents: 607 diff changeset	936	((s size > 1) and:[(s at:2) == $:]) ifTrue:[
b0d71dcc94f6 kludge for MSDOS volumes cg parents: 607 diff changeset	937	s := 'file:' , (s copy at:2 put:$\|)
b0d71dcc94f6 kludge for MSDOS volumes cg parents: 607 diff changeset	938	]
b0d71dcc94f6 kludge for MSDOS volumes cg parents: 607 diff changeset	939	].
421 165be3b9ee05 * empty log message * cg parents: 419 diff changeset	940	u := (self at:'java.net.URL') newCleared.
608 b0d71dcc94f6 kludge for MSDOS volumes cg parents: 607 diff changeset	941	u perform:#'<init>(Ljava/lang/String;)V' with:(self as_String:s).
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	942	^ u
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	943
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	944	"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	945	Java as_URL:'http://www.altavista.com'
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	946	Java as_URL:'file:/foo/bar'
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	947	"
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	948
421 165be3b9ee05 * empty log message * cg parents: 419 diff changeset	949	"Created: / 7.8.1997 / 21:15:49 / cg"
608 b0d71dcc94f6 kludge for MSDOS volumes cg parents: 607 diff changeset	950	"Modified: / 25.9.1999 / 22:22:21 / cg"
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	951	! !
11cd2ad78854 * empty log message * cg parents: 203 diff changeset	952
168 90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	953	!Java class methodsFor:'queries'!
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	954
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	955	smalltalkClassFor:typeRef
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	956	self halt.
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	957	"/ (typeString startsWith:'[[') ifTrue:[
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	958	"/ ^ Array
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	959	"/ ].
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	960	"/ (typeString startsWith:'[F') ifTrue:[
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	961	"/ ^ FloatArray
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	962	"/ ].
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	963	self halt.
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	964
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	965	"Modified: 7.4.1997 / 13:33:46 / cg"
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	966	!
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	967
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	968	smalltalkDerefType:typeString
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	969	(typeString startsWith:'[') ifTrue:[
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	970	^ typeString copyFrom:2
168 90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	971	].
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	972	self halt.
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	973
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	974	"Modified: 7.4.1997 / 13:13:24 / cg"
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	975	! !
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	976
135 098936234135 * empty log message * cg parents: 121 diff changeset	977	!Java class methodsFor:'registering java classes'!
17 ea80d8a83063 intitial checkin cg parents: diff changeset	978
ea80d8a83063 intitial checkin cg parents: diff changeset	979	at:aJavaName
43 2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	980	"search & return for a class by name;
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	981	if there is no such class, return nil.
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	982	The argument, aJavaName may be either an internal name
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	983	(sep'd by slashes) or an external name (sep'd by periods).
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	984	The 'java/lang' standard packages prefix may be ommitted."
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	985
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	986	\|sym nm cls\|
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	987
17 ea80d8a83063 intitial checkin cg parents: diff changeset	988	Classes isNil ifTrue:[^ nil].
43 2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	989
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	990	sym := aJavaName asSymbolIfInterned.
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	991	sym notNil ifTrue:[
360 e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	992	cls := Classes at:sym ifAbsent:nil.
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	993	cls notNil ifTrue:[^ cls].
43 2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	994	].
17 ea80d8a83063 intitial checkin cg parents: diff changeset	995
43 2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	996	nm := aJavaName.
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	997	(nm includes:$.) ifTrue:[
360 e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	998	nm := (nm asString copyReplaceAll:$. with:$/).
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	999	sym := nm asSymbolIfInterned.
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1000	sym notNil ifTrue:[
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1001	cls := Classes at:sym ifAbsent:nil.
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1002	cls notNil ifTrue:[^ cls].
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1003	].
43 2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1004	].
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1005
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1006	(nm includes:$/) ifFalse:[
360 e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1007	"/
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1008	"/ try java.lang.Foo
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1009	"/
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1010	nm := 'java/lang/' , nm.
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1011	sym := nm asSymbolIfInterned.
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1012	sym notNil ifTrue:[
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1013	cls := Classes at:sym ifAbsent:nil.
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1014	cls notNil ifTrue:[^ cls].
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1015	].
43 2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1016	].
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1017
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1018	^ nil
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1019
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1020	"
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1021	Java at:'java/lang/String'
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1022	Java at:'java.lang.String'
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1023	Java at:'String'
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1024	Java at:'System'
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1025	Java at:'Foo'
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1026	"
360 e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1027
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1028	"Modified: / 18.7.1998 / 22:55:16 / cg"
17 ea80d8a83063 intitial checkin cg parents: diff changeset	1029	!
ea80d8a83063 intitial checkin cg parents: diff changeset	1030
ea80d8a83063 intitial checkin cg parents: diff changeset	1031	at:aJavaName put:aJavaClass
591 0a52b3e7c77f checkin from browser cg parents: 580 diff changeset	1032	\|nameSymbol oldClass\|
90 918e2740098c resolve rewritten cg parents: 84 diff changeset	1033
17 ea80d8a83063 intitial checkin cg parents: diff changeset	1034	Classes isNil ifTrue:[
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	1035	Classes := IdentityDictionary new.
17 ea80d8a83063 intitial checkin cg parents: diff changeset	1036	].
90 918e2740098c resolve rewritten cg parents: 84 diff changeset	1037
918e2740098c resolve rewritten cg parents: 84 diff changeset	1038	nameSymbol := aJavaName asSymbol.
918e2740098c resolve rewritten cg parents: 84 diff changeset	1039	(Classes includesKey:nameSymbol) ifTrue:[
591 0a52b3e7c77f checkin from browser cg parents: 580 diff changeset	1040	oldClass := Classes at:nameSymbol.
0a52b3e7c77f checkin from browser cg parents: 580 diff changeset	1041	oldClass == aJavaClass ifTrue:[
0a52b3e7c77f checkin from browser cg parents: 580 diff changeset	1042	^ self
0a52b3e7c77f checkin from browser cg parents: 580 diff changeset	1043	].
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	1044	('JAVA: class ' , aJavaName , ' is already loaded') infoPrintCR.
591 0a52b3e7c77f checkin from browser cg parents: 580 diff changeset	1045	self updateClassRefsFrom:oldClass to:aJavaClass.
65 cc8721023892 * empty log message * cg parents: 54 diff changeset	1046	].
54 f37bcefb7091 avoid loading classes twice cg parents: 47 diff changeset	1047
90 918e2740098c resolve rewritten cg parents: 84 diff changeset	1048	Classes at:nameSymbol put:aJavaClass.
918e2740098c resolve rewritten cg parents: 84 diff changeset	1049	nameSymbol == #'java/lang/String' ifTrue:[
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	1050	Java_lang_String := aJavaClass
90 918e2740098c resolve rewritten cg parents: 84 diff changeset	1051	].
21 b9dd73f299dd checkin from browser cg parents: 17 diff changeset	1052
43 2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1053	"/ UnresolvedClassRefs notNil ifTrue:[
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1054	"/ UnresolvedClassRefs do:[:toResolve \|
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1055	"/ ]
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1056	"/ ].
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1057
27 4560bb77bb36 checkin from browser cg parents: 24 diff changeset	1058	self changed:#classes
17 ea80d8a83063 intitial checkin cg parents: diff changeset	1059
ea80d8a83063 intitial checkin cg parents: diff changeset	1060	"Created: 17.4.1996 / 23:29:31 / cg"
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	1061	"Modified: 7.8.1997 / 19:15:58 / cg"
21 b9dd73f299dd checkin from browser cg parents: 17 diff changeset	1062	!
b9dd73f299dd checkin from browser cg parents: 17 diff changeset	1063
168 90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	1064	flushAllJavaResources
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	1065	self flushClasses.
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	1066
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	1067	ObjectMemory allObjectsDo:[:someObject \|
318 8720093188f7 debugPrints cg parents: 313 diff changeset	1068	someObject isBehavior ifTrue:[
8720093188f7 debugPrints cg parents: 313 diff changeset	1069	someObject isJavaClass ifTrue:[
8720093188f7 debugPrints cg parents: 313 diff changeset	1070	someObject setConstantPool:nil.
8720093188f7 debugPrints cg parents: 313 diff changeset	1071	someObject setInterfaces:nil.
8720093188f7 debugPrints cg parents: 313 diff changeset	1072	someObject setMethodDictionary:(MethodDictionary new).
8720093188f7 debugPrints cg parents: 313 diff changeset	1073	'JAVA [info]: flushing ' print. someObject fullName printCR.
8720093188f7 debugPrints cg parents: 313 diff changeset	1074	]
8720093188f7 debugPrints cg parents: 313 diff changeset	1075	].
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	1076	"/ (someObject isKindOf:JavaMethod) ifTrue:[
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	1077	"/ someObject setJavaClass:nil.
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	1078	"/ someObject setExceptionTable:nil.
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	1079	"/ ].
318 8720093188f7 debugPrints cg parents: 313 diff changeset	1080	(someObject isMemberOf:JavaUnresolvedClassConstant) ifTrue:[
8720093188f7 debugPrints cg parents: 313 diff changeset	1081	someObject constantPool:nil
8720093188f7 debugPrints cg parents: 313 diff changeset	1082	].
168 90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	1083	].
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	1084	self flushClasses
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	1085
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	1086	"
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	1087	Java flushAllJavaResources
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	1088	"
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	1089
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	1090	"Modified: / 16.10.1998 / 01:21:30 / cg"
168 90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	1091	!
90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	1092
21 b9dd73f299dd checkin from browser cg parents: 17 diff changeset	1093	flushClasses
167 77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	1094	Classes := UnresolvedClassRefs := nil.
168 90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	1095	Smalltalk keys copy do:[:aKey \|
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	1096	(aKey startsWith:'JAVA::') ifTrue:[ Smalltalk removeKey:aKey ]
168 90e39cb3fa04 * empty log message * cg parents: 167 diff changeset	1097	].
167 77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	1098	Java_lang_String := Java_lang_Class := nil.
261 d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1099	JavaVM releaseAllJavaResources.
90 918e2740098c resolve rewritten cg parents: 84 diff changeset	1100	JavaUnresolvedConstant flushPatchLists.
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	1101	Debugger newDebugger.
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 421 diff changeset	1102	ObjectMemory flushCaches.
21 b9dd73f299dd checkin from browser cg parents: 17 diff changeset	1103
b9dd73f299dd checkin from browser cg parents: 17 diff changeset	1104	"
b9dd73f299dd checkin from browser cg parents: 17 diff changeset	1105	Java flushClasses
b9dd73f299dd checkin from browser cg parents: 17 diff changeset	1106	"
b9dd73f299dd checkin from browser cg parents: 17 diff changeset	1107
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 421 diff changeset	1108	"Modified: / 5.11.1998 / 20:12:47 / cg"
21 b9dd73f299dd checkin from browser cg parents: 17 diff changeset	1109	!
b9dd73f299dd checkin from browser cg parents: 17 diff changeset	1110
43 2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1111	markAllClassesUninitialized
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1112	self allClassesDo:[:aJavaClass \|
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	1113	aJavaClass markUninitialized
43 2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1114	].
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1115
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1116	"
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1117	Java markAllClassesUninitialized
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1118	"
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1119	!
2c4ca2eb8d07 checkin from browser cg parents: 32 diff changeset	1120
21 b9dd73f299dd checkin from browser cg parents: 17 diff changeset	1121	rememberUnresolved:anUnresolvedClassRef
90 918e2740098c resolve rewritten cg parents: 84 diff changeset	1122	('JAVA: remember unresolved class: ' , anUnresolvedClassRef fullName) infoPrintCR.
918e2740098c resolve rewritten cg parents: 84 diff changeset	1123
918e2740098c resolve rewritten cg parents: 84 diff changeset	1124	UnresolvedClassRefs isNil ifTrue:[
393 1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1125	UnresolvedClassRefs := Dictionary new.
90 918e2740098c resolve rewritten cg parents: 84 diff changeset	1126	].
393 1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1127	UnresolvedClassRefs
1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1128	at:anUnresolvedClassRef fullName
1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1129	put:anUnresolvedClassRef
21 b9dd73f299dd checkin from browser cg parents: 17 diff changeset	1130
393 1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1131	"Created: / 18.4.1996 / 00:05:31 / cg"
1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1132	"Modified: / 19.10.1998 / 20:57:44 / cg"
90 918e2740098c resolve rewritten cg parents: 84 diff changeset	1133	!
918e2740098c resolve rewritten cg parents: 84 diff changeset	1134
162 15b1e9c8e2f5 preps for class-remove cg parents: 147 diff changeset	1135	removeClass:aJavaClass
15b1e9c8e2f5 preps for class-remove cg parents: 147 diff changeset	1136	"/ remove it from myself
15b1e9c8e2f5 preps for class-remove cg parents: 147 diff changeset	1137
393 1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1138	\|javaName sym nm cls p ns\|
162 15b1e9c8e2f5 preps for class-remove cg parents: 147 diff changeset	1139
15b1e9c8e2f5 preps for class-remove cg parents: 147 diff changeset	1140	javaName := aJavaClass fullName.
15b1e9c8e2f5 preps for class-remove cg parents: 147 diff changeset	1141
15b1e9c8e2f5 preps for class-remove cg parents: 147 diff changeset	1142	sym := javaName asSymbolIfInterned.
15b1e9c8e2f5 preps for class-remove cg parents: 147 diff changeset	1143	sym notNil ifTrue:[
360 e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1144	cls := Classes at:sym ifAbsent:nil.
162 15b1e9c8e2f5 preps for class-remove cg parents: 147 diff changeset	1145	].
15b1e9c8e2f5 preps for class-remove cg parents: 147 diff changeset	1146	cls isNil ifTrue:[
360 e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1147	nm := javaName.
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1148	(nm includes:$.) ifTrue:[
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1149	"/
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1150	"/ try pckg/.../name
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1151	"/
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1152	nm := (nm asString copyReplaceAll:$. with:$/).
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1153	sym := nm asSymbolIfInterned.
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1154	sym notNil ifTrue:[
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1155	cls := Classes at:sym ifAbsent:nil.
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1156	].
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1157	].
162 15b1e9c8e2f5 preps for class-remove cg parents: 147 diff changeset	1158	].
212 9b5e1b60d0c2 checkin from browser cg parents: 208 diff changeset	1159	(cls notNil and:[cls == aJavaClass]) ifTrue:[
360 e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1160	Classes removeKey:sym.
e3df9401df00 use #copyReplaceAll:with: cg parents: 358 diff changeset	1161	self updateClassRefsFrom:aJavaClass to:nil.
162 15b1e9c8e2f5 preps for class-remove cg parents: 147 diff changeset	1162	].
393 1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1163	Smalltalk removeKey:('JAVA::' , javaName) asSymbol.
592 2728f2aa4c30 checkin from browser cg parents: 591 diff changeset	1164	Smalltalk removeKey:javaName asSymbol.
2728f2aa4c30 checkin from browser cg parents: 591 diff changeset	1165	Smalltalk removeKey:((javaName , '') copy replaceAll:$/ with:$.) asSymbol.
393 1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1166
1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1167	"/ remove myself from the JAVA::-::-:: namespace
1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1168	"/ (which exists for convenient smalltalk access only)
162 15b1e9c8e2f5 preps for class-remove cg parents: 147 diff changeset	1169
393 1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1170	p := aJavaClass nameSpacePath.
1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1171	p knownAsSymbol ifTrue:[
1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1172	ns := Smalltalk at:p asSymbol.
1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1173	(ns notNil and:[ns isNamespace]) ifTrue:[
592 2728f2aa4c30 checkin from browser cg parents: 591 diff changeset	1174	Smalltalk removeKey:(p , '::' , aJavaClass lastName) asSymbol
393 1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1175	]
1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1176	].
1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1177
1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1178	"Modified: / 19.10.1998 / 20:58:49 / cg"
162 15b1e9c8e2f5 preps for class-remove cg parents: 147 diff changeset	1179	!
15b1e9c8e2f5 preps for class-remove cg parents: 147 diff changeset	1180
90 918e2740098c resolve rewritten cg parents: 84 diff changeset	1181	unresolvedClassRefFor:aClassName
918e2740098c resolve rewritten cg parents: 84 diff changeset	1182	UnresolvedClassRefs isNil ifTrue:[^ nil].
918e2740098c resolve rewritten cg parents: 84 diff changeset	1183	^ UnresolvedClassRefs at:aClassName ifAbsent:nil.
393 1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1184
1efe41b5bc98 #removeClass: fix cg parents: 381 diff changeset	1185	"Modified: / 19.10.1998 / 20:56:46 / cg"
167 77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	1186	!
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	1187
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	1188	updateClassRefsFrom:oldClass to:newClass
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	1189	"update all references to oldClass to now refer to newClass.
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	1190	sent, when a class is reloaded"
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	1191
214 76588d86cbfb checkin from browser cg parents: 212 diff changeset	1192	newClass notNil ifTrue:[
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	1193	"/
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	1194	"/ kludge: the new class might have been resolved with the oldClass ...
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	1195	"/
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	1196	newClass constantPool
c1c3f3685801 checkin from browser cg parents: 550 diff changeset	1197	updateClassRefsFrom:oldClass to:newClass.
214 76588d86cbfb checkin from browser cg parents: 212 diff changeset	1198	].
205 11cd2ad78854 * empty log message * cg parents: 203 diff changeset	1199
203 67af98594672 * empty log message * cg parents: 201 diff changeset	1200	self allClassesDo:[:aJavaClass \|
552 c1c3f3685801 checkin from browser cg parents: 550 diff changeset	1201	aJavaClass updateClassRefsFrom:oldClass to:newClass
203 67af98594672 * empty log message * cg parents: 201 diff changeset	1202	].
167 77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	1203
77dcbc4b2201 * empty log message * cg parents: 162 diff changeset	1204	"Created: 26.3.1997 / 13:49:20 / cg"
214 76588d86cbfb checkin from browser cg parents: 212 diff changeset	1205	"Modified: 12.8.1997 / 03:04:44 / cg"
17 ea80d8a83063 intitial checkin cg parents: diff changeset	1206	! !
ea80d8a83063 intitial checkin cg parents: diff changeset	1207
135 098936234135 * empty log message * cg parents: 121 diff changeset	1208	!Java class methodsFor:'source management'!
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1209
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1210	classSourceOf:aClass
261 d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1211	\|package dirName binary sourceFileName sourceFile dirHolder fileName path
571 b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1212	loader codeBaseURL protocol dir file codeBaseURLIdx zar src\|
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1213
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1214	aClass isNil ifTrue:[
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1215	^ nil
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1216	].
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1217
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1218	"/ first, look in the directory, where the binary
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1219	"/ was loaded from.
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1220
198 5543d1079a4a * empty log message * cg parents: 192 diff changeset	1221	binary := aClass binaryFile.
5543d1079a4a * empty log message * cg parents: 192 diff changeset	1222	binary notNil ifTrue:[
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1223	binary := binary asFilename.
324 f92b236baea5 checkin from browser cg parents: 318 diff changeset	1224	aClass sourceFile notNil ifTrue:[
f92b236baea5 checkin from browser cg parents: 318 diff changeset	1225	sourceFileName := binary directory constructString:(aClass sourceFile).
f92b236baea5 checkin from browser cg parents: 318 diff changeset	1226	sourceFileName asFilename exists ifFalse:[
f92b236baea5 checkin from browser cg parents: 318 diff changeset	1227	sourceFileName := nil.
f92b236baea5 checkin from browser cg parents: 318 diff changeset	1228	]
f92b236baea5 checkin from browser cg parents: 318 diff changeset	1229	].
f92b236baea5 checkin from browser cg parents: 318 diff changeset	1230	sourceFileName isNil ifTrue:[
f92b236baea5 checkin from browser cg parents: 318 diff changeset	1231	sourceFileName := binary withSuffix:'java'.
f92b236baea5 checkin from browser cg parents: 318 diff changeset	1232	].
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1233	sourceFile := sourceFileName asFilename.
261 d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1234	] ifFalse:[
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1235	"/ maybe it was loaded by a java classLoader ...
105b82469d81 checkin from browser cg parents: 264 diff changeset	1236	(loader := aClass classLoader) notNil ifTrue:[
546 56e1665483d2 * empty log message * cg parents: 543 diff changeset	1237	codeBaseURLIdx := loader class instVarOffsetOf:'codeBaseURL'.
56e1665483d2 * empty log message * cg parents: 543 diff changeset	1238	codeBaseURLIdx notNil ifTrue:[
56e1665483d2 * empty log message * cg parents: 543 diff changeset	1239	(codeBaseURL := loader instVarAt:codeBaseURLIdx) notNil ifTrue:[
56e1665483d2 * empty log message * cg parents: 543 diff changeset	1240	(protocol := codeBaseURL instVarNamed:'protocol') notNil ifTrue:[
56e1665483d2 * empty log message * cg parents: 543 diff changeset	1241	(Java as_ST_String:protocol) = 'file' ifTrue:[
56e1665483d2 * empty log message * cg parents: 543 diff changeset	1242	dirName := Java as_ST_String:(codeBaseURL instVarNamed:'file').
571 b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1243	dirName := dirName asFilename.
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1244	dirName exists ifTrue:[
546 56e1665483d2 * empty log message * cg parents: 543 diff changeset	1245	aClass sourceFile notNil ifTrue:[
571 b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1246	sourceFile := sourceFileName := dirName construct:aClass sourceFile.
546 56e1665483d2 * empty log message * cg parents: 543 diff changeset	1247	]
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1248	]
105b82469d81 checkin from browser cg parents: 264 diff changeset	1249	]
105b82469d81 checkin from browser cg parents: 264 diff changeset	1250	]
105b82469d81 checkin from browser cg parents: 264 diff changeset	1251	]
105b82469d81 checkin from browser cg parents: 264 diff changeset	1252	]
105b82469d81 checkin from browser cg parents: 264 diff changeset	1253	]
198 5543d1079a4a * empty log message * cg parents: 192 diff changeset	1254	].
5543d1079a4a * empty log message * cg parents: 192 diff changeset	1255	sourceFile notNil ifTrue:[
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1256	sourceFile exists ifFalse:[
105b82469d81 checkin from browser cg parents: 264 diff changeset	1257	binary notNil ifTrue:[
105b82469d81 checkin from browser cg parents: 264 diff changeset	1258	sourceFileName := binary withSuffix:'jav'.
105b82469d81 checkin from browser cg parents: 264 diff changeset	1259	sourceFile := sourceFileName asFilename.
105b82469d81 checkin from browser cg parents: 264 diff changeset	1260	sourceFile exists ifFalse:[
105b82469d81 checkin from browser cg parents: 264 diff changeset	1261	sourceFileName := binary withSuffix:'JAV'.
105b82469d81 checkin from browser cg parents: 264 diff changeset	1262	sourceFile := sourceFileName asFilename.
105b82469d81 checkin from browser cg parents: 264 diff changeset	1263	sourceFile exists ifFalse:[
105b82469d81 checkin from browser cg parents: 264 diff changeset	1264	sourceFileName := binary withSuffix:'JAVA'.
105b82469d81 checkin from browser cg parents: 264 diff changeset	1265	sourceFile := sourceFileName asFilename.
105b82469d81 checkin from browser cg parents: 264 diff changeset	1266	].
105b82469d81 checkin from browser cg parents: 264 diff changeset	1267	].
105b82469d81 checkin from browser cg parents: 264 diff changeset	1268	]
105b82469d81 checkin from browser cg parents: 264 diff changeset	1269	].
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1270	].
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1271
176 16f64026e8ec * empty log message * cg parents: 168 diff changeset	1272	"/ special case: there were multiple classes in a single
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1273	"/ source file.
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1274
601 7e45fca24adf checkin from browser cg parents: 592 diff changeset	1275	(binary notNil and:[aClass sourceFile notNil]) ifTrue:[
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1276	binary withoutSuffix baseName ~= aClass sourceFile asFilename withoutSuffix baseName ifTrue:[
105b82469d81 checkin from browser cg parents: 264 diff changeset	1277	'JAVA: trouble extracting fileName: ' print.
105b82469d81 checkin from browser cg parents: 264 diff changeset	1278	binary withoutSuffix baseName print. ' vs. ' print.
105b82469d81 checkin from browser cg parents: 264 diff changeset	1279	aClass sourceFile asFilename withoutSuffix baseName printCR.
105b82469d81 checkin from browser cg parents: 264 diff changeset	1280	].
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1281	].
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1282
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1283	"/ if that fails, look in standard places
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1284
198 5543d1079a4a * empty log message * cg parents: 192 diff changeset	1285	(sourceFile isNil or:[sourceFile exists not]) ifTrue:[
324 f92b236baea5 checkin from browser cg parents: 318 diff changeset	1286	package := aClass package.
f92b236baea5 checkin from browser cg parents: 318 diff changeset	1287
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1288	sourceFileName := aClass sourceFile.
381 b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	1289	sourceFileName isNil ifTrue:[^nil].
b8348aa2d1b2 check for more jdk's cg parents: 372 diff changeset	1290
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1291	sourceFile := sourceFileName asFilename.
105b82469d81 checkin from browser cg parents: 264 diff changeset	1292	sourceFile exists ifFalse:[
105b82469d81 checkin from browser cg parents: 264 diff changeset	1293	"/
105b82469d81 checkin from browser cg parents: 264 diff changeset	1294	"/ mhmh - look for its directory
105b82469d81 checkin from browser cg parents: 264 diff changeset	1295	"/
571 b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1296	dirName := sourceFile directory.
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1297	fileName := sourceFile baseName.
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1298
571 b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1299	(dirName exists
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1300	and:[(dirName construct:(package , '/' , fileName)) exists])
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1301	ifFalse:[
571 b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1302	(dirName exists
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1303	and:[(dirName construct:(fileName)) exists])
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1304	ifFalse:[
105b82469d81 checkin from browser cg parents: 264 diff changeset	1305	dirName := self findSourceDirOf:fileName inPackage:package.
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1306
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1307	"/ [dirName isNil] whileTrue:[
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1308	"/ dirName := Dialog requestDirectoryName:'top directory for ' , package , '/' , fileName.
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1309	"/ (dirName isNil or:[dirName isEmpty]) ifTrue:[^ self].
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1310	"/ ].
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1311	].
105b82469d81 checkin from browser cg parents: 264 diff changeset	1312	].
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1313
571 b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1314	(dirName notNil and:[dirName exists]) ifTrue:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1315	dirName isDirectory ifTrue:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1316	path := dirName construct:(package , '/' , fileName).
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1317	path exists ifFalse:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1318	path := dirName construct:(fileName).
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1319	].
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1320	] ifFalse:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1321	"/ a zip-file ?
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1322	(dirName hasSuffix:'zip') ifTrue:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1323	zar := ZipArchive oldFileNamed:dirName pathName.
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1324	src := zar extract:(package , '/' , fileName).
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1325	src isNil ifTrue:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1326	src := zar extract:fileName.
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1327	].
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1328	src notNil ifTrue:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1329	^ src asString.
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1330	]
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1331	]
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1332	]
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1333	].
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1334
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1335	(path notNil and:[path exists]) ifFalse:[
105b82469d81 checkin from browser cg parents: 264 diff changeset	1336	^ nil
105b82469d81 checkin from browser cg parents: 264 diff changeset	1337	].
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1338
571 b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1339	sourceFile := path.
267 105b82469d81 checkin from browser cg parents: 264 diff changeset	1340	].
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1341	].
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1342	^ (sourceFile contentsOfEntireFile).
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1343
546 56e1665483d2 * empty log message * cg parents: 543 diff changeset	1344	"Modified: / 27.1.1999 / 20:40:30 / cg"
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1345	!
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1346
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1347	findSourceDirOf:fileName inPackage:aPackage
571 b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1348	"return a directory-fileName, a zip-file fileName or nil"
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1349
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1350	SourceDirectories notNil ifTrue:[
571 b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1351	SourceDirectories do:[:aDirOrZipFile \|
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1352	\|fn zar\|
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1353
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1354	fn := aDirOrZipFile asFilename.
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1355	fn isDirectory ifTrue:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1356	aPackage notNil ifTrue:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1357	(fn construct:('/' , aPackage , '/' , fileName)) exists ifTrue:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1358	^ fn
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1359	].
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1360	].
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1361	(fn construct:('/' , fileName)) exists ifTrue:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1362	^ fn
324 f92b236baea5 checkin from browser cg parents: 318 diff changeset	1363	].
571 b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1364	] ifFalse:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1365	(fn hasSuffix:'zip') ifTrue:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1366	zar := ZipArchive oldFileNamed:fn pathName.
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1367	zar notNil ifTrue:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1368	aPackage notNil ifTrue:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1369	(zar findMember:(aPackage , '/' , fileName)) notNil ifTrue:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1370	^ fn
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1371	]
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1372	] ifFalse:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1373	(zar findMember:fileName) notNil ifTrue:[
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1374	^ fn
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1375	]
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1376	]
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1377	]
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1378	]
b5ae2faeb568 allow for the sources to be stored in one big zip-archive cg parents: 567 diff changeset	1379	]
324 f92b236baea5 checkin from browser cg parents: 318 diff changeset	1380	]
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1381	].
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1382	^ nil
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1383
324 f92b236baea5 checkin from browser cg parents: 318 diff changeset	1384	"Modified: / 29.3.1998 / 21:46:40 / cg"
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1385	! !
9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1386
224 164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1387	!Java class methodsFor:'starting apps'!
164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1388
164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1389	javaProcessForMainOf:aJavaClass
164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1390	"ask for a commandLine, create a java process to invoke
164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1391	its main and return it. The process is not scheduled for
164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1392	execution."
164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1393
508 21d8af9a9b41 checkin from browser cg parents: 494 diff changeset	1394	^ self javaProcessForMainOf:aJavaClass argumentString:nil
224 164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1395
508 21d8af9a9b41 checkin from browser cg parents: 494 diff changeset	1396	"Modified: / 30.12.1998 / 20:24:25 / cg"
224 164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1397	!
164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1398
508 21d8af9a9b41 checkin from browser cg parents: 494 diff changeset	1399	javaProcessForMainOf:aJavaClass argumentString:argStringIn
224 164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1400	"create a java process, ready to invoke the classes main
164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1401	method. Returns the process - ready to run but not yet resumed"
164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1402
577 18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1403	\|p argStringArray t argString stdInReplacement alreadyAskedForStdin\|
508 21d8af9a9b41 checkin from browser cg parents: 494 diff changeset	1404
21d8af9a9b41 checkin from browser cg parents: 494 diff changeset	1405	argString := argStringIn.
21d8af9a9b41 checkin from browser cg parents: 494 diff changeset	1406	argString isNil ifTrue:[
21d8af9a9b41 checkin from browser cg parents: 494 diff changeset	1407	argString := Dialog
21d8af9a9b41 checkin from browser cg parents: 494 diff changeset	1408	request:'argument string:'
21d8af9a9b41 checkin from browser cg parents: 494 diff changeset	1409	initialAnswer:LastArgumentString ? ''
21d8af9a9b41 checkin from browser cg parents: 494 diff changeset	1410	onCancel:nil.
21d8af9a9b41 checkin from browser cg parents: 494 diff changeset	1411	argString isNil ifTrue:[^ nil].
21d8af9a9b41 checkin from browser cg parents: 494 diff changeset	1412
21d8af9a9b41 checkin from browser cg parents: 494 diff changeset	1413	LastArgumentString := argString.
21d8af9a9b41 checkin from browser cg parents: 494 diff changeset	1414	].
224 164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1415
261 d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1416	JavaVM initializeVMIfNoEventThreadRunning.
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1417	(Java at:'java.lang.System') instVarNamed:'security' put:nil.
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1418
224 164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1419	argString isEmpty ifTrue:[
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 248 diff changeset	1420	argStringArray := #()
224 164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1421	] ifFalse:[
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 248 diff changeset	1422	argStringArray := argString asCollectionOfWords asArray
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 248 diff changeset	1423	collect:[:s \| Java as_String:s].
224 164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1424	].
164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1425
164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1426	p := JavaProcess
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 248 diff changeset	1427	for:[
580 24f16f7bb058 checkin from browser cg parents: 577 diff changeset	1428	"/ if the program reads from stdin, let user provide a file
24f16f7bb058 checkin from browser cg parents: 577 diff changeset	1429	"/ for it.
577 18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1430	JavaVM stdinReplacementFileQuerySignal handle:[:ex \|
18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1431	\|fn\|
18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1432
18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1433	alreadyAskedForStdin == true ifFalse:[
580 24f16f7bb058 checkin from browser cg parents: 577 diff changeset	1434	fn := Dialog
24f16f7bb058 checkin from browser cg parents: 577 diff changeset	1435	requestFileName:'Program reads from Stdin - give inputFile or cancel for EOF'
24f16f7bb058 checkin from browser cg parents: 577 diff changeset	1436	default:nil
24f16f7bb058 checkin from browser cg parents: 577 diff changeset	1437	fromDirectory:(FileSelectionBox lastFileSelectionDirectory).
577 18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1438	fn notNil ifTrue:[
18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1439	stdInReplacement := fn asFilename readStream.
18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1440	].
18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1441	alreadyAskedForStdin := true.
18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1442	].
18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1443	ex proceedWith:stdInReplacement
18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1444	] do:[
18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1445	aJavaClass
18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1446	performStatic:#'main([Ljava/lang/String;)V'
18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1447	with:argStringArray.
18407fb4087b provide Stdin replacement; cg parents: 571 diff changeset	1448	]
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 248 diff changeset	1449	]
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 248 diff changeset	1450	priority:(Processor activePriority - 1).
224 164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1451
164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1452	p name:(aJavaClass fullName , '::main()').
654 da8d060a3150 checkin from browser cg parents: 648 diff changeset	1453	p restartable:true.
224 164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1454	^ p
164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1455
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 248 diff changeset	1456	"Created: / 15.8.1997 / 04:41:20 / cg"
654 da8d060a3150 checkin from browser cg parents: 648 diff changeset	1457	"Modified: / 24.12.1999 / 01:50:21 / cg"
224 164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1458	! !
164850a15533 moved main-startup into Java (useful for others too) cg parents: 215 diff changeset	1459
135 098936234135 * empty log message * cg parents: 121 diff changeset	1460	!Java class methodsFor:'documentation'!
17 ea80d8a83063 intitial checkin cg parents: diff changeset	1461
ea80d8a83063 intitial checkin cg parents: diff changeset	1462	version
665 02fa3319362d checkin from browser cg parents: 664 diff changeset	1463	^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/Java.st,v 1.118 2000/02/14 17:51:00 cg Exp $'
17 ea80d8a83063 intitial checkin cg parents: diff changeset	1464	! !
76 9ff95e14dbfb * empty log message * cg parents: 71 diff changeset	1465	Java initialize!

author	cg
	Mon, 14 Feb 2000 17:51:00 +0000
changeset 665	02fa3319362d
parent 664	521682217662
child 666	32c3daf4890c
permissions	-rw-r--r--