Browse Source

fixed dangling commas

Herbert Vojčík 9 years ago
parent
commit
e35bb08eae

File diff suppressed because it is too large
+ 106 - 107
external/amber-cli/src/AmberCli.js


File diff suppressed because it is too large
+ 134 - 134
external/amber-cli/support/amber-cli.js


+ 14 - 14
src/Benchfib.js

@@ -22,12 +22,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"main",{result:result},globals.Benchfib.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["tinyBenchmarks", "log:", ","],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "main\x0a\x0a\x09| result |\x0a\x09result := 0 tinyBenchmarks.\x0a\x09console log: '0 tinyBenchmarks => ' , result",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["tinyBenchmarks", "log:", ","]
 }),
 globals.Benchfib.klass);
 
@@ -64,12 +64,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"benchFib",{},globals.Number)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ifTrue:ifFalse:", "<", "+", "benchFib", "-"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "benchFib\x0a\x09\x22Handy send-heavy benchmark\x22\x0a\x09\x22(result // seconds to run) = approx calls per second\x22\x0a\x09\x22\x09| r t |\x0a\x09\x09t := Time millisecondsToRun: [r := 26 benchFib].\x0a\x09\x09(r * 1000) // t\x22\x0a\x09\x22138000 on a Mac 8100/100\x22\x0a\x09^ self < 2\x0a\x09\x09ifTrue: [1]\x0a\x09\x09ifFalse: [(self-1) benchFib + (self-2) benchFib + 1]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["ifTrue:ifFalse:", "<", "+", "benchFib", "-"]
 }),
 globals.Number);
 
@@ -161,12 +161,12 @@ return $2;
 }, function($ctx1) {$ctx1.fill(self,"benchmark",{size:size,flags:flags,prime:prime,k:k,count:count},globals.Number)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["to:do:", "new", "timesRepeat:", "add:", "ifTrue:", "at:", "+", "whileTrue:", "<=", "at:put:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "benchmark\x0a\x09\x22Handy bytecode-heavy benchmark\x22\x0a\x09\x22(500000 // time to run) = approx bytecodes per second\x22\x0a\x09\x225000000 // (Time millisecondsToRun: [10 benchmark]) * 1000\x22\x0a\x09\x223059000 on a Mac 8100/100\x22\x0a\x09| size flags prime k count |\x0a\x09size := 8190.\x0a\x091 to: self do:\x0a\x09\x09[:iter |\x0a\x09\x09count := 0.\x0a\x09\x09flags := Array new.\x0a\x09\x09size timesRepeat: [ flags add: true].\x0a\x09\x091 to: size do:\x0a\x09\x09\x09[:i | (flags at: i) ifTrue:\x0a\x09\x09\x09\x09[prime := i+1.\x0a\x09\x09\x09\x09k := i + prime.\x0a\x09\x09\x09\x09[k <= size] whileTrue:\x0a\x09\x09\x09\x09\x09[flags at: k put: false.\x0a\x09\x09\x09\x09\x09k := k + prime].\x0a\x09\x09\x09\x09count := count + 1]]].\x0a\x09^ count",
-referencedClasses: ["Array"]
+referencedClasses: ["Array"],
 //>>excludeEnd("ide");
+messageSends: ["to:do:", "new", "timesRepeat:", "add:", "ifTrue:", "at:", "+", "whileTrue:", "<=", "at:put:"]
 }),
 globals.Number);
 
@@ -188,12 +188,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"jsbenchFib",{},globals.Number)});
 //>>excludeEnd("ctx");
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "jsbenchFib\x0a\x0a\x09<if (this < 2) {\x0areturn 1;\x0a} else {\x0areturn (this-1)._jsbenchFib() + (this-2)._jsbenchFib() + 1;}>",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Number);
 
@@ -233,12 +233,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"jsbenchmark",{},globals.Number)});
 //>>excludeEnd("ctx");
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "jsbenchmark\x0a\x0a<\x0avar size = 8190;\x0avar count;\x0afor (var z=0;z<this;z++) {\x0a\x09count = 0;\x0a\x09var flags = new Array();\x0a\x09for (var p=0; p<size; p++) {\x0a\x09flags[p] = true;\x0a\x09}\x0a\x09for (var i=1;i<=size;i++) {\x0a\x09\x09if (flags[i-1]) {\x0a\x09\x09\x09var prime = i+1;\x0a\x09\x09\x09var k = i + prime;\x0a\x09\x09\x09while (k <= size) {\x0a\x09\x09\x09\x09flags[k-1] = false;\x0a\x09\x09\x09\x09k = k + prime;\x0a\x09\x09\x09}\x0a\x09\x09\x09count = count + 1;\x0a\x09\x09}\x0a\x09}\x0a}\x0areturn count>",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Number);
 
@@ -355,12 +355,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"jstinyBenchmarks",{t1:t1,t2:t2,r:r,n1:n1,n2:n2},globals.Number)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["whileTrue:", "millisecondsToRun:", "jsbenchmark", "<", "*", "jsbenchFib", "+", ",", "printString", "/"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "jstinyBenchmarks\x0a\x09\x220 jstinyBenchmarks\x22\x0a\x0a\x09| t1 t2 r n1 n2 |\x0a\x09n1 := 1.\x0a\x09[t1 := Date millisecondsToRun: [n1 jsbenchmark].\x0a\x09t1 < 1000] whileTrue:[n1 := n1 * 2]. \x22Note: #benchmark's runtime is about O(n)\x22\x0a\x0a\x09n2 := 28.\x0a\x09[t2 := Date millisecondsToRun: [r := n2 jsbenchFib].\x0a\x09t2 < 1000] whileTrue:[n2 := n2 + 1].\x0a\x09\x22Note: #jsbenchFib's runtime is about O(k^n),\x0a\x09\x09where k is the golden number = (1 + 5 sqrt) / 2 = 1.618....\x22\x0a\x0a\x09^ ((n1 * 500000 * 1000) / t1) printString, ' bytecodes/sec; ',\x0a\x09\x09((r * 1000) / t2) printString, ' sends/sec'",
-referencedClasses: ["Date"]
+referencedClasses: ["Date"],
 //>>excludeEnd("ide");
+messageSends: ["whileTrue:", "millisecondsToRun:", "jsbenchmark", "<", "*", "jsbenchFib", "+", ",", "printString", "/"]
 }),
 globals.Number);
 
@@ -477,12 +477,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"tinyBenchmarks",{t1:t1,t2:t2,r:r,n1:n1,n2:n2},globals.Number)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["whileTrue:", "millisecondsToRun:", "benchmark", "<", "*", "benchFib", "+", ",", "printString", "/"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "tinyBenchmarks\x0a\x09\x22Report the results of running the two tiny Squeak benchmarks.\x0a\x09ar 9/10/1999: Adjusted to run at least 1 sec to get more stable results\x22\x0a\x09\x220 tinyBenchmarks\x22\x0a\x09\x22On a 292 MHz G3 Mac: 22727272 bytecodes/sec; 984169 sends/sec\x22\x0a\x09\x22On a 400 MHz PII/Win98: 18028169 bytecodes/sec; 1081272 sends/sec\x22\x0a\x09| t1 t2 r n1 n2 |\x0a\x09n1 := 1.\x0a\x09[t1 := Date millisecondsToRun: [n1 benchmark].\x0a\x09t1 < 1000] whileTrue:[n1 := n1 * 2]. \x22Note: #benchmark's runtime is about O(n)\x22\x0a\x0a\x09n2 := 16.\x0a\x09[t2 := Date millisecondsToRun: [r := n2 benchFib].\x0a\x09t2 < 1000] whileTrue:[n2 := n2 + 1].\x0a\x09\x22Note: #benchFib's runtime is about O(k^n),\x0a\x09\x09where k is the golden number = (1 + 5 sqrt) / 2 = 1.618....\x22\x0a\x0a\x09^ ((n1 * 500000 * 1000) / t1) printString, ' bytecodes/sec; ',\x0a\x09\x09((r * 1000) / t2) printString, ' sends/sec'",
-referencedClasses: ["Date"]
+referencedClasses: ["Date"],
 //>>excludeEnd("ide");
+messageSends: ["whileTrue:", "millisecondsToRun:", "benchmark", "<", "*", "benchFib", "+", ",", "printString", "/"]
 }),
 globals.Number);
 

File diff suppressed because it is too large
+ 134 - 134
src/Compiler-AST.js


+ 110 - 110
src/Compiler-Core.js

@@ -37,12 +37,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"classNameFor:",{aClass:aClass},globals.AbstractCodeGenerator)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ifTrue:ifFalse:", "isMetaclass", ",", "name", "instanceClass", "isNil"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aClass"],
 source: "classNameFor: aClass\x0a\x09^ aClass isMetaclass\x0a\x09\x09ifTrue: [ aClass instanceClass name, '.klass' ]\x0a\x09\x09ifFalse: [\x0a\x09\x09aClass isNil\x0a\x09\x09\x09ifTrue: [ 'nil' ]\x0a\x09\x09\x09ifFalse: [ aClass name ]]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["ifTrue:ifFalse:", "isMetaclass", ",", "name", "instanceClass", "isNil"]
 }),
 globals.AbstractCodeGenerator);
 
@@ -61,12 +61,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"compileNode:",{aNode:aNode},globals.AbstractCodeGenerator)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["subclassResponsibility"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "compileNode: aNode\x0a\x09self subclassResponsibility",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["subclassResponsibility"]
 }),
 globals.AbstractCodeGenerator);
 
@@ -81,12 +81,12 @@ $1=self["@currentClass"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "currentClass\x0a\x09^ currentClass",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.AbstractCodeGenerator);
 
@@ -100,12 +100,12 @@ self["@currentClass"]=aClass;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aClass"],
 source: "currentClass: aClass\x0a\x09currentClass := aClass",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.AbstractCodeGenerator);
 
@@ -126,12 +126,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"pseudoVariables",{},globals.AbstractCodeGenerator)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["pseudoVariableNames"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "pseudoVariables\x0a\x09^ Smalltalk pseudoVariableNames",
-referencedClasses: ["Smalltalk"]
+referencedClasses: ["Smalltalk"],
 //>>excludeEnd("ide");
+messageSends: ["pseudoVariableNames"]
 }),
 globals.AbstractCodeGenerator);
 
@@ -156,12 +156,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"source",{},globals.AbstractCodeGenerator)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ifNil:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "source\x0a\x09^ source ifNil: [ '' ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["ifNil:"]
 }),
 globals.AbstractCodeGenerator);
 
@@ -175,12 +175,12 @@ self["@source"]=aString;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "source: aString\x0a\x09source := aString",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.AbstractCodeGenerator);
 
@@ -219,12 +219,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"compileNode:",{aNode:aNode,ir:ir,stream:stream},globals.CodeGenerator)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["visit:", "semanticAnalyzer", "translator", "currentClass:", "irTranslator", "currentClass", "contents"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "compileNode: aNode\x0a\x09| ir stream |\x0a\x09self semanticAnalyzer visit: aNode.\x0a\x09ir := self translator visit: aNode.\x0a\x09^ self irTranslator\x0a\x09\x09currentClass: self currentClass;\x0a\x09\x09visit: ir;\x0a\x09\x09contents",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["visit:", "semanticAnalyzer", "translator", "currentClass:", "irTranslator", "currentClass", "contents"]
 }),
 globals.CodeGenerator);
 
@@ -245,12 +245,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"irTranslator",{},globals.CodeGenerator)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["new"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "irTranslator\x0a\x09^ IRJSTranslator new",
-referencedClasses: ["IRJSTranslator"]
+referencedClasses: ["IRJSTranslator"],
 //>>excludeEnd("ide");
+messageSends: ["new"]
 }),
 globals.CodeGenerator);
 
@@ -271,12 +271,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"semanticAnalyzer",{},globals.CodeGenerator)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["on:", "currentClass"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "semanticAnalyzer\x0a\x09^ SemanticAnalyzer on: self currentClass",
-referencedClasses: ["SemanticAnalyzer"]
+referencedClasses: ["SemanticAnalyzer"],
 //>>excludeEnd("ide");
+messageSends: ["on:", "currentClass"]
 }),
 globals.CodeGenerator);
 
