"

 COPYRIGHT (c) 1996-2015 by Claus Gittinger

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

 COPYRIGHT (c) 2010-2015 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' }"

"{ NameSpace: Smalltalk }"

Object subclass:#JavaRelease

	instanceVariableNames:'javaHome sourcePath classes bundle bootClassPath'

	classVariableNames:'System SystemInitialized'

	poolDictionaries:''

	category:'Languages-Java-Support'

!

JavaRelease class instanceVariableNames:'instance'

"

 No other class instance variables are inherited by this class.

"

!

JavaRelease subclass:#OpenJDK6

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease::OpenJDK6 subclass:#AppleJDK6

	instanceVariableNames:'jdkHome'

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease::OpenJDK6 subclass:#OpenJDK7

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease::OpenJDK7 subclass:#OpenJDK8

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease::OpenJDK6 subclass:#OracleJDK6

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease::OpenJDK7 subclass:#OracleJDK7

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease::OracleJDK7 subclass:#OracleJDK8

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease subclass:#SunJDK122

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease::OpenJDK7 subclass:#Zulu7

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease::OpenJDK8 subclass:#Zulu8

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

!JavaRelease class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1996-2015 by Claus Gittinger

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

 COPYRIGHT (c) 2010-2015 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

"

!

documentation

