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<pairs.length;i++){
keywords.push(pairs[i].key);
}
for(var i=0;i<pairs.length;i++){
params.push(pairs[i].arg);
}
return [keywords.join(""), params]
})(pos0, result0);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_binaryPattern() {
var result0, result1, result2, result3;
var pos0, pos1;
pos0 = pos;
pos1 = 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 = pos1;
}
} else {
result0 = null;
pos = pos1;
}
} else {
result0 = null;
pos = pos1;
}
} else {
result0 = null;
pos = pos1;
}
if (result0 !== null) {
result0 = (function(offset, selector, arg) {return [selector, [arg]]})(pos0, result0[1], result0[3]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_unaryPattern() {
var result0, result1;
var pos0, pos1;
pos0 = pos;
pos1 = pos;
result0 = parse_ws();
if (result0 !== null) {
result1 = parse_identifier();
if (result1 !== null) {
result0 = [result0, result1];
} else {
result0 = null;
pos = pos1;
}
} else {
result0 = null;
pos = pos1;
}
if (result0 !== null) {
result0 = (function(offset, selector) {return [selector, []]})(pos0, result0[1]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_expression() {
var result0;
result0 = parse_assignment();
if (result0 === null) {
result0 = parse_cascade();
if (result0 === null) {
result0 = parse_keywordSend();
if (result0 === null) {
result0 = parse_binarySend();
if (result0 === null) {
result0 = parse_jsStatement();
}
}
}
}
return result0;
}
function parse_expressionList() {
var result0, result1, result2, result3;
var pos0, pos1;
pos0 = pos;
pos1 = pos;
result0 = parse_ws();
if (result0 !== null) {
if (input.charCodeAt(pos) === 46) {
result1 = ".";
pos++;
} 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 = pos1;
}
} else {
result0 = null;
pos = pos1;
}
} else {
result0 = null;
pos = pos1;
}
} else {
result0 = null;
pos = pos1;
}
if (result0 !== null) {
result0 = (function(offset, expression) {return expression})(pos0, result0[3]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_expressions() {
var result0, result1, result2;
var pos0, pos1;
pos0 = pos;
pos1 = 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 = pos1;
}
} else {
result0 = null;
pos = pos1;
}
if (result0 !== null) {
result0 = (function(offset, first, others) {
var result = [first];
for(var i=0;i<others.length;i++) {
result.push(others[i]);
}
return result;
})(pos0, result0[0], result0[1]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_assignment() {
var result0, result1, result2, result3, result4;
var pos0, pos1;
pos0 = pos;
pos1 = pos;
result0 = parse_variable();
if (result0 !== null) {
result1 = parse_ws();
if (result1 !== null) {
if (input.substr(pos, 2) === ":=") {
result2 = ":=";
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 = 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, variable, expression) {
return smalltalk.AssignmentNode._new()
._left_(variable)
._right_(expression)
})(pos0, result0[0], result0[4]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_ret() {
var result0, result1, result2, result3, result4;
var pos0, pos1;
pos0 = pos;
pos1 = pos;
if (input.charCodeAt(pos) === 94) {
result0 = "^";
pos++;
} 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) === 46) {
result4 = ".";
pos++;
} else {
result4 = null;
if (reportFailures === 0) {
matchFailed("\".\"");
}
}
result4 = result4 !== null ? result4 : "";
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, expression) {
return smalltalk.ReturnNode._new()
._nodes_([expression])
})(pos0, result0[2]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_temps() {
var result0, result1, result2, result3, result4;
var pos0, pos1, pos2, pos3;
pos0 = pos;
pos1 = pos;
if (input.charCodeAt(pos) === 124) {
result0 = "|";
pos++;
} else {
result0 = null;
if (reportFailures === 0) {
matchFailed("\"|\"");
}
}
if (result0 !== null) {
result1 = [];
pos2 = pos;
pos3 = 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 = pos3;
}
} else {
result2 = null;
pos = pos3;
}
} else {
result2 = null;
pos = pos3;
}
if (result2 !== null) {
result2 = (function(offset, variable) {return variable})(pos2, result2[1]);
}
if (result2 === null) {
pos = pos2;
}
while (result2 !== null) {
result1.push(result2);
pos2 = pos;
pos3 = 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 = pos3;
}
} else {
result2 = null;
pos = pos3;
}
} else {
result2 = null;
pos = pos3;
}
if (result2 !== null) {
result2 = (function(offset, variable) {return variable})(pos2, result2[1]);
}
if (result2 === null) {
pos = pos2;
}
}
if (result1 !== null) {
if (input.charCodeAt(pos) === 124) {
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, vars) {return vars})(pos0, result0[1]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_blockParamList() {
var result0, result1, result2, result3, result4;
var pos0, pos1, pos2, pos3;
pos0 = pos;
pos1 = pos;
pos2 = pos;
pos3 = pos;
result1 = parse_ws();
if (result1 !== null) {
if (input.charCodeAt(pos) === 58) {
result2 = ":";
pos++;
} 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 = pos3;
}
} else {
result1 = null;
pos = pos3;
}
} else {
result1 = null;
pos = pos3;
}
} else {
result1 = null;
pos = pos3;
}
if (result1 !== null) {
result1 = (function(offset, param) {return param})(pos2, result1[3]);
}
if (result1 === null) {
pos = pos2;
}
if (result1 !== null) {
result0 = [];
while (result1 !== null) {
result0.push(result1);
pos2 = pos;
pos3 = pos;
result1 = parse_ws();
if (result1 !== null) {
if (input.charCodeAt(pos) === 58) {
result2 = ":";
pos++;
} 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 = pos3;
}
} else {
result1 = null;
pos = pos3;
}
} else {
result1 = null;
pos = pos3;
}
} else {
result1 = null;
pos = pos3;
}
if (result1 !== null) {
result1 = (function(offset, param) {return param})(pos2, result1[3]);
}
if (result1 === null) {
pos = pos2;
}
}
} else {
result0 = null;
}
if (result0 !== null) {
result1 = parse_ws();
if (result1 !== null) {
if (input.charCodeAt(pos) === 124) {
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, params) {return params})(pos0, result0[0]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_subexpression() {
var result0, result1, result2, result3, result4;
var pos0, pos1;
pos0 = pos;
pos1 = pos;
if (input.charCodeAt(pos) === 40) {
result0 = "(";
pos++;
} 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) === 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, expression) {return expression})(pos0, result0[2]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_statements() {
var result0, result1, result2, result3, result4, result5, result6;
var pos0, pos1;
pos0 = pos;
pos1 = pos;
result0 = parse_ret();
if (result0 !== null) {
result1 = [];
if (/^[.]/.test(input.charAt(pos))) {
result2 = input.charAt(pos);
pos++;
} else {
result2 = null;
if (reportFailures === 0) {
matchFailed("[.]");
}
}
while (result2 !== null) {
result1.push(result2);
if (/^[.]/.test(input.charAt(pos))) {
result2 = input.charAt(pos);
pos++;
} else {
result2 = 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, ret) {return [ret]})(pos0, result0[0]);
}
if (result0 === null) {
pos = pos0;
}
if (result0 === null) {
pos0 = pos;
pos1 = pos;
result0 = parse_expressions();
if (result0 !== null) {
result1 = parse_ws();
if (result1 !== null) {
if (/^[.]/.test(input.charAt(pos))) {
result3 = input.charAt(pos);
pos++;
} else {
result3 = null;
if (reportFailures === 0) {
matchFailed("[.]");
}
}
if (result3 !== null) {
result2 = [];
while (result3 !== null) {
result2.push(result3);
if (/^[.]/.test(input.charAt(pos))) {
result3 = input.charAt(pos);
pos++;
} 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))) {
result6 = input.charAt(pos);
pos++;
} else {
result6 = null;
if (reportFailures === 0) {
matchFailed("[.]");
}
}
while (result6 !== null) {
result5.push(result6);
if (/^[.]/.test(input.charAt(pos))) {
result6 = input.charAt(pos);
pos++;
} else {
result6 = 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, exps, ret) {
var expressions = exps;
expressions.push(ret);
return expressions
})(pos0, result0[0], result0[4]);
}
if (result0 === null) {
pos = pos0;
}
if (result0 === null) {
pos0 = pos;
pos1 = pos;
result0 = parse_expressions();
result0 = result0 !== null ? result0 : "";
if (result0 !== null) {
result1 = [];
if (/^[.]/.test(input.charAt(pos))) {
result2 = input.charAt(pos);
pos++;
} else {
result2 = null;
if (reportFailures === 0) {
matchFailed("[.]");
}
}
while (result2 !== null) {
result1.push(result2);
if (/^[.]/.test(input.charAt(pos))) {
result2 = input.charAt(pos);
pos++;
} else {
result2 = 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, expressions) {
return expressions || []
})(pos0, result0[0]);
}
if (result0 === null) {
pos = pos0;
}
}
}
return result0;
}
function parse_sequence() {
var result0, result1, result2, result3;
var pos0, pos1;
pos0 = pos;
pos1 = 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 = pos1;
}
} else {
result0 = null;
pos = pos1;
}
} else {
result0 = null;
pos = pos1;
}
} else {
result0 = null;
pos = pos1;
}
if (result0 !== null) {
result0 = (function(offset, temps, statements) {
return smalltalk.SequenceNode._new()
._temps_(temps || [])
._nodes_(statements || [])
})(pos0, result0[0], result0[2]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_block() {
var result0, result1, result2, result3, result4, result5, result6;
var pos0, pos1;
pos0 = pos;
pos1 = pos;
if (input.charCodeAt(pos) === 91) {
result0 = "[";
pos++;
} 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) === 93) {
result6 = "]";
pos++;
} else {
result6 = null;
if (reportFailures === 0) {
matchFailed("\"]\"");
}
}
if (result6 !== null) {
result0 = [result0, result1, result2, result3, result4, result5, result6];
} 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;
}
} else {
result0 = null;
pos = pos1;
}
if (result0 !== null) {
result0 = (function(offset, params, sequence) {
return smalltalk.BlockNode._new()
._parameters_(params || [])
._nodes_([sequence._asBlockSequenceNode()])
})(pos0, result0[2], result0[4]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_operand() {
var result0;
result0 = parse_literal();
if (result0 === null) {
result0 = parse_reference();
if (result0 === null) {
result0 = parse_subexpression();
}
}
return result0;
}
function parse_unaryMessage() {
var result0, result1, result2;
var pos0, pos1, pos2;
pos0 = pos;
pos1 = pos;
result0 = parse_ws();
if (result0 !== null) {
result1 = parse_identifier();
if (result1 !== null) {
pos2 = pos;
reportFailures++;
if (/^[:]/.test(input.charAt(pos))) {
result2 = input.charAt(pos);
pos++;
} else {
result2 = null;
if (reportFailures === 0) {
matchFailed("[:]");
}
}
reportFailures--;
if (result2 === null) {
result2 = "";
} else {
result2 = null;
pos = pos2;
}
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, selector) {
return smalltalk.SendNode._new()
._selector_(selector)
})(pos0, result0[1]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_unaryTail() {
var result0, result1, result2, result3;
var pos0, pos1;
pos0 = pos;
pos1 = 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 = pos1;
}
} else {
result0 = null;
pos = pos1;
}
} else {
result0 = null;
pos = pos1;
}
} else {
result0 = null;
pos = pos1;
}
if (result0 !== null) {
result0 = (function(offset, message, tail) {
if(tail) {
return tail._valueForReceiver_(message);
}
else {
return message;
}
})(pos0, result0[0], result0[2]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_unarySend() {
var result0, result1, result2;
var pos0, pos1;
pos0 = pos;
pos1 = 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 = pos1;
}
} else {
result0 = null;
pos = pos1;
}
} else {
result0 = null;
pos = pos1;
}
if (result0 !== null) {
result0 = (function(offset, receiver, tail) {
if(tail) {
return tail._valueForReceiver_(receiver);
}
else {
return receiver;
}
})(pos0, result0[0], result0[2]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_binaryMessage() {
var result0, result1, result2, result3;
var pos0, pos1;
pos0 = pos;
pos1 = 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 = pos1;
}
} else {
result0 = null;
pos = pos1;
}
} else {
result0 = null;
pos = pos1;
}
} else {
result0 = null;
pos = pos1;
}
if (result0 !== null) {
result0 = (function(offset, selector, arg) {
return smalltalk.SendNode._new()
._selector_(selector)
._arguments_([arg])
})(pos0, result0[1], result0[3]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_binaryTail() {
var result0, result1;
var pos0, pos1;
pos0 = pos;
pos1 = pos;
result0 = parse_binaryMessage();
if (result0 !== null) {
result1 = parse_binaryTail();
result1 = result1 !== null ? result1 : "";
if (result1 !== null) {
result0 = [result0, result1];
} else {
result0 = null;
pos = pos1;
}
} else {
result0 = null;
pos = pos1;
}
if (result0 !== null) {
result0 = (function(offset, message, tail) {
if(tail) {
return tail._valueForReceiver_(message);
}
else {
return message;
}
})(pos0, result0[0], result0[1]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_binarySend() {
var result0, result1;
var pos0, pos1;
pos0 = pos;
pos1 = pos;
result0 = parse_unarySend();
if (result0 !== null) {
result1 = parse_binaryTail();
result1 = result1 !== null ? result1 : "";
if (result1 !== null) {
result0 = [result0, result1];
} else {
result0 = null;
pos = pos1;
}
} else {
result0 = null;
pos = pos1;
}
if (result0 !== null) {
result0 = (function(offset, receiver, tail) {
if(tail) {
return tail._valueForReceiver_(receiver);
}
else {
return receiver;
}
})(pos0, result0[0], result0[1]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_keywordMessage() {
var result0, result1, result2, result3;
var pos0, pos1, pos2, pos3;
pos0 = pos;
pos1 = pos;
result0 = parse_ws();
if (result0 !== null) {
pos2 = pos;
pos3 = pos;
result2 = parse_keywordPair();
if (result2 !== null) {
result3 = parse_ws();
if (result3 !== null) {
result2 = [result2, result3];
} else {
result2 = null;
pos = pos3;
}
} else {
result2 = null;
pos = pos3;
}
if (result2 !== null) {
result2 = (function(offset, pair) {return pair})(pos2, result2[0]);
}
if (result2 === null) {
pos = pos2;
}
if (result2 !== null) {
result1 = [];
while (result2 !== null) {
result1.push(result2);
pos2 = pos;
pos3 = pos;
result2 = parse_keywordPair();
if (result2 !== null) {
result3 = parse_ws();
if (result3 !== null) {
result2 = [result2, result3];
} else {
result2 = null;
pos = pos3;
}
} else {
result2 = null;
pos = pos3;
}
if (result2 !== null) {
result2 = (function(offset, pair) {return pair})(pos2, result2[0]);
}
if (result2 === null) {
pos = pos2;
}
}
} 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, 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()
._selector_(selector.join(""))
._arguments_(args)
})(pos0, result0[1]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_keywordSend() {
var result0, result1;
var pos0, pos1;
pos0 = pos;
pos1 = pos;
result0 = parse_binarySend();
if (result0 !== null) {
result1 = parse_keywordMessage();
if (result1 !== null) {
result0 = [result0, result1];
} else {
result0 = null;
pos = pos1;
}
} else {
result0 = null;
pos = pos1;
}
if (result0 !== null) {
result0 = (function(offset, receiver, tail) {
return tail._valueForReceiver_(receiver);
})(pos0, result0[0], result0[1]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_message() {
var result0;
result0 = parse_binaryMessage();
if (result0 === null) {
result0 = parse_unaryMessage();
if (result0 === null) {
result0 = parse_keywordMessage();
}
}
return result0;
}
function parse_cascade() {
var result0, result1, result2, result3, result4, result5, result6, result7;
var pos0, pos1, pos2, pos3;
pos0 = pos;
pos1 = pos;
result0 = parse_ws();
if (result0 !== null) {
result1 = parse_keywordSend();
if (result1 === null) {
result1 = parse_binarySend();
}
if (result1 !== null) {
pos2 = pos;
pos3 = pos;
result3 = parse_ws();
if (result3 !== null) {
if (input.charCodeAt(pos) === 59) {
result4 = ";";
pos++;
} 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 = pos3;
}
} else {
result3 = null;
pos = pos3;
}
} else {
result3 = null;
pos = pos3;
}
} else {
result3 = null;
pos = pos3;
}
} else {
result3 = null;
pos = pos3;
}
if (result3 !== null) {
result3 = (function(offset, mess) {return mess})(pos2, result3[3]);
}
if (result3 === null) {
pos = pos2;
}
if (result3 !== null) {
result2 = [];
while (result3 !== null) {
result2.push(result3);
pos2 = pos;
pos3 = pos;
result3 = parse_ws();
if (result3 !== null) {
if (input.charCodeAt(pos) === 59) {
result4 = ";";
pos++;
} 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 = pos3;
}
} else {
result3 = null;
pos = pos3;
}
} else {
result3 = null;
pos = pos3;
}
} else {
result3 = null;
pos = pos3;
}
} else {
result3 = null;
pos = pos3;
}
if (result3 !== null) {
result3 = (function(offset, mess) {return mess})(pos2, result3[3]);
}
if (result3 === null) {
pos = pos2;
}
}
} else {
result2 = null;
}
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, send, messages) {
var cascade = [];
cascade.push(send);
for(var i=0;i<messages.length;i++) {
cascade.push(messages[i]);
}
return smalltalk.CascadeNode._new()
._receiver_(send._receiver())
._nodes_(cascade)
})(pos0, result0[1], result0[2]);
}
if (result0 === null) {
pos = pos0;
}
return result0;
}
function parse_jsStatement() {
var result0, result1, result2;
var pos0, pos1, pos2;
pos0 = pos;
pos1 = pos;
if (input.charCodeAt(pos) === 60) {
result0 = "<";
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 (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;
})();