@@ -301,12 +301,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"translator",{},globals.CodeGenerator)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["source:", "new", "source", "theClass:", "currentClass", "yourself"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "translator\x0a\x09^ IRASTTranslator new\x0a\x09\x09source: self source;\x0a\x09\x09theClass: self currentClass;\x0a\x09\x09yourself",
-referencedClasses: ["IRASTTranslator"]
+referencedClasses: ["IRASTTranslator"],
 //>>excludeEnd("ide");
+messageSends: ["source:", "new", "source", "theClass:", "currentClass", "yourself"]
 }),
 globals.CodeGenerator);
 
@@ -338,12 +338,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"codeGeneratorClass",{},globals.Compiler)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ifNil:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "codeGeneratorClass\x0a\x09^ codeGeneratorClass ifNil: [ InliningCodeGenerator ]",
-referencedClasses: ["InliningCodeGenerator"]
+referencedClasses: ["InliningCodeGenerator"],
 //>>excludeEnd("ide");
+messageSends: ["ifNil:"]
 }),
 globals.Compiler);
 
@@ -357,12 +357,12 @@ self["@codeGeneratorClass"]=aClass;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aClass"],
 source: "codeGeneratorClass: aClass\x0a\x09codeGeneratorClass := aClass",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Compiler);
 
@@ -382,12 +382,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"compile:",{aString:aString},globals.Compiler)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["compileNode:", "parse:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "compile: aString\x0a\x09^ self compileNode: (self parse: aString)",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["compileNode:", "parse:"]
 }),
 globals.Compiler);
 
@@ -409,12 +409,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"compile:forClass:",{aString:aString,aClass:aClass},globals.Compiler)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["currentClass:", "source:", "compile:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString", "aClass"],
 source: "compile: aString forClass: aClass\x0a\x09self currentClass: aClass.\x0a\x09self source: aString.\x0a\x09^ self compile: aString",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["currentClass:", "source:", "compile:"]
 }),
 globals.Compiler);
 
@@ -441,12 +441,12 @@ return $2;
 }, function($ctx1) {$ctx1.fill(self,"compileExpression:",{aString:aString},globals.Compiler)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["currentClass:", "source:", ",", "compileNode:", "parse:", "source"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "compileExpression: aString\x0a\x09self currentClass: DoIt.\x0a\x09self source: 'doIt ^ [ ', aString, ' ] value'.\x0a\x09^ self compileNode: (self parse: self source)",
-referencedClasses: ["DoIt"]
+referencedClasses: ["DoIt"],
 //>>excludeEnd("ide");
+messageSends: ["currentClass:", "source:", ",", "compileNode:", "parse:", "source"]
 }),
 globals.Compiler);
 
@@ -472,12 +472,12 @@ return $2;
 }, function($ctx1) {$ctx1.fill(self,"compileExpression:on:",{aString:aString,anObject:anObject},globals.Compiler)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["currentClass:", "class", "source:", ",", "compileNode:", "parse:", "source"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString", "anObject"],
 source: "compileExpression: aString on: anObject\x0a\x09self currentClass: anObject class.\x0a\x09self source: 'xxxDoIt ^ [ ', aString, ' ] value'.\x0a\x09^ self compileNode: (self parse: self source)",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["currentClass:", "class", "source:", ",", "compileNode:", "parse:", "source"]
 }),
 globals.Compiler);
 
@@ -504,12 +504,12 @@ return $3;
 }, function($ctx1) {$ctx1.fill(self,"compileNode:",{aNode:aNode,generator:generator,result:result},globals.Compiler)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["new", "codeGeneratorClass", "source:", "source", "currentClass:", "currentClass", "compileNode:", "unknownVariables:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "compileNode: aNode\x0a\x09| generator result |\x0a\x09generator := self codeGeneratorClass new.\x0a\x09generator\x0a\x09\x09source: self source;\x0a\x09\x09currentClass: self currentClass.\x0a\x09result := generator compileNode: aNode.\x0a\x09self unknownVariables: #().\x0a\x09^ result",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["new", "codeGeneratorClass", "source:", "source", "currentClass:", "currentClass", "compileNode:", "unknownVariables:"]
 }),
 globals.Compiler);
 
@@ -524,12 +524,12 @@ $1=self["@currentClass"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "currentClass\x0a\x09^ currentClass",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Compiler);
 
@@ -543,12 +543,12 @@ self["@currentClass"]=aClass;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aClass"],
 source: "currentClass: aClass\x0a\x09currentClass := aClass",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Compiler);
 
@@ -567,12 +567,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"eval:",{aString:aString},globals.Compiler)});
 //>>excludeEnd("ctx");
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "eval: aString\x0a\x09<return eval(aString)>",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Compiler);
 
@@ -593,12 +593,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"evaluateExpression:",{aString:aString},globals.Compiler)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["evaluateExpression:on:", "new"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "evaluateExpression: aString\x0a\x09\x22Unlike #eval: evaluate a Smalltalk expression and answer the returned object\x22\x0a\x09^ self evaluateExpression: aString on: DoIt new",
-referencedClasses: ["DoIt"]
+referencedClasses: ["DoIt"],
 //>>excludeEnd("ide");
+messageSends: ["evaluateExpression:on:", "new"]
 }),
 globals.Compiler);
 
@@ -628,12 +628,12 @@ return $2;
 }, function($ctx1) {$ctx1.fill(self,"evaluateExpression:on:",{aString:aString,anObject:anObject,result:result,method:method},globals.Compiler)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["eval:", "compileExpression:on:", "protocol:", "addCompiledMethod:", "class", "xxxDoIt", "removeCompiledMethod:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString", "anObject"],
 source: "evaluateExpression: aString on: anObject\x0a\x09\x22Unlike #eval: evaluate a Smalltalk expression with anObject as the receiver and answer the returned object\x22\x0a\x09| result method |\x0a\x09method := self eval: (self compileExpression: aString on: anObject).\x0a\x09method protocol: '**xxxDoIt'.\x0a\x09anObject class addCompiledMethod: method.\x0a\x09result := anObject xxxDoIt.\x0a\x09anObject class removeCompiledMethod: method.\x0a\x09^ result",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["eval:", "compileExpression:on:", "protocol:", "addCompiledMethod:", "class", "xxxDoIt", "removeCompiledMethod:"]
 }),
 globals.Compiler);
 
@@ -654,12 +654,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"install:forClass:protocol:",{aString:aString,aBehavior:aBehavior,anotherString:anotherString},globals.Compiler)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["installMethod:forClass:protocol:", "new", "eval:", "compile:forClass:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString", "aBehavior", "anotherString"],
 source: "install: aString forClass: aBehavior protocol: anotherString\x0a\x09^ ClassBuilder new\x0a\x09\x09installMethod: (self eval: (self compile: aString forClass: aBehavior))\x0a\x09\x09forClass: aBehavior\x0a\x09\x09protocol: anotherString",
-referencedClasses: ["ClassBuilder"]
+referencedClasses: ["ClassBuilder"],
 //>>excludeEnd("ide");
+messageSends: ["installMethod:forClass:protocol:", "new", "eval:", "compile:forClass:"]
 }),
 globals.Compiler);
 
@@ -680,12 +680,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"parse:",{aString:aString},globals.Compiler)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["parse:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "parse: aString\x0a\x09^ Smalltalk parse: aString",
-referencedClasses: ["Smalltalk"]
+referencedClasses: ["Smalltalk"],
 //>>excludeEnd("ide");
+messageSends: ["parse:"]
 }),
 globals.Compiler);
 
@@ -709,12 +709,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"parseExpression:",{aString:aString},globals.Compiler)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["parse:", ","],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "parseExpression: aString\x0a\x09^ self parse: 'doIt ^ [ ', aString, ' ] value'",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["parse:", ","]
 }),
 globals.Compiler);
 
@@ -746,12 +746,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"recompile:",{aClass:aClass},globals.Compiler)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["do:displayingProgress:", "values", "methodDictionary", "install:forClass:protocol:", "source", "protocol", ",", "name", "ifFalse:", "isMetaclass", "recompile:", "class"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aClass"],
 source: "recompile: aClass\x0a\x09aClass methodDictionary values\x0a\x09\x09do: [ :each | \x0a\x09\x09\x09self \x0a\x09\x09\x09\x09install: each source \x0a\x09\x09\x09\x09forClass: aClass \x0a\x09\x09\x09\x09protocol: each protocol ]\x0a\x09\x09displayingProgress: 'Recompiling ', aClass name.\x0a\x09aClass isMetaclass ifFalse: [ self recompile: aClass class ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["do:displayingProgress:", "values", "methodDictionary", "install:forClass:protocol:", "source", "protocol", ",", "name", "ifFalse:", "isMetaclass", "recompile:", "class"]
 }),
 globals.Compiler);
 
@@ -779,12 +779,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"recompileAll",{},globals.Compiler)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["do:displayingProgress:", "classes", "recompile:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "recompileAll\x0a\x09Smalltalk classes \x0a\x09\x09do: [ :each | self recompile: each ]\x0a\x09\x09displayingProgress: 'Compiling all classes...'",
-referencedClasses: ["Smalltalk"]
+referencedClasses: ["Smalltalk"],
 //>>excludeEnd("ide");
+messageSends: ["do:displayingProgress:", "classes", "recompile:"]
 }),
 globals.Compiler);
 
@@ -809,12 +809,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"source",{},globals.Compiler)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ifNil:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "source\x0a\x09^ source ifNil: [ '' ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["ifNil:"]
 }),
 globals.Compiler);
 
@@ -828,12 +828,12 @@ self["@source"]=aString;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "source: aString\x0a\x09source := aString",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Compiler);
 
@@ -848,12 +848,12 @@ $1=self["@unknownVariables"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "unknownVariables\x0a\x09^ unknownVariables",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Compiler);
 
@@ -867,12 +867,12 @@ self["@unknownVariables"]=aCollection;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aCollection"],
 source: "unknownVariables: aCollection\x0a\x09unknownVariables := aCollection",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Compiler);
 
@@ -892,12 +892,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"recompile:",{aClass:aClass},globals.Compiler.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["recompile:", "new"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aClass"],
 source: "recompile: aClass\x0a\x09self new recompile: aClass",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["recompile:", "new"]
 }),
 globals.Compiler.klass);
 
@@ -925,12 +925,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"recompileAll",{},globals.Compiler.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["do:", "classes", "recompile:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "recompileAll\x0a\x09Smalltalk classes do: [ :each |\x0a\x09\x09self recompile: each ]",
-referencedClasses: ["Smalltalk"]
+referencedClasses: ["Smalltalk"],
 //>>excludeEnd("ide");
+messageSends: ["do:", "classes", "recompile:"]
 }),
 globals.Compiler.klass);
 
@@ -992,12 +992,12 @@ catch(e) {if(e===$early)return e[0]; throw e}
 }, function($ctx1) {$ctx1.fill(self,"evaluate:context:",{aString:aString,aContext:aContext,compiler:compiler,ast:ast},globals.Evaluator)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["new", "on:do:", "parseExpression:", "alert:", "messageText", "context:", "on:", "class", "receiver", "visit:", "evaluateNode:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString", "aContext"],
 source: "evaluate: aString context: aContext\x0a\x09\x22Similar to #evaluate:for:, with the following differences:\x0a\x09- instead of compiling and running `aString`, `aString` is interpreted using an `ASTInterpreter`\x0a\x09- instead of evaluating against a receiver, evaluate in the context of `aContext`\x22\x0a\x0a\x09| compiler ast |\x0a\x09\x0a\x09compiler := Compiler new.\x0a\x09[ ast := compiler parseExpression: aString ] \x0a\x09\x09on: Error \x0a\x09\x09do: [ :ex | ^ self alert: ex messageText ].\x0a\x09\x09\x0a\x09(AISemanticAnalyzer on: aContext receiver class)\x0a\x09\x09context: aContext;\x0a\x09\x09visit: ast.\x0a\x0a\x09^ aContext evaluateNode: ast",
-referencedClasses: ["Compiler", "Error", "AISemanticAnalyzer"]
+referencedClasses: ["Compiler", "Error", "AISemanticAnalyzer"],
 //>>excludeEnd("ide");
+messageSends: ["new", "on:do:", "parseExpression:", "alert:", "messageText", "context:", "on:", "class", "receiver", "visit:", "evaluateNode:"]
 }),
 globals.Evaluator);
 
