"

 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 classPath sourcePath classes bootClassPathClasses

		extDirsClasses'

	classVariableNames:''

	poolDictionaries:''

	category:'Languages-Java-Support'

!

JavaRelease class instanceVariableNames:'instance'

"

 No other class instance variables are inherited by this class.

"

!

JavaRelease subclass:#Custom

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease subclass:#OpenJDK6

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease::OpenJDK6 subclass:#OpenJDK7

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease subclass:#SunJDK122

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaRelease

!

JavaRelease::OpenJDK6 subclass:#SunJDK6

	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

"

! !

!JavaRelease class methodsFor:'instance creation'!

custom

    ^Custom instance

    "Created: / 26-07-2012 / 23:37:25 / 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>"

!

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

!

sunJDK6

    ^ SunJDK6 instance

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

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

    "Modified: / 27-07-2012 / 00:22:52 / 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

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

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

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

! !

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

    OperatingSystem isUNIXlike ifTrue: [ ^ self bootClassPathOnUNIX ].

    OperatingSystem isMSWINDOWSlike ifTrue: [ ^ self bootClassPathOnWindows ].

    self error: 'Unsupported platform'.

    ^ #().

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

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

!

bootClassPathOnUNIX

    "Not known..."

    ^#()

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

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

!

bootClassPathOnWindows

    "Should be same as on UNIX (computed relative to classPath)"

    ^self bootClassPathOnUNIX

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

    "Modified: / 31-07-2012 / 10:16:14 / jv"

!

classPath

    "Returns a default class path"

    classPath ifNil:[self searchForClassPath].

    ^classPath

    "

        JavaRelease openJDK6 classPath

    "

    "Created: / 27-10-2010 / 19:20:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 27-10-2010 / 21:48:07 / 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"

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

!

javaHomeOrNil

    "Answer a Java home"

    | home |

    home := (javaHome 

                ifNotNil:[javaHome]

                ifNil:[self searchForJavaHome]).

    ^home

    "

        JavaRelease openJDK6 javaHome

    "

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

!

javaHomes

    "Answer a set of possible java homes, those directories are searched"

    OperatingSystem isUNIXlike ifTrue:[ ^ self javaHomesOnUNIX ].

    OperatingSystem isMSWINDOWSlike ifTrue:[ ^ self javaHomesOnWindows ].

    self error:'Unsupported platform'.

    ^ #()

    "Modified: / 22-11-2010 / 13:28:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

javaHomesOnUNIX

    "raise an error: must be redefined in concrete subclass(es)"

    ^ self subclassResponsibility

!

javaHomesOnWindows

    "raise an error: must be redefined in concrete subclass(es)"

    ^ self subclassResponsibility

!

jreHome

    "Answers the directory where the JRE lives"

    | jreHome |

    self javaHome isNil ifTrue:[ ^ nil ].

    ^(jreHome := self javaHome asFilename / 'jre') exists

        ifTrue:[jreHome]

        ifFalse:[javaHome asFilename].

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

!

name

    "Answer a human readable name of the Java release such as Sun JDK 1.2.2 or OpenJDK 6"

    ^self subclassResponsibility

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

!

priority

    ^50

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

!

selector

    "Returns instance-creation selector to get the receiver.

     See JavaRelease class, protocol instance creation"

    ^self subclassResponsibility

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

!

sourcePath

    "Returns a paths where sources are located"

    sourcePath ifNil:[self searchForSourcePath].

    ^sourcePath

    "

        JavaRelease openJDK6 sourcePath        

    "

    "Created: / 27-10-2010 / 19:20:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 30-11-2010 / 11:55:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaRelease methodsFor:'debugging'!

dumpConfigOn: stream

    | dumper |

    dumper := [:name :value :isfile|

        | values |

        '%-15s : ' printf:{ name } on: stream.

        value isString

            ifTrue:[values := { value asString }]

            ifFalse:[values := value].

        values do:[:v|

            stream nextPutAll: v asString.

            isfile ifTrue:[

                v asFilename exists ifFalse:[

                    stream nextPutAll:' (not found!!!!!!)'

                ].

            ]

        ] separatedBy:[stream cr; next: 15 + 3 put: Character space].

        stream cr.

    ].

    stream nextPutAll: '== Java release config =='; cr.

    dumper value: 'name' value: self name value: false.

    dumper value: 'java home' value: self javaHome value: true.

    dumper value: 'jre  home' value: self jreHome asString value: true.

    dumper value: 'class path' value: self classPath value: true.

    dumper value: 'boot class path' value: self bootClassPath value: true.

    dumper value: 'ext dirs' value: self javaExtDirs value: true.

    "

        Java release dumpConfigOn: Transcript.

    "

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

! !

!JavaRelease methodsFor:'displaying'!

displayString

    ^self name

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

! !

!JavaRelease methodsFor:'initialization'!

initializeBootClassPathIndex

    bootClassPathClasses := IdentitySet new.

    self bootClassPath do: [:file | 

        | filename |

        filename := file pathName.            

        self assert: (file suffix = 'jar').

        self assert: (file exists).

        self selectAllClassNamesIn: filename to: bootClassPathClasses.

    ].

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

    "Modified: / 02-11-2011 / 23:46:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 19-07-2012 / 11:02:41 / jv"

!

initializeClassIndex

    | jreHome |

    (jreHome := self jreHome) isNil ifTrue:[ ^ self ].

    classes := IdentitySet new.

    self jreHome recursiveDirectoryContents do: [

        :each | 

        (each endsWith: '.class') ifTrue: [

            classes add: each asSymbol.

        ].

        (each endsWith: '.jar') ifTrue: [ self selectAllClassNamesIn: (self jreHome asFilename / each asFilename) to: classes. ]

    ].

    "Created: / 01-11-2011 / 14:09:07 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Modified: / 27-07-2012 / 13:59:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

initializeExtDirsIndex

    extDirsClasses := IdentitySet new.

    self javaExtDirs do: [

        :dir | 

        dir exists ifFalse: [

            Logger 

                log: dir pathName 

                        , ', included in JavaRelease>>javaExtDirs, does not exist'

                severity: #info

                facility: 'JVM'

        ] ifTrue: [

            dir recursiveDirectoryContents do: [

                :filename | 

                (filename endsWith: '.class') ifTrue: [ extDirsClasses add: filename asSymbol ].