smalltalk.addPackage('Compiler-AST', {}); smalltalk.addClass('Node', smalltalk.Object, ['nodes', 'used', 'alias'], 'Compiler-AST'); smalltalk.Node.comment="I am the abstract root class of the abstract syntax tree." smalltalk.addMethod( "_accept_", smalltalk.method({ selector: "accept:", category: 'visiting', fn: function (aVisitor) { var self=this; smalltalk.send(aVisitor, "_visitNode_", [self]); return self;}, args: ["aVisitor"], source: "accept: aVisitor\x0a\x09aVisitor visitNode: self", messageSends: ["visitNode:"], referencedClasses: [] }), smalltalk.Node); smalltalk.addMethod( "_addNode_", smalltalk.method({ selector: "addNode:", category: 'accessing', fn: function (aNode) { var self=this; smalltalk.send(smalltalk.send(self, "_nodes", []), "_add_", [aNode]); return self;}, args: ["aNode"], source: "addNode: aNode\x0a\x09self nodes add: aNode", messageSends: ["add:", "nodes"], referencedClasses: [] }), smalltalk.Node); smalltalk.addMethod( "_alias", smalltalk.method({ selector: "alias", category: 'accessing', fn: function () { var self=this; return self['@alias']; return self;}, args: [], source: "alias\x0a\x09^ alias", messageSends: [], referencedClasses: [] }), smalltalk.Node); smalltalk.addMethod( "_alias_", smalltalk.method({ selector: "alias:", category: 'accessing', fn: function (aString) { var self=this; (self['@alias']=aString); return self;}, args: ["aString"], source: "alias: aString\x0a\x09alias := aString", messageSends: [], referencedClasses: [] }), smalltalk.Node); smalltalk.addMethod( "_beUsed", smalltalk.method({ selector: "beUsed", category: 'accessing', fn: function () { var self=this; (self['@used']=true); return self;}, args: [], source: "beUsed\x0a\x09used := true", messageSends: [], referencedClasses: [] }), smalltalk.Node); smalltalk.addMethod( "_canAliasChildren", smalltalk.method({ selector: "canAliasChildren", category: 'testing', fn: function () { var self=this; return true; return self;}, args: [], source: "canAliasChildren\x0a\x09^ true", messageSends: [], referencedClasses: [] }), smalltalk.Node); smalltalk.addMethod( "_isAliased", smalltalk.method({ selector: "isAliased", category: 'testing', fn: function () { var self=this; return smalltalk.send(smalltalk.send(self, "_alias", []), "_notNil", []); return self;}, args: [], source: "isAliased\x0a\x09^ self alias notNil", messageSends: ["notNil", "alias"], referencedClasses: [] }), smalltalk.Node); smalltalk.addMethod( "_isBlockNode", smalltalk.method({ selector: "isBlockNode", category: 'testing', fn: function () { var self=this; return false; return self;}, args: [], source: "isBlockNode\x0a\x09^false", messageSends: [], referencedClasses: [] }), smalltalk.Node); smalltalk.addMethod( "_isBlockSequenceNode", smalltalk.method({ selector: "isBlockSequenceNode", category: 'testing', fn: function () { var self=this; return false; return self;}, args: [], source: "isBlockSequenceNode\x0a\x09^false", messageSends: [], referencedClasses: [] }), smalltalk.Node); smalltalk.addMethod( "_isSendNode", smalltalk.method({ selector: "isSendNode", category: 'testing', fn: function () { var self=this; return false; return self;}, args: [], source: "isSendNode\x0a\x09^false", messageSends: [], referencedClasses: [] }), smalltalk.Node); smalltalk.addMethod( "_isUsed", smalltalk.method({ selector: "isUsed", category: 'testing', fn: function () { var self=this; return smalltalk.send(self, "_used", []); return self;}, args: [], source: "isUsed\x0a\x09^ self used", messageSends: ["used"], referencedClasses: [] }), smalltalk.Node); smalltalk.addMethod( "_isValueNode", smalltalk.method({ selector: "isValueNode", category: 'testing', fn: function () { var self=this; return false; return self;}, args: [], source: "isValueNode\x0a\x09^false", messageSends: [], referencedClasses: [] }), smalltalk.Node); smalltalk.addMethod( "_nodes", smalltalk.method({ selector: "nodes", category: 'accessing', fn: function () { var self=this; return (($receiver = self['@nodes']) == nil || $receiver == undefined) ? (function(){return (self['@nodes']=smalltalk.send((smalltalk.Array || Array), "_new", []));})() : $receiver; return self;}, args: [], source: "nodes\x0a\x09^nodes ifNil: [nodes := Array new]", messageSends: ["ifNil:", "new"], referencedClasses: ["Array"] }), smalltalk.Node); smalltalk.addMethod( "_nodes_", smalltalk.method({ selector: "nodes:", category: 'building', fn: function (aCollection) { var self=this; (self['@nodes']=aCollection); return self;}, args: ["aCollection"], source: "nodes: aCollection\x0a\x09nodes := aCollection", messageSends: [], referencedClasses: [] }), smalltalk.Node); smalltalk.addMethod( "_shouldBeAliased", smalltalk.method({ selector: "shouldBeAliased", category: 'testing', fn: function () { var self=this; return smalltalk.send(smalltalk.send(self, "_isUsed", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(self, "_alias", []), "_isNil", []);})]); return self;}, args: [], source: "shouldBeAliased\x0a\x09^ self isUsed and: [ self alias isNil ]", messageSends: ["and:", "isUsed", "isNil", "alias"], referencedClasses: [] }), smalltalk.Node); smalltalk.addMethod( "_used", smalltalk.method({ selector: "used", category: 'accessing', fn: function () { var self=this; return (($receiver = self['@used']) == nil || $receiver == undefined) ? (function(){return false;})() : $receiver; return self;}, args: [], source: "used\x0a\x09^ used ifNil: [ false ]", messageSends: ["ifNil:"], referencedClasses: [] }), smalltalk.Node); smalltalk.addMethod( "_used_", smalltalk.method({ selector: "used:", category: 'accessing', fn: function (aBoolean) { var self=this; (self['@used']=aBoolean); return self;}, args: ["aBoolean"], source: "used: aBoolean\x0a\x09used := aBoolean", messageSends: [], referencedClasses: [] }), smalltalk.Node); smalltalk.addClass('AssignmentNode', smalltalk.Node, ['left', 'right'], 'Compiler-AST'); smalltalk.addMethod( "_accept_", smalltalk.method({ selector: "accept:", category: 'visiting', fn: function (aVisitor) { var self=this; smalltalk.send(aVisitor, "_visitAssignmentNode_", [self]); return self;}, args: ["aVisitor"], source: "accept: aVisitor\x0a\x09aVisitor visitAssignmentNode: self", messageSends: ["visitAssignmentNode:"], referencedClasses: [] }), smalltalk.AssignmentNode); smalltalk.addMethod( "_left", smalltalk.method({ selector: "left", category: 'accessing', fn: function () { var self=this; return self['@left']; return self;}, args: [], source: "left\x0a\x09^left", messageSends: [], referencedClasses: [] }), smalltalk.AssignmentNode); smalltalk.addMethod( "_left_", smalltalk.method({ selector: "left:", category: 'accessing', fn: function (aNode) { var self=this; (self['@left']=aNode); smalltalk.send(self['@left'], "_assigned_", [true]); return self;}, args: ["aNode"], source: "left: aNode\x0a\x09left := aNode.\x0a\x09left assigned: true", messageSends: ["assigned:"], referencedClasses: [] }), smalltalk.AssignmentNode); smalltalk.addMethod( "_nodes", smalltalk.method({ selector: "nodes", category: 'accessing', fn: function () { var self=this; return smalltalk.send((smalltalk.Array || Array), "_with_with_", [smalltalk.send(self, "_left", []), smalltalk.send(self, "_right", [])]); return self;}, args: [], source: "nodes\x0a\x09^ Array with: self left with: self right", messageSends: ["with:with:", "left", "right"], referencedClasses: ["Array"] }), smalltalk.AssignmentNode); smalltalk.addMethod( "_right", smalltalk.method({ selector: "right", category: 'accessing', fn: function () { var self=this; return self['@right']; return self;}, args: [], source: "right\x0a\x09^right", messageSends: [], referencedClasses: [] }), smalltalk.AssignmentNode); smalltalk.addMethod( "_right_", smalltalk.method({ selector: "right:", category: 'accessing', fn: function (aNode) { var self=this; (self['@right']=aNode); return self;}, args: ["aNode"], source: "right: aNode\x0a\x09right := aNode", messageSends: [], referencedClasses: [] }), smalltalk.AssignmentNode); smalltalk.addClass('BlockNode', smalltalk.Node, ['parameters', 'scope'], 'Compiler-AST'); smalltalk.addMethod( "_accept_", smalltalk.method({ selector: "accept:", category: 'visiting', fn: function (aVisitor) { var self=this; smalltalk.send(aVisitor, "_visitBlockNode_", [self]); return self;}, args: ["aVisitor"], source: "accept: aVisitor\x0a\x09aVisitor visitBlockNode: self", messageSends: ["visitBlockNode:"], referencedClasses: [] }), smalltalk.BlockNode); smalltalk.addMethod( "_isBlockNode", smalltalk.method({ selector: "isBlockNode", category: 'testing', fn: function () { var self=this; return true; return self;}, args: [], source: "isBlockNode\x0a\x09^true", messageSends: [], referencedClasses: [] }), smalltalk.BlockNode); smalltalk.addMethod( "_parameters", smalltalk.method({ selector: "parameters", category: 'accessing', fn: function () { var self=this; return (($receiver = self['@parameters']) == nil || $receiver == undefined) ? (function(){return (self['@parameters']=smalltalk.send((smalltalk.Array || Array), "_new", []));})() : $receiver; return self;}, args: [], source: "parameters\x0a\x09^parameters ifNil: [parameters := Array new]", messageSends: ["ifNil:", "new"], referencedClasses: ["Array"] }), smalltalk.BlockNode); smalltalk.addMethod( "_parameters_", smalltalk.method({ selector: "parameters:", category: 'accessing', fn: function (aCollection) { var self=this; (self['@parameters']=aCollection); return self;}, args: ["aCollection"], source: "parameters: aCollection\x0a\x09parameters := aCollection", messageSends: [], referencedClasses: [] }), smalltalk.BlockNode); smalltalk.addMethod( "_scope", smalltalk.method({ selector: "scope", category: 'accessing', fn: function () { var self=this; return self['@scope']; return self;}, args: [], source: "scope\x0a\x09^ scope", messageSends: [], referencedClasses: [] }), smalltalk.BlockNode); smalltalk.addMethod( "_scope_", smalltalk.method({ selector: "scope:", category: 'accessing', fn: function (aLexicalScope) { var self=this; (self['@scope']=aLexicalScope); return self;}, args: ["aLexicalScope"], source: "scope: aLexicalScope\x0a\x09scope := aLexicalScope", messageSends: [], referencedClasses: [] }), smalltalk.BlockNode); smalltalk.addClass('CascadeNode', smalltalk.Node, ['receiver'], 'Compiler-AST'); smalltalk.addMethod( "_accept_", smalltalk.method({ selector: "accept:", category: 'visiting', fn: function (aVisitor) { var self=this; smalltalk.send(aVisitor, "_visitCascadeNode_", [self]); return self;}, args: ["aVisitor"], source: "accept: aVisitor\x0a\x09aVisitor visitCascadeNode: self", messageSends: ["visitCascadeNode:"], referencedClasses: [] }), smalltalk.CascadeNode); smalltalk.addMethod( "_receiver", smalltalk.method({ selector: "receiver", category: 'accessing', fn: function () { var self=this; return self['@receiver']; return self;}, args: [], source: "receiver\x0a\x09^receiver", messageSends: [], referencedClasses: [] }), smalltalk.CascadeNode); smalltalk.addMethod( "_receiver_", smalltalk.method({ selector: "receiver:", category: 'accessing', fn: function (aNode) { var self=this; (self['@receiver']=aNode); return self;}, args: ["aNode"], source: "receiver: aNode\x0a\x09receiver := aNode", messageSends: [], referencedClasses: [] }), smalltalk.CascadeNode); smalltalk.addClass('DynamicArrayNode', smalltalk.Node, [], 'Compiler-AST'); smalltalk.addMethod( "_accept_", smalltalk.method({ selector: "accept:", category: 'visiting', fn: function (aVisitor) { var self=this; smalltalk.send(aVisitor, "_visitDynamicArrayNode_", [self]); return self;}, args: ["aVisitor"], source: "accept: aVisitor\x0a\x09aVisitor visitDynamicArrayNode: self", messageSends: ["visitDynamicArrayNode:"], referencedClasses: [] }), smalltalk.DynamicArrayNode); smalltalk.addClass('DynamicDictionaryNode', smalltalk.Node, [], 'Compiler-AST'); smalltalk.addMethod( "_accept_", smalltalk.method({ selector: "accept:", category: 'visiting', fn: function (aVisitor) { var self=this; smalltalk.send(aVisitor, "_visitDynamicDictionaryNode_", [self]); return self;}, args: ["aVisitor"], source: "accept: aVisitor\x0a\x09aVisitor visitDynamicDictionaryNode: self", messageSends: ["visitDynamicDictionaryNode:"], referencedClasses: [] }), smalltalk.DynamicDictionaryNode); smalltalk.addClass('JSStatementNode', smalltalk.Node, ['source'], 'Compiler-AST'); smalltalk.addMethod( "_accept_", smalltalk.method({ selector: "accept:", category: 'visiting', fn: function (aVisitor) { var self=this; smalltalk.send(aVisitor, "_visitJSStatementNode_", [self]); return self;}, args: ["aVisitor"], source: "accept: aVisitor\x0a\x09aVisitor visitJSStatementNode: self", messageSends: ["visitJSStatementNode:"], referencedClasses: [] }), smalltalk.JSStatementNode); smalltalk.addMethod( "_source", smalltalk.method({ selector: "source", category: 'accessing', fn: function () { var self=this; return (($receiver = self['@source']) == nil || $receiver == undefined) ? (function(){return "";})() : $receiver; return self;}, args: [], source: "source\x0a\x09^source ifNil: ['']", messageSends: ["ifNil:"], referencedClasses: [] }), smalltalk.JSStatementNode); smalltalk.addMethod( "_source_", smalltalk.method({ selector: "source:", category: 'accessing', fn: function (aString) { var self=this; (self['@source']=aString); return self;}, args: ["aString"], source: "source: aString\x0a\x09source := aString", messageSends: [], referencedClasses: [] }), smalltalk.JSStatementNode); smalltalk.addClass('MethodNode', smalltalk.Node, ['selector', 'arguments', 'source', 'scope', 'classReferences', 'messageSends'], 'Compiler-AST'); smalltalk.addMethod( "_accept_", smalltalk.method({ selector: "accept:", category: 'visiting', fn: function (aVisitor) { var self=this; smalltalk.send(aVisitor, "_visitMethodNode_", [self]); return self;}, args: ["aVisitor"], source: "accept: aVisitor\x0a\x09aVisitor visitMethodNode: self", messageSends: ["visitMethodNode:"], referencedClasses: [] }), smalltalk.MethodNode); smalltalk.addMethod( "_arguments", smalltalk.method({ selector: "arguments", category: 'accessing', fn: function () { var self=this; return (($receiver = self['@arguments']) == nil || $receiver == undefined) ? (function(){return [];})() : $receiver; return self;}, args: [], source: "arguments\x0a\x09^arguments ifNil: [#()]", messageSends: ["ifNil:"], referencedClasses: [] }), smalltalk.MethodNode); smalltalk.addMethod( "_arguments_", smalltalk.method({ selector: "arguments:", category: 'accessing', fn: function (aCollection) { var self=this; (self['@arguments']=aCollection); return self;}, args: ["aCollection"], source: "arguments: aCollection\x0a\x09arguments := aCollection", messageSends: [], referencedClasses: [] }), smalltalk.MethodNode); smalltalk.addMethod( "_canAliasChildren", smalltalk.method({ selector: "canAliasChildren", category: 'testing', fn: function () { var self=this; return false; return self;}, args: [], source: "canAliasChildren\x0a\x09^ false", messageSends: [], referencedClasses: [] }), smalltalk.MethodNode); smalltalk.addMethod( "_classReferences", smalltalk.method({ selector: "classReferences", category: 'accessing', fn: function () { var self=this; return self['@classReferences']; return self;}, args: [], source: "classReferences\x0a\x09^ classReferences", messageSends: [], referencedClasses: [] }), smalltalk.MethodNode); smalltalk.addMethod( "_classReferences_", smalltalk.method({ selector: "classReferences:", category: 'accessing', fn: function (aCollection) { var self=this; (self['@classReferences']=aCollection); return self;}, args: ["aCollection"], source: "classReferences: aCollection\x0a\x09classReferences := aCollection", messageSends: [], referencedClasses: [] }), smalltalk.MethodNode); smalltalk.addMethod( "_hasNonLocalReturn", smalltalk.method({ selector: "hasNonLocalReturn", category: 'accessing', fn: function () { var self=this; return (($receiver = smalltalk.send(self, "_scope", [])) == nil || $receiver == undefined) ? (function(){return false;})() : (function(){return smalltalk.send(smalltalk.send(self, "_scope", []), "_hasNonLocalReturn", []);})(); return self;}, args: [], source: "hasNonLocalReturn\x0a\x09^ self scope\x0a\x09\x09ifNil: [ false ]\x0a\x09\x09ifNotNil: [ self scope hasNonLocalReturn ]", messageSends: ["ifNil:ifNotNil:", "scope", "hasNonLocalReturn"], referencedClasses: [] }), smalltalk.MethodNode); smalltalk.addMethod( "_messageSends", smalltalk.method({ selector: "messageSends", category: 'accessing', fn: function () { var self=this; return self['@messageSends']; return self;}, args: [], source: "messageSends\x0a\x09^ messageSends", messageSends: [], referencedClasses: [] }), smalltalk.MethodNode); smalltalk.addMethod( "_messageSends_", smalltalk.method({ selector: "messageSends:", category: 'accessing', fn: function (aCollection) { var self=this; (self['@messageSends']=aCollection); return self;}, args: ["aCollection"], source: "messageSends: aCollection\x0a\x09messageSends := aCollection", messageSends: [], referencedClasses: [] }), smalltalk.MethodNode); smalltalk.addMethod( "_scope", smalltalk.method({ selector: "scope", category: 'accessing', fn: function () { var self=this; return self['@scope']; return self;}, args: [], source: "scope\x0a\x09^ scope", messageSends: [], referencedClasses: [] }), smalltalk.MethodNode); smalltalk.addMethod( "_scope_", smalltalk.method({ selector: "scope:", category: 'accessing', fn: function (aMethodScope) { var self=this; (self['@scope']=aMethodScope); return self;}, args: ["aMethodScope"], source: "scope: aMethodScope\x0a\x09scope := aMethodScope", messageSends: [], referencedClasses: [] }), smalltalk.MethodNode); smalltalk.addMethod( "_selector", smalltalk.method({ selector: "selector", category: 'accessing', fn: function () { var self=this; return self['@selector']; return self;}, args: [], source: "selector\x0a\x09^selector", messageSends: [], referencedClasses: [] }), smalltalk.MethodNode); smalltalk.addMethod( "_selector_", smalltalk.method({ selector: "selector:", category: 'accessing', fn: function (aString) { var self=this; (self['@selector']=aString); return self;}, args: ["aString"], source: "selector: aString\x0a\x09selector := aString", messageSends: [], referencedClasses: [] }), smalltalk.MethodNode); smalltalk.addMethod( "_source", smalltalk.method({ selector: "source", category: 'accessing', fn: function () { var self=this; return self['@source']; return self;}, args: [], source: "source\x0a\x09^source", messageSends: [], referencedClasses: [] }), smalltalk.MethodNode); smalltalk.addMethod( "_source_", smalltalk.method({ selector: "source:", category: 'accessing', fn: function (aString) { var self=this; (self['@source']=aString); return self;}, args: ["aString"], source: "source: aString\x0a\x09source := aString", messageSends: [], referencedClasses: [] }), smalltalk.MethodNode); smalltalk.addClass('ReturnNode', smalltalk.Node, ['nonLocalReturn'], 'Compiler-AST'); smalltalk.addMethod( "_accept_", smalltalk.method({ selector: "accept:", category: 'visiting', fn: function (aVisitor) { var self=this; smalltalk.send(aVisitor, "_visitReturnNode_", [self]); return self;}, args: ["aVisitor"], source: "accept: aVisitor\x0a\x09aVisitor visitReturnNode: self", messageSends: ["visitReturnNode:"], referencedClasses: [] }), smalltalk.ReturnNode); smalltalk.addMethod( "_nonLocalReturn", smalltalk.method({ selector: "nonLocalReturn", category: 'accessing', fn: function () { var self=this; return (($receiver = self['@nonLocalReturn']) == nil || $receiver == undefined) ? (function(){return false;})() : $receiver; return self;}, args: [], source: "nonLocalReturn\x0a\x09^ nonLocalReturn ifNil: [ false ]", messageSends: ["ifNil:"], referencedClasses: [] }), smalltalk.ReturnNode); smalltalk.addMethod( "_nonLocalReturn_", smalltalk.method({ selector: "nonLocalReturn:", category: 'accessing', fn: function (aBoolean) { var self=this; (self['@nonLocalReturn']=aBoolean); return self;}, args: ["aBoolean"], source: "nonLocalReturn: aBoolean\x0a\x09nonLocalReturn := aBoolean", messageSends: [], referencedClasses: [] }), smalltalk.ReturnNode); smalltalk.addMethod( "_shouldBeAliased", smalltalk.method({ selector: "shouldBeAliased", category: 'testing', fn: function () { var self=this; return false; return self;}, args: [], source: "shouldBeAliased\x0a\x09^ false", messageSends: [], referencedClasses: [] }), smalltalk.ReturnNode); smalltalk.addClass('SendNode', smalltalk.Node, ['selector', 'arguments', 'receiver'], 'Compiler-AST'); smalltalk.addMethod( "_accept_", smalltalk.method({ selector: "accept:", category: 'visiting', fn: function (aVisitor) { var self=this; smalltalk.send(aVisitor, "_visitSendNode_", [self]); return self;}, args: ["aVisitor"], source: "accept: aVisitor\x0a\x09aVisitor visitSendNode: self", messageSends: ["visitSendNode:"], referencedClasses: [] }), smalltalk.SendNode); smalltalk.addMethod( "_arguments", smalltalk.method({ selector: "arguments", category: 'accessing', fn: function () { var self=this; return (($receiver = self['@arguments']) == nil || $receiver == undefined) ? (function(){return (self['@arguments']=[]);})() : $receiver; return self;}, args: [], source: "arguments\x0a\x09^arguments ifNil: [arguments := #()]", messageSends: ["ifNil:"], referencedClasses: [] }), smalltalk.SendNode); smalltalk.addMethod( "_arguments_", smalltalk.method({ selector: "arguments:", category: 'accessing', fn: function (aCollection) { var self=this; (self['@arguments']=aCollection); return self;}, args: ["aCollection"], source: "arguments: aCollection\x0a\x09arguments := aCollection", messageSends: [], referencedClasses: [] }), smalltalk.SendNode); smalltalk.addMethod( "_cascadeNodeWithMessages_", smalltalk.method({ selector: "cascadeNodeWithMessages:", category: 'accessing', fn: function (aCollection) { var self=this; var first=nil; (first=(function($rec){smalltalk.send($rec, "_selector_", [smalltalk.send(self, "_selector", [])]);smalltalk.send($rec, "_arguments_", [smalltalk.send(self, "_arguments", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.SendNode || SendNode), "_new", []))); return (function($rec){smalltalk.send($rec, "_receiver_", [smalltalk.send(self, "_receiver", [])]);smalltalk.send($rec, "_nodes_", [smalltalk.send(smalltalk.send((smalltalk.Array || Array), "_with_", [first]), "__comma", [aCollection])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.CascadeNode || CascadeNode), "_new", [])); return self;}, args: ["aCollection"], source: "cascadeNodeWithMessages: aCollection\x0a\x09| first |\x0a\x09first := SendNode new\x0a\x09 selector: self selector;\x0a\x09 arguments: self arguments;\x0a\x09 yourself.\x0a\x09^CascadeNode new\x0a\x09 receiver: self receiver;\x0a\x09 nodes: (Array with: first), aCollection;\x0a\x09 yourself", messageSends: ["selector:", "selector", "arguments:", "arguments", "yourself", "new", "receiver:", "receiver", "nodes:", ",", "with:"], referencedClasses: ["SendNode", "Array", "CascadeNode"] }), smalltalk.SendNode); smalltalk.addMethod( "_isSendNode", smalltalk.method({ selector: "isSendNode", category: 'testing', fn: function () { var self=this; return true; return self;}, args: [], source: "isSendNode\x0a\x09^ true", messageSends: [], referencedClasses: [] }), smalltalk.SendNode); smalltalk.addMethod( "_nodes", smalltalk.method({ selector: "nodes", category: 'accessing', fn: function () { var self=this; return (function($rec){smalltalk.send($rec, "_add_", [smalltalk.send(self, "_receiver", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.Array || Array), "_withAll_", [smalltalk.send(self, "_arguments", [])])); return self;}, args: [], source: "nodes\x0a\x09^ (Array withAll: self arguments)\x0a\x09\x09add: self receiver;\x0a\x09\x09yourself", messageSends: ["add:", "receiver", "yourself", "withAll:", "arguments"], referencedClasses: ["Array"] }), smalltalk.SendNode); smalltalk.addMethod( "_receiver", smalltalk.method({ selector: "receiver", category: 'accessing', fn: function () { var self=this; return self['@receiver']; return self;}, args: [], source: "receiver\x0a\x09^receiver", messageSends: [], referencedClasses: [] }), smalltalk.SendNode); smalltalk.addMethod( "_receiver_", smalltalk.method({ selector: "receiver:", category: 'accessing', fn: function (aNode) { var self=this; (self['@receiver']=aNode); return self;}, args: ["aNode"], source: "receiver: aNode\x0a\x09receiver := aNode", messageSends: [], referencedClasses: [] }), smalltalk.SendNode); smalltalk.addMethod( "_selector", smalltalk.method({ selector: "selector", category: 'accessing', fn: function () { var self=this; return self['@selector']; return self;}, args: [], source: "selector\x0a\x09^selector", messageSends: [], referencedClasses: [] }), smalltalk.SendNode); smalltalk.addMethod( "_selector_", smalltalk.method({ selector: "selector:", category: 'accessing', fn: function (aString) { var self=this; (self['@selector']=aString); return self;}, args: ["aString"], source: "selector: aString\x0a\x09selector := aString", messageSends: [], referencedClasses: [] }), smalltalk.SendNode); smalltalk.addMethod( "_valueForReceiver_", smalltalk.method({ selector: "valueForReceiver:", category: 'accessing', fn: function (anObject) { var self=this; return (function($rec){smalltalk.send($rec, "_receiver_", [(($receiver = smalltalk.send(self, "_receiver", [])) == nil || $receiver == undefined) ? (function(){return anObject;})() : (function(){return smalltalk.send(smalltalk.send(self, "_receiver", []), "_valueForReceiver_", [anObject]);})()]);smalltalk.send($rec, "_selector_", [smalltalk.send(self, "_selector", [])]);smalltalk.send($rec, "_arguments_", [smalltalk.send(self, "_arguments", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.SendNode || SendNode), "_new", [])); return self;}, args: ["anObject"], source: "valueForReceiver: anObject\x0a\x09^SendNode new\x0a\x09 receiver: (self receiver \x0a\x09\x09ifNil: [anObject]\x0a\x09\x09ifNotNil: [self receiver valueForReceiver: anObject]);\x0a\x09 selector: self selector;\x0a\x09 arguments: self arguments;\x0a\x09 yourself", messageSends: ["receiver:", "ifNil:ifNotNil:", "receiver", "valueForReceiver:", "selector:", "selector", "arguments:", "arguments", "yourself", "new"], referencedClasses: ["SendNode"] }), smalltalk.SendNode); smalltalk.addClass('SequenceNode', smalltalk.Node, ['temps', 'scope'], 'Compiler-AST'); smalltalk.addMethod( "_accept_", smalltalk.method({ selector: "accept:", category: 'visiting', fn: function (aVisitor) { var self=this; smalltalk.send(aVisitor, "_visitSequenceNode_", [self]); return self;}, args: ["aVisitor"], source: "accept: aVisitor\x0a\x09aVisitor visitSequenceNode: self", messageSends: ["visitSequenceNode:"], referencedClasses: [] }), smalltalk.SequenceNode); smalltalk.addMethod( "_asBlockSequenceNode", smalltalk.method({ selector: "asBlockSequenceNode", category: 'testing', fn: function () { var self=this; return (function($rec){smalltalk.send($rec, "_nodes_", [smalltalk.send(self, "_nodes", [])]);smalltalk.send($rec, "_temps_", [smalltalk.send(self, "_temps", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.BlockSequenceNode || BlockSequenceNode), "_new", [])); return self;}, args: [], source: "asBlockSequenceNode\x0a\x09^BlockSequenceNode new\x0a\x09 nodes: self nodes;\x0a\x09 temps: self temps;\x0a\x09 yourself", messageSends: ["nodes:", "nodes", "temps:", "temps", "yourself", "new"], referencedClasses: ["BlockSequenceNode"] }), smalltalk.SequenceNode); smalltalk.addMethod( "_canAliasChildren", smalltalk.method({ selector: "canAliasChildren", category: 'testing', fn: function () { var self=this; return false; return self;}, args: [], source: "canAliasChildren\x0a\x09^ false", messageSends: [], referencedClasses: [] }), smalltalk.SequenceNode); smalltalk.addMethod( "_scope", smalltalk.method({ selector: "scope", category: 'accessing', fn: function () { var self=this; return self['@scope']; return self;}, args: [], source: "scope\x0a\x09^ scope", messageSends: [], referencedClasses: [] }), smalltalk.SequenceNode); smalltalk.addMethod( "_scope_", smalltalk.method({ selector: "scope:", category: 'accessing', fn: function (aLexicalScope) { var self=this; (self['@scope']=aLexicalScope); return self;}, args: ["aLexicalScope"], source: "scope: aLexicalScope\x0a\x09scope := aLexicalScope", messageSends: [], referencedClasses: [] }), smalltalk.SequenceNode); smalltalk.addMethod( "_temps", smalltalk.method({ selector: "temps", category: 'accessing', fn: function () { var self=this; return (($receiver = self['@temps']) == nil || $receiver == undefined) ? (function(){return [];})() : $receiver; return self;}, args: [], source: "temps\x0a\x09^temps ifNil: [#()]", messageSends: ["ifNil:"], referencedClasses: [] }), smalltalk.SequenceNode); smalltalk.addMethod( "_temps_", smalltalk.method({ selector: "temps:", category: 'accessing', fn: function (aCollection) { var self=this; (self['@temps']=aCollection); return self;}, args: ["aCollection"], source: "temps: aCollection\x0a\x09temps := aCollection", messageSends: [], referencedClasses: [] }), smalltalk.SequenceNode); smalltalk.addClass('BlockSequenceNode', smalltalk.SequenceNode, [], 'Compiler-AST'); smalltalk.addMethod( "_accept_", smalltalk.method({ selector: "accept:", category: 'visiting', fn: function (aVisitor) { var self=this; smalltalk.send(aVisitor, "_visitBlockSequenceNode_", [self]); return self;}, args: ["aVisitor"], source: "accept: aVisitor\x0a\x09aVisitor visitBlockSequenceNode: self", messageSends: ["visitBlockSequenceNode:"], referencedClasses: [] }), smalltalk.BlockSequenceNode); smalltalk.addMethod( "_isBlockSequenceNode", smalltalk.method({ selector: "isBlockSequenceNode", category: 'testing', fn: function () { var self=this; return true; return self;}, args: [], source: "isBlockSequenceNode\x0a\x09^true", messageSends: [], referencedClasses: [] }), smalltalk.BlockSequenceNode); smalltalk.addClass('ValueNode', smalltalk.Node, ['value'], 'Compiler-AST'); smalltalk.addMethod( "_accept_", smalltalk.method({ selector: "accept:", category: 'visiting', fn: function (aVisitor) { var self=this; smalltalk.send(aVisitor, "_visitValueNode_", [self]); return self;}, args: ["aVisitor"], source: "accept: aVisitor\x0a\x09aVisitor visitValueNode: self", messageSends: ["visitValueNode:"], referencedClasses: [] }), smalltalk.ValueNode); smalltalk.addMethod( "_isValueNode", smalltalk.method({ selector: "isValueNode", category: 'testing', fn: function () { var self=this; return true; return self;}, args: [], source: "isValueNode\x0a\x09^true", messageSends: [], referencedClasses: [] }), smalltalk.ValueNode); smalltalk.addMethod( "_shouldBeAliased", smalltalk.method({ selector: "shouldBeAliased", category: 'testing', fn: function () { var self=this; return false; return self;}, args: [], source: "shouldBeAliased\x0a\x09^ false", messageSends: [], referencedClasses: [] }), smalltalk.ValueNode); smalltalk.addMethod( "_value", smalltalk.method({ selector: "value", category: 'accessing', fn: function () { var self=this; return self['@value']; return self;}, args: [], source: "value\x0a\x09^value", messageSends: [], referencedClasses: [] }), smalltalk.ValueNode); smalltalk.addMethod( "_value_", smalltalk.method({ selector: "value:", category: 'accessing', fn: function (anObject) { var self=this; (self['@value']=anObject); return self;}, args: ["anObject"], source: "value: anObject\x0a\x09value := anObject", messageSends: [], referencedClasses: [] }), smalltalk.ValueNode); smalltalk.addClass('VariableNode', smalltalk.ValueNode, ['assigned', 'binding'], 'Compiler-AST'); smalltalk.addMethod( "_accept_", smalltalk.method({ selector: "accept:", category: 'visiting', fn: function (aVisitor) { var self=this; smalltalk.send(aVisitor, "_visitVariableNode_", [self]); return self;}, args: ["aVisitor"], source: "accept: aVisitor\x0a\x09aVisitor visitVariableNode: self", messageSends: ["visitVariableNode:"], referencedClasses: [] }), smalltalk.VariableNode); smalltalk.addMethod( "_alias", smalltalk.method({ selector: "alias", category: 'accessing', fn: function () { var self=this; return smalltalk.send(smalltalk.send(self, "_binding", []), "_alias", []); return self;}, args: [], source: "alias\x0a\x09^ self binding alias", messageSends: ["alias", "binding"], referencedClasses: [] }), smalltalk.VariableNode); smalltalk.addMethod( "_assigned", smalltalk.method({ selector: "assigned", category: 'accessing', fn: function () { var self=this; return (($receiver = self['@assigned']) == nil || $receiver == undefined) ? (function(){return false;})() : $receiver; return self;}, args: [], source: "assigned\x0a\x09^assigned ifNil: [false]", messageSends: ["ifNil:"], referencedClasses: [] }), smalltalk.VariableNode); smalltalk.addMethod( "_assigned_", smalltalk.method({ selector: "assigned:", category: 'accessing', fn: function (aBoolean) { var self=this; (self['@assigned']=aBoolean); return self;}, args: ["aBoolean"], source: "assigned: aBoolean\x0a\x09assigned := aBoolean", messageSends: [], referencedClasses: [] }), smalltalk.VariableNode); smalltalk.addMethod( "_beAssigned", smalltalk.method({ selector: "beAssigned", category: 'accessing', fn: function () { var self=this; (self['@assigned']=true); return self;}, args: [], source: "beAssigned\x0a\x09assigned := true", messageSends: [], referencedClasses: [] }), smalltalk.VariableNode); smalltalk.addMethod( "_binding", smalltalk.method({ selector: "binding", category: 'accessing', fn: function () { var self=this; return self['@binding']; return self;}, args: [], source: "binding\x0a\x09^ binding", messageSends: [], referencedClasses: [] }), smalltalk.VariableNode); smalltalk.addMethod( "_binding_", smalltalk.method({ selector: "binding:", category: 'accessing', fn: function (aScopeVar) { var self=this; ((($receiver = smalltalk.send(aScopeVar, "_isKindOf_", [(smalltalk.SemanticAnalyzer || SemanticAnalyzer)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_halt", []);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self, "_halt", []);})])); (self['@binding']=aScopeVar); return self;}, args: ["aScopeVar"], source: "binding: aScopeVar\x0a\x09(aScopeVar isKindOf: SemanticAnalyzer) ifTrue: [ self halt ].\x0a\x09binding := aScopeVar", messageSends: ["ifTrue:", "isKindOf:", "halt"], referencedClasses: ["SemanticAnalyzer"] }), smalltalk.VariableNode); smalltalk.addClass('ClassReferenceNode', smalltalk.VariableNode, [], 'Compiler-AST'); smalltalk.addMethod( "_accept_", smalltalk.method({ selector: "accept:", category: 'visiting', fn: function (aVisitor) { var self=this; smalltalk.send(aVisitor, "_visitClassReferenceNode_", [self]); return self;}, args: ["aVisitor"], source: "accept: aVisitor\x0a\x09aVisitor visitClassReferenceNode: self", messageSends: ["visitClassReferenceNode:"], referencedClasses: [] }), smalltalk.ClassReferenceNode);