1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297 |
- smalltalk.addClass('Node', smalltalk.Object, ['nodes'], 'Compiler');
- smalltalk.addMethod(
- '_nodes',
- smalltalk.method({
- selector: 'nodes',
- category: 'accessing',
- fn: function () {
- var self = this;
- return smalltalk.send(self['@nodes'], "_ifNil_", [function () {return self['@nodes'] = smalltalk.send(smalltalk.Array, "_new", []);}]);
- return self;
- },
- source: unescape('nodes%0A%09%5Enodes%20ifNil%3A%20%5Bnodes%20%3A%3D%20Array%20new%5D%0A')}),
- smalltalk.Node);
- smalltalk.addMethod(
- '_nodes_',
- smalltalk.method({
- selector: 'nodes:',
- category: 'building',
- fn: function (aCollection) {
- var self = this;
- self['@nodes'] = aCollection;
- return self;
- },
- source: unescape('nodes%3A%20aCollection%0A%09nodes%20%3A%3D%20aCollection%0A')}),
- 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;
- },
- source: unescape('addNode%3A%20aNode%0A%09self%20nodes%20add%3A%20aNode%0A')}),
- smalltalk.Node);
- smalltalk.addMethod(
- '_accept_',
- smalltalk.method({
- selector: 'accept:',
- category: 'visiting',
- fn: function (aVisitor) {
- var self = this;
- smalltalk.send(aVisitor, "_visitNode_", [self]);
- return self;
- },
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitNode%3A%20self%0A')}),
- smalltalk.Node);
- smalltalk.addClass('MethodNode', smalltalk.Node, ['selector', 'arguments', 'source'], 'Compiler');
- smalltalk.addMethod(
- '_selector',
- smalltalk.method({
- selector: 'selector',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@selector'];
- return self;
- },
- source: unescape('selector%0A%09%5Eselector%0A')}),
- smalltalk.MethodNode);
- smalltalk.addMethod(
- '_selector_',
- smalltalk.method({
- selector: 'selector:',
- category: 'accessing',
- fn: function (aString) {
- var self = this;
- self['@selector'] = aString;
- return self;
- },
- source: unescape('selector%3A%20aString%0A%09selector%20%3A%3D%20aString%0A')}),
- smalltalk.MethodNode);
- smalltalk.addMethod(
- '_arguments',
- smalltalk.method({
- selector: 'arguments',
- category: 'accessing',
- fn: function () {
- var self = this;
- return smalltalk.send(self['@arguments'], "_ifNil_", [function () {return [];}]);
- return self;
- },
- source: unescape('arguments%0A%09%5Earguments%20ifNil%3A%20%5B%23%28%29%5D%0A')}),
- smalltalk.MethodNode);
- smalltalk.addMethod(
- '_arguments_',
- smalltalk.method({
- selector: 'arguments:',
- category: 'accessing',
- fn: function (aCollection) {
- var self = this;
- self['@arguments'] = aCollection;
- return self;
- },
- source: unescape('arguments%3A%20aCollection%0A%09arguments%20%3A%3D%20aCollection%0A')}),
- smalltalk.MethodNode);
- smalltalk.addMethod(
- '_source',
- smalltalk.method({
- selector: 'source',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@source'];
- return self;
- },
- source: unescape('source%0A%09%5Esource%0A')}),
- smalltalk.MethodNode);
- smalltalk.addMethod(
- '_source_',
- smalltalk.method({
- selector: 'source:',
- category: 'accessing',
- fn: function (aString) {
- var self = this;
- self['@source'] = aString;
- return self;
- },
- source: unescape('source%3A%20aString%0A%09source%20%3A%3D%20aString%0A')}),
- smalltalk.MethodNode);
- smalltalk.addMethod(
- '_accept_',
- smalltalk.method({
- selector: 'accept:',
- category: 'visiting',
- fn: function (aVisitor) {
- var self = this;
- smalltalk.send(aVisitor, "_visitMethodNode_", [self]);
- return self;
- },
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitMethodNode%3A%20self%0A')}),
- smalltalk.MethodNode);
- smalltalk.addClass('SendNode', smalltalk.Node, ['selector', 'arguments', 'receiver'], 'Compiler');
- smalltalk.addMethod(
- '_selector',
- smalltalk.method({
- selector: 'selector',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@selector'];
- return self;
- },
- source: unescape('selector%0A%09%5Eselector%0A')}),
- smalltalk.SendNode);
- smalltalk.addMethod(
- '_selector_',
- smalltalk.method({
- selector: 'selector:',
- category: 'accessing',
- fn: function (aString) {
- var self = this;
- self['@selector'] = aString;
- return self;
- },
- source: unescape('selector%3A%20aString%0A%09selector%20%3A%3D%20aString%0A')}),
- smalltalk.SendNode);
- smalltalk.addMethod(
- '_arguments',
- smalltalk.method({
- selector: 'arguments',
- category: 'accessing',
- fn: function () {
- var self = this;
- return smalltalk.send(self['@arguments'], "_ifNil_", [function () {return self['@arguments'] = [];}]);
- return self;
- },
- source: unescape('arguments%0A%09%5Earguments%20ifNil%3A%20%5Barguments%20%3A%3D%20%23%28%29%5D%0A')}),
- smalltalk.SendNode);
- smalltalk.addMethod(
- '_arguments_',
- smalltalk.method({
- selector: 'arguments:',
- category: 'accessing',
- fn: function (aCollection) {
- var self = this;
- self['@arguments'] = aCollection;
- return self;
- },
- source: unescape('arguments%3A%20aCollection%0A%09arguments%20%3A%3D%20aCollection%0A')}),
- smalltalk.SendNode);
- smalltalk.addMethod(
- '_receiver',
- smalltalk.method({
- selector: 'receiver',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@receiver'];
- return self;
- },
- source: unescape('receiver%0A%09%5Ereceiver%0A')}),
- smalltalk.SendNode);
- smalltalk.addMethod(
- '_receiver_',
- smalltalk.method({
- selector: 'receiver:',
- category: 'accessing',
- fn: function (aNode) {
- var self = this;
- self['@receiver'] = aNode;
- return self;
- },
- source: unescape('receiver%3A%20aNode%0A%09receiver%20%3A%3D%20aNode%0A')}),
- smalltalk.SendNode);
- smalltalk.addMethod(
- '_valueForReceiver_',
- smalltalk.method({
- selector: 'valueForReceiver:',
- category: 'accessing',
- fn: function (anObject) {
- var self = this;
- return function ($rec) {smalltalk.send($rec, "_receiver_", [smalltalk.send(smalltalk.send(self, "_receiver", []), "_ifNil_ifNotNil_", [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, "_new", []));
- return self;
- },
- source: unescape('valueForReceiver%3A%20anObject%0A%09%5ESendNode%20new%0A%09%20%20%20%20receiver%3A%20%28self%20receiver%20%0A%09%09ifNil%3A%20%5BanObject%5D%0A%09%09ifNotNil%3A%20%5Bself%20receiver%20valueForReceiver%3A%20anObject%5D%29%3B%0A%09%20%20%20%20selector%3A%20self%20selector%3B%0A%09%20%20%20%20arguments%3A%20self%20arguments%3B%0A%09%20%20%20%20yourself%0A')}),
- 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, "_new", []));
- return function ($rec) {smalltalk.send($rec, "_receiver_", [smalltalk.send(self, "_receiver", [])]);smalltalk.send($rec, "_nodes_", [smalltalk.send(smalltalk.send(smalltalk.Array, "_with_", [first]), "__comma", [aCollection])]);return smalltalk.send($rec, "_yourself", []);}(smalltalk.send(smalltalk.CascadeNode, "_new", []));
- return self;
- },
- source: unescape('cascadeNodeWithMessages%3A%20aCollection%0A%09%7C%20first%20%7C%0A%09first%20%3A%3D%20SendNode%20new%0A%09%20%20%20%20selector%3A%20self%20selector%3B%0A%09%20%20%20%20arguments%3A%20self%20arguments%3B%0A%09%20%20%20%20yourself.%0A%09%5ECascadeNode%20new%0A%09%20%20%20%20receiver%3A%20self%20receiver%3B%0A%09%20%20%20%20nodes%3A%20%28Array%20with%3A%20first%29%2C%20aCollection%3B%0A%09%20%20%20%20yourself%0A')}),
- smalltalk.SendNode);
- smalltalk.addMethod(
- '_accept_',
- smalltalk.method({
- selector: 'accept:',
- category: 'visiting',
- fn: function (aVisitor) {
- var self = this;
- smalltalk.send(aVisitor, "_visitSendNode_", [self]);
- return self;
- },
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitSendNode%3A%20self%0A')}),
- smalltalk.SendNode);
- smalltalk.addClass('CascadeNode', smalltalk.Node, ['receiver'], 'Compiler');
- smalltalk.addMethod(
- '_receiver',
- smalltalk.method({
- selector: 'receiver',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@receiver'];
- return self;
- },
- source: unescape('receiver%0A%09%5Ereceiver%0A')}),
- smalltalk.CascadeNode);
- smalltalk.addMethod(
- '_receiver_',
- smalltalk.method({
- selector: 'receiver:',
- category: 'accessing',
- fn: function (aNode) {
- var self = this;
- self['@receiver'] = aNode;
- return self;
- },
- source: unescape('receiver%3A%20aNode%0A%09receiver%20%3A%3D%20aNode%0A')}),
- smalltalk.CascadeNode);
- smalltalk.addMethod(
- '_accept_',
- smalltalk.method({
- selector: 'accept:',
- category: 'visiting',
- fn: function (aVisitor) {
- var self = this;
- smalltalk.send(aVisitor, "_visitCascadeNode_", [self]);
- return self;
- },
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitCascadeNode%3A%20self%0A')}),
- smalltalk.CascadeNode);
- smalltalk.addClass('AssignmentNode', smalltalk.Node, ['left', 'right'], 'Compiler');
- smalltalk.addMethod(
- '_left',
- smalltalk.method({
- selector: 'left',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@left'];
- return self;
- },
- source: unescape('left%0A%09%5Eleft%0A')}),
- smalltalk.AssignmentNode);
- smalltalk.addMethod(
- '_left_',
- smalltalk.method({
- selector: 'left:',
- category: 'accessing',
- fn: function (aNode) {
- var self = this;
- self['@left'] = aNode;
- return self;
- },
- source: unescape('left%3A%20aNode%0A%09left%20%3A%3D%20aNode%0A')}),
- smalltalk.AssignmentNode);
- smalltalk.addMethod(
- '_right',
- smalltalk.method({
- selector: 'right',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@right'];
- return self;
- },
- source: unescape('right%0A%09%5Eright%0A')}),
- smalltalk.AssignmentNode);
- smalltalk.addMethod(
- '_right_',
- smalltalk.method({
- selector: 'right:',
- category: 'accessing',
- fn: function (aNode) {
- var self = this;
- self['@right'] = aNode;
- return self;
- },
- source: unescape('right%3A%20aNode%0A%09right%20%3A%3D%20aNode%0A')}),
- smalltalk.AssignmentNode);
- smalltalk.addMethod(
- '_accept_',
- smalltalk.method({
- selector: 'accept:',
- category: 'visiting',
- fn: function (aVisitor) {
- var self = this;
- smalltalk.send(aVisitor, "_visitAssignmentNode_", [self]);
- return self;
- },
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitAssignmentNode%3A%20self%0A')}),
- smalltalk.AssignmentNode);
- smalltalk.addClass('BlockNode', smalltalk.Node, ['parameters'], 'Compiler');
- smalltalk.addMethod(
- '_parameters',
- smalltalk.method({
- selector: 'parameters',
- category: 'accessing',
- fn: function () {
- var self = this;
- return smalltalk.send(self['@parameters'], "_ifNil_", [function () {return self['@parameters'] = smalltalk.send(smalltalk.Array, "_new", []);}]);
- return self;
- },
- source: unescape('parameters%0A%09%5Eparameters%20ifNil%3A%20%5Bparameters%20%3A%3D%20Array%20new%5D%0A')}),
- smalltalk.BlockNode);
- smalltalk.addMethod(
- '_parameters_',
- smalltalk.method({
- selector: 'parameters:',
- category: 'accessing',
- fn: function (aCollection) {
- var self = this;
- self['@parameters'] = aCollection;
- return self;
- },
- source: unescape('parameters%3A%20aCollection%0A%09parameters%20%3A%3D%20aCollection%0A')}),
- smalltalk.BlockNode);
- smalltalk.addMethod(
- '_accept_',
- smalltalk.method({
- selector: 'accept:',
- category: 'visiting',
- fn: function (aVisitor) {
- var self = this;
- smalltalk.send(aVisitor, "_visitBlockNode_", [self]);
- return self;
- },
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitBlockNode%3A%20self%0A')}),
- smalltalk.BlockNode);
- smalltalk.addClass('SequenceNode', smalltalk.Node, ['temps'], 'Compiler');
- smalltalk.addMethod(
- '_temps',
- smalltalk.method({
- selector: 'temps',
- category: 'accessing',
- fn: function () {
- var self = this;
- return smalltalk.send(self['@temps'], "_ifNil_", [function () {return [];}]);
- return self;
- },
- source: unescape('temps%0A%09%5Etemps%20ifNil%3A%20%5B%23%28%29%5D%0A')}),
- smalltalk.SequenceNode);
- smalltalk.addMethod(
- '_temps_',
- smalltalk.method({
- selector: 'temps:',
- category: 'accessing',
- fn: function (aCollection) {
- var self = this;
- self['@temps'] = aCollection;
- return self;
- },
- source: unescape('temps%3A%20aCollection%0A%09temps%20%3A%3D%20aCollection%0A')}),
- 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, "_new", []));
- return self;
- },
- source: unescape('asBlockSequenceNode%0A%09%5EBlockSequenceNode%20new%0A%09%20%20%20%20nodes%3A%20self%20nodes%3B%0A%09%20%20%20%20temps%3A%20self%20temps%3B%0A%09%20%20%20%20yourself%0A')}),
- smalltalk.SequenceNode);
- smalltalk.addMethod(
- '_accept_',
- smalltalk.method({
- selector: 'accept:',
- category: 'visiting',
- fn: function (aVisitor) {
- var self = this;
- smalltalk.send(aVisitor, "_visitSequenceNode_", [self]);
- return self;
- },
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitSequenceNode%3A%20self%0A')}),
- smalltalk.SequenceNode);
- smalltalk.addClass('BlockSequenceNode', smalltalk.SequenceNode, [], 'Compiler');
- smalltalk.addMethod(
- '_accept_',
- smalltalk.method({
- selector: 'accept:',
- category: 'visiting',
- fn: function (aVisitor) {
- var self = this;
- smalltalk.send(aVisitor, "_visitBlockSequenceNode_", [self]);
- return self;
- },
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitBlockSequenceNode%3A%20self%0A')}),
- smalltalk.BlockSequenceNode);
- smalltalk.addClass('ReturnNode', smalltalk.Node, [], 'Compiler');
- smalltalk.addMethod(
- '_accept_',
- smalltalk.method({
- selector: 'accept:',
- category: 'visiting',
- fn: function (aVisitor) {
- var self = this;
- smalltalk.send(aVisitor, "_visitReturnNode_", [self]);
- return self;
- },
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitReturnNode%3A%20self%0A')}),
- smalltalk.ReturnNode);
- smalltalk.addClass('ValueNode', smalltalk.Node, ['value'], 'Compiler');
- smalltalk.addMethod(
- '_value',
- smalltalk.method({
- selector: 'value',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@value'];
- return self;
- },
- source: unescape('value%0A%09%5Evalue%0A')}),
- smalltalk.ValueNode);
- smalltalk.addMethod(
- '_value_',
- smalltalk.method({
- selector: 'value:',
- category: 'accessing',
- fn: function (anObject) {
- var self = this;
- self['@value'] = anObject;
- return self;
- },
- source: unescape('value%3A%20anObject%0A%09value%20%3A%3D%20anObject%0A')}),
- smalltalk.ValueNode);
- smalltalk.addMethod(
- '_accept_',
- smalltalk.method({
- selector: 'accept:',
- category: 'visiting',
- fn: function (aVisitor) {
- var self = this;
- smalltalk.send(aVisitor, "_visitValueNode_", [self]);
- return self;
- },
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitValueNode%3A%20self%0A')}),
- smalltalk.ValueNode);
- smalltalk.addClass('VariableNode', smalltalk.ValueNode, [], 'Compiler');
- smalltalk.addMethod(
- '_accept_',
- smalltalk.method({
- selector: 'accept:',
- category: 'visiting',
- fn: function (aVisitor) {
- var self = this;
- smalltalk.send(aVisitor, "_visitVariableNode_", [self]);
- return self;
- },
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitVariableNode%3A%20self%0A')}),
- smalltalk.VariableNode);
- smalltalk.addClass('ClassReferenceNode', smalltalk.VariableNode, [], 'Compiler');
- smalltalk.addMethod(
- '_accept_',
- smalltalk.method({
- selector: 'accept:',
- category: 'visiting',
- fn: function (aVisitor) {
- var self = this;
- smalltalk.send(aVisitor, "_visitClassReferenceNode_", [self]);
- return self;
- },
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitClassReferenceNode%3A%20self%0A')}),
- smalltalk.ClassReferenceNode);
- smalltalk.addClass('JSStatementNode', smalltalk.Node, ['source'], 'Compiler');
- smalltalk.addMethod(
- '_source',
- smalltalk.method({
- selector: 'source',
- category: 'accessing',
- fn: function () {
- var self = this;
- return smalltalk.send(self['@source'], "_ifNil_", [function () {return "";}]);
- return self;
- },
- source: unescape('source%0A%09%5Esource%20ifNil%3A%20%5B%27%27%5D%0A')}),
- smalltalk.JSStatementNode);
- smalltalk.addMethod(
- '_source_',
- smalltalk.method({
- selector: 'source:',
- category: 'accessing',
- fn: function (aString) {
- var self = this;
- self['@source'] = aString;
- return self;
- },
- source: unescape('source%3A%20aString%0A%09source%20%3A%3D%20aString%0A')}),
- smalltalk.JSStatementNode);
- smalltalk.addMethod(
- '_accept_',
- smalltalk.method({
- selector: 'accept:',
- category: 'visiting',
- fn: function (aVisitor) {
- var self = this;
- smalltalk.send(aVisitor, "_visitJSStatementNode_", [self]);
- return self;
- },
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitJSStatementNode%3A%20self%0A')}),
- smalltalk.JSStatementNode);
- smalltalk.addClass('NodeVisitor', smalltalk.Object, [], 'Compiler');
- smalltalk.addMethod(
- '_visit_',
- smalltalk.method({
- selector: 'visit:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(aNode, "_accept_", [self]);
- return self;
- },
- source: unescape('visit%3A%20aNode%0A%09aNode%20accept%3A%20self%0A')}),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- '_visitNode_',
- smalltalk.method({
- selector: 'visitNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- return self;
- },
- source: unescape('visitNode%3A%20aNode%0A')}),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- '_visitMethodNode_',
- smalltalk.method({
- selector: 'visitMethodNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;
- },
- source: unescape('visitMethodNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode%0A')}),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- '_visitSequenceNode_',
- smalltalk.method({
- selector: 'visitSequenceNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;
- },
- source: unescape('visitSequenceNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode%0A')}),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- '_visitBlockSequenceNode_',
- smalltalk.method({
- selector: 'visitBlockSequenceNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(self, "_visitSequenceNode_", [aNode]);
- return self;
- },
- source: unescape('visitBlockSequenceNode%3A%20aNode%0A%09self%20visitSequenceNode%3A%20aNode%0A')}),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- '_visitBlockNode_',
- smalltalk.method({
- selector: 'visitBlockNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;
- },
- source: unescape('visitBlockNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode%0A')}),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- '_visitReturnNode_',
- smalltalk.method({
- selector: 'visitReturnNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;
- },
- source: unescape('visitReturnNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode%0A')}),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- '_visitSendNode_',
- smalltalk.method({
- selector: 'visitSendNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;
- },
- source: unescape('visitSendNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode%0A')}),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- '_visitCascadeNode_',
- smalltalk.method({
- selector: 'visitCascadeNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;
- },
- source: unescape('visitCascadeNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode%0A')}),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- '_visitValueNode_',
- smalltalk.method({
- selector: 'visitValueNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;
- },
- source: unescape('visitValueNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode%0A')}),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- '_visitVariableNode_',
- smalltalk.method({
- selector: 'visitVariableNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- return self;
- },
- source: unescape('visitVariableNode%3A%20aNode%0A')}),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- '_visitAssignmentNode_',
- smalltalk.method({
- selector: 'visitAssignmentNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;
- },
- source: unescape('visitAssignmentNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode%0A')}),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- '_visitClassReferenceNode_',
- smalltalk.method({
- selector: 'visitClassReferenceNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- (function ($rec) {smalltalk.send($rec, "_nextPutAll_", ["smalltalk."]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(aNode, "_value", [])]);}(self));
- return self;
- },
- source: unescape('visitClassReferenceNode%3A%20aNode%0A%09self%20%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.%27%3B%0A%09%20%20%20%20nextPutAll%3A%20aNode%20value%0A')}),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- '_visitJSStatementNode_',
- smalltalk.method({
- selector: 'visitJSStatementNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- (function ($rec) {smalltalk.send($rec, "_nextPutAll_", [unescape("function%28%29%7B")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(aNode, "_source", [])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%7D%29%28%29")]);}(self));
- return self;
- },
- source: unescape('visitJSStatementNode%3A%20aNode%0A%09self%20%0A%09%20%20%20%20nextPutAll%3A%20%27function%28%29%7B%27%3B%0A%09%20%20%20%20nextPutAll%3A%20aNode%20source%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%7D%29%28%29%27%0A')}),
- smalltalk.NodeVisitor);
- smalltalk.addClass('Compiler', smalltalk.NodeVisitor, ['stream', 'nestedBlocks', 'earlyReturn', 'currentClass', 'currentSelector', 'unknownVariables', 'tempVariables'], 'Compiler');
- smalltalk.addMethod(
- '_initialize',
- smalltalk.method({
- selector: 'initialize',
- category: 'initialization',
- fn: function () {
- var self = this;
- self.klass.superclass.fn.prototype._initialize.apply(self, []);
- self['@stream'] = smalltalk.send("", "_writeStream", []);
- self['@unknownVariables'] = [];
- self['@tempVariables'] = [];
- return self;
- },
- source: unescape('initialize%0A%09super%20initialize.%0A%09stream%20%3A%3D%20%27%27%20writeStream.%0A%09unknownVariables%20%3A%3D%20%23%28%29.%0A%09tempVariables%20%3A%3D%20%23%28%29%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_parser',
- smalltalk.method({
- selector: 'parser',
- category: 'accessing',
- fn: function () {
- var self = this;
- return smalltalk.send(smalltalk.SmalltalkParser, "_new", []);
- return self;
- },
- source: unescape('parser%0A%09%5ESmalltalkParser%20new%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_currentClass',
- smalltalk.method({
- selector: 'currentClass',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@currentClass'];
- return self;
- },
- source: unescape('currentClass%0A%09%5EcurrentClass%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_currentClass_',
- smalltalk.method({
- selector: 'currentClass:',
- category: 'accessing',
- fn: function (aClass) {
- var self = this;
- self['@currentClass'] = aClass;
- return self;
- },
- source: unescape('currentClass%3A%20aClass%0A%09currentClass%20%3A%3D%20aClass%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_loadExpression_',
- smalltalk.method({
- selector: 'loadExpression:',
- category: 'compiling',
- fn: function (aString) {
- var self = this;
- smalltalk.send(smalltalk.DoIt, "_addCompiledMethod_", [smalltalk.send(self, "_eval_", [smalltalk.send(self, "_compileExpression_", [aString])])]);
- return smalltalk.send(smalltalk.send(smalltalk.DoIt, "_new", []), "_doIt", []);
- return self;
- },
- source: unescape('loadExpression%3A%20aString%0A%09DoIt%20addCompiledMethod%3A%20%28self%20eval%3A%20%28self%20compileExpression%3A%20aString%29%29.%0A%09%5EDoIt%20new%20doIt%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_load_forClass_',
- smalltalk.method({
- selector: 'load:forClass:',
- category: 'compiling',
- fn: function (aString, aClass) {
- var self = this;
- return smalltalk.send(self, "_eval_", [smalltalk.send(self, "_compile_forClass_", [aString, aClass])]);
- return self;
- },
- source: unescape('load%3A%20aString%20forClass%3A%20aClass%0A%09%5Eself%20eval%3A%20%28self%20compile%3A%20aString%20forClass%3A%20aClass%29%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_compile_forClass_',
- smalltalk.method({
- selector: 'compile:forClass:',
- category: 'compiling',
- fn: function (aString, aClass) {
- var self = this;
- smalltalk.send(self, "_currentClass_", [aClass]);
- return smalltalk.send(self, "_compile_", [aString]);
- return self;
- },
- source: unescape('compile%3A%20aString%20forClass%3A%20aClass%0A%09self%20currentClass%3A%20aClass.%0A%09%5Eself%20compile%3A%20aString%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_compileExpression_',
- smalltalk.method({
- selector: 'compileExpression:',
- category: 'compiling',
- fn: function (aString) {
- var self = this;
- smalltalk.send(self, "_currentClass_", [smalltalk.DoIt]);
- return smalltalk.send(self, "_compileNode_", [smalltalk.send(self, "_parseExpression_", [aString])]);
- return self;
- },
- source: unescape('compileExpression%3A%20aString%0A%09self%20currentClass%3A%20DoIt.%0A%09%5Eself%20compileNode%3A%20%28self%20parseExpression%3A%20aString%29%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_eval_',
- smalltalk.method({
- selector: 'eval:',
- category: 'compiling',
- fn: function (aString) {
- var self = this;
- return eval(aString);
- return self;
- },
- source: unescape('eval%3A%20aString%0A%09%7B%27return%20eval%28aString%29%27%7D')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_compile_',
- smalltalk.method({
- selector: 'compile:',
- category: 'compiling',
- fn: function (aString) {
- var self = this;
- return smalltalk.send(self, "_compileNode_", [smalltalk.send(self, "_parse_", [aString])]);
- return self;
- },
- source: unescape('compile%3A%20aString%0A%09%5Eself%20compileNode%3A%20%28self%20parse%3A%20aString%29%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_compileNode_',
- smalltalk.method({
- selector: 'compileNode:',
- category: 'compiling',
- fn: function (aNode) {
- var self = this;
- self['@stream'] = smalltalk.send("", "_writeStream", []);
- smalltalk.send(self, "_visit_", [aNode]);
- return smalltalk.send(self['@stream'], "_contents", []);
- return self;
- },
- source: unescape('compileNode%3A%20aNode%0A%09stream%20%3A%3D%20%27%27%20writeStream.%0A%09self%20visit%3A%20aNode.%0A%09%5Estream%20contents%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_visit_',
- smalltalk.method({
- selector: 'visit:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(aNode, "_accept_", [self]);
- return self;
- },
- source: unescape('visit%3A%20aNode%0A%09aNode%20accept%3A%20self%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_visitMethodNode_',
- smalltalk.method({
- selector: 'visitMethodNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- var str = nil;
- var currentSelector = nil;
- self['@currentSelector'] = smalltalk.send(smalltalk.send(aNode, "_selector", []), "_asSelector", []);
- self['@nestedBlocks'] = 0;
- self['@earlyReturn'] = false;
- self['@unknownVariables'] = [];
- self['@tempVariables'] = [];
- (function ($rec) {smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(unescape("smalltalk.method%28%7B"), "__comma", [smalltalk.send(smalltalk.String, "_cr", [])])]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(unescape("selector%3A%20%22"), "__comma", [smalltalk.send(aNode, "_selector", [])]), "__comma", [unescape("%22%2C")]), "__comma", [smalltalk.send(smalltalk.String, "_cr", [])])]);}(self['@stream']));
- smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.Smalltalk, "_current", []), "_debugMode", []), "_ifTrue_", [function () {return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(unescape("source%3A%20unescape%28%22"), "__comma", [smalltalk.send(smalltalk.send(aNode, "_source", []), "_escaped", [])]), "__comma", [unescape("%22%29%2C")]), "__comma", [smalltalk.send(smalltalk.String, "_cr", [])])]);}]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("fn%3A%20function%28")]);
- smalltalk.send(smalltalk.send(aNode, "_arguments", []), "_do_separatedBy_", [function (each) {smalltalk.send(self['@tempVariables'], "_add_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [each]);}, function () {return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C%20")]);}]);
- (function ($rec) {smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(unescape("%29%7B"), "__comma", [smalltalk.send(smalltalk.String, "_cr", [])])]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(unescape("var%20self%3Dthis%3B"), "__comma", [smalltalk.send(smalltalk.String, "_cr", [])])]);}(self['@stream']));
- str = self['@stream'];
- self['@stream'] = smalltalk.send("", "_writeStream", []);
- smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [function (each) {return smalltalk.send(self, "_visit_", [each]);}]);
- smalltalk.send(self['@earlyReturn'], "_ifTrue_", [function () {return smalltalk.send(str, "_nextPutAll_", [unescape("try%7B")]);}]);
- smalltalk.send(str, "_nextPutAll_", [smalltalk.send(self['@stream'], "_contents", [])]);
- self['@stream'] = str;
- (function ($rec) {smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.String, "_cr", [])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("return%20self%3B")]);}(self['@stream']));
- smalltalk.send(self['@earlyReturn'], "_ifTrue_", [function () {return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.String, "_cr", []), "__comma", [unescape("%7D%20catch%28e%29%20%7Bif%28e.name%20%3D%3D%3D%20%27stReturn%27%20%26%26%20e.selector%20%3D%3D%3D%20")]), "__comma", [smalltalk.send(self['@currentSelector'], "_printString", [])]), "__comma", [unescape("%29%7Breturn%20e.fn%28%29%7D%20throw%28e%29%7D")])]);}]);
- (function ($rec) {smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(unescape("%7D"), "__comma", [smalltalk.send(smalltalk.String, "_cr", [])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%7D%29")]);}(self['@stream']));
- return self;
- },
- source: unescape('visitMethodNode%3A%20aNode%0A%09%7C%20str%20currentSelector%20%7C%0A%09currentSelector%20%3A%3D%20aNode%20selector%20asSelector.%0A%09nestedBlocks%20%3A%3D%200.%0A%09earlyReturn%20%3A%3D%20false.%0A%09unknownVariables%20%3A%3D%20%23%28%29.%0A%09tempVariables%20%3A%3D%20%23%28%29.%0A%09stream%20%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.method%28%7B%27%2C%20String%20cr%3B%0A%09%20%20%20%20nextPutAll%3A%20%27selector%3A%20%22%27%2C%20aNode%20selector%2C%20%27%22%2C%27%2C%20String%20cr.%0A%09Smalltalk%20current%20debugMode%20ifTrue%3A%20%5B%0A%09%20%20%20%20stream%20nextPutAll%3A%20%27source%3A%20unescape%28%22%27%2C%20aNode%20source%20escaped%2C%20%27%22%29%2C%27%2C%20String%20cr%5D.%0A%09stream%20nextPutAll%3A%20%27fn%3A%20function%28%27.%0A%09aNode%20arguments%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20%0A%09%09tempVariables%20add%3A%20each.%0A%09%09stream%20nextPutAll%3A%20each%5D%0A%09%20%20%20%20separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%20%27%5D.%0A%09stream%20%0A%09%20%20%20%20nextPutAll%3A%20%27%29%7B%27%2C%20String%20cr%3B%0A%09%20%20%20%20nextPutAll%3A%20%27var%20self%3Dthis%3B%27%2C%20String%20cr.%0A%09str%20%3A%3D%20stream.%0A%09stream%20%3A%3D%20%27%27%20writeStream.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20self%20visit%3A%20each%5D.%0A%09earlyReturn%20ifTrue%3A%20%5B%0A%09%20%20%20%20str%20nextPutAll%3A%20%27try%7B%27%5D.%0A%09str%20nextPutAll%3A%20stream%20contents.%0A%09stream%20%3A%3D%20str.%0A%09stream%20%0A%09%20%20%20%20nextPutAll%3A%20String%20cr%3B%20%0A%09%20%20%20%20nextPutAll%3A%20%27return%20self%3B%27.%0A%09earlyReturn%20ifTrue%3A%20%5B%0A%09%20%20%20%20stream%20nextPutAll%3A%20String%20cr%2C%20%27%7D%20catch%28e%29%20%7Bif%28e.name%20%3D%3D%3D%20%27%27stReturn%27%27%20%26%26%20e.selector%20%3D%3D%3D%20%27%2C%20currentSelector%20printString%2C%20%27%29%7Breturn%20e.fn%28%29%7D%20throw%28e%29%7D%27%5D.%0A%09stream%20%0A%09%20%20%20%20nextPutAll%3A%20%27%7D%27%2C%20String%20cr%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%7D%29%27%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_visitBlockNode_',
- smalltalk.method({
- selector: 'visitBlockNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28")]);
- smalltalk.send(smalltalk.send(aNode, "_parameters", []), "_do_separatedBy_", [function (each) {smalltalk.send(self['@tempVariables'], "_add_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [each]);}, function () {return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C%20")]);}]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%7B")]);
- smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [function (each) {return smalltalk.send(self, "_visit_", [each]);}]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%29")]);
- return self;
- },
- source: unescape('visitBlockNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20%27%28function%28%27.%0A%09aNode%20parameters%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%0A%09%09tempVariables%20add%3A%20each.%0A%09%09stream%20nextPutAll%3A%20each%5D%0A%09%20%20%20%20separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%20%27%5D.%0A%09stream%20nextPutAll%3A%20%27%29%7B%27.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%20self%20visit%3A%20each%5D.%0A%09stream%20nextPutAll%3A%20%27%7D%29%27%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_visitSequenceNode_',
- smalltalk.method({
- selector: 'visitSequenceNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(smalltalk.send(aNode, "_temps", []), "_do_", [function (each) {smalltalk.send(self['@tempVariables'], "_add_", [each]);smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send("var ", "__comma", [each]), "__comma", [unescape("%3Dnil%3B")])]);return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.String, "_cr", [])]);}]);
- smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_separatedBy_", [function (each) {smalltalk.send(self, "_visit_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3B")]);}, function () {return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.String, "_cr", [])]);}]);
- return self;
- },
- source: unescape('visitSequenceNode%3A%20aNode%0A%09aNode%20temps%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20tempVariables%20add%3A%20each.%0A%09%20%20%20%20stream%20nextPutAll%3A%20%27var%20%27%2C%20each%2C%20%27%3Dnil%3B%27.%0A%09%20%20%20%20stream%20nextPutAll%3A%20String%20cr%5D.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20self%20visit%3A%20each.%0A%09%20%20%20%20stream%20nextPutAll%3A%20%27%3B%27%5D%0A%09%20%20%20%20separatedBy%3A%20%5Bstream%20nextPutAll%3A%20String%20cr%5D%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_visitBlockSequenceNode_',
- smalltalk.method({
- selector: 'visitBlockSequenceNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- var index = nil;
- self['@nestedBlocks'] = smalltalk.send(self['@nestedBlocks'], "__plus", [1]);
- smalltalk.send(smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_isEmpty", []), "_ifTrue_ifFalse_", [function () {return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("return%20nil%3B")]);}, function () {smalltalk.send(smalltalk.send(aNode, "_temps", []), "_do_", [function (each) {smalltalk.send(self['@tempVariables'], "_add_", [each]);smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send("var ", "__comma", [each]), "__comma", [unescape("%3Dnil%3B")])]);return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.String, "_cr", [])]);}]);index = 0;return smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [function (each) {index = smalltalk.send(index, "__plus", [1]);smalltalk.send(smalltalk.send(index, "__eq", [smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_size", [])]), "_ifTrue_", [function () {return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);}]);smalltalk.send(self, "_visit_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3B")]);}]);}]);
- self['@nestedBlocks'] = smalltalk.send(self['@nestedBlocks'], "__minus", [1]);
- return self;
- },
- source: unescape('visitBlockSequenceNode%3A%20aNode%0A%09%7C%20index%20%7C%0A%09nestedBlocks%20%3A%3D%20nestedBlocks%20+%201.%0A%09aNode%20nodes%20isEmpty%0A%09%20%20%20%20ifTrue%3A%20%5B%0A%09%09stream%20nextPutAll%3A%20%27return%20nil%3B%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5B%0A%09%09aNode%20temps%20do%3A%20%5B%3Aeach%20%7C%0A%09%09%20%20%20%20tempVariables%20add%3A%20each.%0A%09%09%20%20%20%20stream%20nextPutAll%3A%20%27var%20%27%2C%20each%2C%20%27%3Dnil%3B%27.%0A%09%09%20%20%20%20stream%20nextPutAll%3A%20String%20cr%5D.%0A%09%09index%20%3A%3D%200.%0A%09%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%0A%09%09%20%20%20%20index%20%3A%3D%20index%20+%201.%0A%09%09%20%20%20%20index%20%3D%20aNode%20nodes%20size%20ifTrue%3A%20%5B%0A%09%09%09stream%20nextPutAll%3A%20%27return%20%27%5D.%0A%09%09%20%20%20%20self%20visit%3A%20each.%0A%09%09%20%20%20%20stream%20nextPutAll%3A%20%27%3B%27%5D%5D.%0A%09nestedBlocks%20%3A%3D%20nestedBlocks%20-%201%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_visitReturnNode_',
- smalltalk.method({
- selector: 'visitReturnNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(smalltalk.send(self['@nestedBlocks'], "__gt", [0]), "_ifTrue_", [function () {return self['@earlyReturn'] = true;}]);
- smalltalk.send(self['@earlyReturn'], "_ifTrue_ifFalse_", [function () {return function ($rec) {smalltalk.send($rec, "_nextPutAll_", [unescape("%28function%28%29%7Bthrow%28")]);smalltalk.send($rec, "_nextPutAll_", [unescape("%7Bname%3A%20%27stReturn%27%2C%20selector%3A%20")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self['@currentSelector'], "_printString", [])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%2C%20fn%3A%20function%28%29%7Breturn%20")]);}(self['@stream']);}, function () {return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);}]);
- smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [function (each) {return smalltalk.send(self, "_visit_", [each]);}]);
- smalltalk.send(self['@earlyReturn'], "_ifTrue_", [function () {return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%7D%29%7D%29%28%29")]);}]);
- return self;
- },
- source: unescape('visitReturnNode%3A%20aNode%0A%09nestedBlocks%20%3E%200%20ifTrue%3A%20%5B%0A%09%20%20%20%20earlyReturn%20%3A%3D%20true%5D.%0A%09earlyReturn%0A%09%20%20%20%20ifTrue%3A%20%5B%0A%09%09stream%0A%09%09%20%20%20%20nextPutAll%3A%20%27%28function%28%29%7Bthrow%28%27%3B%0A%09%09%20%20%20%20nextPutAll%3A%20%27%7Bname%3A%20%27%27stReturn%27%27%2C%20selector%3A%20%27%3B%0A%09%09%20%20%20%20nextPutAll%3A%20currentSelector%20printString%3B%0A%09%09%20%20%20%20nextPutAll%3A%20%27%2C%20fn%3A%20function%28%29%7Breturn%20%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5Bstream%20nextPutAll%3A%20%27return%20%27%5D.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20self%20visit%3A%20each%5D.%0A%09earlyReturn%20ifTrue%3A%20%5B%0A%09%20%20%20%20stream%20nextPutAll%3A%20%27%7D%7D%29%7D%29%28%29%27%5D%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_visitSendNode_',
- smalltalk.method({
- selector: 'visitSendNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- var str = nil;
- str = self['@stream'];
- self['@stream'] = smalltalk.send("", "_writeStream", []);
- smalltalk.send(self, "_visit_", [smalltalk.send(aNode, "_receiver", [])]);
- smalltalk.send(smalltalk.send(smalltalk.send(self['@stream'], "_contents", []), "__eq", ["super"]), "_ifTrue_ifFalse_", [function () {self['@stream'] = str;(function ($rec) {smalltalk.send($rec, "_nextPutAll_", [unescape("self.klass.superclass.fn.prototype%5B%27")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(aNode, "_selector", []), "_asSelector", [])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%27%5D.apply%28self%2C%20%5B")]);}(self['@stream']));smalltalk.send(smalltalk.send(aNode, "_arguments", []), "_do_separatedBy_", [function (each) {return smalltalk.send(self, "_visit_", [each]);}, function () {return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C")]);}]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%5D%29")]);}, function () {smalltalk.send(str, "_nextPutAll_", [unescape("smalltalk.send%28")]);smalltalk.send(str, "_nextPutAll_", [smalltalk.send(self['@stream'], "_contents", [])]);self['@stream'] = str;smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%2C%20%22"), "__comma", [smalltalk.send(smalltalk.send(aNode, "_selector", []), "_asSelector", [])]), "__comma", [unescape("%22%2C%20%5B")])]);smalltalk.send(smalltalk.send(aNode, "_arguments", []), "_do_separatedBy_", [function (each) {return smalltalk.send(self, "_visit_", [each]);}, function () {return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C%20")]);}]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%5D%29")]);}]);
- return self;
- },
- source: unescape('visitSendNode%3A%20aNode%0A%09%7C%20str%20%7C%0A%09str%20%3A%3D%20stream.%0A%09stream%20%3A%3D%20%27%27%20writeStream.%0A%09self%20visit%3A%20aNode%20receiver.%0A%09stream%20contents%20%3D%20%27super%27%20%0A%09%20%20%20%20ifTrue%3A%20%5B%0A%09%09stream%20%3A%3D%20str.%0A%09%09stream%20%0A%09%09%20%20%20%20nextPutAll%3A%20%27self.klass.superclass.fn.prototype%5B%27%27%27%3B%0A%09%09%20%20%20%20nextPutAll%3A%20aNode%20selector%20asSelector%3B%0A%09%09%20%20%20%20nextPutAll%3A%20%27%27%27%5D.apply%28self%2C%20%5B%27.%0A%09%09aNode%20arguments%20%0A%09%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20self%20visit%3A%20each%5D%0A%09%09%20%20%20%20separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%27%5D.%0A%09%09stream%20nextPutAll%3A%20%27%5D%29%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5B%0A%09%09str%20nextPutAll%3A%20%27smalltalk.send%28%27.%0A%09%09str%20nextPutAll%3A%20stream%20contents.%0A%09%09stream%20%3A%3D%20str.%0A%09%09stream%20nextPutAll%3A%20%27%2C%20%22%27%2C%20aNode%20selector%20asSelector%2C%20%27%22%2C%20%5B%27.%0A%09%09aNode%20arguments%20%0A%09%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20self%20visit%3A%20each%5D%0A%09%09%20%20%20%20separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%20%27%5D.%0A%09%09stream%20nextPutAll%3A%20%27%5D%29%27%5D')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_visitCascadeNode_',
- smalltalk.method({
- selector: 'visitCascadeNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- var index = nil;
- index = 0;
- smalltalk.send(smalltalk.send(self['@tempVariables'], "_includes_", ["$rec"]), "_ifFalse_", [function () {return smalltalk.send(self['@tempVariables'], "_add_", ["$rec"]);}]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%24rec%29%7B")]);
- smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [function (each) {index = smalltalk.send(index, "__plus", [1]);smalltalk.send(smalltalk.send(index, "__eq", [smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_size", [])]), "_ifTrue_", [function () {return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);}]);smalltalk.send(each, "_receiver_", [smalltalk.send(smalltalk.send(smalltalk.VariableNode, "_new", []), "_value_", ["$rec"])]);smalltalk.send(self, "_visit_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3B")]);}]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%29%28")]);
- smalltalk.send(self, "_visit_", [smalltalk.send(aNode, "_receiver", [])]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29")]);
- return self;
- },
- source: unescape('visitCascadeNode%3A%20aNode%0A%09%7C%20index%20%7C%0A%09index%20%3A%3D%200.%0A%09%28tempVariables%20includes%3A%20%27%24rec%27%29%20ifFalse%3A%20%5B%0A%09%09tempVariables%20add%3A%20%27%24rec%27%5D.%0A%09stream%20nextPutAll%3A%20%27%28function%28%24rec%29%7B%27.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20index%20%3A%3D%20index%20+%201.%0A%09%20%20%20%20index%20%3D%20aNode%20nodes%20size%20ifTrue%3A%20%5B%0A%09%09stream%20nextPutAll%3A%20%27return%20%27%5D.%0A%09%20%20%20%20each%20receiver%3A%20%28VariableNode%20new%20value%3A%20%27%24rec%27%29.%0A%09%20%20%20%20self%20visit%3A%20each.%0A%09%20%20%20%20stream%20nextPutAll%3A%20%27%3B%27%5D.%0A%09stream%20nextPutAll%3A%20%27%7D%29%28%27.%0A%09self%20visit%3A%20aNode%20receiver.%0A%09stream%20nextPutAll%3A%20%27%29%27%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_visitValueNode_',
- smalltalk.method({
- selector: 'visitValueNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(aNode, "_value", []), "_asJavascript", [])]);
- return self;
- },
- source: unescape('visitValueNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20aNode%20value%20asJavascript%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_visitAssignmentNode_',
- smalltalk.method({
- selector: 'visitAssignmentNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(self, "_visit_", [smalltalk.send(aNode, "_left", [])]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3D")]);
- smalltalk.send(self, "_visit_", [smalltalk.send(aNode, "_right", [])]);
- return self;
- },
- source: unescape('visitAssignmentNode%3A%20aNode%0A%09self%20visit%3A%20aNode%20left.%0A%09stream%20nextPutAll%3A%20%27%3D%27.%0A%09self%20visit%3A%20aNode%20right%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_visitClassReferenceNode_',
- smalltalk.method({
- selector: 'visitClassReferenceNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- (function ($rec) {smalltalk.send($rec, "_nextPutAll_", ["smalltalk."]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(aNode, "_value", [])]);}(self['@stream']));
- return self;
- },
- source: unescape('visitClassReferenceNode%3A%20aNode%0A%09stream%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.%27%3B%0A%09%20%20%20%20nextPutAll%3A%20aNode%20value%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_visitVariableNode_',
- smalltalk.method({
- selector: 'visitVariableNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_currentClass", []), "_instanceVariableNames", []), "_includes_", [smalltalk.send(aNode, "_value", [])]), "_ifTrue_ifFalse_", [function () {return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("self%5B%27@"), "__comma", [smalltalk.send(aNode, "_value", [])]), "__comma", [unescape("%27%5D")])]);}, function () {smalltalk.send(smalltalk.send(smalltalk.send(self, "_knownVariables", []), "_includes_", [smalltalk.send(aNode, "_value", [])]), "_ifFalse_", [function () {return smalltalk.send(self['@unknownVariables'], "_add_", [smalltalk.send(aNode, "_value", [])]);}]);return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(aNode, "_value", [])]);}]);
- return self;
- },
- source: unescape('visitVariableNode%3A%20aNode%0A%09%28self%20currentClass%20instanceVariableNames%20includes%3A%20aNode%20value%29%20%0A%09%09ifTrue%3A%20%5Bstream%20nextPutAll%3A%20%27self%5B%27%27@%27%2C%20aNode%20value%2C%20%27%27%27%5D%27%5D%0A%09%09ifFalse%3A%20%5B%0A%09%09%09%28self%20knownVariables%20includes%3A%20aNode%20value%29%20ifFalse%3A%20%5B%0A%09%09%09%09unknownVariables%20add%3A%20aNode%20value%5D.%0A%09%09%09stream%20nextPutAll%3A%20aNode%20value%5D%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_visitJSStatementNode_',
- smalltalk.method({
- selector: 'visitJSStatementNode:',
- category: 'visiting',
- fn: function (aNode) {
- var self = this;
- smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(aNode, "_source", []), "_value", []), "_replace_with_", [unescape("%27%27"), unescape("%27")])]);
- return self;
- },
- source: unescape('visitJSStatementNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20%28aNode%20source%20value%20replace%3A%20%27%27%27%27%27%27%20with%3A%20%27%27%27%27%29')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_parse_',
- smalltalk.method({
- selector: 'parse:',
- category: 'compiling',
- fn: function (aString) {
- var self = this;
- return smalltalk.send(smalltalk.send(self, "_parser", []), "_parse_", [smalltalk.send(aString, "_readStream", [])]);
- return self;
- },
- source: unescape('parse%3A%20aString%0A%20%20%20%20%5Eself%20parser%20parse%3A%20aString%20readStream%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_parseExpression_',
- smalltalk.method({
- selector: 'parseExpression:',
- category: 'compiling',
- fn: function (aString) {
- var self = this;
- return smalltalk.send(self, "_parse_", [smalltalk.send(smalltalk.send(unescape("doIt%20%5E%5B"), "__comma", [aString]), "__comma", [unescape("%5D%20value")])]);
- return self;
- },
- source: unescape('parseExpression%3A%20aString%0A%20%20%20%20%5Eself%20parse%3A%20%27doIt%20%5E%5B%27%2C%20aString%2C%20%27%5D%20value%27%0A')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_unknownVariables',
- smalltalk.method({
- selector: 'unknownVariables',
- category: 'accessing',
- fn: function () {
- var self = this;
- return smalltalk.send(self['@unknownVariables'], "_copy", []);
- return self;
- },
- source: unescape('unknownVariables%0A%09%5EunknownVariables%20copy')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_pseudoVariables',
- smalltalk.method({
- selector: 'pseudoVariables',
- category: 'accessing',
- fn: function () {
- var self = this;
- return ["self", "super", "true", "false", "nil", "thisContext"];
- return self;
- },
- source: unescape('pseudoVariables%0A%09%5E%23%28%27self%27%20%27super%27%20%27true%27%20%27false%27%20%27nil%27%20%27thisContext%27%29')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_tempVariables',
- smalltalk.method({
- selector: 'tempVariables',
- category: 'accessing',
- fn: function () {
- var self = this;
- return smalltalk.send(self['@tempVariables'], "_copy", []);
- return self;
- },
- source: unescape('tempVariables%0A%09%5EtempVariables%20copy')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_knownVariables',
- smalltalk.method({
- selector: 'knownVariables',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function ($rec) {smalltalk.send($rec, "_addAll_", [smalltalk.send(self, "_tempVariables", [])]);return smalltalk.send($rec, "_yourself", []);}(smalltalk.send(self, "_pseudoVariables", []));
- return self;
- },
- source: unescape('knownVariables%0A%09%5Eself%20pseudoVariables%20%0A%09%09addAll%3A%20self%20tempVariables%3B%0A%09%09yourself')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_recompile_',
- smalltalk.method({
- selector: 'recompile:',
- category: 'compiling',
- fn: function (aClass) {
- var self = this;
- smalltalk.send(smalltalk.send(aClass, "_methodDictionary", []), "_do_", [function (each) {var method = nil;method = smalltalk.send(self, "_load_forClass_", [smalltalk.send(each, "_source", []), aClass]);smalltalk.send(method, "_category_", [smalltalk.send(each, "_category", [])]);return smalltalk.send(aClass, "_addCompiledMethod_", [method]);}]);
- smalltalk.send(smalltalk.send(aClass, "_isMetaclass", []), "_ifFalse_", [function () {return smalltalk.send(self, "_recompile_", [smalltalk.send(aClass, "_class", [])]);}]);
- return self;
- },
- source: unescape('recompile%3A%20aClass%0A%09aClass%20methodDictionary%20do%3A%20%5B%3Aeach%20%7C%7C%20method%20%7C%0A%09%09method%20%3A%3D%20self%20load%3A%20each%20source%20forClass%3A%20aClass.%0A%09%09method%20category%3A%20each%20category.%0A%09%09aClass%20addCompiledMethod%3A%20method%5D.%0A%09aClass%20isMetaclass%20ifFalse%3A%20%5Bself%20recompile%3A%20aClass%20class%5D')}),
- smalltalk.Compiler);
- smalltalk.addMethod(
- '_recompileAll',
- smalltalk.method({
- selector: 'recompileAll',
- category: 'compiling',
- fn: function () {
- var self = this;
- smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.Smalltalk, "_current", []), "_classes", []), "_do_", [function (each) {return smalltalk.send(self, "_recompile_", [each]);}]);
- return self;
- },
- source: unescape('recompileAll%0A%09Smalltalk%20current%20classes%20do%3A%20%5B%3Aeach%20%7C%0A%09%09self%20recompile%3A%20each%5D')}),
- smalltalk.Compiler);
- smalltalk.addClass('DoIt', smalltalk.Object, [], 'Compiler');
- smalltalk.addMethod(
- '_doIt',
- smalltalk.method({
- selector: 'doIt',
- category: '',
- fn: function () {
- var self = this;
- return smalltalk.send(function () {return smalltalk.send(1, "__plus", [1]);}, "_value", []);
- return self;
- },
- source: unescape('doIt%20%5E%5B1+1%5D%20value')}),
- smalltalk.DoIt);
|