"

 COPYRIGHT (c) 1996-2011 by Claus Gittinger

 New code and modifications done at SWING Research Group [1]:

 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko

			    SWING Research Group, Czech Technical University in Prague

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

 [1] Code written at SWING Research Group contains a signature

     of one of the above copright owners. For exact set of such code,

     see the differences between this version and version stx:libjava

     as of 1.9.2010

"

"{ Package: 'stx:libjava' }"

Object subclass:#Java

	instanceVariableNames:''

	classVariableNames:'Classes UnresolvedClassRefs Release BootBundle ClassPath

		ClassPathBundle SourcePath ClassPathExt ExtensionsPath

		ExtensionsPathPackages CacheDirectory JavaHome InternedStrings

		Java_lang_String Java_lang_Class PrettyPrintStyle

		LastArgumentString Threads ExcludedClassPath FailedToLoadClasses

		SourceCache SourceArchiveCache JavaClassLoaderQuerySignal

		ClassLoaderQuerySignal ThreadsAccess'

	poolDictionaries:'JavaVMData'

	category:'Languages-Java-Support'

!

!Java class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1996-2011 by Claus Gittinger

 New code and modifications done at SWING Research Group [1]:

 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko

			    SWING Research Group, Czech Technical University in Prague

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

 [1] Code written at SWING Research Group contains a signature

     of one of the above copright owners. For exact set of such code,

     see the differences between this version and version stx:libjava

     as of 1.9.2010

"

! !

!Java class methodsFor:'accessing'!

classForName: aString

    "/JavaVM booted ifFalse:[JavaVM boot].

    | cls |

    "HACK, required to load extensions methods"

    cls := JavaClassQuery query: (aString copyReplaceAll:$. with: $/).

    cls isNil ifTrue:[

	cls := JavaVM classForName: aString.

    ].

    ^cls.

    "Modified: / 08-11-2012 / 00:25:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

classNamed: aString

    ^JavaVM classNamed: aString.

!

classRegistry

    <resource: #obsolete>

    self breakPoint: #mh.

    self breakPoint: #jv.

    ^ JavaVM classRegistry.

    "Modified: / 21-10-2011 / 11:12:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

intern:aJavaString

    |stString internedString|

    "JV@2012-07-07: We MUST UTF8-encode the string as java.lang.String

     can keep both normal String and Unicode16String. Therefore it may

     happen that #intern: gets called once with Java string keeping

     characters in String and then with a String with same value but

     characters in Unicode16String.

     UTF8-encoding ensures that the key is single-byte string

     and thus #intern: will return the same interned string

     (actually it return whichever one comes first).

    "

    stString := (self as_ST_String:aJavaString) utf8Encoded.

    internedString := InternedStrings at:stString ifAbsent:nil.

    internedString isNil ifTrue:[

	InternedStrings at:stString put:aJavaString.

	internedString := aJavaString

    ].

    ^ internedString

    "Modified: / 07-07-2012 / 22:14:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

javaExtDirs

    ^Java release javaExtDirs

    "/ JV@2013-08-29: Do not add Smalltalk/X support classes nor groovy nor junit to the

    "/                ext path. They are then loaded by *ext* class loader and thus cannot

    "/                access classes defined in standard class path (as they are loaded by

    "/                system (*app*) class loader.

"/        , (Array 

"/                with: ((Smalltalk packageDirectoryForPackageId: 'stx:libjava') / 'java' / 'bin')

"/                with: ((Smalltalk packageDirectoryForPackageId: 'stx:libjava') / 'java' / 'libs' / 'ext') 

"/        ).

    "Created: / 31-08-2011 / 22:55:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (comment): / 29-08-2013 / 00:28:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

java_lang_Class

    Java_lang_Class isNil ifTrue:[

	Java_lang_Class := self at:'java.lang.Class'

    ].

    ^ Java_lang_Class

    "Created: 26.3.1997 / 13:42:59 / cg"

    "Modified: 26.3.1997 / 13:46:24 / cg"

!

java_lang_String

    Java_lang_String isNil ifTrue: [

	Java_lang_String := JavaVM classNamed: 'java/lang/String'.

    ].

    ^ Java_lang_String.

    "Created: / 26-03-1997 / 13:43:17 / cg"

    "Modified: / 21-10-2011 / 13:41:02 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

prettyPrintStyle

    ^ PrettyPrintStyle

    "Created: 1.8.1997 / 10:37:57 / cg"

!

release

    Release isNil ifTrue:[

        self initializeRelease

    ].

    ^Release

    "

     Release := nil

    "

    "Created: / 22-11-2010 / 12:38:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

