author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Wed, 28 Jul 2010 21:58:47 +0100 | |
branch | jv |
changeset 17793 | 63acd2c16c43 |
parent 17791 | d3e4d80549a6 |
child 17794 | da075fbea903 |
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 |
" |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
12 |
"{ Package: 'stx:libbasic' }" |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
13 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
14 |
Lookup subclass:#NamespaceAwareLookup |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
15 |
instanceVariableNames:'' |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
16 |
classVariableNames:'Instance' |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
17 |
poolDictionaries:'' |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
18 |
category:'Kernel-Extensions' |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
19 |
! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
20 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
21 |
!NamespaceAwareLookup class methodsFor:'documentation'! |
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 |
copyright |
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 (c) 2006 by eXept Software AG |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
26 |
All Rights Reserved |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
27 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
28 |
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
|
29 |
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
|
30 |
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
|
31 |
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
|
32 |
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
|
33 |
hereby transferred. |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
34 |
" |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
35 |
! ! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
36 |
|
17776
713a2e5f8a1c
- NamespaceAwareLookup initialization fixed
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17775
diff
changeset
|
37 |
!NamespaceAwareLookup class methodsFor:'initialization'! |
713a2e5f8a1c
- NamespaceAwareLookup initialization fixed
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17775
diff
changeset
|
38 |
|
713a2e5f8a1c
- NamespaceAwareLookup initialization fixed
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17775
diff
changeset
|
39 |
initialize |
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 |
Instance := self basicNew |
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 |
"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
|
44 |
! ! |
17775
90a5bae0a710
Lazy evaluation of annotations (required for stc compiled code)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17766
diff
changeset
|
45 |
|
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
46 |
!NamespaceAwareLookup class methodsFor:'accessing'! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
47 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
48 |
instance |
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 |
"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
|
53 |
"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
|
54 |
! ! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
55 |
|
17777
31eea2a18aad
Added NamespaceAwareLookup class>>lookup... method because of stc
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17776
diff
changeset
|
56 |
!NamespaceAwareLookup class methodsFor:'lookup'! |
31eea2a18aad
Added NamespaceAwareLookup class>>lookup... method because of stc
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17776
diff
changeset
|
57 |
|
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
58 |
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
|
59 |
|
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
60 |
"JV @ 2010-07-24 |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
61 |
Following C code is just a performance optimization. |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
62 |
It is not neccessary, however it speeds things in common |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
63 |
case. Such optimization significantly speeds up the IDE |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
64 |
since class browser involves dozens of megamorphic |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
65 |
sends (> 1000 receiver classes per sendsite). |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
66 |
" |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
67 |
%{ |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
68 |
OBJ sendingMthd = __ContextInstPtr(sendingContext)->c_method; |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
69 |
if (__Class(sendingMthd) == Method && |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
70 |
__MethodInstPtr(sendingMthd)->m_annotation != nil) { |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
71 |
OBJ m = __lookup(initialSearchClass, selector); |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
72 |
if (m != nil) RETURN ( m ); |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
73 |
} |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
74 |
%}. |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
75 |
|
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
76 |
^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
|
77 |
for: receiver withArguments: argArrayOrNil |
31eea2a18aad
Added NamespaceAwareLookup class>>lookup... method because of stc
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17776
diff
changeset
|
78 |
from: sendingContext |
31eea2a18aad
Added NamespaceAwareLookup class>>lookup... method because of stc
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17776
diff
changeset
|
79 |
|
31eea2a18aad
Added NamespaceAwareLookup class>>lookup... method because of stc
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17776
diff
changeset
|
80 |
! ! |
31eea2a18aad
Added NamespaceAwareLookup class>>lookup... method because of stc
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17776
diff
changeset
|
81 |
|
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
82 |
!NamespaceAwareLookup methodsFor:'lookup'! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
83 |
|
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
|
84 |
lookupMethodForSelector: selector directedTo: initialSearchClass for: receiver withArguments: argArrayOrNil from: sendingContext |
17786 | 85 |
"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
|
86 |
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
|
87 |
|
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
88 |
| sendingNs sendingMthd queue seen methods | |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
89 |
|
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
90 |
"JV @ 2010-07-24 |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
91 |
Following C code is just a performance optimization. |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
92 |
It is not neccessary, however it speeds things in common |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
93 |
case. Such optimization significantly speeds up the IDE |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
94 |
since class browser involves dozens of megamorphic |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
95 |
sends (> 1000 receiver classes per sendsite). |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
96 |
" |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
97 |
%{ |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
98 |
sendingMthd = __ContextInstPtr(sendingContext)->c_method; |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
99 |
if (__Class(sendingMthd) == Method && |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
100 |
__MethodInstPtr(sendingMthd)->m_annotation != nil) { |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
101 |
OBJ m = __lookup(initialSearchClass, selector); |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
102 |
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
|
103 |
} |
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
|
104 |
%}. |
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
105 |
"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
|
106 |
"sendingMthd := sendingContext method." |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
107 |
sendingNs := sendingMthd |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
108 |
ifNil:[nil] |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
109 |
ifNotNil:[sendingMthd nameSpace]. |
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
|
110 |
|
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
111 |
"Second try to speed up things (in case sending method |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
112 |
has resource or so" |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
113 |
%{ |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
114 |
if (sendingNs == nil) { |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
115 |
OBJ m = __lookup(initialSearchClass, selector); |
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
116 |
if (m != nil) RETURN ( m ); |
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 |
%}. |
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
|
119 |
|
17788
c4f89c6602a5
Improved performance of perform:, perform:with: and perform:with:with. There is still a room for improvements
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17787
diff
changeset
|
120 |
" |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
121 |
Transcript |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
122 |
show: 'sel='; show: selector; show: ' ns='; show: sendingNs printString; |
17786 | 123 |
show: ' method=', sendingContext method printString; cr. |
17788
c4f89c6602a5
Improved performance of perform:, perform:with: and perform:with:with. There is still a room for improvements
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17787
diff
changeset
|
124 |
" |
17786 | 125 |
|
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
126 |
queue := Queue with: (Array with: sendingNs). |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
127 |
seen := Set new. |
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
|
128 |
|
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
|
129 |
sendingNs ifNotNil:[ |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
130 |
[queue notEmpty] whileTrue: |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
131 |
[|namespaces imports | |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
132 |
namespaces := queue removeFirst. |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
133 |
imports := Set new. |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
134 |
methods := self |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
135 |
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
|
136 |
directedTo: initialSearchClass |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
137 |
inNamespaces: namespaces. |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
138 |
methods size == 1 ifTrue: |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
139 |
[^methods anyOne]. |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
140 |
methods size > 1 ifTrue: |
17786 | 141 |
["TODO: fix it, it should return a placeholder method" |
142 |
^receiver |
|
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
143 |
ambiguousMessage: |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
144 |
(Message |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
145 |
selector: selector |
17786 | 146 |
arguments: argArrayOrNil)]. |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
147 |
"No method found" |
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| |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
150 |
namespace ifNotNil: |
17786 | 151 |
[imports addAll: namespace imports]]. |
152 |
imports isEmpty ifFalse:[queue add: imports]]. |
|
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
|
153 |
]. |
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
|
154 |
|
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
|
155 |
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
|
156 |
directedTo: initialSearchClass. |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
157 |
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
|
158 |
|
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
159 |
^nil |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
160 |
|
17786 | 161 |
"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
|
162 |
! ! |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
163 |
|
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
164 |
!NamespaceAwareLookup methodsFor:'lookup - helpers'! |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
165 |
|
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
166 |
lookupMethodsForSelector: selector directedTo: initialSearchClass |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
167 |
|
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
168 |
"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
|
169 |
^self |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
170 |
lookupMethodsForSelector: selector |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
171 |
directedTo: initialSearchClass |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
172 |
suchThat:[:sel :mthd|true]. |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
173 |
|
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
174 |
"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
|
175 |
! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
176 |
|
17787 | 177 |
lookupMethodsForSelector: selector directedTo: initialSearchClass inNamespaces: namespaces |
178 |
||
179 |
"Searches initialSearchClass for a methods with given selector in given namespaces." |
|
180 |
^self |
|
181 |
lookupMethodsForSelector: selector |
|
182 |
directedTo: initialSearchClass |
|
183 |
suchThat:[:sel :mthd|namespaces includes: mthd nameSpace]. |
|
184 |
||
185 |
"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
|
186 |
! |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
187 |
|
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
188 |
lookupMethodsForSelector: selector directedTo: initialSearchClass suchThat: block |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
189 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
190 |
"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
|
191 |
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
|
192 |
|
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
193 |
| searchClass methods seen | |
17780 | 194 |
|
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
195 |
searchClass := initialSearchClass. |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
196 |
methods := Set new. |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
197 |
seen := OrderedCollection new. |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
198 |
[ searchClass notNil ] whileTrue: |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
199 |
[searchClass selectorsAndMethodsDo: |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
200 |
[:sel :mthd| |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
201 |
(sel selector = selector |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
202 |
and:[(seen includes: mthd nameSpace) not |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
203 |
and:[block value: sel value: mthd]]) ifTrue: |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
204 |
[methods add: mthd. |
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
205 |
seen add: mthd nameSpace]]. |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
206 |
searchClass := searchClass superclass]. |
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
207 |
^methods |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
208 |
|
17783
3d93372f94fc
Selector namespace - new implementation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17780
diff
changeset
|
209 |
"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
|
210 |
"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
|
211 |
! ! |
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
212 |
|
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
213 |
!NamespaceAwareLookup class methodsFor:'documentation'! |
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 |
version_SVN |
17793
63acd2c16c43
More performance optimizations in NamespaceAwareLookup
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17791
diff
changeset
|
216 |
^ '$Id: NamespaceAwareLookup.st 10560 2010-07-28 20:58:47Z vranyj1 $' |
17766
0acf634e6550
initial implementation of selector namespaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
217 |
! ! |
17775
90a5bae0a710
Lazy evaluation of annotations (required for stc compiled code)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17766
diff
changeset
|
218 |
|
90a5bae0a710
Lazy evaluation of annotations (required for stc compiled code)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17766
diff
changeset
|
219 |
NamespaceAwareLookup initialize! |