equal
deleted
inserted
replaced
77 OTHER DEALINGS IN THE SOFTWARE. |
77 OTHER DEALINGS IN THE SOFTWARE. |
78 |
78 |
79 " |
79 " |
80 ! ! |
80 ! ! |
81 |
81 |
|
82 |
82 !JavaLookup class methodsFor:'instance creation'! |
83 !JavaLookup class methodsFor:'instance creation'! |
83 |
84 |
84 cleanup |
85 cleanup |
85 |
86 |
86 Instance := nil. |
87 Instance := nil. |
107 |
108 |
108 "Created: / 25-02-2011 / 14:44:43 / kursjan <kursjan@fit.cvut.cz>" |
109 "Created: / 25-02-2011 / 14:44:43 / kursjan <kursjan@fit.cvut.cz>" |
109 "Modified: / 29-08-2011 / 21:10:12 / Jan Kurs <kursjan@fit.cvut.cz>" |
110 "Modified: / 29-08-2011 / 21:10:12 / Jan Kurs <kursjan@fit.cvut.cz>" |
110 ! ! |
111 ! ! |
111 |
112 |
|
113 |
112 !JavaLookup methodsFor:'initialization'! |
114 !JavaLookup methodsFor:'initialization'! |
113 |
115 |
114 initialize |
116 initialize |
115 "Invoked when a new instance is created." |
117 "Invoked when a new instance is created." |
116 |
118 |
117 s2j := Smalltalk2Java new. |
119 s2j := Smalltalk2Java new. |
118 j2s := Java2Smalltalk new. |
120 j2s := Java2Smalltalk new. |
119 |
121 |
120 "Modified: / 15-12-2011 / 23:06:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
122 "Modified: / 15-12-2011 / 23:06:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
121 ! ! |
123 ! ! |
|
124 |
122 |
125 |
123 !JavaLookup methodsFor:'lookup'! |
126 !JavaLookup methodsFor:'lookup'! |
124 |
127 |
125 lookupMethodForSelector: selector directedTo: initialSearchClass |
128 lookupMethodForSelector: selector directedTo: initialSearchClass |
126 "This method performs standard Java lookup as required JVM spec. See |
129 "This method performs standard Java lookup as required JVM spec. See |
204 |
207 |
205 "Created: / 01-10-2011 / 13:18:40 / Jan Kurs <kursjan@fit.cvut.cz>" |
208 "Created: / 01-10-2011 / 13:18:40 / Jan Kurs <kursjan@fit.cvut.cz>" |
206 "Created: / 15-12-2011 / 23:11:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
209 "Created: / 15-12-2011 / 23:11:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
207 ! ! |
210 ! ! |
208 |
211 |
|
212 |
209 !JavaLookup::Java2Smalltalk methodsFor:'lookup'! |
213 !JavaLookup::Java2Smalltalk methodsFor:'lookup'! |
210 |
214 |
211 lookupMethodForSelector:selector directedTo:initialSearchClass for:receiver withArguments:argArrayOrNil from:sendingContext ilc: ilc |
215 lookupMethodForSelector:selector directedTo:initialSearchClass for:receiver withArguments:argArrayOrNil from:sendingContext ilc: ilc |
212 |
216 |
213 | d m | |
217 | d m | |
265 |
269 |
266 ^nil |
270 ^nil |
267 |
271 |
268 "Created: / 16-12-2011 / 00:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
272 "Created: / 16-12-2011 / 00:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
269 ! ! |
273 ! ! |
|
274 |
270 |
275 |
271 !JavaLookup::Java2Smalltalk methodsFor:'utilities'! |
276 !JavaLookup::Java2Smalltalk methodsFor:'utilities'! |
272 |
277 |
273 addSelector:selector withMethod:proxy toClass:class |
278 addSelector:selector withMethod:proxy toClass:class |
274 |
279 |
301 |
306 |
302 "Created: / 14-12-2011 / 20:48:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
307 "Created: / 14-12-2011 / 20:48:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
303 "Modified: / 01-01-2012 / 19:33:45 / kursjan <kursjan@fit.cvut.cz>" |
308 "Modified: / 01-01-2012 / 19:33:45 / kursjan <kursjan@fit.cvut.cz>" |
304 "Modified: / 24-02-2012 / 20:36:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
309 "Modified: / 24-02-2012 / 20:36:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
305 ! ! |
310 ! ! |
|
311 |
306 |
312 |
307 !JavaLookup::Smalltalk2Java methodsFor:'lookup'! |
313 !JavaLookup::Smalltalk2Java methodsFor:'lookup'! |
308 |
314 |
309 lookupMethodForSelector: selector directedTo: initialSearchClass for: receiver withArguments: argArrayOrNil from: sendingContext ilc: ilc |
315 lookupMethodForSelector: selector directedTo: initialSearchClass for: receiver withArguments: argArrayOrNil from: sendingContext ilc: ilc |
310 " |
316 " |
406 "Modified: / 17-03-2012 / 17:22:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
412 "Modified: / 17-03-2012 / 17:22:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
407 "Modified: / 18-11-2012 / 18:17:28 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
413 "Modified: / 18-11-2012 / 18:17:28 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
408 "Modified: / 16-12-2012 / 13:59:55 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>" |
414 "Modified: / 16-12-2012 / 13:59:55 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>" |
409 ! ! |
415 ! ! |
410 |
416 |
|
417 |
411 !JavaLookup::Smalltalk2Java methodsFor:'lookup (old)'! |
418 !JavaLookup::Smalltalk2Java methodsFor:'lookup (old)'! |
412 |
419 |
413 old_lookupMethodForSelector:selector directedTo:initialSearchClass for:receiver withArguments:argArrayOrNil from:sendingContext ilc: ilc |
420 old_lookupMethodForSelector:selector directedTo:initialSearchClass for:receiver withArguments:argArrayOrNil from:sendingContext ilc: ilc |
414 " |
421 " |
415 As a courtesy to a Smalltalker, try to map smalltalk selectors to a java ones. |
422 As a courtesy to a Smalltalker, try to map smalltalk selectors to a java ones. |
464 "Modified: / 20-09-2011 / 00:03:48 / Jan Kurs <kursjan@fit.cvut.cz>" |
471 "Modified: / 20-09-2011 / 00:03:48 / Jan Kurs <kursjan@fit.cvut.cz>" |
465 "Modified (format): / 25-09-2011 / 21:08:45 / Jan Kurs <kursjan@fit.cvut.cz>" |
472 "Modified (format): / 25-09-2011 / 21:08:45 / Jan Kurs <kursjan@fit.cvut.cz>" |
466 "Created: / 16-12-2011 / 23:05:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
473 "Created: / 16-12-2011 / 23:05:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
467 ! ! |
474 ! ! |
468 |
475 |
|
476 |
469 !JavaLookup::Smalltalk2Java methodsFor:'matching'! |
477 !JavaLookup::Smalltalk2Java methodsFor:'matching'! |
470 |
478 |
471 descriptorForJavaSelector:arg |
479 descriptorForJavaSelector:arg |
472 ^ MessageDescription new |
480 ^ MessageDescription new |
473 parserClass: JavaSelectorParser; |
481 parserClass: JavaSelectorParser; |
546 ]. |
554 ]. |
547 ^ selectors. |
555 ^ selectors. |
548 |
556 |
549 "Created: / 06-09-2011 / 22:20:34 / Jan Kurs <kursjan@fit.cvut.cz>" |
557 "Created: / 06-09-2011 / 22:20:34 / Jan Kurs <kursjan@fit.cvut.cz>" |
550 ! ! |
558 ! ! |
|
559 |
551 |
560 |
552 !JavaLookup::Smalltalk2Java methodsFor:'utilities'! |
561 !JavaLookup::Smalltalk2Java methodsFor:'utilities'! |
553 |
562 |
554 addSelector:selector withMethod:proxy toClass:class |
563 addSelector:selector withMethod:proxy toClass:class |
555 |
564 |
762 "Modified: / 03-04-2012 / 13:59:28 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
771 "Modified: / 03-04-2012 / 13:59:28 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
763 "Modified: / 29-10-2012 / 07:28:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
772 "Modified: / 29-10-2012 / 07:28:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
764 "Modified: / 16-12-2012 / 11:44:17 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>" |
773 "Modified: / 16-12-2012 / 11:44:17 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>" |
765 ! ! |
774 ! ! |
766 |
775 |
|
776 |
767 !JavaLookup::Smalltalk2Java methodsFor:'utilities (old)'! |
777 !JavaLookup::Smalltalk2Java methodsFor:'utilities (old)'! |
768 |
778 |
769 old_compileProxyWithSelector: selector descriptor: descriptor in: class calling: callee |
779 old_compileProxyWithSelector: selector descriptor: descriptor in: class calling: callee |
770 |
780 |
771 | proxy invocation fallback | |
781 | proxy invocation fallback | |
814 ^ proxy |
824 ^ proxy |
815 |
825 |
816 "Created: / 16-12-2011 / 23:06:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
826 "Created: / 16-12-2011 / 23:06:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
817 ! ! |
827 ! ! |
818 |
828 |
|
829 |
819 !JavaLookup class methodsFor:'documentation'! |
830 !JavaLookup class methodsFor:'documentation'! |
820 |
831 |
821 version_CVS |
832 version_CVS |
822 ^ '$Header: /cvs/stx/stx/libjava/JavaLookup.st,v 1.4 2013-02-16 18:08:32 vrany Exp $' |
833 ^ '$Header: /cvs/stx/stx/libjava/JavaLookup.st,v 1.5 2013-02-25 11:15:31 vrany Exp $' |
823 ! |
834 ! |
824 |
835 |
825 version_HG |
836 version_HG |
826 |
837 |
827 ^ '$Changeset: <not expanded> $' |
838 ^ '$Changeset: <not expanded> $' |