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:[

    ].

    '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 ..."

!

stringFromJavaString:aJavaString

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

! !

!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:'interpreter interface'!

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

            selector:selector

    ].

    ^ super 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. 

    "

    "Modified: 1.8.1997 / 21:50:53 / cg"

!

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 

                        invoke:jSel 

                        interpreter:i 

                        sender:aContext 

                        with:argument

                ]

            ]

        ].

        method := self lookupMethod:sel numArgs:1.

        method notNil ifTrue:[

            ^ self 

                invokeJavaMethod:method 

                interpreter:i 

                sender:aContext 

                selector:sel

                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.

"/        ].

    ].

    ^ super 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. 

    "

    "Modified: 5.8.1997 / 02:52:42 / cg"

!

invoke:selector interpreter:i sender:aContext with:arg1 with:arg2 

    "send a message, with 2 arguments. 

     TEMPORARY: This method needs more work."

    |sel method cls argClass jSel|

    sel := selector asSymbolIfInterned.

    sel notNil ifTrue:[

        method := self lookupMethod:sel numArgs:2.

        method notNil ifTrue:[

            ^ self 

                invokeJavaMethod:method 

                interpreter:i 

                sender:aContext

                selector:selector

                with:arg1 with:arg2

        ].

    ].

    ^ super doesNotUnderstand:(Message selector:selector)

    "Modified: 30.7.1997 / 13:47:05 / cg"

!

invoke:selector interpreter:i sender:aContext with:arg1 with:arg2 with:arg3

    "send a message, with 3 arguments. 

     TEMPORARY: This method needs more work."

    |sel method cls argClass jSel|

    sel := selector asSymbolIfInterned.

    sel notNil ifTrue:[

        method := self lookupMethod:sel numArgs:3.

        method notNil ifTrue:[

            ^ self 

                invokeJavaMethod:method 

                interpreter:i 

                sender:aContext 

                selector:selector

                with:arg1 with:arg2 with:arg3

        ].

    ].

    ^ super doesNotUnderstand:(Message selector:selector)

    "Modified: 30.7.1997 / 13:47:22 / cg"

!

invoke:selector interpreter:i sender:aContext with:arg1 with:arg2 with:arg3 with:arg4

    "send a message, with 4 arguments. 

     TEMPORARY: This method needs more work."

    |sel method cls argClass jSel|

    sel := selector asSymbolIfInterned.

    sel notNil ifTrue:[

        method := self lookupMethod:sel numArgs:4.

        method notNil ifTrue:[

            ^ self 

                invokeJavaMethod:method 

                interpreter:i

                sender:aContext 

                selector:selector

                with:arg1 with:arg2 with:arg3 with:arg4

        ].

    ].

    ^ super doesNotUnderstand:(Message selector:selector)

    "Modified: 30.7.1997 / 13:47:45 / cg"

!

invoke:selector interpreter:i sender:aContext with:arg1 with:arg2 with:arg3 with:arg4 with:arg5

    "send a message, with 5 arguments. 

     TEMPORARY: This method needs more work."

    |sel method cls argClass jSel|

    sel := selector asSymbolIfInterned.

    sel notNil ifTrue:[

        method := self lookupMethod:sel numArgs:5.

        method notNil ifTrue:[

            ^ self 

                invokeJavaMethod:method 

                interpreter:i 

                sender:aContext 

                selector:selector

                with:arg1 with:arg2 with:arg3 with:arg4 with:arg5

        ].

    ].

    ^ super doesNotUnderstand:(Message selector:selector)

    "Modified: 3.8.1997 / 20:31:03 / cg"

!

invoke:selector interpreter:i sender:aContext withAll:arguments

    "send a message, with arguments. 

     TEMPORARY: This method needs more work."

    |sel method cls argClass jSel|

    sel := selector asSymbolIfInterned.

    sel notNil ifTrue:[

        method := self lookupMethod:sel numArgs:arguments size.

        method notNil ifTrue:[

            ^ self 

                invokeJavaMethod:method 

                interpreter:i 

                sender:aContext 

                selector:selector

                withAll:arguments

        ].

    ].

    ^ super doesNotUnderstand:(Message selector:selector)

    "Modified: 30.7.1997 / 13:48:02 / cg"

! !

!JavaObject methodsFor:'message sending'!

doesNotUnderstand:aMessage

    |args numArgs javaMethod sel arg1 arg2|

    args := aMessage arguments.

    numArgs := args size.

    sel := aMessage selector.

    numArgs == 0 ifTrue:[

        ^ self invoke:sel.

    ].

    arg1 := args at:1.

    numArgs == 1 ifTrue:[

        ^ self invoke:sel with:arg1.

    ].

    arg2 := args at:2.

    numArgs == 2 ifTrue:[

        ^ self invoke:sel with:arg1 with:arg2.

    ].

    ^ super doesNotUnderstand:aMessage

    "Modified: 1.8.1997 / 21:42:31 / cg"

!

invokeJavaMethod:aJavaMethod interpreter:i sender:s selector:sel

    "invoke a java method, without arguments."

    |val|

    aJavaMethod numArgs ~~ 0 ifTrue:[

        self halt:'argument count'

    ].

    aJavaMethod isStatic ifTrue:[

        self halt:'static function'

    ].

    val := aJavaMethod valueWithReceiver:self arguments:#() selector:sel.

    val notNil ifTrue:[^ val].

    i push:self.

    val := i interpret:aJavaMethod sender:s.

    ^ JavaObject convertJavaObject:val signature:(aJavaMethod retValSignature)

    "Modified: 30.7.1997 / 13:20:29 / cg"

    "Created: 30.7.1997 / 13:37:25 / cg"

!

invokeJavaMethod:aJavaMethod interpreter:i sender:s selector:sel 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'

    ].

    val := aJavaMethod valueWithReceiver:self arguments:(Array with:arg1) selector:sel.

    val notNil ifTrue:[^ val].

    i push:self.

    i push:arg1.

    val := i interpret:aJavaMethod sender:s.

    ^ JavaObject convertJavaObject:val signature:(aJavaMethod retValSignature)

    "Modified: 30.7.1997 / 13:20:35 / cg"

    "Created: 30.7.1997 / 13:41:01 / cg"

!

invokeJavaMethod:aJavaMethod interpreter:i sender:s selector:sel 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'

    ].

    val := aJavaMethod valueWithReceiver:self arguments:(Array with:arg1 with:arg2) selector:sel.

    val notNil ifTrue:[^ val].

    i push:self.

    i push:arg1.

    i push:arg2.

    val := i interpret:aJavaMethod sender:s.

    ^ JavaObject convertJavaObject:val signature:(aJavaMethod retValSignature)

    "Modified: 30.7.1997 / 13:20:35 / cg"

    "Created: 30.7.1997 / 13:36:02 / cg"

!

invokeJavaMethod:aJavaMethod interpreter:i sender:s selector:sel with:arg1 with:arg2 with:arg3 with:arg4

    "invoke a java method, with 4 arguments.

     CAVEAT: these cannot be long or doubles currently."

    |val|

    aJavaMethod numArgs ~~ 4 ifTrue:[

        self halt:'argument count'

    ].

    aJavaMethod isStatic ifTrue:[

        self halt:'static function'

    ].

    val := aJavaMethod valueWithReceiver:self arguments:(Array with:arg1 with:arg2 with:arg3 with:arg4) selector:sel.

    val notNil ifTrue:[^ val].

    i push:self.

    i push:arg1.