resin 0.0.1 → 0.0.2
Sign up to get free protection for your applications and to get access to all the features.
- data/amber/images/amber.svg +706 -0
- data/amber/js/Canvas.deploy.js +1311 -400
- data/amber/js/Canvas.js +1750 -424
- data/amber/js/Compiler.deploy.js +615 -615
- data/amber/js/Compiler.js +1367 -1367
- data/amber/js/IDE.deploy.js +1381 -1345
- data/amber/js/IDE.js +1949 -1903
- data/amber/js/Kernel-Announcements.deploy.js +37 -37
- data/amber/js/Kernel-Announcements.js +52 -52
- data/amber/js/Kernel-Collections.deploy.js +961 -950
- data/amber/js/Kernel-Collections.js +2064 -2053
- data/amber/js/Kernel-Methods.deploy.js +323 -260
- data/amber/js/Kernel-Methods.js +395 -327
- data/amber/js/Kernel-Objects.deploy.js +1846 -1104
- data/amber/js/Kernel-Objects.js +2142 -1194
- data/amber/js/boot.js +44 -29
- data/amber/js/parser.js +234 -17
- data/amber/js/parser.pegjs +9 -6
- data/amber/st/Canvas.st +474 -146
- data/amber/st/Compiler.st +418 -417
- data/amber/st/IDE.st +803 -772
- data/amber/st/Kernel-Announcements.st +27 -27
- data/amber/st/Kernel-Collections.st +289 -268
- data/amber/st/Kernel-Methods.st +104 -100
- data/amber/st/Kernel-Objects.st +277 -80
- metadata +18 -17
data/amber/js/Compiler.js
CHANGED
@@ -1,59 +1,264 @@
|
|
1
1
|
smalltalk.addPackage('Compiler', {});
|
2
|
-
smalltalk.addClass('
|
2
|
+
smalltalk.addClass('NodeVisitor', smalltalk.Object, [], 'Compiler');
|
3
3
|
smalltalk.addMethod(
|
4
|
-
unescape('
|
4
|
+
unescape('_visit_'),
|
5
5
|
smalltalk.method({
|
6
|
-
selector: unescape('
|
7
|
-
category: '
|
8
|
-
fn: function (
|
6
|
+
selector: unescape('visit%3A'),
|
7
|
+
category: 'visiting',
|
8
|
+
fn: function (aNode){
|
9
9
|
var self=this;
|
10
|
-
(self
|
10
|
+
smalltalk.send(aNode, "_accept_", [self]);
|
11
11
|
return self;},
|
12
|
-
args: ["
|
13
|
-
source: unescape('
|
12
|
+
args: ["aNode"],
|
13
|
+
source: unescape('visit%3A%20aNode%0A%09aNode%20accept%3A%20self'),
|
14
|
+
messageSends: ["accept:"],
|
15
|
+
referencedClasses: []
|
16
|
+
}),
|
17
|
+
smalltalk.NodeVisitor);
|
18
|
+
|
19
|
+
smalltalk.addMethod(
|
20
|
+
unescape('_visitNode_'),
|
21
|
+
smalltalk.method({
|
22
|
+
selector: unescape('visitNode%3A'),
|
23
|
+
category: 'visiting',
|
24
|
+
fn: function (aNode){
|
25
|
+
var self=this;
|
26
|
+
|
27
|
+
return self;},
|
28
|
+
args: ["aNode"],
|
29
|
+
source: unescape('visitNode%3A%20aNode'),
|
14
30
|
messageSends: [],
|
15
31
|
referencedClasses: []
|
16
32
|
}),
|
17
|
-
smalltalk.
|
33
|
+
smalltalk.NodeVisitor);
|
18
34
|
|
19
35
|
smalltalk.addMethod(
|
20
|
-
unescape('
|
36
|
+
unescape('_visitMethodNode_'),
|
21
37
|
smalltalk.method({
|
22
|
-
selector: unescape('
|
23
|
-
category: '
|
24
|
-
fn: function (){
|
38
|
+
selector: unescape('visitMethodNode%3A'),
|
39
|
+
category: 'visiting',
|
40
|
+
fn: function (aNode){
|
25
41
|
var self=this;
|
26
|
-
|
27
|
-
|
28
|
-
|
29
|
-
(
|
30
|
-
|
31
|
-
(function(){throw({name: 'stReturn', selector: '_nextChunk', fn: function(){return nil}})})();
|
32
|
-
return self;
|
33
|
-
} catch(e) {if(e.name === 'stReturn' && e.selector === '_nextChunk'){return e.fn()} throw(e)}},
|
34
|
-
args: [],
|
35
|
-
source: unescape('nextChunk%0A%09%22The%20chunk%20format%20%28Smalltalk%20Interchange%20Format%20or%20Fileout%20format%29%0A%09is%20a%20trivial%20format%20but%20can%20be%20a%20bit%20tricky%20to%20understand%3A%0A%09%09-%20Uses%20the%20exclamation%20mark%20as%20delimiter%20of%20chunks.%0A%09%09-%20Inside%20a%20chunk%20a%20normal%20exclamation%20mark%20must%20be%20doubled.%0A%09%09-%20A%20non%20empty%20chunk%20must%20be%20a%20valid%20Smalltalk%20expression.%0A%09%09-%20A%20chunk%20on%20top%20level%20with%20a%20preceding%20empty%20chunk%20is%20an%20instruction%20chunk%3A%0A%09%09%09-%20The%20object%20created%20by%20the%20expression%20then%20takes%20over%20reading%20chunks.%0A%0A%09This%20metod%20returns%20next%20chunk%20as%20a%20String%20%28trimmed%29%2C%20empty%20String%20%28all%20whitespace%29%20or%20nil.%22%0A%0A%09%7C%20char%20result%20chunk%20%7C%0A%09result%20%3A%3D%20%27%27%20writeStream.%0A%20%20%20%20%20%20%20%20%5Bchar%20%3A%3D%20stream%20next.%0A%20%20%20%20%20%20%20%20char%20notNil%5D%20whileTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20char%20%3D%20%27%21%27%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20peek%20%3D%20%27%21%27%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ifTrue%3A%20%5Bstream%20next%20%22skipping%20the%20escape%20double%22%5D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ifFalse%3A%20%5B%5Eresult%20contents%20trimBoth%20%20%22chunk%20end%20marker%20found%22%5D%5D.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20result%20nextPut%3A%20char%5D.%0A%09%5Enil%20%22a%20chunk%20needs%20to%20end%20with%20%21%22'),
|
36
|
-
messageSends: ["writeStream", "whileTrue:", "next", "notNil", "ifTrue:", unescape("%3D"), "ifTrue:ifFalse:", "peek", "trimBoth", "contents", "nextPut:"],
|
42
|
+
smalltalk.send(self, "_visitNode_", [aNode]);
|
43
|
+
return self;},
|
44
|
+
args: ["aNode"],
|
45
|
+
source: unescape('visitMethodNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
|
46
|
+
messageSends: ["visitNode:"],
|
37
47
|
referencedClasses: []
|
38
48
|
}),
|
39
|
-
smalltalk.
|
49
|
+
smalltalk.NodeVisitor);
|
40
50
|
|
51
|
+
smalltalk.addMethod(
|
52
|
+
unescape('_visitSequenceNode_'),
|
53
|
+
smalltalk.method({
|
54
|
+
selector: unescape('visitSequenceNode%3A'),
|
55
|
+
category: 'visiting',
|
56
|
+
fn: function (aNode){
|
57
|
+
var self=this;
|
58
|
+
smalltalk.send(self, "_visitNode_", [aNode]);
|
59
|
+
return self;},
|
60
|
+
args: ["aNode"],
|
61
|
+
source: unescape('visitSequenceNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
|
62
|
+
messageSends: ["visitNode:"],
|
63
|
+
referencedClasses: []
|
64
|
+
}),
|
65
|
+
smalltalk.NodeVisitor);
|
41
66
|
|
42
67
|
smalltalk.addMethod(
|
43
|
-
unescape('
|
68
|
+
unescape('_visitBlockSequenceNode_'),
|
44
69
|
smalltalk.method({
|
45
|
-
selector: unescape('
|
46
|
-
category: '
|
47
|
-
fn: function (
|
70
|
+
selector: unescape('visitBlockSequenceNode%3A'),
|
71
|
+
category: 'visiting',
|
72
|
+
fn: function (aNode){
|
48
73
|
var self=this;
|
49
|
-
|
74
|
+
smalltalk.send(self, "_visitSequenceNode_", [aNode]);
|
50
75
|
return self;},
|
51
|
-
args: ["
|
52
|
-
source: unescape('
|
53
|
-
messageSends: ["
|
76
|
+
args: ["aNode"],
|
77
|
+
source: unescape('visitBlockSequenceNode%3A%20aNode%0A%09self%20visitSequenceNode%3A%20aNode'),
|
78
|
+
messageSends: ["visitSequenceNode:"],
|
54
79
|
referencedClasses: []
|
55
80
|
}),
|
56
|
-
smalltalk.
|
81
|
+
smalltalk.NodeVisitor);
|
82
|
+
|
83
|
+
smalltalk.addMethod(
|
84
|
+
unescape('_visitBlockNode_'),
|
85
|
+
smalltalk.method({
|
86
|
+
selector: unescape('visitBlockNode%3A'),
|
87
|
+
category: 'visiting',
|
88
|
+
fn: function (aNode){
|
89
|
+
var self=this;
|
90
|
+
smalltalk.send(self, "_visitNode_", [aNode]);
|
91
|
+
return self;},
|
92
|
+
args: ["aNode"],
|
93
|
+
source: unescape('visitBlockNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
|
94
|
+
messageSends: ["visitNode:"],
|
95
|
+
referencedClasses: []
|
96
|
+
}),
|
97
|
+
smalltalk.NodeVisitor);
|
98
|
+
|
99
|
+
smalltalk.addMethod(
|
100
|
+
unescape('_visitReturnNode_'),
|
101
|
+
smalltalk.method({
|
102
|
+
selector: unescape('visitReturnNode%3A'),
|
103
|
+
category: 'visiting',
|
104
|
+
fn: function (aNode){
|
105
|
+
var self=this;
|
106
|
+
smalltalk.send(self, "_visitNode_", [aNode]);
|
107
|
+
return self;},
|
108
|
+
args: ["aNode"],
|
109
|
+
source: unescape('visitReturnNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
|
110
|
+
messageSends: ["visitNode:"],
|
111
|
+
referencedClasses: []
|
112
|
+
}),
|
113
|
+
smalltalk.NodeVisitor);
|
114
|
+
|
115
|
+
smalltalk.addMethod(
|
116
|
+
unescape('_visitSendNode_'),
|
117
|
+
smalltalk.method({
|
118
|
+
selector: unescape('visitSendNode%3A'),
|
119
|
+
category: 'visiting',
|
120
|
+
fn: function (aNode){
|
121
|
+
var self=this;
|
122
|
+
smalltalk.send(self, "_visitNode_", [aNode]);
|
123
|
+
return self;},
|
124
|
+
args: ["aNode"],
|
125
|
+
source: unescape('visitSendNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
|
126
|
+
messageSends: ["visitNode:"],
|
127
|
+
referencedClasses: []
|
128
|
+
}),
|
129
|
+
smalltalk.NodeVisitor);
|
130
|
+
|
131
|
+
smalltalk.addMethod(
|
132
|
+
unescape('_visitCascadeNode_'),
|
133
|
+
smalltalk.method({
|
134
|
+
selector: unescape('visitCascadeNode%3A'),
|
135
|
+
category: 'visiting',
|
136
|
+
fn: function (aNode){
|
137
|
+
var self=this;
|
138
|
+
smalltalk.send(self, "_visitNode_", [aNode]);
|
139
|
+
return self;},
|
140
|
+
args: ["aNode"],
|
141
|
+
source: unescape('visitCascadeNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
|
142
|
+
messageSends: ["visitNode:"],
|
143
|
+
referencedClasses: []
|
144
|
+
}),
|
145
|
+
smalltalk.NodeVisitor);
|
146
|
+
|
147
|
+
smalltalk.addMethod(
|
148
|
+
unescape('_visitValueNode_'),
|
149
|
+
smalltalk.method({
|
150
|
+
selector: unescape('visitValueNode%3A'),
|
151
|
+
category: 'visiting',
|
152
|
+
fn: function (aNode){
|
153
|
+
var self=this;
|
154
|
+
smalltalk.send(self, "_visitNode_", [aNode]);
|
155
|
+
return self;},
|
156
|
+
args: ["aNode"],
|
157
|
+
source: unescape('visitValueNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
|
158
|
+
messageSends: ["visitNode:"],
|
159
|
+
referencedClasses: []
|
160
|
+
}),
|
161
|
+
smalltalk.NodeVisitor);
|
162
|
+
|
163
|
+
smalltalk.addMethod(
|
164
|
+
unescape('_visitVariableNode_'),
|
165
|
+
smalltalk.method({
|
166
|
+
selector: unescape('visitVariableNode%3A'),
|
167
|
+
category: 'visiting',
|
168
|
+
fn: function (aNode){
|
169
|
+
var self=this;
|
170
|
+
|
171
|
+
return self;},
|
172
|
+
args: ["aNode"],
|
173
|
+
source: unescape('visitVariableNode%3A%20aNode'),
|
174
|
+
messageSends: [],
|
175
|
+
referencedClasses: []
|
176
|
+
}),
|
177
|
+
smalltalk.NodeVisitor);
|
178
|
+
|
179
|
+
smalltalk.addMethod(
|
180
|
+
unescape('_visitAssignmentNode_'),
|
181
|
+
smalltalk.method({
|
182
|
+
selector: unescape('visitAssignmentNode%3A'),
|
183
|
+
category: 'visiting',
|
184
|
+
fn: function (aNode){
|
185
|
+
var self=this;
|
186
|
+
smalltalk.send(self, "_visitNode_", [aNode]);
|
187
|
+
return self;},
|
188
|
+
args: ["aNode"],
|
189
|
+
source: unescape('visitAssignmentNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
|
190
|
+
messageSends: ["visitNode:"],
|
191
|
+
referencedClasses: []
|
192
|
+
}),
|
193
|
+
smalltalk.NodeVisitor);
|
194
|
+
|
195
|
+
smalltalk.addMethod(
|
196
|
+
unescape('_visitClassReferenceNode_'),
|
197
|
+
smalltalk.method({
|
198
|
+
selector: unescape('visitClassReferenceNode%3A'),
|
199
|
+
category: 'visiting',
|
200
|
+
fn: function (aNode){
|
201
|
+
var self=this;
|
202
|
+
(function($rec){smalltalk.send($rec, "_nextPutAll_", ["smalltalk."]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(aNode, "_value", [])]);})(self);
|
203
|
+
return self;},
|
204
|
+
args: ["aNode"],
|
205
|
+
source: unescape('visitClassReferenceNode%3A%20aNode%0A%09self%20%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.%27%3B%0A%09%20%20%20%20nextPutAll%3A%20aNode%20value'),
|
206
|
+
messageSends: ["nextPutAll:", "value"],
|
207
|
+
referencedClasses: []
|
208
|
+
}),
|
209
|
+
smalltalk.NodeVisitor);
|
210
|
+
|
211
|
+
smalltalk.addMethod(
|
212
|
+
unescape('_visitJSStatementNode_'),
|
213
|
+
smalltalk.method({
|
214
|
+
selector: unescape('visitJSStatementNode%3A'),
|
215
|
+
category: 'visiting',
|
216
|
+
fn: function (aNode){
|
217
|
+
var self=this;
|
218
|
+
(function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("function%28%29%7B")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(aNode, "_source", [])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%7D%29%28%29")]);})(self);
|
219
|
+
return self;},
|
220
|
+
args: ["aNode"],
|
221
|
+
source: unescape('visitJSStatementNode%3A%20aNode%0A%09self%20%0A%09%20%20%20%20nextPutAll%3A%20%27function%28%29%7B%27%3B%0A%09%20%20%20%20nextPutAll%3A%20aNode%20source%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%7D%29%28%29%27'),
|
222
|
+
messageSends: ["nextPutAll:", "source"],
|
223
|
+
referencedClasses: []
|
224
|
+
}),
|
225
|
+
smalltalk.NodeVisitor);
|
226
|
+
|
227
|
+
smalltalk.addMethod(
|
228
|
+
unescape('_visitDynamicArrayNode_'),
|
229
|
+
smalltalk.method({
|
230
|
+
selector: unescape('visitDynamicArrayNode%3A'),
|
231
|
+
category: 'visiting',
|
232
|
+
fn: function (aNode){
|
233
|
+
var self=this;
|
234
|
+
smalltalk.send(self, "_visitNode_", [aNode]);
|
235
|
+
return self;},
|
236
|
+
args: ["aNode"],
|
237
|
+
source: unescape('visitDynamicArrayNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
|
238
|
+
messageSends: ["visitNode:"],
|
239
|
+
referencedClasses: []
|
240
|
+
}),
|
241
|
+
smalltalk.NodeVisitor);
|
242
|
+
|
243
|
+
smalltalk.addMethod(
|
244
|
+
unescape('_visitDynamicDictionaryNode_'),
|
245
|
+
smalltalk.method({
|
246
|
+
selector: unescape('visitDynamicDictionaryNode%3A'),
|
247
|
+
category: 'visiting',
|
248
|
+
fn: function (aNode){
|
249
|
+
var self=this;
|
250
|
+
smalltalk.send(self, "_visitNode_", [aNode]);
|
251
|
+
return self;},
|
252
|
+
args: ["aNode"],
|
253
|
+
source: unescape('visitDynamicDictionaryNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
|
254
|
+
messageSends: ["visitNode:"],
|
255
|
+
referencedClasses: []
|
256
|
+
}),
|
257
|
+
smalltalk.NodeVisitor);
|
258
|
+
|
259
|
+
|
260
|
+
|
261
|
+
smalltalk.addClass('DoIt', smalltalk.Object, [], 'Compiler');
|
57
262
|
|
58
263
|
|
59
264
|
smalltalk.addClass('Importer', smalltalk.Object, [], 'Compiler');
|
@@ -176,11 +381,11 @@ category: 'fileOut',
|
|
176
381
|
fn: function (packageName){
|
177
382
|
var self=this;
|
178
383
|
var package=nil;
|
179
|
-
return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(stream){(package=smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_packageAt_", [packageName]));smalltalk.send(self, "_exportPackageDefinitionOf_on_", [package, stream]);smalltalk.send(smalltalk.send(package, "
|
384
|
+
return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(stream){(package=smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_packageAt_", [packageName]));smalltalk.send(self, "_exportPackageDefinitionOf_on_", [package, stream]);smalltalk.send(smalltalk.send(package, "_sortedClasses", []), "_do_", [(function(each){return smalltalk.send(stream, "_nextPutAll_", [smalltalk.send(self, "_exportClass_", [each])]);})]);return smalltalk.send(self, "_exportPackageExtensionsOf_on_", [package, stream]);})]);
|
180
385
|
return self;},
|
181
386
|
args: ["packageName"],
|
182
|
-
source: unescape('exportPackage%3A%20packageName%0A%09%22Export%20a%20given%20package%20by%20name.%22%0A%0A%09%7C%20package%20%7C%0A%09%5EString%20streamContents%3A%20%5B%3Astream%20%7C%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20package%20%3A%3D%20Smalltalk%20current%20packageAt%3A%20packageName.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20exportPackageDefinitionOf%3A%20package%20on%3A%20stream.%0A%09%20%20%20%20%09package%
|
183
|
-
messageSends: ["streamContents:", "packageAt:", "current", "exportPackageDefinitionOf:on:", "do:", "
|
387
|
+
source: unescape('exportPackage%3A%20packageName%0A%09%22Export%20a%20given%20package%20by%20name.%22%0A%0A%09%7C%20package%20%7C%0A%09%5EString%20streamContents%3A%20%5B%3Astream%20%7C%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20package%20%3A%3D%20Smalltalk%20current%20packageAt%3A%20packageName.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20exportPackageDefinitionOf%3A%20package%20on%3A%20stream.%0A%09%09%22Export%20classes%20in%20dependency%20order%22%0A%09%20%20%20%20%09package%20sortedClasses%20do%3A%20%5B%3Aeach%20%7C%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%28self%20exportClass%3A%20each%29%5D.%0A%09%09self%20exportPackageExtensionsOf%3A%20package%20on%3A%20stream%5D'),
|
388
|
+
messageSends: ["streamContents:", "packageAt:", "current", "exportPackageDefinitionOf:on:", "do:", "sortedClasses", "nextPutAll:", "exportClass:", "exportPackageExtensionsOf:on:"],
|
184
389
|
referencedClasses: ["String", "Smalltalk"]
|
185
390
|
}),
|
186
391
|
smalltalk.Exporter);
|
@@ -254,197 +459,61 @@ smalltalk.Exporter);
|
|
254
459
|
|
255
460
|
|
256
461
|
|
257
|
-
smalltalk.addClass('
|
258
|
-
smalltalk.addMethod(
|
259
|
-
unescape('_exportDefinitionOf_on_'),
|
260
|
-
smalltalk.method({
|
261
|
-
selector: unescape('exportDefinitionOf%3Aon%3A'),
|
262
|
-
category: 'not yet classified',
|
263
|
-
fn: function (aClass, aStream){
|
264
|
-
var self=this;
|
265
|
-
(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_superclass", [])])]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(unescape("%20subclass%3A%20%23"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])])]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [unescape("%09instanceVariableNames%3A%20%27")]);})(aStream);
|
266
|
-
smalltalk.send(smalltalk.send(aClass, "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [each]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [" "]);})]);
|
267
|
-
(function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%27")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%09category%3A%20%27"), "__comma", [smalltalk.send(aClass, "_category", [])]), "__comma", [unescape("%27%21")])]);return smalltalk.send($rec, "_lf", []);})(aStream);
|
268
|
-
((($receiver = smalltalk.send(smalltalk.send(aClass, "_comment", []), "_notEmpty", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%21"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])]), "__comma", [unescape("%20commentStamp%21")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(self, "_chunkEscape_", [smalltalk.send(aClass, "_comment", [])]), "__comma", [unescape("%21")])]);return smalltalk.send($rec, "_lf", []);})(aStream);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%21"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])]), "__comma", [unescape("%20commentStamp%21")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(self, "_chunkEscape_", [smalltalk.send(aClass, "_comment", [])]), "__comma", [unescape("%21")])]);return smalltalk.send($rec, "_lf", []);})(aStream);})]));
|
269
|
-
smalltalk.send(aStream, "_lf", []);
|
270
|
-
return self;},
|
271
|
-
args: ["aClass", "aStream"],
|
272
|
-
source: unescape('exportDefinitionOf%3A%20aClass%20on%3A%20aStream%0A%09%22Chunk%20format.%22%0A%0A%09aStream%20%0A%09%20%20%20%20nextPutAll%3A%20%28self%20classNameFor%3A%20aClass%20superclass%29%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%20subclass%3A%20%23%27%2C%20%28self%20classNameFor%3A%20aClass%29%3B%20lf%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%09instanceVariableNames%3A%20%27%27%27.%0A%09aClass%20instanceVariableNames%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20each%5D%0A%09%20%20%20%20separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%20%27%5D.%0A%09aStream%09%0A%09%20%20%20%20nextPutAll%3A%20%27%27%27%27%3B%20lf%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%09category%3A%20%27%27%27%2C%20aClass%20category%2C%20%27%27%27%21%27%3B%20lf.%0A%20%09aClass%20comment%20notEmpty%20ifTrue%3A%20%5B%0A%09%20%20%20%20aStream%20%0A%09%09nextPutAll%3A%20%27%21%27%2C%20%28self%20classNameFor%3A%20aClass%29%2C%20%27%20commentStamp%21%27%3Blf%3B%0A%09%09nextPutAll%3A%20%28self%20chunkEscape%3A%20aClass%20comment%29%2C%20%27%21%27%3Blf%5D.%0A%09aStream%20lf'),
|
273
|
-
messageSends: ["nextPutAll:", "classNameFor:", "superclass", unescape("%2C"), "lf", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "notEmpty", "comment", "chunkEscape:"],
|
274
|
-
referencedClasses: []
|
275
|
-
}),
|
276
|
-
smalltalk.ChunkExporter);
|
277
|
-
|
278
|
-
smalltalk.addMethod(
|
279
|
-
unescape('_exportMethod_of_on_'),
|
280
|
-
smalltalk.method({
|
281
|
-
selector: unescape('exportMethod%3Aof%3Aon%3A'),
|
282
|
-
category: 'not yet classified',
|
283
|
-
fn: function (aMethod, aClass, aStream){
|
284
|
-
var self=this;
|
285
|
-
(function($rec){smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_chunkEscape_", [smalltalk.send(aMethod, "_source", [])])]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [unescape("%21")]);})(aStream);
|
286
|
-
return self;},
|
287
|
-
args: ["aMethod", "aClass", "aStream"],
|
288
|
-
source: unescape('exportMethod%3A%20aMethod%20of%3A%20aClass%20on%3A%20aStream%0A%09aStream%20%0A%09%09lf%3B%20lf%3B%20nextPutAll%3A%20%28self%20chunkEscape%3A%20aMethod%20source%29%3B%20lf%3B%0A%09%09nextPutAll%3A%20%27%21%27'),
|
289
|
-
messageSends: ["lf", "nextPutAll:", "chunkEscape:", "source"],
|
290
|
-
referencedClasses: []
|
291
|
-
}),
|
292
|
-
smalltalk.ChunkExporter);
|
293
|
-
|
294
|
-
smalltalk.addMethod(
|
295
|
-
unescape('_exportMethodsOf_on_'),
|
296
|
-
smalltalk.method({
|
297
|
-
selector: unescape('exportMethodsOf%3Aon%3A'),
|
298
|
-
category: 'not yet classified',
|
299
|
-
fn: function (aClass, aStream){
|
300
|
-
var self=this;
|
301
|
-
smalltalk.send(aClass, "_protocolsDo_", [(function(category, methods){return ((($receiver = smalltalk.send(category, "_match_", [unescape("%5E%5C*")])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self, "_exportMethods_category_of_on_", [methods, category, aClass, aStream]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self, "_exportMethods_category_of_on_", [methods, category, aClass, aStream]);})]));})]);
|
302
|
-
return self;},
|
303
|
-
args: ["aClass", "aStream"],
|
304
|
-
source: unescape('exportMethodsOf%3A%20aClass%20on%3A%20aStream%0A%0A%20%20%20aClass%20protocolsDo%3A%20%5B%3Acategory%20%3Amethods%20%7C%0A%09%28category%20match%3A%20%27%5E%5C*%27%29%20ifFalse%3A%20%5B%20%0A%09%09self%0A%09%09%09exportMethods%3A%20methods%0A%09%09%09category%3A%20category%0A%09%09%09of%3A%20aClass%0A%09%09%09on%3A%20aStream%5D%5D'),
|
305
|
-
messageSends: ["protocolsDo:", "ifFalse:", "match:", "exportMethods:category:of:on:"],
|
306
|
-
referencedClasses: []
|
307
|
-
}),
|
308
|
-
smalltalk.ChunkExporter);
|
309
|
-
|
310
|
-
smalltalk.addMethod(
|
311
|
-
unescape('_exportMetaDefinitionOf_on_'),
|
312
|
-
smalltalk.method({
|
313
|
-
selector: unescape('exportMetaDefinitionOf%3Aon%3A'),
|
314
|
-
category: 'not yet classified',
|
315
|
-
fn: function (aClass, aStream){
|
316
|
-
var self=this;
|
317
|
-
((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_isEmpty", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_class", [])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%20instanceVariableNames%3A%20%27")]);})(aStream);smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [each]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [" "]);})]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%27%21")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_class", [])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%20instanceVariableNames%3A%20%27")]);})(aStream);smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [each]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [" "]);})]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%27%21")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);})]));
|
318
|
-
return self;},
|
319
|
-
args: ["aClass", "aStream"],
|
320
|
-
source: unescape('exportMetaDefinitionOf%3A%20aClass%20on%3A%20aStream%0A%0A%09aClass%20class%20instanceVariableNames%20isEmpty%20ifFalse%3A%20%5B%0A%09%09aStream%20%0A%09%09%20%20%20%20nextPutAll%3A%20%28self%20classNameFor%3A%20aClass%20class%29%3B%0A%09%09%20%20%20%20nextPutAll%3A%20%27%20instanceVariableNames%3A%20%27%27%27.%0A%09%09aClass%20class%20instanceVariableNames%20%0A%09%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20each%5D%0A%09%09%20%20%20%20separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%20%27%5D.%0A%09%09aStream%09%0A%09%09%20%20%20%20nextPutAll%3A%20%27%27%27%21%27%3B%20lf%3B%20lf%5D'),
|
321
|
-
messageSends: ["ifFalse:", "isEmpty", "instanceVariableNames", "class", "nextPutAll:", "classNameFor:", "do:separatedBy:", "lf"],
|
322
|
-
referencedClasses: []
|
323
|
-
}),
|
324
|
-
smalltalk.ChunkExporter);
|
325
|
-
|
326
|
-
smalltalk.addMethod(
|
327
|
-
unescape('_classNameFor_'),
|
328
|
-
smalltalk.method({
|
329
|
-
selector: unescape('classNameFor%3A'),
|
330
|
-
category: 'not yet classified',
|
331
|
-
fn: function (aClass){
|
332
|
-
var self=this;
|
333
|
-
return ((($receiver = smalltalk.send(aClass, "_isMetaclass", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [" class"]);})() : (function(){return ((($receiver = smalltalk.send(aClass, "_isNil", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "nil";})() : (function(){return smalltalk.send(aClass, "_name", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [" class"]);}), (function(){return ((($receiver = smalltalk.send(aClass, "_isNil", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "nil";})() : (function(){return smalltalk.send(aClass, "_name", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]));})]));
|
334
|
-
return self;},
|
335
|
-
args: ["aClass"],
|
336
|
-
source: unescape('classNameFor%3A%20aClass%0A%09%5EaClass%20isMetaclass%0A%09%20%20%20%20ifTrue%3A%20%5BaClass%20instanceClass%20name%2C%20%27%20class%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5B%0A%09%09aClass%20isNil%0A%09%09%20%20%20%20ifTrue%3A%20%5B%27nil%27%5D%0A%09%09%20%20%20%20ifFalse%3A%20%5BaClass%20name%5D%5D'),
|
337
|
-
messageSends: ["ifTrue:ifFalse:", "isMetaclass", unescape("%2C"), "name", "instanceClass", "isNil"],
|
338
|
-
referencedClasses: []
|
339
|
-
}),
|
340
|
-
smalltalk.ChunkExporter);
|
341
|
-
|
342
|
-
smalltalk.addMethod(
|
343
|
-
unescape('_chunkEscape_'),
|
344
|
-
smalltalk.method({
|
345
|
-
selector: unescape('chunkEscape%3A'),
|
346
|
-
category: 'not yet classified',
|
347
|
-
fn: function (aString){
|
348
|
-
var self=this;
|
349
|
-
return smalltalk.send(smalltalk.send(aString, "_replace_with_", [unescape("%21"), unescape("%21%21")]), "_trimBoth", []);
|
350
|
-
return self;},
|
351
|
-
args: ["aString"],
|
352
|
-
source: unescape('chunkEscape%3A%20aString%0A%09%22Replace%20all%20occurrences%20of%20%21%20with%20%21%21%20and%20trim%20at%20both%20ends.%22%0A%0A%09%5E%28aString%20replace%3A%20%27%21%27%20with%3A%20%27%21%21%27%29%20trimBoth'),
|
353
|
-
messageSends: ["trimBoth", "replace:with:"],
|
354
|
-
referencedClasses: []
|
355
|
-
}),
|
356
|
-
smalltalk.ChunkExporter);
|
357
|
-
|
358
|
-
smalltalk.addMethod(
|
359
|
-
unescape('_exportMethods_category_of_on_'),
|
360
|
-
smalltalk.method({
|
361
|
-
selector: unescape('exportMethods%3Acategory%3Aof%3Aon%3A'),
|
362
|
-
category: 'not yet classified',
|
363
|
-
fn: function (methods, category, aClass, aStream){
|
364
|
-
var self=this;
|
365
|
-
(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(unescape("%21"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])])]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%20methodsFor%3A%20%27"), "__comma", [category]), "__comma", [unescape("%27%21")])]);})(aStream);
|
366
|
-
smalltalk.send(methods, "_do_", [(function(each){return smalltalk.send(self, "_exportMethod_of_on_", [each, aClass, aStream]);})]);
|
367
|
-
(function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%20%21")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);
|
368
|
-
return self;},
|
369
|
-
args: ["methods", "category", "aClass", "aStream"],
|
370
|
-
source: unescape('exportMethods%3A%20methods%20category%3A%20category%20of%3A%20aClass%20on%3A%20aStream%0A%0A%09aStream%0A%09%09nextPutAll%3A%20%27%21%27%2C%20%28self%20classNameFor%3A%20aClass%29%3B%0A%09%09nextPutAll%3A%20%27%20methodsFor%3A%20%27%27%27%2C%20category%2C%20%27%27%27%21%27.%0A%20%20%20%20%09methods%20do%3A%20%5B%3Aeach%20%7C%0A%09%09self%20exportMethod%3A%20each%20of%3A%20aClass%20on%3A%20aStream%5D.%0A%09aStream%20nextPutAll%3A%20%27%20%21%27%3B%20lf%3B%20lf'),
|
371
|
-
messageSends: ["nextPutAll:", unescape("%2C"), "classNameFor:", "do:", "exportMethod:of:on:", "lf"],
|
372
|
-
referencedClasses: []
|
373
|
-
}),
|
374
|
-
smalltalk.ChunkExporter);
|
375
|
-
|
376
|
-
smalltalk.addMethod(
|
377
|
-
unescape('_exportPackageExtensionsOf_on_'),
|
378
|
-
smalltalk.method({
|
379
|
-
selector: unescape('exportPackageExtensionsOf%3Aon%3A'),
|
380
|
-
category: 'not yet classified',
|
381
|
-
fn: function (package, aStream){
|
382
|
-
var self=this;
|
383
|
-
var name=nil;
|
384
|
-
(name=smalltalk.send(package, "_name", []));
|
385
|
-
smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_classes", []), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_classes", []), "_collect_", [(function(each){return smalltalk.send(each, "_class", []);})])]), "_do_", [(function(each){return smalltalk.send(each, "_protocolsDo_", [(function(category, methods){return ((($receiver = smalltalk.send(category, "__eq", [smalltalk.send(unescape("*"), "__comma", [name])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_exportMethods_category_of_on_", [methods, category, each, aStream]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self, "_exportMethods_category_of_on_", [methods, category, each, aStream]);})]));})]);})]);
|
386
|
-
return self;},
|
387
|
-
args: ["package", "aStream"],
|
388
|
-
source: unescape('exportPackageExtensionsOf%3A%20package%20on%3A%20aStream%0A%09%22We%20need%20to%20override%20this%20one%20too%20since%20we%20need%20to%20group%0A%09all%20methods%20in%20a%20given%20protocol%20under%20a%20leading%20methodsFor%3A%20chunk%0A%09for%20that%20class.%22%0A%0A%09%7C%20name%20%7C%0A%09name%20%3A%3D%20package%20name.%0A%09Smalltalk%20current%20classes%2C%20%28Smalltalk%20current%20classes%20collect%3A%20%5B%3Aeach%20%7C%20each%20class%5D%29%20do%3A%20%5B%3Aeach%20%7C%0A%09%09each%20protocolsDo%3A%20%5B%3Acategory%20%3Amethods%20%7C%0A%09%09%09category%20%3D%20%28%27*%27%2C%20name%29%20ifTrue%3A%20%5B%0A%09%09%09%09self%20exportMethods%3A%20methods%20category%3A%20category%20of%3A%20each%20on%3A%20aStream%5D%5D%5D'),
|
389
|
-
messageSends: ["name", "do:", unescape("%2C"), "classes", "current", "collect:", "class", "protocolsDo:", "ifTrue:", unescape("%3D"), "exportMethods:category:of:on:"],
|
390
|
-
referencedClasses: ["Smalltalk"]
|
391
|
-
}),
|
392
|
-
smalltalk.ChunkExporter);
|
393
|
-
|
462
|
+
smalltalk.addClass('ChunkParser', smalltalk.Object, ['stream'], 'Compiler');
|
394
463
|
smalltalk.addMethod(
|
395
|
-
unescape('
|
464
|
+
unescape('_stream_'),
|
396
465
|
smalltalk.method({
|
397
|
-
selector: unescape('
|
398
|
-
category: '
|
399
|
-
fn: function (
|
466
|
+
selector: unescape('stream%3A'),
|
467
|
+
category: 'accessing',
|
468
|
+
fn: function (aStream){
|
400
469
|
var self=this;
|
401
|
-
(
|
402
|
-
return self;},
|
403
|
-
args: ["
|
404
|
-
source: unescape('
|
405
|
-
messageSends: [
|
470
|
+
(self['@stream']=aStream);
|
471
|
+
return self;},
|
472
|
+
args: ["aStream"],
|
473
|
+
source: unescape('stream%3A%20aStream%0A%09stream%20%3A%3D%20aStream'),
|
474
|
+
messageSends: [],
|
406
475
|
referencedClasses: []
|
407
476
|
}),
|
408
|
-
smalltalk.
|
409
|
-
|
410
|
-
|
477
|
+
smalltalk.ChunkParser);
|
411
478
|
|
412
|
-
smalltalk.addClass('StrippedExporter', smalltalk.Exporter, [], 'Compiler');
|
413
479
|
smalltalk.addMethod(
|
414
|
-
unescape('
|
480
|
+
unescape('_nextChunk'),
|
415
481
|
smalltalk.method({
|
416
|
-
selector: unescape('
|
417
|
-
category: '
|
418
|
-
fn: function (
|
482
|
+
selector: unescape('nextChunk'),
|
483
|
+
category: 'reading',
|
484
|
+
fn: function (){
|
419
485
|
var self=this;
|
420
|
-
|
421
|
-
|
422
|
-
|
423
|
-
smalltalk.send(
|
424
|
-
return self;},
|
425
|
-
|
426
|
-
|
427
|
-
|
486
|
+
try{var char_=nil;
|
487
|
+
var result=nil;
|
488
|
+
var chunk=nil;
|
489
|
+
(result=smalltalk.send("", "_writeStream", []));
|
490
|
+
(function(){while((function(){(char_=smalltalk.send(self['@stream'], "_next", []));return smalltalk.send(char_, "_notNil", []);})()) {(function(){((($receiver = smalltalk.send(char_, "__eq", [unescape("%21")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(self['@stream'], "_peek", []), "__eq", [unescape("%21")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_next", []);})() : (function(){return (function(){throw({name: 'stReturn', selector: '_nextChunk', fn: function(){return smalltalk.send(smalltalk.send(result, "_contents", []), "_trimBoth", [])}})})();})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_next", []);}), (function(){return (function(){throw({name: 'stReturn', selector: '_nextChunk', fn: function(){return smalltalk.send(smalltalk.send(result, "_contents", []), "_trimBoth", [])}})})();})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(self['@stream'], "_peek", []), "__eq", [unescape("%21")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_next", []);})() : (function(){return (function(){throw({name: 'stReturn', selector: '_nextChunk', fn: function(){return smalltalk.send(smalltalk.send(result, "_contents", []), "_trimBoth", [])}})})();})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_next", []);}), (function(){return (function(){throw({name: 'stReturn', selector: '_nextChunk', fn: function(){return smalltalk.send(smalltalk.send(result, "_contents", []), "_trimBoth", [])}})})();})]));})]));return smalltalk.send(result, "_nextPut_", [char_]);})()}})();
|
491
|
+
(function(){throw({name: 'stReturn', selector: '_nextChunk', fn: function(){return nil}})})();
|
492
|
+
return self;
|
493
|
+
} catch(e) {if(e.name === 'stReturn' && e.selector === '_nextChunk'){return e.fn()} throw(e)}},
|
494
|
+
args: [],
|
495
|
+
source: unescape('nextChunk%0A%09%22The%20chunk%20format%20%28Smalltalk%20Interchange%20Format%20or%20Fileout%20format%29%0A%09is%20a%20trivial%20format%20but%20can%20be%20a%20bit%20tricky%20to%20understand%3A%0A%09%09-%20Uses%20the%20exclamation%20mark%20as%20delimiter%20of%20chunks.%0A%09%09-%20Inside%20a%20chunk%20a%20normal%20exclamation%20mark%20must%20be%20doubled.%0A%09%09-%20A%20non%20empty%20chunk%20must%20be%20a%20valid%20Smalltalk%20expression.%0A%09%09-%20A%20chunk%20on%20top%20level%20with%20a%20preceding%20empty%20chunk%20is%20an%20instruction%20chunk%3A%0A%09%09%09-%20The%20object%20created%20by%20the%20expression%20then%20takes%20over%20reading%20chunks.%0A%0A%09This%20metod%20returns%20next%20chunk%20as%20a%20String%20%28trimmed%29%2C%20empty%20String%20%28all%20whitespace%29%20or%20nil.%22%0A%0A%09%7C%20char%20result%20chunk%20%7C%0A%09result%20%3A%3D%20%27%27%20writeStream.%0A%20%20%20%20%20%20%20%20%5Bchar%20%3A%3D%20stream%20next.%0A%20%20%20%20%20%20%20%20char%20notNil%5D%20whileTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20char%20%3D%20%27%21%27%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20peek%20%3D%20%27%21%27%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ifTrue%3A%20%5Bstream%20next%20%22skipping%20the%20escape%20double%22%5D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ifFalse%3A%20%5B%5Eresult%20contents%20trimBoth%20%20%22chunk%20end%20marker%20found%22%5D%5D.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20result%20nextPut%3A%20char%5D.%0A%09%5Enil%20%22a%20chunk%20needs%20to%20end%20with%20%21%22'),
|
496
|
+
messageSends: ["writeStream", "whileTrue:", "next", "notNil", "ifTrue:", unescape("%3D"), "ifTrue:ifFalse:", "peek", "trimBoth", "contents", "nextPut:"],
|
428
497
|
referencedClasses: []
|
429
498
|
}),
|
430
|
-
smalltalk.
|
499
|
+
smalltalk.ChunkParser);
|
500
|
+
|
431
501
|
|
432
502
|
smalltalk.addMethod(
|
433
|
-
unescape('
|
503
|
+
unescape('_on_'),
|
434
504
|
smalltalk.method({
|
435
|
-
selector: unescape('
|
436
|
-
category: '
|
437
|
-
fn: function (
|
505
|
+
selector: unescape('on%3A'),
|
506
|
+
category: 'not yet classified',
|
507
|
+
fn: function (aStream){
|
438
508
|
var self=this;
|
439
|
-
|
509
|
+
return smalltalk.send(smalltalk.send(self, "_new", []), "_stream_", [aStream]);
|
440
510
|
return self;},
|
441
|
-
args: ["
|
442
|
-
source: unescape('
|
443
|
-
messageSends: ["
|
511
|
+
args: ["aStream"],
|
512
|
+
source: unescape('on%3A%20aStream%0A%09%5Eself%20new%20stream%3A%20aStream'),
|
513
|
+
messageSends: ["stream:", "new"],
|
444
514
|
referencedClasses: []
|
445
515
|
}),
|
446
|
-
smalltalk.
|
447
|
-
|
516
|
+
smalltalk.ChunkParser.klass);
|
448
517
|
|
449
518
|
|
450
519
|
smalltalk.addClass('Node', smalltalk.Object, ['nodes'], 'Compiler');
|
@@ -561,252 +630,55 @@ referencedClasses: []
|
|
561
630
|
smalltalk.Node);
|
562
631
|
|
563
632
|
|
564
|
-
|
565
|
-
smalltalk.addClass('
|
566
|
-
smalltalk.addMethod(
|
567
|
-
unescape('_selector'),
|
568
|
-
smalltalk.method({
|
569
|
-
selector: unescape('selector'),
|
570
|
-
category: 'accessing',
|
571
|
-
fn: function (){
|
572
|
-
var self=this;
|
573
|
-
return self['@selector'];
|
574
|
-
return self;},
|
575
|
-
args: [],
|
576
|
-
source: unescape('selector%0A%09%5Eselector'),
|
577
|
-
messageSends: [],
|
578
|
-
referencedClasses: []
|
579
|
-
}),
|
580
|
-
smalltalk.MethodNode);
|
581
|
-
|
582
|
-
smalltalk.addMethod(
|
583
|
-
unescape('_selector_'),
|
584
|
-
smalltalk.method({
|
585
|
-
selector: unescape('selector%3A'),
|
586
|
-
category: 'accessing',
|
587
|
-
fn: function (aString){
|
588
|
-
var self=this;
|
589
|
-
(self['@selector']=aString);
|
590
|
-
return self;},
|
591
|
-
args: ["aString"],
|
592
|
-
source: unescape('selector%3A%20aString%0A%09selector%20%3A%3D%20aString'),
|
593
|
-
messageSends: [],
|
594
|
-
referencedClasses: []
|
595
|
-
}),
|
596
|
-
smalltalk.MethodNode);
|
597
|
-
|
598
|
-
smalltalk.addMethod(
|
599
|
-
unescape('_arguments'),
|
600
|
-
smalltalk.method({
|
601
|
-
selector: unescape('arguments'),
|
602
|
-
category: 'accessing',
|
603
|
-
fn: function (){
|
604
|
-
var self=this;
|
605
|
-
return (($receiver = self['@arguments']) == nil || $receiver == undefined) ? (function(){return [];})() : $receiver;
|
606
|
-
return self;},
|
607
|
-
args: [],
|
608
|
-
source: unescape('arguments%0A%09%5Earguments%20ifNil%3A%20%5B%23%28%29%5D'),
|
609
|
-
messageSends: ["ifNil:"],
|
610
|
-
referencedClasses: []
|
611
|
-
}),
|
612
|
-
smalltalk.MethodNode);
|
613
|
-
|
614
|
-
smalltalk.addMethod(
|
615
|
-
unescape('_arguments_'),
|
616
|
-
smalltalk.method({
|
617
|
-
selector: unescape('arguments%3A'),
|
618
|
-
category: 'accessing',
|
619
|
-
fn: function (aCollection){
|
620
|
-
var self=this;
|
621
|
-
(self['@arguments']=aCollection);
|
622
|
-
return self;},
|
623
|
-
args: ["aCollection"],
|
624
|
-
source: unescape('arguments%3A%20aCollection%0A%09arguments%20%3A%3D%20aCollection'),
|
625
|
-
messageSends: [],
|
626
|
-
referencedClasses: []
|
627
|
-
}),
|
628
|
-
smalltalk.MethodNode);
|
629
|
-
|
630
|
-
smalltalk.addMethod(
|
631
|
-
unescape('_source'),
|
632
|
-
smalltalk.method({
|
633
|
-
selector: unescape('source'),
|
634
|
-
category: 'accessing',
|
635
|
-
fn: function (){
|
636
|
-
var self=this;
|
637
|
-
return self['@source'];
|
638
|
-
return self;},
|
639
|
-
args: [],
|
640
|
-
source: unescape('source%0A%09%5Esource'),
|
641
|
-
messageSends: [],
|
642
|
-
referencedClasses: []
|
643
|
-
}),
|
644
|
-
smalltalk.MethodNode);
|
645
|
-
|
646
|
-
smalltalk.addMethod(
|
647
|
-
unescape('_source_'),
|
648
|
-
smalltalk.method({
|
649
|
-
selector: unescape('source%3A'),
|
650
|
-
category: 'accessing',
|
651
|
-
fn: function (aString){
|
652
|
-
var self=this;
|
653
|
-
(self['@source']=aString);
|
654
|
-
return self;},
|
655
|
-
args: ["aString"],
|
656
|
-
source: unescape('source%3A%20aString%0A%09source%20%3A%3D%20aString'),
|
657
|
-
messageSends: [],
|
658
|
-
referencedClasses: []
|
659
|
-
}),
|
660
|
-
smalltalk.MethodNode);
|
661
|
-
|
662
|
-
smalltalk.addMethod(
|
663
|
-
unescape('_accept_'),
|
664
|
-
smalltalk.method({
|
665
|
-
selector: unescape('accept%3A'),
|
666
|
-
category: 'visiting',
|
667
|
-
fn: function (aVisitor){
|
668
|
-
var self=this;
|
669
|
-
smalltalk.send(aVisitor, "_visitMethodNode_", [self]);
|
670
|
-
return self;},
|
671
|
-
args: ["aVisitor"],
|
672
|
-
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitMethodNode%3A%20self'),
|
673
|
-
messageSends: ["visitMethodNode:"],
|
674
|
-
referencedClasses: []
|
675
|
-
}),
|
676
|
-
smalltalk.MethodNode);
|
677
|
-
|
678
|
-
|
679
|
-
|
680
|
-
smalltalk.addClass('SendNode', smalltalk.Node, ['selector', 'arguments', 'receiver'], 'Compiler');
|
681
|
-
smalltalk.addMethod(
|
682
|
-
unescape('_selector'),
|
683
|
-
smalltalk.method({
|
684
|
-
selector: unescape('selector'),
|
685
|
-
category: 'accessing',
|
686
|
-
fn: function (){
|
687
|
-
var self=this;
|
688
|
-
return self['@selector'];
|
689
|
-
return self;},
|
690
|
-
args: [],
|
691
|
-
source: unescape('selector%0A%09%5Eselector'),
|
692
|
-
messageSends: [],
|
693
|
-
referencedClasses: []
|
694
|
-
}),
|
695
|
-
smalltalk.SendNode);
|
696
|
-
|
697
|
-
smalltalk.addMethod(
|
698
|
-
unescape('_selector_'),
|
699
|
-
smalltalk.method({
|
700
|
-
selector: unescape('selector%3A'),
|
701
|
-
category: 'accessing',
|
702
|
-
fn: function (aString){
|
703
|
-
var self=this;
|
704
|
-
(self['@selector']=aString);
|
705
|
-
return self;},
|
706
|
-
args: ["aString"],
|
707
|
-
source: unescape('selector%3A%20aString%0A%09selector%20%3A%3D%20aString'),
|
708
|
-
messageSends: [],
|
709
|
-
referencedClasses: []
|
710
|
-
}),
|
711
|
-
smalltalk.SendNode);
|
712
|
-
|
713
|
-
smalltalk.addMethod(
|
714
|
-
unescape('_arguments'),
|
715
|
-
smalltalk.method({
|
716
|
-
selector: unescape('arguments'),
|
717
|
-
category: 'accessing',
|
718
|
-
fn: function (){
|
719
|
-
var self=this;
|
720
|
-
return (($receiver = self['@arguments']) == nil || $receiver == undefined) ? (function(){return (self['@arguments']=[]);})() : $receiver;
|
721
|
-
return self;},
|
722
|
-
args: [],
|
723
|
-
source: unescape('arguments%0A%09%5Earguments%20ifNil%3A%20%5Barguments%20%3A%3D%20%23%28%29%5D'),
|
724
|
-
messageSends: ["ifNil:"],
|
725
|
-
referencedClasses: []
|
726
|
-
}),
|
727
|
-
smalltalk.SendNode);
|
728
|
-
|
729
|
-
smalltalk.addMethod(
|
730
|
-
unescape('_arguments_'),
|
731
|
-
smalltalk.method({
|
732
|
-
selector: unescape('arguments%3A'),
|
733
|
-
category: 'accessing',
|
734
|
-
fn: function (aCollection){
|
735
|
-
var self=this;
|
736
|
-
(self['@arguments']=aCollection);
|
737
|
-
return self;},
|
738
|
-
args: ["aCollection"],
|
739
|
-
source: unescape('arguments%3A%20aCollection%0A%09arguments%20%3A%3D%20aCollection'),
|
740
|
-
messageSends: [],
|
741
|
-
referencedClasses: []
|
742
|
-
}),
|
743
|
-
smalltalk.SendNode);
|
744
|
-
|
745
|
-
smalltalk.addMethod(
|
746
|
-
unescape('_receiver'),
|
747
|
-
smalltalk.method({
|
748
|
-
selector: unescape('receiver'),
|
749
|
-
category: 'accessing',
|
750
|
-
fn: function (){
|
751
|
-
var self=this;
|
752
|
-
return self['@receiver'];
|
753
|
-
return self;},
|
754
|
-
args: [],
|
755
|
-
source: unescape('receiver%0A%09%5Ereceiver'),
|
756
|
-
messageSends: [],
|
757
|
-
referencedClasses: []
|
758
|
-
}),
|
759
|
-
smalltalk.SendNode);
|
760
|
-
|
633
|
+
|
634
|
+
smalltalk.addClass('SequenceNode', smalltalk.Node, ['temps'], 'Compiler');
|
761
635
|
smalltalk.addMethod(
|
762
|
-
unescape('
|
636
|
+
unescape('_temps'),
|
763
637
|
smalltalk.method({
|
764
|
-
selector: unescape('
|
638
|
+
selector: unescape('temps'),
|
765
639
|
category: 'accessing',
|
766
|
-
fn: function (
|
640
|
+
fn: function (){
|
767
641
|
var self=this;
|
768
|
-
(self['@
|
642
|
+
return (($receiver = self['@temps']) == nil || $receiver == undefined) ? (function(){return [];})() : $receiver;
|
769
643
|
return self;},
|
770
|
-
args: [
|
771
|
-
source: unescape('
|
772
|
-
messageSends: [],
|
644
|
+
args: [],
|
645
|
+
source: unescape('temps%0A%09%5Etemps%20ifNil%3A%20%5B%23%28%29%5D'),
|
646
|
+
messageSends: ["ifNil:"],
|
773
647
|
referencedClasses: []
|
774
648
|
}),
|
775
|
-
smalltalk.
|
649
|
+
smalltalk.SequenceNode);
|
776
650
|
|
777
651
|
smalltalk.addMethod(
|
778
|
-
unescape('
|
652
|
+
unescape('_temps_'),
|
779
653
|
smalltalk.method({
|
780
|
-
selector: unescape('
|
654
|
+
selector: unescape('temps%3A'),
|
781
655
|
category: 'accessing',
|
782
|
-
fn: function (
|
656
|
+
fn: function (aCollection){
|
783
657
|
var self=this;
|
784
|
-
|
658
|
+
(self['@temps']=aCollection);
|
785
659
|
return self;},
|
786
|
-
args: ["
|
787
|
-
source: unescape('
|
788
|
-
messageSends: [
|
789
|
-
referencedClasses: [
|
660
|
+
args: ["aCollection"],
|
661
|
+
source: unescape('temps%3A%20aCollection%0A%09temps%20%3A%3D%20aCollection'),
|
662
|
+
messageSends: [],
|
663
|
+
referencedClasses: []
|
790
664
|
}),
|
791
|
-
smalltalk.
|
665
|
+
smalltalk.SequenceNode);
|
792
666
|
|
793
667
|
smalltalk.addMethod(
|
794
|
-
unescape('
|
668
|
+
unescape('_asBlockSequenceNode'),
|
795
669
|
smalltalk.method({
|
796
|
-
selector: unescape('
|
797
|
-
category: '
|
798
|
-
fn: function (
|
670
|
+
selector: unescape('asBlockSequenceNode'),
|
671
|
+
category: 'testing',
|
672
|
+
fn: function (){
|
799
673
|
var self=this;
|
800
|
-
|
801
|
-
(first=(function($rec){smalltalk.send($rec, "_selector_", [smalltalk.send(self, "_selector", [])]);smalltalk.send($rec, "_arguments_", [smalltalk.send(self, "_arguments", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.SendNode || SendNode), "_new", [])));
|
802
|
-
return (function($rec){smalltalk.send($rec, "_receiver_", [smalltalk.send(self, "_receiver", [])]);smalltalk.send($rec, "_nodes_", [smalltalk.send(smalltalk.send((smalltalk.Array || Array), "_with_", [first]), "__comma", [aCollection])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.CascadeNode || CascadeNode), "_new", []));
|
674
|
+
return (function($rec){smalltalk.send($rec, "_nodes_", [smalltalk.send(self, "_nodes", [])]);smalltalk.send($rec, "_temps_", [smalltalk.send(self, "_temps", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.BlockSequenceNode || BlockSequenceNode), "_new", []));
|
803
675
|
return self;},
|
804
|
-
args: [
|
805
|
-
source: unescape('
|
806
|
-
messageSends: ["
|
807
|
-
referencedClasses: ["
|
676
|
+
args: [],
|
677
|
+
source: unescape('asBlockSequenceNode%0A%09%5EBlockSequenceNode%20new%0A%09%20%20%20%20nodes%3A%20self%20nodes%3B%0A%09%20%20%20%20temps%3A%20self%20temps%3B%0A%09%20%20%20%20yourself'),
|
678
|
+
messageSends: ["nodes:", "nodes", "temps:", "temps", "yourself", "new"],
|
679
|
+
referencedClasses: ["BlockSequenceNode"]
|
808
680
|
}),
|
809
|
-
smalltalk.
|
681
|
+
smalltalk.SequenceNode);
|
810
682
|
|
811
683
|
smalltalk.addMethod(
|
812
684
|
unescape('_accept_'),
|
@@ -815,50 +687,37 @@ selector: unescape('accept%3A'),
|
|
815
687
|
category: 'visiting',
|
816
688
|
fn: function (aVisitor){
|
817
689
|
var self=this;
|
818
|
-
smalltalk.send(aVisitor, "
|
690
|
+
smalltalk.send(aVisitor, "_visitSequenceNode_", [self]);
|
819
691
|
return self;},
|
820
692
|
args: ["aVisitor"],
|
821
|
-
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%
|
822
|
-
messageSends: ["
|
693
|
+
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitSequenceNode%3A%20self'),
|
694
|
+
messageSends: ["visitSequenceNode:"],
|
823
695
|
referencedClasses: []
|
824
696
|
}),
|
825
|
-
smalltalk.
|
697
|
+
smalltalk.SequenceNode);
|
826
698
|
|
827
699
|
|
828
700
|
|
829
|
-
smalltalk.addClass('
|
701
|
+
smalltalk.addClass('DynamicDictionaryNode', smalltalk.Node, [], 'Compiler');
|
830
702
|
smalltalk.addMethod(
|
831
|
-
unescape('
|
703
|
+
unescape('_accept_'),
|
832
704
|
smalltalk.method({
|
833
|
-
selector: unescape('
|
834
|
-
category: '
|
835
|
-
fn: function (){
|
705
|
+
selector: unescape('accept%3A'),
|
706
|
+
category: 'visiting',
|
707
|
+
fn: function (aVisitor){
|
836
708
|
var self=this;
|
837
|
-
|
709
|
+
smalltalk.send(aVisitor, "_visitDynamicDictionaryNode_", [self]);
|
838
710
|
return self;},
|
839
|
-
args: [],
|
840
|
-
source: unescape('
|
841
|
-
messageSends: [],
|
711
|
+
args: ["aVisitor"],
|
712
|
+
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitDynamicDictionaryNode%3A%20self'),
|
713
|
+
messageSends: ["visitDynamicDictionaryNode:"],
|
842
714
|
referencedClasses: []
|
843
715
|
}),
|
844
|
-
smalltalk.
|
716
|
+
smalltalk.DynamicDictionaryNode);
|
717
|
+
|
845
718
|
|
846
|
-
smalltalk.addMethod(
|
847
|
-
unescape('_receiver_'),
|
848
|
-
smalltalk.method({
|
849
|
-
selector: unescape('receiver%3A'),
|
850
|
-
category: 'accessing',
|
851
|
-
fn: function (aNode){
|
852
|
-
var self=this;
|
853
|
-
(self['@receiver']=aNode);
|
854
|
-
return self;},
|
855
|
-
args: ["aNode"],
|
856
|
-
source: unescape('receiver%3A%20aNode%0A%09receiver%20%3A%3D%20aNode'),
|
857
|
-
messageSends: [],
|
858
|
-
referencedClasses: []
|
859
|
-
}),
|
860
|
-
smalltalk.CascadeNode);
|
861
719
|
|
720
|
+
smalltalk.addClass('ReturnNode', smalltalk.Node, [], 'Compiler');
|
862
721
|
smalltalk.addMethod(
|
863
722
|
unescape('_accept_'),
|
864
723
|
smalltalk.method({
|
@@ -866,83 +725,85 @@ selector: unescape('accept%3A'),
|
|
866
725
|
category: 'visiting',
|
867
726
|
fn: function (aVisitor){
|
868
727
|
var self=this;
|
869
|
-
smalltalk.send(aVisitor, "
|
728
|
+
smalltalk.send(aVisitor, "_visitReturnNode_", [self]);
|
870
729
|
return self;},
|
871
730
|
args: ["aVisitor"],
|
872
|
-
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%
|
873
|
-
messageSends: ["
|
731
|
+
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitReturnNode%3A%20self'),
|
732
|
+
messageSends: ["visitReturnNode:"],
|
874
733
|
referencedClasses: []
|
875
734
|
}),
|
876
|
-
smalltalk.
|
735
|
+
smalltalk.ReturnNode);
|
877
736
|
|
878
737
|
|
879
738
|
|
880
|
-
smalltalk.addClass('
|
739
|
+
smalltalk.addClass('ValueNode', smalltalk.Node, ['value'], 'Compiler');
|
881
740
|
smalltalk.addMethod(
|
882
|
-
unescape('
|
741
|
+
unescape('_value'),
|
883
742
|
smalltalk.method({
|
884
|
-
selector: unescape('
|
743
|
+
selector: unescape('value'),
|
885
744
|
category: 'accessing',
|
886
745
|
fn: function (){
|
887
746
|
var self=this;
|
888
|
-
return self['@
|
747
|
+
return self['@value'];
|
889
748
|
return self;},
|
890
749
|
args: [],
|
891
|
-
source: unescape('
|
750
|
+
source: unescape('value%0A%09%5Evalue'),
|
892
751
|
messageSends: [],
|
893
752
|
referencedClasses: []
|
894
753
|
}),
|
895
|
-
smalltalk.
|
754
|
+
smalltalk.ValueNode);
|
896
755
|
|
897
756
|
smalltalk.addMethod(
|
898
|
-
unescape('
|
757
|
+
unescape('_value_'),
|
899
758
|
smalltalk.method({
|
900
|
-
selector: unescape('
|
759
|
+
selector: unescape('value%3A'),
|
901
760
|
category: 'accessing',
|
902
|
-
fn: function (
|
761
|
+
fn: function (anObject){
|
903
762
|
var self=this;
|
904
|
-
(self['@
|
905
|
-
smalltalk.send(self['@left'], "_assigned_", [true]);
|
763
|
+
(self['@value']=anObject);
|
906
764
|
return self;},
|
907
|
-
args: ["
|
908
|
-
source: unescape('
|
909
|
-
messageSends: [
|
765
|
+
args: ["anObject"],
|
766
|
+
source: unescape('value%3A%20anObject%0A%09value%20%3A%3D%20anObject'),
|
767
|
+
messageSends: [],
|
910
768
|
referencedClasses: []
|
911
769
|
}),
|
912
|
-
smalltalk.
|
770
|
+
smalltalk.ValueNode);
|
913
771
|
|
914
772
|
smalltalk.addMethod(
|
915
|
-
unescape('
|
773
|
+
unescape('_accept_'),
|
916
774
|
smalltalk.method({
|
917
|
-
selector: unescape('
|
918
|
-
category: '
|
919
|
-
fn: function (){
|
775
|
+
selector: unescape('accept%3A'),
|
776
|
+
category: 'visiting',
|
777
|
+
fn: function (aVisitor){
|
920
778
|
var self=this;
|
921
|
-
|
779
|
+
smalltalk.send(aVisitor, "_visitValueNode_", [self]);
|
922
780
|
return self;},
|
923
|
-
args: [],
|
924
|
-
source: unescape('
|
925
|
-
messageSends: [],
|
781
|
+
args: ["aVisitor"],
|
782
|
+
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitValueNode%3A%20self'),
|
783
|
+
messageSends: ["visitValueNode:"],
|
926
784
|
referencedClasses: []
|
927
785
|
}),
|
928
|
-
smalltalk.
|
786
|
+
smalltalk.ValueNode);
|
929
787
|
|
930
788
|
smalltalk.addMethod(
|
931
|
-
unescape('
|
789
|
+
unescape('_isValueNode'),
|
932
790
|
smalltalk.method({
|
933
|
-
selector: unescape('
|
934
|
-
category: '
|
935
|
-
fn: function (
|
791
|
+
selector: unescape('isValueNode'),
|
792
|
+
category: 'testing',
|
793
|
+
fn: function (){
|
936
794
|
var self=this;
|
937
|
-
|
795
|
+
return true;
|
938
796
|
return self;},
|
939
|
-
args: [
|
940
|
-
source: unescape('
|
797
|
+
args: [],
|
798
|
+
source: unescape('isValueNode%0A%09%5Etrue'),
|
941
799
|
messageSends: [],
|
942
800
|
referencedClasses: []
|
943
801
|
}),
|
944
|
-
smalltalk.
|
802
|
+
smalltalk.ValueNode);
|
803
|
+
|
804
|
+
|
945
805
|
|
806
|
+
smalltalk.addClass('VariableNode', smalltalk.ValueNode, ['assigned'], 'Compiler');
|
946
807
|
smalltalk.addMethod(
|
947
808
|
unescape('_accept_'),
|
948
809
|
smalltalk.method({
|
@@ -950,184 +811,205 @@ selector: unescape('accept%3A'),
|
|
950
811
|
category: 'visiting',
|
951
812
|
fn: function (aVisitor){
|
952
813
|
var self=this;
|
953
|
-
smalltalk.send(aVisitor, "
|
814
|
+
smalltalk.send(aVisitor, "_visitVariableNode_", [self]);
|
954
815
|
return self;},
|
955
816
|
args: ["aVisitor"],
|
956
|
-
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%
|
957
|
-
messageSends: ["
|
817
|
+
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitVariableNode%3A%20self'),
|
818
|
+
messageSends: ["visitVariableNode:"],
|
958
819
|
referencedClasses: []
|
959
820
|
}),
|
960
|
-
smalltalk.
|
961
|
-
|
962
|
-
|
821
|
+
smalltalk.VariableNode);
|
963
822
|
|
964
|
-
smalltalk.addClass('BlockNode', smalltalk.Node, ['parameters', 'inlined'], 'Compiler');
|
965
823
|
smalltalk.addMethod(
|
966
|
-
unescape('
|
824
|
+
unescape('_assigned'),
|
967
825
|
smalltalk.method({
|
968
|
-
selector: unescape('
|
826
|
+
selector: unescape('assigned'),
|
969
827
|
category: 'accessing',
|
970
828
|
fn: function (){
|
971
829
|
var self=this;
|
972
|
-
return (($receiver = self['@
|
830
|
+
return (($receiver = self['@assigned']) == nil || $receiver == undefined) ? (function(){return false;})() : $receiver;
|
973
831
|
return self;},
|
974
832
|
args: [],
|
975
|
-
source: unescape('
|
976
|
-
messageSends: ["ifNil:"
|
977
|
-
referencedClasses: [
|
833
|
+
source: unescape('assigned%0A%09%5Eassigned%20ifNil%3A%20%5Bfalse%5D'),
|
834
|
+
messageSends: ["ifNil:"],
|
835
|
+
referencedClasses: []
|
978
836
|
}),
|
979
|
-
smalltalk.
|
837
|
+
smalltalk.VariableNode);
|
980
838
|
|
981
839
|
smalltalk.addMethod(
|
982
|
-
unescape('
|
840
|
+
unescape('_assigned_'),
|
983
841
|
smalltalk.method({
|
984
|
-
selector: unescape('
|
842
|
+
selector: unescape('assigned%3A'),
|
985
843
|
category: 'accessing',
|
986
|
-
fn: function (
|
844
|
+
fn: function (aBoolean){
|
987
845
|
var self=this;
|
988
|
-
(self['@
|
846
|
+
(self['@assigned']=aBoolean);
|
989
847
|
return self;},
|
990
|
-
args: ["
|
991
|
-
source: unescape('
|
848
|
+
args: ["aBoolean"],
|
849
|
+
source: unescape('assigned%3A%20aBoolean%0A%09assigned%20%3A%3D%20aBoolean'),
|
992
850
|
messageSends: [],
|
993
851
|
referencedClasses: []
|
994
852
|
}),
|
995
|
-
smalltalk.
|
853
|
+
smalltalk.VariableNode);
|
996
854
|
|
855
|
+
|
856
|
+
|
857
|
+
smalltalk.addClass('ChunkExporter', smalltalk.Exporter, [], 'Compiler');
|
997
858
|
smalltalk.addMethod(
|
998
|
-
unescape('
|
859
|
+
unescape('_exportDefinitionOf_on_'),
|
999
860
|
smalltalk.method({
|
1000
|
-
selector: unescape('
|
1001
|
-
category: '
|
1002
|
-
fn: function (
|
861
|
+
selector: unescape('exportDefinitionOf%3Aon%3A'),
|
862
|
+
category: 'not yet classified',
|
863
|
+
fn: function (aClass, aStream){
|
1003
864
|
var self=this;
|
1004
|
-
smalltalk.send(
|
865
|
+
(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_superclass", [])])]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(unescape("%20subclass%3A%20%23"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])])]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [unescape("%09instanceVariableNames%3A%20%27")]);})(aStream);
|
866
|
+
smalltalk.send(smalltalk.send(aClass, "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [each]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [" "]);})]);
|
867
|
+
(function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%27")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%09category%3A%20%27"), "__comma", [smalltalk.send(aClass, "_category", [])]), "__comma", [unescape("%27%21")])]);return smalltalk.send($rec, "_lf", []);})(aStream);
|
868
|
+
((($receiver = smalltalk.send(smalltalk.send(aClass, "_comment", []), "_notEmpty", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%21"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])]), "__comma", [unescape("%20commentStamp%21")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(self, "_chunkEscape_", [smalltalk.send(aClass, "_comment", [])]), "__comma", [unescape("%21")])]);return smalltalk.send($rec, "_lf", []);})(aStream);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%21"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])]), "__comma", [unescape("%20commentStamp%21")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(self, "_chunkEscape_", [smalltalk.send(aClass, "_comment", [])]), "__comma", [unescape("%21")])]);return smalltalk.send($rec, "_lf", []);})(aStream);})]));
|
869
|
+
smalltalk.send(aStream, "_lf", []);
|
1005
870
|
return self;},
|
1006
|
-
args: ["
|
1007
|
-
source: unescape('
|
1008
|
-
messageSends: ["
|
871
|
+
args: ["aClass", "aStream"],
|
872
|
+
source: unescape('exportDefinitionOf%3A%20aClass%20on%3A%20aStream%0A%09%22Chunk%20format.%22%0A%0A%09aStream%20%0A%09%20%20%20%20nextPutAll%3A%20%28self%20classNameFor%3A%20aClass%20superclass%29%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%20subclass%3A%20%23%27%2C%20%28self%20classNameFor%3A%20aClass%29%3B%20lf%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%09instanceVariableNames%3A%20%27%27%27.%0A%09aClass%20instanceVariableNames%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20each%5D%0A%09%20%20%20%20separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%20%27%5D.%0A%09aStream%09%0A%09%20%20%20%20nextPutAll%3A%20%27%27%27%27%3B%20lf%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%09category%3A%20%27%27%27%2C%20aClass%20category%2C%20%27%27%27%21%27%3B%20lf.%0A%20%09aClass%20comment%20notEmpty%20ifTrue%3A%20%5B%0A%09%20%20%20%20aStream%20%0A%09%09nextPutAll%3A%20%27%21%27%2C%20%28self%20classNameFor%3A%20aClass%29%2C%20%27%20commentStamp%21%27%3Blf%3B%0A%09%09nextPutAll%3A%20%28self%20chunkEscape%3A%20aClass%20comment%29%2C%20%27%21%27%3Blf%5D.%0A%09aStream%20lf'),
|
873
|
+
messageSends: ["nextPutAll:", "classNameFor:", "superclass", unescape("%2C"), "lf", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "notEmpty", "comment", "chunkEscape:"],
|
1009
874
|
referencedClasses: []
|
1010
875
|
}),
|
1011
|
-
smalltalk.
|
876
|
+
smalltalk.ChunkExporter);
|
877
|
+
|
878
|
+
smalltalk.addMethod(
|
879
|
+
unescape('_exportMethod_of_on_'),
|
880
|
+
smalltalk.method({
|
881
|
+
selector: unescape('exportMethod%3Aof%3Aon%3A'),
|
882
|
+
category: 'not yet classified',
|
883
|
+
fn: function (aMethod, aClass, aStream){
|
884
|
+
var self=this;
|
885
|
+
(function($rec){smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_chunkEscape_", [smalltalk.send(aMethod, "_source", [])])]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [unescape("%21")]);})(aStream);
|
886
|
+
return self;},
|
887
|
+
args: ["aMethod", "aClass", "aStream"],
|
888
|
+
source: unescape('exportMethod%3A%20aMethod%20of%3A%20aClass%20on%3A%20aStream%0A%09aStream%20%0A%09%09lf%3B%20lf%3B%20nextPutAll%3A%20%28self%20chunkEscape%3A%20aMethod%20source%29%3B%20lf%3B%0A%09%09nextPutAll%3A%20%27%21%27'),
|
889
|
+
messageSends: ["lf", "nextPutAll:", "chunkEscape:", "source"],
|
890
|
+
referencedClasses: []
|
891
|
+
}),
|
892
|
+
smalltalk.ChunkExporter);
|
1012
893
|
|
1013
894
|
smalltalk.addMethod(
|
1014
|
-
unescape('
|
895
|
+
unescape('_exportMethodsOf_on_'),
|
1015
896
|
smalltalk.method({
|
1016
|
-
selector: unescape('
|
1017
|
-
category: '
|
1018
|
-
fn: function (){
|
897
|
+
selector: unescape('exportMethodsOf%3Aon%3A'),
|
898
|
+
category: 'not yet classified',
|
899
|
+
fn: function (aClass, aStream){
|
1019
900
|
var self=this;
|
1020
|
-
return
|
901
|
+
smalltalk.send(aClass, "_protocolsDo_", [(function(category, methods){return ((($receiver = smalltalk.send(category, "_match_", [unescape("%5E%5C*")])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self, "_exportMethods_category_of_on_", [methods, category, aClass, aStream]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self, "_exportMethods_category_of_on_", [methods, category, aClass, aStream]);})]));})]);
|
1021
902
|
return self;},
|
1022
|
-
args: [],
|
1023
|
-
source: unescape('
|
1024
|
-
messageSends: [],
|
903
|
+
args: ["aClass", "aStream"],
|
904
|
+
source: unescape('exportMethodsOf%3A%20aClass%20on%3A%20aStream%0A%0A%20%20%20aClass%20protocolsDo%3A%20%5B%3Acategory%20%3Amethods%20%7C%0A%09%28category%20match%3A%20%27%5E%5C*%27%29%20ifFalse%3A%20%5B%20%0A%09%09self%0A%09%09%09exportMethods%3A%20methods%0A%09%09%09category%3A%20category%0A%09%09%09of%3A%20aClass%0A%09%09%09on%3A%20aStream%5D%5D'),
|
905
|
+
messageSends: ["protocolsDo:", "ifFalse:", "match:", "exportMethods:category:of:on:"],
|
1025
906
|
referencedClasses: []
|
1026
907
|
}),
|
1027
|
-
smalltalk.
|
908
|
+
smalltalk.ChunkExporter);
|
1028
909
|
|
1029
910
|
smalltalk.addMethod(
|
1030
|
-
unescape('
|
911
|
+
unescape('_exportMetaDefinitionOf_on_'),
|
1031
912
|
smalltalk.method({
|
1032
|
-
selector: unescape('
|
1033
|
-
category: '
|
1034
|
-
fn: function (){
|
913
|
+
selector: unescape('exportMetaDefinitionOf%3Aon%3A'),
|
914
|
+
category: 'not yet classified',
|
915
|
+
fn: function (aClass, aStream){
|
1035
916
|
var self=this;
|
1036
|
-
|
917
|
+
((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_isEmpty", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_class", [])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%20instanceVariableNames%3A%20%27")]);})(aStream);smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [each]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [" "]);})]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%27%21")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_class", [])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%20instanceVariableNames%3A%20%27")]);})(aStream);smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [each]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [" "]);})]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%27%21")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);})]));
|
1037
918
|
return self;},
|
1038
|
-
args: [],
|
1039
|
-
source: unescape('
|
1040
|
-
messageSends: ["
|
919
|
+
args: ["aClass", "aStream"],
|
920
|
+
source: unescape('exportMetaDefinitionOf%3A%20aClass%20on%3A%20aStream%0A%0A%09aClass%20class%20instanceVariableNames%20isEmpty%20ifFalse%3A%20%5B%0A%09%09aStream%20%0A%09%09%20%20%20%20nextPutAll%3A%20%28self%20classNameFor%3A%20aClass%20class%29%3B%0A%09%09%20%20%20%20nextPutAll%3A%20%27%20instanceVariableNames%3A%20%27%27%27.%0A%09%09aClass%20class%20instanceVariableNames%20%0A%09%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20each%5D%0A%09%09%20%20%20%20separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%20%27%5D.%0A%09%09aStream%09%0A%09%09%20%20%20%20nextPutAll%3A%20%27%27%27%21%27%3B%20lf%3B%20lf%5D'),
|
921
|
+
messageSends: ["ifFalse:", "isEmpty", "instanceVariableNames", "class", "nextPutAll:", "classNameFor:", "do:separatedBy:", "lf"],
|
1041
922
|
referencedClasses: []
|
1042
923
|
}),
|
1043
|
-
smalltalk.
|
924
|
+
smalltalk.ChunkExporter);
|
1044
925
|
|
1045
926
|
smalltalk.addMethod(
|
1046
|
-
unescape('
|
927
|
+
unescape('_classNameFor_'),
|
1047
928
|
smalltalk.method({
|
1048
|
-
selector: unescape('
|
1049
|
-
category: '
|
1050
|
-
fn: function (
|
929
|
+
selector: unescape('classNameFor%3A'),
|
930
|
+
category: 'not yet classified',
|
931
|
+
fn: function (aClass){
|
1051
932
|
var self=this;
|
1052
|
-
(
|
933
|
+
return ((($receiver = smalltalk.send(aClass, "_isMetaclass", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [" class"]);})() : (function(){return ((($receiver = smalltalk.send(aClass, "_isNil", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "nil";})() : (function(){return smalltalk.send(aClass, "_name", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [" class"]);}), (function(){return ((($receiver = smalltalk.send(aClass, "_isNil", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "nil";})() : (function(){return smalltalk.send(aClass, "_name", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]));})]));
|
1053
934
|
return self;},
|
1054
|
-
args: ["
|
1055
|
-
source: unescape('
|
1056
|
-
messageSends: [],
|
935
|
+
args: ["aClass"],
|
936
|
+
source: unescape('classNameFor%3A%20aClass%0A%09%5EaClass%20isMetaclass%0A%09%20%20%20%20ifTrue%3A%20%5BaClass%20instanceClass%20name%2C%20%27%20class%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5B%0A%09%09aClass%20isNil%0A%09%09%20%20%20%20ifTrue%3A%20%5B%27nil%27%5D%0A%09%09%20%20%20%20ifFalse%3A%20%5BaClass%20name%5D%5D'),
|
937
|
+
messageSends: ["ifTrue:ifFalse:", "isMetaclass", unescape("%2C"), "name", "instanceClass", "isNil"],
|
1057
938
|
referencedClasses: []
|
1058
939
|
}),
|
1059
|
-
smalltalk.
|
1060
|
-
|
1061
|
-
|
940
|
+
smalltalk.ChunkExporter);
|
1062
941
|
|
1063
|
-
smalltalk.addClass('SequenceNode', smalltalk.Node, ['temps'], 'Compiler');
|
1064
942
|
smalltalk.addMethod(
|
1065
|
-
unescape('
|
943
|
+
unescape('_chunkEscape_'),
|
1066
944
|
smalltalk.method({
|
1067
|
-
selector: unescape('
|
1068
|
-
category: '
|
1069
|
-
fn: function (){
|
945
|
+
selector: unescape('chunkEscape%3A'),
|
946
|
+
category: 'not yet classified',
|
947
|
+
fn: function (aString){
|
1070
948
|
var self=this;
|
1071
|
-
return ((
|
949
|
+
return smalltalk.send(smalltalk.send(aString, "_replace_with_", [unescape("%21"), unescape("%21%21")]), "_trimBoth", []);
|
1072
950
|
return self;},
|
1073
|
-
args: [],
|
1074
|
-
source: unescape('
|
1075
|
-
messageSends: ["
|
951
|
+
args: ["aString"],
|
952
|
+
source: unescape('chunkEscape%3A%20aString%0A%09%22Replace%20all%20occurrences%20of%20%21%20with%20%21%21%20and%20trim%20at%20both%20ends.%22%0A%0A%09%5E%28aString%20replace%3A%20%27%21%27%20with%3A%20%27%21%21%27%29%20trimBoth'),
|
953
|
+
messageSends: ["trimBoth", "replace:with:"],
|
1076
954
|
referencedClasses: []
|
1077
955
|
}),
|
1078
|
-
smalltalk.
|
956
|
+
smalltalk.ChunkExporter);
|
1079
957
|
|
1080
958
|
smalltalk.addMethod(
|
1081
|
-
unescape('
|
959
|
+
unescape('_exportMethods_category_of_on_'),
|
1082
960
|
smalltalk.method({
|
1083
|
-
selector: unescape('
|
1084
|
-
category: '
|
1085
|
-
fn: function (
|
961
|
+
selector: unescape('exportMethods%3Acategory%3Aof%3Aon%3A'),
|
962
|
+
category: 'not yet classified',
|
963
|
+
fn: function (methods, category, aClass, aStream){
|
1086
964
|
var self=this;
|
1087
|
-
(self[
|
965
|
+
(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(unescape("%21"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])])]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%20methodsFor%3A%20%27"), "__comma", [category]), "__comma", [unescape("%27%21")])]);})(aStream);
|
966
|
+
smalltalk.send(methods, "_do_", [(function(each){return smalltalk.send(self, "_exportMethod_of_on_", [each, aClass, aStream]);})]);
|
967
|
+
(function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%20%21")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);
|
1088
968
|
return self;},
|
1089
|
-
args: ["
|
1090
|
-
source: unescape('
|
1091
|
-
messageSends: [],
|
969
|
+
args: ["methods", "category", "aClass", "aStream"],
|
970
|
+
source: unescape('exportMethods%3A%20methods%20category%3A%20category%20of%3A%20aClass%20on%3A%20aStream%0A%0A%09aStream%0A%09%09nextPutAll%3A%20%27%21%27%2C%20%28self%20classNameFor%3A%20aClass%29%3B%0A%09%09nextPutAll%3A%20%27%20methodsFor%3A%20%27%27%27%2C%20category%2C%20%27%27%27%21%27.%0A%20%20%20%20%09methods%20do%3A%20%5B%3Aeach%20%7C%0A%09%09self%20exportMethod%3A%20each%20of%3A%20aClass%20on%3A%20aStream%5D.%0A%09aStream%20nextPutAll%3A%20%27%20%21%27%3B%20lf%3B%20lf'),
|
971
|
+
messageSends: ["nextPutAll:", unescape("%2C"), "classNameFor:", "do:", "exportMethod:of:on:", "lf"],
|
1092
972
|
referencedClasses: []
|
1093
973
|
}),
|
1094
|
-
smalltalk.
|
974
|
+
smalltalk.ChunkExporter);
|
1095
975
|
|
1096
976
|
smalltalk.addMethod(
|
1097
|
-
unescape('
|
977
|
+
unescape('_exportPackageExtensionsOf_on_'),
|
1098
978
|
smalltalk.method({
|
1099
|
-
selector: unescape('
|
1100
|
-
category: '
|
1101
|
-
fn: function (){
|
979
|
+
selector: unescape('exportPackageExtensionsOf%3Aon%3A'),
|
980
|
+
category: 'not yet classified',
|
981
|
+
fn: function (package, aStream){
|
1102
982
|
var self=this;
|
1103
|
-
|
983
|
+
var name=nil;
|
984
|
+
(name=smalltalk.send(package, "_name", []));
|
985
|
+
smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_classes", []), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_classes", []), "_collect_", [(function(each){return smalltalk.send(each, "_class", []);})])]), "_do_", [(function(each){return smalltalk.send(each, "_protocolsDo_", [(function(category, methods){return ((($receiver = smalltalk.send(category, "__eq", [smalltalk.send(unescape("*"), "__comma", [name])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_exportMethods_category_of_on_", [methods, category, each, aStream]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self, "_exportMethods_category_of_on_", [methods, category, each, aStream]);})]));})]);})]);
|
1104
986
|
return self;},
|
1105
|
-
args: [],
|
1106
|
-
source: unescape('
|
1107
|
-
messageSends: ["
|
1108
|
-
referencedClasses: ["
|
987
|
+
args: ["package", "aStream"],
|
988
|
+
source: unescape('exportPackageExtensionsOf%3A%20package%20on%3A%20aStream%0A%09%22We%20need%20to%20override%20this%20one%20too%20since%20we%20need%20to%20group%0A%09all%20methods%20in%20a%20given%20protocol%20under%20a%20leading%20methodsFor%3A%20chunk%0A%09for%20that%20class.%22%0A%0A%09%7C%20name%20%7C%0A%09name%20%3A%3D%20package%20name.%0A%09Smalltalk%20current%20classes%2C%20%28Smalltalk%20current%20classes%20collect%3A%20%5B%3Aeach%20%7C%20each%20class%5D%29%20do%3A%20%5B%3Aeach%20%7C%0A%09%09each%20protocolsDo%3A%20%5B%3Acategory%20%3Amethods%20%7C%0A%09%09%09category%20%3D%20%28%27*%27%2C%20name%29%20ifTrue%3A%20%5B%0A%09%09%09%09self%20exportMethods%3A%20methods%20category%3A%20category%20of%3A%20each%20on%3A%20aStream%5D%5D%5D'),
|
989
|
+
messageSends: ["name", "do:", unescape("%2C"), "classes", "current", "collect:", "class", "protocolsDo:", "ifTrue:", unescape("%3D"), "exportMethods:category:of:on:"],
|
990
|
+
referencedClasses: ["Smalltalk"]
|
1109
991
|
}),
|
1110
|
-
smalltalk.
|
992
|
+
smalltalk.ChunkExporter);
|
1111
993
|
|
1112
994
|
smalltalk.addMethod(
|
1113
|
-
unescape('
|
995
|
+
unescape('_exportPackageDefinitionOf_on_'),
|
1114
996
|
smalltalk.method({
|
1115
|
-
selector: unescape('
|
1116
|
-
category: '
|
1117
|
-
fn: function (
|
997
|
+
selector: unescape('exportPackageDefinitionOf%3Aon%3A'),
|
998
|
+
category: 'not yet classified',
|
999
|
+
fn: function (package, aStream){
|
1118
1000
|
var self=this;
|
1119
|
-
smalltalk.send(
|
1001
|
+
(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("Smalltalk%20current%20createPackage%3A%20%27"), "__comma", [smalltalk.send(package, "_name", [])]), "__comma", [unescape("%27%20properties%3A%20")]), "__comma", [smalltalk.send(smalltalk.send(package, "_properties", []), "_storeString", [])]), "__comma", [unescape("%21")])]);return smalltalk.send($rec, "_lf", []);})(aStream);
|
1120
1002
|
return self;},
|
1121
|
-
args: ["
|
1122
|
-
source: unescape('
|
1123
|
-
messageSends: ["
|
1003
|
+
args: ["package", "aStream"],
|
1004
|
+
source: unescape('exportPackageDefinitionOf%3A%20package%20on%3A%20aStream%0A%09%22Chunk%20format.%22%0A%0A%09aStream%20%0A%09%20%20%20%20nextPutAll%3A%20%27Smalltalk%20current%20createPackage%3A%20%27%27%27%2C%20package%20name%2C%0A%09%09%27%27%27%20properties%3A%20%27%2C%20package%20properties%20storeString%2C%20%27%21%27%3B%20lf.'),
|
1005
|
+
messageSends: ["nextPutAll:", unescape("%2C"), "name", "storeString", "properties", "lf"],
|
1124
1006
|
referencedClasses: []
|
1125
1007
|
}),
|
1126
|
-
smalltalk.
|
1008
|
+
smalltalk.ChunkExporter);
|
1127
1009
|
|
1128
1010
|
|
1129
1011
|
|
1130
|
-
smalltalk.addClass('
|
1012
|
+
smalltalk.addClass('ClassReferenceNode', smalltalk.VariableNode, [], 'Compiler');
|
1131
1013
|
smalltalk.addMethod(
|
1132
1014
|
unescape('_accept_'),
|
1133
1015
|
smalltalk.method({
|
@@ -1135,171 +1017,148 @@ selector: unescape('accept%3A'),
|
|
1135
1017
|
category: 'visiting',
|
1136
1018
|
fn: function (aVisitor){
|
1137
1019
|
var self=this;
|
1138
|
-
smalltalk.send(aVisitor, "
|
1020
|
+
smalltalk.send(aVisitor, "_visitClassReferenceNode_", [self]);
|
1139
1021
|
return self;},
|
1140
1022
|
args: ["aVisitor"],
|
1141
|
-
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%
|
1142
|
-
messageSends: ["
|
1023
|
+
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitClassReferenceNode%3A%20self'),
|
1024
|
+
messageSends: ["visitClassReferenceNode:"],
|
1143
1025
|
referencedClasses: []
|
1144
1026
|
}),
|
1145
|
-
smalltalk.
|
1027
|
+
smalltalk.ClassReferenceNode);
|
1028
|
+
|
1029
|
+
|
1146
1030
|
|
1031
|
+
smalltalk.addClass('SendNode', smalltalk.Node, ['selector', 'arguments', 'receiver'], 'Compiler');
|
1147
1032
|
smalltalk.addMethod(
|
1148
|
-
unescape('
|
1033
|
+
unescape('_selector'),
|
1149
1034
|
smalltalk.method({
|
1150
|
-
selector: unescape('
|
1151
|
-
category: '
|
1035
|
+
selector: unescape('selector'),
|
1036
|
+
category: 'accessing',
|
1152
1037
|
fn: function (){
|
1153
1038
|
var self=this;
|
1154
|
-
return
|
1039
|
+
return self['@selector'];
|
1155
1040
|
return self;},
|
1156
1041
|
args: [],
|
1157
|
-
source: unescape('
|
1042
|
+
source: unescape('selector%0A%09%5Eselector'),
|
1158
1043
|
messageSends: [],
|
1159
1044
|
referencedClasses: []
|
1160
1045
|
}),
|
1161
|
-
smalltalk.
|
1162
|
-
|
1163
|
-
|
1046
|
+
smalltalk.SendNode);
|
1164
1047
|
|
1165
|
-
smalltalk.addClass('ReturnNode', smalltalk.Node, [], 'Compiler');
|
1166
1048
|
smalltalk.addMethod(
|
1167
|
-
unescape('
|
1049
|
+
unescape('_selector_'),
|
1168
1050
|
smalltalk.method({
|
1169
|
-
selector: unescape('
|
1170
|
-
category: '
|
1171
|
-
fn: function (
|
1051
|
+
selector: unescape('selector%3A'),
|
1052
|
+
category: 'accessing',
|
1053
|
+
fn: function (aString){
|
1172
1054
|
var self=this;
|
1173
|
-
|
1055
|
+
(self['@selector']=aString);
|
1174
1056
|
return self;},
|
1175
|
-
args: ["
|
1176
|
-
source: unescape('
|
1177
|
-
messageSends: [
|
1057
|
+
args: ["aString"],
|
1058
|
+
source: unescape('selector%3A%20aString%0A%09selector%20%3A%3D%20aString'),
|
1059
|
+
messageSends: [],
|
1178
1060
|
referencedClasses: []
|
1179
1061
|
}),
|
1180
|
-
smalltalk.
|
1181
|
-
|
1182
|
-
|
1062
|
+
smalltalk.SendNode);
|
1183
1063
|
|
1184
|
-
smalltalk.addClass('ValueNode', smalltalk.Node, ['value'], 'Compiler');
|
1185
1064
|
smalltalk.addMethod(
|
1186
|
-
unescape('
|
1065
|
+
unescape('_arguments'),
|
1187
1066
|
smalltalk.method({
|
1188
|
-
selector: unescape('
|
1067
|
+
selector: unescape('arguments'),
|
1189
1068
|
category: 'accessing',
|
1190
1069
|
fn: function (){
|
1191
1070
|
var self=this;
|
1192
|
-
return self['@
|
1071
|
+
return (($receiver = self['@arguments']) == nil || $receiver == undefined) ? (function(){return (self['@arguments']=[]);})() : $receiver;
|
1193
1072
|
return self;},
|
1194
1073
|
args: [],
|
1195
|
-
source: unescape('
|
1196
|
-
messageSends: [],
|
1074
|
+
source: unescape('arguments%0A%09%5Earguments%20ifNil%3A%20%5Barguments%20%3A%3D%20%23%28%29%5D'),
|
1075
|
+
messageSends: ["ifNil:"],
|
1197
1076
|
referencedClasses: []
|
1198
1077
|
}),
|
1199
|
-
smalltalk.
|
1078
|
+
smalltalk.SendNode);
|
1200
1079
|
|
1201
1080
|
smalltalk.addMethod(
|
1202
|
-
unescape('
|
1081
|
+
unescape('_arguments_'),
|
1203
1082
|
smalltalk.method({
|
1204
|
-
selector: unescape('
|
1083
|
+
selector: unescape('arguments%3A'),
|
1205
1084
|
category: 'accessing',
|
1206
|
-
fn: function (
|
1085
|
+
fn: function (aCollection){
|
1207
1086
|
var self=this;
|
1208
|
-
(self['@
|
1087
|
+
(self['@arguments']=aCollection);
|
1209
1088
|
return self;},
|
1210
|
-
args: ["
|
1211
|
-
source: unescape('
|
1089
|
+
args: ["aCollection"],
|
1090
|
+
source: unescape('arguments%3A%20aCollection%0A%09arguments%20%3A%3D%20aCollection'),
|
1212
1091
|
messageSends: [],
|
1213
1092
|
referencedClasses: []
|
1214
1093
|
}),
|
1215
|
-
smalltalk.
|
1216
|
-
|
1217
|
-
smalltalk.addMethod(
|
1218
|
-
unescape('_accept_'),
|
1219
|
-
smalltalk.method({
|
1220
|
-
selector: unescape('accept%3A'),
|
1221
|
-
category: 'visiting',
|
1222
|
-
fn: function (aVisitor){
|
1223
|
-
var self=this;
|
1224
|
-
smalltalk.send(aVisitor, "_visitValueNode_", [self]);
|
1225
|
-
return self;},
|
1226
|
-
args: ["aVisitor"],
|
1227
|
-
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitValueNode%3A%20self'),
|
1228
|
-
messageSends: ["visitValueNode:"],
|
1229
|
-
referencedClasses: []
|
1230
|
-
}),
|
1231
|
-
smalltalk.ValueNode);
|
1094
|
+
smalltalk.SendNode);
|
1232
1095
|
|
1233
1096
|
smalltalk.addMethod(
|
1234
|
-
unescape('
|
1097
|
+
unescape('_receiver'),
|
1235
1098
|
smalltalk.method({
|
1236
|
-
selector: unescape('
|
1237
|
-
category: '
|
1099
|
+
selector: unescape('receiver'),
|
1100
|
+
category: 'accessing',
|
1238
1101
|
fn: function (){
|
1239
1102
|
var self=this;
|
1240
|
-
return
|
1103
|
+
return self['@receiver'];
|
1241
1104
|
return self;},
|
1242
1105
|
args: [],
|
1243
|
-
source: unescape('
|
1106
|
+
source: unescape('receiver%0A%09%5Ereceiver'),
|
1244
1107
|
messageSends: [],
|
1245
1108
|
referencedClasses: []
|
1246
1109
|
}),
|
1247
|
-
smalltalk.
|
1248
|
-
|
1249
|
-
|
1110
|
+
smalltalk.SendNode);
|
1250
1111
|
|
1251
|
-
smalltalk.addClass('VariableNode', smalltalk.ValueNode, ['assigned'], 'Compiler');
|
1252
1112
|
smalltalk.addMethod(
|
1253
|
-
unescape('
|
1113
|
+
unescape('_receiver_'),
|
1254
1114
|
smalltalk.method({
|
1255
|
-
selector: unescape('
|
1256
|
-
category: '
|
1257
|
-
fn: function (
|
1115
|
+
selector: unescape('receiver%3A'),
|
1116
|
+
category: 'accessing',
|
1117
|
+
fn: function (aNode){
|
1258
1118
|
var self=this;
|
1259
|
-
|
1119
|
+
(self['@receiver']=aNode);
|
1260
1120
|
return self;},
|
1261
|
-
args: ["
|
1262
|
-
source: unescape('
|
1263
|
-
messageSends: [
|
1121
|
+
args: ["aNode"],
|
1122
|
+
source: unescape('receiver%3A%20aNode%0A%09receiver%20%3A%3D%20aNode'),
|
1123
|
+
messageSends: [],
|
1264
1124
|
referencedClasses: []
|
1265
1125
|
}),
|
1266
|
-
smalltalk.
|
1126
|
+
smalltalk.SendNode);
|
1267
1127
|
|
1268
1128
|
smalltalk.addMethod(
|
1269
|
-
unescape('
|
1129
|
+
unescape('_valueForReceiver_'),
|
1270
1130
|
smalltalk.method({
|
1271
|
-
selector: unescape('
|
1131
|
+
selector: unescape('valueForReceiver%3A'),
|
1272
1132
|
category: 'accessing',
|
1273
|
-
fn: function (){
|
1133
|
+
fn: function (anObject){
|
1274
1134
|
var self=this;
|
1275
|
-
return (($receiver = self[
|
1135
|
+
return (function($rec){smalltalk.send($rec, "_receiver_", [(($receiver = smalltalk.send(self, "_receiver", [])) == nil || $receiver == undefined) ? (function(){return anObject;})() : (function(){return smalltalk.send(smalltalk.send(self, "_receiver", []), "_valueForReceiver_", [anObject]);})()]);smalltalk.send($rec, "_selector_", [smalltalk.send(self, "_selector", [])]);smalltalk.send($rec, "_arguments_", [smalltalk.send(self, "_arguments", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.SendNode || SendNode), "_new", []));
|
1276
1136
|
return self;},
|
1277
|
-
args: [],
|
1278
|
-
source: unescape('
|
1279
|
-
messageSends: ["ifNil:"],
|
1280
|
-
referencedClasses: []
|
1137
|
+
args: ["anObject"],
|
1138
|
+
source: unescape('valueForReceiver%3A%20anObject%0A%09%5ESendNode%20new%0A%09%20%20%20%20receiver%3A%20%28self%20receiver%20%0A%09%09ifNil%3A%20%5BanObject%5D%0A%09%09ifNotNil%3A%20%5Bself%20receiver%20valueForReceiver%3A%20anObject%5D%29%3B%0A%09%20%20%20%20selector%3A%20self%20selector%3B%0A%09%20%20%20%20arguments%3A%20self%20arguments%3B%0A%09%20%20%20%20yourself'),
|
1139
|
+
messageSends: ["receiver:", "ifNil:ifNotNil:", "receiver", "valueForReceiver:", "selector:", "selector", "arguments:", "arguments", "yourself", "new"],
|
1140
|
+
referencedClasses: ["SendNode"]
|
1281
1141
|
}),
|
1282
|
-
smalltalk.
|
1142
|
+
smalltalk.SendNode);
|
1283
1143
|
|
1284
1144
|
smalltalk.addMethod(
|
1285
|
-
unescape('
|
1145
|
+
unescape('_cascadeNodeWithMessages_'),
|
1286
1146
|
smalltalk.method({
|
1287
|
-
selector: unescape('
|
1147
|
+
selector: unescape('cascadeNodeWithMessages%3A'),
|
1288
1148
|
category: 'accessing',
|
1289
|
-
fn: function (
|
1149
|
+
fn: function (aCollection){
|
1290
1150
|
var self=this;
|
1291
|
-
|
1151
|
+
var first=nil;
|
1152
|
+
(first=(function($rec){smalltalk.send($rec, "_selector_", [smalltalk.send(self, "_selector", [])]);smalltalk.send($rec, "_arguments_", [smalltalk.send(self, "_arguments", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.SendNode || SendNode), "_new", [])));
|
1153
|
+
return (function($rec){smalltalk.send($rec, "_receiver_", [smalltalk.send(self, "_receiver", [])]);smalltalk.send($rec, "_nodes_", [smalltalk.send(smalltalk.send((smalltalk.Array || Array), "_with_", [first]), "__comma", [aCollection])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.CascadeNode || CascadeNode), "_new", []));
|
1292
1154
|
return self;},
|
1293
|
-
args: ["
|
1294
|
-
source: unescape('
|
1295
|
-
messageSends: [],
|
1296
|
-
referencedClasses: []
|
1155
|
+
args: ["aCollection"],
|
1156
|
+
source: unescape('cascadeNodeWithMessages%3A%20aCollection%0A%09%7C%20first%20%7C%0A%09first%20%3A%3D%20SendNode%20new%0A%09%20%20%20%20selector%3A%20self%20selector%3B%0A%09%20%20%20%20arguments%3A%20self%20arguments%3B%0A%09%20%20%20%20yourself.%0A%09%5ECascadeNode%20new%0A%09%20%20%20%20receiver%3A%20self%20receiver%3B%0A%09%20%20%20%20nodes%3A%20%28Array%20with%3A%20first%29%2C%20aCollection%3B%0A%09%20%20%20%20yourself'),
|
1157
|
+
messageSends: ["selector:", "selector", "arguments:", "arguments", "yourself", "new", "receiver:", "receiver", "nodes:", unescape("%2C"), "with:"],
|
1158
|
+
referencedClasses: ["SendNode", "Array", "CascadeNode"]
|
1297
1159
|
}),
|
1298
|
-
smalltalk.
|
1299
|
-
|
1300
|
-
|
1160
|
+
smalltalk.SendNode);
|
1301
1161
|
|
1302
|
-
smalltalk.addClass('ClassReferenceNode', smalltalk.VariableNode, [], 'Compiler');
|
1303
1162
|
smalltalk.addMethod(
|
1304
1163
|
unescape('_accept_'),
|
1305
1164
|
smalltalk.method({
|
@@ -1307,14 +1166,14 @@ selector: unescape('accept%3A'),
|
|
1307
1166
|
category: 'visiting',
|
1308
1167
|
fn: function (aVisitor){
|
1309
1168
|
var self=this;
|
1310
|
-
smalltalk.send(aVisitor, "
|
1169
|
+
smalltalk.send(aVisitor, "_visitSendNode_", [self]);
|
1311
1170
|
return self;},
|
1312
1171
|
args: ["aVisitor"],
|
1313
|
-
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%
|
1314
|
-
messageSends: ["
|
1172
|
+
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitSendNode%3A%20self'),
|
1173
|
+
messageSends: ["visitSendNode:"],
|
1315
1174
|
referencedClasses: []
|
1316
1175
|
}),
|
1317
|
-
smalltalk.
|
1176
|
+
smalltalk.SendNode);
|
1318
1177
|
|
1319
1178
|
|
1320
1179
|
|
@@ -1369,830 +1228,987 @@ smalltalk.JSStatementNode);
|
|
1369
1228
|
|
1370
1229
|
|
1371
1230
|
|
1372
|
-
smalltalk.addClass('
|
1231
|
+
smalltalk.addClass('AssignmentNode', smalltalk.Node, ['left', 'right'], 'Compiler');
|
1373
1232
|
smalltalk.addMethod(
|
1374
|
-
unescape('
|
1233
|
+
unescape('_left'),
|
1375
1234
|
smalltalk.method({
|
1376
|
-
selector: unescape('
|
1377
|
-
category: '
|
1378
|
-
fn: function (
|
1235
|
+
selector: unescape('left'),
|
1236
|
+
category: 'accessing',
|
1237
|
+
fn: function (){
|
1379
1238
|
var self=this;
|
1380
|
-
|
1239
|
+
return self['@left'];
|
1381
1240
|
return self;},
|
1382
|
-
args: [
|
1383
|
-
source: unescape('
|
1384
|
-
messageSends: [
|
1241
|
+
args: [],
|
1242
|
+
source: unescape('left%0A%09%5Eleft'),
|
1243
|
+
messageSends: [],
|
1385
1244
|
referencedClasses: []
|
1386
1245
|
}),
|
1387
|
-
smalltalk.
|
1246
|
+
smalltalk.AssignmentNode);
|
1388
1247
|
|
1389
1248
|
smalltalk.addMethod(
|
1390
|
-
unescape('
|
1249
|
+
unescape('_left_'),
|
1391
1250
|
smalltalk.method({
|
1392
|
-
selector: unescape('
|
1393
|
-
category: '
|
1251
|
+
selector: unescape('left%3A'),
|
1252
|
+
category: 'accessing',
|
1394
1253
|
fn: function (aNode){
|
1395
1254
|
var self=this;
|
1396
|
-
|
1255
|
+
(self['@left']=aNode);
|
1256
|
+
smalltalk.send(self['@left'], "_assigned_", [true]);
|
1397
1257
|
return self;},
|
1398
1258
|
args: ["aNode"],
|
1399
|
-
source: unescape('
|
1259
|
+
source: unescape('left%3A%20aNode%0A%09left%20%3A%3D%20aNode.%0A%09left%20assigned%3A%20true'),
|
1260
|
+
messageSends: ["assigned:"],
|
1261
|
+
referencedClasses: []
|
1262
|
+
}),
|
1263
|
+
smalltalk.AssignmentNode);
|
1264
|
+
|
1265
|
+
smalltalk.addMethod(
|
1266
|
+
unescape('_right'),
|
1267
|
+
smalltalk.method({
|
1268
|
+
selector: unescape('right'),
|
1269
|
+
category: 'accessing',
|
1270
|
+
fn: function (){
|
1271
|
+
var self=this;
|
1272
|
+
return self['@right'];
|
1273
|
+
return self;},
|
1274
|
+
args: [],
|
1275
|
+
source: unescape('right%0A%09%5Eright'),
|
1400
1276
|
messageSends: [],
|
1401
1277
|
referencedClasses: []
|
1402
1278
|
}),
|
1403
|
-
smalltalk.
|
1279
|
+
smalltalk.AssignmentNode);
|
1404
1280
|
|
1405
1281
|
smalltalk.addMethod(
|
1406
|
-
unescape('
|
1282
|
+
unescape('_right_'),
|
1407
1283
|
smalltalk.method({
|
1408
|
-
selector: unescape('
|
1409
|
-
category: '
|
1284
|
+
selector: unescape('right%3A'),
|
1285
|
+
category: 'accessing',
|
1410
1286
|
fn: function (aNode){
|
1411
1287
|
var self=this;
|
1412
|
-
|
1288
|
+
(self['@right']=aNode);
|
1413
1289
|
return self;},
|
1414
1290
|
args: ["aNode"],
|
1415
|
-
source: unescape('
|
1416
|
-
messageSends: [
|
1291
|
+
source: unescape('right%3A%20aNode%0A%09right%20%3A%3D%20aNode'),
|
1292
|
+
messageSends: [],
|
1417
1293
|
referencedClasses: []
|
1418
1294
|
}),
|
1419
|
-
smalltalk.
|
1295
|
+
smalltalk.AssignmentNode);
|
1420
1296
|
|
1421
1297
|
smalltalk.addMethod(
|
1422
|
-
unescape('
|
1298
|
+
unescape('_accept_'),
|
1423
1299
|
smalltalk.method({
|
1424
|
-
selector: unescape('
|
1300
|
+
selector: unescape('accept%3A'),
|
1425
1301
|
category: 'visiting',
|
1426
|
-
fn: function (
|
1302
|
+
fn: function (aVisitor){
|
1427
1303
|
var self=this;
|
1428
|
-
smalltalk.send(
|
1304
|
+
smalltalk.send(aVisitor, "_visitAssignmentNode_", [self]);
|
1429
1305
|
return self;},
|
1430
|
-
args: ["
|
1431
|
-
source: unescape('
|
1432
|
-
messageSends: ["
|
1306
|
+
args: ["aVisitor"],
|
1307
|
+
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitAssignmentNode%3A%20self'),
|
1308
|
+
messageSends: ["visitAssignmentNode:"],
|
1433
1309
|
referencedClasses: []
|
1434
1310
|
}),
|
1435
|
-
smalltalk.
|
1311
|
+
smalltalk.AssignmentNode);
|
1436
1312
|
|
1313
|
+
|
1314
|
+
|
1315
|
+
smalltalk.addClass('DynamicArrayNode', smalltalk.Node, [], 'Compiler');
|
1437
1316
|
smalltalk.addMethod(
|
1438
|
-
unescape('
|
1317
|
+
unescape('_accept_'),
|
1439
1318
|
smalltalk.method({
|
1440
|
-
selector: unescape('
|
1319
|
+
selector: unescape('accept%3A'),
|
1441
1320
|
category: 'visiting',
|
1442
|
-
fn: function (
|
1321
|
+
fn: function (aVisitor){
|
1443
1322
|
var self=this;
|
1444
|
-
smalltalk.send(
|
1323
|
+
smalltalk.send(aVisitor, "_visitDynamicArrayNode_", [self]);
|
1445
1324
|
return self;},
|
1446
|
-
args: ["
|
1447
|
-
source: unescape('
|
1448
|
-
messageSends: ["
|
1325
|
+
args: ["aVisitor"],
|
1326
|
+
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitDynamicArrayNode%3A%20self'),
|
1327
|
+
messageSends: ["visitDynamicArrayNode:"],
|
1328
|
+
referencedClasses: []
|
1329
|
+
}),
|
1330
|
+
smalltalk.DynamicArrayNode);
|
1331
|
+
|
1332
|
+
|
1333
|
+
|
1334
|
+
smalltalk.addClass('Compiler', smalltalk.NodeVisitor, ['stream', 'nestedBlocks', 'earlyReturn', 'currentClass', 'currentSelector', 'unknownVariables', 'tempVariables', 'messageSends', 'referencedClasses', 'classReferenced', 'source', 'argVariables'], 'Compiler');
|
1335
|
+
smalltalk.addMethod(
|
1336
|
+
unescape('_initialize'),
|
1337
|
+
smalltalk.method({
|
1338
|
+
selector: unescape('initialize'),
|
1339
|
+
category: 'initialization',
|
1340
|
+
fn: function (){
|
1341
|
+
var self=this;
|
1342
|
+
smalltalk.send(self, "_initialize", [], smalltalk.NodeVisitor);
|
1343
|
+
(self['@stream']=smalltalk.send("", "_writeStream", []));
|
1344
|
+
(self['@unknownVariables']=[]);
|
1345
|
+
(self['@tempVariables']=[]);
|
1346
|
+
(self['@argVariables']=[]);
|
1347
|
+
(self['@messageSends']=[]);
|
1348
|
+
(self['@classReferenced']=[]);
|
1349
|
+
return self;},
|
1350
|
+
args: [],
|
1351
|
+
source: unescape('initialize%0A%09super%20initialize.%0A%09stream%20%3A%3D%20%27%27%20writeStream.%20%0A%09unknownVariables%20%3A%3D%20%23%28%29.%0A%09tempVariables%20%3A%3D%20%23%28%29.%0A%09argVariables%20%3A%3D%20%23%28%29.%0A%09messageSends%20%3A%3D%20%23%28%29.%0A%09classReferenced%20%3A%3D%20%23%28%29'),
|
1352
|
+
messageSends: ["initialize", "writeStream"],
|
1353
|
+
referencedClasses: []
|
1354
|
+
}),
|
1355
|
+
smalltalk.Compiler);
|
1356
|
+
|
1357
|
+
smalltalk.addMethod(
|
1358
|
+
unescape('_parser'),
|
1359
|
+
smalltalk.method({
|
1360
|
+
selector: unescape('parser'),
|
1361
|
+
category: 'accessing',
|
1362
|
+
fn: function (){
|
1363
|
+
var self=this;
|
1364
|
+
return smalltalk.send((smalltalk.SmalltalkParser || SmalltalkParser), "_new", []);
|
1365
|
+
return self;},
|
1366
|
+
args: [],
|
1367
|
+
source: unescape('parser%0A%09%5ESmalltalkParser%20new'),
|
1368
|
+
messageSends: ["new"],
|
1369
|
+
referencedClasses: ["SmalltalkParser"]
|
1370
|
+
}),
|
1371
|
+
smalltalk.Compiler);
|
1372
|
+
|
1373
|
+
smalltalk.addMethod(
|
1374
|
+
unescape('_currentClass'),
|
1375
|
+
smalltalk.method({
|
1376
|
+
selector: unescape('currentClass'),
|
1377
|
+
category: 'accessing',
|
1378
|
+
fn: function (){
|
1379
|
+
var self=this;
|
1380
|
+
return self['@currentClass'];
|
1381
|
+
return self;},
|
1382
|
+
args: [],
|
1383
|
+
source: unescape('currentClass%0A%09%5EcurrentClass'),
|
1384
|
+
messageSends: [],
|
1385
|
+
referencedClasses: []
|
1386
|
+
}),
|
1387
|
+
smalltalk.Compiler);
|
1388
|
+
|
1389
|
+
smalltalk.addMethod(
|
1390
|
+
unescape('_currentClass_'),
|
1391
|
+
smalltalk.method({
|
1392
|
+
selector: unescape('currentClass%3A'),
|
1393
|
+
category: 'accessing',
|
1394
|
+
fn: function (aClass){
|
1395
|
+
var self=this;
|
1396
|
+
(self['@currentClass']=aClass);
|
1397
|
+
return self;},
|
1398
|
+
args: ["aClass"],
|
1399
|
+
source: unescape('currentClass%3A%20aClass%0A%09currentClass%20%3A%3D%20aClass'),
|
1400
|
+
messageSends: [],
|
1401
|
+
referencedClasses: []
|
1402
|
+
}),
|
1403
|
+
smalltalk.Compiler);
|
1404
|
+
|
1405
|
+
smalltalk.addMethod(
|
1406
|
+
unescape('_loadExpression_'),
|
1407
|
+
smalltalk.method({
|
1408
|
+
selector: unescape('loadExpression%3A'),
|
1409
|
+
category: 'compiling',
|
1410
|
+
fn: function (aString){
|
1411
|
+
var self=this;
|
1412
|
+
var result=nil;
|
1413
|
+
smalltalk.send((smalltalk.DoIt || DoIt), "_addCompiledMethod_", [smalltalk.send(self, "_eval_", [smalltalk.send(self, "_compileExpression_", [aString])])]);
|
1414
|
+
(result=smalltalk.send(smalltalk.send((smalltalk.DoIt || DoIt), "_new", []), "_doIt", []));
|
1415
|
+
smalltalk.send((smalltalk.DoIt || DoIt), "_removeCompiledMethod_", [smalltalk.send(smalltalk.send((smalltalk.DoIt || DoIt), "_methodDictionary", []), "_at_", ["doIt"])]);
|
1416
|
+
return result;
|
1417
|
+
return self;},
|
1418
|
+
args: ["aString"],
|
1419
|
+
source: unescape('loadExpression%3A%20aString%0A%09%7C%20result%20%7C%0A%09DoIt%20addCompiledMethod%3A%20%28self%20eval%3A%20%28self%20compileExpression%3A%20aString%29%29.%0A%09result%20%3A%3D%20DoIt%20new%20doIt.%0A%09DoIt%20removeCompiledMethod%3A%20%28DoIt%20methodDictionary%20at%3A%20%27doIt%27%29.%0A%09%5Eresult'),
|
1420
|
+
messageSends: ["addCompiledMethod:", "eval:", "compileExpression:", "doIt", "new", "removeCompiledMethod:", "at:", "methodDictionary"],
|
1421
|
+
referencedClasses: ["DoIt"]
|
1422
|
+
}),
|
1423
|
+
smalltalk.Compiler);
|
1424
|
+
|
1425
|
+
smalltalk.addMethod(
|
1426
|
+
unescape('_load_forClass_'),
|
1427
|
+
smalltalk.method({
|
1428
|
+
selector: unescape('load%3AforClass%3A'),
|
1429
|
+
category: 'compiling',
|
1430
|
+
fn: function (aString, aClass){
|
1431
|
+
var self=this;
|
1432
|
+
var compiled=nil;
|
1433
|
+
(compiled=smalltalk.send(self, "_eval_", [smalltalk.send(self, "_compile_forClass_", [aString, aClass])]));
|
1434
|
+
smalltalk.send(self, "_setupClass_", [aClass]);
|
1435
|
+
return compiled;
|
1436
|
+
return self;},
|
1437
|
+
args: ["aString", "aClass"],
|
1438
|
+
source: unescape('load%3A%20aString%20forClass%3A%20aClass%0A%09%7C%20compiled%20%7C%0A%09compiled%20%3A%3D%20self%20eval%3A%20%28self%20compile%3A%20aString%20forClass%3A%20aClass%29.%0A%09self%20setupClass%3A%20aClass.%0A%09%5Ecompiled'),
|
1439
|
+
messageSends: ["eval:", "compile:forClass:", "setupClass:"],
|
1449
1440
|
referencedClasses: []
|
1450
1441
|
}),
|
1451
|
-
smalltalk.
|
1442
|
+
smalltalk.Compiler);
|
1452
1443
|
|
1453
1444
|
smalltalk.addMethod(
|
1454
|
-
unescape('
|
1445
|
+
unescape('_compile_forClass_'),
|
1455
1446
|
smalltalk.method({
|
1456
|
-
selector: unescape('
|
1457
|
-
category: '
|
1458
|
-
fn: function (
|
1447
|
+
selector: unescape('compile%3AforClass%3A'),
|
1448
|
+
category: 'compiling',
|
1449
|
+
fn: function (aString, aClass){
|
1459
1450
|
var self=this;
|
1460
|
-
smalltalk.send(self, "
|
1451
|
+
smalltalk.send(self, "_currentClass_", [aClass]);
|
1452
|
+
smalltalk.send(self, "_source_", [aString]);
|
1453
|
+
return smalltalk.send(self, "_compile_", [aString]);
|
1461
1454
|
return self;},
|
1462
|
-
args: ["
|
1463
|
-
source: unescape('
|
1464
|
-
messageSends: ["
|
1455
|
+
args: ["aString", "aClass"],
|
1456
|
+
source: unescape('compile%3A%20aString%20forClass%3A%20aClass%0A%09self%20currentClass%3A%20aClass.%0A%09self%20source%3A%20aString.%0A%09%5Eself%20compile%3A%20aString'),
|
1457
|
+
messageSends: ["currentClass:", "source:", "compile:"],
|
1465
1458
|
referencedClasses: []
|
1466
1459
|
}),
|
1467
|
-
smalltalk.
|
1460
|
+
smalltalk.Compiler);
|
1468
1461
|
|
1469
1462
|
smalltalk.addMethod(
|
1470
|
-
unescape('
|
1463
|
+
unescape('_compileExpression_'),
|
1471
1464
|
smalltalk.method({
|
1472
|
-
selector: unescape('
|
1473
|
-
category: '
|
1474
|
-
fn: function (
|
1465
|
+
selector: unescape('compileExpression%3A'),
|
1466
|
+
category: 'compiling',
|
1467
|
+
fn: function (aString){
|
1475
1468
|
var self=this;
|
1476
|
-
smalltalk.send(self, "
|
1469
|
+
smalltalk.send(self, "_currentClass_", [(smalltalk.DoIt || DoIt)]);
|
1470
|
+
smalltalk.send(self, "_source_", [smalltalk.send(smalltalk.send(unescape("doIt%20%5E%5B"), "__comma", [aString]), "__comma", [unescape("%5D%20value")])]);
|
1471
|
+
return smalltalk.send(self, "_compileNode_", [smalltalk.send(self, "_parse_", [smalltalk.send(self, "_source", [])])]);
|
1477
1472
|
return self;},
|
1478
|
-
args: ["
|
1479
|
-
source: unescape('
|
1480
|
-
messageSends: ["
|
1481
|
-
referencedClasses: []
|
1473
|
+
args: ["aString"],
|
1474
|
+
source: unescape('compileExpression%3A%20aString%0A%09self%20currentClass%3A%20DoIt.%0A%09self%20source%3A%20%27doIt%20%5E%5B%27%2C%20aString%2C%20%27%5D%20value%27.%0A%09%5Eself%20compileNode%3A%20%28self%20parse%3A%20self%20source%29'),
|
1475
|
+
messageSends: ["currentClass:", "source:", unescape("%2C"), "compileNode:", "parse:", "source"],
|
1476
|
+
referencedClasses: ["DoIt"]
|
1482
1477
|
}),
|
1483
|
-
smalltalk.
|
1478
|
+
smalltalk.Compiler);
|
1484
1479
|
|
1485
1480
|
smalltalk.addMethod(
|
1486
|
-
unescape('
|
1481
|
+
unescape('_eval_'),
|
1487
1482
|
smalltalk.method({
|
1488
|
-
selector: unescape('
|
1489
|
-
category: '
|
1490
|
-
fn: function (
|
1483
|
+
selector: unescape('eval%3A'),
|
1484
|
+
category: 'compiling',
|
1485
|
+
fn: function (aString){
|
1491
1486
|
var self=this;
|
1492
|
-
|
1487
|
+
return eval(aString);
|
1493
1488
|
return self;},
|
1494
|
-
args: ["
|
1495
|
-
source: unescape('
|
1496
|
-
messageSends: [
|
1489
|
+
args: ["aString"],
|
1490
|
+
source: unescape('eval%3A%20aString%0A%09%3Creturn%20eval%28aString%29%3E'),
|
1491
|
+
messageSends: [],
|
1497
1492
|
referencedClasses: []
|
1498
1493
|
}),
|
1499
|
-
smalltalk.
|
1494
|
+
smalltalk.Compiler);
|
1500
1495
|
|
1501
1496
|
smalltalk.addMethod(
|
1502
|
-
unescape('
|
1497
|
+
unescape('_compile_'),
|
1503
1498
|
smalltalk.method({
|
1504
|
-
selector: unescape('
|
1505
|
-
category: '
|
1506
|
-
fn: function (
|
1499
|
+
selector: unescape('compile%3A'),
|
1500
|
+
category: 'compiling',
|
1501
|
+
fn: function (aString){
|
1507
1502
|
var self=this;
|
1508
|
-
smalltalk.send(self, "
|
1503
|
+
return smalltalk.send(self, "_compileNode_", [smalltalk.send(self, "_parse_", [aString])]);
|
1509
1504
|
return self;},
|
1510
|
-
args: ["
|
1511
|
-
source: unescape('
|
1512
|
-
messageSends: ["
|
1505
|
+
args: ["aString"],
|
1506
|
+
source: unescape('compile%3A%20aString%0A%09%5Eself%20compileNode%3A%20%28self%20parse%3A%20aString%29'),
|
1507
|
+
messageSends: ["compileNode:", "parse:"],
|
1513
1508
|
referencedClasses: []
|
1514
1509
|
}),
|
1515
|
-
smalltalk.
|
1510
|
+
smalltalk.Compiler);
|
1516
1511
|
|
1517
1512
|
smalltalk.addMethod(
|
1518
|
-
unescape('
|
1513
|
+
unescape('_compileNode_'),
|
1519
1514
|
smalltalk.method({
|
1520
|
-
selector: unescape('
|
1521
|
-
category: '
|
1515
|
+
selector: unescape('compileNode%3A'),
|
1516
|
+
category: 'compiling',
|
1522
1517
|
fn: function (aNode){
|
1523
1518
|
var self=this;
|
1524
|
-
smalltalk.send(
|
1519
|
+
(self['@stream']=smalltalk.send("", "_writeStream", []));
|
1520
|
+
smalltalk.send(self, "_visit_", [aNode]);
|
1521
|
+
return smalltalk.send(self['@stream'], "_contents", []);
|
1525
1522
|
return self;},
|
1526
1523
|
args: ["aNode"],
|
1527
|
-
source: unescape('
|
1528
|
-
messageSends: ["
|
1524
|
+
source: unescape('compileNode%3A%20aNode%0A%09stream%20%3A%3D%20%27%27%20writeStream.%0A%09self%20visit%3A%20aNode.%0A%09%5Estream%20contents'),
|
1525
|
+
messageSends: ["writeStream", "visit:", "contents"],
|
1529
1526
|
referencedClasses: []
|
1530
1527
|
}),
|
1531
|
-
smalltalk.
|
1528
|
+
smalltalk.Compiler);
|
1532
1529
|
|
1533
1530
|
smalltalk.addMethod(
|
1534
|
-
unescape('
|
1531
|
+
unescape('_visit_'),
|
1535
1532
|
smalltalk.method({
|
1536
|
-
selector: unescape('
|
1533
|
+
selector: unescape('visit%3A'),
|
1537
1534
|
category: 'visiting',
|
1538
1535
|
fn: function (aNode){
|
1539
1536
|
var self=this;
|
1540
|
-
|
1537
|
+
smalltalk.send(aNode, "_accept_", [self]);
|
1541
1538
|
return self;},
|
1542
1539
|
args: ["aNode"],
|
1543
|
-
source: unescape('
|
1544
|
-
messageSends: [],
|
1540
|
+
source: unescape('visit%3A%20aNode%0A%09aNode%20accept%3A%20self'),
|
1541
|
+
messageSends: ["accept:"],
|
1545
1542
|
referencedClasses: []
|
1546
1543
|
}),
|
1547
|
-
smalltalk.
|
1544
|
+
smalltalk.Compiler);
|
1548
1545
|
|
1549
1546
|
smalltalk.addMethod(
|
1550
|
-
unescape('
|
1547
|
+
unescape('_visitMethodNode_'),
|
1551
1548
|
smalltalk.method({
|
1552
|
-
selector: unescape('
|
1549
|
+
selector: unescape('visitMethodNode%3A'),
|
1553
1550
|
category: 'visiting',
|
1554
1551
|
fn: function (aNode){
|
1555
1552
|
var self=this;
|
1556
|
-
|
1553
|
+
var str=nil;
|
1554
|
+
var currentSelector=nil;
|
1555
|
+
(self['@currentSelector']=smalltalk.send(smalltalk.send(aNode, "_selector", []), "_asSelector", []));
|
1556
|
+
(self['@nestedBlocks']=(0));
|
1557
|
+
(self['@earlyReturn']=false);
|
1558
|
+
(self['@messageSends']=[]);
|
1559
|
+
(self['@referencedClasses']=[]);
|
1560
|
+
(self['@unknownVariables']=[]);
|
1561
|
+
(self['@tempVariables']=[]);
|
1562
|
+
(self['@argVariables']=[]);
|
1563
|
+
(function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.method%28%7B")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("selector%3A%20%22"), "__comma", [smalltalk.send(aNode, "_selector", [])]), "__comma", [unescape("%22%2C")])]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);
|
1564
|
+
(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("source%3A%20unescape%28%22"), "__comma", [smalltalk.send(smalltalk.send(self, "_source", []), "_escaped", [])]), "__comma", [unescape("%22%29%2C")])]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);
|
1565
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("fn%3A%20function%28")]);
|
1566
|
+
smalltalk.send(smalltalk.send(aNode, "_arguments", []), "_do_separatedBy_", [(function(each){smalltalk.send(self['@argVariables'], "_add_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [each]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C%20")]);})]);
|
1567
|
+
(function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%29%7B")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [unescape("var%20self%3Dthis%3B")]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);
|
1568
|
+
(str=self['@stream']);
|
1569
|
+
(self['@stream']=smalltalk.send("", "_writeStream", []));
|
1570
|
+
smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){return smalltalk.send(self, "_visit_", [each]);})]);
|
1571
|
+
((($receiver = self['@earlyReturn']).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(str, "_nextPutAll_", [unescape("try%7B")]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(str, "_nextPutAll_", [unescape("try%7B")]);})]));
|
1572
|
+
smalltalk.send(str, "_nextPutAll_", [smalltalk.send(self['@stream'], "_contents", [])]);
|
1573
|
+
(self['@stream']=str);
|
1574
|
+
(function($rec){smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [unescape("return%20self%3B")]);})(self['@stream']);
|
1575
|
+
((($receiver = self['@earlyReturn']).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (function($rec){smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%7D%20catch%28e%29%20%7Bif%28e.name%20%3D%3D%3D%20%27stReturn%27%20%26%26%20e.selector%20%3D%3D%3D%20"), "__comma", [smalltalk.send(self['@currentSelector'], "_printString", [])]), "__comma", [unescape("%29%7Breturn%20e.fn%28%29%7D%20throw%28e%29%7D")])]);})(self['@stream']);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return (function($rec){smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%7D%20catch%28e%29%20%7Bif%28e.name%20%3D%3D%3D%20%27stReturn%27%20%26%26%20e.selector%20%3D%3D%3D%20"), "__comma", [smalltalk.send(self['@currentSelector'], "_printString", [])]), "__comma", [unescape("%29%7Breturn%20e.fn%28%29%7D%20throw%28e%29%7D")])]);})(self['@stream']);})]));
|
1576
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D")]);
|
1577
|
+
(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%2C"), "__comma", [smalltalk.send((smalltalk.String || String), "_lf", [])]), "__comma", ["messageSends: "])]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(self['@messageSends'], "_asJavascript", []), "__comma", [unescape("%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("args: ", "__comma", [smalltalk.send(self['@argVariables'], "_asJavascript", [])]), "__comma", [unescape("%2C")])]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [unescape("referencedClasses%3A%20%5B")]);})(self['@stream']);
|
1578
|
+
smalltalk.send(self['@referencedClasses'], "_do_separatedBy_", [(function(each){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(each, "_printString", [])]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C")]);})]);
|
1579
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%5D")]);
|
1580
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%29")]);
|
1557
1581
|
return self;},
|
1558
1582
|
args: ["aNode"],
|
1559
|
-
source: unescape('
|
1560
|
-
messageSends: ["
|
1561
|
-
referencedClasses: []
|
1583
|
+
source: unescape('visitMethodNode%3A%20aNode%0A%09%7C%20str%20currentSelector%20%7C%20%0A%09currentSelector%20%3A%3D%20aNode%20selector%20asSelector.%0A%09nestedBlocks%20%3A%3D%200.%0A%09earlyReturn%20%3A%3D%20false.%0A%09messageSends%20%3A%3D%20%23%28%29.%0A%09referencedClasses%20%3A%3D%20%23%28%29.%0A%09unknownVariables%20%3A%3D%20%23%28%29.%0A%09tempVariables%20%3A%3D%20%23%28%29.%0A%09argVariables%20%3A%3D%20%23%28%29.%0A%09stream%20%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.method%28%7B%27%3B%20lf%3B%0A%09%20%20%20%20nextPutAll%3A%20%27selector%3A%20%22%27%2C%20aNode%20selector%2C%20%27%22%2C%27%3B%20lf.%0A%09stream%20nextPutAll%3A%20%27source%3A%20unescape%28%22%27%2C%20self%20source%20escaped%2C%20%27%22%29%2C%27%3Blf.%0A%09stream%20nextPutAll%3A%20%27fn%3A%20function%28%27.%0A%09aNode%20arguments%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20%0A%09%09argVariables%20add%3A%20each.%0A%09%09stream%20nextPutAll%3A%20each%5D%0A%09%20%20%20%20separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%20%27%5D.%0A%09stream%20%0A%09%20%20%20%20nextPutAll%3A%20%27%29%7B%27%3B%20lf%3B%0A%09%20%20%20%20nextPutAll%3A%20%27var%20self%3Dthis%3B%27%3B%20lf.%0A%09str%20%3A%3D%20stream.%0A%09stream%20%3A%3D%20%27%27%20writeStream.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20self%20visit%3A%20each%5D.%0A%09earlyReturn%20ifTrue%3A%20%5B%0A%09%20%20%20%20str%20nextPutAll%3A%20%27try%7B%27%5D.%0A%09str%20nextPutAll%3A%20stream%20contents.%0A%09stream%20%3A%3D%20str.%0A%09stream%20%0A%09%20%20%20%20lf%3B%20%0A%09%20%20%20%20nextPutAll%3A%20%27return%20self%3B%27.%0A%09earlyReturn%20ifTrue%3A%20%5B%0A%09%20%20%20%20stream%20lf%3B%20nextPutAll%3A%20%27%7D%20catch%28e%29%20%7Bif%28e.name%20%3D%3D%3D%20%27%27stReturn%27%27%20%26%26%20e.selector%20%3D%3D%3D%20%27%2C%20currentSelector%20printString%2C%20%27%29%7Breturn%20e.fn%28%29%7D%20throw%28e%29%7D%27%5D.%0A%09stream%20nextPutAll%3A%20%27%7D%27.%0A%09stream%20%0A%09%09nextPutAll%3A%20%27%2C%27%2C%20String%20lf%2C%20%27messageSends%3A%20%27%3B%0A%09%09nextPutAll%3A%20messageSends%20asJavascript%2C%20%27%2C%27%3B%20lf%3B%0A%20%20%20%20%20%20%20%20%20%20%09nextPutAll%3A%20%27args%3A%20%27%2C%20argVariables%20asJavascript%2C%20%27%2C%27%3B%20lf%3B%0A%09%09nextPutAll%3A%20%27referencedClasses%3A%20%5B%27.%0A%09referencedClasses%20%0A%09%09do%3A%20%5B%3Aeach%20%7C%20stream%20nextPutAll%3A%20each%20printString%5D%0A%09%09separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%27%5D.%0A%09stream%20nextPutAll%3A%20%27%5D%27.%0A%09stream%20nextPutAll%3A%20%27%7D%29%27'),
|
1584
|
+
messageSends: ["asSelector", "selector", "nextPutAll:", "lf", unescape("%2C"), "escaped", "source", "do:separatedBy:", "arguments", "add:", "writeStream", "do:", "nodes", "visit:", "ifTrue:", "contents", "printString", "asJavascript"],
|
1585
|
+
referencedClasses: ["String"]
|
1562
1586
|
}),
|
1563
|
-
smalltalk.
|
1587
|
+
smalltalk.Compiler);
|
1564
1588
|
|
1565
1589
|
smalltalk.addMethod(
|
1566
|
-
unescape('
|
1590
|
+
unescape('_visitBlockNode_'),
|
1567
1591
|
smalltalk.method({
|
1568
|
-
selector: unescape('
|
1592
|
+
selector: unescape('visitBlockNode%3A'),
|
1569
1593
|
category: 'visiting',
|
1570
1594
|
fn: function (aNode){
|
1571
1595
|
var self=this;
|
1572
|
-
|
1596
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28")]);
|
1597
|
+
smalltalk.send(smalltalk.send(aNode, "_parameters", []), "_do_separatedBy_", [(function(each){smalltalk.send(self['@tempVariables'], "_add_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [each]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C%20")]);})]);
|
1598
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%7B")]);
|
1599
|
+
smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){return smalltalk.send(self, "_visit_", [each]);})]);
|
1600
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%29")]);
|
1573
1601
|
return self;},
|
1574
1602
|
args: ["aNode"],
|
1575
|
-
source: unescape('
|
1576
|
-
messageSends: ["nextPutAll:", "
|
1603
|
+
source: unescape('visitBlockNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20%27%28function%28%27.%0A%09aNode%20parameters%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%0A%09%09tempVariables%20add%3A%20each.%0A%09%09stream%20nextPutAll%3A%20each%5D%0A%09%20%20%20%20separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%20%27%5D.%0A%09stream%20nextPutAll%3A%20%27%29%7B%27.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%20self%20visit%3A%20each%5D.%0A%09stream%20nextPutAll%3A%20%27%7D%29%27'),
|
1604
|
+
messageSends: ["nextPutAll:", "do:separatedBy:", "parameters", "add:", "do:", "nodes", "visit:"],
|
1577
1605
|
referencedClasses: []
|
1578
1606
|
}),
|
1579
|
-
smalltalk.
|
1607
|
+
smalltalk.Compiler);
|
1580
1608
|
|
1581
1609
|
smalltalk.addMethod(
|
1582
|
-
unescape('
|
1610
|
+
unescape('_visitSequenceNode_'),
|
1583
1611
|
smalltalk.method({
|
1584
|
-
selector: unescape('
|
1612
|
+
selector: unescape('visitSequenceNode%3A'),
|
1585
1613
|
category: 'visiting',
|
1586
1614
|
fn: function (aNode){
|
1587
1615
|
var self=this;
|
1588
|
-
|
1616
|
+
smalltalk.send(smalltalk.send(aNode, "_temps", []), "_do_", [(function(each){var temp=nil;
|
1617
|
+
(temp=smalltalk.send(self, "_safeVariableNameFor_", [each]));smalltalk.send(self['@tempVariables'], "_add_", [temp]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("var ", "__comma", [temp]), "__comma", [unescape("%3Dnil%3B")])]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);})]);
|
1618
|
+
smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_separatedBy_", [(function(each){smalltalk.send(self, "_visit_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3B")]);}), (function(){return smalltalk.send(self['@stream'], "_lf", []);})]);
|
1589
1619
|
return self;},
|
1590
1620
|
args: ["aNode"],
|
1591
|
-
source: unescape('
|
1592
|
-
messageSends: ["nextPutAll:", "
|
1621
|
+
source: unescape('visitSequenceNode%3A%20aNode%0A%09aNode%20temps%20do%3A%20%5B%3Aeach%20%7C%7C%20temp%20%7C%0A%20%20%20%20%20%20%20%20%20%20%20%20temp%20%3A%3D%20self%20safeVariableNameFor%3A%20each.%0A%09%20%20%20%20tempVariables%20add%3A%20temp.%0A%09%20%20%20%20stream%20nextPutAll%3A%20%27var%20%27%2C%20temp%2C%20%27%3Dnil%3B%27%3B%20lf%5D.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20self%20visit%3A%20each.%0A%09%20%20%20%20stream%20nextPutAll%3A%20%27%3B%27%5D%0A%09%20%20%20%20separatedBy%3A%20%5Bstream%20lf%5D'),
|
1622
|
+
messageSends: ["do:", "temps", "safeVariableNameFor:", "add:", "nextPutAll:", unescape("%2C"), "lf", "do:separatedBy:", "nodes", "visit:"],
|
1593
1623
|
referencedClasses: []
|
1594
1624
|
}),
|
1595
|
-
smalltalk.
|
1625
|
+
smalltalk.Compiler);
|
1596
1626
|
|
1597
1627
|
smalltalk.addMethod(
|
1598
|
-
unescape('
|
1628
|
+
unescape('_visitBlockSequenceNode_'),
|
1599
1629
|
smalltalk.method({
|
1600
|
-
selector: unescape('
|
1630
|
+
selector: unescape('visitBlockSequenceNode%3A'),
|
1601
1631
|
category: 'visiting',
|
1602
1632
|
fn: function (aNode){
|
1603
1633
|
var self=this;
|
1604
|
-
|
1634
|
+
var index=nil;
|
1635
|
+
(self['@nestedBlocks']=((($receiver = self['@nestedBlocks']).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));
|
1636
|
+
((($receiver = smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_isEmpty", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("return%20nil%3B")]);})() : (function(){smalltalk.send(smalltalk.send(aNode, "_temps", []), "_do_", [(function(each){var temp=nil;
|
1637
|
+
(temp=smalltalk.send(self, "_safeVariableNameFor_", [each]));smalltalk.send(self['@tempVariables'], "_add_", [temp]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("var ", "__comma", [temp]), "__comma", [unescape("%3Dnil%3B")])]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);})]);(index=(0));return smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){(index=((($receiver = index).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));((($receiver = smalltalk.send(index, "__eq", [smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_size", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})]));smalltalk.send(self, "_visit_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3B")]);})]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("return%20nil%3B")]);}), (function(){smalltalk.send(smalltalk.send(aNode, "_temps", []), "_do_", [(function(each){var temp=nil;
|
1638
|
+
(temp=smalltalk.send(self, "_safeVariableNameFor_", [each]));smalltalk.send(self['@tempVariables'], "_add_", [temp]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("var ", "__comma", [temp]), "__comma", [unescape("%3Dnil%3B")])]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);})]);(index=(0));return smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){(index=((($receiver = index).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));((($receiver = smalltalk.send(index, "__eq", [smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_size", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})]));smalltalk.send(self, "_visit_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3B")]);})]);})]));
|
1639
|
+
(self['@nestedBlocks']=((($receiver = self['@nestedBlocks']).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])));
|
1605
1640
|
return self;},
|
1606
1641
|
args: ["aNode"],
|
1607
|
-
source: unescape('
|
1608
|
-
messageSends: ["
|
1642
|
+
source: unescape('visitBlockSequenceNode%3A%20aNode%0A%09%7C%20index%20%7C%0A%09nestedBlocks%20%3A%3D%20nestedBlocks%20+%201.%0A%09aNode%20nodes%20isEmpty%0A%09%20%20%20%20ifTrue%3A%20%5B%0A%09%09stream%20nextPutAll%3A%20%27return%20nil%3B%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5B%0A%09%09aNode%20temps%20do%3A%20%5B%3Aeach%20%7C%20%7C%20temp%20%7C%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20temp%20%3A%3D%20self%20safeVariableNameFor%3A%20each.%0A%09%09%20%20%20%20tempVariables%20add%3A%20temp.%0A%09%09%20%20%20%20stream%20nextPutAll%3A%20%27var%20%27%2C%20temp%2C%20%27%3Dnil%3B%27%3B%20lf%5D.%0A%09%09index%20%3A%3D%200.%0A%09%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%0A%09%09%20%20%20%20index%20%3A%3D%20index%20+%201.%0A%09%09%20%20%20%20index%20%3D%20aNode%20nodes%20size%20ifTrue%3A%20%5B%0A%09%09%09stream%20nextPutAll%3A%20%27return%20%27%5D.%0A%09%09%20%20%20%20self%20visit%3A%20each.%0A%09%09%20%20%20%20stream%20nextPutAll%3A%20%27%3B%27%5D%5D.%0A%09nestedBlocks%20%3A%3D%20nestedBlocks%20-%201'),
|
1643
|
+
messageSends: [unescape("+"), "ifTrue:ifFalse:", "isEmpty", "nodes", "nextPutAll:", "do:", "temps", "safeVariableNameFor:", "add:", unescape("%2C"), "lf", "ifTrue:", unescape("%3D"), "size", "visit:", unescape("-")],
|
1609
1644
|
referencedClasses: []
|
1610
1645
|
}),
|
1611
|
-
smalltalk.
|
1646
|
+
smalltalk.Compiler);
|
1612
1647
|
|
1613
1648
|
smalltalk.addMethod(
|
1614
|
-
unescape('
|
1649
|
+
unescape('_visitReturnNode_'),
|
1615
1650
|
smalltalk.method({
|
1616
|
-
selector: unescape('
|
1651
|
+
selector: unescape('visitReturnNode%3A'),
|
1617
1652
|
category: 'visiting',
|
1618
1653
|
fn: function (aNode){
|
1619
1654
|
var self=this;
|
1620
|
-
smalltalk.send(self, "
|
1655
|
+
((($receiver = ((($receiver = self['@nestedBlocks']).klass === smalltalk.Number) ? $receiver >(0) : smalltalk.send($receiver, "__gt", [(0)]))).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (self['@earlyReturn']=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return (self['@earlyReturn']=true);})]));
|
1656
|
+
((($receiver = self['@earlyReturn']).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%28function%28%29%7Bthrow%28")]);smalltalk.send($rec, "_nextPutAll_", [unescape("%7Bname%3A%20%27stReturn%27%2C%20selector%3A%20")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self['@currentSelector'], "_printString", [])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%2C%20fn%3A%20function%28%29%7Breturn%20")]);})(self['@stream']);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%28function%28%29%7Bthrow%28")]);smalltalk.send($rec, "_nextPutAll_", [unescape("%7Bname%3A%20%27stReturn%27%2C%20selector%3A%20")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self['@currentSelector'], "_printString", [])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%2C%20fn%3A%20function%28%29%7Breturn%20")]);})(self['@stream']);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})]));
|
1657
|
+
smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){return smalltalk.send(self, "_visit_", [each]);})]);
|
1658
|
+
((($receiver = self['@earlyReturn']).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%7D%29%7D%29%28%29")]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%7D%29%7D%29%28%29")]);})]));
|
1621
1659
|
return self;},
|
1622
1660
|
args: ["aNode"],
|
1623
|
-
source: unescape('
|
1624
|
-
messageSends: ["
|
1661
|
+
source: unescape('visitReturnNode%3A%20aNode%0A%09nestedBlocks%20%3E%200%20ifTrue%3A%20%5B%0A%09%20%20%20%20earlyReturn%20%3A%3D%20true%5D.%0A%09earlyReturn%0A%09%20%20%20%20ifTrue%3A%20%5B%0A%09%09stream%0A%09%09%20%20%20%20nextPutAll%3A%20%27%28function%28%29%7Bthrow%28%27%3B%0A%09%09%20%20%20%20nextPutAll%3A%20%27%7Bname%3A%20%27%27stReturn%27%27%2C%20selector%3A%20%27%3B%0A%09%09%20%20%20%20nextPutAll%3A%20currentSelector%20printString%3B%0A%09%09%20%20%20%20nextPutAll%3A%20%27%2C%20fn%3A%20function%28%29%7Breturn%20%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5Bstream%20nextPutAll%3A%20%27return%20%27%5D.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20self%20visit%3A%20each%5D.%0A%09earlyReturn%20ifTrue%3A%20%5B%0A%09%20%20%20%20stream%20nextPutAll%3A%20%27%7D%7D%29%7D%29%28%29%27%5D'),
|
1662
|
+
messageSends: ["ifTrue:", unescape("%3E"), "ifTrue:ifFalse:", "nextPutAll:", "printString", "do:", "nodes", "visit:"],
|
1625
1663
|
referencedClasses: []
|
1626
1664
|
}),
|
1627
|
-
smalltalk.
|
1628
|
-
|
1629
|
-
|
1665
|
+
smalltalk.Compiler);
|
1630
1666
|
|
1631
|
-
smalltalk.addClass('Compiler', smalltalk.NodeVisitor, ['stream', 'nestedBlocks', 'earlyReturn', 'currentClass', 'currentSelector', 'unknownVariables', 'tempVariables', 'messageSends', 'referencedClasses', 'classReferenced', 'source', 'argVariables'], 'Compiler');
|
1632
1667
|
smalltalk.addMethod(
|
1633
|
-
unescape('
|
1668
|
+
unescape('_visitSendNode_'),
|
1634
1669
|
smalltalk.method({
|
1635
|
-
selector: unescape('
|
1636
|
-
category: '
|
1637
|
-
fn: function (){
|
1670
|
+
selector: unescape('visitSendNode%3A'),
|
1671
|
+
category: 'visiting',
|
1672
|
+
fn: function (aNode){
|
1638
1673
|
var self=this;
|
1639
|
-
|
1674
|
+
var str=nil;
|
1675
|
+
var receiver=nil;
|
1676
|
+
var superSend=nil;
|
1677
|
+
var inlined=nil;
|
1678
|
+
(str=self['@stream']);
|
1679
|
+
((($receiver = smalltalk.send(self['@messageSends'], "_includes_", [smalltalk.send(aNode, "_selector", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self['@messageSends'], "_add_", [smalltalk.send(aNode, "_selector", [])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self['@messageSends'], "_add_", [smalltalk.send(aNode, "_selector", [])]);})]));
|
1640
1680
|
(self['@stream']=smalltalk.send("", "_writeStream", []));
|
1641
|
-
(self[
|
1642
|
-
(self['@
|
1643
|
-
(self['@
|
1644
|
-
(self['@
|
1645
|
-
(self['@
|
1681
|
+
smalltalk.send(self, "_visit_", [smalltalk.send(aNode, "_receiver", [])]);
|
1682
|
+
(superSend=smalltalk.send(smalltalk.send(self['@stream'], "_contents", []), "__eq", ["super"]));
|
1683
|
+
(receiver=((($receiver = superSend).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "self";})() : (function(){return smalltalk.send(self['@stream'], "_contents", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "self";}), (function(){return smalltalk.send(self['@stream'], "_contents", []);})])));
|
1684
|
+
(self['@stream']=str);
|
1685
|
+
((($receiver = smalltalk.send(self, "_performOptimizations", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_inlineLiteral_receiverNode_argumentNodes_", [smalltalk.send(aNode, "_selector", []), smalltalk.send(aNode, "_receiver", []), smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return ((($receiver = smalltalk.send(self, "_inline_receiver_argumentNodes_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})]));})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return ((($receiver = smalltalk.send(self, "_inline_receiver_argumentNodes_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})]));})]));})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return ((($receiver = smalltalk.send(self, "_inlineLiteral_receiverNode_argumentNodes_", [smalltalk.send(aNode, "_selector", []), smalltalk.send(aNode, "_receiver", []), smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return ((($receiver = smalltalk.send(self, "_inline_receiver_argumentNodes_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})]));})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return ((($receiver = smalltalk.send(self, "_inline_receiver_argumentNodes_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})]));})]));}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})]));
|
1646
1686
|
return self;},
|
1647
|
-
args: [],
|
1648
|
-
source: unescape('
|
1649
|
-
messageSends: ["
|
1687
|
+
args: ["aNode"],
|
1688
|
+
source: unescape('visitSendNode%3A%20aNode%0A%20%20%20%20%20%20%20%20%7C%20str%20receiver%20superSend%20inlined%20%7C%0A%20%20%20%20%20%20%20%20str%20%3A%3D%20stream.%0A%20%20%20%20%20%20%20%20%28messageSends%20includes%3A%20aNode%20selector%29%20ifFalse%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20messageSends%20add%3A%20aNode%20selector%5D.%0A%20%20%20%20%20%20%20%20stream%20%3A%3D%20%27%27%20writeStream.%0A%20%20%20%20%20%20%20%20self%20visit%3A%20aNode%20receiver.%0A%20%20%20%20%20%20%20%20superSend%20%3A%3D%20stream%20contents%20%3D%20%27super%27.%0A%20%20%20%20%20%20%20%20receiver%20%3A%3D%20superSend%20ifTrue%3A%20%5B%27self%27%5D%20ifFalse%3A%20%5Bstream%20contents%5D.%0A%20%20%20%20%20%20%20%20stream%20%3A%3D%20str.%0A%09%0A%09self%20performOptimizations%20%0A%09%09ifTrue%3A%20%5B%0A%09%09%09%28self%20inlineLiteral%3A%20aNode%20selector%20receiverNode%3A%20aNode%20receiver%20argumentNodes%3A%20aNode%20arguments%29%20ifFalse%3A%20%5B%0A%09%09%09%09%28self%20inline%3A%20aNode%20selector%20receiver%3A%20receiver%20argumentNodes%3A%20aNode%20arguments%29%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09%09ifTrue%3A%20%5Bstream%20nextPutAll%3A%20%27%20%3A%20%27%2C%20%28self%20send%3A%20aNode%20selector%20to%3A%20%27%24receiver%27%20arguments%3A%20aNode%20arguments%20superSend%3A%20superSend%29%2C%20%27%29%27%5D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09%09ifFalse%3A%20%5Bstream%20nextPutAll%3A%20%28self%20send%3A%20aNode%20selector%20to%3A%20receiver%20arguments%3A%20aNode%20arguments%20superSend%3A%20superSend%29%5D%5D%5D%0A%09%09ifFalse%3A%20%5Bstream%20nextPutAll%3A%20%28self%20send%3A%20aNode%20selector%20to%3A%20receiver%20arguments%3A%20aNode%20arguments%20superSend%3A%20superSend%29%5D'),
|
1689
|
+
messageSends: ["ifFalse:", "includes:", "selector", "add:", "writeStream", "visit:", "receiver", unescape("%3D"), "contents", "ifTrue:ifFalse:", "performOptimizations", "inlineLiteral:receiverNode:argumentNodes:", "arguments", "inline:receiver:argumentNodes:", "nextPutAll:", unescape("%2C"), "send:to:arguments:superSend:"],
|
1650
1690
|
referencedClasses: []
|
1651
1691
|
}),
|
1652
1692
|
smalltalk.Compiler);
|
1653
1693
|
|
1654
1694
|
smalltalk.addMethod(
|
1655
|
-
unescape('
|
1656
|
-
smalltalk.method({
|
1657
|
-
selector: unescape('
|
1658
|
-
category: '
|
1659
|
-
fn: function (){
|
1695
|
+
unescape('_visitCascadeNode_'),
|
1696
|
+
smalltalk.method({
|
1697
|
+
selector: unescape('visitCascadeNode%3A'),
|
1698
|
+
category: 'visiting',
|
1699
|
+
fn: function (aNode){
|
1660
1700
|
var self=this;
|
1661
|
-
|
1701
|
+
var index=nil;
|
1702
|
+
(index=(0));
|
1703
|
+
((($receiver = smalltalk.send(self['@tempVariables'], "_includes_", ["$rec"])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self['@tempVariables'], "_add_", ["$rec"]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self['@tempVariables'], "_add_", ["$rec"]);})]));
|
1704
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%24rec%29%7B")]);
|
1705
|
+
smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){(index=((($receiver = index).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));((($receiver = smalltalk.send(index, "__eq", [smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_size", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})]));smalltalk.send(each, "_receiver_", [smalltalk.send(smalltalk.send((smalltalk.VariableNode || VariableNode), "_new", []), "_value_", ["$rec"])]);smalltalk.send(self, "_visit_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3B")]);})]);
|
1706
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%29%28")]);
|
1707
|
+
smalltalk.send(self, "_visit_", [smalltalk.send(aNode, "_receiver", [])]);
|
1708
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29")]);
|
1662
1709
|
return self;},
|
1663
|
-
args: [],
|
1664
|
-
source: unescape('
|
1665
|
-
messageSends: ["new"],
|
1666
|
-
referencedClasses: ["
|
1710
|
+
args: ["aNode"],
|
1711
|
+
source: unescape('visitCascadeNode%3A%20aNode%0A%09%7C%20index%20%7C%0A%09index%20%3A%3D%200.%0A%09%28tempVariables%20includes%3A%20%27%24rec%27%29%20ifFalse%3A%20%5B%0A%09%09tempVariables%20add%3A%20%27%24rec%27%5D.%0A%09stream%20nextPutAll%3A%20%27%28function%28%24rec%29%7B%27.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20index%20%3A%3D%20index%20+%201.%0A%09%20%20%20%20index%20%3D%20aNode%20nodes%20size%20ifTrue%3A%20%5B%0A%09%09stream%20nextPutAll%3A%20%27return%20%27%5D.%0A%09%20%20%20%20each%20receiver%3A%20%28VariableNode%20new%20value%3A%20%27%24rec%27%29.%0A%09%20%20%20%20self%20visit%3A%20each.%0A%09%20%20%20%20stream%20nextPutAll%3A%20%27%3B%27%5D.%0A%09stream%20nextPutAll%3A%20%27%7D%29%28%27.%0A%09self%20visit%3A%20aNode%20receiver.%0A%09stream%20nextPutAll%3A%20%27%29%27'),
|
1712
|
+
messageSends: ["ifFalse:", "includes:", "add:", "nextPutAll:", "do:", "nodes", unescape("+"), "ifTrue:", unescape("%3D"), "size", "receiver:", "value:", "new", "visit:", "receiver"],
|
1713
|
+
referencedClasses: ["VariableNode"]
|
1667
1714
|
}),
|
1668
1715
|
smalltalk.Compiler);
|
1669
1716
|
|
1670
1717
|
smalltalk.addMethod(
|
1671
|
-
unescape('
|
1718
|
+
unescape('_visitValueNode_'),
|
1672
1719
|
smalltalk.method({
|
1673
|
-
selector: unescape('
|
1674
|
-
category: '
|
1675
|
-
fn: function (){
|
1720
|
+
selector: unescape('visitValueNode%3A'),
|
1721
|
+
category: 'visiting',
|
1722
|
+
fn: function (aNode){
|
1676
1723
|
var self=this;
|
1677
|
-
|
1724
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(aNode, "_value", []), "_asJavascript", [])]);
|
1678
1725
|
return self;},
|
1679
|
-
args: [],
|
1680
|
-
source: unescape('
|
1681
|
-
messageSends: [],
|
1726
|
+
args: ["aNode"],
|
1727
|
+
source: unescape('visitValueNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20aNode%20value%20asJavascript'),
|
1728
|
+
messageSends: ["nextPutAll:", "asJavascript", "value"],
|
1682
1729
|
referencedClasses: []
|
1683
1730
|
}),
|
1684
1731
|
smalltalk.Compiler);
|
1685
1732
|
|
1686
1733
|
smalltalk.addMethod(
|
1687
|
-
unescape('
|
1734
|
+
unescape('_visitAssignmentNode_'),
|
1688
1735
|
smalltalk.method({
|
1689
|
-
selector: unescape('
|
1690
|
-
category: '
|
1691
|
-
fn: function (
|
1736
|
+
selector: unescape('visitAssignmentNode%3A'),
|
1737
|
+
category: 'visiting',
|
1738
|
+
fn: function (aNode){
|
1692
1739
|
var self=this;
|
1693
|
-
(self['@
|
1740
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28")]);
|
1741
|
+
smalltalk.send(self, "_visit_", [smalltalk.send(aNode, "_left", [])]);
|
1742
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3D")]);
|
1743
|
+
smalltalk.send(self, "_visit_", [smalltalk.send(aNode, "_right", [])]);
|
1744
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29")]);
|
1694
1745
|
return self;},
|
1695
|
-
args: ["
|
1696
|
-
source: unescape('
|
1697
|
-
messageSends: [],
|
1746
|
+
args: ["aNode"],
|
1747
|
+
source: unescape('visitAssignmentNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20%27%28%27.%0A%09self%20visit%3A%20aNode%20left.%0A%09stream%20nextPutAll%3A%20%27%3D%27.%0A%09self%20visit%3A%20aNode%20right.%0A%09stream%20nextPutAll%3A%20%27%29%27'),
|
1748
|
+
messageSends: ["nextPutAll:", "visit:", "left", "right"],
|
1698
1749
|
referencedClasses: []
|
1699
1750
|
}),
|
1700
1751
|
smalltalk.Compiler);
|
1701
1752
|
|
1702
1753
|
smalltalk.addMethod(
|
1703
|
-
unescape('
|
1754
|
+
unescape('_visitClassReferenceNode_'),
|
1704
1755
|
smalltalk.method({
|
1705
|
-
selector: unescape('
|
1706
|
-
category: '
|
1707
|
-
fn: function (
|
1756
|
+
selector: unescape('visitClassReferenceNode%3A'),
|
1757
|
+
category: 'visiting',
|
1758
|
+
fn: function (aNode){
|
1708
1759
|
var self=this;
|
1709
|
-
|
1710
|
-
smalltalk.send((smalltalk.
|
1711
|
-
(result=smalltalk.send(smalltalk.send((smalltalk.DoIt || DoIt), "_new", []), "_doIt", []));
|
1712
|
-
smalltalk.send((smalltalk.DoIt || DoIt), "_removeCompiledMethod_", [smalltalk.send(smalltalk.send((smalltalk.DoIt || DoIt), "_methodDictionary", []), "_at_", ["doIt"])]);
|
1713
|
-
return result;
|
1760
|
+
((($receiver = smalltalk.send(self['@referencedClasses'], "_includes_", [smalltalk.send(aNode, "_value", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self['@referencedClasses'], "_add_", [smalltalk.send(aNode, "_value", [])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self['@referencedClasses'], "_add_", [smalltalk.send(aNode, "_value", [])]);})]));
|
1761
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28smalltalk."), "__comma", [smalltalk.send(aNode, "_value", [])]), "__comma", [unescape("%20%7C%7C%20")]), "__comma", [smalltalk.send(aNode, "_value", [])]), "__comma", [unescape("%29")])]);
|
1714
1762
|
return self;},
|
1715
|
-
args: ["
|
1716
|
-
source: unescape('
|
1717
|
-
messageSends: ["
|
1718
|
-
referencedClasses: [
|
1763
|
+
args: ["aNode"],
|
1764
|
+
source: unescape('visitClassReferenceNode%3A%20aNode%0A%09%28referencedClasses%20includes%3A%20aNode%20value%29%20ifFalse%3A%20%5B%0A%09%09referencedClasses%20add%3A%20aNode%20value%5D.%0A%09stream%20nextPutAll%3A%20%27%28smalltalk.%27%2C%20aNode%20value%2C%20%27%20%7C%7C%20%27%2C%20aNode%20value%2C%20%27%29%27'),
|
1765
|
+
messageSends: ["ifFalse:", "includes:", "value", "add:", "nextPutAll:", unescape("%2C")],
|
1766
|
+
referencedClasses: []
|
1719
1767
|
}),
|
1720
1768
|
smalltalk.Compiler);
|
1721
1769
|
|
1722
1770
|
smalltalk.addMethod(
|
1723
|
-
unescape('
|
1771
|
+
unescape('_visitVariableNode_'),
|
1724
1772
|
smalltalk.method({
|
1725
|
-
selector: unescape('
|
1726
|
-
category: '
|
1727
|
-
fn: function (
|
1773
|
+
selector: unescape('visitVariableNode%3A'),
|
1774
|
+
category: 'visiting',
|
1775
|
+
fn: function (aNode){
|
1728
1776
|
var self=this;
|
1729
|
-
var
|
1730
|
-
(
|
1731
|
-
smalltalk.send(self, "_setupClass_", [aClass]);
|
1732
|
-
return compiled;
|
1777
|
+
var varName=nil;
|
1778
|
+
((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(self, "_currentClass", []), "_allInstanceVariableNames", []), "_includes_", [smalltalk.send(aNode, "_value", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("self%5B%27@"), "__comma", [smalltalk.send(aNode, "_value", [])]), "__comma", [unescape("%27%5D")])]);})() : (function(){(varName=smalltalk.send(self, "_safeVariableNameFor_", [smalltalk.send(aNode, "_value", [])]));return ((($receiver = smalltalk.send(smalltalk.send(self, "_knownVariables", []), "_includes_", [varName])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){smalltalk.send(self['@unknownVariables'], "_add_", [smalltalk.send(aNode, "_value", [])]);return ((($receiver = smalltalk.send(aNode, "_assigned", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})]));})() : (function(){return ((($receiver = smalltalk.send(smalltalk.send(aNode, "_value", []), "__eq", ["thisContext"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})]));})()) : smalltalk.send($receiver, "_ifFalse_ifTrue_", [(function(){smalltalk.send(self['@unknownVariables'], "_add_", [smalltalk.send(aNode, "_value", [])]);return ((($receiver = smalltalk.send(aNode, "_assigned", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})]));}), (function(){return ((($receiver = smalltalk.send(smalltalk.send(aNode, "_value", []), "__eq", ["thisContext"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})]));})]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("self%5B%27@"), "__comma", [smalltalk.send(aNode, "_value", [])]), "__comma", [unescape("%27%5D")])]);}), (function(){(varName=smalltalk.send(self, "_safeVariableNameFor_", [smalltalk.send(aNode, "_value", [])]));return ((($receiver = smalltalk.send(smalltalk.send(self, "_knownVariables", []), "_includes_", [varName])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){smalltalk.send(self['@unknownVariables'], "_add_", [smalltalk.send(aNode, "_value", [])]);return ((($receiver = smalltalk.send(aNode, "_assigned", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})]));})() : (function(){return ((($receiver = smalltalk.send(smalltalk.send(aNode, "_value", []), "__eq", ["thisContext"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})]));})()) : smalltalk.send($receiver, "_ifFalse_ifTrue_", [(function(){smalltalk.send(self['@unknownVariables'], "_add_", [smalltalk.send(aNode, "_value", [])]);return ((($receiver = smalltalk.send(aNode, "_assigned", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})]));}), (function(){return ((($receiver = smalltalk.send(smalltalk.send(aNode, "_value", []), "__eq", ["thisContext"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})]));})]));})]));
|
1733
1779
|
return self;},
|
1734
|
-
args: ["
|
1735
|
-
source: unescape('
|
1736
|
-
messageSends: ["
|
1780
|
+
args: ["aNode"],
|
1781
|
+
source: unescape('visitVariableNode%3A%20aNode%0A%09%7C%20varName%20%7C%0A%09%28self%20currentClass%20allInstanceVariableNames%20includes%3A%20aNode%20value%29%20%0A%09%09ifTrue%3A%20%5Bstream%20nextPutAll%3A%20%27self%5B%27%27@%27%2C%20aNode%20value%2C%20%27%27%27%5D%27%5D%0A%09%09ifFalse%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09varName%20%3A%3D%20self%20safeVariableNameFor%3A%20aNode%20value.%0A%09%09%09%28self%20knownVariables%20includes%3A%20varName%29%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09ifFalse%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09unknownVariables%20add%3A%20aNode%20value.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09aNode%20assigned%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09ifTrue%3A%20%5Bstream%20nextPutAll%3A%20varName%5D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09ifFalse%3A%20%5Bstream%20nextPutAll%3A%20%27%28typeof%20%27%2C%20varName%2C%20%27%20%3D%3D%20%27%27undefined%27%27%20%3F%20nil%20%3A%20%27%2C%20varName%2C%20%27%29%27%5D%5D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09aNode%20value%20%3D%20%27thisContext%27%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09ifTrue%3A%20%5Bstream%20nextPutAll%3A%20%27%28smalltalk.getThisContext%28%29%29%27%5D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09%09%09ifFalse%3A%20%5Bstream%20nextPutAll%3A%20varName%5D%5D%5D'),
|
1782
|
+
messageSends: ["ifTrue:ifFalse:", "includes:", "allInstanceVariableNames", "currentClass", "value", "nextPutAll:", unescape("%2C"), "safeVariableNameFor:", "ifFalse:ifTrue:", "knownVariables", "add:", "assigned", unescape("%3D")],
|
1737
1783
|
referencedClasses: []
|
1738
1784
|
}),
|
1739
1785
|
smalltalk.Compiler);
|
1740
1786
|
|
1741
1787
|
smalltalk.addMethod(
|
1742
|
-
unescape('
|
1788
|
+
unescape('_visitJSStatementNode_'),
|
1743
1789
|
smalltalk.method({
|
1744
|
-
selector: unescape('
|
1745
|
-
category: '
|
1746
|
-
fn: function (
|
1790
|
+
selector: unescape('visitJSStatementNode%3A'),
|
1791
|
+
category: 'visiting',
|
1792
|
+
fn: function (aNode){
|
1747
1793
|
var self=this;
|
1748
|
-
smalltalk.send(self, "
|
1749
|
-
smalltalk.send(self, "_source_", [aString]);
|
1750
|
-
return smalltalk.send(self, "_compile_", [aString]);
|
1794
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(aNode, "_source", []), "_replace_with_", [unescape("%3E%3E"), unescape("%3E")])]);
|
1751
1795
|
return self;},
|
1752
|
-
args: ["
|
1753
|
-
source: unescape('
|
1754
|
-
messageSends: ["
|
1796
|
+
args: ["aNode"],
|
1797
|
+
source: unescape('visitJSStatementNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20%28aNode%20source%20replace%3A%20%27%3E%3E%27%20with%3A%20%27%3E%27%29'),
|
1798
|
+
messageSends: ["nextPutAll:", "replace:with:", "source"],
|
1755
1799
|
referencedClasses: []
|
1756
1800
|
}),
|
1757
1801
|
smalltalk.Compiler);
|
1758
1802
|
|
1759
1803
|
smalltalk.addMethod(
|
1760
|
-
unescape('
|
1804
|
+
unescape('_parse_'),
|
1761
1805
|
smalltalk.method({
|
1762
|
-
selector: unescape('
|
1806
|
+
selector: unescape('parse%3A'),
|
1763
1807
|
category: 'compiling',
|
1764
1808
|
fn: function (aString){
|
1765
1809
|
var self=this;
|
1766
|
-
smalltalk.send(
|
1767
|
-
smalltalk.send(self, "_source_", [smalltalk.send(smalltalk.send(unescape("doIt%20%5E%5B"), "__comma", [aString]), "__comma", [unescape("%5D%20value")])]);
|
1768
|
-
return smalltalk.send(self, "_compileNode_", [smalltalk.send(self, "_parse_", [smalltalk.send(self, "_source", [])])]);
|
1810
|
+
return smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_parse_", [aString]);
|
1769
1811
|
return self;},
|
1770
1812
|
args: ["aString"],
|
1771
|
-
source: unescape('
|
1772
|
-
messageSends: ["
|
1773
|
-
referencedClasses: ["
|
1813
|
+
source: unescape('parse%3A%20aString%0A%20%20%20%20%5ESmalltalk%20current%20parse%3A%20aString'),
|
1814
|
+
messageSends: ["parse:", "current"],
|
1815
|
+
referencedClasses: ["Smalltalk"]
|
1774
1816
|
}),
|
1775
1817
|
smalltalk.Compiler);
|
1776
1818
|
|
1777
1819
|
smalltalk.addMethod(
|
1778
|
-
unescape('
|
1820
|
+
unescape('_parseExpression_'),
|
1779
1821
|
smalltalk.method({
|
1780
|
-
selector: unescape('
|
1822
|
+
selector: unescape('parseExpression%3A'),
|
1781
1823
|
category: 'compiling',
|
1782
1824
|
fn: function (aString){
|
1783
1825
|
var self=this;
|
1784
|
-
return
|
1826
|
+
return smalltalk.send(self, "_parse_", [smalltalk.send(smalltalk.send(unescape("doIt%20%5E%5B"), "__comma", [aString]), "__comma", [unescape("%5D%20value")])]);
|
1785
1827
|
return self;},
|
1786
1828
|
args: ["aString"],
|
1787
|
-
source: unescape('
|
1788
|
-
messageSends: [],
|
1829
|
+
source: unescape('parseExpression%3A%20aString%0A%20%20%20%20%5Eself%20parse%3A%20%27doIt%20%5E%5B%27%2C%20aString%2C%20%27%5D%20value%27'),
|
1830
|
+
messageSends: ["parse:", unescape("%2C")],
|
1789
1831
|
referencedClasses: []
|
1790
1832
|
}),
|
1791
1833
|
smalltalk.Compiler);
|
1792
1834
|
|
1793
1835
|
smalltalk.addMethod(
|
1794
|
-
unescape('
|
1836
|
+
unescape('_unknownVariables'),
|
1795
1837
|
smalltalk.method({
|
1796
|
-
selector: unescape('
|
1797
|
-
category: '
|
1798
|
-
fn: function (
|
1838
|
+
selector: unescape('unknownVariables'),
|
1839
|
+
category: 'accessing',
|
1840
|
+
fn: function (){
|
1799
1841
|
var self=this;
|
1800
|
-
return smalltalk.send(self
|
1842
|
+
return smalltalk.send(self['@unknownVariables'], "_copy", []);
|
1801
1843
|
return self;},
|
1802
|
-
args: [
|
1803
|
-
source: unescape('
|
1804
|
-
messageSends: ["
|
1844
|
+
args: [],
|
1845
|
+
source: unescape('unknownVariables%0A%09%5EunknownVariables%20copy'),
|
1846
|
+
messageSends: ["copy"],
|
1805
1847
|
referencedClasses: []
|
1806
1848
|
}),
|
1807
1849
|
smalltalk.Compiler);
|
1808
1850
|
|
1809
1851
|
smalltalk.addMethod(
|
1810
|
-
unescape('
|
1852
|
+
unescape('_pseudoVariables'),
|
1811
1853
|
smalltalk.method({
|
1812
|
-
selector: unescape('
|
1813
|
-
category: '
|
1814
|
-
fn: function (
|
1854
|
+
selector: unescape('pseudoVariables'),
|
1855
|
+
category: 'accessing',
|
1856
|
+
fn: function (){
|
1815
1857
|
var self=this;
|
1816
|
-
|
1817
|
-
smalltalk.send(self, "_visit_", [aNode]);
|
1818
|
-
return smalltalk.send(self['@stream'], "_contents", []);
|
1858
|
+
return ["self", "super", "true", "false", "nil", "thisContext"];
|
1819
1859
|
return self;},
|
1820
|
-
args: [
|
1821
|
-
source: unescape('
|
1822
|
-
messageSends: [
|
1860
|
+
args: [],
|
1861
|
+
source: unescape('pseudoVariables%0A%09%5E%23%28%27self%27%20%27super%27%20%27true%27%20%27false%27%20%27nil%27%20%27thisContext%27%29'),
|
1862
|
+
messageSends: [],
|
1823
1863
|
referencedClasses: []
|
1824
1864
|
}),
|
1825
1865
|
smalltalk.Compiler);
|
1826
1866
|
|
1827
1867
|
smalltalk.addMethod(
|
1828
|
-
unescape('
|
1868
|
+
unescape('_tempVariables'),
|
1829
1869
|
smalltalk.method({
|
1830
|
-
selector: unescape('
|
1831
|
-
category: '
|
1832
|
-
fn: function (
|
1870
|
+
selector: unescape('tempVariables'),
|
1871
|
+
category: 'accessing',
|
1872
|
+
fn: function (){
|
1833
1873
|
var self=this;
|
1834
|
-
smalltalk.send(
|
1874
|
+
return smalltalk.send(self['@tempVariables'], "_copy", []);
|
1835
1875
|
return self;},
|
1836
|
-
args: [
|
1837
|
-
source: unescape('
|
1838
|
-
messageSends: ["
|
1876
|
+
args: [],
|
1877
|
+
source: unescape('tempVariables%0A%09%5EtempVariables%20copy'),
|
1878
|
+
messageSends: ["copy"],
|
1839
1879
|
referencedClasses: []
|
1840
1880
|
}),
|
1841
1881
|
smalltalk.Compiler);
|
1842
1882
|
|
1843
1883
|
smalltalk.addMethod(
|
1844
|
-
unescape('
|
1884
|
+
unescape('_knownVariables'),
|
1845
1885
|
smalltalk.method({
|
1846
|
-
selector: unescape('
|
1847
|
-
category: '
|
1848
|
-
fn: function (
|
1886
|
+
selector: unescape('knownVariables'),
|
1887
|
+
category: 'accessing',
|
1888
|
+
fn: function (){
|
1849
1889
|
var self=this;
|
1850
|
-
|
1851
|
-
var currentSelector=nil;
|
1852
|
-
(self['@currentSelector']=smalltalk.send(smalltalk.send(aNode, "_selector", []), "_asSelector", []));
|
1853
|
-
(self['@nestedBlocks']=(0));
|
1854
|
-
(self['@earlyReturn']=false);
|
1855
|
-
(self['@messageSends']=[]);
|
1856
|
-
(self['@referencedClasses']=[]);
|
1857
|
-
(self['@unknownVariables']=[]);
|
1858
|
-
(self['@tempVariables']=[]);
|
1859
|
-
(self['@argVariables']=[]);
|
1860
|
-
(function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.method%28%7B")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("selector%3A%20%22"), "__comma", [smalltalk.send(aNode, "_selector", [])]), "__comma", [unescape("%22%2C")])]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);
|
1861
|
-
(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("source%3A%20unescape%28%22"), "__comma", [smalltalk.send(smalltalk.send(self, "_source", []), "_escaped", [])]), "__comma", [unescape("%22%29%2C")])]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);
|
1862
|
-
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("fn%3A%20function%28")]);
|
1863
|
-
smalltalk.send(smalltalk.send(aNode, "_arguments", []), "_do_separatedBy_", [(function(each){smalltalk.send(self['@argVariables'], "_add_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [each]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C%20")]);})]);
|
1864
|
-
(function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%29%7B")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [unescape("var%20self%3Dthis%3B")]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);
|
1865
|
-
(str=self['@stream']);
|
1866
|
-
(self['@stream']=smalltalk.send("", "_writeStream", []));
|
1867
|
-
smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){return smalltalk.send(self, "_visit_", [each]);})]);
|
1868
|
-
((($receiver = self['@earlyReturn']).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(str, "_nextPutAll_", [unescape("try%7B")]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(str, "_nextPutAll_", [unescape("try%7B")]);})]));
|
1869
|
-
smalltalk.send(str, "_nextPutAll_", [smalltalk.send(self['@stream'], "_contents", [])]);
|
1870
|
-
(self['@stream']=str);
|
1871
|
-
(function($rec){smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [unescape("return%20self%3B")]);})(self['@stream']);
|
1872
|
-
((($receiver = self['@earlyReturn']).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (function($rec){smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%7D%20catch%28e%29%20%7Bif%28e.name%20%3D%3D%3D%20%27stReturn%27%20%26%26%20e.selector%20%3D%3D%3D%20"), "__comma", [smalltalk.send(self['@currentSelector'], "_printString", [])]), "__comma", [unescape("%29%7Breturn%20e.fn%28%29%7D%20throw%28e%29%7D")])]);})(self['@stream']);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return (function($rec){smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%7D%20catch%28e%29%20%7Bif%28e.name%20%3D%3D%3D%20%27stReturn%27%20%26%26%20e.selector%20%3D%3D%3D%20"), "__comma", [smalltalk.send(self['@currentSelector'], "_printString", [])]), "__comma", [unescape("%29%7Breturn%20e.fn%28%29%7D%20throw%28e%29%7D")])]);})(self['@stream']);})]));
|
1873
|
-
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D")]);
|
1874
|
-
(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%2C"), "__comma", [smalltalk.send((smalltalk.String || String), "_lf", [])]), "__comma", ["messageSends: "])]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(self['@messageSends'], "_asJavascript", []), "__comma", [unescape("%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("args: ", "__comma", [smalltalk.send(self['@argVariables'], "_asJavascript", [])]), "__comma", [unescape("%2C")])]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [unescape("referencedClasses%3A%20%5B")]);})(self['@stream']);
|
1875
|
-
smalltalk.send(self['@referencedClasses'], "_do_separatedBy_", [(function(each){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(each, "_printString", [])]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C")]);})]);
|
1876
|
-
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%5D")]);
|
1877
|
-
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%29")]);
|
1890
|
+
return (function($rec){smalltalk.send($rec, "_addAll_", [smalltalk.send(self, "_tempVariables", [])]);smalltalk.send($rec, "_addAll_", [smalltalk.send(self, "_argVariables", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_pseudoVariables", []));
|
1878
1891
|
return self;},
|
1879
|
-
args: [
|
1880
|
-
source: unescape('
|
1881
|
-
messageSends: ["
|
1882
|
-
referencedClasses: [
|
1892
|
+
args: [],
|
1893
|
+
source: unescape('knownVariables%0A%09%5Eself%20pseudoVariables%20%0A%09%09addAll%3A%20self%20tempVariables%3B%0A%09%09addAll%3A%20self%20argVariables%3B%0A%09%09yourself'),
|
1894
|
+
messageSends: ["addAll:", "tempVariables", "argVariables", "yourself", "pseudoVariables"],
|
1895
|
+
referencedClasses: []
|
1883
1896
|
}),
|
1884
1897
|
smalltalk.Compiler);
|
1885
1898
|
|
1886
1899
|
smalltalk.addMethod(
|
1887
|
-
unescape('
|
1900
|
+
unescape('_recompile_'),
|
1888
1901
|
smalltalk.method({
|
1889
|
-
selector: unescape('
|
1890
|
-
category: '
|
1891
|
-
fn: function (
|
1902
|
+
selector: unescape('recompile%3A'),
|
1903
|
+
category: 'compiling',
|
1904
|
+
fn: function (aClass){
|
1892
1905
|
var self=this;
|
1893
|
-
smalltalk.send(
|
1894
|
-
|
1895
|
-
smalltalk.send(self[
|
1896
|
-
|
1897
|
-
|
1898
|
-
|
1899
|
-
|
1900
|
-
source: unescape('visitBlockNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20%27%28function%28%27.%0A%09aNode%20parameters%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%0A%09%09tempVariables%20add%3A%20each.%0A%09%09stream%20nextPutAll%3A%20each%5D%0A%09%20%20%20%20separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%20%27%5D.%0A%09stream%20nextPutAll%3A%20%27%29%7B%27.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%20self%20visit%3A%20each%5D.%0A%09stream%20nextPutAll%3A%20%27%7D%29%27'),
|
1901
|
-
messageSends: ["nextPutAll:", "do:separatedBy:", "parameters", "add:", "do:", "nodes", "visit:"],
|
1906
|
+
smalltalk.send(smalltalk.send(aClass, "_methodDictionary", []), "_do_", [(function(each){var method=nil;
|
1907
|
+
(method=smalltalk.send(self, "_load_forClass_", [smalltalk.send(each, "_source", []), aClass]));smalltalk.send(method, "_category_", [smalltalk.send(each, "_category", [])]);return smalltalk.send(aClass, "_addCompiledMethod_", [method]);})]);
|
1908
|
+
((($receiver = smalltalk.send(aClass, "_isMetaclass", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self, "_recompile_", [smalltalk.send(aClass, "_class", [])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self, "_recompile_", [smalltalk.send(aClass, "_class", [])]);})]));
|
1909
|
+
return self;},
|
1910
|
+
args: ["aClass"],
|
1911
|
+
source: unescape('recompile%3A%20aClass%0A%09aClass%20methodDictionary%20do%3A%20%5B%3Aeach%20%7C%7C%20method%20%7C%0A%09%09method%20%3A%3D%20self%20load%3A%20each%20source%20forClass%3A%20aClass.%0A%09%09method%20category%3A%20each%20category.%0A%09%09aClass%20addCompiledMethod%3A%20method%5D.%0A%09aClass%20isMetaclass%20ifFalse%3A%20%5Bself%20recompile%3A%20aClass%20class%5D'),
|
1912
|
+
messageSends: ["do:", "methodDictionary", "load:forClass:", "source", "category:", "category", "addCompiledMethod:", "ifFalse:", "isMetaclass", "recompile:", "class"],
|
1902
1913
|
referencedClasses: []
|
1903
1914
|
}),
|
1904
1915
|
smalltalk.Compiler);
|
1905
1916
|
|
1906
1917
|
smalltalk.addMethod(
|
1907
|
-
unescape('
|
1918
|
+
unescape('_recompileAll'),
|
1908
1919
|
smalltalk.method({
|
1909
|
-
selector: unescape('
|
1910
|
-
category: '
|
1911
|
-
fn: function (
|
1920
|
+
selector: unescape('recompileAll'),
|
1921
|
+
category: 'compiling',
|
1922
|
+
fn: function (){
|
1912
1923
|
var self=this;
|
1913
|
-
smalltalk.send(smalltalk.send(
|
1914
|
-
(temp=smalltalk.send(self, "_safeVariableNameFor_", [each]));smalltalk.send(self['@tempVariables'], "_add_", [temp]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("var ", "__comma", [temp]), "__comma", [unescape("%3Dnil%3B")])]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);})]);
|
1915
|
-
smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_separatedBy_", [(function(each){smalltalk.send(self, "_visit_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3B")]);}), (function(){return smalltalk.send(self['@stream'], "_lf", []);})]);
|
1924
|
+
smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_classes", []), "_do_", [(function(each){(function($rec){smalltalk.send($rec, "_show_", [each]);return smalltalk.send($rec, "_cr", []);})((smalltalk.Transcript || Transcript));return smalltalk.send((function(){return smalltalk.send(self, "_recompile_", [each]);}), "_valueWithTimeout_", [(100)]);})]);
|
1916
1925
|
return self;},
|
1917
|
-
args: [
|
1918
|
-
source: unescape('
|
1919
|
-
messageSends: ["do:", "
|
1920
|
-
referencedClasses: []
|
1926
|
+
args: [],
|
1927
|
+
source: unescape('recompileAll%0A%09Smalltalk%20current%20classes%20do%3A%20%5B%3Aeach%20%7C%0A%09%09Transcript%20show%3A%20each%3B%20cr.%0A%09%09%5Bself%20recompile%3A%20each%5D%20valueWithTimeout%3A%20100%5D'),
|
1928
|
+
messageSends: ["do:", "classes", "current", "show:", "cr", "valueWithTimeout:", "recompile:"],
|
1929
|
+
referencedClasses: ["Smalltalk", "Transcript"]
|
1921
1930
|
}),
|
1922
1931
|
smalltalk.Compiler);
|
1923
1932
|
|
1924
1933
|
smalltalk.addMethod(
|
1925
|
-
unescape('
|
1934
|
+
unescape('_classNameFor_'),
|
1926
1935
|
smalltalk.method({
|
1927
|
-
selector: unescape('
|
1928
|
-
category: '
|
1929
|
-
fn: function (
|
1936
|
+
selector: unescape('classNameFor%3A'),
|
1937
|
+
category: 'accessing',
|
1938
|
+
fn: function (aClass){
|
1930
1939
|
var self=this;
|
1931
|
-
|
1932
|
-
(self['@nestedBlocks']=((($receiver = self['@nestedBlocks']).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));
|
1933
|
-
((($receiver = smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_isEmpty", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("return%20nil%3B")]);})() : (function(){smalltalk.send(smalltalk.send(aNode, "_temps", []), "_do_", [(function(each){var temp=nil;
|
1934
|
-
(temp=smalltalk.send(self, "_safeVariableNameFor_", [each]));smalltalk.send(self['@tempVariables'], "_add_", [temp]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("var ", "__comma", [temp]), "__comma", [unescape("%3Dnil%3B")])]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);})]);(index=(0));return smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){(index=((($receiver = index).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));((($receiver = smalltalk.send(index, "__eq", [smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_size", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})]));smalltalk.send(self, "_visit_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3B")]);})]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("return%20nil%3B")]);}), (function(){smalltalk.send(smalltalk.send(aNode, "_temps", []), "_do_", [(function(each){var temp=nil;
|
1935
|
-
(temp=smalltalk.send(self, "_safeVariableNameFor_", [each]));smalltalk.send(self['@tempVariables'], "_add_", [temp]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("var ", "__comma", [temp]), "__comma", [unescape("%3Dnil%3B")])]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);})]);(index=(0));return smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){(index=((($receiver = index).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));((($receiver = smalltalk.send(index, "__eq", [smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_size", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})]));smalltalk.send(self, "_visit_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3B")]);})]);})]));
|
1936
|
-
(self['@nestedBlocks']=((($receiver = self['@nestedBlocks']).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])));
|
1940
|
+
return ((($receiver = smalltalk.send(aClass, "_isMetaclass", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [".klass"]);})() : (function(){return ((($receiver = smalltalk.send(aClass, "_isNil", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "nil";})() : (function(){return smalltalk.send(aClass, "_name", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [".klass"]);}), (function(){return ((($receiver = smalltalk.send(aClass, "_isNil", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "nil";})() : (function(){return smalltalk.send(aClass, "_name", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]));})]));
|
1937
1941
|
return self;},
|
1938
|
-
args: ["
|
1939
|
-
source: unescape('
|
1940
|
-
messageSends: [
|
1942
|
+
args: ["aClass"],
|
1943
|
+
source: unescape('classNameFor%3A%20aClass%0A%09%5EaClass%20isMetaclass%0A%09%20%20%20%20ifTrue%3A%20%5BaClass%20instanceClass%20name%2C%20%27.klass%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5B%0A%09%09aClass%20isNil%0A%09%09%20%20%20%20ifTrue%3A%20%5B%27nil%27%5D%0A%09%09%20%20%20%20ifFalse%3A%20%5BaClass%20name%5D%5D'),
|
1944
|
+
messageSends: ["ifTrue:ifFalse:", "isMetaclass", unescape("%2C"), "name", "instanceClass", "isNil"],
|
1941
1945
|
referencedClasses: []
|
1942
1946
|
}),
|
1943
1947
|
smalltalk.Compiler);
|
1944
1948
|
|
1945
1949
|
smalltalk.addMethod(
|
1946
|
-
unescape('
|
1950
|
+
unescape('_visitFailure_'),
|
1947
1951
|
smalltalk.method({
|
1948
|
-
selector: unescape('
|
1952
|
+
selector: unescape('visitFailure%3A'),
|
1949
1953
|
category: 'visiting',
|
1950
|
-
fn: function (
|
1954
|
+
fn: function (aFailure){
|
1951
1955
|
var self=this;
|
1952
|
-
|
1953
|
-
((($receiver = self['@earlyReturn']).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%28function%28%29%7Bthrow%28")]);smalltalk.send($rec, "_nextPutAll_", [unescape("%7Bname%3A%20%27stReturn%27%2C%20selector%3A%20")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self['@currentSelector'], "_printString", [])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%2C%20fn%3A%20function%28%29%7Breturn%20")]);})(self['@stream']);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%28function%28%29%7Bthrow%28")]);smalltalk.send($rec, "_nextPutAll_", [unescape("%7Bname%3A%20%27stReturn%27%2C%20selector%3A%20")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self['@currentSelector'], "_printString", [])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%2C%20fn%3A%20function%28%29%7Breturn%20")]);})(self['@stream']);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})]));
|
1954
|
-
smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){return smalltalk.send(self, "_visit_", [each]);})]);
|
1955
|
-
((($receiver = self['@earlyReturn']).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%7D%29%7D%29%28%29")]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%7D%29%7D%29%28%29")]);})]));
|
1956
|
+
smalltalk.send(self, "_error_", [smalltalk.send(aFailure, "_asString", [])]);
|
1956
1957
|
return self;},
|
1957
|
-
args: ["
|
1958
|
-
source: unescape('
|
1959
|
-
messageSends: ["
|
1958
|
+
args: ["aFailure"],
|
1959
|
+
source: unescape('visitFailure%3A%20aFailure%0A%09self%20error%3A%20aFailure%20asString'),
|
1960
|
+
messageSends: ["error:", "asString"],
|
1960
1961
|
referencedClasses: []
|
1961
1962
|
}),
|
1962
1963
|
smalltalk.Compiler);
|
1963
1964
|
|
1964
1965
|
smalltalk.addMethod(
|
1965
|
-
unescape('
|
1966
|
+
unescape('_setupClass_'),
|
1966
1967
|
smalltalk.method({
|
1967
|
-
selector: unescape('
|
1968
|
-
category: '
|
1969
|
-
fn: function (
|
1968
|
+
selector: unescape('setupClass%3A'),
|
1969
|
+
category: 'compiling',
|
1970
|
+
fn: function (aClass){
|
1970
1971
|
var self=this;
|
1971
|
-
|
1972
|
-
var receiver=nil;
|
1973
|
-
var superSend=nil;
|
1974
|
-
var inlined=nil;
|
1975
|
-
(str=self['@stream']);
|
1976
|
-
((($receiver = smalltalk.send(self['@messageSends'], "_includes_", [smalltalk.send(aNode, "_selector", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self['@messageSends'], "_add_", [smalltalk.send(aNode, "_selector", [])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self['@messageSends'], "_add_", [smalltalk.send(aNode, "_selector", [])]);})]));
|
1977
|
-
(self['@stream']=smalltalk.send("", "_writeStream", []));
|
1978
|
-
smalltalk.send(self, "_visit_", [smalltalk.send(aNode, "_receiver", [])]);
|
1979
|
-
(superSend=smalltalk.send(smalltalk.send(self['@stream'], "_contents", []), "__eq", ["super"]));
|
1980
|
-
(receiver=((($receiver = superSend).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "self";})() : (function(){return smalltalk.send(self['@stream'], "_contents", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "self";}), (function(){return smalltalk.send(self['@stream'], "_contents", []);})])));
|
1981
|
-
(self['@stream']=str);
|
1982
|
-
((($receiver = smalltalk.send(self, "_performOptimizations", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_inlineLiteral_receiverNode_argumentNodes_", [smalltalk.send(aNode, "_selector", []), smalltalk.send(aNode, "_receiver", []), smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return ((($receiver = smalltalk.send(self, "_inline_receiver_argumentNodes_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})]));})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return ((($receiver = smalltalk.send(self, "_inline_receiver_argumentNodes_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})]));})]));})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return ((($receiver = smalltalk.send(self, "_inlineLiteral_receiverNode_argumentNodes_", [smalltalk.send(aNode, "_selector", []), smalltalk.send(aNode, "_receiver", []), smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return ((($receiver = smalltalk.send(self, "_inline_receiver_argumentNodes_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})]));})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return ((($receiver = smalltalk.send(self, "_inline_receiver_argumentNodes_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})]));})]));}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})]));
|
1972
|
+
smalltalk.init(aClass);
|
1983
1973
|
return self;},
|
1984
|
-
args: ["
|
1985
|
-
source: unescape('
|
1986
|
-
messageSends: [
|
1974
|
+
args: ["aClass"],
|
1975
|
+
source: unescape('setupClass%3A%20aClass%0A%09%3Csmalltalk.init%28aClass%29%3E'),
|
1976
|
+
messageSends: [],
|
1987
1977
|
referencedClasses: []
|
1988
1978
|
}),
|
1989
1979
|
smalltalk.Compiler);
|
1990
1980
|
|
1991
1981
|
smalltalk.addMethod(
|
1992
|
-
unescape('
|
1982
|
+
unescape('_send_to_arguments_superSend_'),
|
1993
1983
|
smalltalk.method({
|
1994
|
-
selector: unescape('
|
1984
|
+
selector: unescape('send%3Ato%3Aarguments%3AsuperSend%3A'),
|
1995
1985
|
category: 'visiting',
|
1996
|
-
fn: function (
|
1986
|
+
fn: function (aSelector, aReceiver, aCollection, aBoolean){
|
1997
1987
|
var self=this;
|
1998
|
-
var
|
1999
|
-
(
|
2000
|
-
((($receiver = smalltalk.send(self['@tempVariables'], "_includes_", ["$rec"])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self['@tempVariables'], "_add_", ["$rec"]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self['@tempVariables'], "_add_", ["$rec"]);})]));
|
2001
|
-
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%24rec%29%7B")]);
|
2002
|
-
smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){(index=((($receiver = index).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));((($receiver = smalltalk.send(index, "__eq", [smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_size", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})]));smalltalk.send(each, "_receiver_", [smalltalk.send(smalltalk.send((smalltalk.VariableNode || VariableNode), "_new", []), "_value_", ["$rec"])]);smalltalk.send(self, "_visit_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3B")]);})]);
|
2003
|
-
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%29%28")]);
|
2004
|
-
smalltalk.send(self, "_visit_", [smalltalk.send(aNode, "_receiver", [])]);
|
2005
|
-
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29")]);
|
1988
|
+
return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(str){var tmp=nil;
|
1989
|
+
(tmp=self['@stream']);smalltalk.send(str, "_nextPutAll_", [unescape("smalltalk.send%28")]);smalltalk.send(str, "_nextPutAll_", [aReceiver]);smalltalk.send(str, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%2C%20%22"), "__comma", [smalltalk.send(aSelector, "_asSelector", [])]), "__comma", [unescape("%22%2C%20%5B")])]);(self['@stream']=str);smalltalk.send(aCollection, "_do_separatedBy_", [(function(each){return smalltalk.send(self, "_visit_", [each]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C%20")]);})]);(self['@stream']=tmp);smalltalk.send(str, "_nextPutAll_", [unescape("%5D")]);((($receiver = aBoolean).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(str, "_nextPutAll_", [smalltalk.send(unescape("%2C%20smalltalk."), "__comma", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(smalltalk.send(self, "_currentClass", []), "_superclass", [])])])]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(str, "_nextPutAll_", [smalltalk.send(unescape("%2C%20smalltalk."), "__comma", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(smalltalk.send(self, "_currentClass", []), "_superclass", [])])])]);})]));return smalltalk.send(str, "_nextPutAll_", [unescape("%29")]);})]);
|
2006
1990
|
return self;},
|
2007
|
-
args: ["
|
2008
|
-
source: unescape('
|
2009
|
-
messageSends: ["
|
2010
|
-
referencedClasses: ["
|
1991
|
+
args: ["aSelector", "aReceiver", "aCollection", "aBoolean"],
|
1992
|
+
source: unescape('send%3A%20aSelector%20to%3A%20aReceiver%20arguments%3A%20aCollection%20superSend%3A%20aBoolean%0A%09%5EString%20streamContents%3A%20%5B%3Astr%20%7C%7C%20tmp%20%7C%0A%20%20%20%20%20%20%20%20%09tmp%20%3A%3D%20stream.%0A%09%09str%20nextPutAll%3A%20%27smalltalk.send%28%27.%0A%09%09str%20nextPutAll%3A%20aReceiver.%0A%09%09str%20nextPutAll%3A%20%27%2C%20%22%27%2C%20aSelector%20asSelector%2C%20%27%22%2C%20%5B%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20%3A%3D%20str.%0A%09%09aCollection%0A%09%20%20%20%20%09%09do%3A%20%5B%3Aeach%20%7C%20self%20visit%3A%20each%5D%0A%09%20%20%20%20%09%09separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%20%27%5D.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20%3A%3D%20tmp.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20str%20nextPutAll%3A%20%27%5D%27.%0A%09%09aBoolean%20ifTrue%3A%20%5B%0A%09%09%09str%20nextPutAll%3A%20%27%2C%20smalltalk.%27%2C%20%28self%20classNameFor%3A%20self%20currentClass%20superclass%29%5D.%0A%09%09str%20nextPutAll%3A%20%27%29%27%5D'),
|
1993
|
+
messageSends: ["streamContents:", "nextPutAll:", unescape("%2C"), "asSelector", "do:separatedBy:", "visit:", "ifTrue:", "classNameFor:", "superclass", "currentClass"],
|
1994
|
+
referencedClasses: ["String"]
|
2011
1995
|
}),
|
2012
1996
|
smalltalk.Compiler);
|
2013
1997
|
|
2014
1998
|
smalltalk.addMethod(
|
2015
|
-
unescape('
|
1999
|
+
unescape('_checkClass_for_'),
|
2016
2000
|
smalltalk.method({
|
2017
|
-
selector: unescape('
|
2018
|
-
category: '
|
2019
|
-
fn: function (
|
2001
|
+
selector: unescape('checkClass%3Afor%3A'),
|
2002
|
+
category: 'optimizations',
|
2003
|
+
fn: function (aClassName, receiver){
|
2020
2004
|
var self=this;
|
2021
|
-
smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(
|
2005
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28%28%28%24receiver%20%3D%20"), "__comma", [receiver]), "__comma", [unescape("%29.klass%20%3D%3D%3D%20smalltalk.")]), "__comma", [aClassName]), "__comma", [unescape("%29%20%3F%20")])]);
|
2022
2006
|
return self;},
|
2023
|
-
args: ["
|
2024
|
-
source: unescape('
|
2025
|
-
messageSends: ["nextPutAll:", "
|
2007
|
+
args: ["aClassName", "receiver"],
|
2008
|
+
source: unescape('checkClass%3A%20aClassName%20for%3A%20receiver%0A%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%28%28%28%24receiver%20%3D%20%27%2C%20receiver%2C%20%27%29.klass%20%3D%3D%3D%20smalltalk.%27%2C%20aClassName%2C%20%27%29%20%3F%20%27'),
|
2009
|
+
messageSends: ["nextPutAll:", unescape("%2C")],
|
2026
2010
|
referencedClasses: []
|
2027
2011
|
}),
|
2028
2012
|
smalltalk.Compiler);
|
2029
2013
|
|
2030
2014
|
smalltalk.addMethod(
|
2031
|
-
unescape('
|
2015
|
+
unescape('_inlineLiteral_receiverNode_argumentNodes_'),
|
2032
2016
|
smalltalk.method({
|
2033
|
-
selector: unescape('
|
2034
|
-
category: '
|
2035
|
-
fn: function (
|
2017
|
+
selector: unescape('inlineLiteral%3AreceiverNode%3AargumentNodes%3A'),
|
2018
|
+
category: 'optimizations',
|
2019
|
+
fn: function (aSelector, anObject, aCollection){
|
2036
2020
|
var self=this;
|
2037
|
-
|
2038
|
-
|
2039
|
-
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%
|
2040
|
-
smalltalk.send(self, "_visit_", [smalltalk.send(
|
2041
|
-
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29")]);
|
2021
|
+
var inlined=nil;
|
2022
|
+
(inlined=false);
|
2023
|
+
((($receiver = smalltalk.send(aSelector, "__eq", ["whileTrue:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(anObject, "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(anObject, "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})]));})]));
|
2024
|
+
((($receiver = smalltalk.send(aSelector, "__eq", ["whileFalse:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(anObject, "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(anObject, "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})]));})]));
|
2025
|
+
((($receiver = smalltalk.send(aSelector, "__eq", ["whileTrue"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(anObject, "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(anObject, "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})]));})]));
|
2026
|
+
((($receiver = smalltalk.send(aSelector, "__eq", ["whileFalse"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(anObject, "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(anObject, "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})]));})]));
|
2027
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("+")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20+%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20+%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20+%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20+%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2028
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("-")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20-%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20-%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20-%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20-%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2029
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("*")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20*%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20*%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20*%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20*%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2030
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("/")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20/%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20/%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20/%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20/%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2031
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3C")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2032
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3C%3D")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2033
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3E")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2034
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3E%3D")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2035
|
+
((($receiver = smalltalk.send(aSelector, "__eq", ["ifNil:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20%24receiver")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20%24receiver")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20%24receiver")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20%24receiver")]);return (inlined=true);})]));})]));
|
2036
|
+
((($receiver = smalltalk.send(aSelector, "__eq", ["ifNotNil:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%21%3D%20nil%20%26%26%20%24receiver%20%21%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%21%3D%20nil%20%26%26%20%24receiver%20%21%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%21%3D%20nil%20%26%26%20%24receiver%20%21%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%21%3D%20nil%20%26%26%20%24receiver%20%21%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil")]);return (inlined=true);})]));})]));
|
2037
|
+
((($receiver = smalltalk.send(aSelector, "__eq", ["ifNil:ifNotNil:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})]));})]));
|
2038
|
+
((($receiver = smalltalk.send(aSelector, "__eq", ["ifNotNil:ifNil:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})]));})]));
|
2039
|
+
return inlined;
|
2042
2040
|
return self;},
|
2043
|
-
args: ["
|
2044
|
-
source: unescape('visitAssignmentNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20%27%28%27.%0A%09self%20visit%3A%20aNode%20left.%0A%09stream%20nextPutAll%3A%20%27%3D%27.%0A%09self%20visit%3A%20aNode%20right.%0A%09stream%20nextPutAll%3A%20%27%29%27'),
|
2045
|
-
messageSends: ["nextPutAll:", "visit:", "
|
2046
|
-
referencedClasses: []
|
2041
|
+
args: ["aSelector", "anObject", "aCollection"],
|
2042
|
+
source: unescape('inlineLiteral%3A%20aSelector%20receiverNode%3A%20anObject%20argumentNodes%3A%20aCollection%0A%20%20%20%20%20%20%20%20%7C%20inlined%20%7C%0A%20%20%20%20%20%20%20%20inlined%20%3A%3D%20false.%0A%20%0A%09%22--%20BlockClosures%20--%22%0A%0A%09%28aSelector%20%3D%20%27whileTrue%3A%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28anObject%20isBlockNode%20and%3A%20%5BaCollection%20first%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28function%28%29%7Bwhile%28%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%29%20%7B%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%7D%7D%29%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27whileFalse%3A%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28anObject%20isBlockNode%20and%3A%20%5BaCollection%20first%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28function%28%29%7Bwhile%28%21%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%29%20%7B%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%7D%7D%29%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27whileTrue%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09anObject%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28function%28%29%7Bwhile%28%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%29%20%7B%7D%7D%29%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27whileFalse%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09anObject%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28function%28%29%7Bwhile%28%21%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%29%20%7B%7D%7D%29%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%22--%20Numbers%20--%22%0A%0A%09%28aSelector%20%3D%20%27+%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20+%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27-%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20-%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27*%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20*%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27/%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20/%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27%3C%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20%3C%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27%3C%3D%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20%3C%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27%3E%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20%3E%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27%3E%3D%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20%3E%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%20%20%20%0A%09%22--%20UndefinedObject%20--%22%0A%0A%09%28aSelector%20%3D%20%27ifNil%3A%27%29%20ifTrue%3A%20%5B%0A%09%09aCollection%20first%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%28%24receiver%20%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20%24receiver%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27ifNotNil%3A%27%29%20ifTrue%3A%20%5B%0A%09%09aCollection%20first%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%28%24receiver%20%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%29%20%21%3D%20nil%20%26%26%20%24receiver%20%21%3D%20undefined%29%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20nil%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27ifNil%3AifNotNil%3A%27%29%20ifTrue%3A%20%5B%0A%09%09%28aCollection%20first%20isBlockNode%20and%3A%20%5BaCollection%20second%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%28%24receiver%20%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20second.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27ifNotNil%3AifNil%3A%27%29%20ifTrue%3A%20%5B%0A%09%09%28aCollection%20first%20isBlockNode%20and%3A%20%5BaCollection%20second%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%28%24receiver%20%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20second.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%5Einlined'),
|
2043
|
+
messageSends: ["ifTrue:", unescape("%3D"), "and:", "isBlockNode", "first", "nextPutAll:", "visit:", "isNode:ofClass:", "second"],
|
2044
|
+
referencedClasses: ["Number"]
|
2047
2045
|
}),
|
2048
2046
|
smalltalk.Compiler);
|
2049
2047
|
|
2050
2048
|
smalltalk.addMethod(
|
2051
|
-
unescape('
|
2049
|
+
unescape('_isNode_ofClass_'),
|
2052
2050
|
smalltalk.method({
|
2053
|
-
selector: unescape('
|
2054
|
-
category: '
|
2055
|
-
fn: function (aNode){
|
2051
|
+
selector: unescape('isNode%3AofClass%3A'),
|
2052
|
+
category: 'optimizations',
|
2053
|
+
fn: function (aNode, aClass){
|
2056
2054
|
var self=this;
|
2057
|
-
|
2058
|
-
smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28smalltalk."), "__comma", [smalltalk.send(aNode, "_value", [])]), "__comma", [unescape("%20%7C%7C%20")]), "__comma", [smalltalk.send(aNode, "_value", [])]), "__comma", [unescape("%29")])]);
|
2055
|
+
return smalltalk.send(smalltalk.send(aNode, "_isValueNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aNode, "_value", []), "_class", []), "__eq", [aClass]), "_or_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(aNode, "_value", []), "__eq", ["self"]), "_and_", [(function(){return smalltalk.send(smalltalk.send(self, "_currentClass", []), "__eq", [aClass]);})]);})]);})]);
|
2059
2056
|
return self;},
|
2060
|
-
args: ["aNode"],
|
2061
|
-
source: unescape('
|
2062
|
-
messageSends: ["
|
2057
|
+
args: ["aNode", "aClass"],
|
2058
|
+
source: unescape('isNode%3A%20aNode%20ofClass%3A%20aClass%0A%09%5EaNode%20isValueNode%20and%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09aNode%20value%20class%20%3D%20aClass%20or%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%09aNode%20value%20%3D%20%27self%27%20and%3A%20%5Bself%20currentClass%20%3D%20aClass%5D%5D%5D'),
|
2059
|
+
messageSends: ["and:", "isValueNode", "or:", unescape("%3D"), "class", "value", "currentClass"],
|
2063
2060
|
referencedClasses: []
|
2064
2061
|
}),
|
2065
2062
|
smalltalk.Compiler);
|
2066
2063
|
|
2067
2064
|
smalltalk.addMethod(
|
2068
|
-
unescape('
|
2065
|
+
unescape('_inline_receiver_argumentNodes_'),
|
2069
2066
|
smalltalk.method({
|
2070
|
-
selector: unescape('
|
2071
|
-
category: '
|
2072
|
-
fn: function (
|
2067
|
+
selector: unescape('inline%3Areceiver%3AargumentNodes%3A'),
|
2068
|
+
category: 'optimizations',
|
2069
|
+
fn: function (aSelector, receiver, aCollection){
|
2073
2070
|
var self=this;
|
2074
|
-
var
|
2075
|
-
(
|
2071
|
+
var inlined=nil;
|
2072
|
+
(inlined=false);
|
2073
|
+
((($receiver = smalltalk.send(aSelector, "__eq", ["ifFalse:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})]));})]));
|
2074
|
+
((($receiver = smalltalk.send(aSelector, "__eq", ["ifTrue:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})]));})]));
|
2075
|
+
((($receiver = smalltalk.send(aSelector, "__eq", ["ifTrue:ifFalse:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})]));})]));
|
2076
|
+
((($receiver = smalltalk.send(aSelector, "__eq", ["ifFalse:ifTrue:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})]));})]));
|
2077
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3C")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3C")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3C")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2078
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3C%3D")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3C%3D")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3C%3D")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2079
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3E")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3E")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3E")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2080
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3E%3D")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3E%3D")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3E%3D")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2081
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("+")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20+")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20+")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2082
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("-")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20-")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20-")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2083
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("*")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20*")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20*")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2084
|
+
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("/")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20/")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20/")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2085
|
+
return inlined;
|
2076
2086
|
return self;},
|
2077
|
-
args: ["
|
2078
|
-
source: unescape('
|
2079
|
-
messageSends: ["ifTrue:
|
2087
|
+
args: ["aSelector", "receiver", "aCollection"],
|
2088
|
+
source: unescape('inline%3A%20aSelector%20receiver%3A%20receiver%20argumentNodes%3A%20aCollection%0A%20%20%20%20%20%20%20%20%7C%20inlined%20%7C%0A%20%20%20%20%20%20%20%20inlined%20%3A%3D%20false.%0A%0A%09%22--%20Booleans%20--%22%0A%0A%09%28aSelector%20%3D%20%27ifFalse%3A%27%29%20ifTrue%3A%20%5B%0A%09%09aCollection%20first%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20checkClass%3A%20%27Boolean%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%21%20%24receiver%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20nil%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27ifTrue%3A%27%29%20ifTrue%3A%20%5B%0A%09%09aCollection%20first%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20checkClass%3A%20%27Boolean%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%24receiver%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20nil%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27ifTrue%3AifFalse%3A%27%29%20ifTrue%3A%20%5B%0A%09%09%28aCollection%20first%20isBlockNode%20and%3A%20%5BaCollection%20second%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20checkClass%3A%20%27Boolean%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%24receiver%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20aCollection%20second.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27ifFalse%3AifTrue%3A%27%29%20ifTrue%3A%20%5B%0A%09%09%28aCollection%20first%20isBlockNode%20and%3A%20%5BaCollection%20second%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20checkClass%3A%20%27Boolean%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%21%20%24receiver%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20aCollection%20second.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%22--%20Numbers%20--%22%0A%0A%09%28aSelector%20%3D%20%27%3C%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20%3C%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%09%28aSelector%20%3D%20%27%3C%3D%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20%3C%3D%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%09%28aSelector%20%3D%20%27%3E%27%29%20ifTrue%3A%20%5B%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20%3E%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%09%28aSelector%20%3D%20%27%3E%3D%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20%3E%3D%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%20%20%20%20%20%20%20%20%28aSelector%20%3D%20%27+%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20+%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%20%20%20%20%20%20%20%20%28aSelector%20%3D%20%27-%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20-%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%20%20%20%20%20%20%20%20%28aSelector%20%3D%20%27*%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20*%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%20%20%20%20%20%20%20%20%28aSelector%20%3D%20%27/%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20/%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%20%20%20%20%20%20%20%20%5Einlined'),
|
2089
|
+
messageSends: ["ifTrue:", unescape("%3D"), "isBlockNode", "first", "checkClass:for:", "nextPutAll:", "visit:", "and:", "second"],
|
2080
2090
|
referencedClasses: []
|
2081
2091
|
}),
|
2082
2092
|
smalltalk.Compiler);
|
2083
2093
|
|
2084
2094
|
smalltalk.addMethod(
|
2085
|
-
unescape('
|
2095
|
+
unescape('_performOptimizations'),
|
2086
2096
|
smalltalk.method({
|
2087
|
-
selector: unescape('
|
2088
|
-
category: '
|
2089
|
-
fn: function (
|
2097
|
+
selector: unescape('performOptimizations'),
|
2098
|
+
category: 'testing',
|
2099
|
+
fn: function (){
|
2090
2100
|
var self=this;
|
2091
|
-
|
2101
|
+
return smalltalk.send(smalltalk.send(self, "_class", []), "_performOptimizations", []);
|
2092
2102
|
return self;},
|
2093
|
-
args: [
|
2094
|
-
source: unescape('
|
2095
|
-
messageSends: ["
|
2103
|
+
args: [],
|
2104
|
+
source: unescape('performOptimizations%0A%09%5Eself%20class%20performOptimizations'),
|
2105
|
+
messageSends: ["performOptimizations", "class"],
|
2096
2106
|
referencedClasses: []
|
2097
2107
|
}),
|
2098
2108
|
smalltalk.Compiler);
|
2099
2109
|
|
2100
2110
|
smalltalk.addMethod(
|
2101
|
-
unescape('
|
2111
|
+
unescape('_source'),
|
2102
2112
|
smalltalk.method({
|
2103
|
-
selector: unescape('
|
2104
|
-
category: '
|
2105
|
-
fn: function (
|
2113
|
+
selector: unescape('source'),
|
2114
|
+
category: 'accessing',
|
2115
|
+
fn: function (){
|
2106
2116
|
var self=this;
|
2107
|
-
return
|
2117
|
+
return (($receiver = self['@source']) == nil || $receiver == undefined) ? (function(){return "";})() : $receiver;
|
2108
2118
|
return self;},
|
2109
|
-
args: [
|
2110
|
-
source: unescape('
|
2111
|
-
messageSends: ["
|
2112
|
-
referencedClasses: [
|
2119
|
+
args: [],
|
2120
|
+
source: unescape('source%0A%09%5Esource%20ifNil%3A%20%5B%27%27%5D'),
|
2121
|
+
messageSends: ["ifNil:"],
|
2122
|
+
referencedClasses: []
|
2113
2123
|
}),
|
2114
2124
|
smalltalk.Compiler);
|
2115
2125
|
|
2116
2126
|
smalltalk.addMethod(
|
2117
|
-
unescape('
|
2127
|
+
unescape('_source_'),
|
2118
2128
|
smalltalk.method({
|
2119
|
-
selector: unescape('
|
2120
|
-
category: '
|
2129
|
+
selector: unescape('source%3A'),
|
2130
|
+
category: 'accessing',
|
2121
2131
|
fn: function (aString){
|
2122
2132
|
var self=this;
|
2123
|
-
|
2133
|
+
(self['@source']=aString);
|
2124
2134
|
return self;},
|
2125
2135
|
args: ["aString"],
|
2126
|
-
source: unescape('
|
2127
|
-
messageSends: [
|
2136
|
+
source: unescape('source%3A%20aString%0A%09source%20%3A%3D%20aString'),
|
2137
|
+
messageSends: [],
|
2128
2138
|
referencedClasses: []
|
2129
2139
|
}),
|
2130
2140
|
smalltalk.Compiler);
|
2131
2141
|
|
2132
2142
|
smalltalk.addMethod(
|
2133
|
-
unescape('
|
2143
|
+
unescape('_visitDynamicArrayNode_'),
|
2134
2144
|
smalltalk.method({
|
2135
|
-
selector: unescape('
|
2136
|
-
category: '
|
2137
|
-
fn: function (){
|
2145
|
+
selector: unescape('visitDynamicArrayNode%3A'),
|
2146
|
+
category: 'visiting',
|
2147
|
+
fn: function (aNode){
|
2138
2148
|
var self=this;
|
2139
|
-
|
2149
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%5B")]);
|
2150
|
+
smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_separatedBy_", [(function(each){return smalltalk.send(self, "_visit_", [each]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C")]);})]);
|
2151
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%5D")]);
|
2140
2152
|
return self;},
|
2141
|
-
args: [],
|
2142
|
-
source: unescape('
|
2143
|
-
messageSends: ["
|
2153
|
+
args: ["aNode"],
|
2154
|
+
source: unescape('visitDynamicArrayNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20%27%5B%27.%0A%09aNode%20nodes%20%0A%09%09do%3A%20%5B%3Aeach%20%7C%20self%20visit%3A%20each%5D%0A%09%09separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%27%5D.%0A%09stream%20nextPutAll%3A%20%27%5D%27'),
|
2155
|
+
messageSends: ["nextPutAll:", "do:separatedBy:", "nodes", "visit:"],
|
2144
2156
|
referencedClasses: []
|
2145
2157
|
}),
|
2146
2158
|
smalltalk.Compiler);
|
2147
2159
|
|
2148
2160
|
smalltalk.addMethod(
|
2149
|
-
unescape('
|
2161
|
+
unescape('_visitDynamicDictionaryNode_'),
|
2150
2162
|
smalltalk.method({
|
2151
|
-
selector: unescape('
|
2152
|
-
category: '
|
2153
|
-
fn: function (){
|
2163
|
+
selector: unescape('visitDynamicDictionaryNode%3A'),
|
2164
|
+
category: 'visiting',
|
2165
|
+
fn: function (aNode){
|
2154
2166
|
var self=this;
|
2155
|
-
|
2167
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("smalltalk.HashedCollection._fromPairs_%28%5B")]);
|
2168
|
+
smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_separatedBy_", [(function(each){return smalltalk.send(self, "_visit_", [each]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C")]);})]);
|
2169
|
+
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%5D%29")]);
|
2156
2170
|
return self;},
|
2157
|
-
args: [],
|
2158
|
-
source: unescape('
|
2159
|
-
messageSends: [],
|
2171
|
+
args: ["aNode"],
|
2172
|
+
source: unescape('visitDynamicDictionaryNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20%27smalltalk.HashedCollection._fromPairs_%28%5B%27.%0A%09%09aNode%20nodes%20%0A%09%09%09do%3A%20%5B%3Aeach%20%7C%20self%20visit%3A%20each%5D%0A%09%09%09separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%27%5D.%0A%09%09stream%20nextPutAll%3A%20%27%5D%29%27'),
|
2173
|
+
messageSends: ["nextPutAll:", "do:separatedBy:", "nodes", "visit:"],
|
2160
2174
|
referencedClasses: []
|
2161
2175
|
}),
|
2162
2176
|
smalltalk.Compiler);
|
2163
2177
|
|
2164
2178
|
smalltalk.addMethod(
|
2165
|
-
unescape('
|
2179
|
+
unescape('_argVariables'),
|
2166
2180
|
smalltalk.method({
|
2167
|
-
selector: unescape('
|
2181
|
+
selector: unescape('argVariables'),
|
2168
2182
|
category: 'accessing',
|
2169
2183
|
fn: function (){
|
2170
2184
|
var self=this;
|
2171
|
-
return smalltalk.send(self['@
|
2185
|
+
return smalltalk.send(self['@argVariables'], "_copy", []);
|
2172
2186
|
return self;},
|
2173
2187
|
args: [],
|
2174
|
-
source: unescape('
|
2188
|
+
source: unescape('argVariables%0A%09%5EargVariables%20copy'),
|
2175
2189
|
messageSends: ["copy"],
|
2176
2190
|
referencedClasses: []
|
2177
2191
|
}),
|
2178
2192
|
smalltalk.Compiler);
|
2179
2193
|
|
2180
2194
|
smalltalk.addMethod(
|
2181
|
-
unescape('
|
2195
|
+
unescape('_safeVariableNameFor_'),
|
2182
2196
|
smalltalk.method({
|
2183
|
-
selector: unescape('
|
2197
|
+
selector: unescape('safeVariableNameFor%3A'),
|
2184
2198
|
category: 'accessing',
|
2185
|
-
fn: function (){
|
2199
|
+
fn: function (aString){
|
2186
2200
|
var self=this;
|
2187
|
-
return (
|
2201
|
+
return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_reservedWords", []), "_includes_", [aString])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(aString, "__comma", ["_"]);})() : (function(){return aString;})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(aString, "__comma", ["_"]);}), (function(){return aString;})]));
|
2188
2202
|
return self;},
|
2189
|
-
args: [],
|
2190
|
-
source: unescape('
|
2191
|
-
messageSends: ["
|
2192
|
-
referencedClasses: []
|
2203
|
+
args: ["aString"],
|
2204
|
+
source: unescape('safeVariableNameFor%3A%20aString%0A%09%5E%28Smalltalk%20current%20reservedWords%20includes%3A%20aString%29%0A%09%09ifTrue%3A%20%5BaString%2C%20%27_%27%5D%0A%09%09ifFalse%3A%20%5BaString%5D'),
|
2205
|
+
messageSends: ["ifTrue:ifFalse:", "includes:", "reservedWords", "current", unescape("%2C")],
|
2206
|
+
referencedClasses: ["Smalltalk"]
|
2193
2207
|
}),
|
2194
2208
|
smalltalk.Compiler);
|
2195
2209
|
|
2210
|
+
|
2211
|
+
smalltalk.Compiler.klass.iVarNames = ['performOptimizations'];
|
2196
2212
|
smalltalk.addMethod(
|
2197
2213
|
unescape('_recompile_'),
|
2198
2214
|
smalltalk.method({
|
@@ -2201,15 +2217,15 @@ category: 'compiling',
|
|
2201
2217
|
fn: function (aClass){
|
2202
2218
|
var self=this;
|
2203
2219
|
smalltalk.send(smalltalk.send(aClass, "_methodDictionary", []), "_do_", [(function(each){var method=nil;
|
2204
|
-
(method=smalltalk.send(self, "_load_forClass_", [smalltalk.send(each, "_source", []), aClass]));smalltalk.send(method, "_category_", [smalltalk.send(each, "_category", [])]);return smalltalk.send(aClass, "_addCompiledMethod_", [method]);})]);
|
2220
|
+
(method=smalltalk.send(smalltalk.send(self, "_new", []), "_load_forClass_", [smalltalk.send(each, "_source", []), aClass]));smalltalk.send(method, "_category_", [smalltalk.send(each, "_category", [])]);return smalltalk.send(aClass, "_addCompiledMethod_", [method]);})]);
|
2205
2221
|
((($receiver = smalltalk.send(aClass, "_isMetaclass", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self, "_recompile_", [smalltalk.send(aClass, "_class", [])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self, "_recompile_", [smalltalk.send(aClass, "_class", [])]);})]));
|
2206
2222
|
return self;},
|
2207
2223
|
args: ["aClass"],
|
2208
|
-
source: unescape('recompile%3A%20aClass%0A%09aClass%20methodDictionary%20do%3A%20%5B%3Aeach%20%7C%7C%20method%20%7C%0A%09%09method%20%3A%3D%20self%20load%3A%20each%20source%20forClass%3A%20aClass.%0A%09%09method%20category%3A%20each%20category.%0A%09%09aClass%20addCompiledMethod%3A%20method%5D.%0A%09aClass%20isMetaclass%20ifFalse%3A%20%5Bself%20recompile%3A%20aClass%20class%5D'),
|
2209
|
-
messageSends: ["do:", "methodDictionary", "load:forClass:", "source", "category:", "category", "addCompiledMethod:", "ifFalse:", "isMetaclass", "recompile:", "class"],
|
2224
|
+
source: unescape('recompile%3A%20aClass%0A%09aClass%20methodDictionary%20do%3A%20%5B%3Aeach%20%7C%7C%20method%20%7C%0A%09%09method%20%3A%3D%20self%20new%20load%3A%20each%20source%20forClass%3A%20aClass.%0A%09%09method%20category%3A%20each%20category.%0A%09%09aClass%20addCompiledMethod%3A%20method%5D.%0A%09aClass%20isMetaclass%20ifFalse%3A%20%5Bself%20recompile%3A%20aClass%20class%5D'),
|
2225
|
+
messageSends: ["do:", "methodDictionary", "load:forClass:", "new", "source", "category:", "category", "addCompiledMethod:", "ifFalse:", "isMetaclass", "recompile:", "class"],
|
2210
2226
|
referencedClasses: []
|
2211
2227
|
}),
|
2212
|
-
smalltalk.Compiler);
|
2228
|
+
smalltalk.Compiler.klass);
|
2213
2229
|
|
2214
2230
|
smalltalk.addMethod(
|
2215
2231
|
unescape('_recompileAll'),
|
@@ -2218,365 +2234,330 @@ selector: unescape('recompileAll'),
|
|
2218
2234
|
category: 'compiling',
|
2219
2235
|
fn: function (){
|
2220
2236
|
var self=this;
|
2221
|
-
smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_classes", []), "_do_", [(function(each){
|
2237
|
+
smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_classes", []), "_do_", [(function(each){return smalltalk.send(self, "_recompile_", [each]);})]);
|
2222
2238
|
return self;},
|
2223
2239
|
args: [],
|
2224
|
-
source: unescape('recompileAll%0A%09Smalltalk%20current%20classes%20do%3A%20%5B%3Aeach%20%7C%0A%09%
|
2225
|
-
messageSends: ["do:", "classes", "current", "
|
2226
|
-
referencedClasses: ["Smalltalk"
|
2240
|
+
source: unescape('recompileAll%0A%09Smalltalk%20current%20classes%20do%3A%20%5B%3Aeach%20%7C%0A%09%09self%20recompile%3A%20each%5D'),
|
2241
|
+
messageSends: ["do:", "classes", "current", "recompile:"],
|
2242
|
+
referencedClasses: ["Smalltalk"]
|
2227
2243
|
}),
|
2228
|
-
smalltalk.Compiler);
|
2244
|
+
smalltalk.Compiler.klass);
|
2229
2245
|
|
2230
2246
|
smalltalk.addMethod(
|
2231
|
-
unescape('
|
2247
|
+
unescape('_performOptimizations'),
|
2232
2248
|
smalltalk.method({
|
2233
|
-
selector: unescape('
|
2249
|
+
selector: unescape('performOptimizations'),
|
2234
2250
|
category: 'accessing',
|
2235
|
-
fn: function (
|
2236
|
-
var self=this;
|
2237
|
-
return ((($receiver = smalltalk.send(aClass, "_isMetaclass", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [".klass"]);})() : (function(){return ((($receiver = smalltalk.send(aClass, "_isNil", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "nil";})() : (function(){return smalltalk.send(aClass, "_name", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [".klass"]);}), (function(){return ((($receiver = smalltalk.send(aClass, "_isNil", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "nil";})() : (function(){return smalltalk.send(aClass, "_name", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]));})]));
|
2238
|
-
return self;},
|
2239
|
-
args: ["aClass"],
|
2240
|
-
source: unescape('classNameFor%3A%20aClass%0A%09%5EaClass%20isMetaclass%0A%09%20%20%20%20ifTrue%3A%20%5BaClass%20instanceClass%20name%2C%20%27.klass%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5B%0A%09%09aClass%20isNil%0A%09%09%20%20%20%20ifTrue%3A%20%5B%27nil%27%5D%0A%09%09%20%20%20%20ifFalse%3A%20%5BaClass%20name%5D%5D'),
|
2241
|
-
messageSends: ["ifTrue:ifFalse:", "isMetaclass", unescape("%2C"), "name", "instanceClass", "isNil"],
|
2242
|
-
referencedClasses: []
|
2243
|
-
}),
|
2244
|
-
smalltalk.Compiler);
|
2245
|
-
|
2246
|
-
smalltalk.addMethod(
|
2247
|
-
unescape('_visitFailure_'),
|
2248
|
-
smalltalk.method({
|
2249
|
-
selector: unescape('visitFailure%3A'),
|
2250
|
-
category: 'visiting',
|
2251
|
-
fn: function (aFailure){
|
2251
|
+
fn: function (){
|
2252
2252
|
var self=this;
|
2253
|
-
|
2253
|
+
return (($receiver = self['@performOptimizations']) == nil || $receiver == undefined) ? (function(){return true;})() : $receiver;
|
2254
2254
|
return self;},
|
2255
|
-
args: [
|
2256
|
-
source: unescape('
|
2257
|
-
messageSends: ["
|
2255
|
+
args: [],
|
2256
|
+
source: unescape('performOptimizations%0A%09%5EperformOptimizations%20ifNil%3A%20%5Btrue%5D'),
|
2257
|
+
messageSends: ["ifNil:"],
|
2258
2258
|
referencedClasses: []
|
2259
2259
|
}),
|
2260
|
-
smalltalk.Compiler);
|
2260
|
+
smalltalk.Compiler.klass);
|
2261
2261
|
|
2262
2262
|
smalltalk.addMethod(
|
2263
|
-
unescape('
|
2263
|
+
unescape('_performOptimizations_'),
|
2264
2264
|
smalltalk.method({
|
2265
|
-
selector: unescape('
|
2266
|
-
category: '
|
2267
|
-
fn: function (
|
2265
|
+
selector: unescape('performOptimizations%3A'),
|
2266
|
+
category: 'accessing',
|
2267
|
+
fn: function (aBoolean){
|
2268
2268
|
var self=this;
|
2269
|
-
|
2269
|
+
(self['@performOptimizations']=aBoolean);
|
2270
2270
|
return self;},
|
2271
|
-
args: ["
|
2272
|
-
source: unescape('
|
2271
|
+
args: ["aBoolean"],
|
2272
|
+
source: unescape('performOptimizations%3A%20aBoolean%0A%09performOptimizations%20%3A%3D%20aBoolean'),
|
2273
2273
|
messageSends: [],
|
2274
2274
|
referencedClasses: []
|
2275
2275
|
}),
|
2276
|
-
smalltalk.Compiler);
|
2276
|
+
smalltalk.Compiler.klass);
|
2277
2277
|
|
2278
|
+
|
2279
|
+
smalltalk.addClass('BlockSequenceNode', smalltalk.SequenceNode, [], 'Compiler');
|
2278
2280
|
smalltalk.addMethod(
|
2279
|
-
unescape('
|
2281
|
+
unescape('_accept_'),
|
2280
2282
|
smalltalk.method({
|
2281
|
-
selector: unescape('
|
2283
|
+
selector: unescape('accept%3A'),
|
2282
2284
|
category: 'visiting',
|
2283
|
-
fn: function (
|
2285
|
+
fn: function (aVisitor){
|
2284
2286
|
var self=this;
|
2285
|
-
|
2286
|
-
(tmp=self['@stream']);smalltalk.send(str, "_nextPutAll_", [unescape("smalltalk.send%28")]);smalltalk.send(str, "_nextPutAll_", [aReceiver]);smalltalk.send(str, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%2C%20%22"), "__comma", [smalltalk.send(aSelector, "_asSelector", [])]), "__comma", [unescape("%22%2C%20%5B")])]);(self['@stream']=str);smalltalk.send(aCollection, "_do_separatedBy_", [(function(each){return smalltalk.send(self, "_visit_", [each]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C%20")]);})]);(self['@stream']=tmp);smalltalk.send(str, "_nextPutAll_", [unescape("%5D")]);((($receiver = aBoolean).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(str, "_nextPutAll_", [smalltalk.send(unescape("%2C%20smalltalk."), "__comma", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(smalltalk.send(self, "_currentClass", []), "_superclass", [])])])]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(str, "_nextPutAll_", [smalltalk.send(unescape("%2C%20smalltalk."), "__comma", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(smalltalk.send(self, "_currentClass", []), "_superclass", [])])])]);})]));return smalltalk.send(str, "_nextPutAll_", [unescape("%29")]);})]);
|
2287
|
+
smalltalk.send(aVisitor, "_visitBlockSequenceNode_", [self]);
|
2287
2288
|
return self;},
|
2288
|
-
args: ["
|
2289
|
-
source: unescape('
|
2290
|
-
messageSends: ["
|
2291
|
-
referencedClasses: [
|
2289
|
+
args: ["aVisitor"],
|
2290
|
+
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitBlockSequenceNode%3A%20self'),
|
2291
|
+
messageSends: ["visitBlockSequenceNode:"],
|
2292
|
+
referencedClasses: []
|
2292
2293
|
}),
|
2293
|
-
smalltalk.
|
2294
|
+
smalltalk.BlockSequenceNode);
|
2294
2295
|
|
2295
2296
|
smalltalk.addMethod(
|
2296
|
-
unescape('
|
2297
|
+
unescape('_isBlockSequenceNode'),
|
2297
2298
|
smalltalk.method({
|
2298
|
-
selector: unescape('
|
2299
|
-
category: '
|
2300
|
-
fn: function (
|
2299
|
+
selector: unescape('isBlockSequenceNode'),
|
2300
|
+
category: 'testing',
|
2301
|
+
fn: function (){
|
2301
2302
|
var self=this;
|
2302
|
-
|
2303
|
+
return true;
|
2303
2304
|
return self;},
|
2304
|
-
args: [
|
2305
|
-
source: unescape('
|
2306
|
-
messageSends: [
|
2305
|
+
args: [],
|
2306
|
+
source: unescape('isBlockSequenceNode%0A%09%5Etrue'),
|
2307
|
+
messageSends: [],
|
2307
2308
|
referencedClasses: []
|
2308
2309
|
}),
|
2309
|
-
smalltalk.
|
2310
|
+
smalltalk.BlockSequenceNode);
|
2311
|
+
|
2310
2312
|
|
2313
|
+
|
2314
|
+
smalltalk.addClass('BlockNode', smalltalk.Node, ['parameters', 'inlined'], 'Compiler');
|
2311
2315
|
smalltalk.addMethod(
|
2312
|
-
unescape('
|
2316
|
+
unescape('_parameters'),
|
2313
2317
|
smalltalk.method({
|
2314
|
-
selector: unescape('
|
2315
|
-
category: '
|
2316
|
-
fn: function (
|
2318
|
+
selector: unescape('parameters'),
|
2319
|
+
category: 'accessing',
|
2320
|
+
fn: function (){
|
2317
2321
|
var self=this;
|
2318
|
-
|
2319
|
-
(inlined=false);
|
2320
|
-
((($receiver = smalltalk.send(aSelector, "__eq", ["whileTrue:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(anObject, "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(anObject, "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})]));})]));
|
2321
|
-
((($receiver = smalltalk.send(aSelector, "__eq", ["whileFalse:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(anObject, "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(anObject, "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})]));})]));
|
2322
|
-
((($receiver = smalltalk.send(aSelector, "__eq", ["whileTrue"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(anObject, "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(anObject, "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})]));})]));
|
2323
|
-
((($receiver = smalltalk.send(aSelector, "__eq", ["whileFalse"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(anObject, "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(anObject, "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})]));})]));
|
2324
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("+")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20+%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20+%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20+%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20+%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2325
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("-")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20-%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20-%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20-%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20-%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2326
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("*")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20*%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20*%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20*%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20*%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2327
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("/")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20/%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20/%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20/%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20/%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2328
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3C")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2329
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3C%3D")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2330
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3E")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2331
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3E%3D")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
|
2332
|
-
((($receiver = smalltalk.send(aSelector, "__eq", ["ifNil:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20%24receiver")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20%24receiver")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20%24receiver")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20%24receiver")]);return (inlined=true);})]));})]));
|
2333
|
-
((($receiver = smalltalk.send(aSelector, "__eq", ["ifNotNil:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%21%3D%20nil%20%26%26%20%24receiver%20%21%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%21%3D%20nil%20%26%26%20%24receiver%20%21%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%21%3D%20nil%20%26%26%20%24receiver%20%21%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%21%3D%20nil%20%26%26%20%24receiver%20%21%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil")]);return (inlined=true);})]));})]));
|
2334
|
-
((($receiver = smalltalk.send(aSelector, "__eq", ["ifNil:ifNotNil:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})]));})]));
|
2335
|
-
((($receiver = smalltalk.send(aSelector, "__eq", ["ifNotNil:ifNil:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})]));})]));
|
2336
|
-
return inlined;
|
2322
|
+
return (($receiver = self['@parameters']) == nil || $receiver == undefined) ? (function(){return (self['@parameters']=smalltalk.send((smalltalk.Array || Array), "_new", []));})() : $receiver;
|
2337
2323
|
return self;},
|
2338
|
-
args: [
|
2339
|
-
source: unescape('inlineLiteral%3A%20aSelector%20receiverNode%3A%20anObject%20argumentNodes%3A%20aCollection%0A%20%20%20%20%20%20%20%20%7C%20inlined%20%7C%0A%20%20%20%20%20%20%20%20inlined%20%3A%3D%20false.%0A%20%0A%09%22--%20BlockClosures%20--%22%0A%0A%09%28aSelector%20%3D%20%27whileTrue%3A%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28anObject%20isBlockNode%20and%3A%20%5BaCollection%20first%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28function%28%29%7Bwhile%28%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%29%20%7B%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%7D%7D%29%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27whileFalse%3A%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28anObject%20isBlockNode%20and%3A%20%5BaCollection%20first%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28function%28%29%7Bwhile%28%21%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%29%20%7B%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%7D%7D%29%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27whileTrue%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09anObject%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28function%28%29%7Bwhile%28%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%29%20%7B%7D%7D%29%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27whileFalse%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09anObject%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28function%28%29%7Bwhile%28%21%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%29%20%7B%7D%7D%29%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%22--%20Numbers%20--%22%0A%0A%09%28aSelector%20%3D%20%27+%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20+%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27-%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20-%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27*%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20*%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27/%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20/%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27%3C%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20%3C%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27%3C%3D%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20%3C%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27%3E%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20%3E%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27%3E%3D%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20%3E%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%20%20%20%0A%09%22--%20UndefinedObject%20--%22%0A%0A%09%28aSelector%20%3D%20%27ifNil%3A%27%29%20ifTrue%3A%20%5B%0A%09%09aCollection%20first%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%28%24receiver%20%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20%24receiver%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27ifNotNil%3A%27%29%20ifTrue%3A%20%5B%0A%09%09aCollection%20first%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%28%24receiver%20%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%29%20%21%3D%20nil%20%26%26%20%24receiver%20%21%3D%20undefined%29%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20nil%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27ifNil%3AifNotNil%3A%27%29%20ifTrue%3A%20%5B%0A%09%09%28aCollection%20first%20isBlockNode%20and%3A%20%5BaCollection%20second%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%28%24receiver%20%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20second.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27ifNotNil%3AifNil%3A%27%29%20ifTrue%3A%20%5B%0A%09%09%28aCollection%20first%20isBlockNode%20and%3A%20%5BaCollection%20second%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%28%24receiver%20%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20second.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%5Einlined'),
|
2340
|
-
messageSends: ["
|
2341
|
-
referencedClasses: ["
|
2324
|
+
args: [],
|
2325
|
+
source: unescape('parameters%0A%09%5Eparameters%20ifNil%3A%20%5Bparameters%20%3A%3D%20Array%20new%5D'),
|
2326
|
+
messageSends: ["ifNil:", "new"],
|
2327
|
+
referencedClasses: ["Array"]
|
2342
2328
|
}),
|
2343
|
-
smalltalk.
|
2329
|
+
smalltalk.BlockNode);
|
2344
2330
|
|
2345
2331
|
smalltalk.addMethod(
|
2346
|
-
unescape('
|
2332
|
+
unescape('_parameters_'),
|
2347
2333
|
smalltalk.method({
|
2348
|
-
selector: unescape('
|
2349
|
-
category: '
|
2350
|
-
fn: function (
|
2334
|
+
selector: unescape('parameters%3A'),
|
2335
|
+
category: 'accessing',
|
2336
|
+
fn: function (aCollection){
|
2351
2337
|
var self=this;
|
2352
|
-
|
2338
|
+
(self['@parameters']=aCollection);
|
2353
2339
|
return self;},
|
2354
|
-
args: ["
|
2355
|
-
source: unescape('
|
2356
|
-
messageSends: [
|
2340
|
+
args: ["aCollection"],
|
2341
|
+
source: unescape('parameters%3A%20aCollection%0A%09parameters%20%3A%3D%20aCollection'),
|
2342
|
+
messageSends: [],
|
2357
2343
|
referencedClasses: []
|
2358
2344
|
}),
|
2359
|
-
smalltalk.
|
2360
|
-
|
2361
|
-
smalltalk.addMethod(
|
2362
|
-
unescape('
|
2363
|
-
smalltalk.method({
|
2364
|
-
selector: unescape('
|
2365
|
-
category: '
|
2366
|
-
fn: function (
|
2367
|
-
var self=this;
|
2368
|
-
|
2369
|
-
(inlined=false);
|
2370
|
-
((($receiver = smalltalk.send(aSelector, "__eq", ["ifFalse:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})]));})]));
|
2371
|
-
((($receiver = smalltalk.send(aSelector, "__eq", ["ifTrue:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})]));})]));
|
2372
|
-
((($receiver = smalltalk.send(aSelector, "__eq", ["ifTrue:ifFalse:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})]));})]));
|
2373
|
-
((($receiver = smalltalk.send(aSelector, "__eq", ["ifFalse:ifTrue:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})]));})]));
|
2374
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3C")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3C")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3C")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2375
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3C%3D")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3C%3D")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3C%3D")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2376
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3E")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3E")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3E")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2377
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3E%3D")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3E%3D")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3E%3D")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2378
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("+")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20+")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20+")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2379
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("-")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20-")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20-")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2380
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("*")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20*")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20*")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2381
|
-
((($receiver = smalltalk.send(aSelector, "__eq", [unescape("/")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20/")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20/")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
|
2382
|
-
return inlined;
|
2345
|
+
smalltalk.BlockNode);
|
2346
|
+
|
2347
|
+
smalltalk.addMethod(
|
2348
|
+
unescape('_accept_'),
|
2349
|
+
smalltalk.method({
|
2350
|
+
selector: unescape('accept%3A'),
|
2351
|
+
category: 'visiting',
|
2352
|
+
fn: function (aVisitor){
|
2353
|
+
var self=this;
|
2354
|
+
smalltalk.send(aVisitor, "_visitBlockNode_", [self]);
|
2383
2355
|
return self;},
|
2384
|
-
args: ["
|
2385
|
-
source: unescape('
|
2386
|
-
messageSends: ["
|
2356
|
+
args: ["aVisitor"],
|
2357
|
+
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitBlockNode%3A%20self'),
|
2358
|
+
messageSends: ["visitBlockNode:"],
|
2387
2359
|
referencedClasses: []
|
2388
2360
|
}),
|
2389
|
-
smalltalk.
|
2361
|
+
smalltalk.BlockNode);
|
2390
2362
|
|
2391
2363
|
smalltalk.addMethod(
|
2392
|
-
unescape('
|
2364
|
+
unescape('_isBlockNode'),
|
2393
2365
|
smalltalk.method({
|
2394
|
-
selector: unescape('
|
2366
|
+
selector: unescape('isBlockNode'),
|
2395
2367
|
category: 'testing',
|
2396
2368
|
fn: function (){
|
2397
2369
|
var self=this;
|
2398
|
-
return
|
2370
|
+
return true;
|
2399
2371
|
return self;},
|
2400
2372
|
args: [],
|
2401
|
-
source: unescape('
|
2402
|
-
messageSends: [
|
2373
|
+
source: unescape('isBlockNode%0A%09%5Etrue'),
|
2374
|
+
messageSends: [],
|
2403
2375
|
referencedClasses: []
|
2404
2376
|
}),
|
2405
|
-
smalltalk.
|
2377
|
+
smalltalk.BlockNode);
|
2406
2378
|
|
2407
2379
|
smalltalk.addMethod(
|
2408
|
-
unescape('
|
2380
|
+
unescape('_inlined'),
|
2409
2381
|
smalltalk.method({
|
2410
|
-
selector: unescape('
|
2382
|
+
selector: unescape('inlined'),
|
2411
2383
|
category: 'accessing',
|
2412
2384
|
fn: function (){
|
2413
2385
|
var self=this;
|
2414
|
-
return (($receiver = self['@
|
2386
|
+
return (($receiver = self['@inlined']) == nil || $receiver == undefined) ? (function(){return false;})() : $receiver;
|
2415
2387
|
return self;},
|
2416
2388
|
args: [],
|
2417
|
-
source: unescape('
|
2389
|
+
source: unescape('inlined%0A%09%5Einlined%20ifNil%3A%20%5Bfalse%5D'),
|
2418
2390
|
messageSends: ["ifNil:"],
|
2419
2391
|
referencedClasses: []
|
2420
2392
|
}),
|
2421
|
-
smalltalk.
|
2393
|
+
smalltalk.BlockNode);
|
2422
2394
|
|
2423
2395
|
smalltalk.addMethod(
|
2424
|
-
unescape('
|
2396
|
+
unescape('_inlined_'),
|
2425
2397
|
smalltalk.method({
|
2426
|
-
selector: unescape('
|
2398
|
+
selector: unescape('inlined%3A'),
|
2427
2399
|
category: 'accessing',
|
2428
|
-
fn: function (
|
2400
|
+
fn: function (aBoolean){
|
2429
2401
|
var self=this;
|
2430
|
-
(self['@
|
2402
|
+
(self['@inlined']=aBoolean);
|
2431
2403
|
return self;},
|
2432
|
-
args: ["
|
2433
|
-
source: unescape('
|
2404
|
+
args: ["aBoolean"],
|
2405
|
+
source: unescape('inlined%3A%20aBoolean%0A%09inlined%20%3A%3D%20aBoolean'),
|
2434
2406
|
messageSends: [],
|
2435
2407
|
referencedClasses: []
|
2436
2408
|
}),
|
2437
|
-
smalltalk.
|
2409
|
+
smalltalk.BlockNode);
|
2410
|
+
|
2411
|
+
|
2438
2412
|
|
2413
|
+
smalltalk.addClass('CascadeNode', smalltalk.Node, ['receiver'], 'Compiler');
|
2439
2414
|
smalltalk.addMethod(
|
2440
|
-
unescape('
|
2415
|
+
unescape('_receiver'),
|
2441
2416
|
smalltalk.method({
|
2442
|
-
selector: unescape('
|
2443
|
-
category: '
|
2417
|
+
selector: unescape('receiver'),
|
2418
|
+
category: 'accessing',
|
2419
|
+
fn: function (){
|
2420
|
+
var self=this;
|
2421
|
+
return self['@receiver'];
|
2422
|
+
return self;},
|
2423
|
+
args: [],
|
2424
|
+
source: unescape('receiver%0A%09%5Ereceiver'),
|
2425
|
+
messageSends: [],
|
2426
|
+
referencedClasses: []
|
2427
|
+
}),
|
2428
|
+
smalltalk.CascadeNode);
|
2429
|
+
|
2430
|
+
smalltalk.addMethod(
|
2431
|
+
unescape('_receiver_'),
|
2432
|
+
smalltalk.method({
|
2433
|
+
selector: unescape('receiver%3A'),
|
2434
|
+
category: 'accessing',
|
2444
2435
|
fn: function (aNode){
|
2445
2436
|
var self=this;
|
2446
|
-
|
2447
|
-
smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_separatedBy_", [(function(each){return smalltalk.send(self, "_visit_", [each]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C")]);})]);
|
2448
|
-
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%5D")]);
|
2437
|
+
(self['@receiver']=aNode);
|
2449
2438
|
return self;},
|
2450
2439
|
args: ["aNode"],
|
2451
|
-
source: unescape('
|
2452
|
-
messageSends: [
|
2440
|
+
source: unescape('receiver%3A%20aNode%0A%09receiver%20%3A%3D%20aNode'),
|
2441
|
+
messageSends: [],
|
2453
2442
|
referencedClasses: []
|
2454
2443
|
}),
|
2455
|
-
smalltalk.
|
2444
|
+
smalltalk.CascadeNode);
|
2456
2445
|
|
2457
2446
|
smalltalk.addMethod(
|
2458
|
-
unescape('
|
2447
|
+
unescape('_accept_'),
|
2459
2448
|
smalltalk.method({
|
2460
|
-
selector: unescape('
|
2449
|
+
selector: unescape('accept%3A'),
|
2461
2450
|
category: 'visiting',
|
2462
|
-
fn: function (
|
2451
|
+
fn: function (aVisitor){
|
2463
2452
|
var self=this;
|
2464
|
-
smalltalk.send(
|
2465
|
-
smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_separatedBy_", [(function(each){return smalltalk.send(self, "_visit_", [each]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C")]);})]);
|
2466
|
-
smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%5D%29")]);
|
2453
|
+
smalltalk.send(aVisitor, "_visitCascadeNode_", [self]);
|
2467
2454
|
return self;},
|
2468
|
-
args: ["
|
2469
|
-
source: unescape('
|
2470
|
-
messageSends: ["
|
2455
|
+
args: ["aVisitor"],
|
2456
|
+
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitCascadeNode%3A%20self'),
|
2457
|
+
messageSends: ["visitCascadeNode:"],
|
2471
2458
|
referencedClasses: []
|
2472
2459
|
}),
|
2473
|
-
smalltalk.
|
2460
|
+
smalltalk.CascadeNode);
|
2461
|
+
|
2474
2462
|
|
2463
|
+
|
2464
|
+
smalltalk.addClass('MethodNode', smalltalk.Node, ['selector', 'arguments', 'source'], 'Compiler');
|
2475
2465
|
smalltalk.addMethod(
|
2476
|
-
unescape('
|
2466
|
+
unescape('_selector'),
|
2477
2467
|
smalltalk.method({
|
2478
|
-
selector: unescape('
|
2468
|
+
selector: unescape('selector'),
|
2479
2469
|
category: 'accessing',
|
2480
2470
|
fn: function (){
|
2481
2471
|
var self=this;
|
2482
|
-
return
|
2472
|
+
return self['@selector'];
|
2483
2473
|
return self;},
|
2484
2474
|
args: [],
|
2485
|
-
source: unescape('
|
2486
|
-
messageSends: [
|
2475
|
+
source: unescape('selector%0A%09%5Eselector'),
|
2476
|
+
messageSends: [],
|
2487
2477
|
referencedClasses: []
|
2488
2478
|
}),
|
2489
|
-
smalltalk.
|
2479
|
+
smalltalk.MethodNode);
|
2490
2480
|
|
2491
2481
|
smalltalk.addMethod(
|
2492
|
-
unescape('
|
2482
|
+
unescape('_selector_'),
|
2493
2483
|
smalltalk.method({
|
2494
|
-
selector: unescape('
|
2484
|
+
selector: unescape('selector%3A'),
|
2495
2485
|
category: 'accessing',
|
2496
2486
|
fn: function (aString){
|
2497
2487
|
var self=this;
|
2498
|
-
|
2488
|
+
(self['@selector']=aString);
|
2499
2489
|
return self;},
|
2500
2490
|
args: ["aString"],
|
2501
|
-
source: unescape('
|
2502
|
-
messageSends: [
|
2503
|
-
referencedClasses: [
|
2491
|
+
source: unescape('selector%3A%20aString%0A%09selector%20%3A%3D%20aString'),
|
2492
|
+
messageSends: [],
|
2493
|
+
referencedClasses: []
|
2504
2494
|
}),
|
2505
|
-
smalltalk.
|
2506
|
-
|
2495
|
+
smalltalk.MethodNode);
|
2507
2496
|
|
2508
|
-
smalltalk.Compiler.klass.iVarNames = ['performOptimizations'];
|
2509
2497
|
smalltalk.addMethod(
|
2510
|
-
unescape('
|
2498
|
+
unescape('_arguments'),
|
2511
2499
|
smalltalk.method({
|
2512
|
-
selector: unescape('
|
2513
|
-
category: '
|
2514
|
-
fn: function (
|
2500
|
+
selector: unescape('arguments'),
|
2501
|
+
category: 'accessing',
|
2502
|
+
fn: function (){
|
2515
2503
|
var self=this;
|
2516
|
-
|
2517
|
-
(method=smalltalk.send(smalltalk.send(self, "_new", []), "_load_forClass_", [smalltalk.send(each, "_source", []), aClass]));smalltalk.send(method, "_category_", [smalltalk.send(each, "_category", [])]);return smalltalk.send(aClass, "_addCompiledMethod_", [method]);})]);
|
2518
|
-
((($receiver = smalltalk.send(aClass, "_isMetaclass", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self, "_recompile_", [smalltalk.send(aClass, "_class", [])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self, "_recompile_", [smalltalk.send(aClass, "_class", [])]);})]));
|
2504
|
+
return (($receiver = self['@arguments']) == nil || $receiver == undefined) ? (function(){return [];})() : $receiver;
|
2519
2505
|
return self;},
|
2520
|
-
args: [
|
2521
|
-
source: unescape('
|
2522
|
-
messageSends: ["
|
2506
|
+
args: [],
|
2507
|
+
source: unescape('arguments%0A%09%5Earguments%20ifNil%3A%20%5B%23%28%29%5D'),
|
2508
|
+
messageSends: ["ifNil:"],
|
2523
2509
|
referencedClasses: []
|
2524
2510
|
}),
|
2525
|
-
smalltalk.
|
2511
|
+
smalltalk.MethodNode);
|
2526
2512
|
|
2527
2513
|
smalltalk.addMethod(
|
2528
|
-
unescape('
|
2514
|
+
unescape('_arguments_'),
|
2529
2515
|
smalltalk.method({
|
2530
|
-
selector: unescape('
|
2531
|
-
category: '
|
2532
|
-
fn: function (){
|
2516
|
+
selector: unescape('arguments%3A'),
|
2517
|
+
category: 'accessing',
|
2518
|
+
fn: function (aCollection){
|
2533
2519
|
var self=this;
|
2534
|
-
|
2520
|
+
(self['@arguments']=aCollection);
|
2535
2521
|
return self;},
|
2536
|
-
args: [],
|
2537
|
-
source: unescape('
|
2538
|
-
messageSends: [
|
2539
|
-
referencedClasses: [
|
2522
|
+
args: ["aCollection"],
|
2523
|
+
source: unescape('arguments%3A%20aCollection%0A%09arguments%20%3A%3D%20aCollection'),
|
2524
|
+
messageSends: [],
|
2525
|
+
referencedClasses: []
|
2540
2526
|
}),
|
2541
|
-
smalltalk.
|
2527
|
+
smalltalk.MethodNode);
|
2542
2528
|
|
2543
2529
|
smalltalk.addMethod(
|
2544
|
-
unescape('
|
2530
|
+
unescape('_source'),
|
2545
2531
|
smalltalk.method({
|
2546
|
-
selector: unescape('
|
2532
|
+
selector: unescape('source'),
|
2547
2533
|
category: 'accessing',
|
2548
2534
|
fn: function (){
|
2549
2535
|
var self=this;
|
2550
|
-
return
|
2536
|
+
return self['@source'];
|
2551
2537
|
return self;},
|
2552
2538
|
args: [],
|
2553
|
-
source: unescape('
|
2554
|
-
messageSends: [
|
2539
|
+
source: unescape('source%0A%09%5Esource'),
|
2540
|
+
messageSends: [],
|
2555
2541
|
referencedClasses: []
|
2556
2542
|
}),
|
2557
|
-
smalltalk.
|
2543
|
+
smalltalk.MethodNode);
|
2558
2544
|
|
2559
2545
|
smalltalk.addMethod(
|
2560
|
-
unescape('
|
2546
|
+
unescape('_source_'),
|
2561
2547
|
smalltalk.method({
|
2562
|
-
selector: unescape('
|
2548
|
+
selector: unescape('source%3A'),
|
2563
2549
|
category: 'accessing',
|
2564
|
-
fn: function (
|
2550
|
+
fn: function (aString){
|
2565
2551
|
var self=this;
|
2566
|
-
(self['@
|
2552
|
+
(self['@source']=aString);
|
2567
2553
|
return self;},
|
2568
|
-
args: ["
|
2569
|
-
source: unescape('
|
2554
|
+
args: ["aString"],
|
2555
|
+
source: unescape('source%3A%20aString%0A%09source%20%3A%3D%20aString'),
|
2570
2556
|
messageSends: [],
|
2571
2557
|
referencedClasses: []
|
2572
2558
|
}),
|
2573
|
-
smalltalk.
|
2574
|
-
|
2575
|
-
|
2576
|
-
smalltalk.addClass('DoIt', smalltalk.Object, [], 'Compiler');
|
2577
|
-
|
2559
|
+
smalltalk.MethodNode);
|
2578
2560
|
|
2579
|
-
smalltalk.addClass('DynamicArrayNode', smalltalk.Node, [], 'Compiler');
|
2580
2561
|
smalltalk.addMethod(
|
2581
2562
|
unescape('_accept_'),
|
2582
2563
|
smalltalk.method({
|
@@ -2584,33 +2565,52 @@ selector: unescape('accept%3A'),
|
|
2584
2565
|
category: 'visiting',
|
2585
2566
|
fn: function (aVisitor){
|
2586
2567
|
var self=this;
|
2587
|
-
smalltalk.send(aVisitor, "
|
2568
|
+
smalltalk.send(aVisitor, "_visitMethodNode_", [self]);
|
2588
2569
|
return self;},
|
2589
2570
|
args: ["aVisitor"],
|
2590
|
-
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%
|
2591
|
-
messageSends: ["
|
2571
|
+
source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitMethodNode%3A%20self'),
|
2572
|
+
messageSends: ["visitMethodNode:"],
|
2592
2573
|
referencedClasses: []
|
2593
2574
|
}),
|
2594
|
-
smalltalk.
|
2575
|
+
smalltalk.MethodNode);
|
2595
2576
|
|
2596
2577
|
|
2597
2578
|
|
2598
|
-
smalltalk.addClass('
|
2579
|
+
smalltalk.addClass('StrippedExporter', smalltalk.Exporter, [], 'Compiler');
|
2599
2580
|
smalltalk.addMethod(
|
2600
|
-
unescape('
|
2581
|
+
unescape('_exportDefinitionOf_on_'),
|
2601
2582
|
smalltalk.method({
|
2602
|
-
selector: unescape('
|
2603
|
-
category: '
|
2604
|
-
fn: function (
|
2583
|
+
selector: unescape('exportDefinitionOf%3Aon%3A'),
|
2584
|
+
category: 'private',
|
2585
|
+
fn: function (aClass, aStream){
|
2605
2586
|
var self=this;
|
2606
|
-
smalltalk.send(
|
2587
|
+
(function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.addClass%28")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])]), "__comma", [unescape("%27%2C%20")])]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("smalltalk.", "__comma", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_superclass", [])])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%2C%20%5B")]);})(aStream);
|
2588
|
+
smalltalk.send(smalltalk.send(aClass, "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [each]), "__comma", [unescape("%27")])]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [unescape("%2C%20")]);})]);
|
2589
|
+
(function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%5D%2C%20%27")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(aClass, "_category", []), "__comma", [unescape("%27")])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%29%3B")]);})(aStream);
|
2590
|
+
smalltalk.send(aStream, "_lf", []);
|
2607
2591
|
return self;},
|
2608
|
-
args: ["
|
2609
|
-
source: unescape('
|
2610
|
-
messageSends: ["
|
2592
|
+
args: ["aClass", "aStream"],
|
2593
|
+
source: unescape('exportDefinitionOf%3A%20aClass%20on%3A%20aStream%0A%09aStream%20%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.addClass%28%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%27%27%27%2C%20%28self%20classNameFor%3A%20aClass%29%2C%20%27%27%27%2C%20%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.%27%2C%20%28self%20classNameFor%3A%20aClass%20superclass%29%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%2C%20%5B%27.%0A%09aClass%20instanceVariableNames%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20%27%27%27%27%2C%20each%2C%20%27%27%27%27%5D%0A%09%20%20%20%20separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%2C%20%27%5D.%0A%09aStream%09%0A%09%20%20%20%20nextPutAll%3A%20%27%5D%2C%20%27%27%27%3B%0A%09%20%20%20%20nextPutAll%3A%20aClass%20category%2C%20%27%27%27%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%29%3B%27.%0A%09aStream%20lf'),
|
2594
|
+
messageSends: ["nextPutAll:", unescape("%2C"), "classNameFor:", "superclass", "do:separatedBy:", "instanceVariableNames", "category", "lf"],
|
2611
2595
|
referencedClasses: []
|
2612
2596
|
}),
|
2613
|
-
smalltalk.
|
2597
|
+
smalltalk.StrippedExporter);
|
2598
|
+
|
2599
|
+
smalltalk.addMethod(
|
2600
|
+
unescape('_exportMethod_of_on_'),
|
2601
|
+
smalltalk.method({
|
2602
|
+
selector: unescape('exportMethod%3Aof%3Aon%3A'),
|
2603
|
+
category: 'private',
|
2604
|
+
fn: function (aMethod, aClass, aStream){
|
2605
|
+
var self=this;
|
2606
|
+
(function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.addMethod%28")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("unescape%28%27"), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send(aMethod, "_selector", []), "_asSelector", []), "_escaped", [])]), "__comma", [unescape("%27%29%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.method%28%7B")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("selector%3A%20unescape%28%27"), "__comma", [smalltalk.send(smalltalk.send(aMethod, "_selector", []), "_escaped", [])]), "__comma", [unescape("%27%29%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("fn: ", "__comma", [smalltalk.send(smalltalk.send(aMethod, "_fn", []), "_compiledSource", [])])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [unescape("%7D%29%2C")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("smalltalk.", "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])])]);smalltalk.send($rec, "_nextPutAll_", [unescape("%29%3B")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);
|
2607
|
+
return self;},
|
2608
|
+
args: ["aMethod", "aClass", "aStream"],
|
2609
|
+
source: unescape('exportMethod%3A%20aMethod%20of%3A%20aClass%20on%3A%20aStream%0A%09aStream%20%0A%09%09nextPutAll%3A%20%27smalltalk.addMethod%28%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27unescape%28%27%27%27%2C%20aMethod%20selector%20asSelector%20escaped%2C%20%27%27%27%29%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27smalltalk.method%28%7B%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27selector%3A%20unescape%28%27%27%27%2C%20aMethod%20selector%20escaped%2C%20%27%27%27%29%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27fn%3A%20%27%2C%20aMethod%20fn%20compiledSource%3Blf%3B%0A%09%09nextPutAll%3A%20%27%7D%29%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27smalltalk.%27%2C%20%28self%20classNameFor%3A%20aClass%29%3B%0A%09%09nextPutAll%3A%20%27%29%3B%27%3Blf%3Blf'),
|
2610
|
+
messageSends: ["nextPutAll:", "lf", unescape("%2C"), "escaped", "asSelector", "selector", "compiledSource", "fn", "classNameFor:"],
|
2611
|
+
referencedClasses: []
|
2612
|
+
}),
|
2613
|
+
smalltalk.StrippedExporter);
|
2614
2614
|
|
2615
2615
|
|
2616
2616
|
|