Object subclass:#JavaObject

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Java-Classes'

!

!JavaObject  class methodsFor:'misc'!

resolveClassRefs

!

resolveClassRefsIgnoring:setOfClasses

! !

!JavaObject  class methodsFor:'smalltalk interface'!

convertJavaObject:val signature:retValSignature

^ val.

    retValSignature = 'void' ifTrue:[

        ^ #void

    ].

    retValSignature = 'boolean' ifTrue:[

        val == 0 ifTrue:[^ false].

        ^ true

    ].

    retValSignature = 'int' ifTrue:[

        val isInteger ifFalse:[

            self halt

        ].

        ^ val

    ].

    retValSignature = 'char[]' ifTrue:[

        "/ these are ST-strings

        ^ val

    ].

    retValSignature = 'char' ifTrue:[

        "/ these are ST-characters

        val isInteger ifTrue:[

            ^ Character value:val

        ].

        self halt.

        ^ val

    ].

    retValSignature = 'Object' ifTrue:[

        ^ val

    ].

    retValSignature = 'String' ifTrue:[

        ^ self stringFromJavaString:val

    ].

    'no conversion for: ' print. val class name print. ' to: ' print. retValSignature printNL.

    ^ val.

!

javaStringFrom:aString

    "hard-coding internas of java.lang.String here is bad ..."

    |s|

    s := Java javaString basicNew.

    s instVarNamed:'value'  put: aString.

    s instVarNamed:'offset' put: 0.

    s instVarNamed:'count'  put: aString size.

    ^ s

!

stringFromJavaString:aJavaString

    "hard-coding internas of java.lang.String here is bad ..."

    (aJavaString instVarNamed:'offset') ~~ 0 ifTrue:[self halt].

    ^ ((aJavaString instVarNamed:'value') 

        copyTo:(aJavaString instVarNamed:'count')) asString

! !

!JavaObject methodsFor:'initialization'!

initializeFields:initialValues

    |sz|

    sz := self class instSize.

    1 to:sz do:[:i |

        self instVarAt:i put:(initialValues at:i)

    ]

!

initializeToZero

    |sz|

    sz := self class instSize.

    1 to:sz do:[:i |

        self instVarAt:i put:0

    ]

! !

!JavaObject methodsFor:'message sending'!

invokeJava:selector

    "send javaSelector (name+sig) message, without arguments"

    |method|

    method := self class lookupMethodFor:selector.

    method notNil ifTrue:[

        ^ self invokeJavaMethod:method sender:thisContext

    ].

    ^ self doesNotUnderstand:(Message selector:selector)

!

invokeJava:selector interpreter:i sender:s with:arg1 with:arg2

    "send javaSelector (name+sig) message, with 2 arguments"

    |method|

    method := self class lookupMethodFor:selector.

    method notNil ifTrue:[

        ^ self invokeJavaMethod:method interpreter:i sender:s with:arg1 with:arg2

    ].

    ^ self doesNotUnderstand:(Message selector:selector)

!

invokeJava:selector with:arg

    "send javaSelector (name+sig) message, with 1 argument"

    |method|

    method := self class lookupMethodFor:selector.

    method notNil ifTrue:[

        ^ self invokeJavaMethod:method with:arg

    ].

    ^ self doesNotUnderstand:(Message selector:selector)

!

invokeJavaMethod:aJavaMethod

    "invoke java method, without arguments"

    ^ self invokeJavaMethod:aJavaMethod interpreter:JavaInterpreter new sender:thisContext sender.

!

invokeJavaMethod:aJavaMethod interpreter:i sender:aContext

    "invoke a java method, without arguments"

    |val|

    aJavaMethod numArgs ~~ 0 ifTrue:[

        self halt:'need arguments'

    ].

    aJavaMethod isStatic ifTrue:[

        self halt:'static function'

    ].

"/    i := JavaInterpreter new.

    i push:self.

    val := i interpret:aJavaMethod sender:aContext.

    ^ JavaObject convertJavaObject:val signature:(aJavaMethod retValSignature)

!

invokeJavaMethod:aJavaMethod interpreter:i sender:s with:arg1

    "invoke a java method, with two arguments.

     CAVEAT: these cannot be long or doubles currently."

    |val|

    aJavaMethod numArgs ~~ 1 ifTrue:[

        self halt:'argument count'

    ].

    aJavaMethod isStatic ifTrue:[

        self halt:'static function'

    ].

    i push:self.

    i push:arg1.

    val := i interpret:aJavaMethod sender:s.

    ^ JavaObject convertJavaObject:val signature:(aJavaMethod retValSignature)

!

invokeJavaMethod:aJavaMethod interpreter:i sender:s with:arg1 with:arg2

    "invoke a java method, with two arguments.

     CAVEAT: these cannot be long or doubles currently."

    |val|

    aJavaMethod numArgs ~~ 2 ifTrue:[

        self halt:'argument count'

    ].

    aJavaMethod isStatic ifTrue:[

        self halt:'static function'

    ].

    i push:self.

    i push:arg1.

    i push:arg2.

    val := i interpret:aJavaMethod sender:s.

    ^ JavaObject convertJavaObject:val signature:(aJavaMethod retValSignature)

!

