"

 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:#JavaRelease

	instanceVariableNames:'javaHome sourcePath classes bundle bootClassPath'

	classVariableNames:'System'

	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:#OpenJDK7

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease::OpenJDK6 subclass:#OracleJDK6

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease::OpenJDK7 subclass:#OracleJDK7

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease subclass:#SunJDK122

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

!JavaRelease 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

"

!

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 provide access to both,

          plain JRE or full JDK.

    [author:]

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

    [instance variables:]

    [class variables:]

    [see also:]

"

! !

!JavaRelease class methodsFor:'initialization'!

flush   

    Java release: nil.

    instance := nil.

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

    "

        JavaRelease flush.

    "

    "Created: / 12-02-2013 / 03:20:05 / 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]

        ifFalse:[self oracleJDK6].

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

!

JDK7

    "Meta-release - return either OpenJDK or OracleJDK"

    ^self openJDK7 isAvailable 

        ifTrue:[self openJDK7]

        ifFalse:[self oracleJDK7].

    "

        JavaRelease JDK6

        JavaRelease JDK7

    "

    "Created: / 16-02-2013 / 09:21:20 / 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>"

!

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>"

!

oracleJRE7

    ^ OracleJRE7 instance

!

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>"

! !

!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>"

!

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 all 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>"

!

default

    | releases |

    releases := self available.

    releases isEmptyOrNil ifTrue:[ ^ nil ].

    ^ releases first initialize

    "

        JavaRelease any

    "

    "Created: / 11-11-2013 / 14:07:50 / 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"

    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>"

!

system

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

     installation is available.

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

    | javaExecutable javaHome |

    System isNil ifTrue:[

        javaExecutable := OperatingSystem pathOfCommand: 'java'.

        javaExecutable isNil ifTrue:[ ^ nil ].

        "/ On some Linux installations, /usr/bin/java -> /etc/alternatives/java -> /usr/lib/jvm/.../jre/java/bin,

        "/ care for that.

        javaExecutable := javaExecutable asFilename asAbsoluteFilename.

        javaExecutable isSymbolicLink ifTrue:[

            javaExecutable := javaExecutable physicalFilename asAbsoluteFilename.

        ].

        javaHome :=  nil.

        OperatingSystem isMSWINDOWSlike ifTrue:[

            (javaExecutable pathName endsWith: 'jre\bin\java.exe') ifTrue:[

                javaHome := javaExecutable pathName copyTo: javaExecutable pathName size - 'jre\bin\java.exe' size - 1.

            ] ifFalse:[

                (javaExecutable pathName endsWith: 'bin\java.exe') ifTrue:[

                   javaHome := javaExecutable pathName copyTo: javaExecutable pathName size - 'bin\java.exe' size - 1.

                ]

            ].

        ] ifFalse:[

            (javaExecutable pathName endsWith: 'jre/bin/java') ifTrue:[

                javaHome := javaExecutable pathName copyTo: javaExecutable pathName size - 'jre/bin/java' size - 1.

            ] ifFalse:[

                (javaExecutable pathName endsWith: 'bin\java.exe') ifTrue:[

                   javaHome := javaExecutable pathName copyTo: javaExecutable pathName size - 'bin/java' size - 1.

                ]

            ].

        ].

        System := self inDirectory: javaHome

    ].

    ^ System 

    "

        JavaRelease system

    "

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

    "Modified: / 11-11-2013 / 16:03:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaRelease class methodsFor:'instance creation-private'!

instance

    instance isNil ifTrue:[

        instance := self new initialize

    ].

    ^instance

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

! !

!JavaRelease class methodsFor:'others'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !

!JavaRelease class methodsFor:'queries'!

isAbstract

    ^self class == JavaRelease

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

! !

!JavaRelease methodsFor:'accessing'!

bootClassPath

    "Returns a default value of sun.boot.class.path"

    bootClassPath isNil ifTrue:[

        | jreHome libs |

        jreHome := self jreHome.

        libs := jreHome / 'lib'.

        bootClassPath := OrderedCollection new.

        libs directoryContentsAsFilenames do:[:each|

            (each pathName endsWith:'.jar') ifTrue:[

                (each pathName endsWith: 'rt.jar') ifTrue:[

                    bootClassPath addFirst: each pathName

                ] ifFalse:[

                    bootClassPath addLast: each pathName

                ]

            ].

        ].

    ].

    ^bootClassPath.

    "

    Java release bootClassPath

    "

    "Created: / 02-11-2011 / 12:19:43 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Modified (format): / 31-07-2012 / 10:16:25 / jv"

    "Modified: / 23-01-2013 / 15:18:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (format): / 11-04-2013 / 14:30:16 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"

!

bootClassPath:aCollectionOfPathes

    "Change the bootClassPath"                         

    bootClassPath := OrderedCollection withAll:aCollectionOfPathes.

    "

    Java release bootClassPath

    "

!

javaBundle

    "Returns bundle representing Java code (both core + extections)"

    bundle isNil ifTrue:[

        bundle := JavaCodeBundle new

                    name: self name;

                    add: self bootBundle;

                    add: self extBundle;

                    yourself.

    ].

    ^bundle

    "Created: / 12-02-2013 / 14:56:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

javaExtDirs

    "Returns a default value of java.ext.dirs property"

    OperatingSystem isUNIXlike ifTrue:[ ^ self javaExtDirsOnUNIX ].

    OperatingSystem isMSWINDOWSlike ifTrue:[ ^ self javaExtDirsOnWindows ].

    self error:'Unsupported platform'.

    ^ #()

    "

        JavaRelease openJDK6 classPath

    "

    "Modified: / 27-10-2010 / 21:48:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Created: / 31-08-2011 / 19:59:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

javaExtDirsOnUNIX

    ^#()

    "Created: / 31-08-2011 / 19:59:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

javaExtDirsOnWindows

    ^#()

    "Created: / 31-08-2011 / 19:59:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

javaHome

    "Answer a Java home. This is either path to JRE (no JDK is found) or to

     full JDK (if JDK is installed)

     If you want path to either JRE or JDK, use

     #jreHome

     #jdkHome

     "

    javaHome isNil ifTrue:[

        javaHome := self searchForJavaHome.

    ].

    ^javaHome

    "

        JavaRelease openJDK6 javaHome

    "

    "Created: / 27-10-2010 / 18:59:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

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

    "Modified (comment): / 23-01-2013 / 12:19:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

javaHome: aString

     javaHome := aString.

     self searchForSourcePath.

    "

        JavaRelease openJDK6 javaHome

    "