--- a/loadAll Tue Aug 05 18:49:44 1997 +0000
+++ b/loadAll Tue Aug 05 22:59:16 1997 +0000
@@ -73,38 +73,29 @@
!
Java flushClasses.
-Java classPath:#(
-"/ '/phys/ibm_pubdom/JAVA/jdk11/lib/classes'
-"/ '/phys/ibm_pubdom/JAVA/jdk11/coj'
-"/ '/phys/ibm_pubdom/JAVA/jdk11/HotJava1.0/lib/classes'
-"/ '/phys/ibm_pubdom/JAVA/jdk11/bdk/beanbox/classes'
+!
- '/usr/lib/java/lib/classes'
-"/"/ '/home2/java/jdk1.13/java/lib/classes'
-"/"/ '/home2/java/moz3_0/lib_unix/classes'
-"/"/ '/usr/local/java/jdk1.13/java/lib/classes'
-"/"/ '/usr/local/java/moz3_0/lib_unix/classes'
-
-"/ '/home2/java/jdk1.13/java/lib/classes'
-"/ '/home2/java/jdk1.02/java/lib/classes'
-"/ '/home2/java/JDK/classes'
- ).
+|javaHome|
-Java sourceDirectories:#(
-"/ '/phys/ibm_pubdom/JAVA/jdk11/src'
-"/ '/phys/ibm_pubdom/JAVA/jdk11/bdk/beanbox'
-
- '/usr/lib/java/src'
-"/"/ '/home2/java/jdk1.13/java/src'
-"/"/ '/usr/local/java/jdk1.13/java/src'
+javaHome := '/usr/local/java'.
+javaHome asFilename exists ifFalse:[
+ javaHome := '/usr/lib/java'.
+].
+[javaHome size <= 0
+ or:[javaHome asFilename exists
+ and:[(javaHome asFilename construct:'lib/classes') exists]]] whileFalse:[
+ javaHome := Dialog request:'what is the home of your java installation\\(Must contain the subdirs ''lib/classes'' and ''src'')' withCRs
+ initialAnswer:javaHome.
+].
-"/ '/home2/java/jdk1.13/java/src'
-"/ '/home2/java/jdk1.02/java/src'
-"/ '/home2/java/JDK/src'
- ).
+javaHome size > 0 ifTrue:[
+ Java javaHome:javaHome.
+ Java classPath:(Array with:(javaHome , '/lib/classes')).
+ Java sourceDirectories:(Array with:(javaHome , '/src')).
-"/ JavaClassReader loadClass:'java/util/Stack'.
-JavaClassReader loadClass:'sun.tools.javac.Main'.
-JavaClassReader loadClass:'java/rmi/server/RemoteServer'.
-JavaBrowser open
+ "/ JavaClassReader loadClass:'java/util/Stack'.
+ JavaClassReader loadClass:'sun.tools.javac.Main'.
+ JavaClassReader loadClass:'java/rmi/server/RemoteServer'.
+ JavaBrowser open
+]
!