release: aJavaRelease

    Release := aJavaRelease.

    "

	Java release: JavaRelease openJDK6.

	Java release: JavaRelease sunJDK6.

    "

    "Created: / 22-11-2010 / 12:38:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 15-01-2013 / 17:59:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

systemPropertyAt:key put:something

    JavaVM systemProperties at:key put:something

    "Created: / 9.1.1999 / 14:49:35 / cg"

! !

!Java class methodsFor:'change & update'!

update: what with: param from: sender

    what == #restarted ifTrue:[

	self reinitialize.

    ]

    "Created: / 14-12-2010 / 21:00:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Java class methodsFor:'class initialization'!

boot

    ^JavaVM boot.

    "Created: / 21-02-2012 / 18:10:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

initAllClasses

    | system |

    FailedToLoadClasses := nil.

    self initAllStaticFields.

    system := JavaVM classForName:'java.lang.System' definedBy:nil.

    system isInitialized ifFalse: [ self initSystemClass. ].

    self allClassesDo: [:cls | cls isInitialized ifFalse: [ cls classInit ] ]

    "

     Java initAllClasses"

    "Modified: / 27.11.1998 / 00:33:05 / cg"

!

initAllStaticFields

     self allClassesDo:[:cls |

	cls initializeStaticFields

     ]

!

