define("amber_vm/parser", ["./smalltalk", "./nil"], function(smalltalk, nil) { smalltalk.parser = (function(){ /* * Generated by PEG.js 0.7.0. * * http://pegjs.majda.cz/ */ function quote(s) { /* * ECMA-262, 5th ed., 7.8.4: All characters may appear literally in a * string literal except for the closing quote character, backslash, * carriage return, line separator, paragraph separator, and line feed. * Any character may appear in the form of an escape sequence. * * For portability, we also escape escape all control and non-ASCII * characters. Note that "\0" and "\v" escape sequences are not used * because JSHint does not like the first and IE the second. */ return '"' + s .replace(/\\/g, '\\\\') // backslash .replace(/"/g, '\\"') // closing quote character .replace(/\x08/g, '\\b') // backspace .replace(/\t/g, '\\t') // horizontal tab .replace(/\n/g, '\\n') // line feed .replace(/\f/g, '\\f') // form feed .replace(/\r/g, '\\r') // carriage return .replace(/[\x00-\x07\x0B\x0E-\x1F\x80-\uFFFF]/g, escape) + '"'; } var result = { /* * Parses the input with a generated parser. If the parsing is successfull, * returns a value explicitly or implicitly specified by the grammar from * which the parser was generated (see |PEG.buildParser|). If the parsing is * unsuccessful, throws |PEG.parser.SyntaxError| describing the error. */ parse: function(input, startRule) { var parseFunctions = { "separator": parse_separator, "comments": parse_comments, "ws": parse_ws, "identifier": parse_identifier, "keyword": parse_keyword, "selector": parse_selector, "className": parse_className, "string": parse_string, "symbol": parse_symbol, "bareSymbol": parse_bareSymbol, "number": parse_number, "numberExp": parse_numberExp, "hex": parse_hex, "float": parse_float, "integer": parse_integer, "literalArray": parse_literalArray, "bareLiteralArray": parse_bareLiteralArray, "literalArrayRest": parse_literalArrayRest, "dynamicArray": parse_dynamicArray, "dynamicDictionary": parse_dynamicDictionary, "pseudoVariable": parse_pseudoVariable, "parseTimeLiteral": parse_parseTimeLiteral, "runtimeLiteral": parse_runtimeLiteral, "literal": parse_literal, "variable": parse_variable, "keywordPair": parse_keywordPair, "binarySelector": parse_binarySelector, "keywordPattern": parse_keywordPattern, "binaryPattern": parse_binaryPattern, "unaryPattern": parse_unaryPattern, "expression": parse_expression, "expressionList": parse_expressionList, "expressions": parse_expressions, "assignment": parse_assignment, "ret": parse_ret, "temps": parse_temps, "blockParamList": parse_blockParamList, "subexpression": parse_subexpression, "statements": parse_statements, "sequence": parse_sequence, "stSequence": parse_stSequence, "block": parse_block, "operand": parse_operand, "unaryMessage": parse_unaryMessage, "unaryTail": parse_unaryTail, "unarySend": parse_unarySend, "binaryMessage": parse_binaryMessage, "binaryTail": parse_binaryTail, "binarySend": parse_binarySend, "keywordMessage": parse_keywordMessage, "keywordSend": parse_keywordSend, "message": parse_message, "cascade": parse_cascade, "jsStatement": parse_jsStatement, "method": parse_method }; if (startRule !== undefined) { if (parseFunctions[startRule] === undefined) { throw new Error("Invalid rule name: " + quote(startRule) + "."); } } else { startRule = "method"; } var pos = { offset: 0, line: 1, column: 1, seenCR: false }; var reportFailures = 0; var rightmostFailuresPos = { offset: 0, line: 1, column: 1, seenCR: false }; var rightmostFailuresExpected = []; var cache = {}; function padLeft(input, padding, length) { var result = input; var padLength = length - input.length; for (var i = 0; i < padLength; i++) { result = padding + result; } return result; } function escape(ch) { var charCode = ch.charCodeAt(0); var escapeChar; var length; if (charCode <= 0xFF) { escapeChar = 'x'; length = 2; } else { escapeChar = 'u'; length = 4; } return '\\' + escapeChar + padLeft(charCode.toString(16).toUpperCase(), '0', length); } function clone(object) { var result = {}; for (var key in object) { result[key] = object[key]; } return result; } function advance(pos, n) { var endOffset = pos.offset + n; for (var offset = pos.offset; offset < endOffset; offset++) { var ch = input.charAt(offset); if (ch === "\n") { if (!pos.seenCR) { pos.line++; } pos.column = 1; pos.seenCR = false; } else if (ch === "\r" || ch === "\u2028" || ch === "\u2029") { pos.line++; pos.column = 1; pos.seenCR = true; } else { pos.column++; pos.seenCR = false; } } pos.offset += n; } function matchFailed(failure) { if (pos.offset < rightmostFailuresPos.offset) { return; } if (pos.offset > rightmostFailuresPos.offset) { rightmostFailuresPos = clone(pos); rightmostFailuresExpected = []; } rightmostFailuresExpected.push(failure); } function parse_separator() { var cacheKey = "separator@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1; if (/^[ \t\x0B\f\xA0\uFEFF\n\r\u2028\u2029]/.test(input.charAt(pos.offset))) { result1 = input.charAt(pos.offset); advance(pos, 1); } else { result1 = null; if (reportFailures === 0) { matchFailed("[ \\t\\x0B\\f\\xA0\\uFEFF\\n\\r\\u2028\\u2029]"); } } if (result1 !== null) { result0 = []; while (result1 !== null) { result0.push(result1); if (/^[ \t\x0B\f\xA0\uFEFF\n\r\u2028\u2029]/.test(input.charAt(pos.offset))) { result1 = input.charAt(pos.offset); advance(pos, 1); } else { result1 = null; if (reportFailures === 0) { matchFailed("[ \\t\\x0B\\f\\xA0\\uFEFF\\n\\r\\u2028\\u2029]"); } } } } else { result0 = null; } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_comments() { var cacheKey = "comments@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3; var pos0; pos0 = clone(pos); if (/^["]/.test(input.charAt(pos.offset))) { result1 = input.charAt(pos.offset); advance(pos, 1); } else { result1 = null; if (reportFailures === 0) { matchFailed("[\"]"); } } if (result1 !== null) { result2 = []; if (/^[^"]/.test(input.charAt(pos.offset))) { result3 = input.charAt(pos.offset); advance(pos, 1); } else { result3 = null; if (reportFailures === 0) { matchFailed("[^\"]"); } } while (result3 !== null) { result2.push(result3); if (/^[^"]/.test(input.charAt(pos.offset))) { result3 = input.charAt(pos.offset); advance(pos, 1); } else { result3 = null; if (reportFailures === 0) { matchFailed("[^\"]"); } } } if (result2 !== null) { if (/^["]/.test(input.charAt(pos.offset))) { result3 = input.charAt(pos.offset); advance(pos, 1); } else { result3 = null; if (reportFailures === 0) { matchFailed("[\"]"); } } if (result3 !== null) { result1 = [result1, result2, result3]; } else { result1 = null; pos = clone(pos0); } } else { result1 = null; pos = clone(pos0); } } else { result1 = null; pos = clone(pos0); } if (result1 !== null) { result0 = []; while (result1 !== null) { result0.push(result1); pos0 = clone(pos); if (/^["]/.test(input.charAt(pos.offset))) { result1 = input.charAt(pos.offset); advance(pos, 1); } else { result1 = null; if (reportFailures === 0) { matchFailed("[\"]"); } } if (result1 !== null) { result2 = []; if (/^[^"]/.test(input.charAt(pos.offset))) { result3 = input.charAt(pos.offset); advance(pos, 1); } else { result3 = null; if (reportFailures === 0) { matchFailed("[^\"]"); } } while (result3 !== null) { result2.push(result3); if (/^[^"]/.test(input.charAt(pos.offset))) { result3 = input.charAt(pos.offset); advance(pos, 1); } else { result3 = null; if (reportFailures === 0) { matchFailed("[^\"]"); } } } if (result2 !== null) { if (/^["]/.test(input.charAt(pos.offset))) { result3 = input.charAt(pos.offset); advance(pos, 1); } else { result3 = null; if (reportFailures === 0) { matchFailed("[\"]"); } } if (result3 !== null) { result1 = [result1, result2, result3]; } else { result1 = null; pos = clone(pos0); } } else { result1 = null; pos = clone(pos0); } } else { result1 = null; pos = clone(pos0); } } } else { result0 = null; } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_ws() { var cacheKey = "ws@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1; result0 = []; result1 = parse_separator(); if (result1 === null) { result1 = parse_comments(); } while (result1 !== null) { result0.push(result1); result1 = parse_separator(); if (result1 === null) { result1 = parse_comments(); } } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_identifier() { var cacheKey = "identifier@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); if (/^[a-zA-Z]/.test(input.charAt(pos.offset))) { result0 = input.charAt(pos.offset); advance(pos, 1); } else { result0 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z]"); } } if (result0 !== null) { result1 = []; if (/^[a-zA-Z0-9]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z0-9]"); } } while (result2 !== null) { result1.push(result2); if (/^[a-zA-Z0-9]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z0-9]"); } } } if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, first, others) {return first + others.join("");})(pos0.offset, pos0.line, pos0.column, result0[0], result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_keyword() { var cacheKey = "keyword@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_identifier(); if (result0 !== null) { if (/^[:]/.test(input.charAt(pos.offset))) { result1 = input.charAt(pos.offset); advance(pos, 1); } else { result1 = null; if (reportFailures === 0) { matchFailed("[:]"); } } if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, first, last) {return first + last;})(pos0.offset, pos0.line, pos0.column, result0[0], result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_selector() { var cacheKey = "selector@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); if (/^[a-zA-Z]/.test(input.charAt(pos.offset))) { result0 = input.charAt(pos.offset); advance(pos, 1); } else { result0 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z]"); } } if (result0 !== null) { result1 = []; if (/^[a-zA-Z0-9:]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z0-9:]"); } } while (result2 !== null) { result1.push(result2); if (/^[a-zA-Z0-9:]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z0-9:]"); } } } if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, first, others) {return first + others.join("");})(pos0.offset, pos0.line, pos0.column, result0[0], result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_className() { var cacheKey = "className@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); if (/^[A-Z]/.test(input.charAt(pos.offset))) { result0 = input.charAt(pos.offset); advance(pos, 1); } else { result0 = null; if (reportFailures === 0) { matchFailed("[A-Z]"); } } if (result0 !== null) { result1 = []; if (/^[a-zA-Z0-9]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z0-9]"); } } while (result2 !== null) { result1.push(result2); if (/^[a-zA-Z0-9]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z0-9]"); } } } if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, first, others) {return first + others.join("");})(pos0.offset, pos0.line, pos0.column, result0[0], result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_string() { var cacheKey = "string@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2; var pos0, pos1, pos2; pos0 = clone(pos); pos1 = clone(pos); if (/^[']/.test(input.charAt(pos.offset))) { result0 = input.charAt(pos.offset); advance(pos, 1); } else { result0 = null; if (reportFailures === 0) { matchFailed("[']"); } } if (result0 !== null) { result1 = []; pos2 = clone(pos); if (input.substr(pos.offset, 2) === "''") { result2 = "''"; advance(pos, 2); } else { result2 = null; if (reportFailures === 0) { matchFailed("\"''\""); } } if (result2 !== null) { result2 = (function(offset, line, column) {return "'";})(pos2.offset, pos2.line, pos2.column); } if (result2 === null) { pos = clone(pos2); } if (result2 === null) { if (/^[^']/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[^']"); } } } while (result2 !== null) { result1.push(result2); pos2 = clone(pos); if (input.substr(pos.offset, 2) === "''") { result2 = "''"; advance(pos, 2); } else { result2 = null; if (reportFailures === 0) { matchFailed("\"''\""); } } if (result2 !== null) { result2 = (function(offset, line, column) {return "'";})(pos2.offset, pos2.line, pos2.column); } if (result2 === null) { pos = clone(pos2); } if (result2 === null) { if (/^[^']/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[^']"); } } } } if (result1 !== null) { if (/^[']/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[']"); } } if (result2 !== null) { result0 = [result0, result1, result2]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, val) { return smalltalk.ValueNode._new() ._position_((line).__at(column)) ._value_(val.join("").replace(/\"/ig, '"')); })(pos0.offset, pos0.line, pos0.column, result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_symbol() { var cacheKey = "symbol@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); if (input.charCodeAt(pos.offset) === 35) { result0 = "#"; advance(pos, 1); } else { result0 = null; if (reportFailures === 0) { matchFailed("\"#\""); } } if (result0 !== null) { result1 = parse_bareSymbol(); if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, rest) {return rest;})(pos0.offset, pos0.line, pos0.column, result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_bareSymbol() { var cacheKey = "bareSymbol@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0; var pos0, pos1; pos0 = clone(pos); result0 = parse_selector(); if (result0 === null) { result0 = parse_binarySelector(); if (result0 === null) { pos1 = clone(pos); result0 = parse_string(); if (result0 !== null) { result0 = (function(offset, line, column, node) {return node._value();})(pos1.offset, pos1.line, pos1.column, result0); } if (result0 === null) { pos = clone(pos1); } } } if (result0 !== null) { result0 = (function(offset, line, column, val) { return smalltalk.ValueNode._new() ._position_((line).__at(column)) ._value_(val); })(pos0.offset, pos0.line, pos0.column, result0); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_number() { var cacheKey = "number@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0; var pos0; pos0 = clone(pos); result0 = parse_numberExp(); if (result0 === null) { result0 = parse_hex(); if (result0 === null) { result0 = parse_float(); if (result0 === null) { result0 = parse_integer(); } } } if (result0 !== null) { result0 = (function(offset, line, column, n) { return smalltalk.ValueNode._new() ._position_((line).__at(column)) ._value_(n); })(pos0.offset, pos0.line, pos0.column, result0); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_numberExp() { var cacheKey = "numberExp@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_float(); if (result0 === null) { result0 = parse_integer(); } if (result0 !== null) { if (input.charCodeAt(pos.offset) === 101) { result1 = "e"; advance(pos, 1); } else { result1 = null; if (reportFailures === 0) { matchFailed("\"e\""); } } if (result1 !== null) { result2 = parse_integer(); if (result2 !== null) { result0 = [result0, result1, result2]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, n) {return parseFloat(n.join(""));})(pos0.offset, pos0.line, pos0.column, result0); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_hex() { var cacheKey = "hex@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); if (/^[\-]/.test(input.charAt(pos.offset))) { result0 = input.charAt(pos.offset); advance(pos, 1); } else { result0 = null; if (reportFailures === 0) { matchFailed("[\\-]"); } } result0 = result0 !== null ? result0 : ""; if (result0 !== null) { if (input.substr(pos.offset, 3) === "16r") { result1 = "16r"; advance(pos, 3); } else { result1 = null; if (reportFailures === 0) { matchFailed("\"16r\""); } } if (result1 !== null) { if (/^[0-9a-fA-F]/.test(input.charAt(pos.offset))) { result3 = input.charAt(pos.offset); advance(pos, 1); } else { result3 = null; if (reportFailures === 0) { matchFailed("[0-9a-fA-F]"); } } if (result3 !== null) { result2 = []; while (result3 !== null) { result2.push(result3); if (/^[0-9a-fA-F]/.test(input.charAt(pos.offset))) { result3 = input.charAt(pos.offset); advance(pos, 1); } else { result3 = null; if (reportFailures === 0) { matchFailed("[0-9a-fA-F]"); } } } } else { result2 = null; } if (result2 !== null) { result0 = [result0, result1, result2]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, neg, num) {return parseInt((neg + num.join("")), 16);})(pos0.offset, pos0.line, pos0.column, result0[0], result0[2]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_float() { var cacheKey = "float@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3, result4; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); if (/^[\-]/.test(input.charAt(pos.offset))) { result0 = input.charAt(pos.offset); advance(pos, 1); } else { result0 = null; if (reportFailures === 0) { matchFailed("[\\-]"); } } result0 = result0 !== null ? result0 : ""; if (result0 !== null) { if (/^[0-9]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[0-9]"); } } if (result2 !== null) { result1 = []; while (result2 !== null) { result1.push(result2); if (/^[0-9]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[0-9]"); } } } } else { result1 = null; } if (result1 !== null) { if (input.charCodeAt(pos.offset) === 46) { result2 = "."; advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("\".\""); } } if (result2 !== null) { if (/^[0-9]/.test(input.charAt(pos.offset))) { result4 = input.charAt(pos.offset); advance(pos, 1); } else { result4 = null; if (reportFailures === 0) { matchFailed("[0-9]"); } } if (result4 !== null) { result3 = []; while (result4 !== null) { result3.push(result4); if (/^[0-9]/.test(input.charAt(pos.offset))) { result4 = input.charAt(pos.offset); advance(pos, 1); } else { result4 = null; if (reportFailures === 0) { matchFailed("[0-9]"); } } } } else { result3 = null; } if (result3 !== null) { result0 = [result0, result1, result2, result3]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, neg, digits, dec) {return parseFloat((neg + digits.join("") + "." + dec.join("")), 10);})(pos0.offset, pos0.line, pos0.column, result0[0], result0[1], result0[3]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_integer() { var cacheKey = "integer@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); if (/^[\-]/.test(input.charAt(pos.offset))) { result0 = input.charAt(pos.offset); advance(pos, 1); } else { result0 = null; if (reportFailures === 0) { matchFailed("[\\-]"); } } result0 = result0 !== null ? result0 : ""; if (result0 !== null) { if (/^[0-9]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[0-9]"); } } if (result2 !== null) { result1 = []; while (result2 !== null) { result1.push(result2); if (/^[0-9]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[0-9]"); } } } } else { result1 = null; } if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, neg, digits) {return (parseInt(neg+digits.join(""), 10));})(pos0.offset, pos0.line, pos0.column, result0[0], result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_literalArray() { var cacheKey = "literalArray@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); if (input.substr(pos.offset, 2) === "#(") { result0 = "#("; advance(pos, 2); } else { result0 = null; if (reportFailures === 0) { matchFailed("\"#(\""); } } if (result0 !== null) { result1 = parse_literalArrayRest(); if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, rest) {return rest;})(pos0.offset, pos0.line, pos0.column, result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_bareLiteralArray() { var cacheKey = "bareLiteralArray@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); if (input.charCodeAt(pos.offset) === 40) { result0 = "("; advance(pos, 1); } else { result0 = null; if (reportFailures === 0) { matchFailed("\"(\""); } } if (result0 !== null) { result1 = parse_literalArrayRest(); if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, rest) {return rest;})(pos0.offset, pos0.line, pos0.column, result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_literalArrayRest() { var cacheKey = "literalArrayRest@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3; var pos0, pos1, pos2, pos3; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_ws(); if (result0 !== null) { result1 = []; pos2 = clone(pos); pos3 = clone(pos); result2 = parse_parseTimeLiteral(); if (result2 === null) { result2 = parse_bareLiteralArray(); if (result2 === null) { result2 = parse_bareSymbol(); } } if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { result2 = [result2, result3]; } else { result2 = null; pos = clone(pos3); } } else { result2 = null; pos = clone(pos3); } if (result2 !== null) { result2 = (function(offset, line, column, lit) {return lit._value();})(pos2.offset, pos2.line, pos2.column, result2[0]); } if (result2 === null) { pos = clone(pos2); } while (result2 !== null) { result1.push(result2); pos2 = clone(pos); pos3 = clone(pos); result2 = parse_parseTimeLiteral(); if (result2 === null) { result2 = parse_bareLiteralArray(); if (result2 === null) { result2 = parse_bareSymbol(); } } if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { result2 = [result2, result3]; } else { result2 = null; pos = clone(pos3); } } else { result2 = null; pos = clone(pos3); } if (result2 !== null) { result2 = (function(offset, line, column, lit) {return lit._value();})(pos2.offset, pos2.line, pos2.column, result2[0]); } if (result2 === null) { pos = clone(pos2); } } if (result1 !== null) { result2 = parse_ws(); if (result2 !== null) { if (input.charCodeAt(pos.offset) === 41) { result3 = ")"; advance(pos, 1); } else { result3 = null; if (reportFailures === 0) { matchFailed("\")\""); } } if (result3 !== null) { result0 = [result0, result1, result2, result3]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, lits) { return smalltalk.ValueNode._new() ._position_((line).__at(column)) ._value_(lits); })(pos0.offset, pos0.line, pos0.column, result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_dynamicArray() { var cacheKey = "dynamicArray@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3, result4, result5; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); if (input.charCodeAt(pos.offset) === 123) { result0 = "{"; advance(pos, 1); } else { result0 = null; if (reportFailures === 0) { matchFailed("\"{\""); } } if (result0 !== null) { result1 = parse_ws(); if (result1 !== null) { result2 = parse_expressions(); result2 = result2 !== null ? result2 : ""; if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { if (input.charCodeAt(pos.offset) === 46) { result4 = "."; advance(pos, 1); } else { result4 = null; if (reportFailures === 0) { matchFailed("\".\""); } } result4 = result4 !== null ? result4 : ""; if (result4 !== null) { if (input.charCodeAt(pos.offset) === 125) { result5 = "}"; advance(pos, 1); } else { result5 = null; if (reportFailures === 0) { matchFailed("\"}\""); } } if (result5 !== null) { result0 = [result0, result1, result2, result3, result4, result5]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, expressions) { return smalltalk.DynamicArrayNode._new() ._position_((line).__at(column)) ._nodes_(expressions); })(pos0.offset, pos0.line, pos0.column, result0[2]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_dynamicDictionary() { var cacheKey = "dynamicDictionary@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3, result4; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); if (input.substr(pos.offset, 2) === "#{") { result0 = "#{"; advance(pos, 2); } else { result0 = null; if (reportFailures === 0) { matchFailed("\"#{\""); } } if (result0 !== null) { result1 = parse_ws(); if (result1 !== null) { result2 = parse_expressions(); result2 = result2 !== null ? result2 : ""; if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { if (input.charCodeAt(pos.offset) === 125) { result4 = "}"; advance(pos, 1); } else { result4 = null; if (reportFailures === 0) { matchFailed("\"}\""); } } if (result4 !== null) { result0 = [result0, result1, result2, result3, result4]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, expressions) { return smalltalk.DynamicDictionaryNode._new() ._position_((line).__at(column)) ._nodes_(expressions); })(pos0.offset, pos0.line, pos0.column, result0[2]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_pseudoVariable() { var cacheKey = "pseudoVariable@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); if (input.substr(pos.offset, 4) === "true") { result0 = "true"; advance(pos, 4); } else { result0 = null; if (reportFailures === 0) { matchFailed("\"true\""); } } if (result0 !== null) { result0 = (function(offset, line, column) {return true;})(pos1.offset, pos1.line, pos1.column); } if (result0 === null) { pos = clone(pos1); } if (result0 === null) { pos1 = clone(pos); if (input.substr(pos.offset, 5) === "false") { result0 = "false"; advance(pos, 5); } else { result0 = null; if (reportFailures === 0) { matchFailed("\"false\""); } } if (result0 !== null) { result0 = (function(offset, line, column) {return false;})(pos1.offset, pos1.line, pos1.column); } if (result0 === null) { pos = clone(pos1); } if (result0 === null) { pos1 = clone(pos); if (input.substr(pos.offset, 3) === "nil") { result0 = "nil"; advance(pos, 3); } else { result0 = null; if (reportFailures === 0) { matchFailed("\"nil\""); } } if (result0 !== null) { result0 = (function(offset, line, column) {return nil;})(pos1.offset, pos1.line, pos1.column); } if (result0 === null) { pos = clone(pos1); } } } if (result0 !== null) { result0 = (function(offset, line, column, val) { return smalltalk.ValueNode._new() ._position_((line).__at(column)) ._value_(val); })(pos0.offset, pos0.line, pos0.column, result0); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_parseTimeLiteral() { var cacheKey = "parseTimeLiteral@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0; result0 = parse_pseudoVariable(); if (result0 === null) { result0 = parse_number(); if (result0 === null) { result0 = parse_literalArray(); if (result0 === null) { result0 = parse_string(); if (result0 === null) { result0 = parse_symbol(); } } } } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_runtimeLiteral() { var cacheKey = "runtimeLiteral@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0; result0 = parse_dynamicDictionary(); if (result0 === null) { result0 = parse_dynamicArray(); if (result0 === null) { result0 = parse_block(); } } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_literal() { var cacheKey = "literal@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0; result0 = parse_runtimeLiteral(); if (result0 === null) { result0 = parse_parseTimeLiteral(); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_variable() { var cacheKey = "variable@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0; var pos0; pos0 = clone(pos); result0 = parse_identifier(); if (result0 !== null) { result0 = (function(offset, line, column, identifier) { return smalltalk.VariableNode._new() ._position_((line).__at(column)) ._value_(identifier); })(pos0.offset, pos0.line, pos0.column, result0); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_keywordPair() { var cacheKey = "keywordPair@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_keyword(); if (result0 !== null) { result1 = parse_ws(); if (result1 !== null) { result2 = parse_binarySend(); if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { result0 = [result0, result1, result2, result3]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, key, arg) {return {key:key, arg: arg};})(pos0.offset, pos0.line, pos0.column, result0[0], result0[2]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_binarySelector() { var cacheKey = "binarySelector@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1; var pos0; pos0 = clone(pos); if (/^[\\+*\/=><,@%~|&\-]/.test(input.charAt(pos.offset))) { result1 = input.charAt(pos.offset); advance(pos, 1); } else { result1 = null; if (reportFailures === 0) { matchFailed("[\\\\+*\\/=><,@%~|&\\-]"); } } if (result1 !== null) { result0 = []; while (result1 !== null) { result0.push(result1); if (/^[\\+*\/=><,@%~|&\-]/.test(input.charAt(pos.offset))) { result1 = input.charAt(pos.offset); advance(pos, 1); } else { result1 = null; if (reportFailures === 0) { matchFailed("[\\\\+*\\/=><,@%~|&\\-]"); } } } } else { result0 = null; } if (result0 !== null) { result0 = (function(offset, line, column, bin) {return bin.join("");})(pos0.offset, pos0.line, pos0.column, result0); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_keywordPattern() { var cacheKey = "keywordPattern@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3, result4; var pos0, pos1, pos2; pos0 = clone(pos); pos1 = clone(pos); pos2 = clone(pos); result1 = parse_ws(); if (result1 !== null) { result2 = parse_keyword(); if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { result4 = parse_identifier(); if (result4 !== null) { result1 = [result1, result2, result3, result4]; } else { result1 = null; pos = clone(pos2); } } else { result1 = null; pos = clone(pos2); } } else { result1 = null; pos = clone(pos2); } } else { result1 = null; pos = clone(pos2); } if (result1 !== null) { result1 = (function(offset, line, column, key, arg) {return {key:key, arg: arg};})(pos1.offset, pos1.line, pos1.column, result1[1], result1[3]); } if (result1 === null) { pos = clone(pos1); } if (result1 !== null) { result0 = []; while (result1 !== null) { result0.push(result1); pos1 = clone(pos); pos2 = clone(pos); result1 = parse_ws(); if (result1 !== null) { result2 = parse_keyword(); if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { result4 = parse_identifier(); if (result4 !== null) { result1 = [result1, result2, result3, result4]; } else { result1 = null; pos = clone(pos2); } } else { result1 = null; pos = clone(pos2); } } else { result1 = null; pos = clone(pos2); } } else { result1 = null; pos = clone(pos2); } if (result1 !== null) { result1 = (function(offset, line, column, key, arg) {return {key:key, arg: arg};})(pos1.offset, pos1.line, pos1.column, result1[1], result1[3]); } if (result1 === null) { pos = clone(pos1); } } } else { result0 = null; } if (result0 !== null) { result0 = (function(offset, line, column, pairs) { var keywords = []; var params = []; var i = 0; for(i = 0; i < pairs.length; i++){ keywords.push(pairs[i].key); } for(i = 0; i < pairs.length; i++){ params.push(pairs[i].arg); } return [keywords.join(""), params]; })(pos0.offset, pos0.line, pos0.column, result0); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_binaryPattern() { var cacheKey = "binaryPattern@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_ws(); if (result0 !== null) { result1 = parse_binarySelector(); if (result1 !== null) { result2 = parse_ws(); if (result2 !== null) { result3 = parse_identifier(); if (result3 !== null) { result0 = [result0, result1, result2, result3]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, selector, arg) {return [selector, [arg]];})(pos0.offset, pos0.line, pos0.column, result0[1], result0[3]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_unaryPattern() { var cacheKey = "unaryPattern@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_ws(); if (result0 !== null) { result1 = parse_identifier(); if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, selector) {return [selector, []];})(pos0.offset, pos0.line, pos0.column, result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_expression() { var cacheKey = "expression@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0; result0 = parse_assignment(); if (result0 === null) { result0 = parse_cascade(); if (result0 === null) { result0 = parse_keywordSend(); if (result0 === null) { result0 = parse_binarySend(); } } } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_expressionList() { var cacheKey = "expressionList@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_ws(); if (result0 !== null) { if (input.charCodeAt(pos.offset) === 46) { result1 = "."; advance(pos, 1); } else { result1 = null; if (reportFailures === 0) { matchFailed("\".\""); } } if (result1 !== null) { result2 = parse_ws(); if (result2 !== null) { result3 = parse_expression(); if (result3 !== null) { result0 = [result0, result1, result2, result3]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, expression) {return expression;})(pos0.offset, pos0.line, pos0.column, result0[3]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_expressions() { var cacheKey = "expressions@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_expression(); if (result0 !== null) { result1 = []; result2 = parse_expressionList(); while (result2 !== null) { result1.push(result2); result2 = parse_expressionList(); } if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, first, others) { var result = [first]; for(var i = 0; i < others.length; i++) { result.push(others[i]); } return result; })(pos0.offset, pos0.line, pos0.column, result0[0], result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_assignment() { var cacheKey = "assignment@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3, result4; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_variable(); if (result0 !== null) { result1 = parse_ws(); if (result1 !== null) { if (input.substr(pos.offset, 2) === ":=") { result2 = ":="; advance(pos, 2); } else { result2 = null; if (reportFailures === 0) { matchFailed("\":=\""); } } if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { result4 = parse_expression(); if (result4 !== null) { result0 = [result0, result1, result2, result3, result4]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, variable, expression) { return smalltalk.AssignmentNode._new() ._position_((line).__at(column)) ._left_(variable) ._right_(expression); })(pos0.offset, pos0.line, pos0.column, result0[0], result0[4]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_ret() { var cacheKey = "ret@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3, result4; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); if (input.charCodeAt(pos.offset) === 94) { result0 = "^"; advance(pos, 1); } else { result0 = null; if (reportFailures === 0) { matchFailed("\"^\""); } } if (result0 !== null) { result1 = parse_ws(); if (result1 !== null) { result2 = parse_expression(); if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { if (input.charCodeAt(pos.offset) === 46) { result4 = "."; advance(pos, 1); } else { result4 = null; if (reportFailures === 0) { matchFailed("\".\""); } } result4 = result4 !== null ? result4 : ""; if (result4 !== null) { result0 = [result0, result1, result2, result3, result4]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, expression) { return smalltalk.ReturnNode._new() ._position_((line).__at(column)) ._nodes_([expression]); })(pos0.offset, pos0.line, pos0.column, result0[2]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_temps() { var cacheKey = "temps@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3, result4; var pos0, pos1, pos2, pos3; pos0 = clone(pos); pos1 = clone(pos); if (input.charCodeAt(pos.offset) === 124) { result0 = "|"; advance(pos, 1); } else { result0 = null; if (reportFailures === 0) { matchFailed("\"|\""); } } if (result0 !== null) { result1 = []; pos2 = clone(pos); pos3 = clone(pos); result2 = parse_ws(); if (result2 !== null) { result3 = parse_identifier(); if (result3 !== null) { result4 = parse_ws(); if (result4 !== null) { result2 = [result2, result3, result4]; } else { result2 = null; pos = clone(pos3); } } else { result2 = null; pos = clone(pos3); } } else { result2 = null; pos = clone(pos3); } if (result2 !== null) { result2 = (function(offset, line, column, variable) {return variable;})(pos2.offset, pos2.line, pos2.column, result2[1]); } if (result2 === null) { pos = clone(pos2); } while (result2 !== null) { result1.push(result2); pos2 = clone(pos); pos3 = clone(pos); result2 = parse_ws(); if (result2 !== null) { result3 = parse_identifier(); if (result3 !== null) { result4 = parse_ws(); if (result4 !== null) { result2 = [result2, result3, result4]; } else { result2 = null; pos = clone(pos3); } } else { result2 = null; pos = clone(pos3); } } else { result2 = null; pos = clone(pos3); } if (result2 !== null) { result2 = (function(offset, line, column, variable) {return variable;})(pos2.offset, pos2.line, pos2.column, result2[1]); } if (result2 === null) { pos = clone(pos2); } } if (result1 !== null) { if (input.charCodeAt(pos.offset) === 124) { result2 = "|"; advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("\"|\""); } } if (result2 !== null) { result0 = [result0, result1, result2]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, vars) {return vars;})(pos0.offset, pos0.line, pos0.column, result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_blockParamList() { var cacheKey = "blockParamList@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3, result4; var pos0, pos1, pos2, pos3; pos0 = clone(pos); pos1 = clone(pos); pos2 = clone(pos); pos3 = clone(pos); result1 = parse_ws(); if (result1 !== null) { if (input.charCodeAt(pos.offset) === 58) { result2 = ":"; advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("\":\""); } } if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { result4 = parse_identifier(); if (result4 !== null) { result1 = [result1, result2, result3, result4]; } else { result1 = null; pos = clone(pos3); } } else { result1 = null; pos = clone(pos3); } } else { result1 = null; pos = clone(pos3); } } else { result1 = null; pos = clone(pos3); } if (result1 !== null) { result1 = (function(offset, line, column, param) {return param;})(pos2.offset, pos2.line, pos2.column, result1[3]); } if (result1 === null) { pos = clone(pos2); } if (result1 !== null) { result0 = []; while (result1 !== null) { result0.push(result1); pos2 = clone(pos); pos3 = clone(pos); result1 = parse_ws(); if (result1 !== null) { if (input.charCodeAt(pos.offset) === 58) { result2 = ":"; advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("\":\""); } } if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { result4 = parse_identifier(); if (result4 !== null) { result1 = [result1, result2, result3, result4]; } else { result1 = null; pos = clone(pos3); } } else { result1 = null; pos = clone(pos3); } } else { result1 = null; pos = clone(pos3); } } else { result1 = null; pos = clone(pos3); } if (result1 !== null) { result1 = (function(offset, line, column, param) {return param;})(pos2.offset, pos2.line, pos2.column, result1[3]); } if (result1 === null) { pos = clone(pos2); } } } else { result0 = null; } if (result0 !== null) { result1 = parse_ws(); if (result1 !== null) { if (input.charCodeAt(pos.offset) === 124) { result2 = "|"; advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("\"|\""); } } if (result2 !== null) { result0 = [result0, result1, result2]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, params) {return params;})(pos0.offset, pos0.line, pos0.column, result0[0]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_subexpression() { var cacheKey = "subexpression@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3, result4; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); if (input.charCodeAt(pos.offset) === 40) { result0 = "("; advance(pos, 1); } else { result0 = null; if (reportFailures === 0) { matchFailed("\"(\""); } } if (result0 !== null) { result1 = parse_ws(); if (result1 !== null) { result2 = parse_expression(); if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { if (input.charCodeAt(pos.offset) === 41) { result4 = ")"; advance(pos, 1); } else { result4 = null; if (reportFailures === 0) { matchFailed("\")\""); } } if (result4 !== null) { result0 = [result0, result1, result2, result3, result4]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, expression) {return expression;})(pos0.offset, pos0.line, pos0.column, result0[2]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_statements() { var cacheKey = "statements@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3, result4, result5, result6; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_ret(); if (result0 !== null) { result1 = []; if (/^[.]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[.]"); } } while (result2 !== null) { result1.push(result2); if (/^[.]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[.]"); } } } if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, ret) {return [ret];})(pos0.offset, pos0.line, pos0.column, result0[0]); } if (result0 === null) { pos = clone(pos0); } if (result0 === null) { pos0 = clone(pos); pos1 = clone(pos); result0 = parse_expressions(); if (result0 !== null) { result1 = parse_ws(); if (result1 !== null) { if (/^[.]/.test(input.charAt(pos.offset))) { result3 = input.charAt(pos.offset); advance(pos, 1); } else { result3 = null; if (reportFailures === 0) { matchFailed("[.]"); } } if (result3 !== null) { result2 = []; while (result3 !== null) { result2.push(result3); if (/^[.]/.test(input.charAt(pos.offset))) { result3 = input.charAt(pos.offset); advance(pos, 1); } else { result3 = null; if (reportFailures === 0) { matchFailed("[.]"); } } } } else { result2 = null; } if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { result4 = parse_ret(); if (result4 !== null) { result5 = []; if (/^[.]/.test(input.charAt(pos.offset))) { result6 = input.charAt(pos.offset); advance(pos, 1); } else { result6 = null; if (reportFailures === 0) { matchFailed("[.]"); } } while (result6 !== null) { result5.push(result6); if (/^[.]/.test(input.charAt(pos.offset))) { result6 = input.charAt(pos.offset); advance(pos, 1); } else { result6 = null; if (reportFailures === 0) { matchFailed("[.]"); } } } if (result5 !== null) { result0 = [result0, result1, result2, result3, result4, result5]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, exps, ret) { var expressions = exps; expressions.push(ret); return expressions; })(pos0.offset, pos0.line, pos0.column, result0[0], result0[4]); } if (result0 === null) { pos = clone(pos0); } if (result0 === null) { pos0 = clone(pos); pos1 = clone(pos); result0 = parse_expressions(); result0 = result0 !== null ? result0 : ""; if (result0 !== null) { result1 = []; if (/^[.]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[.]"); } } while (result2 !== null) { result1.push(result2); if (/^[.]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[.]"); } } } if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, expressions) { return expressions || []; })(pos0.offset, pos0.line, pos0.column, result0[0]); } if (result0 === null) { pos = clone(pos0); } } } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_sequence() { var cacheKey = "sequence@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0; result0 = parse_jsStatement(); if (result0 === null) { result0 = parse_stSequence(); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_stSequence() { var cacheKey = "stSequence@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_temps(); result0 = result0 !== null ? result0 : ""; if (result0 !== null) { result1 = parse_ws(); if (result1 !== null) { result2 = parse_statements(); result2 = result2 !== null ? result2 : ""; if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { result0 = [result0, result1, result2, result3]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, temps, statements) { return smalltalk.SequenceNode._new() ._position_((line).__at(column)) ._temps_(temps || []) ._nodes_(statements || []); })(pos0.offset, pos0.line, pos0.column, result0[0], result0[2]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_block() { var cacheKey = "block@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3, result4, result5, result6; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); if (input.charCodeAt(pos.offset) === 91) { result0 = "["; advance(pos, 1); } else { result0 = null; if (reportFailures === 0) { matchFailed("\"[\""); } } if (result0 !== null) { result1 = parse_ws(); if (result1 !== null) { result2 = parse_blockParamList(); result2 = result2 !== null ? result2 : ""; if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { result4 = parse_sequence(); result4 = result4 !== null ? result4 : ""; if (result4 !== null) { result5 = parse_ws(); if (result5 !== null) { if (input.charCodeAt(pos.offset) === 93) { result6 = "]"; advance(pos, 1); } else { result6 = null; if (reportFailures === 0) { matchFailed("\"]\""); } } if (result6 !== null) { result0 = [result0, result1, result2, result3, result4, result5, result6]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, params, sequence) { return smalltalk.BlockNode._new() ._position_((line).__at(column)) ._parameters_(params || []) ._nodes_([sequence._asBlockSequenceNode()]); })(pos0.offset, pos0.line, pos0.column, result0[2], result0[4]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_operand() { var cacheKey = "operand@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0; result0 = parse_literal(); if (result0 === null) { result0 = parse_variable(); if (result0 === null) { result0 = parse_subexpression(); } } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_unaryMessage() { var cacheKey = "unaryMessage@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2; var pos0, pos1, pos2; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_ws(); if (result0 !== null) { result1 = parse_identifier(); if (result1 !== null) { pos2 = clone(pos); reportFailures++; if (/^[:]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[:]"); } } reportFailures--; if (result2 === null) { result2 = ""; } else { result2 = null; pos = clone(pos2); } if (result2 !== null) { result0 = [result0, result1, result2]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, selector) { return smalltalk.SendNode._new() ._position_((line).__at(column)) ._selector_(selector); })(pos0.offset, pos0.line, pos0.column, result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_unaryTail() { var cacheKey = "unaryTail@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_unaryMessage(); if (result0 !== null) { result1 = parse_ws(); if (result1 !== null) { result2 = parse_unaryTail(); result2 = result2 !== null ? result2 : ""; if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { result0 = [result0, result1, result2, result3]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, message, tail) { if(tail) { return tail._valueForReceiver_(message); } else { return message; } })(pos0.offset, pos0.line, pos0.column, result0[0], result0[2]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_unarySend() { var cacheKey = "unarySend@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_operand(); if (result0 !== null) { result1 = parse_ws(); if (result1 !== null) { result2 = parse_unaryTail(); result2 = result2 !== null ? result2 : ""; if (result2 !== null) { result0 = [result0, result1, result2]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, receiver, tail) { if(tail) { return tail._valueForReceiver_(receiver); } else { return receiver; } })(pos0.offset, pos0.line, pos0.column, result0[0], result0[2]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_binaryMessage() { var cacheKey = "binaryMessage@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_ws(); if (result0 !== null) { result1 = parse_binarySelector(); if (result1 !== null) { result2 = parse_ws(); if (result2 !== null) { result3 = parse_unarySend(); if (result3 === null) { result3 = parse_operand(); } if (result3 !== null) { result0 = [result0, result1, result2, result3]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, selector, arg) { return smalltalk.SendNode._new() ._position_((line).__at(column)) ._selector_(selector) ._arguments_([arg]); })(pos0.offset, pos0.line, pos0.column, result0[1], result0[3]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_binaryTail() { var cacheKey = "binaryTail@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_binaryMessage(); if (result0 !== null) { result1 = parse_binaryTail(); result1 = result1 !== null ? result1 : ""; if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, message, tail) { if(tail) { return tail._valueForReceiver_(message); } else { return message; } })(pos0.offset, pos0.line, pos0.column, result0[0], result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_binarySend() { var cacheKey = "binarySend@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_unarySend(); if (result0 !== null) { result1 = parse_binaryTail(); result1 = result1 !== null ? result1 : ""; if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, receiver, tail) { if(tail) { return tail._valueForReceiver_(receiver); } else { return receiver; } })(pos0.offset, pos0.line, pos0.column, result0[0], result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_keywordMessage() { var cacheKey = "keywordMessage@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3; var pos0, pos1, pos2, pos3; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_ws(); if (result0 !== null) { pos2 = clone(pos); pos3 = clone(pos); result2 = parse_keywordPair(); if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { result2 = [result2, result3]; } else { result2 = null; pos = clone(pos3); } } else { result2 = null; pos = clone(pos3); } if (result2 !== null) { result2 = (function(offset, line, column, pair) {return pair;})(pos2.offset, pos2.line, pos2.column, result2[0]); } if (result2 === null) { pos = clone(pos2); } if (result2 !== null) { result1 = []; while (result2 !== null) { result1.push(result2); pos2 = clone(pos); pos3 = clone(pos); result2 = parse_keywordPair(); if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { result2 = [result2, result3]; } else { result2 = null; pos = clone(pos3); } } else { result2 = null; pos = clone(pos3); } if (result2 !== null) { result2 = (function(offset, line, column, pair) {return pair;})(pos2.offset, pos2.line, pos2.column, result2[0]); } if (result2 === null) { pos = clone(pos2); } } } else { result1 = null; } if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, pairs) { var selector = []; var args = []; for(var i = 0; i < pairs.length; i++) { selector.push(pairs[i].key); args.push(pairs[i].arg); } return smalltalk.SendNode._new() ._position_((line).__at(column)) ._selector_(selector.join("")) ._arguments_(args); })(pos0.offset, pos0.line, pos0.column, result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_keywordSend() { var cacheKey = "keywordSend@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_binarySend(); if (result0 !== null) { result1 = parse_keywordMessage(); if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, receiver, tail) { return tail._valueForReceiver_(receiver); })(pos0.offset, pos0.line, pos0.column, result0[0], result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_message() { var cacheKey = "message@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0; result0 = parse_binaryMessage(); if (result0 === null) { result0 = parse_unaryMessage(); if (result0 === null) { result0 = parse_keywordMessage(); } } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_cascade() { var cacheKey = "cascade@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3, result4, result5, result6, result7; var pos0, pos1, pos2, pos3; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_ws(); if (result0 !== null) { result1 = parse_keywordSend(); if (result1 === null) { result1 = parse_binarySend(); } if (result1 !== null) { pos2 = clone(pos); pos3 = clone(pos); result3 = parse_ws(); if (result3 !== null) { if (input.charCodeAt(pos.offset) === 59) { result4 = ";"; advance(pos, 1); } else { result4 = null; if (reportFailures === 0) { matchFailed("\";\""); } } if (result4 !== null) { result5 = parse_ws(); if (result5 !== null) { result6 = parse_message(); if (result6 !== null) { result7 = parse_ws(); if (result7 !== null) { result3 = [result3, result4, result5, result6, result7]; } else { result3 = null; pos = clone(pos3); } } else { result3 = null; pos = clone(pos3); } } else { result3 = null; pos = clone(pos3); } } else { result3 = null; pos = clone(pos3); } } else { result3 = null; pos = clone(pos3); } if (result3 !== null) { result3 = (function(offset, line, column, mess) {return mess;})(pos2.offset, pos2.line, pos2.column, result3[3]); } if (result3 === null) { pos = clone(pos2); } if (result3 !== null) { result2 = []; while (result3 !== null) { result2.push(result3); pos2 = clone(pos); pos3 = clone(pos); result3 = parse_ws(); if (result3 !== null) { if (input.charCodeAt(pos.offset) === 59) { result4 = ";"; advance(pos, 1); } else { result4 = null; if (reportFailures === 0) { matchFailed("\";\""); } } if (result4 !== null) { result5 = parse_ws(); if (result5 !== null) { result6 = parse_message(); if (result6 !== null) { result7 = parse_ws(); if (result7 !== null) { result3 = [result3, result4, result5, result6, result7]; } else { result3 = null; pos = clone(pos3); } } else { result3 = null; pos = clone(pos3); } } else { result3 = null; pos = clone(pos3); } } else { result3 = null; pos = clone(pos3); } } else { result3 = null; pos = clone(pos3); } if (result3 !== null) { result3 = (function(offset, line, column, mess) {return mess;})(pos2.offset, pos2.line, pos2.column, result3[3]); } if (result3 === null) { pos = clone(pos2); } } } else { result2 = null; } if (result2 !== null) { result0 = [result0, result1, result2]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, send, messages) { var cascade = []; cascade.push(send); for(var i = 0; i < messages.length; i++) { cascade.push(messages[i]); } return smalltalk.CascadeNode._new() ._position_((line).__at(column)) ._receiver_(send._receiver()) ._nodes_(cascade); })(pos0.offset, pos0.line, pos0.column, result0[1], result0[2]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_jsStatement() { var cacheKey = "jsStatement@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2; var pos0, pos1, pos2; pos0 = clone(pos); pos1 = clone(pos); if (input.charCodeAt(pos.offset) === 60) { result0 = "<"; advance(pos, 1); } else { result0 = null; if (reportFailures === 0) { matchFailed("\"<\""); } } if (result0 !== null) { result1 = []; pos2 = clone(pos); if (input.substr(pos.offset, 2) === ">>") { result2 = ">>"; advance(pos, 2); } else { result2 = null; if (reportFailures === 0) { matchFailed("\">>\""); } } if (result2 !== null) { result2 = (function(offset, line, column) {return ">";})(pos2.offset, pos2.line, pos2.column); } if (result2 === null) { pos = clone(pos2); } if (result2 === null) { if (/^[^>]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[^>]"); } } } while (result2 !== null) { result1.push(result2); pos2 = clone(pos); if (input.substr(pos.offset, 2) === ">>") { result2 = ">>"; advance(pos, 2); } else { result2 = null; if (reportFailures === 0) { matchFailed("\">>\""); } } if (result2 !== null) { result2 = (function(offset, line, column) {return ">";})(pos2.offset, pos2.line, pos2.column); } if (result2 === null) { pos = clone(pos2); } if (result2 === null) { if (/^[^>]/.test(input.charAt(pos.offset))) { result2 = input.charAt(pos.offset); advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("[^>]"); } } } } if (result1 !== null) { if (input.charCodeAt(pos.offset) === 62) { result2 = ">"; advance(pos, 1); } else { result2 = null; if (reportFailures === 0) { matchFailed("\">\""); } } if (result2 !== null) { result0 = [result0, result1, result2]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, val) { return smalltalk.JSStatementNode._new() ._position_((line).__at(column)) ._source_(val.join("")); })(pos0.offset, pos0.line, pos0.column, result0[1]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function parse_method() { var cacheKey = "method@" + pos.offset; var cachedResult = cache[cacheKey]; if (cachedResult) { pos = clone(cachedResult.nextPos); return cachedResult.result; } var result0, result1, result2, result3, result4; var pos0, pos1; pos0 = clone(pos); pos1 = clone(pos); result0 = parse_ws(); if (result0 !== null) { result1 = parse_keywordPattern(); if (result1 === null) { result1 = parse_binaryPattern(); if (result1 === null) { result1 = parse_unaryPattern(); } } if (result1 !== null) { result2 = parse_ws(); if (result2 !== null) { result3 = parse_sequence(); result3 = result3 !== null ? result3 : ""; if (result3 !== null) { result4 = parse_ws(); if (result4 !== null) { result0 = [result0, result1, result2, result3, result4]; } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } } else { result0 = null; pos = clone(pos1); } if (result0 !== null) { result0 = (function(offset, line, column, pattern, sequence) { return smalltalk.MethodNode._new() ._position_((line).__at(column)) ._selector_(pattern[0]) ._arguments_(pattern[1]) ._nodes_([sequence]); })(pos0.offset, pos0.line, pos0.column, result0[1], result0[3]); } if (result0 === null) { pos = clone(pos0); } cache[cacheKey] = { nextPos: clone(pos), result: result0 }; return result0; } function cleanupExpected(expected) { expected.sort(); var lastExpected = null; var cleanExpected = []; for (var i = 0; i < expected.length; i++) { if (expected[i] !== lastExpected) { cleanExpected.push(expected[i]); lastExpected = expected[i]; } } return cleanExpected; } var result = parseFunctions[startRule](); /* * The parser is now in one of the following three states: * * 1. The parser successfully parsed the whole input. * * - |result !== null| * - |pos.offset === input.length| * - |rightmostFailuresExpected| may or may not contain something * * 2. The parser successfully parsed only a part of the input. * * - |result !== null| * - |pos.offset < input.length| * - |rightmostFailuresExpected| may or may not contain something * * 3. The parser did not successfully parse any part of the input. * * - |result === null| * - |pos.offset === 0| * - |rightmostFailuresExpected| contains at least one failure * * All code following this comment (including called functions) must * handle these states. */ if (result === null || pos.offset !== input.length) { var offset = Math.max(pos.offset, rightmostFailuresPos.offset); var found = offset < input.length ? input.charAt(offset) : null; var errorPosition = pos.offset > rightmostFailuresPos.offset ? pos : rightmostFailuresPos; throw new this.SyntaxError( cleanupExpected(rightmostFailuresExpected), found, offset, errorPosition.line, errorPosition.column ); } return result; }, /* Returns the parser source code. */ toSource: function() { return this._source; } }; /* Thrown when a parser encounters a syntax error. */ result.SyntaxError = function(expected, found, offset, line, column) { function buildMessage(expected, found) { var expectedHumanized, foundHumanized; switch (expected.length) { case 0: expectedHumanized = "end of input"; break; case 1: expectedHumanized = expected[0]; break; default: expectedHumanized = expected.slice(0, expected.length - 1).join(", ") + " or " + expected[expected.length - 1]; } foundHumanized = found ? quote(found) : "end of input"; return "Expected " + expectedHumanized + " but " + foundHumanized + " found."; } this.name = "SyntaxError"; this.expected = expected; this.found = found; this.message = buildMessage(expected, found); this.offset = offset; this.line = line; this.column = column; }; result.SyntaxError.prototype = Error.prototype; return result; })(); });