Smalltalk fileIn:'Java.st'.

Smalltalk fileIn:'JavaConstantPool.st'.
Smalltalk fileIn:'JavaSlotIndexCache.st'.

Smalltalk fileIn:'JavaObject.st'.
Smalltalk fileIn:'JavaClass.st'.
Smalltalk fileIn:'JavaMethod.st'.
Smalltalk fileIn:'JavaMethodWithBreakpoint.st'.
"/ Smalltalk fileIn:'JavaString.st'.
Smalltalk fileIn:'JavaContext.st'.
Smalltalk fileIn:'JavaProcess.st'.

Smalltalk fileIn:'JavaBrowser.st'.
Smalltalk fileIn:'JavaClassReader.st'.
Smalltalk fileIn:'JavaDecompiler.st'.
Smalltalk fileIn:'JavaInterpreter.st'.
Smalltalk fileIn:'JavaExceptionTableEntry.st'.
Smalltalk fileIn:'JavaLocalVariableTable.st'.
Smalltalk fileIn:'JavaLocalVariableTableEntry.st'.

Smalltalk fileIn:'JavaRef.st'.
Smalltalk fileIn:'JavaClassRef.st'.
Smalltalk fileIn:'JavaField.st'.
Smalltalk fileIn:'JavaFieldref.st'.
Smalltalk fileIn:'JavaMethodref.st'.
Smalltalk fileIn:'JavaInterfaceMethodref.st'.
Smalltalk fileIn:'JavaNameandType.st'.
Smalltalk fileIn:'JavaClassPointerRef.st'.
Smalltalk fileIn:'JavaBuiltInClassPointerRef.st'.

Smalltalk fileIn:'JavaUnresolvedConstant.st'.
Smalltalk fileIn:'JavaUnresolvedRefConstant.st'.
Smalltalk fileIn:'JavaUnresolvedClassConstant.st'.
Smalltalk fileIn:'JavaUnresolvedFieldrefConstant.st'.
Smalltalk fileIn:'JavaUnresolvedMethodrefConstant.st'.
Smalltalk fileIn:'JavaUnresolvedInterfaceMethodrefConstant.st'.
Smalltalk fileIn:'JavaUnresolvedNameandTypeConstant.st'.
Smalltalk fileIn:'JavaUnresolvedStringConstant.st'.
!

Smalltalk fileIn:'JavaParseNode.st'.

Smalltalk fileIn:'JavaAssignmentNode.st'.
Smalltalk fileIn:'JavaBinaryExpressionNode.st'.

Smalltalk fileIn:'JavaPrimaryNode.st'.
Smalltalk fileIn:'JavaConstantNode.st'.
Smalltalk fileIn:'JavaVariableNode.st'.

Smalltalk fileIn:'JavaMessageNode.st'.
Smalltalk fileIn:'JavaNewNode.st'.
Smalltalk fileIn:'JavaReturnNode.st'.
Smalltalk fileIn:'JavaStatementNode.st'.
Smalltalk fileIn:'JavaUnaryExpressionNode.st'.
Smalltalk fileIn:'JavaExpressionNode.st'.
Smalltalk fileIn:'JavaIfNode.st'.
Smalltalk fileIn:'JavaForNode.st'.
Smalltalk fileIn:'JavaGotoNode.st'.
Smalltalk fileIn:'JavaWhileNode.st'.
Smalltalk fileIn:'JavaTryCatchNode.st'.
Smalltalk fileIn:'JavaThrowNode.st'.
Smalltalk fileIn:'JavaConditionalExpressionNode.st'.
Smalltalk fileIn:'JavaMonitorNode.st'.
Smalltalk fileIn:'JavaSwitchNode.st'.

Smalltalk fileIn:'JavaStatementList.st'.
Smalltalk fileIn:'JavaDeparser.st'.

Smalltalk fileIn:'SmalltalkAppletContext.st'.
Smalltalk fileIn:'SmalltalkAppletStub.st'.

!

Java flushClasses. 
!

|javaHome|

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

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