define(["amber/boot", "amber_core/Kernel-Collections", "amber_core/Kernel-Exceptions", "amber_core/Kernel-Objects"], function($boot){"use strict"; if(!$boot.nilAsReceiver)$boot.nilAsReceiver=$boot.nil; var $core=$boot.api,nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals; if(!$boot.nilAsClass)$boot.nilAsClass=$boot.dnu; $core.addPackage('Compiler-Core'); $core.packages["Compiler-Core"].innerEval = function (expr) { return eval(expr); }; $core.packages["Compiler-Core"].transport = {"type":"amd","amdNamespace":"amber_core"}; $core.addClass('AbstractCodeGenerator', $globals.Object, ['currentClass', 'currentPackage', 'source'], 'Compiler-Core'); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.AbstractCodeGenerator.comment="I am the abstract super class of all code generators and provide their common API."; //>>excludeEnd("ide"); $core.addMethod( $core.method({ selector: "compileNode:", protocol: 'compiling', fn: function (aNode){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv(self._transformers())._inject_into_(aNode,(function(input,transformer){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv(transformer)._value_(input); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({input:input,transformer:transformer},$ctx1,1)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"compileNode:",{aNode:aNode},$globals.AbstractCodeGenerator)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aNode"], source: "compileNode: aNode\x0a\x09^ self transformers\x0a\x09\x09inject: aNode\x0a\x09\x09into: [ :input :transformer | transformer value: input ]", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["inject:into:", "transformers", "value:"] }), $globals.AbstractCodeGenerator); $core.addMethod( $core.method({ selector: "currentClass", protocol: 'accessing', fn: function (){ var self=this; return self["@currentClass"]; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "currentClass\x0a\x09^ currentClass", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.AbstractCodeGenerator); $core.addMethod( $core.method({ selector: "currentClass:", protocol: 'accessing', fn: function (aClass){ var self=this; self["@currentClass"]=aClass; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aClass"], source: "currentClass: aClass\x0a\x09currentClass := aClass", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.AbstractCodeGenerator); $core.addMethod( $core.method({ selector: "currentPackage", protocol: 'accessing', fn: function (){ var self=this; return self["@currentPackage"]; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "currentPackage\x0a\x09^ currentPackage", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.AbstractCodeGenerator); $core.addMethod( $core.method({ selector: "currentPackage:", protocol: 'accessing', fn: function (anObject){ var self=this; self["@currentPackage"]=anObject; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anObject"], source: "currentPackage: anObject\x0a\x09currentPackage := anObject", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.AbstractCodeGenerator); $core.addMethod( $core.method({ selector: "pseudoVariables", protocol: 'accessing', fn: function (){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($globals.Smalltalk)._pseudoVariableNames(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"pseudoVariables",{},$globals.AbstractCodeGenerator)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "pseudoVariables\x0a\x09^ Smalltalk pseudoVariableNames", referencedClasses: ["Smalltalk"], //>>excludeEnd("ide"); messageSends: ["pseudoVariableNames"] }), $globals.AbstractCodeGenerator); $core.addMethod( $core.method({ selector: "source", protocol: 'accessing', fn: function (){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=self["@source"]; if(($receiver = $1) == null || $receiver.isNil){ return ""; } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"source",{},$globals.AbstractCodeGenerator)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "source\x0a\x09^ source ifNil: [ '' ]", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["ifNil:"] }), $globals.AbstractCodeGenerator); $core.addMethod( $core.method({ selector: "source:", protocol: 'accessing', fn: function (aString){ var self=this; self["@source"]=aString; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "source: aString\x0a\x09source := aString", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.AbstractCodeGenerator); $core.addMethod( $core.method({ selector: "transformers", protocol: 'compiling', fn: function (){ var self=this; var dict; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); dict=self._transformersDictionary(); return $recv($recv($recv($recv(dict)._keys())._asArray())._sort())._collect_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv(dict)._at_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"transformers",{dict:dict},$globals.AbstractCodeGenerator)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "transformers\x0a\x09| dict |\x0a\x09dict := self transformersDictionary.\x0a\x09^ dict keys asArray sort collect: [ :each | dict at: each ] ", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["transformersDictionary", "collect:", "sort", "asArray", "keys", "at:"] }), $globals.AbstractCodeGenerator); $core.addMethod( $core.method({ selector: "transformersDictionary", protocol: 'compiling', fn: function (){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); self._subclassResponsibility(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"transformersDictionary",{},$globals.AbstractCodeGenerator)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "transformersDictionary\x0a\x09self subclassResponsibility", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["subclassResponsibility"] }), $globals.AbstractCodeGenerator); $core.addClass('CodeGenerator', $globals.AbstractCodeGenerator, [], 'Compiler-Core'); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.CodeGenerator.comment="I am a basic code generator. I generate a valid JavaScript output, but no not perform any inlining.\x0aSee `InliningCodeGenerator` for an optimized JavaScript code generation."; //>>excludeEnd("ide"); $core.addMethod( $core.method({ selector: "irTranslator", protocol: 'compiling', fn: function (){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv(self._irTranslatorClass())._new(); $recv($1)._currentClass_(self._currentClass()); return $recv($1)._yourself(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"irTranslator",{},$globals.CodeGenerator)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "irTranslator\x0a\x09^ self irTranslatorClass new\x0a\x09\x09currentClass: self currentClass;\x0a\x09\x09yourself", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["currentClass:", "new", "irTranslatorClass", "currentClass", "yourself"] }), $globals.CodeGenerator); $core.addMethod( $core.method({ selector: "irTranslatorClass", protocol: 'compiling', fn: function (){ var self=this; return $globals.IRJSTranslator; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "irTranslatorClass\x0a\x09^ IRJSTranslator", referencedClasses: ["IRJSTranslator"], //>>excludeEnd("ide"); messageSends: [] }), $globals.CodeGenerator); $core.addMethod( $core.method({ selector: "semanticAnalyzer", protocol: 'compiling', fn: function (){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv($globals.SemanticAnalyzer)._on_(self._currentClass()); $recv($1)._thePackage_(self._currentPackage()); return $recv($1)._yourself(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"semanticAnalyzer",{},$globals.CodeGenerator)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "semanticAnalyzer\x0a\x09^ (SemanticAnalyzer on: self currentClass)\x0a\x09\x09thePackage: self currentPackage;\x0a\x09\x09yourself", referencedClasses: ["SemanticAnalyzer"], //>>excludeEnd("ide"); messageSends: ["thePackage:", "on:", "currentClass", "currentPackage", "yourself"] }), $globals.CodeGenerator); $core.addMethod( $core.method({ selector: "transformersDictionary", protocol: 'compiling', fn: function (){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv($globals.Dictionary)._new(); $recv($1)._at_put_("2000-semantic",self._semanticAnalyzer()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["at:put:"]=1; //>>excludeEnd("ctx"); $recv($1)._at_put_("5000-astToIr",self._translator()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["at:put:"]=2; //>>excludeEnd("ctx"); $recv($1)._at_put_("8000-irToJs",self._irTranslator()); return $recv($1)._yourself(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"transformersDictionary",{},$globals.CodeGenerator)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "transformersDictionary\x0a\x09^ Dictionary new\x0a\x09\x09at: '2000-semantic' put: self semanticAnalyzer;\x0a\x09\x09at: '5000-astToIr' put: self translator;\x0a\x09\x09at: '8000-irToJs' put: self irTranslator;\x0a\x09\x09yourself", referencedClasses: ["Dictionary"], //>>excludeEnd("ide"); messageSends: ["at:put:", "new", "semanticAnalyzer", "translator", "irTranslator", "yourself"] }), $globals.CodeGenerator); $core.addMethod( $core.method({ selector: "translator", protocol: 'compiling', fn: function (){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv($globals.IRASTTranslator)._new(); $recv($1)._source_(self._source()); $recv($1)._theClass_(self._currentClass()); return $recv($1)._yourself(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"translator",{},$globals.CodeGenerator)}); //>>excludeEnd("ctx"); }, //>>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"], //>>excludeEnd("ide"); messageSends: ["source:", "new", "source", "theClass:", "currentClass", "yourself"] }), $globals.CodeGenerator); $core.addClass('Compiler', $globals.Object, ['currentClass', 'currentPackage', 'source', 'unknownVariables', 'codeGeneratorClass'], 'Compiler-Core'); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.Compiler.comment="I provide the public interface for compiling Amber source code into JavaScript.\x0a\x0aThe code generator used to produce JavaScript can be plugged with `#codeGeneratorClass`.\x0aThe default code generator is an instance of `InlinedCodeGenerator`"; //>>excludeEnd("ide"); $core.addMethod( $core.method({ selector: "codeGeneratorClass", protocol: 'accessing', fn: function (){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=self["@codeGeneratorClass"]; if(($receiver = $1) == null || $receiver.isNil){ return $globals.InliningCodeGenerator; } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"codeGeneratorClass",{},$globals.Compiler)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "codeGeneratorClass\x0a\x09^ codeGeneratorClass ifNil: [ InliningCodeGenerator ]", referencedClasses: ["InliningCodeGenerator"], //>>excludeEnd("ide"); messageSends: ["ifNil:"] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "codeGeneratorClass:", protocol: 'accessing', fn: function (aClass){ var self=this; self["@codeGeneratorClass"]=aClass; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aClass"], source: "codeGeneratorClass: aClass\x0a\x09codeGeneratorClass := aClass", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "compile:forClass:protocol:", protocol: 'compiling', fn: function (aString,aClass,anotherString){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); self._source_(aString); return self._compileNode_forClass_package_(self._parse_(aString),aClass,$recv(aClass)._packageOfProtocol_(anotherString)); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"compile:forClass:protocol:",{aString:aString,aClass:aClass,anotherString:anotherString},$globals.Compiler)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString", "aClass", "anotherString"], source: "compile: aString forClass: aClass protocol: anotherString\x0a\x09^ self\x0a\x09\x09source: aString;\x0a\x09\x09compileNode: (self parse: aString)\x0a\x09\x09forClass: aClass\x0a\x09\x09package: (aClass packageOfProtocol: anotherString)", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["source:", "compileNode:forClass:package:", "parse:", "packageOfProtocol:"] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "compileExpression:on:", protocol: 'compiling', fn: function (aString,anObject){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv("xxxDoIt ^ [ ".__comma(aString)).__comma(" ] value"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx[","]=1; //>>excludeEnd("ctx"); return self._compile_forClass_protocol_($1,$recv(anObject)._class(),"**xxxDoIt"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"compileExpression:on:",{aString:aString,anObject:anObject},$globals.Compiler)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString", "anObject"], source: "compileExpression: aString on: anObject\x0a\x09^ self\x0a\x09\x09compile: 'xxxDoIt ^ [ ', aString, ' ] value'\x0a\x09\x09forClass: anObject class\x0a\x09\x09protocol: '**xxxDoIt'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["compile:forClass:protocol:", ",", "class"] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "compileNode:", protocol: 'compiling', fn: function (aNode){ var self=this; var generator,result; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; generator=$recv(self._codeGeneratorClass())._new(); $1=generator; $recv($1)._source_(self._source()); $recv($1)._currentClass_(self._currentClass()); $recv($1)._currentPackage_(self._currentPackage()); result=$recv(generator)._compileNode_(aNode); self._unknownVariables_([]); return result; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"compileNode:",{aNode:aNode,generator:generator,result:result},$globals.Compiler)}); //>>excludeEnd("ctx"); }, //>>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\x09\x09currentPackage: self currentPackage.\x0a\x09result := generator compileNode: aNode.\x0a\x09self unknownVariables: #().\x0a\x09^ result", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["new", "codeGeneratorClass", "source:", "source", "currentClass:", "currentClass", "currentPackage:", "currentPackage", "compileNode:", "unknownVariables:"] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "compileNode:forClass:package:", protocol: 'compiling', fn: function (aNode,aClass,aPackage){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); self._currentClass_(aClass); self._currentPackage_(aPackage); return self._compileNode_(aNode); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"compileNode:forClass:package:",{aNode:aNode,aClass:aClass,aPackage:aPackage},$globals.Compiler)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aNode", "aClass", "aPackage"], source: "compileNode: aNode forClass: aClass package: aPackage\x0a\x09^ self\x0a\x09\x09currentClass: aClass;\x0a\x09\x09currentPackage: aPackage;\x0a\x09\x09compileNode: aNode", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["currentClass:", "currentPackage:", "compileNode:"] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "currentClass", protocol: 'accessing', fn: function (){ var self=this; return self["@currentClass"]; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "currentClass\x0a\x09^ currentClass", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "currentClass:", protocol: 'accessing', fn: function (aClass){ var self=this; self["@currentClass"]=aClass; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aClass"], source: "currentClass: aClass\x0a\x09currentClass := aClass", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "currentPackage", protocol: 'accessing', fn: function (){ var self=this; return self["@currentPackage"]; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "currentPackage\x0a\x09^ currentPackage", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "currentPackage:", protocol: 'accessing', fn: function (anObject){ var self=this; self["@currentPackage"]=anObject; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anObject"], source: "currentPackage: anObject\x0a\x09currentPackage := anObject", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "eval:", protocol: 'compiling', fn: function (aString){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return eval(aString); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"eval:",{aString:aString},$globals.Compiler)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "eval: aString\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "eval:forPackage:", protocol: 'compiling', fn: function (aString,aPackage){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return aPackage && aPackage.innerEval ? aPackage.innerEval(aString) : eval(aString); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"eval:forPackage:",{aString:aString,aPackage:aPackage},$globals.Compiler)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString", "aPackage"], source: "eval: aString forPackage: aPackage\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "evaluateExpression:", protocol: 'compiling', fn: function (aString){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return self._evaluateExpression_on_(aString,$recv($globals.DoIt)._new()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"evaluateExpression:",{aString:aString},$globals.Compiler)}); //>>excludeEnd("ctx"); }, //>>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"], //>>excludeEnd("ide"); messageSends: ["evaluateExpression:on:", "new"] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "evaluateExpression:on:", protocol: 'compiling', fn: function (aString,anObject){ var self=this; var result,method; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; method=self._eval_(self._compileExpression_on_(aString,anObject)); $recv(method)._protocol_("**xxxDoIt"); $1=$recv(anObject)._class(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["class"]=1; //>>excludeEnd("ctx"); $recv($1)._addCompiledMethod_(method); result=$recv(anObject)._xxxDoIt(); $recv($recv(anObject)._class())._removeCompiledMethod_(method); return result; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"evaluateExpression:on:",{aString:aString,anObject:anObject,result:result,method:method},$globals.Compiler)}); //>>excludeEnd("ctx"); }, //>>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: [], //>>excludeEnd("ide"); messageSends: ["eval:", "compileExpression:on:", "protocol:", "addCompiledMethod:", "class", "xxxDoIt", "removeCompiledMethod:"] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "install:forClass:protocol:", protocol: 'compiling', fn: function (aString,aBehavior,anotherString){ var self=this; var compiledMethod; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); compiledMethod=self._eval_forPackage_(self._compile_forClass_protocol_(aString,aBehavior,anotherString),$recv(aBehavior)._packageOfProtocol_(anotherString)); return $recv($recv($globals.ClassBuilder)._new())._installMethod_forClass_protocol_(compiledMethod,aBehavior,anotherString); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"install:forClass:protocol:",{aString:aString,aBehavior:aBehavior,anotherString:anotherString,compiledMethod:compiledMethod},$globals.Compiler)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString", "aBehavior", "anotherString"], source: "install: aString forClass: aBehavior protocol: anotherString\x0a\x09| compiledMethod |\x0a\x09compiledMethod := self\x0a\x09\x09eval: (self compile: aString forClass: aBehavior protocol: anotherString)\x0a\x09\x09forPackage: (aBehavior packageOfProtocol: anotherString).\x0a\x09^ ClassBuilder new\x0a\x09\x09installMethod: compiledMethod\x0a\x09\x09forClass: aBehavior\x0a\x09\x09protocol: anotherString", referencedClasses: ["ClassBuilder"], //>>excludeEnd("ide"); messageSends: ["eval:forPackage:", "compile:forClass:protocol:", "packageOfProtocol:", "installMethod:forClass:protocol:", "new"] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "parse:", protocol: 'compiling', fn: function (aString){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($globals.Smalltalk)._parse_(aString); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"parse:",{aString:aString},$globals.Compiler)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "parse: aString\x0a\x09^ Smalltalk parse: aString", referencedClasses: ["Smalltalk"], //>>excludeEnd("ide"); messageSends: ["parse:"] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "parseExpression:", protocol: 'compiling', fn: function (aString){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv("doIt ^ [ ".__comma(aString)).__comma(" ] value"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx[","]=1; //>>excludeEnd("ctx"); return self._parse_($1); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"parseExpression:",{aString:aString},$globals.Compiler)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "parseExpression: aString\x0a\x09^ self parse: 'doIt ^ [ ', aString, ' ] value'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["parse:", ","] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "recompile:", protocol: 'compiling', fn: function (aClass){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $recv($recv($recv(aClass)._methodDictionary())._values())._do_displayingProgress_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return self._install_forClass_protocol_($recv(each)._source(),aClass,$recv(each)._protocol()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); }),"Recompiling ".__comma($recv(aClass)._name())); $1=$recv(aClass)._isMetaclass(); if(!$core.assert($1)){ self._recompile_($recv(aClass)._class()); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"recompile:",{aClass:aClass},$globals.Compiler)}); //>>excludeEnd("ctx"); }, //>>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: [], //>>excludeEnd("ide"); messageSends: ["do:displayingProgress:", "values", "methodDictionary", "install:forClass:protocol:", "source", "protocol", ",", "name", "ifFalse:", "isMetaclass", "recompile:", "class"] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "recompileAll", protocol: 'compiling', fn: function (){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv($globals.Smalltalk)._classes())._do_displayingProgress_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return self._recompile_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); }),"Compiling all classes..."); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"recompileAll",{},$globals.Compiler)}); //>>excludeEnd("ctx"); }, //>>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"], //>>excludeEnd("ide"); messageSends: ["do:displayingProgress:", "classes", "recompile:"] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "source", protocol: 'accessing', fn: function (){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=self["@source"]; if(($receiver = $1) == null || $receiver.isNil){ return ""; } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"source",{},$globals.Compiler)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "source\x0a\x09^ source ifNil: [ '' ]", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["ifNil:"] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "source:", protocol: 'accessing', fn: function (aString){ var self=this; self["@source"]=aString; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "source: aString\x0a\x09source := aString", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "unknownVariables", protocol: 'accessing', fn: function (){ var self=this; return self["@unknownVariables"]; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "unknownVariables\x0a\x09^ unknownVariables", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "unknownVariables:", protocol: 'accessing', fn: function (aCollection){ var self=this; self["@unknownVariables"]=aCollection; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aCollection"], source: "unknownVariables: aCollection\x0a\x09unknownVariables := aCollection", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Compiler); $core.addMethod( $core.method({ selector: "recompile:", protocol: 'compiling', fn: function (aClass){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv(self._new())._recompile_(aClass); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"recompile:",{aClass:aClass},$globals.Compiler.klass)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aClass"], source: "recompile: aClass\x0a\x09self new recompile: aClass", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["recompile:", "new"] }), $globals.Compiler.klass); $core.addMethod( $core.method({ selector: "recompileAll", protocol: 'compiling', fn: function (){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv($globals.Smalltalk)._classes())._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return self._recompile_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"recompileAll",{},$globals.Compiler.klass)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "recompileAll\x0a\x09Smalltalk classes do: [ :each |\x0a\x09\x09self recompile: each ]", referencedClasses: ["Smalltalk"], //>>excludeEnd("ide"); messageSends: ["do:", "classes", "recompile:"] }), $globals.Compiler.klass); $core.addClass('CompilerError', $globals.Error, [], 'Compiler-Core'); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.CompilerError.comment="I am the common superclass of all compiling errors."; //>>excludeEnd("ide"); $core.addClass('DoIt', $globals.Object, [], 'Compiler-Core'); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.DoIt.comment="`DoIt` is the class used to compile and evaluate expressions. See `Compiler >> evaluateExpression:`."; //>>excludeEnd("ide"); $core.addClass('Evaluator', $globals.Object, [], 'Compiler-Core'); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.Evaluator.comment="I evaluate code against a receiver, dispatching #evaluate:on: to the receiver."; //>>excludeEnd("ide"); $core.addMethod( $core.method({ selector: "evaluate:context:", protocol: 'evaluating', fn: function (aString,aContext){ var self=this; var compiler,ast; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; var $early={}; try { compiler=$recv($globals.Compiler)._new(); $recv((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); ast=$recv(compiler)._parseExpression_(aString); return ast; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); }))._on_do_($globals.Error,(function(ex){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); throw $early=[$recv($globals.Terminal)._alert_($recv(ex)._messageText())]; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({ex:ex},$ctx1,2)}); //>>excludeEnd("ctx"); })); $1=$recv($globals.AISemanticAnalyzer)._on_($recv($recv(aContext)._receiver())._class()); $recv($1)._context_(aContext); $recv($1)._visit_(ast); return $recv(aContext)._evaluateNode_(ast); } catch(e) {if(e===$early)return e[0]; throw e} //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"evaluate:context:",{aString:aString,aContext:aContext,compiler:compiler,ast:ast},$globals.Evaluator)}); //>>excludeEnd("ctx"); }, //>>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 | ^ Terminal 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", "Terminal", "AISemanticAnalyzer"], //>>excludeEnd("ide"); messageSends: ["new", "on:do:", "parseExpression:", "alert:", "messageText", "context:", "on:", "class", "receiver", "visit:", "evaluateNode:"] }), $globals.Evaluator); $core.addMethod( $core.method({ selector: "evaluate:for:", protocol: 'evaluating', fn: function (aString,anObject){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv(anObject)._evaluate_on_(aString,self); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"evaluate:for:",{aString:aString,anObject:anObject},$globals.Evaluator)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString", "anObject"], source: "evaluate: aString for: anObject\x0a\x09^ anObject evaluate: aString on: self", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["evaluate:on:"] }), $globals.Evaluator); $core.addMethod( $core.method({ selector: "evaluate:receiver:", protocol: 'evaluating', fn: function (aString,anObject){ var self=this; var compiler; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $early={}; try { compiler=$recv($globals.Compiler)._new(); $recv((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv(compiler)._parseExpression_(aString); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); }))._on_do_($globals.Error,(function(ex){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); throw $early=[$recv($globals.Terminal)._alert_($recv(ex)._messageText())]; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({ex:ex},$ctx1,2)}); //>>excludeEnd("ctx"); })); return $recv(compiler)._evaluateExpression_on_(aString,anObject); } catch(e) {if(e===$early)return e[0]; throw e} //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"evaluate:receiver:",{aString:aString,anObject:anObject,compiler:compiler},$globals.Evaluator)}); //>>excludeEnd("ctx"); }, //>>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 | ^ Terminal alert: ex messageText ].\x0a\x0a\x09^ compiler evaluateExpression: aString on: anObject", referencedClasses: ["Compiler", "Error", "Terminal"], //>>excludeEnd("ide"); messageSends: ["new", "on:do:", "parseExpression:", "alert:", "messageText", "evaluateExpression:on:"] }), $globals.Evaluator); $core.addMethod( $core.method({ selector: "evaluate:for:", protocol: 'instance creation', fn: function (aString,anObject){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv(self._new())._evaluate_for_(aString,anObject); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"evaluate:for:",{aString:aString,anObject:anObject},$globals.Evaluator.klass)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString", "anObject"], source: "evaluate: aString for: anObject\x0a\x09^ self new evaluate: aString for: anObject", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["evaluate:for:", "new"] }), $globals.Evaluator.klass); $core.addMethod( $core.method({ selector: "asVariableName", protocol: '*Compiler-Core', fn: function (){ var self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv($recv($globals.Smalltalk)._reservedWords())._includes_(self); if($core.assert($1)){ return self.__comma("_"); } else { return self; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"asVariableName",{},$globals.String)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "asVariableName\x0a\x09^ (Smalltalk reservedWords includes: self)\x0a\x09\x09ifTrue: [ self, '_' ]\x0a\x09\x09ifFalse: [ self ]", referencedClasses: ["Smalltalk"], //>>excludeEnd("ide"); messageSends: ["ifTrue:ifFalse:", "includes:", "reservedWords", ","] }), $globals.String); });