asl-path-validator
Version:
Validates the path expressions for the Amazon States Language
1,204 lines (1,203 loc) • 125 kB
JavaScript
"use strict";
function peg$subclass(child, parent) {
function C() { this.constructor = child; }
C.prototype = parent.prototype;
child.prototype = new C();
}
function peg$SyntaxError(message, expected, found, location) {
var self = Error.call(this, message);
if (Object.setPrototypeOf) {
Object.setPrototypeOf(self, peg$SyntaxError.prototype);
}
self.expected = expected;
self.found = found;
self.location = location;
self.name = "SyntaxError";
return self;
}
peg$subclass(peg$SyntaxError, Error);
function peg$padEnd(str, targetLength, padString) {
padString = padString || " ";
if (str.length > targetLength) {
return str;
}
targetLength -= str.length;
padString += padString.repeat(targetLength);
return str + padString.slice(0, targetLength);
}
peg$SyntaxError.prototype.format = function (sources) {
var str = "Error: " + this.message;
if (this.location) {
var src = null;
var k;
for (k = 0; k < sources.length; k++) {
if (sources[k].source === this.location.source) {
src = sources[k].text.split(/\r\n|\n|\r/g);
break;
}
}
var s = this.location.start;
var offset_s = (this.location.source && (typeof this.location.source.offset === "function"))
? this.location.source.offset(s)
: s;
var loc = this.location.source + ":" + offset_s.line + ":" + offset_s.column;
if (src) {
var e = this.location.end;
var filler = peg$padEnd("", offset_s.line.toString().length, ' ');
var line = src[s.line - 1];
var last = s.line === e.line ? e.column : line.length + 1;
var hatLen = (last - s.column) || 1;
str += "\n --> " + loc + "\n"
+ filler + " |\n"
+ offset_s.line + " | " + line + "\n"
+ filler + " | " + peg$padEnd("", s.column - 1, ' ')
+ peg$padEnd("", hatLen, "^");
}
else {
str += "\n at " + loc;
}
}
return str;
};
peg$SyntaxError.buildMessage = function (expected, found) {
var DESCRIBE_EXPECTATION_FNS = {
literal: function (expectation) {
return "\"" + literalEscape(expectation.text) + "\"";
},
class: function (expectation) {
var escapedParts = expectation.parts.map(function (part) {
return Array.isArray(part)
? classEscape(part[0]) + "-" + classEscape(part[1])
: classEscape(part);
});
return "[" + (expectation.inverted ? "^" : "") + escapedParts.join("") + "]";
},
any: function () {
return "any character";
},
end: function () {
return "end of input";
},
other: function (expectation) {
return expectation.description;
}
};
function hex(ch) {
return ch.charCodeAt(0).toString(16).toUpperCase();
}
function literalEscape(s) {
return s
.replace(/\\/g, "\\\\")
.replace(/"/g, "\\\"")
.replace(/\0/g, "\\0")
.replace(/\t/g, "\\t")
.replace(/\n/g, "\\n")
.replace(/\r/g, "\\r")
.replace(/[\x00-\x0F]/g, function (ch) { return "\\x0" + hex(ch); })
.replace(/[\x10-\x1F\x7F-\x9F]/g, function (ch) { return "\\x" + hex(ch); });
}
function classEscape(s) {
return s
.replace(/\\/g, "\\\\")
.replace(/\]/g, "\\]")
.replace(/\^/g, "\\^")
.replace(/-/g, "\\-")
.replace(/\0/g, "\\0")
.replace(/\t/g, "\\t")
.replace(/\n/g, "\\n")
.replace(/\r/g, "\\r")
.replace(/[\x00-\x0F]/g, function (ch) { return "\\x0" + hex(ch); })
.replace(/[\x10-\x1F\x7F-\x9F]/g, function (ch) { return "\\x" + hex(ch); });
}
function describeExpectation(expectation) {
return DESCRIBE_EXPECTATION_FNS[expectation.type](expectation);
}
function describeExpected(expected) {
var descriptions = expected.map(describeExpectation);
var i, j;
descriptions.sort();
if (descriptions.length > 0) {
for (i = 1, j = 1; i < descriptions.length; i++) {
if (descriptions[i - 1] !== descriptions[i]) {
descriptions[j] = descriptions[i];
j++;
}
}
descriptions.length = j;
}
switch (descriptions.length) {
case 1:
return descriptions[0];
case 2:
return descriptions[0] + " or " + descriptions[1];
default:
return descriptions.slice(0, -1).join(", ")
+ ", or "
+ descriptions[descriptions.length - 1];
}
}
function describeFound(found) {
return found ? "\"" + literalEscape(found) + "\"" : "end of input";
}
return "Expected " + describeExpected(expected) + " but " + describeFound(found) + " found.";
};
function peg$parse(input, options) {
options = options !== undefined ? options : {};
var peg$FAILED = {};
var peg$source = options.grammarSource;
var peg$startRuleFunctions = { jsonpath: peg$parsejsonpath };
var peg$startRuleFunction = peg$parsejsonpath;
var peg$c0 = "States.Array";
var peg$c1 = "States.ArrayPartition";
var peg$c2 = "States.ArrayContains";
var peg$c3 = "States.ArrayRange";
var peg$c4 = "States.ArrayGetItem";
var peg$c5 = "States.ArrayLength";
var peg$c6 = "States.ArrayUnique";
var peg$c7 = "States.Base64Encode";
var peg$c8 = "States.Base64Decode";
var peg$c9 = "States.Hash";
var peg$c10 = "States.JsonMerge";
var peg$c11 = "States.StringToJson";
var peg$c12 = "States.JsonToString";
var peg$c13 = "States.MathRandom";
var peg$c14 = "States.MathAdd";
var peg$c15 = "States.StringSplit";
var peg$c16 = "States.UUID";
var peg$c17 = "States.Format";
var peg$c18 = ".length";
var peg$c19 = "@";
var peg$c20 = "..";
var peg$c21 = "$$";
var peg$c22 = "$";
var peg$c23 = ".";
var peg$c24 = "*";
var peg$c25 = "==";
var peg$c26 = ">=";
var peg$c27 = ">";
var peg$c28 = "<=";
var peg$c29 = "<";
var peg$c30 = "-";
var peg$c31 = "[";
var peg$c32 = "]";
var peg$c33 = ",";
var peg$c34 = "(";
var peg$c35 = ")";
var peg$c36 = "?";
var peg$c37 = ":";
var peg$c38 = "true";
var peg$c39 = "false";
var peg$c40 = "null";
var peg$c41 = "\\";
var peg$r0 = /^[0-9]/;
var peg$r1 = /^[^),'"\\.[\] ><!=]/;
var peg$r2 = /^[']/;
var peg$r3 = /^[^'\\]/;
var peg$r4 = /^["]/;
var peg$r5 = /^[^"\\]/;
var peg$r6 = /^[^\\n]/;
var peg$r7 = /^[ \t\n]/;
var peg$e0 = peg$literalExpectation("States.Array", false);
var peg$e1 = peg$literalExpectation("States.ArrayPartition", false);
var peg$e2 = peg$literalExpectation("States.ArrayContains", false);
var peg$e3 = peg$literalExpectation("States.ArrayRange", false);
var peg$e4 = peg$literalExpectation("States.ArrayGetItem", false);
var peg$e5 = peg$literalExpectation("States.ArrayLength", false);
var peg$e6 = peg$literalExpectation("States.ArrayUnique", false);
var peg$e7 = peg$literalExpectation("States.Base64Encode", false);
var peg$e8 = peg$literalExpectation("States.Base64Decode", false);
var peg$e9 = peg$literalExpectation("States.Hash", false);
var peg$e10 = peg$literalExpectation("States.JsonMerge", false);
var peg$e11 = peg$literalExpectation("States.StringToJson", false);
var peg$e12 = peg$literalExpectation("States.JsonToString", false);
var peg$e13 = peg$literalExpectation("States.MathRandom", false);
var peg$e14 = peg$literalExpectation("States.MathAdd", false);
var peg$e15 = peg$literalExpectation("States.StringSplit", false);
var peg$e16 = peg$literalExpectation("States.UUID", false);
var peg$e17 = peg$literalExpectation("States.Format", false);
var peg$e18 = peg$literalExpectation(".length", false);
var peg$e19 = peg$literalExpectation("@", false);
var peg$e20 = peg$literalExpectation("..", false);
var peg$e21 = peg$literalExpectation("$$", false);
var peg$e22 = peg$literalExpectation("$", false);
var peg$e23 = peg$literalExpectation(".", false);
var peg$e24 = peg$literalExpectation("*", false);
var peg$e25 = peg$literalExpectation("==", false);
var peg$e26 = peg$literalExpectation(">=", false);
var peg$e27 = peg$literalExpectation(">", false);
var peg$e28 = peg$literalExpectation("<=", false);
var peg$e29 = peg$literalExpectation("<", false);
var peg$e30 = peg$literalExpectation("-", false);
var peg$e31 = peg$literalExpectation("[", false);
var peg$e32 = peg$literalExpectation("]", false);
var peg$e33 = peg$literalExpectation(",", false);
var peg$e34 = peg$literalExpectation("(", false);
var peg$e35 = peg$literalExpectation(")", false);
var peg$e36 = peg$literalExpectation("?", false);
var peg$e37 = peg$classExpectation([["0", "9"]], false, false);
var peg$e38 = peg$literalExpectation(":", false);
var peg$e39 = peg$literalExpectation("true", false);
var peg$e40 = peg$literalExpectation("false", false);
var peg$e41 = peg$literalExpectation("null", false);
var peg$e42 = peg$classExpectation([")", ",", "'", "\"", "\\", ".", "[", "]", " ", ">", "<", "!", "="], true, false);
var peg$e43 = peg$classExpectation(["'"], false, false);
var peg$e44 = peg$classExpectation(["'", "\\"], true, false);
var peg$e45 = peg$classExpectation(["\""], false, false);
var peg$e46 = peg$classExpectation(["\"", "\\"], true, false);
var peg$e47 = peg$literalExpectation("\\", false);
var peg$e48 = peg$classExpectation(["\\", "n"], true, false);
var peg$e49 = peg$otherExpectation("whitespace");
var peg$e50 = peg$classExpectation([" ", "\t", "\n"], false, false);
var peg$f0 = function (sub) { return { node: "$$", sub, isRoot: true }; };
var peg$f1 = function (sub) { return { node: "$", sub, isRoot: true }; };
var peg$f2 = function (sub) { return { node: "$$", sub }; };
var peg$f3 = function (sub) { return { node: "$", sub }; };
var peg$f4 = function (sub) { return { node: "@", sub, atmark: true }; };
var peg$f5 = function (v, sub) { return { node: "$", sub, var: v }; };
var peg$f6 = function (id, sub) { return { axis: "..", id, sub, recursiveDescent: true }; };
var peg$f7 = function (brackets, sub) { return { axis: "..", brackets, sub, recursiveDescent: true }; };
var peg$f8 = function (sub) { return { axis: ".", wildcard: true, sub }; };
var peg$f9 = function (id, sub) { return { axis: ".", id, sub }; };
var peg$f10 = function (brackets, sub) { return { axis: ".", brackets, sub }; };
var peg$f11 = function (head) { return { head }; };
var peg$f12 = function () { return { wildcard: true }; };
var peg$f13 = function (minus, head, tail) {
const negOffset = (minus === '-') || tail.some((t) => t[2]);
const result = {
head: minus === '-' ? -head : head
};
if (tail.length > 0) {
result.tail = tail.map((t) => t[2] === '-' ? -t[3] : t[3]);
result.multipleIndex = true;
}
if (negOffset) {
result.negOffset = true;
}
return result;
};
var peg$f14 = function (func, args) { return { func, args }; };
var peg$f15 = function (func, args) { return { func, args }; };
var peg$f16 = function (func, args) { return { func, args }; };
var peg$f17 = function (func, args) { return { func, args }; };
var peg$f18 = function (func, args) { return { func, args }; };
var peg$f19 = function (func, args) { return { func, args }; };
var peg$f20 = function (func, args) { return { func, args }; };
var peg$f21 = function (func, args) { return { func, args }; };
var peg$f22 = function (func, args) { return { func, args }; };
var peg$f23 = function (func, args) { return { func, args }; };
var peg$f24 = function (func, args) { return { func, args }; };
var peg$f25 = function (func, args) { return { func, args }; };
var peg$f26 = function (func, args) { return { func, args }; };
var peg$f27 = function (func, args) { return { func, args }; };
var peg$f28 = function (func, arg1, arg2) { return { func, arg1, arg2 }; };
var peg$f29 = function (func, arg1, arg2) { return { func, arg1, arg2 }; };
var peg$f30 = function (func, arg1, arg2) { return { func, arg1, arg2 }; };
var peg$f31 = function (func, arg1, arg2) { return { func, arg1, arg2 }; };
var peg$f32 = function (func, args) { return { func, args }; };
var peg$f33 = function (func, args) { return { func, args }; };
var peg$f34 = function (func, args) { return { func, args }; };
var peg$f35 = function () {
return {
head: null,
tail: []
};
};
var peg$f36 = function (head) {
return {
head,
tail: []
};
};
var peg$f37 = function () { return []; };
var peg$f38 = function (head, tail) {
return {
head,
tail: tail.map((t) => t[2])
};
};
var peg$f39 = function (start, end) { return { start, end, slice: true }; };
var peg$f40 = function (start) { return { start: start, end: null, slice: true }; };
var peg$f41 = function (end) { return { start: null, end, slice: true }; };
var peg$f42 = function (exp) { return { exp, filter: true }; };
var peg$f43 = function (offset) { return { node: "@", offset: -offset, atmark: true }; };
var peg$f44 = function (op) { return { node: "@", atmark: true }; };
var peg$f45 = function (op) { return { node: "@", atmark: true }; };
var peg$f46 = function (exp) { return { exp }; };
var peg$f47 = function (path, op, minus, val) { return { path, op, val: minus === '-' ? -val : val }; };
var peg$f48 = function (minus, nbr) { return (minus === '-' ? -1 : 1) * parseFloat(nbr); };
var peg$f49 = function (v) { return v.join(''); };
var peg$f50 = function (v) { return v.join(""); };
var peg$f51 = function (v) { return v.join(""); };
var peg$f52 = function (c) { return c; };
var peg$currPos = options.peg$currPos | 0;
var peg$savedPos = peg$currPos;
var peg$posDetailsCache = [{ line: 1, column: 1 }];
var peg$maxFailPos = peg$currPos;
var peg$maxFailExpected = options.peg$maxFailExpected || [];
var peg$silentFails = options.peg$silentFails | 0;
var peg$result;
if (options.startRule) {
if (!(options.startRule in peg$startRuleFunctions)) {
throw new Error("Can't start parsing from rule \"" + options.startRule + "\".");
}
peg$startRuleFunction = peg$startRuleFunctions[options.startRule];
}
function text() {
return input.substring(peg$savedPos, peg$currPos);
}
function offset() {
return peg$savedPos;
}
function range() {
return {
source: peg$source,
start: peg$savedPos,
end: peg$currPos
};
}
function location() {
return peg$computeLocation(peg$savedPos, peg$currPos);
}
function expected(description, location) {
location = location !== undefined
? location
: peg$computeLocation(peg$savedPos, peg$currPos);
throw peg$buildStructuredError([peg$otherExpectation(description)], input.substring(peg$savedPos, peg$currPos), location);
}
function error(message, location) {
location = location !== undefined
? location
: peg$computeLocation(peg$savedPos, peg$currPos);
throw peg$buildSimpleError(message, location);
}
function peg$literalExpectation(text, ignoreCase) {
return { type: "literal", text: text, ignoreCase: ignoreCase };
}
function peg$classExpectation(parts, inverted, ignoreCase) {
return { type: "class", parts: parts, inverted: inverted, ignoreCase: ignoreCase };
}
function peg$anyExpectation() {
return { type: "any" };
}
function peg$endExpectation() {
return { type: "end" };
}
function peg$otherExpectation(description) {
return { type: "other", description: description };
}
function peg$computePosDetails(pos) {
var details = peg$posDetailsCache[pos];
var p;
if (details) {
return details;
}
else {
if (pos >= peg$posDetailsCache.length) {
p = peg$posDetailsCache.length - 1;
}
else {
p = pos;
while (!peg$posDetailsCache[--p]) { }
}
details = peg$posDetailsCache[p];
details = {
line: details.line,
column: details.column
};
while (p < pos) {
if (input.charCodeAt(p) === 10) {
details.line++;
details.column = 1;
}
else {
details.column++;
}
p++;
}
peg$posDetailsCache[pos] = details;
return details;
}
}
function peg$computeLocation(startPos, endPos, offset) {
var startPosDetails = peg$computePosDetails(startPos);
var endPosDetails = peg$computePosDetails(endPos);
var res = {
source: peg$source,
start: {
offset: startPos,
line: startPosDetails.line,
column: startPosDetails.column
},
end: {
offset: endPos,
line: endPosDetails.line,
column: endPosDetails.column
}
};
if (offset && peg$source && (typeof peg$source.offset === "function")) {
res.start = peg$source.offset(res.start);
res.end = peg$source.offset(res.end);
}
return res;
}
function peg$fail(expected) {
if (peg$currPos < peg$maxFailPos) {
return;
}
if (peg$currPos > peg$maxFailPos) {
peg$maxFailPos = peg$currPos;
peg$maxFailExpected = [];
}
peg$maxFailExpected.push(expected);
}
function peg$buildSimpleError(message, location) {
return new peg$SyntaxError(message, null, null, location);
}
function peg$buildStructuredError(expected, found, location) {
return new peg$SyntaxError(peg$SyntaxError.buildMessage(expected, found), expected, found, location);
}
function peg$parsejsonpath() {
var s0, s1, s2, s3;
s0 = peg$currPos;
s1 = peg$parseCONTEXT_ROOT_VALUE();
if (s1 !== peg$FAILED) {
s2 = peg$parsesubscript();
if (s2 === peg$FAILED) {
s2 = null;
}
s3 = peg$parse_();
peg$savedPos = s0;
s0 = peg$f0(s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$parsevariable();
if (s0 === peg$FAILED) {
s0 = peg$currPos;
s1 = peg$parseROOT_VALUE();
if (s1 !== peg$FAILED) {
s2 = peg$parsesubscript();
if (s2 === peg$FAILED) {
s2 = null;
}
s3 = peg$parse_();
peg$savedPos = s0;
s0 = peg$f1(s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$parseintrinsic_function();
}
}
}
return s0;
}
function peg$parsejsonpath_() {
var s0, s1, s2;
s0 = peg$currPos;
s1 = peg$parseCONTEXT_ROOT_VALUE();
if (s1 !== peg$FAILED) {
s2 = peg$parsesubscript();
if (s2 === peg$FAILED) {
s2 = null;
}
peg$savedPos = s0;
s0 = peg$f2(s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$parsevariable();
if (s0 === peg$FAILED) {
s0 = peg$currPos;
s1 = peg$parseROOT_VALUE();
if (s1 !== peg$FAILED) {
s2 = peg$parsesubscript();
if (s2 === peg$FAILED) {
s2 = null;
}
peg$savedPos = s0;
s0 = peg$f3(s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
s1 = peg$parseCURRENT_VALUE();
if (s1 !== peg$FAILED) {
s2 = peg$parsesubscript();
if (s2 === peg$FAILED) {
s2 = null;
}
peg$savedPos = s0;
s0 = peg$f4(s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$parseintrinsic_function();
}
}
}
}
return s0;
}
function peg$parsejsonpath__() {
var s0;
s0 = peg$parsejsonpath_();
if (s0 === peg$FAILED) {
s0 = peg$parsevalue();
}
return s0;
}
function peg$parsevariable() {
var s0, s1, s2, s3;
s0 = peg$currPos;
s1 = peg$parseROOT_VALUE();
if (s1 !== peg$FAILED) {
s2 = peg$parseID();
if (s2 !== peg$FAILED) {
s3 = peg$parsesubscript();
if (s3 === peg$FAILED) {
s3 = null;
}
peg$savedPos = s0;
s0 = peg$f5(s2, s3);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parsesubscript() {
var s0, s1, s2, s3;
s0 = peg$currPos;
s1 = peg$parseRECURSIVE_DESCENT();
if (s1 !== peg$FAILED) {
s2 = peg$parsesubscriptableBareword();
if (s2 !== peg$FAILED) {
s3 = peg$parsesubscript();
if (s3 === peg$FAILED) {
s3 = null;
}
peg$savedPos = s0;
s0 = peg$f6(s2, s3);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
s1 = peg$parseRECURSIVE_DESCENT();
if (s1 !== peg$FAILED) {
s2 = peg$parsesubscriptables();
if (s2 !== peg$FAILED) {
s3 = peg$parsesubscript();
if (s3 === peg$FAILED) {
s3 = null;
}
peg$savedPos = s0;
s0 = peg$f7(s2, s3);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
s1 = peg$parseSUBSCRIPT();
if (s1 !== peg$FAILED) {
s2 = peg$parseWILDCARD_SUBSCRIPT();
if (s2 !== peg$FAILED) {
s3 = peg$parsesubscript();
if (s3 === peg$FAILED) {
s3 = null;
}
peg$savedPos = s0;
s0 = peg$f8(s3);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
s1 = peg$parseSUBSCRIPT();
if (s1 !== peg$FAILED) {
s2 = peg$parsesubscriptableBareword();
if (s2 !== peg$FAILED) {
s3 = peg$parsesubscript();
if (s3 === peg$FAILED) {
s3 = null;
}
peg$savedPos = s0;
s0 = peg$f9(s2, s3);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
s1 = peg$parsesubscriptables();
if (s1 !== peg$FAILED) {
s2 = peg$parsesubscript();
if (s2 === peg$FAILED) {
s2 = null;
}
peg$savedPos = s0;
s0 = peg$f10(s1, s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
}
}
}
return s0;
}
function peg$parsesubscriptables() {
var s0, s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11;
s0 = peg$currPos;
s1 = peg$parseBRACKET_LEFT();
if (s1 !== peg$FAILED) {
s2 = peg$parse_();
s3 = peg$parsesubscriptable();
if (s3 !== peg$FAILED) {
s4 = peg$parse_();
s5 = peg$parseBRACKET_RIGHT();
if (s5 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f11(s3);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
s1 = peg$parseBRACKET_LEFT();
if (s1 !== peg$FAILED) {
s2 = peg$parse_();
s3 = peg$parseWILDCARD_SUBSCRIPT();
if (s3 !== peg$FAILED) {
s4 = peg$parse_();
s5 = peg$parseBRACKET_RIGHT();
if (s5 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f12();
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
s1 = peg$parseBRACKET_LEFT();
if (s1 !== peg$FAILED) {
s2 = peg$parse_();
s3 = peg$parseMINUS();
if (s3 === peg$FAILED) {
s3 = null;
}
s4 = peg$parseNUMBER();
if (s4 !== peg$FAILED) {
s5 = peg$parse_();
s6 = [];
s7 = peg$currPos;
s8 = peg$parseCOMMA();
if (s8 !== peg$FAILED) {
s9 = peg$parse_();
s10 = peg$parseMINUS();
if (s10 === peg$FAILED) {
s10 = null;
}
s11 = peg$parseNUMBER();
if (s11 !== peg$FAILED) {
s8 = [s8, s9, s10, s11];
s7 = s8;
}
else {
peg$currPos = s7;
s7 = peg$FAILED;
}
}
else {
peg$currPos = s7;
s7 = peg$FAILED;
}
while (s7 !== peg$FAILED) {
s6.push(s7);
s7 = peg$currPos;
s8 = peg$parseCOMMA();
if (s8 !== peg$FAILED) {
s9 = peg$parse_();
s10 = peg$parseMINUS();
if (s10 === peg$FAILED) {
s10 = null;
}
s11 = peg$parseNUMBER();
if (s11 !== peg$FAILED) {
s8 = [s8, s9, s10, s11];
s7 = s8;
}
else {
peg$currPos = s7;
s7 = peg$FAILED;
}
}
else {
peg$currPos = s7;
s7 = peg$FAILED;
}
}
s7 = peg$parse_();
s8 = peg$parseBRACKET_RIGHT();
if (s8 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f13(s3, s4, s6);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
}
return s0;
}
function peg$parsesubscriptableBareword() {
var s0;
s0 = peg$parseID();
if (s0 === peg$FAILED) {
s0 = peg$parseintrinsic_function();
if (s0 === peg$FAILED) {
s0 = peg$parseWILDCARD_SUBSCRIPT();
}
}
return s0;
}
function peg$parseintrinsic_function() {
var s0, s1, s2, s3, s4, s5, s6, s7, s8, s9, s10;
s0 = peg$currPos;
if (input.substr(peg$currPos, 12) === peg$c0) {
s1 = peg$c0;
peg$currPos += 12;
}
else {
s1 = peg$FAILED;
if (peg$silentFails === 0) {
peg$fail(peg$e0);
}
}
if (s1 !== peg$FAILED) {
s2 = peg$parsefunction_args();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f14(s1, s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
if (input.substr(peg$currPos, 21) === peg$c1) {
s1 = peg$c1;
peg$currPos += 21;
}
else {
s1 = peg$FAILED;
if (peg$silentFails === 0) {
peg$fail(peg$e1);
}
}
if (s1 !== peg$FAILED) {
s2 = peg$parsefunction_args();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f15(s1, s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
if (input.substr(peg$currPos, 20) === peg$c2) {
s1 = peg$c2;
peg$currPos += 20;
}
else {
s1 = peg$FAILED;
if (peg$silentFails === 0) {
peg$fail(peg$e2);
}
}
if (s1 !== peg$FAILED) {
s2 = peg$parsefunction_args();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f16(s1, s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
if (input.substr(peg$currPos, 17) === peg$c3) {
s1 = peg$c3;
peg$currPos += 17;
}
else {
s1 = peg$FAILED;
if (peg$silentFails === 0) {
peg$fail(peg$e3);
}
}
if (s1 !== peg$FAILED) {
s2 = peg$parsefunction_args();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f17(s1, s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
if (input.substr(peg$currPos, 19) === peg$c4) {
s1 = peg$c4;
peg$currPos += 19;
}
else {
s1 = peg$FAILED;
if (peg$silentFails === 0) {
peg$fail(peg$e4);
}
}
if (s1 !== peg$FAILED) {
s2 = peg$parsefunction_args();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f18(s1, s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
if (input.substr(peg$currPos, 18) === peg$c5) {
s1 = peg$c5;
peg$currPos += 18;
}
else {
s1 = peg$FAILED;
if (peg$silentFails === 0) {
peg$fail(peg$e5);
}
}
if (s1 !== peg$FAILED) {
s2 = peg$parsesingle_arg();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f19(s1, s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
if (input.substr(peg$currPos, 18) === peg$c6) {
s1 = peg$c6;
peg$currPos += 18;
}
else {
s1 = peg$FAILED;
if (peg$silentFails === 0) {
peg$fail(peg$e6);
}
}
if (s1 !== peg$FAILED) {
s2 = peg$parsesingle_arg();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f20(s1, s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
if (input.substr(peg$currPos, 19) === peg$c7) {
s1 = peg$c7;
peg$currPos += 19;
}
else {
s1 = peg$FAILED;
if (peg$silentFails === 0) {
peg$fail(peg$e7);
}
}
if (s1 !== peg$FAILED) {
s2 = peg$parsesingle_arg();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f21(s1, s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
if (input.substr(peg$currPos, 19) === peg$c8) {
s1 = peg$c8;
peg$currPos += 19;
}
else {
s1 = peg$FAILED;
if (peg$silentFails === 0) {
peg$fail(peg$e8);
}
}
if (s1 !== peg$FAILED) {
s2 = peg$parsesingle_arg();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f22(s1, s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
if (input.substr(peg$currPos, 11) === peg$c9) {
s1 = peg$c9;
peg$currPos += 11;
}
else {
s1 = peg$FAILED;
if (peg$silentFails === 0) {
peg$fail(peg$e9);
}
}
if (s1 !== peg$FAILED) {
s2 = peg$parsefunction_args();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f23(s1, s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
if (input.substr(peg$currPos, 16) === peg$c10) {
s1 = peg$c10;
peg$currPos += 16;
}
else {
s1 = peg$FAILED;
if (peg$silentFails === 0) {
peg$fail(peg$e10);
}
}
if (s1 !== peg$FAILED) {
s2 = peg$parsefunction_args();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f24(s1, s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
if (input.substr(peg$currPos, 19) === peg$c11) {
s1 = peg$c11;
peg$currPos += 19;
}
else {
s1 = peg$FAILED;
if (peg$silentFails === 0) {
peg$fail(peg$e11);
}
}
if (s1 !== peg$FAILED) {
s2 = peg$parsesingle_arg();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f25(s1, s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;
if (input.substr(peg$currPos, 19) === peg$c12) {
s1 = peg$c12;
peg$currPos += 19;
}
else {
s1 = peg$FAILED;
if (peg$silentFails === 0) {
peg$fail(peg$e12);
}
}
if (s1 !== peg$FAILED) {
s2 = peg$parsesingle_arg();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f26(s1, s2);
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
}
else {
peg$currPos = s0;
s0 = peg$FAILED;
}
if (s0 === peg$FAILED) {
s0 = peg$currPos;