JavaRelease.st
branchdevelopment
changeset 1873 4b51dd1a0434
parent 1871 684663e931e8
child 1876 482ad5ebe5da
equal deleted inserted replaced
1872:60e6afa5d5a9 1873:4b51dd1a0434
   593 
   593 
   594 searchForClassPath
   594 searchForClassPath
   595 
   595 
   596     | jreHome jdkHome |
   596     | jreHome jdkHome |
   597     classPath := OrderedCollection new.
   597     classPath := OrderedCollection new.
   598     jreHome := self jreHome.
   598     jreHome := self jreHome asFilename.
   599     jdkHome := self javaHome.
   599     jdkHome := self javaHome asFilename.
   600     jreHome isNil ifTrue:[ ^ #() ].
   600     jreHome isNil ifTrue:[ ^ #() ].
   601     "Ensure, that rt.jar is first"
   601     "Ensure, that rt.jar is first"
   602     classPath add: (JavaPathElement newFromRelease:(jreHome / 'lib' / 'rt.jar') asString).
   602     classPath add: (JavaPathElement newFromRelease:(jreHome / 'lib' / 'rt.jar') asString).
   603 
   603 
   604     self searchForClassPathIn: jreHome / 'lib' .
   604     self searchForClassPathIn: jreHome / 'lib' .
   615         Java release classPath.
   615         Java release classPath.
   616     
   616     
   617     "
   617     "
   618 
   618 
   619     "Created: / 27-10-2010 / 21:15:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   619     "Created: / 27-10-2010 / 21:15:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   620     "Modified: / 15-12-2012 / 00:50:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   620     "Modified: / 15-12-2012 / 01:05:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   621 !
   621 !
   622 
   622 
   623 searchForClassPathIn: dir 
   623 searchForClassPathIn: dir 
   624     dir exists ifFalse: [ ^ self ].
   624     dir exists ifFalse: [ ^ self ].
   625     dir directoryContentsAsFilenames do: [
   625     dir directoryContentsAsFilenames do: [
   659             [(self validateJavaHome: homeAsFilename) ifTrue:
   659             [(self validateJavaHome: homeAsFilename) ifTrue:
   660                 [^javaHome := home]]].
   660                 [^javaHome := home]]].
   661 
   661 
   662     ^nil
   662     ^nil
   663 
   663 
       
   664     "
       
   665     Java release searchForJavaHome
       
   666     Java release javaHome
       
   667 
       
   668     "
       
   669 
   664     "Created: / 27-10-2010 / 19:03:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   670     "Created: / 27-10-2010 / 19:03:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   665     "Modified: / 22-11-2010 / 13:18:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   671     "Modified: / 22-11-2010 / 13:18:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   666     "Modified: / 15-03-2011 / 13:29:14 / Jan Kurs <kursjan@fit.cvut.cz>"
   672     "Modified: / 15-03-2011 / 13:29:14 / Jan Kurs <kursjan@fit.cvut.cz>"
   667     "Modified: / 15-03-2011 / 13:47:02 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
   673     "Modified: / 15-03-2011 / 13:47:02 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
   668     "Modified: / 19-07-2012 / 11:08:04 / jv"
   674     "Modified: / 19-07-2012 / 11:08:04 / jv"
       
   675     "Modified (comment): / 15-12-2012 / 01:04:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   669 !
   676 !
   670 
   677 
   671 searchForSourcePath
   678 searchForSourcePath
   672 
   679 
   673     | java_home src_zip |
   680     | java_home src_zip |
   923 
   930 
   924     "Created: / 31-08-2011 / 20:02:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   931     "Created: / 31-08-2011 / 20:02:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   925 !
   932 !
   926 
   933 
   927 javaHomesOnUNIX
   934 javaHomesOnUNIX
   928     ^ #( '/usr/lib/jvm/java-6-openjdk/jre' )
   935     ^ #( '/usr/lib/jvm/java-6-openjdk'
   929 
   936          '/usr/lib/jvm/java-6-openjdk/jre' )
   930     "Modified: / 07-08-2011 / 20:38:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   937 
       
   938     "Modified: / 15-12-2012 / 01:02:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   931 !
   939 !
   932 
   940 
   933 name
   941 name
   934     "superclass JavaRelease says that I am responsible to implement this method"
   942     "superclass JavaRelease says that I am responsible to implement this method"
   935 
   943