"

 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 ClassPath ClassPathPackages

		ClassPathExt ExtensionsPath ExtensionsPathPackages

		SourceDirectories SourceDirectoriesPackages CacheDirectory

		JavaHome InternedStrings Java_lang_String Java_lang_Class

		PrettyPrintStyle LastArgumentString Threads ExcludedClassPath

		FailedToLoadClasses SourceCache SourceArchiveCache

		JavaClassLoaderQuerySignal ClassLoaderQuerySignal ThreadsAccess'

	poolDictionaries:''

	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 

"/        ,{

"/            ((Smalltalk packageDirectoryForPackageId: 'stx:libjava') asFilename

"/                / 'java' / 'libs') }.

    "Created: / 31-08-2011 / 22:55:38 / 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

    "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: / 30-11-2010 / 11:54:33 / 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'.

    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'.

    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

    JavaNativeMethod flushAllCachedNativeMethods.

    InternedStrings := Dictionary new.

    FailedToLoadClasses := nil.

    ClassPath := UserPreferences current javaClassPath decodeAsLiteralArray asOrderedCollection.

    ClassPathExt := nil.

    ExcludedClassPath := OrderedCollection new.

    SourceCache := CacheDictionary new: 32.

    SourceArchiveCache := CacheDictionary new: 32.

    SourceDirectories := UserPreferences current javaSourcePath decodeAsLiteralArray asOrderedCollection.

    Threads := IdentityDictionary new.

    ThreadsAccess := RecursionLock forMutualExclusion.

    self initializeRelease. "lazy initialization of Release"

    self initializePrettyPrintStyle.

    ObjectMemory addDependent: self.

    "

     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: / 27-07-2012 / 12:56:59 / 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 |    

    "Ask preferences if preffered release is set"

    nm := UserPreferences current javaReleaseSelector.

    nm notNil ifTrue:[

        Release := JavaRelease perform: nm asSymbol ifNotUnderstood:[JavaRelease any]

    ] ifFalse:[

        Release := JavaRelease any

    ]

    "

        Release := nil. 

        self initializeRelease.

        Release

    "

    "Created: / 26-07-2012 / 23:58:00 / 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.

    Threads := nil.

    "

     Java terminateAllThreads"

    "Created: / 26-08-1997 / 19:57:40 / cg"

    "Modified: / 24-12-1999 / 02:34:53 / cg"

    "Modified: / 17-11-2011 / 21:31:14 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

! !

!Java class methodsFor:'debugging'!

dontHaltOnKnownBugs

    Object disableBreakPoint: #knownBugs.

    "Created: / 09-10-2011 / 17:29:17 / m"

!

dumpConfig

    Transcript notNil ifTrue:[

        self dumpConfigOn: Transcript

    ] ifFalse:[

        self dumpConfigOn: Stdout

    ]

    "Created: / 10-12-2011 / 12:54:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

dumpConfigOn: stream

    "Prints current config (java home, initial system properties etc) on a stream."

    | props |

    Java release dumpConfigOn: stream.

    props := Dictionary new.

    JavaVM initializeSystemPropertiesInto: props.

    stream nextPutAll: '== Initial system properties =='; cr.

    props keysAndValuesDo:[:key :value|

        '%-30s : %s' printf: { key . value } on: stream.

        stream cr.

    ].