invokeJavaMethod:aJavaMethod interpreter:i sender:s withAll:args

    "invoke a java method, with two arguments.

     CAVEAT: these cannot be long or doubles currently."

    |val|

    aJavaMethod numArgs ~~ args size ifTrue:[

        self halt:'argument count'

    ].

    aJavaMethod isStatic ifTrue:[

        self halt:'static function'

    ].

    i push:self.

    args do:[:arg |

        i push:arg.

    ].

    val := i interpret:aJavaMethod sender:s.

    ^ JavaObject convertJavaObject:val signature:(aJavaMethod retValSignature)

!

invokeJavaMethod:aJavaMethod sender:aContext

    "invoke a java method, without arguments"

    ^ self invokeJavaMethod:aJavaMethod interpreter:JavaInterpreter new sender:aContext

!

invokeJavaMethod:aJavaMethod with:arg

    "invoke a java method, with one argument.

     CAVEAT: this cannot be a long or doubles currently."

    ^ self invokeJavaMethod:aJavaMethod interpreter:JavaInterpreter new sender:thisContext sender with:arg

!

invokeJavaMethod:aJavaMethod with:arg1 with:arg2

    "invoke a java method, with two arguments.

     CAVEAT: these cannot be long or doubles currently."

    ^ self invokeJavaMethod:aJavaMethod interpreter:JavaInterpreter new sender:thisContext sender with:arg1 with:arg2

! !

!JavaObject methodsFor:'printing & storing'!

displayString

    self class == Java javaString ifTrue:[

        ^ '''' , (JavaObject stringFromJavaString:self) , ''''

    ].

    ^ super displayString.

    Object errorSignal handle:[:ex |

        ^ super displayString.

    ] do:[

        ^ JavaObject stringFromJavaString:(self invoke:#toString).

    ].

    ^ super displayString. "/ ^ 'a JavaObject(' , self class name , ')'

! !

!JavaObject methodsFor:'smalltalk interface'!

invoke:selector

    "send a message, without args"

    ^ self invoke:selector interpreter:(JavaInterpreter new) sender:thisContext sender

    "

     |stack|

     stack := (Java at:'java/util/Stack') basicNew.

     stack invoke:#'<init>'. 

    "

    "

     |stack|

     stack := (Java at:'java/util/Stack') new.

     stack invoke:#isEmpty. 

    "

    "

     |stack|

     stack := (Java at:'java/util/Stack') new.

     stack invoke:#size. 

    "

!

invoke:selector interpreter:i sender:aContext

    "send a message, without args"

    |method cls sel|

    method := self lookupMethod:selector numArgs:0.

    method notNil ifTrue:[

        ^ self invokeJavaMethod:method interpreter:i sender:aContext

    ].

    ^ self doesNotUnderstand:(Message selector:selector)

    "

     |stack|

     stack := (Java at:'java/util/Stack') basicNew.

     stack invoke:#'<init>'. 

    "

    "

     |stack|

     stack := (Java at:'java/util/Stack') new.

     stack invoke:#isEmpty. 

    "

    "

     |stack|

     stack := (Java at:'java/util/Stack') new.

     stack invoke:#size. 

    "

!

invoke:selector interpreter:i sender:aContext with:argument

    "send a message, with 1 argument. 

     TEMPORARY: This method needs more work."

    |sel method cls argClass jSel|

    sel := selector asSymbolIfInterned.

    sel notNil ifTrue:[

        "/

        "/ hard to do - must find a matching method probably

        "/

        (argument isKindOf:JavaObject) ifTrue:[

            argClass := argument class.

        ] ifFalse:[

            "/

            "/ map to Java:

            "/   String -> [c

            "/

            (argument isMemberOf:String) ifTrue:[

                jSel := (selector , '([C)V') asSymbolIfInterned.

                jSel notNil ifTrue:[

                    ^ self invokeJava:jSel interpreter:i sender:aContext with:argument

                ]

            ]

        ].

        method := self lookupMethod:sel numArgs:1.

        method notNil ifTrue:[

            ^ self invokeJavaMethod:method interpreter:i sender:aContext with:argument

        ].

"/        cls := self class.

"/        [cls notNil and:[cls ~~ JavaObject]] whileTrue:[

"/            cls methodDictionary keysAndValuesDo:[:sel :aMethod |

"/                aMethod name == sel ifTrue:[

"/                    aMethod numArgs == 1 ifTrue:[

"/                        "/

"/                        "/ this is not completely correct:

"/                        "/ must look for the best type-match,

"/                        "/ (especially: have to look for best match

"/                        "/  over whole superclass chain ...)

"/                        "/ for now take the first with matching number of args

"/                        "/

"/                        ^ self invokeJavaMethod:aMethod with:argument

"/                    ]

"/                ]

"/            ].

"/            cls := cls superclass.

"/        ].

    ].

    ^ self doesNotUnderstand:(Message selector:selector)

    "

     |stack|

     stack := (Java at:'java/util/Stack') new.

     stack invoke:#push with:1. 

    "

    "

     |stack|

     stack := (Java at:'java/util/Stack') new.

     stack invoke:#push with:1. 

     stack invoke:#push with:2. 

     stack invoke:#pop. 

     stack invoke:#pop. 

     stack invoke:#pop. 

    "

!

invoke:selector sender:aContext

    "send a message, without args"

    |method cls sel|

    method := self lookupMethod:selector numArgs:0.

    method notNil ifTrue:[

        ^ self invokeJavaMethod:method interpreter:(JavaInterpreter new) sender:aContext

    ].

    ^ self doesNotUnderstand:(Message selector:selector)

    "

     |stack|

     stack := (Java at:'java/util/Stack') basicNew.

     stack invoke:#'<init>'. 

    "

    "

     |stack|