initSystemClass

    | system |

    system := JavaVM classForName:'java.lang.System' definedBy:nil.

    system isNil ifTrue: [

	"/        JavaVM initializeVM.

	"/        system := Java at:'java.lang.System'.

	"/        system isNil ifTrue:[

	self warn: 'JavaVM: no ''' , 'java.lang.System' allBold , ''' class.'.

"/            self error:'no ''java.lang.System'' class'.

	^

"/        ].

	self

    ].

    system classInit.

    (system implements: #'initializeSystemClass()V') ifTrue: [

	system "invokeStatic:" perform: #'initializeSystemClass()V'.

    ].

    "

     Java initSystemClass

     (Java at:'java.lang.System')

	perform:#'getProperty(Ljava/lang/String;)Ljava/lang/String;'

	with:(Java as_String:'java.home')"

    "Modified: / 10.11.1998 / 12:39:58 / cg"

!

initialize

    | flag |

    JavaNativeMethod flushAllCachedNativeMethods.

    InternedStrings := Dictionary new.

    FailedToLoadClasses := nil.

    ClassPathExt := nil.

    ExcludedClassPath := OrderedCollection new.

    SourceCache := CacheDictionary new: 32.

    SourceArchiveCache := CacheDictionary new: 32.

    Threads := IdentityDictionary new.

    ClassPathBundle := JavaClassPathBundle new.

    ClassPath isNil ifTrue:[ClassPath:= OrderedCollection new]. "/ for ad-hoc packages

    SourcePath isNil ifTrue:[SourcePath := OrderedCollection new]."/ for ad-hoc packages

    ThreadsAccess := RecursionLock forMutualExclusion.

    self initializePrettyPrintStyle.

    ObjectMemory addDependent: self.

    "Initialize JITer and Native method optimization"

    (flag := OperatingSystem getEnvironment:'STX_LIBJAVA_ENABLE_JIT') notNil ifTrue:[

        ObjectMemory javaJustInTimeCompilation: (flag = '1') 

    ].

    (flag := OperatingSystem getEnvironment:'STX_LIBJAVA_ENABLE_NATIVE_METHOD_OPTIMIZATION') notNil ifTrue:[

        ObjectMemory javaNativeCodeOptimization: (flag = '1') 

    ].

    "

     Java flushAllJavaResources.

     Java initialize.

     JavaVM initializeVM

     Java classPath inspect"

    "Modified: / 06-11-2001 / 09:24:12 / cg"

    "Created: / 03-10-2010 / 15:54:02 / Jan Kurs <kurs.jan@post.cz>"

    "Modified: / 15-10-2010 / 17:37:20 / Jan Kurs <kurs.jan@post.cz>"

    "Modified: / 09-12-2011 / 13:16:15 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Modified: / 19-02-2013 / 21:04:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

initializePrettyPrintStyle

    PrettyPrintStyle := IdentityDictionary new.

    PrettyPrintStyle  at:#accessAttribute put:(#color -> (Color red:0 green:0 blue:25)).

    PrettyPrintStyle  at:#className       put:(Array with:(#color -> Color black) with:#bold).

    PrettyPrintStyle  at:#methodName      put:(Array with:(#color -> Color black) with:#bold).

    PrettyPrintStyle  at:#code            put:(#color -> Color black).

     "

      Java initializePrettyPrintStyle

     "

    "Created: 1.8.1997 / 11:08:43 / cg"

    "Modified: 1.8.1997 / 11:09:58 / cg"

!

initializeRelease

    Release isNil ifTrue:[

	self reinitializeRelease.

    ].

    "

	Release := nil.

	self initializeRelease.

	Release

    "

    "Created: / 22-11-2010 / 13:41:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

reboot

    ^JavaVM reboot.

    "Created: / 21-02-2012 / 18:11:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

reinitAllClasses

     self markAllClassesUninitialized.

     self initAllClasses

     "

      Java reinitAllClasses

     "

    "Modified: / 4.1.1998 / 00:34:29 / cg"

!

reinitialize

    FailedToLoadClasses := nil.

    "Kludge"

    JavaMethod reinitialize.

    JavaMethodWithException reinitialize.

    JavaMethodWithHandler reinitialize.

    JavaNativeMethod reinitialize.

    JavaNativeMethod flushAllCachedNativeMethods.

    "

     Java reinitialize

    "

    "Created: / 26-08-1997 / 20:07:00 / cg"

    "Modified: / 27-04-1998 / 14:57:23 / cg"

    "Modified: / 17-08-2012 / 11:58:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

reinitializeRelease

    | nm |

    "First, consult STX_LIBJAVA_RELEASE environment variable, if set"

    nm := OperatingSystem getEnvironment:'STX_LIBJAVA_RELEASE'.

    nm isNil ifTrue:[

        "If not defined, ask preferences if preffered release is set"

        nm := UserPreferences current javaReleaseSelector.

    ].

    Release := nm notNil

                ifTrue:[JavaRelease perform: nm asSymbol ifNotUnderstood:[JavaRelease any]]

                ifFalse:[JavaRelease any].

    "

        Release := nil.

        self initializeRelease.

        Release

    "

    "Created: / 26-07-2012 / 23:58:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 16-02-2013 / 09:18:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

startupJavaSystem

    | javaEventThread  haveEventThread  haveScreenUpdater |

    FailedToLoadClasses := nil.

    "/

    "/ check if already running

    "/

    haveEventThread := true.

    javaEventThread := JavaVM javaEventThread.

    (javaEventThread isNil or: [ javaEventThread isDead ]) ifTrue: [

	haveEventThread := false

    ].

    haveScreenUpdater := false.

    haveEventThread ifTrue: [

	self threadsDo: [

	    :aJavaThread |

	    aJavaThread name = 'JAVA-Screen Updater' ifTrue: [

		aJavaThread isDead ifFalse: [

		    "/ already running

		    haveScreenUpdater := true

		]

	    ]

	].

    ].

    (haveEventThread and: [ haveScreenUpdater ]) ifTrue: [ ^ self ].

    JavaClass orderOfClassInits isNil ifTrue: [

	"/ the very first start ...

	'JAVA [info]: (re)initializing JAVA environment completely ...'

	    infoPrintCR.

	JavaVM initializeVM.

    ] ifFalse: [ JavaVM initializeVMIfNoEventThreadRunning ].

    'JAVA [info]: done JAVA initialization.' infoPrintCR.

    "

     Java startupJavaSystem"

    "Modified: / 24-12-1999 / 01:37:49 / cg"

    "Modified: / 09-12-2011 / 12:50:00 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

terminateAllThreads

    | myself  threadsToKill  semaphore |

    Threads isNil ifTrue: [ ^ self ].

    myself := Processor activeProcess.

    threadsToKill := IdentitySet new.

    Threads do: [

	:aJavaThread |

	aJavaThread ~~ myself ifTrue: [

	    (aJavaThread isNil or: [ aJavaThread == 0 ]) ifFalse: [

		(aJavaThread isMemberOf: JavaProcess) ifTrue: [

		    aJavaThread isDead ifFalse: [ threadsToKill add: aJavaThread ]

		]

	    ]

	]

    ].

    threadsToKill size > 0 ifTrue: [

	Logger

	    log: 'Killing ' , threadsToKill size printString , ' java processes'

	    severity: #info

	    facility: #JVM.

	semaphore := Semaphore new: 1 - threadsToKill size.

	semaphore name: 'Java thread killer'.

	threadsToKill do: [

	    :aThread |

	    aThread == JavaVM javaScreenUpdaterThread ifTrue: [ self halt ].

	    aThread == JavaVM javaEventQueueThread ifTrue: [ self halt ].

	    aThread

		addExitAction: [

		    Logger

			log: 'Java thread killed successfully'

			severity: #info

			facility: #JVM.

		    semaphore signal

		].

	    aThread terminate

	].

	semaphore wait.

    ].

    JavaVM releaseAllMonitors.

    Logger

	log: 'No Java threads running at this point'

	severity: #info

	facility: #JVM.