JavaRelease.st
branchdevelopment
changeset 1927 007031278841
parent 1925 e159b0acb161
child 1949 a83c0afe06a4
equal deleted inserted replaced
1926:32f3cef32ca5 1927:007031278841
  1001     sourcePath := OrderedCollection new.
  1001     sourcePath := OrderedCollection new.
  1002     java_homes := OrderedCollection new.
  1002     java_homes := OrderedCollection new.
  1003     self javaHome notNil ifTrue:[
  1003     self javaHome notNil ifTrue:[
  1004         java_homes add: self javaHome
  1004         java_homes add: self javaHome
  1005     ].
  1005     ].
  1006     "OpenJDK 7 on Linux is in two directories:
       
  1007         /usr/lib/jvm/java-7-openjdk-amd64  - self javaHome
       
  1008         /usr/lib/jvm/java-7-openjdk-common
       
  1009 
       
  1010     Search both...
       
  1011     "
       
  1012     OperatingSystem isUNIXlike ifTrue:[
       
  1013         '/usr/lib/jvm/java-7-openjdk-common' asFilename exists ifTrue:[
       
  1014             java_homes add: '/usr/lib/jvm/java-7-openjdk-common/jre'
       
  1015         ]
       
  1016     ].
       
  1017     
       
  1018 
  1006 
  1019     java_homes do:[ :java_home |
  1007     java_homes do:[ :java_home |
  1020         src_zip := java_home asFilename directory / 'src.zip'.
  1008         src_zip := java_home asFilename directory / 'src.zip'.
  1021         src_zip exists ifTrue:[sourcePath add: (JavaPathElement newFromRelease:src_zip asString)].
  1009         src_zip exists ifTrue:[sourcePath add: (JavaPathElement newFromRelease:src_zip asString)].
  1022     ].
  1010     ].
  1024     "
  1012     "
  1025         JavaRelease openJDK7 searchForSourcePath; sourcePath      
  1013         JavaRelease openJDK7 searchForSourcePath; sourcePath      
  1026     "
  1014     "
  1027 
  1015 
  1028     "Created: / 03-09-2012 / 18:38:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1016     "Created: / 03-09-2012 / 18:38:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1029     "Modified: / 09-01-2013 / 15:16:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1017     "Modified: / 09-01-2013 / 17:09:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1030 ! !
  1018 ! !
  1031 
  1019 
  1032 !JavaRelease::OpenJDK7 class methodsFor:'documentation'!
  1020 !JavaRelease::OpenJDK7 class methodsFor:'documentation'!
  1033 
  1021 
  1034 copyright
  1022 copyright