"

    Sub-instance of me represent a particular Java release and provides and

    access to JDK/JRE files as well and native method implementation and other

    things that are release-dependent.

    There is a guessing mechanism trying to auto-detect path to JRE/JDK. If it fails,

    you may always set javaHome manually (see #javaHome:).

    NOTE: an instance of OpenJDKx and OracleJDKx represent and provide access to both,

          plain JRE or full JDK.

    [author:]

        Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

        javaHome <String> ..... path to either JDK or JRE, ie., path to directory in which

                                * exists bin/java (bin\java.exe) - then javaHome is considered

                                  a path to JRE

                                __or__

                                * exists bin/javac (bin\javac.exe) - then javaHome is considered 

                                  a path JDK

    [class variables:]

    [see also:]

"

! !

!JavaRelease class methodsFor:'initialization'!

flush

    Java release: nil.

    instance := nil.

    self subclasses do:[:e|e flush].

    System := nil.

    SystemInitialized := false.

    "

        JavaRelease flush.

    "

    "Created: / 12-02-2013 / 03:20:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 13-04-2016 / 20:30:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

initialize

    SystemInitialized := false.

    "

        JavaRelease flush.

    "

    "Created: / 13-04-2016 / 20:30:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaRelease class methodsFor:'instance creation'!

JDK6

    "Meta-release - return either OpenJDK or OracleJDK"

    self openJDK6 isAvailable ifTrue:[^ self openJDK6].

    self oracleJDK6 isAvailable ifTrue:[^ self oracleJDK6].

    self allSubclassesDo:[:relCls |

        | rel |

        rel := relCls instance.

        (relCls isJDK6 and:[ rel isAvailable ]) ifTrue:[^ rel ].

    ].

    self error:'no JDK6 found'

    "Created: / 16-02-2013 / 09:21:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 01-04-2014 / 13:33:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

JDK7

    "Meta-release - return either OpenJDK or OracleJDK"

    self openJDK7 isAvailable ifTrue:[^ self openJDK7].

    self oracleJDK7 isAvailable ifTrue:[^ self oracleJDK7].

    self allSubclassesDo:[:relCls |

        | rel |

        rel := relCls instance.

        (relCls isJDK7 and:[ rel isAvailable ]) ifTrue:[^ rel ].                   ].

    self error:'no JDK7 found'

    "

        JavaRelease JDK6

        JavaRelease JDK7

    "

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

    "Modified: / 01-04-2014 / 13:33:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

JDK8

    "Meta-release - return either OpenJDK or OracleJDK"

    self openJDK8 isAvailable ifTrue:[^ self openJDK7].

    self oracleJDK8 isAvailable ifTrue:[^ self oracleJDK7].

    self allSubclassesDo:[:relCls |

        | rel |

        rel := relCls instance.

        (relCls isJDK8 and:[ rel isAvailable ]) ifTrue:[^ rel ].                   ].

    self error:'no JDK8 found'

    "

        JavaRelease JDK6

        JavaRelease JDK7

    "

    "Created: / 03-04-2014 / 12:34:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

appleJDK6

    ^ AppleJDK6 instance

    "Created: / 06-02-2014 / 11:01:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

openJDK6

    ^ OpenJDK6 instance

    "Created: / 27-10-2010 / 21:41:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 05-11-2011 / 18:45:02 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Modified: / 27-07-2012 / 00:22:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

openJDK7

    ^ OpenJDK7 instance.

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

!

openJDK8

    ^ OpenJDK8 instance.

    "Created: / 03-04-2014 / 12:34:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

oracleJDK6

    ^ OracleJDK6 instance

    "Created: / 12-02-2013 / 03:03:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

oracleJDK7

    ^ OracleJDK7 instance

    "Created: / 12-02-2013 / 03:03:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

oracleJDK8

    ^ OracleJDK8 instance

    "Created: / 03-04-2014 / 12:34:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

osxJDK6

    <resource: #obsolete>

    ^ self appleJDK6

    "Modified: / 06-02-2014 / 11:01:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

sunJDK122

    ^ SunJDK122 instance

    "Created: / 27-10-2010 / 21:41:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 05-11-2011 / 18:45:09 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Modified: / 27-07-2012 / 00:22:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

zulu7

    ^ Zulu7 instance.

    "Created: / 26-02-2015 / 16:08:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

zulu8

    ^ Zulu8 instance.

    "Created: / 11-03-2015 / 11:00:47 / jv"

! !

!JavaRelease class methodsFor:'accessing'!

all

    ^(self allSubclasses

                reject: [:rel | rel isAbstract ]

                thenCollect: [:rel | rel instance ])

                asSortedCollection: [:a :b | a priority > b priority ]

    "

        JavaRelease all

    "

    "Created: / 27-07-2012 / 00:10:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

allForCurrentOperatingSystem

    "Return all releases for current operating system, even those that

     are not installed / autodetected.

     For example, there's no AppleJDK for Linux or OpenJDK for Windows.

    "

    ^ self all select:[:each | each isAvailableOnCurrentOperatingSystem ]

    "

        JavaRelease allForCurrentOperatingSystem

    "

    "Created: / 07-12-2014 / 23:45:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

any

    <resource: #obsolete>

    | releases |

    releases := self available.

    releases isEmptyOrNil ifTrue:[ ^ nil ].

    ^ releases first initialize

    "

        JavaRelease any

    "

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

    "Modified: / 01-11-2011 / 14:02:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Modified: / 26-07-2012 / 23:42:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

available

    | releases out path |

    releases := self allForCurrentOperatingSystem select: [:rel | rel isAvailable ].

    releases isEmpty ifTrue: [

        "/ none of the releases seems to be installed in a way that it is found

        "/ out of the box. Try a 'java' command...

        (path := OperatingSystem pathOfCommand:'java') notNil ifTrue:[

            out := WriteStream on:(String new:100).

            (OperatingSystem executeCommand:'java -version' outputTo:out) ifTrue:[

                out := out contents.

                releases := self all select:[:rel | rel validateJavaVersionString:out].

"/                "/ ('/System/Library/Java' asFilename) exists.

"/                releases do:[:each |

"/                    each javaHome:('/System/Library/Java/Home' asFilename).

"/                ].

            ].

        ].

        releases isEmpty ifTrue: [

            self error: 'No Java release found'. ^nil

        ].

    ].

    ^releases

    "

        JavaRelease available

    "

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

    "Modified: / 08-12-2014 / 00:03:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

default

    | releases release |

    releases := self available.

    release := releases detect:[:each | each isJava8 not ] ifNone:[ ^ nil ].

    release initialize.

    ^ release

    "

    JavaRelease default

    "

    "Created: / 11-11-2013 / 14:07:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (comment): / 20-05-2017 / 12:56:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

forExecutable: javaExecutable

    "Returns an instance of JavaRelease for given java executable

     (java.exe on Windows, java on UNIX). Return nil if javaExecutable

     does not exits, not executable or version of that Java version is

     not recognized/suppported."

    javaExecutable notNil ifTrue:[

        | releases |

        releases := JavaRelease allSubclasses reject:[:each | each isAbstract ] thenCollect:[:each | each new ].

        releases sort:[:a :b | a priority > b priority ].

        releases do:[:release |

            (release validateJavaExecutable: javaExecutable) ifTrue:[

                release javaExecutable: javaExecutable.

                ^ release.

            ].

        ]

    ].

    ^ nil.

    "Created: / 08-04-2014 / 14:12:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 13-04-2016 / 20:25:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

inDirectory:javaHome

    "Returns an instance of JavaRelease for given javaHome or nil if

     given javaHome does not point to Java installation directory."

    self available do:[:each | (each javaHome = javaHome) ifTrue:[ ^ each ] ].

    javaHome notNil ifTrue:[

        | releases |

        releases := self allSubclasses reject:[:each | each isAbstract ] thenCollect:[:each | each new ].

        releases sort:[:a :b | a priority > b priority ].

        releases do:[:release |

            (release validateJavaHome: javaHome) ifTrue:[

                release javaHome: javaHome.

                ^ release.

            ].

        ]

    ].

    ^ nil.

    "Created: / 11-11-2013 / 14:53:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 09-12-2014 / 13:01:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

system

    "Return the release for *system* java or nil if no system JDK/JRE

     installation is available.

     By *system* JDK/JRE we mean JDK/JRE used by `java` command found along the path"

    | javaExecutable |

    SystemInitialized ifFalse:[

        "/ On Windows, search registry first...

        OperatingSystem isMSWINDOWSlike ifTrue:[

            "Search for JDK first..."

            | entry javaVersion javaHome |

            entry := OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Development Kit'.

            entry notNil ifTrue:[

                javaVersion := entry valueNamed:'CurrentVersion'.

                javaVersion notNil ifTrue:[

                    entry := OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Development Kit\' , javaVersion.

                    entry notNil ifTrue:[

                        javaHome := entry valueNamed:'JavaHome'.

                    ]