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,
"varIdentifier": parse_varIdentifier,
"keyword": parse_keyword,
"selector": parse_selector,
"className": parse_className,
"string": parse_string,
"symbol": parse_symbol,
"bareSymbol": parse_bareSymbol,
"number": parse_number,
"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,
"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,
"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_varIdentifier() {
var cacheKey = "varIdentifier@" + 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_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_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_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_varIdentifier();
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_classReference() {
var cacheKey = "classReference@" + pos.offset;
var cachedResult = cache[cacheKey];
if (cachedResult) {
pos = clone(cachedResult.nextPos);
return cachedResult.result;
}
var result0;
var pos0;
pos0 = clone(pos);
result0 = parse_className();
if (result0 !== null) {
result0 = (function(offset, line, column, className) {
return smalltalk.ClassReferenceNode._new()
._position_((line).__at(column))
._value_(className);
})(pos0.offset, pos0.line, pos0.column, result0);
}
if (result0 === null) {
pos = clone(pos0);
}
cache[cacheKey] = {
nextPos: clone(pos),
result: result0
};
return result0;
}
function parse_reference() {
var cacheKey = "reference@" + pos.offset;
var cachedResult = cache[cacheKey];
if (cachedResult) {
pos = clone(cachedResult.nextPos);
return cachedResult.result;
}
var result0;
result0 = parse_variable();
if (result0 === null) {
result0 = parse_classReference();
}
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_reference();
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;
})();
});