@@ -1017,12 +1017,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"evaluate:for:",{aString:aString,anObject:anObject},globals.Evaluator)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["evaluate:on:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString", "anObject"],
 source: "evaluate: aString for: anObject\x0a\x09^ anObject evaluate: aString on: self",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["evaluate:on:"]
 }),
 globals.Evaluator);
 
@@ -1068,12 +1068,12 @@ catch(e) {if(e===$early)return e[0]; throw e}
 }, function($ctx1) {$ctx1.fill(self,"evaluate:receiver:",{aString:aString,anObject:anObject,compiler:compiler},globals.Evaluator)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["new", "on:do:", "parseExpression:", "alert:", "messageText", "evaluateExpression:on:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString", "anObject"],
 source: "evaluate: aString receiver: anObject\x0a\x09| compiler |\x0a\x09\x0a\x09compiler := Compiler new.\x0a\x09[ compiler parseExpression: aString ] \x0a\x09\x09on: Error \x0a\x09\x09do: [ :ex | ^ self alert: ex messageText ].\x0a\x0a\x09^ compiler evaluateExpression: aString on: anObject",
-referencedClasses: ["Compiler", "Error"]
+referencedClasses: ["Compiler", "Error"],
 //>>excludeEnd("ide");
+messageSends: ["new", "on:do:", "parseExpression:", "alert:", "messageText", "evaluateExpression:on:"]
 }),
 globals.Evaluator);
 
@@ -1094,12 +1094,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"evaluate:for:",{aString:aString,anObject:anObject},globals.Evaluator.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["evaluate:for:", "new"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString", "anObject"],
 source: "evaluate: aString for: anObject\x0a\x09^ self new evaluate: aString for: anObject",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["evaluate:for:", "new"]
 }),
 globals.Evaluator.klass);
 
@@ -1124,12 +1124,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visit:",{aNode:aNode},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["accept:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "visit: aNode\x0a\x09^ aNode accept: self",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["accept:"]
 }),
 globals.NodeVisitor);
 
@@ -1157,12 +1157,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visitAll:",{aCollection:aCollection},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["collect:", "visit:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aCollection"],
 source: "visitAll: aCollection\x0a\x09^ aCollection collect: [ :each | self visit: each ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["collect:", "visit:"]
 }),
 globals.NodeVisitor);
 
@@ -1182,12 +1182,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visitAssignmentNode:",{aNode:aNode},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["visitNode:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "visitAssignmentNode: aNode\x0a\x09^ self visitNode: aNode",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["visitNode:"]
 }),
 globals.NodeVisitor);
 
@@ -1207,12 +1207,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visitBlockNode:",{aNode:aNode},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["visitNode:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "visitBlockNode: aNode\x0a\x09^ self visitNode: aNode",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["visitNode:"]
 }),
 globals.NodeVisitor);
 
@@ -1232,12 +1232,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visitBlockSequenceNode:",{aNode:aNode},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["visitSequenceNode:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "visitBlockSequenceNode: aNode\x0a\x09^ self visitSequenceNode: aNode",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["visitSequenceNode:"]
 }),
 globals.NodeVisitor);
 
@@ -1257,12 +1257,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visitCascadeNode:",{aNode:aNode},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["visitNode:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "visitCascadeNode: aNode\x0a\x09^ self visitNode: aNode",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["visitNode:"]
 }),
 globals.NodeVisitor);
 
@@ -1282,12 +1282,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visitDynamicArrayNode:",{aNode:aNode},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["visitNode:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "visitDynamicArrayNode: aNode\x0a\x09^ self visitNode: aNode",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["visitNode:"]
 }),
 globals.NodeVisitor);
 
@@ -1307,12 +1307,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visitDynamicDictionaryNode:",{aNode:aNode},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["visitNode:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "visitDynamicDictionaryNode: aNode\x0a\x09^ self visitNode: aNode",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["visitNode:"]
 }),
 globals.NodeVisitor);
 
@@ -1332,12 +1332,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visitJSStatementNode:",{aNode:aNode},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["visitNode:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "visitJSStatementNode: aNode\x0a\x09^ self visitNode: aNode",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["visitNode:"]
 }),
 globals.NodeVisitor);
 
@@ -1357,12 +1357,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visitMethodNode:",{aNode:aNode},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["visitNode:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "visitMethodNode: aNode\x0a\x09^ self visitNode: aNode",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["visitNode:"]
 }),
 globals.NodeVisitor);
 
@@ -1382,12 +1382,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visitNode:",{aNode:aNode},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["visitAll:", "nodes"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "visitNode: aNode\x0a\x09^ self visitAll: aNode nodes",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["visitAll:", "nodes"]
 }),
 globals.NodeVisitor);
 
@@ -1407,12 +1407,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visitReturnNode:",{aNode:aNode},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["visitNode:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "visitReturnNode: aNode\x0a\x09^ self visitNode: aNode",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["visitNode:"]
 }),
 globals.NodeVisitor);
 
@@ -1432,12 +1432,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visitSendNode:",{aNode:aNode},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["visitNode:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "visitSendNode: aNode\x0a\x09^ self visitNode: aNode",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["visitNode:"]
 }),
 globals.NodeVisitor);
 
@@ -1457,12 +1457,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visitSequenceNode:",{aNode:aNode},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["visitNode:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "visitSequenceNode: aNode\x0a\x09^ self visitNode: aNode",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["visitNode:"]
 }),
 globals.NodeVisitor);
 
@@ -1482,12 +1482,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visitValueNode:",{aNode:aNode},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["visitNode:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "visitValueNode: aNode\x0a\x09^ self visitNode: aNode",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["visitNode:"]
 }),
 globals.NodeVisitor);
 
@@ -1507,12 +1507,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"visitVariableNode:",{aNode:aNode},globals.NodeVisitor)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["visitNode:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNode"],
 source: "visitVariableNode: aNode\x0a\x09^ self visitNode: aNode",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["visitNode:"]
 }),
 globals.NodeVisitor);
 
@@ -1539,12 +1539,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"asVariableName",{},globals.String)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ifTrue:ifFalse:", "includes:", "reservedWords", ","],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "asVariableName\x0a\x09^ (Smalltalk reservedWords includes: self)\x0a\x09\x09ifTrue: [ self, '_' ]\x0a\x09\x09ifFalse: [ self ]",
-referencedClasses: ["Smalltalk"]
+referencedClasses: ["Smalltalk"],
 //>>excludeEnd("ide");
+messageSends: ["ifTrue:ifFalse:", "includes:", "reservedWords", ","]
 }),
 globals.String);
 

+ 22 - 22
src/Compiler-Exceptions.js

@@ -47,12 +47,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"messageText",{},globals.InvalidAssignmentError)});
 //>>excludeEnd("ctx");
 },
-messageSends: [",", "variableName"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "messageText\x0a\x09^ ' Invalid assignment to variable: ', self variableName",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: [",", "variableName"]
 }),
 globals.InvalidAssignmentError);
 
@@ -67,12 +67,12 @@ $1=self["@variableName"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "variableName\x0a\x09^ variableName",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.InvalidAssignmentError);
 
@@ -86,12 +86,12 @@ self["@variableName"]=aString;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "variableName: aString\x0a\x09variableName := aString",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.InvalidAssignmentError);
 
@@ -120,12 +120,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"messageText",{},globals.ShadowingVariableError)});
 //>>excludeEnd("ctx");
 },
-messageSends: [",", "variableName"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "messageText\x0a\x09^ 'Variable shadowing error: ', self variableName, ' is already defined'",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: [",", "variableName"]
 }),
 globals.ShadowingVariableError);
 
@@ -140,12 +140,12 @@ $1=self["@variableName"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "variableName\x0a\x09^ variableName",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ShadowingVariableError);
 
@@ -159,12 +159,12 @@ self["@variableName"]=aString;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "variableName: aString\x0a\x09variableName := aString",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ShadowingVariableError);
 
@@ -193,12 +193,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"messageText",{},globals.UnknownVariableError)});
 //>>excludeEnd("ctx");
 },
-messageSends: [",", "variableName"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "messageText\x0a\x09^ 'Unknown Variable error: ', self variableName, ' is not defined'",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: [",", "variableName"]
 }),
 globals.UnknownVariableError);
 
@@ -213,12 +213,12 @@ $1=self["@variableName"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "variableName\x0a\x09^ variableName",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.UnknownVariableError);
 
@@ -232,12 +232,12 @@ self["@variableName"]=aString;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "variableName: aString\x0a\x09variableName := aString",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.UnknownVariableError);
 
@@ -262,12 +262,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"basicSignal:",{anError:anError},globals.RethrowErrorHandler)});
 //>>excludeEnd("ctx");
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anError"],
 source: "basicSignal: anError\x0a        <throw anError>",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.RethrowErrorHandler);
 
@@ -286,12 +286,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"handleError:",{anError:anError},globals.RethrowErrorHandler)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["basicSignal:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anError"],
 source: "handleError: anError\x0a        self basicSignal: anError",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["basicSignal:"]
 }),
 globals.RethrowErrorHandler);
 

File diff suppressed because it is too large
+ 134 - 134
src/Compiler-IR.js


File diff suppressed because it is too large
+ 134 - 134
src/Compiler-Inlining.js


File diff suppressed because it is too large
+ 134 - 134
src/Compiler-Interpreter.js


File diff suppressed because it is too large
+ 134 - 134
src/Compiler-Semantic.js


File diff suppressed because it is too large
+ 134 - 134
src/Compiler-Tests.js


+ 10 - 10
src/Examples.js

@@ -31,12 +31,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"decrease",{},globals.Counter)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["-", "contents:", "with:", "asString"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "decrease\x0a\x09count := count - 1.\x0a\x09header contents: [ :html | html with: count asString ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["-", "contents:", "with:", "asString"]
 }),
 globals.Counter);
 
@@ -64,12 +64,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"increase",{},globals.Counter)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["+", "contents:", "with:", "asString"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "increase\x0a\x09count := count + 1.\x0a\x09header contents: [ :html | html with: count asString ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["+", "contents:", "with:", "asString"]
 }),
 globals.Counter);
 
@@ -96,12 +96,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"initialize",{},globals.Counter)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["initialize"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "initialize\x0a\x09super initialize.\x0a\x09count := 0",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["initialize"]
 }),
 globals.Counter);
 
@@ -158,12 +158,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html},globals.Counter)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["with:", "h1", "asString", "yourself", "button", "onClick:", "increase", "decrease"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["html"],
 source: "renderOn: html\x0a\x09header := html h1\x0a\x09\x09with: count asString;\x0a\x09\x09yourself.\x0a\x09html button\x0a\x09\x09with: '++';\x0a\x09\x09onClick: [ self increase ].\x0a\x09html button\x0a\x09\x09with: '--';\x0a\x09\x09onClick: [ self decrease ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["with:", "h1", "asString", "yourself", "button", "onClick:", "increase", "decrease"]
 }),
 globals.Counter);
 
@@ -183,12 +183,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"tryExample",{},globals.Counter.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["appendToJQuery:", "new", "asJQuery"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "tryExample\x0a\x09\x22In order to play with the Counter, just select the\x0a\x09doit below and press the Do it button. Then take a\x0a\x09look in the HTML document above the IDE.\x22\x0a\x0a\x09\x22Counter tryExample\x22\x0a\x09\x09self new appendToJQuery: 'body' asJQuery",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["appendToJQuery:", "new", "asJQuery"]
 }),
 globals.Counter.klass);
 

File diff suppressed because it is too large
+ 134 - 134
src/IDE.js


+ 88 - 88
src/Kernel-Announcements.js

@@ -18,12 +18,12 @@ $1=self["@announcementClass"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "announcementClass\x0a\x09^ announcementClass",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.AnnouncementSubscription);
 
@@ -37,12 +37,12 @@ self["@announcementClass"]=aClass;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aClass"],
 source: "announcementClass: aClass\x0a\x09announcementClass := aClass",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.AnnouncementSubscription);
 
@@ -63,12 +63,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"block",{},globals.AnnouncementSubscription)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["deprecatedAPI", "valuable"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "block\x0a\x09\x22Use #valuable instead\x22\x0a\x09\x0a\x09self deprecatedAPI.\x0a\x09^ self valuable",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["deprecatedAPI", "valuable"]
 }),
 globals.AnnouncementSubscription);
 
