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, "varIdentifier": parse_varIdentifier, "keyword": parse_keyword, "className": parse_className, "string": parse_string, "symbol": parse_symbol, "number": parse_number, "float": parse_float, "integer": parse_integer, "literalArray": parse_literalArray, "dynamicArray": parse_dynamicArray, "dynamicDictionary": parse_dynamicDictionary, "pseudoVariable": parse_pseudoVariable, "literal": parse_literal, "variable": parse_variable, "classReference": parse_classReference, "reference": parse_reference, "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, "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 = 0; var reportFailures = 0; var rightmostFailuresPos = 0; var rightmostFailuresExpected = []; 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 matchFailed(failure) { if (pos < rightmostFailuresPos) { return; } if (pos > rightmostFailuresPos) { rightmostFailuresPos = pos; rightmostFailuresExpected = []; } rightmostFailuresExpected.push(failure); } function parse_separator() { var result0, result1; if (/^[ \t\x0B\f\xA0\uFEFF\n\r\u2028\u2029]/.test(input.charAt(pos))) { result1 = input.charAt(pos); pos++; } 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))) { result1 = input.charAt(pos); pos++; } else { result1 = null; if (reportFailures === 0) { matchFailed("[ \\t\\x0B\\f\\xA0\\uFEFF\\n\\r\\u2028\\u2029]"); } } } } else { result0 = null; } return result0; } function parse_comments() { var result0, result1, result2, result3; var pos0; pos0 = pos; if (/^["]/.test(input.charAt(pos))) { result1 = input.charAt(pos); pos++; } else { result1 = null; if (reportFailures === 0) { matchFailed("[\"]"); } } if (result1 !== null) { result2 = []; if (/^[^"]/.test(input.charAt(pos))) { result3 = input.charAt(pos); pos++; } else { result3 = null; if (reportFailures === 0) { matchFailed("[^\"]"); } } while (result3 !== null) { result2.push(result3); if (/^[^"]/.test(input.charAt(pos))) { result3 = input.charAt(pos); pos++; } else { result3 = null; if (reportFailures === 0) { matchFailed("[^\"]"); } } } if (result2 !== null) { if (/^["]/.test(input.charAt(pos))) { result3 = input.charAt(pos); pos++; } else { result3 = null; if (reportFailures === 0) { matchFailed("[\"]"); } } if (result3 !== null) { result1 = [result1, result2, result3]; } else { result1 = null; pos = pos0; } } else { result1 = null; pos = pos0; } } else { result1 = null; pos = pos0; } if (result1 !== null) { result0 = []; while (result1 !== null) { result0.push(result1); pos0 = pos; if (/^["]/.test(input.charAt(pos))) { result1 = input.charAt(pos); pos++; } else { result1 = null; if (reportFailures === 0) { matchFailed("[\"]"); } } if (result1 !== null) { result2 = []; if (/^[^"]/.test(input.charAt(pos))) { result3 = input.charAt(pos); pos++; } else { result3 = null; if (reportFailures === 0) { matchFailed("[^\"]"); } } while (result3 !== null) { result2.push(result3); if (/^[^"]/.test(input.charAt(pos))) { result3 = input.charAt(pos); pos++; } else { result3 = null; if (reportFailures === 0) { matchFailed("[^\"]"); } } } if (result2 !== null) { if (/^["]/.test(input.charAt(pos))) { result3 = input.charAt(pos); pos++; } else { result3 = null; if (reportFailures === 0) { matchFailed("[\"]"); } } if (result3 !== null) { result1 = [result1, result2, result3]; } else { result1 = null; pos = pos0; } } else { result1 = null; pos = pos0; } } else { result1 = null; pos = pos0; } } } else { result0 = null; } return result0; } function parse_ws() { 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(); } } return result0; } function parse_identifier() { var result0, result1, result2; var pos0, pos1; pos0 = pos; pos1 = pos; if (/^[a-zA-Z]/.test(input.charAt(pos))) { result0 = input.charAt(pos); pos++; } else { result0 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z]"); } } if (result0 !== null) { result1 = []; if (/^[a-zA-Z0-9]/.test(input.charAt(pos))) { result2 = input.charAt(pos); pos++; } 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))) { result2 = input.charAt(pos); pos++; } else { result2 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z0-9]"); } } } if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } if (result0 !== null) { result0 = (function(offset, first, others) {return first + others.join("")})(pos0, result0[0], result0[1]); } if (result0 === null) { pos = pos0; } return result0; } function parse_varIdentifier() { var result0, result1, result2; var pos0, pos1; pos0 = pos; pos1 = pos; if (/^[a-z]/.test(input.charAt(pos))) { result0 = input.charAt(pos); pos++; } else { result0 = null; if (reportFailures === 0) { matchFailed("[a-z]"); } } if (result0 !== null) { result1 = []; if (/^[a-zA-Z0-9]/.test(input.charAt(pos))) { result2 = input.charAt(pos); pos++; } 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))) { result2 = input.charAt(pos); pos++; } else { result2 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z0-9]"); } } } if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } if (result0 !== null) { result0 = (function(offset, first, others) {return first + others.join("")})(pos0, result0[0], result0[1]); } if (result0 === null) { pos = pos0; } return result0; } function parse_keyword() { var result0, result1; var pos0, pos1; pos0 = pos; pos1 = pos; result0 = parse_identifier(); if (result0 !== null) { if (/^[:]/.test(input.charAt(pos))) { result1 = input.charAt(pos); pos++; } else { result1 = null; if (reportFailures === 0) { matchFailed("[:]"); } } if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } if (result0 !== null) { result0 = (function(offset, first, last) {return first + last})(pos0, result0[0], result0[1]); } if (result0 === null) { pos = pos0; } return result0; } function parse_className() { var result0, result1, result2; var pos0, pos1; pos0 = pos; pos1 = pos; if (/^[A-Z]/.test(input.charAt(pos))) { result0 = input.charAt(pos); pos++; } else { result0 = null; if (reportFailures === 0) { matchFailed("[A-Z]"); } } if (result0 !== null) { result1 = []; if (/^[a-zA-Z0-9]/.test(input.charAt(pos))) { result2 = input.charAt(pos); pos++; } 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))) { result2 = input.charAt(pos); pos++; } else { result2 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z0-9]"); } } } if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } if (result0 !== null) { result0 = (function(offset, first, others) {return first + others.join("")})(pos0, result0[0], result0[1]); } if (result0 === null) { pos = pos0; } return result0; } function parse_string() { var result0, result1, result2; var pos0, pos1, pos2; pos0 = pos; pos1 = pos; if (/^[']/.test(input.charAt(pos))) { result0 = input.charAt(pos); pos++; } else { result0 = null; if (reportFailures === 0) { matchFailed("[']"); } } if (result0 !== null) { result1 = []; pos2 = pos; if (input.substr(pos, 2) === "''") { result2 = "''"; pos += 2; } else { result2 = null; if (reportFailures === 0) { matchFailed("\"''\""); } } if (result2 !== null) { result2 = (function(offset) {return "'"})(pos2); } if (result2 === null) { pos = pos2; } if (result2 === null) { if (/^[^']/.test(input.charAt(pos))) { result2 = input.charAt(pos); pos++; } else { result2 = null; if (reportFailures === 0) { matchFailed("[^']"); } } } while (result2 !== null) { result1.push(result2); pos2 = pos; if (input.substr(pos, 2) === "''") { result2 = "''"; pos += 2; } else { result2 = null; if (reportFailures === 0) { matchFailed("\"''\""); } } if (result2 !== null) { result2 = (function(offset) {return "'"})(pos2); } if (result2 === null) { pos = pos2; } if (result2 === null) { if (/^[^']/.test(input.charAt(pos))) { result2 = input.charAt(pos); pos++; } else { result2 = null; if (reportFailures === 0) { matchFailed("[^']"); } } } } if (result1 !== null) { if (/^[']/.test(input.charAt(pos))) { result2 = input.charAt(pos); pos++; } else { result2 = null; if (reportFailures === 0) { matchFailed("[']"); } } if (result2 !== null) { result0 = [result0, result1, result2]; } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } if (result0 !== null) { result0 = (function(offset, val) { return smalltalk.ValueNode._new() ._value_(val.join("").replace(/\"/ig, '"')) })(pos0, result0[1]); } if (result0 === null) { pos = pos0; } return result0; } function parse_symbol() { var result0, result1, result2, result3; var pos0, pos1, pos2; pos0 = pos; pos1 = pos; if (input.charCodeAt(pos) === 35) { result0 = "#"; pos++; } else { result0 = null; if (reportFailures === 0) { matchFailed("\"#\""); } } if (result0 !== null) { result1 = []; pos2 = pos; if (/^[a-zA-Z0-9:]/.test(input.charAt(pos))) { result3 = input.charAt(pos); pos++; } else { result3 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z0-9:]"); } } if (result3 !== null) { result2 = []; while (result3 !== null) { result2.push(result3); if (/^[a-zA-Z0-9:]/.test(input.charAt(pos))) { result3 = input.charAt(pos); pos++; } else { result3 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z0-9:]"); } } } } else { result2 = null; } if (result2 !== null) { result2 = (function(offset, digits) {return digits.join("")})(pos2, result2); } if (result2 === null) { pos = pos2; } if (result2 === null) { pos2 = pos; result2 = parse_string(); if (result2 !== null) { result2 = (function(offset, node) {return node._value()})(pos2, result2); } if (result2 === null) { pos = pos2; } } while (result2 !== null) { result1.push(result2); pos2 = pos; if (/^[a-zA-Z0-9:]/.test(input.charAt(pos))) { result3 = input.charAt(pos); pos++; } else { result3 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z0-9:]"); } } if (result3 !== null) { result2 = []; while (result3 !== null) { result2.push(result3); if (/^[a-zA-Z0-9:]/.test(input.charAt(pos))) { result3 = input.charAt(pos); pos++; } else { result3 = null; if (reportFailures === 0) { matchFailed("[a-zA-Z0-9:]"); } } } } else { result2 = null; } if (result2 !== null) { result2 = (function(offset, digits) {return digits.join("")})(pos2, result2); } if (result2 === null) { pos = pos2; } if (result2 === null) { pos2 = pos; result2 = parse_string(); if (result2 !== null) { result2 = (function(offset, node) {return node._value()})(pos2, result2); } if (result2 === null) { pos = pos2; } } } if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } if (result0 !== null) { result0 = (function(offset, val) { return smalltalk.ValueNode._new() ._value_(smalltalk.symbolFor(val.join("").replace(/\"/ig, '"'))) })(pos0, result0[1]); } if (result0 === null) { pos = pos0; } return result0; } function parse_number() { var result0; var pos0; pos0 = pos; result0 = parse_float(); if (result0 === null) { result0 = parse_integer(); } if (result0 !== null) { result0 = (function(offset, n) { return smalltalk.ValueNode._new() ._value_(n) })(pos0, result0); } if (result0 === null) { pos = pos0; } return result0; } function parse_float() { var result0, result1, result2, result3, result4; var pos0, pos1; pos0 = pos; pos1 = pos; if (/^[\-]/.test(input.charAt(pos))) { result0 = input.charAt(pos); pos++; } else { result0 = null; if (reportFailures === 0) { matchFailed("[\\-]"); } } result0 = result0 !== null ? result0 : ""; if (result0 !== null) { if (/^[0-9]/.test(input.charAt(pos))) { result2 = input.charAt(pos); pos++; } 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))) { result2 = input.charAt(pos); pos++; } else { result2 = null; if (reportFailures === 0) { matchFailed("[0-9]"); } } } } else { result1 = null; } if (result1 !== null) { if (input.charCodeAt(pos) === 46) { result2 = "."; pos++; } else { result2 = null; if (reportFailures === 0) { matchFailed("\".\""); } } if (result2 !== null) { if (/^[0-9]/.test(input.charAt(pos))) { result4 = input.charAt(pos); pos++; } 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))) { result4 = input.charAt(pos); pos++; } else { result4 = null; if (reportFailures === 0) { matchFailed("[0-9]"); } } } } else { result3 = null; } if (result3 !== null) { result0 = [result0, result1, result2, result3]; } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } if (result0 !== null) { result0 = (function(offset, neg, int, dec) {return parseFloat((neg + int.join("") + "." + dec.join("")), 10)})(pos0, result0[0], result0[1], result0[3]); } if (result0 === null) { pos = pos0; } return result0; } function parse_integer() { var result0, result1, result2; var pos0, pos1; pos0 = pos; pos1 = pos; if (/^[\-]/.test(input.charAt(pos))) { result0 = input.charAt(pos); pos++; } else { result0 = null; if (reportFailures === 0) { matchFailed("[\\-]"); } } result0 = result0 !== null ? result0 : ""; if (result0 !== null) { if (/^[0-9]/.test(input.charAt(pos))) { result2 = input.charAt(pos); pos++; } 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))) { result2 = input.charAt(pos); pos++; } else { result2 = null; if (reportFailures === 0) { matchFailed("[0-9]"); } } } } else { result1 = null; } if (result1 !== null) { result0 = [result0, result1]; } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } if (result0 !== null) { result0 = (function(offset, neg, digits) {return (parseInt(neg+digits.join(""), 10))})(pos0, result0[0], result0[1]); } if (result0 === null) { pos = pos0; } return result0; } function parse_literalArray() { var result0, result1, result2, result3, result4; var pos0, pos1, pos2, pos3; pos0 = pos; pos1 = pos; if (input.substr(pos, 2) === "#(") { result0 = "#("; pos += 2; } else { result0 = null; if (reportFailures === 0) { matchFailed("\"#(\""); } } if (result0 !== null) { result1 = parse_ws(); if (result1 !== null) { result2 = []; pos2 = pos; pos3 = pos; result3 = parse_literal(); if (result3 !== null) { result4 = parse_ws(); if (result4 !== null) { result3 = [result3, result4]; } else { result3 = null; pos = pos3; } } else { result3 = null; pos = pos3; } if (result3 !== null) { result3 = (function(offset, lit) {return lit._value()})(pos2, result3[0]); } if (result3 === null) { pos = pos2; } while (result3 !== null) { result2.push(result3); pos2 = pos; pos3 = pos; result3 = parse_literal(); if (result3 !== null) { result4 = parse_ws(); if (result4 !== null) { result3 = [result3, result4]; } else { result3 = null; pos = pos3; } } else { result3 = null; pos = pos3; } if (result3 !== null) { result3 = (function(offset, lit) {return lit._value()})(pos2, result3[0]); } if (result3 === null) { pos = pos2; } } if (result2 !== null) { result3 = parse_ws(); if (result3 !== null) { if (input.charCodeAt(pos) === 41) { result4 = ")"; pos++; } else { result4 = null; if (reportFailures === 0) { matchFailed("\")\""); } } if (result4 !== null) { result0 = [result0, result1, result2, result3, result4]; } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } if (result0 !== null) { result0 = (function(offset, lits) { return smalltalk.ValueNode._new() ._value_(lits) })(pos0, result0[2]); } if (result0 === null) { pos = pos0; } return result0; } function parse_dynamicArray() { var result0, result1, result2, result3, result4, result5; var pos0, pos1; pos0 = pos; pos1 = pos; if (input.charCodeAt(pos) === 123) { result0 = "{"; pos++; } 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) === 46) { result4 = "."; pos++; } else { result4 = null; if (reportFailures === 0) { matchFailed("\".\""); } } result4 = result4 !== null ? result4 : ""; if (result4 !== null) { if (input.charCodeAt(pos) === 125) { result5 = "}"; pos++; } else { result5 = null; if (reportFailures === 0) { matchFailed("\"}\""); } } if (result5 !== null) { result0 = [result0, result1, result2, result3, result4, result5]; } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } if (result0 !== null) { result0 = (function(offset, expressions) { return smalltalk.DynamicArrayNode._new() ._nodes_(expressions) })(pos0, result0[2]); } if (result0 === null) { pos = pos0; } return result0; } function parse_dynamicDictionary() { var result0, result1, result2, result3, result4; var pos0, pos1; pos0 = pos; pos1 = pos; if (input.substr(pos, 2) === "#{") { result0 = "#{"; 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) === 125) { result4 = "}"; pos++; } else { result4 = null; if (reportFailures === 0) { matchFailed("\"}\""); } } if (result4 !== null) { result0 = [result0, result1, result2, result3, result4]; } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } if (result0 !== null) { result0 = (function(offset, expressions) { return smalltalk.DynamicDictionaryNode._new() ._nodes_(expressions) })(pos0, result0[2]); } if (result0 === null) { pos = pos0; } return result0; } function parse_pseudoVariable() { var result0; var pos0, pos1; pos0 = pos; pos1 = pos; if (input.substr(pos, 4) === "true") { result0 = "true"; pos += 4; } else { result0 = null; if (reportFailures === 0) { matchFailed("\"true\""); } } if (result0 !== null) { result0 = (function(offset) {return true})(pos1); } if (result0 === null) { pos = pos1; } if (result0 === null) { pos1 = pos; if (input.substr(pos, 5) === "false") { result0 = "false"; pos += 5; } else { result0 = null; if (reportFailures === 0) { matchFailed("\"false\""); } } if (result0 !== null) { result0 = (function(offset) {return false})(pos1); } if (result0 === null) { pos = pos1; } if (result0 === null) { pos1 = pos; if (input.substr(pos, 3) === "nil") { result0 = "nil"; pos += 3; } else { result0 = null; if (reportFailures === 0) { matchFailed("\"nil\""); } } if (result0 !== null) { result0 = (function(offset) {return nil})(pos1); } if (result0 === null) { pos = pos1; } } } if (result0 !== null) { result0 = (function(offset, val) { return smalltalk.ValueNode._new()._value_(val) })(pos0, result0); } if (result0 === null) { pos = pos0; } return result0; } function parse_literal() { var result0; result0 = parse_pseudoVariable(); if (result0 === null) { result0 = parse_number(); if (result0 === null) { result0 = parse_literalArray(); if (result0 === null) { result0 = parse_dynamicDictionary(); if (result0 === null) { result0 = parse_dynamicArray(); if (result0 === null) { result0 = parse_string(); if (result0 === null) { result0 = parse_symbol(); if (result0 === null) { result0 = parse_block(); } } } } } } } return result0; } function parse_variable() { var result0; var pos0; pos0 = pos; result0 = parse_varIdentifier(); if (result0 !== null) { result0 = (function(offset, identifier) { return smalltalk.VariableNode._new() ._value_(identifier) })(pos0, result0); } if (result0 === null) { pos = pos0; } return result0; } function parse_classReference() { var result0; var pos0; pos0 = pos; result0 = parse_className(); if (result0 !== null) { result0 = (function(offset, className) { return smalltalk.ClassReferenceNode._new() ._value_(className) })(pos0, result0); } if (result0 === null) { pos = pos0; } return result0; } function parse_reference() { var result0; result0 = parse_variable(); if (result0 === null) { result0 = parse_classReference(); } return result0; } function parse_keywordPair() { var result0, result1, result2, result3; var pos0, pos1; pos0 = pos; pos1 = 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 = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } if (result0 !== null) { result0 = (function(offset, key, arg) {return {key:key, arg: arg}})(pos0, result0[0], result0[2]); } if (result0 === null) { pos = pos0; } return result0; } function parse_binarySelector() { var result0, result1; var pos0; pos0 = pos; if (/^[\\+*\/=><,@%~|&\-]/.test(input.charAt(pos))) { result1 = input.charAt(pos); pos++; } else { result1 = null; if (reportFailures === 0) { matchFailed("[\\\\+*\\/=><,@%~|&\\-]"); } } if (result1 !== null) { result0 = []; while (result1 !== null) { result0.push(result1); if (/^[\\+*\/=><,@%~|&\-]/.test(input.charAt(pos))) { result1 = input.charAt(pos); pos++; } else { result1 = null; if (reportFailures === 0) { matchFailed("[\\\\+*\\/=><,@%~|&\\-]"); } } } } else { result0 = null; } if (result0 !== null) { result0 = (function(offset, bin) {return bin.join("").replace(/\\/g, '\\\\')})(pos0, result0); } if (result0 === null) { pos = pos0; } return result0; } function parse_keywordPattern() { var result0, result1, result2, result3, result4; var pos0, pos1, pos2; pos0 = pos; pos1 = pos; pos2 = 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 = pos2; } } else { result1 = null; pos = pos2; } } else { result1 = null; pos = pos2; } } else { result1 = null; pos = pos2; } if (result1 !== null) { result1 = (function(offset, key, arg) {return {key:key, arg: arg}})(pos1, result1[1], result1[3]); } if (result1 === null) { pos = pos1; } if (result1 !== null) { result0 = []; while (result1 !== null) { result0.push(result1); pos1 = pos; pos2 = 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 = pos2; } } else { result1 = null; pos = pos2; } } else { result1 = null; pos = pos2; } } else { result1 = null; pos = pos2; } if (result1 !== null) { result1 = (function(offset, key, arg) {return {key:key, arg: arg}})(pos1, result1[1], result1[3]); } if (result1 === null) { pos = pos1; } } } else { result0 = null; } if (result0 !== null) { result0 = (function(offset, pairs) { var keywords = []; var params = []; for(var i=0;i>") { result2 = ">>"; pos += 2; } else { result2 = null; if (reportFailures === 0) { matchFailed("\">>\""); } } if (result2 !== null) { result2 = (function(offset) {return ">"})(pos2); } if (result2 === null) { pos = pos2; } if (result2 === null) { if (/^[^>]/.test(input.charAt(pos))) { result2 = input.charAt(pos); pos++; } else { result2 = null; if (reportFailures === 0) { matchFailed("[^>]"); } } } while (result2 !== null) { result1.push(result2); pos2 = pos; if (input.substr(pos, 2) === ">>") { result2 = ">>"; pos += 2; } else { result2 = null; if (reportFailures === 0) { matchFailed("\">>\""); } } if (result2 !== null) { result2 = (function(offset) {return ">"})(pos2); } if (result2 === null) { pos = pos2; } if (result2 === null) { if (/^[^>]/.test(input.charAt(pos))) { result2 = input.charAt(pos); pos++; } else { result2 = null; if (reportFailures === 0) { matchFailed("[^>]"); } } } } if (result1 !== null) { if (input.charCodeAt(pos) === 62) { result2 = ">"; pos++; } else { result2 = null; if (reportFailures === 0) { matchFailed("\">\""); } } if (result2 !== null) { result0 = [result0, result1, result2]; } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } if (result0 !== null) { result0 = (function(offset, val) { return smalltalk.JSStatementNode._new() ._source_(val.join("")) })(pos0, result0[1]); } if (result0 === null) { pos = pos0; } return result0; } function parse_method() { var result0, result1, result2, result3, result4; var pos0, pos1; pos0 = pos; pos1 = 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 = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } } else { result0 = null; pos = pos1; } if (result0 !== null) { result0 = (function(offset, pattern, sequence) { return smalltalk.MethodNode._new() ._selector_(pattern[0]) ._arguments_(pattern[1]) ._nodes_([sequence]) })(pos0, result0[1], result0[3]); } if (result0 === null) { pos = pos0; } 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; } function computeErrorPosition() { /* * The first idea was to use |String.split| to break the input up to the * error position along newlines and derive the line and column from * there. However IE's |split| implementation is so broken that it was * enough to prevent it. */ var line = 1; var column = 1; var seenCR = false; for (var i = 0; i < Math.max(pos, rightmostFailuresPos); i++) { var ch = input.charAt(i); if (ch === "\n") { if (!seenCR) { line++; } column = 1; seenCR = false; } else if (ch === "\r" || ch === "\u2028" || ch === "\u2029") { line++; column = 1; seenCR = true; } else { column++; seenCR = false; } } return { line: line, column: column }; } 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 === input.length| * - |rightmostFailuresExpected| may or may not contain something * * 2. The parser successfully parsed only a part of the input. * * - |result !== null| * - |pos < input.length| * - |rightmostFailuresExpected| may or may not contain something * * 3. The parser did not successfully parse any part of the input. * * - |result === null| * - |pos === 0| * - |rightmostFailuresExpected| contains at least one failure * * All code following this comment (including called functions) must * handle these states. */ if (result === null || pos !== input.length) { var offset = Math.max(pos, rightmostFailuresPos); var found = offset < input.length ? input.charAt(offset) : null; var errorPosition = computeErrorPosition(); 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; })();