author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Thu, 29 Sep 2011 16:44:37 +0100 | |
branch | jv |
changeset 17869 | 9610c6c94e71 |
parent 17835 | 67648e9f2814 |
child 17888 | e650d3cb3084 |
permissions | -rw-r--r-- |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1 |
" |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2 |
COPYRIGHT (c) 2006 by eXept Software AG |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
3 |
All Rights Reserved |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
4 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
5 |
This software is furnished under a license and may be used |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
6 |
only in accordance with the terms of that license and with the |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
7 |
inclusion of the above copyright notice. This software may not |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
8 |
be provided or otherwise made available to, or used by, any |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
9 |
other person. No title to or ownership of the software is |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
10 |
hereby transferred. |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
11 |
" |
17797 | 12 |
'From Smalltalk/X, Version:6.1.2 on 19-08-2010 at 10:16:13 PM' ! |
13 |
||
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
14 |
"{ Package: 'stx:libbasic' }" |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
15 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
16 |
Lookup subclass:#NamespaceAwareLookup |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
17 |
instanceVariableNames:'' |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
18 |
classVariableNames:'Instance' |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
19 |
poolDictionaries:'' |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
20 |
category:'Kernel-Extensions' |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
21 |
! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
22 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
23 |
!NamespaceAwareLookup class methodsFor:'documentation'! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
24 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
25 |
copyright |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
26 |
" |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
27 |
COPYRIGHT (c) 2006 by eXept Software AG |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
28 |
All Rights Reserved |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
29 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
30 |
This software is furnished under a license and may be used |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
31 |
only in accordance with the terms of that license and with the |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
32 |
inclusion of the above copyright notice. This software may not |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
33 |
be provided or otherwise made available to, or used by, any |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
34 |
other person. No title to or ownership of the software is |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
35 |
hereby transferred. |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
36 |
" |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
37 |
! ! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
38 |
|
17776
713a2e5f8a1c
- NamespaceAwareLookup initialization fixed
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17775
diff
changeset
|
39 |
!NamespaceAwareLookup class methodsFor:'initialization'! |
713a2e5f8a1c
- NamespaceAwareLookup initialization fixed
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17775
diff
changeset
|
40 |
|
713a2e5f8a1c
- NamespaceAwareLookup initialization fixed
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17775
diff
changeset
|
41 |
initialize |
713a2e5f8a1c
- NamespaceAwareLookup initialization fixed
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17775
diff
changeset
|
42 |
|
713a2e5f8a1c
- NamespaceAwareLookup initialization fixed
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17775
diff
changeset
|
43 |
Instance := self basicNew |
713a2e5f8a1c
- NamespaceAwareLookup initialization fixed
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17775
diff
changeset
|
44 |
|
713a2e5f8a1c
- NamespaceAwareLookup initialization fixed
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17775
diff
changeset
|
45 |
"Created: / 10-07-2010 / 21:12:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
713a2e5f8a1c
- NamespaceAwareLookup initialization fixed
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17775
diff
changeset
|
46 |
! ! |
17775
90a5bae0a710
Lazy evaluation of annotations (required for stc compiled code)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17766
diff
changeset
|
47 |
|
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
48 |
!NamespaceAwareLookup class methodsFor:'accessing'! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
49 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
50 |
instance |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
51 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
52 |
^Instance |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
53 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
54 |
"Created: / 20-05-2010 / 11:18:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
17775
90a5bae0a710
Lazy evaluation of annotations (required for stc compiled code)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17766
diff
changeset
|
55 |
"Modified: / 10-07-2010 / 21:12:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
56 |
! ! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
57 |
|
17777
31eea2a18aad
Added NamespaceAwareLookup class>>lookup... method because of stc
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17776
diff
changeset
|
58 |
!NamespaceAwareLookup class methodsFor:'lookup'! |
31eea2a18aad
Added NamespaceAwareLookup class>>lookup... method because of stc
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17776
diff
changeset
|
59 |
|
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
60 |
lookupMethodForSelector: selector directedTo: initialSearchClass for: receiver withArguments: argArrayOrNil from: sendingContext |
17777
31eea2a18aad
Added NamespaceAwareLookup class>>lookup... method because of stc
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17776
diff
changeset
|
61 |
|
17796
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
62 |
"JV @ 2010-07-24 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
63 |
Following C code is just a performance optimization. |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
64 |
It is not neccessary, however it speeds things in most |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
65 |
cases. Such optimization significantly speeds up the IDE |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
66 |
since class browser involves dozens of super-polymorphic |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
67 |
sends (> 1000 receiver classes per send-site). |
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
68 |
" |
17796
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
69 |
|
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
70 |
%{ |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
71 |
OBJ sendingMthd = __ContextInstPtr(sendingContext)->c_method; |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
72 |
if (__Class(sendingMthd) == Method && |
17796
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
73 |
__MethodInstPtr(sendingMthd)->m_annotation == nil) { |
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
74 |
OBJ m = __lookup(initialSearchClass, selector); |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
75 |
if (m != nil) RETURN ( m ); |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
76 |
} |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
77 |
%}. |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
78 |
|
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
79 |
^Instance lookupMethodForSelector: selector directedTo: initialSearchClass |
17777
31eea2a18aad
Added NamespaceAwareLookup class>>lookup... method because of stc
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17776
diff
changeset
|
80 |
for: receiver withArguments: argArrayOrNil |
31eea2a18aad
Added NamespaceAwareLookup class>>lookup... method because of stc
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17776
diff
changeset
|
81 |
from: sendingContext |
31eea2a18aad
Added NamespaceAwareLookup class>>lookup... method because of stc
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17776
diff
changeset
|
82 |
|
31eea2a18aad
Added NamespaceAwareLookup class>>lookup... method because of stc
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17776
diff
changeset
|
83 |
! ! |
31eea2a18aad
Added NamespaceAwareLookup class>>lookup... method because of stc
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17776
diff
changeset
|
84 |
|
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
85 |
!NamespaceAwareLookup methodsFor:'lookup'! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
86 |
|
17791
d3e4d80549a6
Performance optimization in NamespaceAwareLookup. Now it gives reasonable performance even if set as lookup object for top level class Object
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17788
diff
changeset
|
87 |
lookupMethodForSelector: selector directedTo: initialSearchClass for: receiver withArguments: argArrayOrNil from: sendingContext |
17786 | 88 |
"Invoked by the VM to ask me for a method to fire. |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
89 |
For details, see comment inLookup>>lookupMethodForSelector:directedTo:for:withArguments:from:" |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
90 |
|
17835
67648e9f2814
ObjectMemory: added #optimizeContext: and #fullSingleStep: to m-compile restartable contexts
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17797
diff
changeset
|
91 |
| sendingNs sendingMthd queue seen namespaces methods imports | |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
92 |
|
17796
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
93 |
"JV @ 2010-07-24 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
94 |
Following C code is just a performance optimization. |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
95 |
It is not neccessary, however it speeds things in most |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
96 |
cases. Such optimization significantly speeds up the IDE |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
97 |
since class browser involves dozens of super-polymorphic |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
98 |
sends (> 1000 receiver classes per send-site). |
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
99 |
" |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
100 |
%{ |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
101 |
sendingMthd = __ContextInstPtr(sendingContext)->c_method; |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
102 |
if (__Class(sendingMthd) == Method && |
17796
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
103 |
__MethodInstPtr(sendingMthd)->m_annotation == nil) { |
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
104 |
OBJ m = __lookup(initialSearchClass, selector); |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
105 |
if (m != nil) RETURN ( m ); |
17791
d3e4d80549a6
Performance optimization in NamespaceAwareLookup. Now it gives reasonable performance even if set as lookup object for top level class Object
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17788
diff
changeset
|
106 |
} |
d3e4d80549a6
Performance optimization in NamespaceAwareLookup. Now it gives reasonable performance even if set as lookup object for top level class Object
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17788
diff
changeset
|
107 |
%}. |
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
108 |
"If you remove C code above, uncomment the line below." |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
109 |
"sendingMthd := sendingContext method." |
17835
67648e9f2814
ObjectMemory: added #optimizeContext: and #fullSingleStep: to m-compile restartable contexts
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17797
diff
changeset
|
110 |
sendingNs := sendingMthd isNil |
67648e9f2814
ObjectMemory: added #optimizeContext: and #fullSingleStep: to m-compile restartable contexts
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17797
diff
changeset
|
111 |
ifTrue:[nil] |
67648e9f2814
ObjectMemory: added #optimizeContext: and #fullSingleStep: to m-compile restartable contexts
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17797
diff
changeset
|
112 |
ifFalse:[sendingMthd nameSpace]. |
17796
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
113 |
sendingNs := sendingNs. |
17791
d3e4d80549a6
Performance optimization in NamespaceAwareLookup. Now it gives reasonable performance even if set as lookup object for top level class Object
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17788
diff
changeset
|
114 |
|
17796
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
115 |
"Second chance to speed up things (in case sending method |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
116 |
has resource or so)" |
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
117 |
%{ |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
118 |
if (sendingNs == nil) { |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
119 |
OBJ m = __lookup(initialSearchClass, selector); |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
120 |
if (m != nil) RETURN ( m ); |
17796
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
121 |
} |
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
122 |
%}. |
17796
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
123 |
" |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
124 |
Stderr |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
125 |
show: 'sel='; show: selector; show: ' ns='; show: sendingNs printString; |
17796
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
126 |
show: ' method=', sendingMthd printString; cr. |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
127 |
" |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
128 |
|
17835
67648e9f2814
ObjectMemory: added #optimizeContext: and #fullSingleStep: to m-compile restartable contexts
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17797
diff
changeset
|
129 |
sendingNs notNil ifTrue: [ |
17786 | 130 |
|
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
131 |
seen := Set new. |
17796
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
132 |
namespaces := Array with: sendingNs. |
17791
d3e4d80549a6
Performance optimization in NamespaceAwareLookup. Now it gives reasonable performance even if set as lookup object for top level class Object
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17788
diff
changeset
|
133 |
|
17795 | 134 |
[namespaces notEmpty] whileTrue: |
17835
67648e9f2814
ObjectMemory: added #optimizeContext: and #fullSingleStep: to m-compile restartable contexts
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17797
diff
changeset
|
135 |
[ |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
136 |
methods := self |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
137 |
lookupMethodsForSelector: selector |
17791
d3e4d80549a6
Performance optimization in NamespaceAwareLookup. Now it gives reasonable performance even if set as lookup object for top level class Object
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17788
diff
changeset
|
138 |
directedTo: initialSearchClass |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
139 |
inNamespaces: namespaces. |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
140 |
methods size == 1 ifTrue: |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
141 |
[^methods anyOne]. |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
142 |
methods size > 1 ifTrue: |
17796
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
143 |
[^self ambiguousMessageSend: selector |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
144 |
withArgs: argArrayOrNil]. |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
145 |
"No method found" |
17794
da075fbea903
ILC miss counting/tracing support
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17793
diff
changeset
|
146 |
seen addAll: namespaces. |
17796
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
147 |
imports := Set new. |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
148 |
namespaces do: |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
149 |
[:namespace| |
17835
67648e9f2814
ObjectMemory: added #optimizeContext: and #fullSingleStep: to m-compile restartable contexts
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17797
diff
changeset
|
150 |
namespace notNil ifTrue: |
17794
da075fbea903
ILC miss counting/tracing support
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17793
diff
changeset
|
151 |
[namespace imports do: |
da075fbea903
ILC miss counting/tracing support
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17793
diff
changeset
|
152 |
[:import| |
da075fbea903
ILC miss counting/tracing support
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17793
diff
changeset
|
153 |
(seen includes: import) ifFalse: |
da075fbea903
ILC miss counting/tracing support
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17793
diff
changeset
|
154 |
[imports add: import]]]]. |
17796
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
155 |
namespaces := imports]. |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
156 |
]. |
17791
d3e4d80549a6
Performance optimization in NamespaceAwareLookup. Now it gives reasonable performance even if set as lookup object for top level class Object
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17788
diff
changeset
|
157 |
|
d3e4d80549a6
Performance optimization in NamespaceAwareLookup. Now it gives reasonable performance even if set as lookup object for top level class Object
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17788
diff
changeset
|
158 |
methods := self lookupMethodsForSelector: selector |
d3e4d80549a6
Performance optimization in NamespaceAwareLookup. Now it gives reasonable performance even if set as lookup object for top level class Object
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17788
diff
changeset
|
159 |
directedTo: initialSearchClass. |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
160 |
methods size == 1 ifTrue:[^methods anyOne]. |
17791
d3e4d80549a6
Performance optimization in NamespaceAwareLookup. Now it gives reasonable performance even if set as lookup object for top level class Object
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17788
diff
changeset
|
161 |
|
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
162 |
^nil |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
163 |
|
17786 | 164 |
"Modified: / 21-07-2010 / 17:11:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
165 |
! ! |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
166 |
|
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
167 |
!NamespaceAwareLookup methodsFor:'lookup - helpers'! |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
168 |
|
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
169 |
lookupMethodsForSelector: selector directedTo: initialSearchClass |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
170 |
|
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
171 |
"Searches initialSearchClass for a methods with in any namespace" |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
172 |
^self |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
173 |
lookupMethodsForSelector: selector |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
174 |
directedTo: initialSearchClass |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
175 |
suchThat:[:sel :mthd|true]. |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
176 |
|
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
177 |
"Created: / 19-07-2010 / 15:37:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
178 |
! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
179 |
|
17787 | 180 |
lookupMethodsForSelector: selector directedTo: initialSearchClass inNamespaces: namespaces |
181 |
||
182 |
"Searches initialSearchClass for a methods with given selector in given namespaces." |
|
183 |
^self |
|
184 |
lookupMethodsForSelector: selector |
|
185 |
directedTo: initialSearchClass |
|
186 |
suchThat:[:sel :mthd|namespaces includes: mthd nameSpace]. |
|
187 |
||
188 |
"Created: / 19-07-2010 / 15:13:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
189 |
! |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
190 |
|
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
191 |
lookupMethodsForSelector: selector directedTo: initialSearchClass suchThat: block |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
192 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
193 |
"Searches initialSearchClass for a method with given selector in given nameSpace. |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
194 |
if no method in given namespace is found, returns nil" |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
195 |
|
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
196 |
| searchClass methods seen | |
17780 | 197 |
|
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
198 |
searchClass := initialSearchClass. |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
199 |
methods := Set new. |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
200 |
seen := OrderedCollection new. |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
201 |
[ searchClass notNil ] whileTrue: |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
202 |
[searchClass selectorsAndMethodsDo: |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
203 |
[:sel :mthd| |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
204 |
(sel selector = selector |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
205 |
and:[(seen includes: mthd nameSpace) not |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
206 |
and:[block value: sel value: mthd]]) ifTrue: |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
207 |
[methods add: mthd. |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
208 |
seen add: mthd nameSpace]]. |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
209 |
searchClass := searchClass superclass]. |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
210 |
^methods |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
211 |
|
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
212 |
"Created: / 19-07-2010 / 15:34:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
213 |
"Modified: / 20-07-2010 / 10:42:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
214 |
! ! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
215 |
|
17796
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
216 |
!NamespaceAwareLookup methodsFor:'trampolines'! |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
217 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
218 |
ambiguousMessageSend |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
219 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
220 |
^self ambiguousMessage: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
221 |
(Message |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
222 |
selector: #__placeholder__ |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
223 |
arguments: #() |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
224 |
) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
225 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
226 |
"Created: / 19-08-2010 / 22:05:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
227 |
! |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
228 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
229 |
ambiguousMessageSend: selector withArgs: argArrayOrNil |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
230 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
231 |
| trampoline | |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
232 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
233 |
trampoline := self class methodDictionary at: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
234 |
(#(" 0"ambiguousMessageSend |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
235 |
" 1"ambiguousMessageSendWith: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
236 |
" 2"ambiguousMessageSendWith:with: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
237 |
" 3"ambiguousMessageSendWith:with:with: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
238 |
" 4"ambiguousMessageSendWith:with:with:with: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
239 |
" 5"ambiguousMessageSendWith:with:with:with:with: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
240 |
" 6"ambiguousMessageSendWith:with:with:with:with:with: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
241 |
" 7"ambiguousMessageSendWith:with:with:with:with:with:with: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
242 |
" 8"ambiguousMessageSendWith:with:with:with:with:with:with:with: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
243 |
) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
244 |
at: argArrayOrNil size + 1). |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
245 |
trampoline := trampoline asByteCodeMethod. |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
246 |
1 to: trampoline numLiterals do: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
247 |
[:litNr| |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
248 |
(trampoline literalAt: litNr) == #__placeholder__ |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
249 |
ifTrue:[(trampoline literalAt: litNr put: selector)]]. |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
250 |
^trampoline |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
251 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
252 |
"Created: / 19-08-2010 / 22:09:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
253 |
! |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
254 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
255 |
ambiguousMessageSendWith: a1 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
256 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
257 |
^self ambiguousMessage: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
258 |
(Message |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
259 |
selector: #__placeholder__ |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
260 |
arguments: (Array with: a1) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
261 |
) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
262 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
263 |
"Created: / 19-08-2010 / 22:06:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
264 |
! |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
265 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
266 |
ambiguousMessageSendWith: a1 with: a2 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
267 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
268 |
^self ambiguousMessage: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
269 |
(Message |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
270 |
selector: #__placeholder__ |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
271 |
arguments: (Array with: a1 with: a2) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
272 |
) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
273 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
274 |
"Created: / 19-08-2010 / 22:06:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
275 |
! |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
276 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
277 |
ambiguousMessageSendWith: a1 with: a2 with: a3 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
278 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
279 |
^self ambiguousMessage: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
280 |
(Message |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
281 |
selector: #__placeholder__ |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
282 |
arguments: (Array with: a1 with: a2 with: a3) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
283 |
) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
284 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
285 |
"Created: / 19-08-2010 / 22:06:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
286 |
! |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
287 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
288 |
ambiguousMessageSendWith: a1 with: a2 with: a3 with: a4 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
289 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
290 |
^self ambiguousMessage: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
291 |
(Message |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
292 |
selector: #__placeholder__ |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
293 |
arguments: (Array with: a1 with: a2 with: a3 with: a4) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
294 |
) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
295 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
296 |
"Created: / 19-08-2010 / 22:06:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
297 |
! |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
298 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
299 |
ambiguousMessageSendWith: a1 with: a2 with: a3 with: a4 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
300 |
with: a5 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
301 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
302 |
^self ambiguousMessage: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
303 |
(Message |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
304 |
selector: #__placeholder__ |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
305 |
arguments: (Array with: a1 with: a2 with: a3 with: a4 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
306 |
with: a5) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
307 |
) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
308 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
309 |
"Created: / 19-08-2010 / 22:07:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
310 |
! |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
311 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
312 |
ambiguousMessageSendWith: a1 with: a2 with: a3 with: a4 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
313 |
with: a5 with: a6 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
314 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
315 |
^self ambiguousMessage: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
316 |
(Message |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
317 |
selector: #__placeholder__ |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
318 |
arguments: (Array with: a1 with: a2 with: a3 with: a4 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
319 |
with: a5 with: a6) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
320 |
) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
321 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
322 |
"Created: / 19-08-2010 / 22:07:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
323 |
! |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
324 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
325 |
ambiguousMessageSendWith: a1 with: a2 with: a3 with: a4 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
326 |
with: a5 with: a6 with: a7 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
327 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
328 |
^self ambiguousMessage: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
329 |
(Message |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
330 |
selector: #__placeholder__ |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
331 |
arguments: (Array with: a1 with: a2 with: a3 with: a4 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
332 |
with: a5 with: a6 with: a7) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
333 |
) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
334 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
335 |
"Created: / 19-08-2010 / 22:07:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
336 |
! |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
337 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
338 |
ambiguousMessageSendWith: a1 with: a2 with: a3 with: a4 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
339 |
with: a5 with: a6 with: a7 with: a8 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
340 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
341 |
^self ambiguousMessage: |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
342 |
(Message |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
343 |
selector: #__placeholder__ |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
344 |
arguments: (Array with: a1 with: a2 with: a3 with: a4 |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
345 |
with: a5 with: a6 with: a7 with: a8) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
346 |
) |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
347 |
|
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
348 |
"Created: / 19-08-2010 / 22:08:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
349 |
! ! |
2fe4a1c91aa9
- NamespaceAwareLookup: added ambiguous message send trampoline
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17795
diff
changeset
|
350 |
|
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
351 |
!NamespaceAwareLookup class methodsFor:'documentation'! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
352 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
353 |
version_SVN |
17869 | 354 |
^ '$Id: NamespaceAwareLookup.st 10700 2011-09-29 15:44:37Z vranyj1 $' |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
355 |
! ! |
17775
90a5bae0a710
Lazy evaluation of annotations (required for stc compiled code)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17766
diff
changeset
|
356 |
|
90a5bae0a710
Lazy evaluation of annotations (required for stc compiled code)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17766
diff
changeset
|
357 |
NamespaceAwareLookup initialize! |