@@ -88,12 +88,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"block:",{aValuable:aValuable},globals.AnnouncementSubscription)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["deprecatedAPI", "valuable:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aValuable"],
 source: "block: aValuable\x0a\x09\x22Use #valuable instead\x22\x0a\x09\x0a\x09self deprecatedAPI.\x0a\x09self valuable: aValuable",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["deprecatedAPI", "valuable:"]
 }),
 globals.AnnouncementSubscription);
 
@@ -116,12 +116,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"deliver:",{anAnnouncement:anAnnouncement},globals.AnnouncementSubscription)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ifTrue:", "handlesAnnouncement:", "value:", "valuable"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anAnnouncement"],
 source: "deliver: anAnnouncement\x0a\x09(self handlesAnnouncement: anAnnouncement)\x0a\x09\x09ifTrue: [ self valuable value: anAnnouncement ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["ifTrue:", "handlesAnnouncement:", "value:", "valuable"]
 }),
 globals.AnnouncementSubscription);
 
@@ -160,12 +160,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"handlesAnnouncement:",{anAnnouncement:anAnnouncement},globals.AnnouncementSubscription)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ifNil:ifNotNil:", "at:", "globals", "name", "announcementClass", "includesBehavior:", "theNonMetaClass", "class"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anAnnouncement"],
 source: "handlesAnnouncement: anAnnouncement\x0a\x09\x22anAnnouncement might be announced from within another Amber environment\x22\x0a\x09\x0a\x09^ (Smalltalk globals at: self announcementClass name)\x0a\x09\x09ifNil: [ ^ false ]\x0a\x09\x09ifNotNil: [ :class |\x0a\x09\x09(Smalltalk globals at: anAnnouncement class theNonMetaClass name) includesBehavior: class ]",
-referencedClasses: ["Smalltalk"]
+referencedClasses: ["Smalltalk"],
 //>>excludeEnd("ide");
+messageSends: ["ifNil:ifNotNil:", "at:", "globals", "name", "announcementClass", "includesBehavior:", "theNonMetaClass", "class"]
 }),
 globals.AnnouncementSubscription);
 
@@ -185,12 +185,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"receiver",{},globals.AnnouncementSubscription)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["receiver", "valuable"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "receiver\x0a\x09^ self valuable receiver",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["receiver", "valuable"]
 }),
 globals.AnnouncementSubscription);
 
@@ -205,12 +205,12 @@ $1=self["@valuable"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "valuable\x0a\x09^ valuable",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.AnnouncementSubscription);
 
@@ -224,12 +224,12 @@ self["@valuable"]=aValuable;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aValuable"],
 source: "valuable: aValuable\x0a\x09valuable := aValuable",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.AnnouncementSubscription);
 
@@ -250,12 +250,12 @@ $1=self["@receiver"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "receiver\x0a\x09^ receiver",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.AnnouncementValuable);
 
@@ -269,12 +269,12 @@ self["@receiver"]=anObject;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anObject"],
 source: "receiver: anObject\x0a\x09receiver := anObject",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.AnnouncementValuable);
 
@@ -289,12 +289,12 @@ $1=self["@valuable"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "valuable\x0a\x09^ valuable",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.AnnouncementValuable);
 
@@ -308,12 +308,12 @@ self["@valuable"]=anObject;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anObject"],
 source: "valuable: anObject\x0a\x09valuable := anObject",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.AnnouncementValuable);
 
@@ -333,12 +333,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"value",{},globals.AnnouncementValuable)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["value", "valuable"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "value\x0a\x09^ self valuable value",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["value", "valuable"]
 }),
 globals.AnnouncementValuable);
 
@@ -358,12 +358,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"value:",{anObject:anObject},globals.AnnouncementValuable)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["value:", "valuable"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anObject"],
 source: "value: anObject\x0a\x09^ self valuable value: anObject",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["value:", "valuable"]
 }),
 globals.AnnouncementValuable);
 
@@ -396,12 +396,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"announce:",{anAnnouncement:anAnnouncement},globals.Announcer)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["do:", "deliver:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anAnnouncement"],
 source: "announce: anAnnouncement\x0a\x09subscriptions do: [ :each |\x0a\x09\x09each deliver: anAnnouncement ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["do:", "deliver:"]
 }),
 globals.Announcer);
 
@@ -429,12 +429,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"initialize",{},globals.Announcer)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["initialize", "new"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "initialize\x0a\x09super initialize.\x0a\x09subscriptions := OrderedCollection new",
-referencedClasses: ["OrderedCollection"]
+referencedClasses: ["OrderedCollection"],
 //>>excludeEnd("ide");
+messageSends: ["initialize", "new"]
 }),
 globals.Announcer);
 
@@ -453,12 +453,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"on:do:",{aClass:aClass,aBlock:aBlock},globals.Announcer)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["on:do:for:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aClass", "aBlock"],
 source: "on: aClass do: aBlock\x0a\x09self on: aClass do: aBlock for: nil",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["on:do:for:"]
 }),
 globals.Announcer);
 
@@ -501,12 +501,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"on:do:for:",{aClass:aClass,aBlock:aBlock,aReceiver:aReceiver},globals.Announcer)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["add:", "valuable:", "new", "receiver:", "yourself", "announcementClass:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aClass", "aBlock", "aReceiver"],
 source: "on: aClass do: aBlock for: aReceiver\x0a\x09subscriptions add: (AnnouncementSubscription new\x0a\x09\x09valuable: (AnnouncementValuable new\x0a\x09\x09\x09valuable: aBlock;\x0a\x09\x09\x09receiver: aReceiver;\x0a\x09\x09\x09yourself);\x0a\x09\x09announcementClass: aClass;\x0a\x09\x09yourself)",
-referencedClasses: ["AnnouncementSubscription", "AnnouncementValuable"]
+referencedClasses: ["AnnouncementSubscription", "AnnouncementValuable"],
 //>>excludeEnd("ide");
+messageSends: ["add:", "valuable:", "new", "receiver:", "yourself", "announcementClass:"]
 }),
 globals.Announcer);
 
@@ -542,12 +542,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"on:doOnce:",{aClass:aClass,aBlock:aBlock,subscription:subscription},globals.Announcer)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["announcementClass:", "new", "yourself", "valuable:", "remove:", "value:", "add:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aClass", "aBlock"],
 source: "on: aClass doOnce: aBlock\x0a\x09| subscription |\x0a\x09\x0a\x09subscription := AnnouncementSubscription new\x0a\x09\x09announcementClass: aClass;\x0a\x09\x09yourself.\x0a\x09subscription valuable: [ :ann |\x0a\x09\x09subscriptions remove: subscription.\x0a\x09\x09aBlock value: ann ].\x0a\x0a\x09subscriptions add: subscription",
-referencedClasses: ["AnnouncementSubscription"]
+referencedClasses: ["AnnouncementSubscription"],
 //>>excludeEnd("ide");
+messageSends: ["announcementClass:", "new", "yourself", "valuable:", "remove:", "value:", "add:"]
 }),
 globals.Announcer);
 
@@ -587,12 +587,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"on:send:to:",{aClass:aClass,aSelector:aSelector,anObject:anObject},globals.Announcer)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["add:", "valuable:", "new", "receiver:", "selector:", "yourself", "announcementClass:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aClass", "aSelector", "anObject"],
 source: "on: aClass send: aSelector to: anObject\x0a\x09subscriptions add: (AnnouncementSubscription new\x0a\x09\x09valuable: (MessageSend new\x0a\x09\x09\x09receiver: anObject;\x0a\x09\x09\x09selector: aSelector;\x0a\x09\x09\x09yourself);\x0a\x09\x09announcementClass: aClass;\x0a\x09\x09yourself)",
-referencedClasses: ["AnnouncementSubscription", "MessageSend"]
+referencedClasses: ["AnnouncementSubscription", "MessageSend"],
 //>>excludeEnd("ide");
+messageSends: ["add:", "valuable:", "new", "receiver:", "selector:", "yourself", "announcementClass:"]
 }),
 globals.Announcer);
 
@@ -619,12 +619,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"unsubscribe:",{anObject:anObject},globals.Announcer)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["reject:", "=", "receiver"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anObject"],
 source: "unsubscribe: anObject\x0a\x09subscriptions := subscriptions reject: [ :each |\x0a\x09\x09each receiver = anObject ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["reject:", "=", "receiver"]
 }),
 globals.Announcer);
 
@@ -665,12 +665,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"current",{},globals.SystemAnnouncer.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ifNil:", "new"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "current\x0a\x09^ current ifNil: [ current := super new ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["ifNil:", "new"]
 }),
 globals.SystemAnnouncer.klass);
 
@@ -689,12 +689,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"new",{},globals.SystemAnnouncer.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["shouldNotImplement"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "new\x0a\x09self shouldNotImplement",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["shouldNotImplement"]
 }),
 globals.SystemAnnouncer.klass);
 
@@ -713,12 +713,12 @@ var self=this;
 return "announcement";
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "heliosClass\x0a\x09^ 'announcement'",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.SystemAnnouncement.klass);
 
@@ -738,12 +738,12 @@ $1=self["@theClass"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "theClass\x0a\x09^ theClass",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ClassAnnouncement);
 
@@ -757,12 +757,12 @@ self["@theClass"]=aClass;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aClass"],
 source: "theClass: aClass\x0a\x09theClass := aClass",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ClassAnnouncement);
 
@@ -801,12 +801,12 @@ $1=self["@oldClass"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "oldClass\x0a\x09^ oldClass",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ClassMigrated);
 
@@ -820,12 +820,12 @@ self["@oldClass"]=aClass;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aClass"],
 source: "oldClass: aClass\x0a\x09oldClass := aClass",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ClassMigrated);
 
@@ -846,12 +846,12 @@ $1=self["@oldPackage"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "oldPackage\x0a\x09^ oldPackage",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ClassMoved);
 
@@ -865,12 +865,12 @@ self["@oldPackage"]=aPackage;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aPackage"],
 source: "oldPackage: aPackage\x0a\x09oldPackage := aPackage",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ClassMoved);
 
@@ -903,12 +903,12 @@ $1=self["@method"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "method\x0a\x09^ method",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.MethodAnnouncement);
 
@@ -922,12 +922,12 @@ self["@method"]=aCompiledMethod;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aCompiledMethod"],
 source: "method: aCompiledMethod\x0a\x09method := aCompiledMethod",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.MethodAnnouncement);
 
@@ -954,12 +954,12 @@ $1=self["@oldMethod"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "oldMethod\x0a\x09^ oldMethod",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.MethodModified);
 
@@ -973,12 +973,12 @@ self["@oldMethod"]=aMethod;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aMethod"],
 source: "oldMethod: aMethod\x0a\x09oldMethod := aMethod",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.MethodModified);
 
@@ -999,12 +999,12 @@ $1=self["@oldProtocol"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "oldProtocol\x0a\x09^ oldProtocol",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.MethodMoved);
 
@@ -1018,12 +1018,12 @@ self["@oldProtocol"]=aString;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "oldProtocol: aString\x0a\x09oldProtocol := aString",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.MethodMoved);
 
@@ -1050,12 +1050,12 @@ $1=self["@package"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "package\x0a\x09^ package",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.PackageAnnouncement);
 
@@ -1069,12 +1069,12 @@ self["@package"]=aPackage;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aPackage"],
 source: "package: aPackage\x0a\x09package := aPackage",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.PackageAnnouncement);
 
@@ -1137,12 +1137,12 @@ return $4;
 }, function($ctx1) {$ctx1.fill(self,"package",{},globals.ProtocolAnnouncement)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ifFalse:", "beginsWith:", "protocol", "package", "theClass", "named:ifAbsent:", "allButFirst"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "package\x0a\x0a\x09(self protocol beginsWith: '*') ifFalse: [\x0a\x09\x09^ self theClass package ].\x0a\x09\x09\x0a\x09^ Package \x0a\x09\x09named: self protocol allButFirst\x0a\x09\x09ifAbsent: [ nil ]",
-referencedClasses: ["Package"]
+referencedClasses: ["Package"],
 //>>excludeEnd("ide");
+messageSends: ["ifFalse:", "beginsWith:", "protocol", "package", "theClass", "named:ifAbsent:", "allButFirst"]
 }),
 globals.ProtocolAnnouncement);
 
