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

	^ Java as_ST_String:val

    ].

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

    ^ val.

    "Modified: 8.8.1997 / 12:07:23 / cg"

!

javaStringFrom:aString

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

    self halt.

    ^ Java as_String:aString

    "Modified: 7.8.1997 / 21:17:32 / cg"

!

stringFromJavaString:aJavaString

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

    self halt.

    ^ Java as_ST_String:aJavaString

    "Modified: 8.8.1997 / 12:07:29 / cg"

! !

!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 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 := JavaClass lookupMethod:sel numArgs:1 in:self class static:false.

	"/ method := self lookupMethod:sel numArgs:1.

	method notNil ifTrue:[

	    ^ method

		valueWithReceiver:self

		arguments:(Array with:argument)

"/            ^ 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.1.1998 / 02:21:22 / cg"

! !

!JavaObject methodsFor:'message sending'!

doesNotUnderstand:aMessage

    "as a courtesy to the smalltalker, try to map methods"

    |args numArgs javaMethod sel|

    args := aMessage arguments.

    numArgs := args size.

    sel := aMessage selector.

    javaMethod := JavaClass lookupMethod:sel numArgs:numArgs in:self class static:false.

    javaMethod notNil ifTrue:[

        args notNil ifTrue:[

            args := JavaClass convertArgsToJava:args.

        ].

        ^ javaMethod 

            valueWithReceiver:self 

            arguments:args

            selector:sel 

            search:nil

            sender:nil

    ].

    ^ super doesNotUnderstand:aMessage

    "Modified: / 4.11.1998 / 17:10:43 / 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.

    i push:arg2.

    i push:arg3.

    i push:arg4.

    val := i interpret:aJavaMethod sender:s.

    ^ JavaObject convertJavaObject:val signature:(aJavaMethod retValSignature)

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

    "Created: 6.8.1997 / 02:41:32 / cg"

!

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

    "invoke a java method, with 5 arguments.

     CAVEAT: these cannot be long or doubles currently."

    |val|

    aJavaMethod numArgs ~~ 5 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 with:arg5) selector:sel.

    val notNil ifTrue:[^ val].

    i push:self.

    i push:arg1.

    i push:arg2.

    i push:arg3.

    i push:arg4.

    i push:arg5.

    val := i interpret:aJavaMethod sender:s.

    ^ JavaObject convertJavaObject:val signature:(aJavaMethod retValSignature)

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

    "Created: 3.8.1997 / 20:32:03 / cg"

!

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

    "invoke a java method, with 6 arguments.

     CAVEAT: these cannot be long or doubles currently."

    |val|

    aJavaMethod numArgs ~~ 6 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 with:arg5 with:arg6) selector:sel.

    val notNil ifTrue:[^ val].

    i push:self.

    i push:arg1.

    i push:arg2.

    i push:arg3.

    i push:arg4.

    i push:arg5.

    i push:arg6.

    val := i interpret:aJavaMethod sender:s.

    ^ JavaObject convertJavaObject:val signature:(aJavaMethod retValSignature)

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

    "Created: 7.8.1997 / 20:57:55 / cg"

!

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'

    ].

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

    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"

!

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

    "invoke a java method, with 3 arguments.

     CAVEAT: these cannot be long or doubles currently."

    |val|

    aJavaMethod numArgs ~~ 3 ifTrue:[

	self halt:'argument count'

    ].

    aJavaMethod isStatic ifTrue:[

	self halt:'static function'

    ].

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

    val notNil ifTrue:[^ val].

    i push:self.

    i push:arg1.

    i push:arg2.

    i push:arg3.

    val := i interpret:aJavaMethod sender:s.

    ^ JavaObject convertJavaObject:val signature:(aJavaMethod retValSignature)

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

!

invokeJavaMethod:aJavaMethod interpreter:i sender:s 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).

    val notNil ifTrue:[^ val].

    i push:self.

    i push:arg1.

    i push:arg2.

    i push:arg3.

    i push:arg4.

    val := i interpret:aJavaMethod sender:s.

    ^ JavaObject convertJavaObject:val signature:(aJavaMethod retValSignature)

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

!

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'

    ].