resin 0.2.2 → 0.2.3
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- data/amber/css/amber-normalize.css +73 -73
- data/amber/css/amber-normalize.less +1 -1
- data/amber/css/amber.css +106 -106
- data/amber/css/helios.css +242 -0
- data/amber/images/hsplitter.png +0 -0
- data/amber/images/vsplitter.png +0 -0
- data/amber/js/Benchfib.deploy.js +116 -38
- data/amber/js/Benchfib.js +120 -42
- data/amber/js/Canvas.deploy.js +674 -403
- data/amber/js/Canvas.js +682 -411
- data/amber/js/Compiler-AST.deploy.js +1150 -0
- data/amber/js/Compiler-AST.js +1591 -0
- data/amber/js/Compiler-Core.deploy.js +1562 -0
- data/amber/js/Compiler-Core.js +1972 -0
- data/amber/js/Compiler-Exceptions.deploy.js +114 -0
- data/amber/js/Compiler-Exceptions.js +161 -0
- data/amber/js/Compiler-IR.deploy.js +2326 -0
- data/amber/js/Compiler-IR.js +3146 -0
- data/amber/js/Compiler-Inlining.deploy.js +1147 -0
- data/amber/js/Compiler-Inlining.js +1514 -0
- data/amber/js/Compiler-Semantic.deploy.js +1207 -0
- data/amber/js/Compiler-Semantic.js +1628 -0
- data/amber/js/Compiler-Tests.deploy.js +646 -60
- data/amber/js/Compiler-Tests.js +843 -82
- data/amber/js/Compiler.deploy.js +1097 -159
- data/amber/js/Compiler.js +1414 -161
- data/amber/js/Examples.deploy.js +31 -15
- data/amber/js/Examples.js +33 -17
- data/amber/js/Helios-Announcements.deploy.js +127 -0
- data/amber/js/Helios-Announcements.js +157 -0
- data/amber/js/Helios-Browser.deploy.js +1473 -0
- data/amber/js/Helios-Browser.js +1953 -0
- data/amber/js/Helios-Commands.deploy.js +403 -0
- data/amber/js/Helios-Commands.js +563 -0
- data/amber/js/Helios-Core.deploy.js +1070 -0
- data/amber/js/Helios-Core.js +1445 -0
- data/amber/js/Helios-Environments.deploy.js +132 -0
- data/amber/js/Helios-Environments.js +179 -0
- data/amber/js/Helios-Inspector.deploy.js +855 -0
- data/amber/js/Helios-Inspector.js +1155 -0
- data/amber/js/Helios-KeyBindings.deploy.js +753 -0
- data/amber/js/Helios-KeyBindings.js +1023 -0
- data/amber/js/Helios-Layout.deploy.js +383 -0
- data/amber/js/Helios-Layout.js +523 -0
- data/amber/js/Helios-Workspace.deploy.js +799 -0
- data/amber/js/Helios-Workspace.js +1074 -0
- data/amber/js/IDE.deploy.js +2541 -1490
- data/amber/js/IDE.js +2721 -1660
- data/amber/js/Importer-Exporter.deploy.js +671 -0
- data/amber/js/Importer-Exporter.js +816 -0
- data/amber/js/Kernel-Announcements.deploy.js +137 -20
- data/amber/js/Kernel-Announcements.js +176 -22
- data/amber/js/Kernel-Classes.deploy.js +555 -168
- data/amber/js/Kernel-Classes.js +662 -205
- data/amber/js/Kernel-Collections.deploy.js +1403 -618
- data/amber/js/Kernel-Collections.js +1545 -690
- data/amber/js/Kernel-Exceptions.deploy.js +109 -45
- data/amber/js/Kernel-Exceptions.js +123 -49
- data/amber/js/Kernel-Methods.deploy.js +196 -81
- data/amber/js/Kernel-Methods.js +214 -89
- data/amber/js/Kernel-Objects.deploy.js +1542 -1117
- data/amber/js/Kernel-Objects.js +1593 -1148
- data/amber/js/Kernel-Tests.deploy.js +1725 -772
- data/amber/js/Kernel-Tests.js +2301 -1123
- data/amber/js/Kernel-Transcript.deploy.js +23 -25
- data/amber/js/Kernel-Transcript.js +24 -26
- data/amber/js/SUnit.deploy.js +204 -131
- data/amber/js/SUnit.js +222 -139
- data/amber/js/Spaces.deploy.js +240 -0
- data/amber/js/Spaces.js +326 -0
- data/amber/js/amber.js +26 -7
- data/amber/js/boot.js +65 -47
- data/amber/js/init.js +1 -1
- data/amber/js/lib/CodeMirror/amber.css +21 -21
- data/amber/js/lib/CodeMirror/codemirror.css +119 -13
- data/amber/js/lib/CodeMirror/codemirror.js +2219 -1220
- data/amber/js/lib/CodeMirror/smalltalk.js +134 -129
- data/amber/js/lib/bootstrap/css/bootstrap.css +5837 -0
- data/amber/js/lib/bootstrap/css/bootstrap.min.css +841 -0
- data/amber/js/lib/bootstrap/img/glyphicons-halflings-white.png +0 -0
- data/amber/js/lib/bootstrap/img/glyphicons-halflings.png +0 -0
- data/amber/js/lib/bootstrap/js/bootstrap.js +2038 -0
- data/amber/js/lib/bootstrap/js/bootstrap.min.js +7 -0
- data/amber/js/lib/jQuery/jquery-1.8.2.min.js +2 -0
- data/amber/js/lib/jQuery/jquery-ui-1.8.24.custom.min.js +125 -0
- data/amber/st/Compiler-AST.st +505 -0
- data/amber/st/Compiler-Core.st +835 -0
- data/amber/st/Compiler-Exceptions.st +87 -0
- data/amber/st/Compiler-IR.st +1097 -0
- data/amber/st/Compiler-Inlining.st +650 -0
- data/amber/st/Compiler-Semantic.st +558 -0
- data/amber/st/Compiler-Tests.st +285 -381
- data/amber/st/Compiler.st +725 -2
- data/amber/st/Helios-Announcements.st +104 -0
- data/amber/st/Helios-Browser.st +708 -0
- data/amber/st/Helios-Commands.st +223 -0
- data/amber/st/Helios-Core.st +532 -0
- data/amber/st/Helios-Environments.st +98 -0
- data/amber/st/Helios-Inspector.st +367 -0
- data/amber/st/Helios-KeyBindings.st +337 -0
- data/amber/st/Helios-Layout.st +199 -0
- data/amber/st/Helios-Workspace.st +367 -0
- data/amber/st/IDE.st +75 -53
- data/amber/st/Importer-Exporter.st +386 -0
- data/amber/st/Kernel-Announcements.st +92 -0
- data/amber/st/Kernel-Classes.st +137 -15
- data/amber/st/Kernel-Collections.st +137 -47
- data/amber/st/Kernel-Exceptions.st +14 -0
- data/amber/st/Kernel-Methods.st +9 -1
- data/amber/st/Kernel-Objects.st +29 -5
- data/amber/st/Kernel-Tests.st +545 -199
- data/amber/st/SUnit.st +10 -0
- data/amber/st/Spaces.st +142 -0
- data/lib/resin/app.rb +1 -1
- metadata +86 -31
- data/amber/js/lib/jQuery/jquery-1.4.4.min.js +0 -167
- data/amber/js/lib/jQuery/jquery-1.6.4.min.js +0 -4
data/amber/js/Kernel-Methods.js
CHANGED
|
@@ -6,10 +6,11 @@ smalltalk.addMethod(
|
|
|
6
6
|
smalltalk.method({
|
|
7
7
|
selector: "applyTo:arguments:",
|
|
8
8
|
category: 'evaluating',
|
|
9
|
-
fn: function (anObject,
|
|
9
|
+
fn: function (anObject,aCollection){
|
|
10
10
|
var self=this;
|
|
11
11
|
return self.apply(anObject, aCollection);
|
|
12
|
-
|
|
12
|
+
;
|
|
13
|
+
return self},
|
|
13
14
|
args: ["anObject", "aCollection"],
|
|
14
15
|
source: "applyTo: anObject arguments: aCollection\x0a\x09<return self.apply(anObject, aCollection)>",
|
|
15
16
|
messageSends: [],
|
|
@@ -25,7 +26,8 @@ category: 'accessing',
|
|
|
25
26
|
fn: function (){
|
|
26
27
|
var self=this;
|
|
27
28
|
return self.toString();
|
|
28
|
-
|
|
29
|
+
;
|
|
30
|
+
return self},
|
|
29
31
|
args: [],
|
|
30
32
|
source: "compiledSource\x0a\x09<return self.toString()>",
|
|
31
33
|
messageSends: [],
|
|
@@ -40,13 +42,25 @@ selector: "ensure:",
|
|
|
40
42
|
category: 'evaluating',
|
|
41
43
|
fn: function (aBlock){
|
|
42
44
|
var self=this;
|
|
43
|
-
var
|
|
44
|
-
|
|
45
|
-
|
|
46
|
-
|
|
45
|
+
var $1;
|
|
46
|
+
var success;
|
|
47
|
+
success=false;
|
|
48
|
+
$1=smalltalk.send((function(){
|
|
49
|
+
smalltalk.send(self,"_value",[]);
|
|
50
|
+
success=true;
|
|
51
|
+
success;
|
|
52
|
+
return smalltalk.send(aBlock,"_value",[]);
|
|
53
|
+
}),"_on_do_",[(smalltalk.Error || Error),(function(ex){
|
|
54
|
+
if(! smalltalk.assert(success)){
|
|
55
|
+
smalltalk.send(aBlock,"_value",[]);
|
|
56
|
+
};
|
|
57
|
+
return smalltalk.send(ex,"_signal",[]);
|
|
58
|
+
})]);
|
|
59
|
+
return $1;
|
|
60
|
+
},
|
|
47
61
|
args: ["aBlock"],
|
|
48
62
|
source: "ensure: aBlock\x0a\x09| success |\x0a\x09success := false.\x0a\x09^[self value. success := true. aBlock value]\x0a\x09\x09on: Error\x0a\x09\x09do: [:ex |\x0a\x09\x09\x09success ifFalse: [aBlock value].\x0a\x09\x09\x09ex signal]",
|
|
49
|
-
messageSends: ["on:do:", "
|
|
63
|
+
messageSends: ["on:do:", "ifFalse:", "value", "signal"],
|
|
50
64
|
referencedClasses: ["Error"]
|
|
51
65
|
}),
|
|
52
66
|
smalltalk.BlockClosure);
|
|
@@ -59,7 +73,8 @@ category: 'evaluating',
|
|
|
59
73
|
fn: function (){
|
|
60
74
|
var self=this;
|
|
61
75
|
return new self();
|
|
62
|
-
|
|
76
|
+
;
|
|
77
|
+
return self},
|
|
63
78
|
args: [],
|
|
64
79
|
source: "new\x0a\x09\x22Use the receiver as a JS constructor. \x0a\x09*Do not* use this method to instanciate Smalltalk objects!\x22\x0a\x09<return new self()>",
|
|
65
80
|
messageSends: [],
|
|
@@ -75,7 +90,8 @@ category: 'evaluating',
|
|
|
75
90
|
fn: function (anObject){
|
|
76
91
|
var self=this;
|
|
77
92
|
return new self(anObject);
|
|
78
|
-
|
|
93
|
+
;
|
|
94
|
+
return self},
|
|
79
95
|
args: ["anObject"],
|
|
80
96
|
source: "newValue: anObject\x0a\x09\x22Use the receiver as a JS constructor. \x0a\x09*Do not* use this method to instanciate Smalltalk objects!\x22\x0a\x09<return new self(anObject)>",
|
|
81
97
|
messageSends: [],
|
|
@@ -88,10 +104,11 @@ smalltalk.addMethod(
|
|
|
88
104
|
smalltalk.method({
|
|
89
105
|
selector: "newValue:value:",
|
|
90
106
|
category: 'evaluating',
|
|
91
|
-
fn: function (anObject,
|
|
107
|
+
fn: function (anObject,anObject2){
|
|
92
108
|
var self=this;
|
|
93
109
|
return new self(anObject, anObject2);
|
|
94
|
-
|
|
110
|
+
;
|
|
111
|
+
return self},
|
|
95
112
|
args: ["anObject", "anObject2"],
|
|
96
113
|
source: "newValue: anObject value: anObject2\x0a\x09\x22Use the receiver as a JS constructor. \x0a\x09*Do not* use this method to instanciate Smalltalk objects!\x22\x0a\x09<return new self(anObject, anObject2)>",
|
|
97
114
|
messageSends: [],
|
|
@@ -104,10 +121,11 @@ smalltalk.addMethod(
|
|
|
104
121
|
smalltalk.method({
|
|
105
122
|
selector: "newValue:value:value:",
|
|
106
123
|
category: 'evaluating',
|
|
107
|
-
fn: function (anObject,
|
|
124
|
+
fn: function (anObject,anObject2,anObject3){
|
|
108
125
|
var self=this;
|
|
109
126
|
return new self(anObject, anObject2);
|
|
110
|
-
|
|
127
|
+
;
|
|
128
|
+
return self},
|
|
111
129
|
args: ["anObject", "anObject2", "anObject3"],
|
|
112
130
|
source: "newValue: anObject value: anObject2 value: anObject3\x0a\x09\x22Use the receiver as a JS constructor. \x0a\x09*Do not* use this method to instanciate Smalltalk objects!\x22\x0a\x09<return new self(anObject, anObject2)>",
|
|
113
131
|
messageSends: [],
|
|
@@ -123,7 +141,8 @@ category: 'accessing',
|
|
|
123
141
|
fn: function (){
|
|
124
142
|
var self=this;
|
|
125
143
|
return self.length;
|
|
126
|
-
|
|
144
|
+
;
|
|
145
|
+
return self},
|
|
127
146
|
args: [],
|
|
128
147
|
source: "numArgs\x0a\x09<return self.length>",
|
|
129
148
|
messageSends: [],
|
|
@@ -136,13 +155,22 @@ smalltalk.addMethod(
|
|
|
136
155
|
smalltalk.method({
|
|
137
156
|
selector: "on:do:",
|
|
138
157
|
category: 'error handling',
|
|
139
|
-
fn: function (anErrorClass,
|
|
140
|
-
var self=this;
|
|
141
|
-
|
|
142
|
-
|
|
158
|
+
fn: function (anErrorClass,aBlock){
|
|
159
|
+
var self=this;
|
|
160
|
+
var $2,$1;
|
|
161
|
+
$1=smalltalk.send(self,"_try_catch_",[self,(function(error){
|
|
162
|
+
$2=smalltalk.send(error,"_isKindOf_",[anErrorClass]);
|
|
163
|
+
if(smalltalk.assert($2)){
|
|
164
|
+
return smalltalk.send(aBlock,"_value_",[error]);
|
|
165
|
+
} else {
|
|
166
|
+
return smalltalk.send(error,"_signal",[]);
|
|
167
|
+
};
|
|
168
|
+
})]);
|
|
169
|
+
return $1;
|
|
170
|
+
},
|
|
143
171
|
args: ["anErrorClass", "aBlock"],
|
|
144
172
|
source: "on: anErrorClass do: aBlock\x0a\x09^self try: self catch: [:error |\x0a\x09 (error isKindOf: anErrorClass) \x0a\x09 ifTrue: [aBlock value: error]\x0a\x09 ifFalse: [error signal]]",
|
|
145
|
-
messageSends: ["try:catch:", "ifTrue:ifFalse:", "
|
|
173
|
+
messageSends: ["try:catch:", "ifTrue:ifFalse:", "value:", "signal", "isKindOf:"],
|
|
146
174
|
referencedClasses: []
|
|
147
175
|
}),
|
|
148
176
|
smalltalk.BlockClosure);
|
|
@@ -154,8 +182,10 @@ selector: "timeToRun",
|
|
|
154
182
|
category: 'evaluating',
|
|
155
183
|
fn: function (){
|
|
156
184
|
var self=this;
|
|
157
|
-
|
|
158
|
-
|
|
185
|
+
var $1;
|
|
186
|
+
$1=smalltalk.send((smalltalk.Date || Date),"_millisecondsToRun_",[self]);
|
|
187
|
+
return $1;
|
|
188
|
+
},
|
|
159
189
|
args: [],
|
|
160
190
|
source: "timeToRun\x0a\x09\x22Answer the number of milliseconds taken to execute this block.\x22\x0a\x0a\x09^ Date millisecondsToRun: self",
|
|
161
191
|
messageSends: ["millisecondsToRun:"],
|
|
@@ -171,7 +201,8 @@ category: 'evaluating',
|
|
|
171
201
|
fn: function (){
|
|
172
202
|
var self=this;
|
|
173
203
|
return self();;
|
|
174
|
-
|
|
204
|
+
;
|
|
205
|
+
return self},
|
|
175
206
|
args: [],
|
|
176
207
|
source: "value\x0a\x09\x22inlined in the Compiler\x22\x0a\x09<return self();>",
|
|
177
208
|
messageSends: [],
|
|
@@ -187,7 +218,8 @@ category: 'evaluating',
|
|
|
187
218
|
fn: function (anArg){
|
|
188
219
|
var self=this;
|
|
189
220
|
return self(anArg);;
|
|
190
|
-
|
|
221
|
+
;
|
|
222
|
+
return self},
|
|
191
223
|
args: ["anArg"],
|
|
192
224
|
source: "value: anArg\x0a\x09\x22inlined in the Compiler\x22\x0a\x09<return self(anArg);>",
|
|
193
225
|
messageSends: [],
|
|
@@ -200,10 +232,11 @@ smalltalk.addMethod(
|
|
|
200
232
|
smalltalk.method({
|
|
201
233
|
selector: "value:value:",
|
|
202
234
|
category: 'evaluating',
|
|
203
|
-
fn: function (firstArg,
|
|
235
|
+
fn: function (firstArg,secondArg){
|
|
204
236
|
var self=this;
|
|
205
237
|
return self(firstArg, secondArg);;
|
|
206
|
-
|
|
238
|
+
;
|
|
239
|
+
return self},
|
|
207
240
|
args: ["firstArg", "secondArg"],
|
|
208
241
|
source: "value: firstArg value: secondArg\x0a\x09\x22inlined in the Compiler\x22\x0a\x09<return self(firstArg, secondArg);>",
|
|
209
242
|
messageSends: [],
|
|
@@ -216,10 +249,11 @@ smalltalk.addMethod(
|
|
|
216
249
|
smalltalk.method({
|
|
217
250
|
selector: "value:value:value:",
|
|
218
251
|
category: 'evaluating',
|
|
219
|
-
fn: function (firstArg,
|
|
252
|
+
fn: function (firstArg,secondArg,thirdArg){
|
|
220
253
|
var self=this;
|
|
221
254
|
return self(firstArg, secondArg, thirdArg);;
|
|
222
|
-
|
|
255
|
+
;
|
|
256
|
+
return self},
|
|
223
257
|
args: ["firstArg", "secondArg", "thirdArg"],
|
|
224
258
|
source: "value: firstArg value: secondArg value: thirdArg\x0a\x09\x22inlined in the Compiler\x22\x0a\x09<return self(firstArg, secondArg, thirdArg);>",
|
|
225
259
|
messageSends: [],
|
|
@@ -235,7 +269,8 @@ category: 'timeout/interval',
|
|
|
235
269
|
fn: function (aNumber){
|
|
236
270
|
var self=this;
|
|
237
271
|
return setInterval(self, aNumber);
|
|
238
|
-
|
|
272
|
+
;
|
|
273
|
+
return self},
|
|
239
274
|
args: ["aNumber"],
|
|
240
275
|
source: "valueWithInterval: aNumber\x0a\x09<return setInterval(self, aNumber)>",
|
|
241
276
|
messageSends: [],
|
|
@@ -251,7 +286,8 @@ category: 'evaluating',
|
|
|
251
286
|
fn: function (aCollection){
|
|
252
287
|
var self=this;
|
|
253
288
|
return self.apply(null, aCollection);;
|
|
254
|
-
|
|
289
|
+
;
|
|
290
|
+
return self},
|
|
255
291
|
args: ["aCollection"],
|
|
256
292
|
source: "valueWithPossibleArguments: aCollection\x0a\x09<return self.apply(null, aCollection);>",
|
|
257
293
|
messageSends: [],
|
|
@@ -267,7 +303,8 @@ category: 'timeout/interval',
|
|
|
267
303
|
fn: function (aNumber){
|
|
268
304
|
var self=this;
|
|
269
305
|
return setTimeout(self, aNumber);
|
|
270
|
-
|
|
306
|
+
;
|
|
307
|
+
return self},
|
|
271
308
|
args: ["aNumber"],
|
|
272
309
|
source: "valueWithTimeout: aNumber\x0a\x09<return setTimeout(self, aNumber)>",
|
|
273
310
|
messageSends: [],
|
|
@@ -282,8 +319,9 @@ selector: "whileFalse",
|
|
|
282
319
|
category: 'controlling',
|
|
283
320
|
fn: function (){
|
|
284
321
|
var self=this;
|
|
285
|
-
smalltalk.send(self,
|
|
286
|
-
|
|
322
|
+
smalltalk.send(self,"_whileFalse_",[(function(){
|
|
323
|
+
})]);
|
|
324
|
+
return self},
|
|
287
325
|
args: [],
|
|
288
326
|
source: "whileFalse\x0a\x09\x22inlined in the Compiler\x22\x0a\x09self whileFalse: []",
|
|
289
327
|
messageSends: ["whileFalse:"],
|
|
@@ -299,7 +337,8 @@ category: 'controlling',
|
|
|
299
337
|
fn: function (aBlock){
|
|
300
338
|
var self=this;
|
|
301
339
|
while(!self()) {aBlock()};
|
|
302
|
-
|
|
340
|
+
;
|
|
341
|
+
return self},
|
|
303
342
|
args: ["aBlock"],
|
|
304
343
|
source: "whileFalse: aBlock\x0a\x09\x22inlined in the Compiler\x22\x0a\x09<while(!self()) {aBlock()}>",
|
|
305
344
|
messageSends: [],
|
|
@@ -314,8 +353,9 @@ selector: "whileTrue",
|
|
|
314
353
|
category: 'controlling',
|
|
315
354
|
fn: function (){
|
|
316
355
|
var self=this;
|
|
317
|
-
smalltalk.send(self,
|
|
318
|
-
|
|
356
|
+
smalltalk.send(self,"_whileTrue_",[(function(){
|
|
357
|
+
})]);
|
|
358
|
+
return self},
|
|
319
359
|
args: [],
|
|
320
360
|
source: "whileTrue\x0a\x09\x22inlined in the Compiler\x22\x0a\x09self whileTrue: []",
|
|
321
361
|
messageSends: ["whileTrue:"],
|
|
@@ -331,7 +371,8 @@ category: 'controlling',
|
|
|
331
371
|
fn: function (aBlock){
|
|
332
372
|
var self=this;
|
|
333
373
|
while(self()) {aBlock()};
|
|
334
|
-
|
|
374
|
+
;
|
|
375
|
+
return self},
|
|
335
376
|
args: ["aBlock"],
|
|
336
377
|
source: "whileTrue: aBlock\x0a\x09\x22inlined in the Compiler\x22\x0a\x09<while(self()) {aBlock()}>",
|
|
337
378
|
messageSends: [],
|
|
@@ -351,7 +392,8 @@ category: 'accessing',
|
|
|
351
392
|
fn: function (){
|
|
352
393
|
var self=this;
|
|
353
394
|
return self.args || [];
|
|
354
|
-
|
|
395
|
+
;
|
|
396
|
+
return self},
|
|
355
397
|
args: [],
|
|
356
398
|
source: "arguments\x0a\x09<return self.args || []>",
|
|
357
399
|
messageSends: [],
|
|
@@ -366,8 +408,15 @@ selector: "category",
|
|
|
366
408
|
category: 'accessing',
|
|
367
409
|
fn: function (){
|
|
368
410
|
var self=this;
|
|
369
|
-
|
|
370
|
-
|
|
411
|
+
var $2,$1;
|
|
412
|
+
$2=smalltalk.send(self,"_basicAt_",["category"]);
|
|
413
|
+
if(($receiver = $2) == nil || $receiver == undefined){
|
|
414
|
+
$1="";
|
|
415
|
+
} else {
|
|
416
|
+
$1=$2;
|
|
417
|
+
};
|
|
418
|
+
return $1;
|
|
419
|
+
},
|
|
371
420
|
args: [],
|
|
372
421
|
source: "category\x0a\x09^(self basicAt: 'category') ifNil: ['']",
|
|
373
422
|
messageSends: ["ifNil:", "basicAt:"],
|
|
@@ -382,8 +431,8 @@ selector: "category:",
|
|
|
382
431
|
category: 'accessing',
|
|
383
432
|
fn: function (aString){
|
|
384
433
|
var self=this;
|
|
385
|
-
smalltalk.send(self,
|
|
386
|
-
return self
|
|
434
|
+
smalltalk.send(self,"_basicAt_put_",["category",aString]);
|
|
435
|
+
return self},
|
|
387
436
|
args: ["aString"],
|
|
388
437
|
source: "category: aString\x0a\x09self basicAt: 'category' put: aString",
|
|
389
438
|
messageSends: ["basicAt:put:"],
|
|
@@ -398,8 +447,10 @@ selector: "fn",
|
|
|
398
447
|
category: 'accessing',
|
|
399
448
|
fn: function (){
|
|
400
449
|
var self=this;
|
|
401
|
-
|
|
402
|
-
|
|
450
|
+
var $1;
|
|
451
|
+
$1=smalltalk.send(self,"_basicAt_",["fn"]);
|
|
452
|
+
return $1;
|
|
453
|
+
},
|
|
403
454
|
args: [],
|
|
404
455
|
source: "fn\x0a\x09^self basicAt: 'fn'",
|
|
405
456
|
messageSends: ["basicAt:"],
|
|
@@ -414,8 +465,8 @@ selector: "fn:",
|
|
|
414
465
|
category: 'accessing',
|
|
415
466
|
fn: function (aBlock){
|
|
416
467
|
var self=this;
|
|
417
|
-
smalltalk.send(self,
|
|
418
|
-
return self
|
|
468
|
+
smalltalk.send(self,"_basicAt_put_",["fn",aBlock]);
|
|
469
|
+
return self},
|
|
419
470
|
args: ["aBlock"],
|
|
420
471
|
source: "fn: aBlock\x0a\x09self basicAt: 'fn' put: aBlock",
|
|
421
472
|
messageSends: ["basicAt:put:"],
|
|
@@ -430,8 +481,10 @@ selector: "messageSends",
|
|
|
430
481
|
category: 'accessing',
|
|
431
482
|
fn: function (){
|
|
432
483
|
var self=this;
|
|
433
|
-
|
|
434
|
-
|
|
484
|
+
var $1;
|
|
485
|
+
$1=smalltalk.send(self,"_basicAt_",["messageSends"]);
|
|
486
|
+
return $1;
|
|
487
|
+
},
|
|
435
488
|
args: [],
|
|
436
489
|
source: "messageSends\x0a\x09^self basicAt: 'messageSends'",
|
|
437
490
|
messageSends: ["basicAt:"],
|
|
@@ -446,8 +499,10 @@ selector: "methodClass",
|
|
|
446
499
|
category: 'accessing',
|
|
447
500
|
fn: function (){
|
|
448
501
|
var self=this;
|
|
449
|
-
|
|
450
|
-
|
|
502
|
+
var $1;
|
|
503
|
+
$1=smalltalk.send(self,"_basicAt_",["methodClass"]);
|
|
504
|
+
return $1;
|
|
505
|
+
},
|
|
451
506
|
args: [],
|
|
452
507
|
source: "methodClass\x0a\x09^self basicAt: 'methodClass'",
|
|
453
508
|
messageSends: ["basicAt:"],
|
|
@@ -455,6 +510,24 @@ referencedClasses: []
|
|
|
455
510
|
}),
|
|
456
511
|
smalltalk.CompiledMethod);
|
|
457
512
|
|
|
513
|
+
smalltalk.addMethod(
|
|
514
|
+
"_protocol",
|
|
515
|
+
smalltalk.method({
|
|
516
|
+
selector: "protocol",
|
|
517
|
+
category: 'accessing',
|
|
518
|
+
fn: function (){
|
|
519
|
+
var self=this;
|
|
520
|
+
var $1;
|
|
521
|
+
$1=smalltalk.send(self,"_category",[]);
|
|
522
|
+
return $1;
|
|
523
|
+
},
|
|
524
|
+
args: [],
|
|
525
|
+
source: "protocol\x0a\x09^ self category",
|
|
526
|
+
messageSends: ["category"],
|
|
527
|
+
referencedClasses: []
|
|
528
|
+
}),
|
|
529
|
+
smalltalk.CompiledMethod);
|
|
530
|
+
|
|
458
531
|
smalltalk.addMethod(
|
|
459
532
|
"_referencedClasses",
|
|
460
533
|
smalltalk.method({
|
|
@@ -462,8 +535,10 @@ selector: "referencedClasses",
|
|
|
462
535
|
category: 'accessing',
|
|
463
536
|
fn: function (){
|
|
464
537
|
var self=this;
|
|
465
|
-
|
|
466
|
-
|
|
538
|
+
var $1;
|
|
539
|
+
$1=smalltalk.send(self,"_basicAt_",["referencedClasses"]);
|
|
540
|
+
return $1;
|
|
541
|
+
},
|
|
467
542
|
args: [],
|
|
468
543
|
source: "referencedClasses\x0a\x09^self basicAt: 'referencedClasses'",
|
|
469
544
|
messageSends: ["basicAt:"],
|
|
@@ -478,8 +553,10 @@ selector: "selector",
|
|
|
478
553
|
category: 'accessing',
|
|
479
554
|
fn: function (){
|
|
480
555
|
var self=this;
|
|
481
|
-
|
|
482
|
-
|
|
556
|
+
var $1;
|
|
557
|
+
$1=smalltalk.send(self,"_basicAt_",["selector"]);
|
|
558
|
+
return $1;
|
|
559
|
+
},
|
|
483
560
|
args: [],
|
|
484
561
|
source: "selector\x0a\x09^self basicAt: 'selector'",
|
|
485
562
|
messageSends: ["basicAt:"],
|
|
@@ -494,8 +571,8 @@ selector: "selector:",
|
|
|
494
571
|
category: 'accessing',
|
|
495
572
|
fn: function (aString){
|
|
496
573
|
var self=this;
|
|
497
|
-
smalltalk.send(self,
|
|
498
|
-
return self
|
|
574
|
+
smalltalk.send(self,"_basicAt_put_",["selector",aString]);
|
|
575
|
+
return self},
|
|
499
576
|
args: ["aString"],
|
|
500
577
|
source: "selector: aString\x0a\x09self basicAt: 'selector' put: aString",
|
|
501
578
|
messageSends: ["basicAt:put:"],
|
|
@@ -510,8 +587,15 @@ selector: "source",
|
|
|
510
587
|
category: 'accessing',
|
|
511
588
|
fn: function (){
|
|
512
589
|
var self=this;
|
|
513
|
-
|
|
514
|
-
|
|
590
|
+
var $2,$1;
|
|
591
|
+
$2=smalltalk.send(self,"_basicAt_",["source"]);
|
|
592
|
+
if(($receiver = $2) == nil || $receiver == undefined){
|
|
593
|
+
$1="";
|
|
594
|
+
} else {
|
|
595
|
+
$1=$2;
|
|
596
|
+
};
|
|
597
|
+
return $1;
|
|
598
|
+
},
|
|
515
599
|
args: [],
|
|
516
600
|
source: "source\x0a\x09^(self basicAt: 'source') ifNil: ['']",
|
|
517
601
|
messageSends: ["ifNil:", "basicAt:"],
|
|
@@ -526,8 +610,8 @@ selector: "source:",
|
|
|
526
610
|
category: 'accessing',
|
|
527
611
|
fn: function (aString){
|
|
528
612
|
var self=this;
|
|
529
|
-
smalltalk.send(self,
|
|
530
|
-
return self
|
|
613
|
+
smalltalk.send(self,"_basicAt_put_",["source",aString]);
|
|
614
|
+
return self},
|
|
531
615
|
args: ["aString"],
|
|
532
616
|
source: "source: aString\x0a\x09self basicAt: 'source' put: aString",
|
|
533
617
|
messageSends: ["basicAt:put:"],
|
|
@@ -546,8 +630,8 @@ selector: "arguments",
|
|
|
546
630
|
category: 'accessing',
|
|
547
631
|
fn: function (){
|
|
548
632
|
var self=this;
|
|
549
|
-
return self[
|
|
550
|
-
|
|
633
|
+
return self["@arguments"];
|
|
634
|
+
},
|
|
551
635
|
args: [],
|
|
552
636
|
source: "arguments\x0a\x09^arguments",
|
|
553
637
|
messageSends: [],
|
|
@@ -562,8 +646,8 @@ selector: "arguments:",
|
|
|
562
646
|
category: 'accessing',
|
|
563
647
|
fn: function (anArray){
|
|
564
648
|
var self=this;
|
|
565
|
-
|
|
566
|
-
return self
|
|
649
|
+
self["@arguments"]=anArray;
|
|
650
|
+
return self},
|
|
567
651
|
args: ["anArray"],
|
|
568
652
|
source: "arguments: anArray\x0a\x09arguments := anArray",
|
|
569
653
|
messageSends: [],
|
|
@@ -578,8 +662,16 @@ selector: "printString",
|
|
|
578
662
|
category: 'printing',
|
|
579
663
|
fn: function (){
|
|
580
664
|
var self=this;
|
|
581
|
-
|
|
582
|
-
|
|
665
|
+
var $2,$1;
|
|
666
|
+
$1=smalltalk.send((smalltalk.String || String),"_streamContents_",[(function(aStream){
|
|
667
|
+
smalltalk.send(aStream,"_nextPutAll_",[smalltalk.send(self,"_printString",[],smalltalk.Object)]);
|
|
668
|
+
smalltalk.send(aStream,"_nextPutAll_",["("]);
|
|
669
|
+
smalltalk.send(aStream,"_nextPutAll_",[self["@selector"]]);
|
|
670
|
+
$2=smalltalk.send(aStream,"_nextPutAll_",[")"]);
|
|
671
|
+
return $2;
|
|
672
|
+
})]);
|
|
673
|
+
return $1;
|
|
674
|
+
},
|
|
583
675
|
args: [],
|
|
584
676
|
source: "printString\x0a\x09^ String streamContents: [:aStream| \x0a \x09\x09\x09\x09aStream \x0a \x09\x09\x09\x09\x09nextPutAll: super printString;\x0a \x09\x09\x09\x09\x09nextPutAll: '(';\x0a \x09\x09\x09\x09\x09nextPutAll: selector;\x0a \x09\x09\x09\x09\x09nextPutAll: ')' \x09\x09\x09\x09]",
|
|
585
677
|
messageSends: ["streamContents:", "nextPutAll:", "printString"],
|
|
@@ -594,8 +686,8 @@ selector: "selector",
|
|
|
594
686
|
category: 'accessing',
|
|
595
687
|
fn: function (){
|
|
596
688
|
var self=this;
|
|
597
|
-
return self[
|
|
598
|
-
|
|
689
|
+
return self["@selector"];
|
|
690
|
+
},
|
|
599
691
|
args: [],
|
|
600
692
|
source: "selector\x0a\x09^selector",
|
|
601
693
|
messageSends: [],
|
|
@@ -610,8 +702,8 @@ selector: "selector:",
|
|
|
610
702
|
category: 'accessing',
|
|
611
703
|
fn: function (aString){
|
|
612
704
|
var self=this;
|
|
613
|
-
|
|
614
|
-
return self
|
|
705
|
+
self["@selector"]=aString;
|
|
706
|
+
return self},
|
|
615
707
|
args: ["aString"],
|
|
616
708
|
source: "selector: aString\x0a\x09selector := aString",
|
|
617
709
|
messageSends: [],
|
|
@@ -626,11 +718,13 @@ selector: "sendTo:",
|
|
|
626
718
|
category: 'printing',
|
|
627
719
|
fn: function (anObject){
|
|
628
720
|
var self=this;
|
|
629
|
-
|
|
630
|
-
|
|
721
|
+
var $1;
|
|
722
|
+
$1=smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk),"_current",[]),"_send_to_arguments_",[smalltalk.send(self,"_selector",[]),anObject,smalltalk.send(self,"_arguments",[])]);
|
|
723
|
+
return $1;
|
|
724
|
+
},
|
|
631
725
|
args: ["anObject"],
|
|
632
|
-
source: "sendTo: anObject\x0a\
|
|
633
|
-
messageSends: ["send:to:arguments:", "
|
|
726
|
+
source: "sendTo: anObject\x0a\x09^ Smalltalk current send: self selector to: anObject arguments: self arguments",
|
|
727
|
+
messageSends: ["send:to:arguments:", "selector", "arguments", "current"],
|
|
634
728
|
referencedClasses: ["Smalltalk"]
|
|
635
729
|
}),
|
|
636
730
|
smalltalk.Message);
|
|
@@ -641,13 +735,19 @@ smalltalk.addMethod(
|
|
|
641
735
|
smalltalk.method({
|
|
642
736
|
selector: "selector:arguments:",
|
|
643
737
|
category: 'instance creation',
|
|
644
|
-
fn: function (aString,
|
|
645
|
-
var self=this;
|
|
646
|
-
|
|
647
|
-
|
|
738
|
+
fn: function (aString,anArray){
|
|
739
|
+
var self=this;
|
|
740
|
+
var $2,$3,$1;
|
|
741
|
+
$2=smalltalk.send(self,"_new",[]);
|
|
742
|
+
smalltalk.send($2,"_selector_",[aString]);
|
|
743
|
+
smalltalk.send($2,"_arguments_",[anArray]);
|
|
744
|
+
$3=smalltalk.send($2,"_yourself",[]);
|
|
745
|
+
$1=$3;
|
|
746
|
+
return $1;
|
|
747
|
+
},
|
|
648
748
|
args: ["aString", "anArray"],
|
|
649
749
|
source: "selector: aString arguments: anArray\x0a\x09^self new\x0a\x09\x09selector: aString;\x0a\x09\x09arguments: anArray;\x0a\x09\x09yourself",
|
|
650
|
-
messageSends: ["selector:", "
|
|
750
|
+
messageSends: ["selector:", "new", "arguments:", "yourself"],
|
|
651
751
|
referencedClasses: []
|
|
652
752
|
}),
|
|
653
753
|
smalltalk.Message.klass);
|
|
@@ -662,11 +762,13 @@ selector: "asString",
|
|
|
662
762
|
category: 'accessing',
|
|
663
763
|
fn: function (){
|
|
664
764
|
var self=this;
|
|
665
|
-
|
|
666
|
-
|
|
765
|
+
var $1;
|
|
766
|
+
$1=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self,"_receiver",[]),"_class",[]),"_printString",[]),"__comma",[" >> "]),"__comma",[smalltalk.send(self,"_selector",[])]);
|
|
767
|
+
return $1;
|
|
768
|
+
},
|
|
667
769
|
args: [],
|
|
668
770
|
source: "asString\x0a\x09^self receiver class printString, ' >> ', self selector",
|
|
669
|
-
messageSends: [",", "
|
|
771
|
+
messageSends: [",", "selector", "printString", "class", "receiver"],
|
|
670
772
|
referencedClasses: []
|
|
671
773
|
}),
|
|
672
774
|
smalltalk.MethodContext);
|
|
@@ -679,7 +781,8 @@ category: 'accessing',
|
|
|
679
781
|
fn: function (){
|
|
680
782
|
var self=this;
|
|
681
783
|
return self.homeContext;
|
|
682
|
-
|
|
784
|
+
;
|
|
785
|
+
return self},
|
|
683
786
|
args: [],
|
|
684
787
|
source: "home\x0a\x09<return self.homeContext>",
|
|
685
788
|
messageSends: [],
|
|
@@ -687,6 +790,23 @@ referencedClasses: []
|
|
|
687
790
|
}),
|
|
688
791
|
smalltalk.MethodContext);
|
|
689
792
|
|
|
793
|
+
smalltalk.addMethod(
|
|
794
|
+
"_pc",
|
|
795
|
+
smalltalk.method({
|
|
796
|
+
selector: "pc",
|
|
797
|
+
category: 'accessing',
|
|
798
|
+
fn: function (){
|
|
799
|
+
var self=this;
|
|
800
|
+
return self.pc;
|
|
801
|
+
;
|
|
802
|
+
return self},
|
|
803
|
+
args: [],
|
|
804
|
+
source: "pc\x0a\x09<return self.pc>",
|
|
805
|
+
messageSends: [],
|
|
806
|
+
referencedClasses: []
|
|
807
|
+
}),
|
|
808
|
+
smalltalk.MethodContext);
|
|
809
|
+
|
|
690
810
|
smalltalk.addMethod(
|
|
691
811
|
"_printString",
|
|
692
812
|
smalltalk.method({
|
|
@@ -694,11 +814,13 @@ selector: "printString",
|
|
|
694
814
|
category: 'accessing',
|
|
695
815
|
fn: function (){
|
|
696
816
|
var self=this;
|
|
697
|
-
|
|
698
|
-
|
|
817
|
+
var $1;
|
|
818
|
+
$1=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self,"_printString",[],smalltalk.Object),"__comma",["("]),"__comma",[smalltalk.send(self,"_asString",[])]),"__comma",[")"]);
|
|
819
|
+
return $1;
|
|
820
|
+
},
|
|
699
821
|
args: [],
|
|
700
822
|
source: "printString\x0a\x09^super printString, '(', self asString, ')'",
|
|
701
|
-
messageSends: [",", "
|
|
823
|
+
messageSends: [",", "asString", "printString"],
|
|
702
824
|
referencedClasses: []
|
|
703
825
|
}),
|
|
704
826
|
smalltalk.MethodContext);
|
|
@@ -711,7 +833,8 @@ category: 'accessing',
|
|
|
711
833
|
fn: function (){
|
|
712
834
|
var self=this;
|
|
713
835
|
return self.receiver;
|
|
714
|
-
|
|
836
|
+
;
|
|
837
|
+
return self},
|
|
715
838
|
args: [],
|
|
716
839
|
source: "receiver\x0a\x09<return self.receiver>",
|
|
717
840
|
messageSends: [],
|
|
@@ -727,7 +850,8 @@ category: 'accessing',
|
|
|
727
850
|
fn: function (){
|
|
728
851
|
var self=this;
|
|
729
852
|
return smalltalk.convertSelector(self.selector);
|
|
730
|
-
|
|
853
|
+
;
|
|
854
|
+
return self},
|
|
731
855
|
args: [],
|
|
732
856
|
source: "selector\x0a\x09<return smalltalk.convertSelector(self.selector)>",
|
|
733
857
|
messageSends: [],
|
|
@@ -743,7 +867,8 @@ category: 'accessing',
|
|
|
743
867
|
fn: function (){
|
|
744
868
|
var self=this;
|
|
745
869
|
return self.temps;
|
|
746
|
-
|
|
870
|
+
;
|
|
871
|
+
return self},
|
|
747
872
|
args: [],
|
|
748
873
|
source: "temps\x0a\x09<return self.temps>",
|
|
749
874
|
messageSends: [],
|