@@ -1157,12 +1157,12 @@ $1=self["@protocol"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "protocol\x0a\x09^ protocol",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ProtocolAnnouncement);
 
@@ -1176,12 +1176,12 @@ self["@protocol"]=aString;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "protocol: aString\x0a\x09protocol := aString",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ProtocolAnnouncement);
 
@@ -1196,12 +1196,12 @@ $1=self["@theClass"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "theClass\x0a\x09^ theClass",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ProtocolAnnouncement);
 
@@ -1215,12 +1215,12 @@ self["@theClass"]=aClass;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aClass"],
 source: "theClass: aClass\x0a\x09theClass := aClass",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ProtocolAnnouncement);
 

File diff suppressed because it is too large
+ 134 - 134
src/Kernel-Classes.js


File diff suppressed because it is too large
+ 134 - 134
src/Kernel-Collections.js


+ 64 - 64
src/Kernel-Exceptions.js

@@ -22,12 +22,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"beHandled",{},globals.Error)});
 //>>excludeEnd("ctx");
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "beHandled\x0a\x09<self.amberHandled = true>",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Error);
 
@@ -46,12 +46,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"beUnhandled",{},globals.Error)});
 //>>excludeEnd("ctx");
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "beUnhandled\x0a\x09<self.amberHandled = false>",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Error);
 
@@ -70,12 +70,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"context",{},globals.Error)});
 //>>excludeEnd("ctx");
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "context\x0a\x09<return self.context>",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Error);
 
@@ -94,12 +94,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"initialize",{},globals.Error)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["messageText:", ",", "name", "class"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "initialize\x0a\x09self messageText: 'Errorclass: ', (self class name).",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["messageText:", ",", "name", "class"]
 }),
 globals.Error);
 
@@ -118,12 +118,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"isSmalltalkError",{},globals.Error)});
 //>>excludeEnd("ctx");
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "isSmalltalkError\x0a\x09<return self.smalltalkError === true>",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Error);
 
@@ -142,12 +142,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"jsStack",{},globals.Error)});
 //>>excludeEnd("ctx");
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "jsStack\x0a\x09<return self.stack>",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Error);
 
@@ -162,12 +162,12 @@ $1=self["@messageText"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "messageText\x0a\x09^ messageText",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Error);
 
@@ -181,12 +181,12 @@ self["@messageText"]=aString;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "messageText: aString\x0a\x09messageText := aString",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Error);
 
@@ -208,12 +208,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"resignal",{},globals.Error)});
 //>>excludeEnd("ctx");
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "resignal\x0a\x09\x22Resignal the receiver without changing its exception context\x22\x0a\x09\x0a\x09<\x0a\x09\x09self.amberHandled = false;\x0a\x09\x09throw(self);\x0a\x09>",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Error);
 
@@ -236,12 +236,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"signal",{},globals.Error)});
 //>>excludeEnd("ctx");
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "signal\x0a\x09<\x0a\x09\x09self.amberHandled = false;\x0a\x09\x09self.context = smalltalk.getThisContext(); \x0a\x09\x09self.smalltalkError = true; throw(self)\x0a\x09>",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Error);
 
@@ -261,12 +261,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"signal:",{aString:aString},globals.Error)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["messageText:", "signal"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "signal: aString\x0a\x09self messageText: aString.\x0a\x09self signal",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["messageText:", "signal"]
 }),
 globals.Error);
 
@@ -286,12 +286,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"signalerContext",{},globals.Error)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["signalerContextFrom:", "context"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "signalerContext\x0a\x09^ self signalerContextFrom: self context",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["signalerContextFrom:", "context"]
 }),
 globals.Error);
 
@@ -336,12 +336,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"signalerContextFrom:",{aContext:aContext},globals.Error)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["findContextSuchThat:", "not", "or:", "==", "receiver", "class"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aContext"],
 source: "signalerContextFrom: aContext\x0a\x09\x22Find the first sender of signal(:), the first context which is neither \x0a\x09for an instance method nor for a class side method of Exception (or subclass).\x0a\x09This will make sure that the same context is found for both, `Error signal` \x0a\x09and `Error new signal`\x22\x0a\x0a\x09^ aContext findContextSuchThat: [ :context |\x0a\x09\x09(context receiver == self \x0a\x09\x09or: [ context receiver == self class ]) not ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["findContextSuchThat:", "not", "or:", "==", "receiver", "class"]
 }),
 globals.Error);
 
@@ -360,12 +360,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"wasHandled",{},globals.Error)});
 //>>excludeEnd("ctx");
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "wasHandled\x0a\x09<return self.amberHandled || false>",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Error);
 
@@ -379,12 +379,12 @@ var self=this;
 return "exception";
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "heliosClass\x0a\x09^ 'exception'",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Error.klass);
 
@@ -404,12 +404,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"signal",{},globals.Error.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["signal", "new"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "signal\x0a\x09^ self new signal",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["signal", "new"]
 }),
 globals.Error.klass);
 
@@ -429,12 +429,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"signal:",{aString:aString},globals.Error.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["signal:", "new"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "signal: aString\x0a\x09^ self new\x0a\x09\x09signal: aString",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["signal:", "new"]
 }),
 globals.Error.klass);
 
@@ -452,12 +452,12 @@ var self=this;
 return "Halt encountered";
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "messageText\x0a\x09^ 'Halt encountered'",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.Halt);
 
@@ -513,12 +513,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"signalerContextFrom:",{aContext:aContext},globals.Halt)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["findContextSuchThat:", "not", "or:", "==", "receiver", "class", "=", "selector", "method"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aContext"],
 source: "signalerContextFrom: aContext\x0a\x09\x22specialized version to find the proper context to open the debugger on.\x0a\x09This will find the first context whose method is no longer on `Halt` or \x0a\x09`Halt class` nor is `#halt` method itself.\x22\x0a\x09\x0a\x09^ aContext findContextSuchThat: [ :context |\x0a\x09\x09(context receiver == self \x0a\x09\x09or: [ (context receiver == self class) \x0a\x09\x09or: [ context method selector = #halt ]]) not ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["findContextSuchThat:", "not", "or:", "==", "receiver", "class", "=", "selector", "method"]
 }),
 globals.Halt);
 
@@ -543,12 +543,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"context:",{aMethodContext:aMethodContext},globals.JavaScriptException)});
 //>>excludeEnd("ctx");
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aMethodContext"],
 source: "context: aMethodContext\x0a\x09\x22Set the context from the outside.\x0a\x09See boot.js `inContext()` exception handling\x22\x0a\x09\x0a\x09<self.context = aMethodContext>",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.JavaScriptException);
 
@@ -563,12 +563,12 @@ $1=self["@exception"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "exception\x0a\x09^ exception",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.JavaScriptException);
 
@@ -582,12 +582,12 @@ self["@exception"]=anException;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anException"],
 source: "exception: anException\x0a\x09exception := anException",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.JavaScriptException);
 
@@ -606,12 +606,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"messageText",{},globals.JavaScriptException)});
 //>>excludeEnd("ctx");
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "messageText\x0a\x09<return 'JavaScript exception: ' + self[\x22@exception\x22].toString()>",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.JavaScriptException);
 
@@ -635,12 +635,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"on:",{anException:anException},globals.JavaScriptException.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["exception:", "new", "yourself"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anException"],
 source: "on: anException\x0a\x09^ self new\x0a\x09\x09exception: anException;\x0a\x09\x09yourself",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["exception:", "new", "yourself"]
 }),
 globals.JavaScriptException.klass);
 
@@ -664,12 +664,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"on:context:",{anException:anException,aMethodContext:aMethodContext},globals.JavaScriptException.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["exception:", "new", "context:", "yourself"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anException", "aMethodContext"],
 source: "on: anException context: aMethodContext\x0a\x09^ self new\x0a\x09\x09exception: anException;\x0a\x09\x09context: aMethodContext;\x0a\x09\x09yourself",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["exception:", "new", "context:", "yourself"]
 }),
 globals.JavaScriptException.klass);
 
@@ -689,12 +689,12 @@ $1=self["@message"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "message\x0a\x09^ message",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.MessageNotUnderstood);
 
@@ -708,12 +708,12 @@ self["@message"]=aMessage;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aMessage"],
 source: "message: aMessage\x0a\x09message := aMessage",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.MessageNotUnderstood);
 
@@ -736,12 +736,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"messageText",{},globals.MessageNotUnderstood)});
 //>>excludeEnd("ctx");
 },
-messageSends: [",", "asString", "receiver", "selector", "message"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "messageText\x0a\x09^ self receiver asString, ' does not understand #', self message selector",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: [",", "asString", "receiver", "selector", "message"]
 }),
 globals.MessageNotUnderstood);
 
@@ -756,12 +756,12 @@ $1=self["@receiver"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "receiver\x0a\x09^ receiver",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.MessageNotUnderstood);
 
@@ -775,12 +775,12 @@ self["@receiver"]=anObject;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anObject"],
 source: "receiver: anObject\x0a\x09receiver := anObject",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.MessageNotUnderstood);
 
@@ -801,12 +801,12 @@ $1=self["@object"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "object\x0a\x09^ object",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.NonBooleanReceiver);
 
@@ -820,12 +820,12 @@ self["@object"]=anObject;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anObject"],
 source: "object: anObject\x0a\x09object := anObject",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.NonBooleanReceiver);
 

File diff suppressed because it is too large
+ 141 - 141
src/Kernel-ImportExport.js


+ 2 - 2
src/Kernel-ImportExport.st

@@ -305,12 +305,12 @@ exportMethod: aMethod on: aStream
 		nextPutAll: 'selector: ', aMethod selector asJavascript, ',';lf;
 		nextPutAll: 'protocol: ''', aMethod protocol, ''',';lf;
 		nextPutAll: 'fn: ', aMethod fn compiledSource, ',';lf;
-		nextPutAll: 'messageSends: ', aMethod messageSends asJavascript, ',';lf;
 		nextPutAll: '//>>excludeStart("ide", pragmas.excludeIdeData);';lf;
 		nextPutAll: 'args: ', aMethod arguments asJavascript, ','; lf;
 		nextPutAll: 'source: ', aMethod source asJavascript, ',';lf;
-		nextPutAll: 'referencedClasses: ', aMethod referencedClasses asJavascript;lf;
+		nextPutAll: 'referencedClasses: ', aMethod referencedClasses asJavascript, ',';lf;
 		nextPutAll: '//>>excludeEnd("ide");';lf;
+		nextPutAll: 'messageSends: ', aMethod messageSends asJavascript;lf;
 		nextPutAll: '}),';lf;
 		nextPutAll: (self jsClassNameFor: aMethod methodClass);
 		nextPutAll: ');';lf;lf

File diff suppressed because it is too large
+ 134 - 134
src/Kernel-Infrastructure.js


File diff suppressed because it is too large
+ 134 - 134
src/Kernel-Methods.js


File diff suppressed because it is too large
+ 134 - 134
src/Kernel-Objects.js


File diff suppressed because it is too large
+ 134 - 134
src/Kernel-Tests.js


+ 10 - 10
src/Kernel-Transcript.js

@@ -16,12 +16,12 @@ var self=this;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "clear\x0a\x09\x22no op\x22",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ConsoleTranscript);
 
@@ -34,12 +34,12 @@ var self=this;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "cr\x0a\x09\x22no op\x22",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ConsoleTranscript);
 
@@ -52,12 +52,12 @@ var self=this;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "open",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ConsoleTranscript);
 
@@ -76,12 +76,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"show:",{anObject:anObject},globals.ConsoleTranscript)});
 //>>excludeEnd("ctx");
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anObject"],
 source: "show: anObject\x0a\x22Smalltalk objects should have no trouble displaying themselves on the Transcript; Javascript objects don't know how, so must be wrapped in a JSObectProxy.\x22\x0a<console.log(String(_st(anObject)._asString()))>",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ConsoleTranscript);
 
@@ -102,12 +102,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"initialize",{},globals.ConsoleTranscript.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["registerIfNone:", "new"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "initialize\x0a\x09Transcript registerIfNone: self new",
-referencedClasses: ["Transcript"]
+referencedClasses: ["Transcript"],
 //>>excludeEnd("ide");
+messageSends: ["registerIfNone:", "new"]
 }),
 globals.ConsoleTranscript.klass);
 

+ 46 - 46
src/SUnit-Tests.js

@@ -24,12 +24,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"setUp",{},globals.ExampleSetTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["new", "with:with:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "setUp\x0a\x09empty := Set new.\x0a\x09full := Set with: 5 with: #abc",
-referencedClasses: ["Set"]
+referencedClasses: ["Set"],
 //>>excludeEnd("ide");
+messageSends: ["new", "with:with:"]
 }),
 globals.ExampleSetTest);
 
@@ -49,12 +49,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"testAdd",{},globals.ExampleSetTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["add:", "assert:", "includes:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "testAdd\x0a\x09empty add: 5.\x0a\x09self assert: (empty includes: 5)",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["add:", "assert:", "includes:"]
 }),
 globals.ExampleSetTest);
 
@@ -74,12 +74,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"testGrow",{},globals.ExampleSetTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["addAll:", "to:", "assert:equals:", "size"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "testGrow\x0a\x09empty addAll: (1 to: 100).\x0a\x09self assert: empty size equals: 100",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["addAll:", "to:", "assert:equals:", "size"]
 }),
 globals.ExampleSetTest);
 
@@ -119,12 +119,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"testIllegal",{},globals.ExampleSetTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["should:raise:", "at:", "at:put:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "testIllegal\x0a\x09self\x0a\x09\x09should: [ empty at: 5 ]\x0a\x09\x09raise: Error.\x0a\x09self\x0a\x09\x09should: [ empty at: 5 put: #abc ]\x0a\x09\x09raise: Error",
-referencedClasses: ["Error"]
+referencedClasses: ["Error"],
 //>>excludeEnd("ide");
+messageSends: ["should:raise:", "at:", "at:put:"]
 }),
 globals.ExampleSetTest);
 
@@ -152,12 +152,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"testIncludes",{},globals.ExampleSetTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["assert:", "includes:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "testIncludes\x0a\x09self assert: (full includes: 5).\x0a\x09self assert: (full includes: #abc)",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["assert:", "includes:"]
 }),
 globals.ExampleSetTest);
 
@@ -194,12 +194,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"testOccurrences",{},globals.ExampleSetTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["assert:equals:", "occurrencesOf:", "add:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "testOccurrences\x0a\x09self assert: (empty occurrencesOf: 0) equals: 0.\x0a\x09self assert: (full occurrencesOf: 5) equals: 1.\x0a\x09full add: 5.\x0a\x09self assert: (full occurrencesOf: 5) equals: 1",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["assert:equals:", "occurrencesOf:", "add:"]
 }),
 globals.ExampleSetTest);
 
@@ -225,12 +225,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"testRemove",{},globals.ExampleSetTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["remove:", "assert:", "includes:", "deny:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "testRemove\x0a\x09full remove: 5.\x0a\x09self assert: (full includes: #abc).\x0a\x09self deny: (full includes: 5)",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["remove:", "assert:", "includes:", "deny:"]
 }),
 globals.ExampleSetTest);
 
@@ -264,12 +264,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"fakeError",{},globals.SUnitAsyncTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["timeout:", "valueWithTimeout:", "async:", "error:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "fakeError\x0a\x09flag := 'bad'.\x0a\x09self timeout: 30.\x0a\x09flag := (self async: [ flag := 'ok'. self error: 'Intentional' ]) valueWithTimeout: 20",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["timeout:", "valueWithTimeout:", "async:", "error:"]
 }),
 globals.SUnitAsyncTest);
 
@@ -298,12 +298,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"fakeErrorFailingInTearDown",{},globals.SUnitAsyncTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["timeout:", "valueWithTimeout:", "async:", "error:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "fakeErrorFailingInTearDown\x0a\x09flag := 'bad'.\x0a\x09self timeout: 30.\x0a\x09flag := (self async: [ self error: 'Intentional' ]) valueWithTimeout: 20",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["timeout:", "valueWithTimeout:", "async:", "error:"]
 }),
 globals.SUnitAsyncTest);
 
@@ -334,12 +334,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"fakeFailure",{},globals.SUnitAsyncTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["timeout:", "valueWithTimeout:", "async:", "assert:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "fakeFailure\x0a\x09flag := 'bad'.\x0a\x09self timeout: 30.\x0a\x09flag := (self async: [ flag := 'ok'. self assert: false ]) valueWithTimeout: 20",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["timeout:", "valueWithTimeout:", "async:", "assert:"]
 }),
 globals.SUnitAsyncTest);
 
@@ -387,12 +387,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"fakeMultipleTimeoutFailing",{},globals.SUnitAsyncTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["timeout:", "valueWithTimeout:", "async:", "finished"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "fakeMultipleTimeoutFailing\x0a\x09self timeout: 100.\x0a\x09(self async: [ \x0a\x09\x09self timeout: 20.\x0a\x09\x09(self async: [ self finished ]) valueWithTimeout: 30\x0a\x09]) valueWithTimeout: 20",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["timeout:", "valueWithTimeout:", "async:", "finished"]
 }),
 globals.SUnitAsyncTest);
 
@@ -440,12 +440,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"fakeMultipleTimeoutPassing",{},globals.SUnitAsyncTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["timeout:", "valueWithTimeout:", "async:", "finished"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "fakeMultipleTimeoutPassing\x0a\x09self timeout: 20.\x0a\x09(self async: [\x0a\x09\x09self timeout: 40.\x0a\x09\x09(self async: [ self finished ]) valueWithTimeout: 20\x0a\x09]) valueWithTimeout: 10",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["timeout:", "valueWithTimeout:", "async:", "finished"]
 }),
 globals.SUnitAsyncTest);
 
@@ -473,12 +473,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"fakeTimeout",{},globals.SUnitAsyncTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["timeout:", "valueWithTimeout:", "async:", "finished"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "fakeTimeout\x0a\x09self timeout: 10.\x0a\x09(self async: [ self finished ]) valueWithTimeout: 20",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["timeout:", "valueWithTimeout:", "async:", "finished"]
 }),
 globals.SUnitAsyncTest);
 
@@ -506,12 +506,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"selectorSetOf:",{aCollection:aCollection},globals.SUnitAsyncTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["asSet", "collect:", "selector"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aCollection"],
 source: "selectorSetOf: aCollection\x0a\x09^ (aCollection collect: [ :each | each selector ]) asSet",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["asSet", "collect:", "selector"]
 }),
 globals.SUnitAsyncTest);
 
@@ -525,12 +525,12 @@ self["@flag"]="ok";
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "setUp\x0a\x09flag := 'ok'",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.SUnitAsyncTest);
 
@@ -549,12 +549,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"tearDown",{},globals.SUnitAsyncTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["assert:equals:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "tearDown\x0a\x09self assert: 'ok' equals: flag",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["assert:equals:"]
 }),
 globals.SUnitAsyncTest);
 
@@ -627,12 +627,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"testAsyncErrorsAndFailures",{suite:suite,runner:runner,result:result,assertBlock:assertBlock},globals.SUnitAsyncTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["collect:", "selector:", "class", "on:", "timeout:", "result", "async:", "assert:equals:", "selectorSetOf:", "errors", "asSet", "failures", "finished", "on:do:", "announcer", "ifTrue:", "==", "=", "runs", "total", "run"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "testAsyncErrorsAndFailures\x0a\x09| suite runner result assertBlock |\x0a\x09suite := #('fakeError' 'fakeErrorFailingInTearDown' 'fakeFailure' 'testPass') collect: [ :each | self class selector: each ].\x0a\x09runner := TestSuiteRunner on: suite.\x0a\x09self timeout: 200.\x0a\x09result := runner result.\x0a\x09assertBlock := self async: [\x0a\x09\x09self assert: (self selectorSetOf: result errors) equals: #('fakeError') asSet.\x0a\x09\x09self assert: (self selectorSetOf: result failures) equals: #('fakeErrorFailingInTearDown' 'fakeFailure') asSet.\x0a\x09\x09self finished\x0a\x09].\x0a\x09runner announcer on: ResultAnnouncement do: [ :ann |\x0a\x09\x09ann result == result ifTrue: [ result runs = result total ifTrue: assertBlock ] ].\x0a\x09runner run",
-referencedClasses: ["TestSuiteRunner", "ResultAnnouncement"]
+referencedClasses: ["TestSuiteRunner", "ResultAnnouncement"],
 //>>excludeEnd("ide");
+messageSends: ["collect:", "selector:", "class", "on:", "timeout:", "result", "async:", "assert:equals:", "selectorSetOf:", "errors", "asSet", "failures", "finished", "on:do:", "announcer", "ifTrue:", "==", "=", "runs", "total", "run"]
 }),
 globals.SUnitAsyncTest);
 
@@ -678,12 +678,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"testAsyncNeedsTimeout",{},globals.SUnitAsyncTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["should:raise:", "async:", "timeout:", "shouldnt:raise:", "finished"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "testAsyncNeedsTimeout\x0a\x09self should: [ self async: [ ] ] raise: Error.\x0a\x09self timeout: 0.\x0a\x09self shouldnt: [ self async: [ ] ] raise: Error.\x0a\x09self finished",
-referencedClasses: ["Error"]
+referencedClasses: ["Error"],
 //>>excludeEnd("ide");
+messageSends: ["should:raise:", "async:", "timeout:", "shouldnt:raise:", "finished"]
 }),
 globals.SUnitAsyncTest);
 
@@ -724,12 +724,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"testFinishedNeedsTimeout",{},globals.SUnitAsyncTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["should:raise:", "finished", "timeout:", "shouldnt:raise:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "testFinishedNeedsTimeout\x0a\x09self should: [ self finished ] raise: Error.\x0a\x09self timeout: 0.\x0a\x09self shouldnt: [ self finished ] raise: Error.",
-referencedClasses: ["Error"]
+referencedClasses: ["Error"],
 //>>excludeEnd("ide");
+messageSends: ["should:raise:", "finished", "timeout:", "shouldnt:raise:"]
 }),
 globals.SUnitAsyncTest);
 
@@ -764,12 +764,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"testIsAsyncReturnsCorrectValues",{},globals.SUnitAsyncTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["deny:", "isAsync", "timeout:", "assert:", "finished"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "testIsAsyncReturnsCorrectValues\x0a\x09self deny: self isAsync.\x0a\x09self timeout: 0.\x0a\x09self assert: self isAsync.\x0a\x09self finished.\x0a\x09self deny: self isAsync",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["deny:", "isAsync", "timeout:", "assert:", "finished"]
 }),
 globals.SUnitAsyncTest);
 
@@ -801,12 +801,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"testPass",{},globals.SUnitAsyncTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["timeout:", "valueWithTimeout:", "async:", "assert:", "finished"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "testPass\x0a\x09flag := 'bad'.\x0a\x09self timeout: 10.\x0a\x09flag := (self async: [ self assert: true. self finished. flag := 'ok' ]) valueWithTimeout: 5",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["timeout:", "valueWithTimeout:", "async:", "assert:", "finished"]
 }),
 globals.SUnitAsyncTest);
 
@@ -876,12 +876,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"testTimeouts",{suite:suite,runner:runner,result:result,assertBlock:assertBlock},globals.SUnitAsyncTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["collect:", "selector:", "class", "on:", "timeout:", "result", "async:", "assert:equals:", "selectorSetOf:", "errors", "new", "failures", "asSet", "finished", "on:do:", "announcer", "ifTrue:", "==", "=", "runs", "total", "run"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "testTimeouts\x0a\x09| suite runner result assertBlock |\x0a\x09suite := #('fakeTimeout' 'fakeMultipleTimeoutFailing' 'fakeMultipleTimeoutPassing' 'testPass') collect: [ :each | self class selector: each ].\x0a\x09runner := TestSuiteRunner on: suite.\x0a\x09self timeout: 200.\x0a\x09result := runner result.\x0a\x09assertBlock := self async: [\x0a\x09\x09self assert: (self selectorSetOf: result errors) equals: Set new.\x0a\x09\x09self assert: (self selectorSetOf: result failures) equals: #('fakeMultipleTimeoutFailing' 'fakeTimeout') asSet.\x0a\x09\x09self finished\x0a\x09].\x0a\x09runner announcer on: ResultAnnouncement do: [ :ann |\x0a\x09\x09ann result == result ifTrue: [ result runs = result total ifTrue: assertBlock ] ].\x0a\x09runner run",
-referencedClasses: ["TestSuiteRunner", "Set", "ResultAnnouncement"]
+referencedClasses: ["TestSuiteRunner", "Set", "ResultAnnouncement"],
 //>>excludeEnd("ide");
+messageSends: ["collect:", "selector:", "class", "on:", "timeout:", "result", "async:", "assert:equals:", "selectorSetOf:", "errors", "new", "failures", "asSet", "finished", "on:do:", "announcer", "ifTrue:", "==", "=", "runs", "total", "run"]
 }),
 globals.SUnitAsyncTest);
 
@@ -948,12 +948,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"testTwoAsyncPassesWithFinishedOnlyOneIsRun",{x:x},globals.SUnitAsyncTest)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["timeout:", "valueWithTimeout:", "async:", "finished", "+", "assert:equals:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "testTwoAsyncPassesWithFinishedOnlyOneIsRun\x0a\x09| x |\x0a\x09flag := 'bad'.\x0a\x09self timeout: 10.\x0a\x09x := 0.\x0a\x09flag := (self async: [ self finished. flag := 'ok'. x := x+1. self assert: x equals: 1 ]) valueWithTimeout: 0.\x0a\x09flag := (self async: [ self finished. flag := 'ok'. x := x+1. self assert: x equals: 1 ]) valueWithTimeout: 0.",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["timeout:", "valueWithTimeout:", "async:", "finished", "+", "assert:equals:"]
 }),
 globals.SUnitAsyncTest);
 

+ 126 - 126
src/SUnit.js

@@ -18,12 +18,12 @@ $1=self["@result"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "result\x0a\x09^ result",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ResultAnnouncement);
 
@@ -37,12 +37,12 @@ self["@result"]=aTestResult;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aTestResult"],
 source: "result: aTestResult\x0a\x09result := aTestResult",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ResultAnnouncement);
 
@@ -67,12 +67,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"assert:",{aBoolean:aBoolean},globals.TestCase)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["assert:description:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aBoolean"],
 source: "assert: aBoolean\x0a\x09self assert: aBoolean description: 'Assertion failed'",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["assert:description:"]
 }),
 globals.TestCase);
 
@@ -93,12 +93,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"assert:description:",{aBoolean:aBoolean,aString:aString},globals.TestCase)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ifFalse:", "signalFailure:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aBoolean", "aString"],
 source: "assert: aBoolean description: aString\x0a\x09aBoolean ifFalse: [ self signalFailure: aString ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["ifFalse:", "signalFailure:"]
 }),
 globals.TestCase);
 
@@ -132,12 +132,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"assert:equals:",{actual:actual,expected:expected},globals.TestCase)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["assert:description:", "=", ",", "printString"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["actual", "expected"],
 source: "assert: actual equals: expected\x0a\x09^ self assert: (actual = expected) description: 'Expected: ', expected printString, ' but was: ', actual printString",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["assert:description:", "=", ",", "printString"]
 }),
 globals.TestCase);
 
@@ -171,12 +171,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"async:",{aBlock:aBlock,c:c},globals.TestCase)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["errorIfNotAsync:", "ifTrue:", "isAsync", "execute:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aBlock"],
 source: "async: aBlock\x0a\x09| c |\x0a\x09self errorIfNotAsync: '#async'.\x0a\x09c := context.\x0a\x09^ [ self isAsync ifTrue: [ c execute: aBlock ] ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["errorIfNotAsync:", "ifTrue:", "isAsync", "execute:"]
 }),
 globals.TestCase);
 
@@ -190,12 +190,12 @@ self["@context"]=aRunningTestContext;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aRunningTestContext"],
 source: "context: aRunningTestContext\x0a\x09context := aRunningTestContext",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestCase);
 
@@ -214,12 +214,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"deny:",{aBoolean:aBoolean},globals.TestCase)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["assert:", "not"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aBoolean"],
 source: "deny: aBoolean\x0a\x09self assert: aBoolean not",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["assert:", "not"]
 }),
 globals.TestCase);
 
@@ -242,12 +242,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"errorIfNotAsync:",{aString:aString},globals.TestCase)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ifFalse:", "isAsync", "error:", ","],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "errorIfNotAsync: aString\x0a\x09self isAsync ifFalse: [\x0a\x09\x09self error: aString, ' used without prior #timeout:' ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["ifFalse:", "isAsync", "error:", ","]
 }),
 globals.TestCase);
 
@@ -267,12 +267,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"finished",{},globals.TestCase)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["errorIfNotAsync:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "finished\x0a\x09self errorIfNotAsync: '#finished'.\x0a\x09asyncTimeout := nil",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["errorIfNotAsync:"]
 }),
 globals.TestCase);
 
@@ -292,12 +292,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"isAsync",{},globals.TestCase)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["notNil"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "isAsync\x0a\x09^ asyncTimeout notNil",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["notNil"]
 }),
 globals.TestCase);
 
@@ -317,12 +317,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"performTest",{},globals.TestCase)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["perform:", "selector"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "performTest\x0a\x09asyncTimeout := nil.\x0a\x09self perform: self selector",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["perform:", "selector"]
 }),
 globals.TestCase);
 
@@ -342,12 +342,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"runCase",{},globals.TestCase)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["start", "testCase:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "runCase\x0a\x09\x22Runs a test case in isolated context, leaking all errors.\x22\x0a\x0a\x09(TestContext testCase: self) start",
-referencedClasses: ["TestContext"]
+referencedClasses: ["TestContext"],
 //>>excludeEnd("ide");
+messageSends: ["start", "testCase:"]
 }),
 globals.TestCase);
 
@@ -362,12 +362,12 @@ $1=self["@testSelector"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "selector\x0a\x09^ testSelector",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestCase);
 
@@ -381,12 +381,12 @@ self["@testSelector"]=aSelector;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aSelector"],
 source: "setTestSelector: aSelector\x0a\x09testSelector := aSelector",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestCase);
 
@@ -399,12 +399,12 @@ var self=this;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "setUp",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestCase);
 
@@ -423,12 +423,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"should:",{aBlock:aBlock},globals.TestCase)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["assert:", "value"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aBlock"],
 source: "should: aBlock\x0a\x09self assert: aBlock value",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["assert:", "value"]
 }),
 globals.TestCase);
 
@@ -459,12 +459,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"should:raise:",{aBlock:aBlock,anExceptionClass:anExceptionClass},globals.TestCase)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["assert:", "on:do:", "value"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aBlock", "anExceptionClass"],
 source: "should: aBlock raise: anExceptionClass\x0a\x09self assert: ([ aBlock value. false ]\x0a\x09\x09on: anExceptionClass\x0a\x09\x09do: [ :ex | true ])",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["assert:", "on:do:", "value"]
 }),
 globals.TestCase);
 
@@ -495,12 +495,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"shouldnt:raise:",{aBlock:aBlock,anExceptionClass:anExceptionClass},globals.TestCase)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["assert:", "on:do:", "value"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aBlock", "anExceptionClass"],
 source: "shouldnt: aBlock raise: anExceptionClass\x0a\x09self assert: ([ aBlock value. true ]\x0a\x09\x09on: anExceptionClass\x0a\x09\x09do: [ :ex | false ])",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["assert:", "on:do:", "value"]
 }),
 globals.TestCase);
 
@@ -523,12 +523,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"signalFailure:",{aString:aString},globals.TestCase)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["messageText:", "new", "signal"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
 source: "signalFailure: aString\x0a\x09TestFailure new\x0a\x09\x09messageText: aString;\x0a\x09\x09signal",
-referencedClasses: ["TestFailure"]
+referencedClasses: ["TestFailure"],
 //>>excludeEnd("ide");
+messageSends: ["messageText:", "new", "signal"]
 }),
 globals.TestCase);
 
@@ -541,12 +541,12 @@ var self=this;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "tearDown",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestCase);
 
@@ -581,12 +581,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"timeout:",{aNumber:aNumber},globals.TestCase)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ifNotNil:", "clearTimeout", "valueWithTimeout:", "async:", "assert:description:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNumber"],
 source: "timeout: aNumber\x0a\x09\x22Set a grace time timeout in milliseconds to run the test asynchronously\x22\x0a\x09\x0a\x09asyncTimeout ifNotNil: [ asyncTimeout clearTimeout ].\x0a\x09\x0a\x09\x22to allow #async: message send without throwing an error\x22\x0a\x09asyncTimeout := 0.\x0a\x09\x0a\x09asyncTimeout := (self async: [\x0a\x09\x09self assert: false description: 'SUnit grace time exhausted' ])\x0a\x09\x09\x09valueWithTimeout: aNumber",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["ifNotNil:", "clearTimeout", "valueWithTimeout:", "async:", "assert:description:"]
 }),
 globals.TestCase);
 
@@ -613,12 +613,12 @@ return $2;
 }, function($ctx1) {$ctx1.fill(self,"allTestSelectors",{selectors:selectors},globals.TestCase.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["testSelectors", "ifTrue:", "shouldInheritSelectors", "addAll:", "allTestSelectors", "superclass"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "allTestSelectors\x0a\x09| selectors |\x0a\x09selectors := self testSelectors.\x0a\x09self shouldInheritSelectors ifTrue: [\x0a\x09\x09selectors addAll: self superclass allTestSelectors ].\x0a\x09^ selectors",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["testSelectors", "ifTrue:", "shouldInheritSelectors", "addAll:", "allTestSelectors", "superclass"]
 }),
 globals.TestCase.klass);
 
@@ -646,12 +646,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"buildSuite",{},globals.TestCase.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["collect:", "allTestSelectors", "selector:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "buildSuite\x0a\x09^ self allTestSelectors collect: [ :each | self selector: each ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["collect:", "allTestSelectors", "selector:"]
 }),
 globals.TestCase.klass);
 
@@ -664,12 +664,12 @@ var self=this;
 return "test";
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "heliosClass\x0a\x09^ 'test'",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestCase.klass);
 
@@ -689,12 +689,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"isAbstract",{},globals.TestCase.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["=", "name"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "isAbstract\x0a\x09^ self name = 'TestCase'",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["=", "name"]
 }),
 globals.TestCase.klass);
 
@@ -708,12 +708,12 @@ function $TestCase(){return globals.TestCase||(typeof TestCase=="undefined"?nil:
 return $TestCase();
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "lookupHierarchyRoot\x0a\x09^ TestCase",
-referencedClasses: ["TestCase"]
+referencedClasses: ["TestCase"],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestCase.klass);
 
@@ -736,12 +736,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"selector:",{aSelector:aSelector},globals.TestCase.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["setTestSelector:", "new", "yourself"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aSelector"],
 source: "selector: aSelector\x0a\x09^ self new\x0a\x09\x09setTestSelector: aSelector;\x0a\x09\x09yourself",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["setTestSelector:", "new", "yourself"]
 }),
 globals.TestCase.klass);
 
@@ -761,12 +761,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"shouldInheritSelectors",{},globals.TestCase.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["~=", "lookupHierarchyRoot"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "shouldInheritSelectors\x0a\x09^ self ~= self lookupHierarchyRoot",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["~=", "lookupHierarchyRoot"]
 }),
 globals.TestCase.klass);
 
@@ -794,12 +794,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"testSelectors",{},globals.TestCase.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["select:", "keys", "methodDictionary", "match:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "testSelectors\x0a\x09^ self methodDictionary keys select: [ :each | each match: '^test' ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["select:", "keys", "methodDictionary", "match:"]
 }),
 globals.TestCase.klass);
 
@@ -868,12 +868,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"execute:",{aBlock:aBlock,failed:failed},globals.TestContext)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["context:", "ensure:", "value", "ifTrue:", "and:", "isAsync", "finished", "ifFalse:", "tearDown"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aBlock"],
 source: "execute: aBlock\x0a\x09| failed |\x0a\x09\x0a\x09testCase context: self.\x0a\x09[\x0a\x09\x09failed := true.\x0a\x09\x09aBlock value.\x0a\x09\x09failed := false\x0a\x09]\x0a\x09\x09ensure: [\x0a\x09\x09\x09testCase context: nil.\x0a\x09\x09\x09\x0a\x09\x09\x09(failed and: [ testCase isAsync ]) ifTrue: [\x0a\x09\x09\x09\x09testCase finished ].\x0a\x09\x09\x09testCase isAsync ifFalse: [\x0a\x09\x09\x09\x09testCase tearDown ] ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["context:", "ensure:", "value", "ifTrue:", "and:", "isAsync", "finished", "ifFalse:", "tearDown"]
 }),
 globals.TestContext);
 
@@ -901,12 +901,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"start",{},globals.TestContext)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["execute:", "setUp", "performTest"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "start\x0a\x09self execute: [\x0a\x09\x09testCase setUp.\x0a\x09\x09testCase performTest ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["execute:", "setUp", "performTest"]
 }),
 globals.TestContext);
 
@@ -920,12 +920,12 @@ self["@testCase"]=aTestCase;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aTestCase"],
 source: "testCase: aTestCase\x0a\x09testCase := aTestCase",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestContext);
 
@@ -949,12 +949,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"testCase:",{aTestCase:aTestCase},globals.TestContext.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["testCase:", "new", "yourself"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aTestCase"],
 source: "testCase: aTestCase\x0a\x09^ self new\x0a\x09\x09testCase: aTestCase;\x0a\x09\x09yourself",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["testCase:", "new", "yourself"]
 }),
 globals.TestContext.klass);
 
@@ -1014,12 +1014,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"execute:",{aBlock:aBlock},globals.ReportingTestContext)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ensure:", "withErrorReporting:", "execute:", "ifFalse:", "isAsync", "increaseRuns", "value"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aBlock"],
 source: "execute: aBlock\x0a\x09[\x0a\x09\x09self withErrorReporting: [ super execute: aBlock ]\x0a\x09]\x0a\x09\x09ensure: [\x0a\x09\x09\x09testCase isAsync ifFalse: [\x0a\x09\x09\x09\x09result increaseRuns. finished value ] ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["ensure:", "withErrorReporting:", "execute:", "ifFalse:", "isAsync", "increaseRuns", "value"]
 }),
 globals.ReportingTestContext);
 
@@ -1033,12 +1033,12 @@ self["@finished"]=aBlock;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aBlock"],
 source: "finished: aBlock\x0a\x09finished := aBlock",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ReportingTestContext);
 
@@ -1052,12 +1052,12 @@ self["@result"]=aTestResult;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aTestResult"],
 source: "result: aTestResult\x0a\x09result := aTestResult",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.ReportingTestContext);
 
@@ -1105,12 +1105,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"withErrorReporting:",{aBlock:aBlock},globals.ReportingTestContext)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["on:do:", "addFailure:", "addError:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aBlock"],
 source: "withErrorReporting: aBlock\x0a\x09[ aBlock\x0a\x09\x09on: TestFailure\x0a\x09\x09do: [ :ex | result addFailure: testCase ]\x0a\x09]\x0a\x09\x09on: Error\x0a\x09\x09do: [ :ex | result addError: testCase ]",
-referencedClasses: ["TestFailure", "Error"]
+referencedClasses: ["TestFailure", "Error"],
 //>>excludeEnd("ide");
+messageSends: ["on:do:", "addFailure:", "addError:"]
 }),
 globals.ReportingTestContext);
 
@@ -1142,12 +1142,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"testCase:result:finished:",{aTestCase:aTestCase,aTestResult:aTestResult,aBlock:aBlock},globals.ReportingTestContext.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["result:", "testCase:", "finished:", "yourself"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aTestCase", "aTestResult", "aBlock"],
 source: "testCase: aTestCase result: aTestResult finished: aBlock\x0a\x09^ (super testCase: aTestCase)\x0a\x09\x09result: aTestResult;\x0a\x09\x09finished: aBlock;\x0a\x09\x09yourself",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["result:", "testCase:", "finished:", "yourself"]
 }),
 globals.ReportingTestContext.klass);
 
@@ -1177,12 +1177,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"addError:",{anError:anError},globals.TestResult)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["add:", "errors"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anError"],
 source: "addError: anError\x0a\x09self errors add: anError",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["add:", "errors"]
 }),
 globals.TestResult);
 
@@ -1201,12 +1201,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"addFailure:",{aFailure:aFailure},globals.TestResult)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["add:", "failures"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aFailure"],
 source: "addFailure: aFailure\x0a\x09self failures add: aFailure",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["add:", "failures"]
 }),
 globals.TestResult);
 
@@ -1221,12 +1221,12 @@ $1=self["@errors"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "errors\x0a\x09^ errors",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestResult);
 
@@ -1241,12 +1241,12 @@ $1=self["@failures"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "failures\x0a\x09^ failures",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestResult);
 
@@ -1265,12 +1265,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"increaseRuns",{},globals.TestResult)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["+"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "increaseRuns\x0a\x09runs := runs + 1",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["+"]
 }),
 globals.TestResult);
 
@@ -1306,12 +1306,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"initialize",{},globals.TestResult)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["initialize", "now", "new"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "initialize\x0a\x09super initialize.\x0a\x09timestamp := Date now.\x0a\x09runs := 0.\x0a\x09errors := Array new.\x0a\x09failures := Array new.\x0a\x09total := 0",
-referencedClasses: ["Date", "Array"]
+referencedClasses: ["Date", "Array"],
 //>>excludeEnd("ide");
+messageSends: ["initialize", "now", "new"]
 }),
 globals.TestResult);
 
@@ -1338,12 +1338,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"nextRunDo:",{aBlock:aBlock},globals.TestResult)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ifFalse:", "==", "runs", "total", "value:", "+"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aBlock"],
 source: "nextRunDo: aBlock\x0a\x09\x22Runs aBlock with index of next run or does nothing if no more runs\x22\x0a\x09^ self runs == self total\x0a\x09\x09ifFalse: [ aBlock value: self runs + 1 ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["ifFalse:", "==", "runs", "total", "value:", "+"]
 }),
 globals.TestResult);
 
@@ -1400,12 +1400,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"runCase:",{aTestCase:aTestCase},globals.TestResult)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["on:do:", "increaseRuns", "runCase", "addFailure:", "addError:"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aTestCase"],
 source: "runCase: aTestCase\x0a\x09[ [ self increaseRuns.\x0a\x09\x09aTestCase runCase ]\x0a\x09on: TestFailure do: [ :ex | self addFailure: aTestCase ]]\x0a\x09on: Error do: [ :ex | self addError: aTestCase ]",
-referencedClasses: ["TestFailure", "Error"]
+referencedClasses: ["TestFailure", "Error"],
 //>>excludeEnd("ide");
+messageSends: ["on:do:", "increaseRuns", "runCase", "addFailure:", "addError:"]
 }),
 globals.TestResult);
 
@@ -1420,12 +1420,12 @@ $1=self["@runs"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "runs\x0a\x09^ runs",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestResult);
 
@@ -1458,12 +1458,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"status",{},globals.TestResult)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["ifTrue:ifFalse:", "isEmpty", "errors", "failures"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "status\x0a\x09^ self errors isEmpty\x0a\x09\x09ifTrue: [\x0a\x09\x09\x09self failures isEmpty\x0a\x09\x09\x09\x09ifTrue: [ 'success' ]\x0a\x09\x09\x09\x09ifFalse: [ 'failure' ]]\x0a\x09\x09ifFalse: [ 'error' ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["ifTrue:ifFalse:", "isEmpty", "errors", "failures"]
 }),
 globals.TestResult);
 
@@ -1478,12 +1478,12 @@ $1=self["@timestamp"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "timestamp\x0a\x09^ timestamp",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestResult);
 
@@ -1498,12 +1498,12 @@ $1=self["@total"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "total\x0a\x09^ total",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestResult);
 
@@ -1517,12 +1517,12 @@ self["@total"]=aNumber;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aNumber"],
 source: "total: aNumber\x0a\x09total := aNumber",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestResult);
 
@@ -1543,12 +1543,12 @@ $1=self["@announcer"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "announcer\x0a\x09^ announcer",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestSuiteRunner);
 
@@ -1577,12 +1577,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"contextOf:",{anInteger:anInteger},globals.TestSuiteRunner)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["testCase:result:finished:", "at:", "resume"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anInteger"],
 source: "contextOf: anInteger\x0a\x09^ ReportingTestContext testCase: (suite at: anInteger) result: result finished: [ self resume ]",
-referencedClasses: ["ReportingTestContext"]
+referencedClasses: ["ReportingTestContext"],
 //>>excludeEnd("ide");
+messageSends: ["testCase:result:finished:", "at:", "resume"]
 }),
 globals.TestSuiteRunner);
 
@@ -1631,12 +1631,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"initialize",{},globals.TestSuiteRunner)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["initialize", "new", "runs", "ifTrue:", "<", "total", "start", "contextOf:", "+"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "initialize\x0a\x09super initialize.\x0a\x09announcer := Announcer new.\x0a\x09result := TestResult new.\x0a\x09runNextTest := [ | runs | runs := result runs. runs < result total ifTrue: [ (self contextOf: runs + 1) start ] ].",
-referencedClasses: ["Announcer", "TestResult"]
+referencedClasses: ["Announcer", "TestResult"],
 //>>excludeEnd("ide");
+messageSends: ["initialize", "new", "runs", "ifTrue:", "<", "total", "start", "contextOf:", "+"]
 }),
 globals.TestSuiteRunner);
 
@@ -1651,12 +1651,12 @@ $1=self["@result"];
 return $1;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "result\x0a\x09^ result",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestSuiteRunner);
 
@@ -1677,12 +1677,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"resume",{},globals.TestSuiteRunner)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["fork", "announce:", "result:", "new"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "resume\x0a\x09runNextTest fork.\x0a\x09announcer announce: (ResultAnnouncement new result: result)",
-referencedClasses: ["ResultAnnouncement"]
+referencedClasses: ["ResultAnnouncement"],
 //>>excludeEnd("ide");
+messageSends: ["fork", "announce:", "result:", "new"]
 }),
 globals.TestSuiteRunner);
 
@@ -1702,12 +1702,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"run",{},globals.TestSuiteRunner)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["total:", "size", "resume"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "run\x0a\x09result total: suite size.\x0a\x09self resume",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["total:", "size", "resume"]
 }),
 globals.TestSuiteRunner);
 
@@ -1721,12 +1721,12 @@ self["@suite"]=aCollection;
 return self;
 
 },
-messageSends: [],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aCollection"],
 source: "suite: aCollection\x0a\x09suite := aCollection",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: []
 }),
 globals.TestSuiteRunner);
 
@@ -1746,12 +1746,12 @@ return self;
 }, function($ctx1) {$ctx1.fill(self,"new",{},globals.TestSuiteRunner.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["shouldNotImplement"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "new\x0a\x09self shouldNotImplement",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["shouldNotImplement"]
 }),
 globals.TestSuiteRunner.klass);
 
@@ -1779,12 +1779,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"on:",{aCollection:aCollection},globals.TestSuiteRunner.klass)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["suite:", "new"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aCollection"],
 source: "on: aCollection\x0a\x09^ super new suite: aCollection",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["suite:", "new"]
 }),
 globals.TestSuiteRunner.klass);
 
@@ -1813,12 +1813,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"isTestClass",{},globals.Behavior)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["and:", "includesBehavior:", "not", "isAbstract"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "isTestClass\x0a\x09^(self includesBehavior: TestCase) and: [ \x0a\x09\x09\x09self isAbstract not ]",
-referencedClasses: ["TestCase"]
+referencedClasses: ["TestCase"],
 //>>excludeEnd("ide");
+messageSends: ["and:", "includesBehavior:", "not", "isAbstract"]
 }),
 globals.Behavior);
 
@@ -1846,12 +1846,12 @@ return $1;
 }, function($ctx1) {$ctx1.fill(self,"isTestPackage",{},globals.Package)});
 //>>excludeEnd("ctx");
 },
-messageSends: ["anySatisfy:", "classes", "isTestClass"],
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "isTestPackage\x0a\x09^ self classes anySatisfy: [ :each | each isTestClass ]",
-referencedClasses: []
+referencedClasses: [],
 //>>excludeEnd("ide");
+messageSends: ["anySatisfy:", "classes", "isTestClass"]
 }),
 globals.Package);
 

File diff suppressed because it is too large
+ 134 - 134
src/Web.js


Some files were not shown because too many files changed in this diff