@thi.ng/pointfree-lang
Version:
Forth style syntax layer/compiler & CLI for the @thi.ng/pointfree DSL
1,925 lines (1,700 loc) • 44 kB
JavaScript
// Generated by PEG.js v0.11.0-master.f69239d, https://pegjs.org/
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) {
this.message = message;
this.expected = expected;
this.found = found;
this.location = location;
this.name = "SyntaxError";
// istanbul ignore next
if (typeof Error.captureStackTrace === "function") {
Error.captureStackTrace(this, peg$SyntaxError);
}
}
peg$subclass(peg$SyntaxError, Error);
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 + "]";
},
any: function() {
return "any character";
},
end: function() {
return "end of input";
},
other: function(expectation) {
return expectation.description;
},
not: function(expectation) {
return "not " + describeExpectation(expectation.expected);
}
};
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$startRuleFunctions = { Root: peg$parseRoot };
var peg$startRuleFunction = peg$parseRoot;
var peg$c0 = ":";
var peg$c1 = ";";
var peg$c2 = "^{";
var peg$c3 = "}";
var peg$c4 = "[";
var peg$c5 = "]";
var peg$c6 = "{";
var peg$c7 = "nil";
var peg$c8 = "T";
var peg$c9 = "F";
var peg$c10 = "@";
var peg$c11 = "!";
var peg$c12 = "'";
var peg$c13 = "(";
var peg$c14 = ")";
var peg$c15 = "//";
var peg$c16 = "\n";
var peg$c17 = "\"";
var peg$c18 = "0b";
var peg$c19 = "0x";
var peg$c20 = ".";
var peg$c21 = "e";
var peg$r0 = /^[*?$%&#\/|~<>=_.+\-]/;
var peg$r1 = /^[\-+]/;
var peg$r2 = /^[01]/;
var peg$r3 = /^[0-9a-fA-F]/;
var peg$r4 = /^[a-z]/i;
var peg$r5 = /^[0-9]/;
var peg$r6 = /^[\n\r]/;
var peg$r7 = /^[ ,\t\n\r]/;
var peg$e0 = peg$literalExpectation(":", false);
var peg$e1 = peg$literalExpectation(";", false);
var peg$e2 = peg$literalExpectation("^{", false);
var peg$e3 = peg$literalExpectation("}", false);
var peg$e4 = peg$literalExpectation("[", false);
var peg$e5 = peg$literalExpectation("]", false);
var peg$e6 = peg$literalExpectation("{", false);
var peg$e7 = peg$literalExpectation("nil", false);
var peg$e8 = peg$literalExpectation("T", false);
var peg$e9 = peg$literalExpectation("F", false);
var peg$e10 = peg$classExpectation(["*", "?", "$", "%", "&", "#", "/", "|", "~", "<", ">", "=", "_", ".", "+", "-"], false, false);
var peg$e11 = peg$literalExpectation("@", false);
var peg$e12 = peg$literalExpectation("!", false);
var peg$e13 = peg$literalExpectation("'", false);
var peg$e14 = peg$literalExpectation("(", false);
var peg$e15 = peg$literalExpectation(")", false);
var peg$e16 = peg$anyExpectation();
var peg$e17 = peg$literalExpectation("//", false);
var peg$e18 = peg$literalExpectation("\n", false);
var peg$e19 = peg$literalExpectation("\"", false);
var peg$e20 = peg$classExpectation(["-", "+"], false, false);
var peg$e21 = peg$literalExpectation("0b", false);
var peg$e22 = peg$classExpectation(["0", "1"], false, false);
var peg$e23 = peg$literalExpectation("0x", false);
var peg$e24 = peg$classExpectation([["0", "9"], ["a", "f"], ["A", "F"]], false, false);
var peg$e25 = peg$literalExpectation(".", false);
var peg$e26 = peg$literalExpectation("e", false);
var peg$e27 = peg$classExpectation([["a", "z"]], false, true);
var peg$e28 = peg$classExpectation([["0", "9"]], false, false);
var peg$e29 = peg$classExpectation([" ", ",", "\t", "\n", "\r"], false, false);
var peg$f0 = function(expr) {
return ast(expr);
};
var peg$f1 = function(expr) { return ast(expr); };
var peg$f2 = function(id, locals, body) {
return { type: "word", id: id.id, locals, body};
};
var peg$f3 = function(body) {
return body;
};
var peg$f4 = function(id) { return id.id; };
var peg$f5 = function(body) {
return { type: "array", body };
};
var peg$f6 = function(body) {
return { type: "obj", body };
};
var peg$f7 = function(k, v) { return [ k, v ]; };
var peg$f8 = function(k) { return ast(k); };
var peg$f9 = function(val) { return ast(val); };
var peg$f10 = function() {
return {type: "nil", body: null};
};
var peg$f11 = function() {
return {type: "boolean", body: text() == "T"};
};
var peg$f12 = function(id) {
return {type: "sym", id};
};
var peg$f13 = function(id) {
return {type: "var_deref", id: id.id}
};
var peg$f14 = function(id) {
return {type: "var_store", id: id.id}
};
var peg$f15 = function(body) {
return {type: "array", body: [body]};
};
var peg$f16 = function(body) {
return body.indexOf("--") > 0 ?
{
type: "stack_comment",
body: body.split("--").map(x => x.trim())
} :
{
type: "comment",
body: body.trim()
};
};
var peg$f17 = function(body) {
return {
type: "comment",
body: body.trim()
};
};
var peg$f18 = function(body) {
return {type: "string", body };
};
var peg$f19 = function(n) {
return {type: "number", radix: 2, body: parseInt(n, 2)};
};
var peg$f20 = function(n) {
return {type: "number", radix: 16, body: parseInt(n, 16)};
};
var peg$f21 = function() {
return {type: "number", body: parseFloat(text())};
};
var peg$currPos = 0;
var peg$savedPos = 0;
var peg$posDetailsCache = [{ line: 1, column: 1 }];
var peg$expected = [];
var peg$silentFails = 0;
var peg$result;
if ("startRule" in options) {
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 [peg$savedPos, 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 {
p = pos - 1;
while (!peg$posDetailsCache[p]) {
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;
}
}
var peg$VALIDFILENAME = typeof options.filename === "string" && options.filename.length > 0;
function peg$computeLocation(startPos, endPos) {
var loc = {};
if ( peg$VALIDFILENAME ) loc.filename = options.filename;
var startPosDetails = peg$computePosDetails(startPos);
loc.start = {
offset: startPos,
line: startPosDetails.line,
column: startPosDetails.column
};
var endPosDetails = peg$computePosDetails(endPos);
loc.end = {
offset: endPos,
line: endPosDetails.line,
column: endPosDetails.column
};
return loc;
}
function peg$begin() {
peg$expected.push({ pos: peg$currPos, variants: [] });
}
function peg$expect(expected) {
var top = peg$expected[peg$expected.length - 1];
if (peg$currPos < top.pos) { return; }
if (peg$currPos > top.pos) {
top.pos = peg$currPos;
top.variants = [];
}
top.variants.push(expected);
}
function peg$end(invert) {
var expected = peg$expected.pop();
var top = peg$expected[peg$expected.length - 1];
var variants = expected.variants;
if (top.pos !== expected.pos) { return; }
if (invert) {
variants = variants.map(function(e) {
return e.type === "not" ? e.expected : { type: "not", expected: e };
});
}
Array.prototype.push.apply(top.variants, variants);
}
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$buildError() {
var expected = peg$expected[0];
var failPos = expected.pos;
return peg$buildStructuredError(
expected.variants,
failPos < input.length ? input.charAt(failPos) : null,
failPos < input.length
? peg$computeLocation(failPos, failPos + 1)
: peg$computeLocation(failPos, failPos)
);
}
function peg$parseRoot() {
var s0, s1;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = [];
s1 = peg$parseExpr();
while (s1 !== peg$FAILED) {
s0.push(s1);
s1 = peg$parseExpr();
}
return s0;
}
function peg$parseExpr() {
var s0, s1, s2, s3;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
s1 = peg$parse_();
s2 = peg$parseWord();
if (s2 === peg$FAILED) {
s2 = peg$parseNonWordExpr();
}
if (s2 !== peg$FAILED) {
s3 = peg$parse_();
peg$savedPos = s0;
s0 = peg$f0(s2);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseNonWordExpr() {
var s0, s1, s2, s3;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
s1 = peg$parse_();
s2 = peg$parseLitQuote();
if (s2 === peg$FAILED) {
s2 = peg$parseVar();
if (s2 === peg$FAILED) {
s2 = peg$parseLineComment();
if (s2 === peg$FAILED) {
s2 = peg$parseComment();
if (s2 === peg$FAILED) {
s2 = peg$parseArray();
if (s2 === peg$FAILED) {
s2 = peg$parseObj();
if (s2 === peg$FAILED) {
s2 = peg$parseAtom();
}
}
}
}
}
}
if (s2 !== peg$FAILED) {
s3 = peg$parse_();
peg$savedPos = s0;
s0 = peg$f1(s2);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseWord() {
var s0, s1, s2, s3, s4, s5, s6;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
rule$expects(peg$e0);
if (input.charCodeAt(peg$currPos) === 58) {
s1 = peg$c0;
peg$currPos++;
} else {
s1 = peg$FAILED;
}
if (s1 !== peg$FAILED) {
s2 = peg$parse__();
if (s2 !== peg$FAILED) {
s3 = peg$parseSym();
if (s3 !== peg$FAILED) {
s4 = peg$parseLocalVars();
if (s4 === peg$FAILED) {
s4 = null;
}
s5 = [];
s6 = peg$parseNonWordExpr();
if (s6 !== peg$FAILED) {
while (s6 !== peg$FAILED) {
s5.push(s6);
s6 = peg$parseNonWordExpr();
}
} else {
s5 = peg$FAILED;
}
if (s5 !== peg$FAILED) {
rule$expects(peg$e1);
if (input.charCodeAt(peg$currPos) === 59) {
s6 = peg$c1;
peg$currPos++;
} else {
s6 = peg$FAILED;
}
if (s6 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f2(s3, s4, s5);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
} 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$parseLocalVars() {
var s0, s1, s2, s3, s4;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
s1 = peg$parse_();
rule$expects(peg$e2);
if (input.substr(peg$currPos, 2) === peg$c2) {
s2 = peg$c2;
peg$currPos += 2;
} else {
s2 = peg$FAILED;
}
if (s2 !== peg$FAILED) {
s3 = [];
s4 = peg$parseSymList();
if (s4 !== peg$FAILED) {
while (s4 !== peg$FAILED) {
s3.push(s4);
s4 = peg$parseSymList();
}
} else {
s3 = peg$FAILED;
}
if (s3 !== peg$FAILED) {
rule$expects(peg$e3);
if (input.charCodeAt(peg$currPos) === 125) {
s4 = peg$c3;
peg$currPos++;
} else {
s4 = peg$FAILED;
}
if (s4 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f3(s3);
} 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$parseSymList() {
var s0, s1, s2, s3;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
s1 = peg$parse_();
s2 = peg$parseSym();
if (s2 !== peg$FAILED) {
s3 = peg$parse_();
peg$savedPos = s0;
s0 = peg$f4(s2);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseArray() {
var s0, s1, s2, s3;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
rule$expects(peg$e4);
if (input.charCodeAt(peg$currPos) === 91) {
s1 = peg$c4;
peg$currPos++;
} else {
s1 = peg$FAILED;
}
if (s1 !== peg$FAILED) {
s2 = [];
s3 = peg$parseNonWordExpr();
while (s3 !== peg$FAILED) {
s2.push(s3);
s3 = peg$parseNonWordExpr();
}
rule$expects(peg$e5);
if (input.charCodeAt(peg$currPos) === 93) {
s3 = peg$c5;
peg$currPos++;
} else {
s3 = peg$FAILED;
}
if (s3 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f5(s2);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseObj() {
var s0, s1, s2, s3, s4;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
rule$expects(peg$e6);
if (input.charCodeAt(peg$currPos) === 123) {
s1 = peg$c6;
peg$currPos++;
} else {
s1 = peg$FAILED;
}
if (s1 !== peg$FAILED) {
s2 = peg$parse_();
s3 = [];
s4 = peg$parseObjPair();
while (s4 !== peg$FAILED) {
s3.push(s4);
s4 = peg$parseObjPair();
}
rule$expects(peg$e3);
if (input.charCodeAt(peg$currPos) === 125) {
s4 = peg$c3;
peg$currPos++;
} else {
s4 = peg$FAILED;
}
if (s4 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f6(s3);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseObjPair() {
var s0, s1, s2;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
s1 = peg$parseObjKey();
if (s1 !== peg$FAILED) {
s2 = peg$parseObjVal();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f7(s1, s2);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseObjKey() {
var s0, s1, s2;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
s1 = peg$parseString();
if (s1 === peg$FAILED) {
s1 = peg$parseNumber();
if (s1 === peg$FAILED) {
s1 = peg$parseVarDeref();
if (s1 === peg$FAILED) {
s1 = peg$parseSym();
}
}
}
if (s1 !== peg$FAILED) {
rule$expects(peg$e0);
if (input.charCodeAt(peg$currPos) === 58) {
s2 = peg$c0;
peg$currPos++;
} else {
s2 = peg$FAILED;
}
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f8(s1);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseObjVal() {
var s0, s1, s2, s3;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
s1 = peg$parse_();
s2 = peg$parseAtom();
if (s2 === peg$FAILED) {
s2 = peg$parseLitQuote();
if (s2 === peg$FAILED) {
s2 = peg$parseVarDeref();
if (s2 === peg$FAILED) {
s2 = peg$parseArray();
if (s2 === peg$FAILED) {
s2 = peg$parseObj();
}
}
}
}
if (s2 !== peg$FAILED) {
s3 = peg$parse_();
peg$savedPos = s0;
s0 = peg$f9(s2);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseAtom() {
var s0;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$parseString();
if (s0 === peg$FAILED) {
s0 = peg$parseNumber();
if (s0 === peg$FAILED) {
s0 = peg$parseBoolean();
if (s0 === peg$FAILED) {
s0 = peg$parseNil();
if (s0 === peg$FAILED) {
s0 = peg$parseSym();
}
}
}
}
return s0;
}
function peg$parseNil() {
var s0, s1;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
rule$expects(peg$e7);
if (input.substr(peg$currPos, 3) === peg$c7) {
s1 = peg$c7;
peg$currPos += 3;
} else {
s1 = peg$FAILED;
}
if (s1 !== peg$FAILED) {
peg$savedPos = s0;
s1 = peg$f10();
}
s0 = s1;
return s0;
}
function peg$parseBoolean() {
var s0, s1, s2;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
s1 = peg$currPos;
rule$expects(peg$e8);
if (input.charCodeAt(peg$currPos) === 84) {
s2 = peg$c8;
peg$currPos++;
} else {
s2 = peg$FAILED;
}
if (s2 === peg$FAILED) {
rule$expects(peg$e9);
if (input.charCodeAt(peg$currPos) === 70) {
s2 = peg$c9;
peg$currPos++;
} else {
s2 = peg$FAILED;
}
}
if (s2 !== peg$FAILED) {
s1 = input.substring(s1, peg$currPos);
} else {
s1 = s2;
}
if (s1 !== peg$FAILED) {
peg$savedPos = s0;
s1 = peg$f11();
}
s0 = s1;
return s0;
}
function peg$parseSym() {
var s0, s1, s2, s3, s4, s5;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
s1 = peg$currPos;
s2 = peg$currPos;
s3 = peg$parseAlpha();
if (s3 === peg$FAILED) {
s3 = peg$parseSymChars();
}
if (s3 !== peg$FAILED) {
s4 = [];
s5 = peg$parseAlphaNum();
if (s5 === peg$FAILED) {
s5 = peg$parseSymChars();
}
while (s5 !== peg$FAILED) {
s4.push(s5);
s5 = peg$parseAlphaNum();
if (s5 === peg$FAILED) {
s5 = peg$parseSymChars();
}
}
s3 = [s3, s4];
s2 = s3;
} else {
peg$currPos = s2;
s2 = peg$FAILED;
}
if (s2 !== peg$FAILED) {
s1 = input.substring(s1, peg$currPos);
} else {
s1 = s2;
}
if (s1 !== peg$FAILED) {
peg$savedPos = s0;
s1 = peg$f12(s1);
}
s0 = s1;
return s0;
}
function peg$parseSymChars() {
var s0;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
rule$expects(peg$e10);
if (peg$r0.test(input.charAt(peg$currPos))) {
s0 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s0 = peg$FAILED;
}
return s0;
}
function peg$parseVar() {
var s0;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$parseVarDeref();
if (s0 === peg$FAILED) {
s0 = peg$parseVarStore();
}
return s0;
}
function peg$parseVarDeref() {
var s0, s1, s2;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
rule$expects(peg$e11);
if (input.charCodeAt(peg$currPos) === 64) {
s1 = peg$c10;
peg$currPos++;
} else {
s1 = peg$FAILED;
}
if (s1 !== peg$FAILED) {
s2 = peg$parseSym();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f13(s2);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseVarStore() {
var s0, s1, s2;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
s1 = peg$parseSym();
if (s1 !== peg$FAILED) {
rule$expects(peg$e12);
if (input.charCodeAt(peg$currPos) === 33) {
s2 = peg$c11;
peg$currPos++;
} else {
s2 = peg$FAILED;
}
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f14(s1);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseLitQuote() {
var s0, s1, s2;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
rule$expects(peg$e13);
if (input.charCodeAt(peg$currPos) === 39) {
s1 = peg$c12;
peg$currPos++;
} else {
s1 = peg$FAILED;
}
if (s1 !== peg$FAILED) {
s2 = peg$parseNonWordExpr();
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f15(s2);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseComment() {
var s0, s1, s2, s3, s4, s5, s6;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
s1 = [];
rule$expects(peg$e14);
if (input.charCodeAt(peg$currPos) === 40) {
s2 = peg$c13;
peg$currPos++;
} else {
s2 = peg$FAILED;
}
if (s2 !== peg$FAILED) {
while (s2 !== peg$FAILED) {
s1.push(s2);
rule$expects(peg$e14);
if (input.charCodeAt(peg$currPos) === 40) {
s2 = peg$c13;
peg$currPos++;
} else {
s2 = peg$FAILED;
}
}
} else {
s1 = peg$FAILED;
}
if (s1 !== peg$FAILED) {
s2 = peg$currPos;
s3 = [];
s4 = peg$currPos;
s5 = peg$currPos;
peg$begin();
rule$expects(peg$e15);
if (input.charCodeAt(peg$currPos) === 41) {
s6 = peg$c14;
peg$currPos++;
} else {
s6 = peg$FAILED;
}
peg$end(true);
if (s6 === peg$FAILED) {
s5 = undefined;
} else {
peg$currPos = s5;
s5 = peg$FAILED;
}
if (s5 !== peg$FAILED) {
rule$expects(peg$e16);
if (input.length > peg$currPos) {
s6 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s6 = peg$FAILED;
}
if (s6 !== peg$FAILED) {
s5 = [s5, s6];
s4 = s5;
} else {
peg$currPos = s4;
s4 = peg$FAILED;
}
} else {
peg$currPos = s4;
s4 = peg$FAILED;
}
while (s4 !== peg$FAILED) {
s3.push(s4);
s4 = peg$currPos;
s5 = peg$currPos;
peg$begin();
rule$expects(peg$e15);
if (input.charCodeAt(peg$currPos) === 41) {
s6 = peg$c14;
peg$currPos++;
} else {
s6 = peg$FAILED;
}
peg$end(true);
if (s6 === peg$FAILED) {
s5 = undefined;
} else {
peg$currPos = s5;
s5 = peg$FAILED;
}
if (s5 !== peg$FAILED) {
rule$expects(peg$e16);
if (input.length > peg$currPos) {
s6 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s6 = peg$FAILED;
}
if (s6 !== peg$FAILED) {
s5 = [s5, s6];
s4 = s5;
} else {
peg$currPos = s4;
s4 = peg$FAILED;
}
} else {
peg$currPos = s4;
s4 = peg$FAILED;
}
}
s2 = input.substring(s2, peg$currPos);
rule$expects(peg$e15);
if (input.charCodeAt(peg$currPos) === 41) {
s3 = peg$c14;
peg$currPos++;
} else {
s3 = peg$FAILED;
}
if (s3 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f16(s2);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseLineComment() {
var s0, s1, s2, s3, s4, s5, s6;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
rule$expects(peg$e17);
if (input.substr(peg$currPos, 2) === peg$c15) {
s1 = peg$c15;
peg$currPos += 2;
} else {
s1 = peg$FAILED;
}
if (s1 !== peg$FAILED) {
s2 = peg$currPos;
s3 = [];
s4 = peg$currPos;
s5 = peg$currPos;
peg$begin();
rule$expects(peg$e18);
if (input.charCodeAt(peg$currPos) === 10) {
s6 = peg$c16;
peg$currPos++;
} else {
s6 = peg$FAILED;
}
peg$end(true);
if (s6 === peg$FAILED) {
s5 = undefined;
} else {
peg$currPos = s5;
s5 = peg$FAILED;
}
if (s5 !== peg$FAILED) {
rule$expects(peg$e16);
if (input.length > peg$currPos) {
s6 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s6 = peg$FAILED;
}
if (s6 !== peg$FAILED) {
s5 = [s5, s6];
s4 = s5;
} else {
peg$currPos = s4;
s4 = peg$FAILED;
}
} else {
peg$currPos = s4;
s4 = peg$FAILED;
}
while (s4 !== peg$FAILED) {
s3.push(s4);
s4 = peg$currPos;
s5 = peg$currPos;
peg$begin();
rule$expects(peg$e18);
if (input.charCodeAt(peg$currPos) === 10) {
s6 = peg$c16;
peg$currPos++;
} else {
s6 = peg$FAILED;
}
peg$end(true);
if (s6 === peg$FAILED) {
s5 = undefined;
} else {
peg$currPos = s5;
s5 = peg$FAILED;
}
if (s5 !== peg$FAILED) {
rule$expects(peg$e16);
if (input.length > peg$currPos) {
s6 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s6 = peg$FAILED;
}
if (s6 !== peg$FAILED) {
s5 = [s5, s6];
s4 = s5;
} else {
peg$currPos = s4;
s4 = peg$FAILED;
}
} else {
peg$currPos = s4;
s4 = peg$FAILED;
}
}
s2 = input.substring(s2, peg$currPos);
rule$expects(peg$e18);
if (input.charCodeAt(peg$currPos) === 10) {
s3 = peg$c16;
peg$currPos++;
} else {
s3 = peg$FAILED;
}
if (s3 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f17(s2);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseString() {
var s0, s1, s2, s3, s4, s5, s6;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
rule$expects(peg$e19);
if (input.charCodeAt(peg$currPos) === 34) {
s1 = peg$c17;
peg$currPos++;
} else {
s1 = peg$FAILED;
}
if (s1 !== peg$FAILED) {
s2 = peg$currPos;
s3 = [];
s4 = peg$currPos;
s5 = peg$currPos;
peg$begin();
rule$expects(peg$e19);
if (input.charCodeAt(peg$currPos) === 34) {
s6 = peg$c17;
peg$currPos++;
} else {
s6 = peg$FAILED;
}
peg$end(true);
if (s6 === peg$FAILED) {
s5 = undefined;
} else {
peg$currPos = s5;
s5 = peg$FAILED;
}
if (s5 !== peg$FAILED) {
rule$expects(peg$e16);
if (input.length > peg$currPos) {
s6 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s6 = peg$FAILED;
}
if (s6 !== peg$FAILED) {
s5 = [s5, s6];
s4 = s5;
} else {
peg$currPos = s4;
s4 = peg$FAILED;
}
} else {
peg$currPos = s4;
s4 = peg$FAILED;
}
while (s4 !== peg$FAILED) {
s3.push(s4);
s4 = peg$currPos;
s5 = peg$currPos;
peg$begin();
rule$expects(peg$e19);
if (input.charCodeAt(peg$currPos) === 34) {
s6 = peg$c17;
peg$currPos++;
} else {
s6 = peg$FAILED;
}
peg$end(true);
if (s6 === peg$FAILED) {
s5 = undefined;
} else {
peg$currPos = s5;
s5 = peg$FAILED;
}
if (s5 !== peg$FAILED) {
rule$expects(peg$e16);
if (input.length > peg$currPos) {
s6 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s6 = peg$FAILED;
}
if (s6 !== peg$FAILED) {
s5 = [s5, s6];
s4 = s5;
} else {
peg$currPos = s4;
s4 = peg$FAILED;
}
} else {
peg$currPos = s4;
s4 = peg$FAILED;
}
}
s2 = input.substring(s2, peg$currPos);
rule$expects(peg$e19);
if (input.charCodeAt(peg$currPos) === 34) {
s3 = peg$c17;
peg$currPos++;
} else {
s3 = peg$FAILED;
}
if (s3 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f18(s2);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseNumber() {
var s0;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$parseHex();
if (s0 === peg$FAILED) {
s0 = peg$parseBinary();
if (s0 === peg$FAILED) {
s0 = peg$parseDecimal();
}
}
return s0;
}
function peg$parseSign() {
var s0;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
rule$expects(peg$e20);
if (peg$r1.test(input.charAt(peg$currPos))) {
s0 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s0 = peg$FAILED;
}
return s0;
}
function peg$parseBinary() {
var s0, s1, s2, s3, s4;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
rule$expects(peg$e21);
if (input.substr(peg$currPos, 2) === peg$c18) {
s1 = peg$c18;
peg$currPos += 2;
} else {
s1 = peg$FAILED;
}
if (s1 !== peg$FAILED) {
s2 = peg$currPos;
s3 = [];
rule$expects(peg$e22);
if (peg$r2.test(input.charAt(peg$currPos))) {
s4 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s4 = peg$FAILED;
}
if (s4 !== peg$FAILED) {
while (s4 !== peg$FAILED) {
s3.push(s4);
rule$expects(peg$e22);
if (peg$r2.test(input.charAt(peg$currPos))) {
s4 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s4 = peg$FAILED;
}
}
} else {
s3 = peg$FAILED;
}
if (s3 !== peg$FAILED) {
s2 = input.substring(s2, peg$currPos);
} else {
s2 = s3;
}
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f19(s2);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseHex() {
var s0, s1, s2, s3, s4;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
rule$expects(peg$e23);
if (input.substr(peg$currPos, 2) === peg$c19) {
s1 = peg$c19;
peg$currPos += 2;
} else {
s1 = peg$FAILED;
}
if (s1 !== peg$FAILED) {
s2 = peg$currPos;
s3 = [];
rule$expects(peg$e24);
if (peg$r3.test(input.charAt(peg$currPos))) {
s4 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s4 = peg$FAILED;
}
if (s4 !== peg$FAILED) {
while (s4 !== peg$FAILED) {
s3.push(s4);
rule$expects(peg$e24);
if (peg$r3.test(input.charAt(peg$currPos))) {
s4 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s4 = peg$FAILED;
}
}
} else {
s3 = peg$FAILED;
}
if (s3 !== peg$FAILED) {
s2 = input.substring(s2, peg$currPos);
} else {
s2 = s3;
}
if (s2 !== peg$FAILED) {
peg$savedPos = s0;
s0 = peg$f20(s2);
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseInt() {
var s0, s1, s2;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
s1 = peg$parseSign();
if (s1 === peg$FAILED) {
s1 = null;
}
s2 = peg$parseUint();
if (s2 !== peg$FAILED) {
s1 = [s1, s2];
s0 = s1;
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseUint() {
var s0, s1;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = [];
s1 = peg$parseDigit();
if (s1 !== peg$FAILED) {
while (s1 !== peg$FAILED) {
s0.push(s1);
s1 = peg$parseDigit();
}
} else {
s0 = peg$FAILED;
}
return s0;
}
function peg$parseDecimal() {
var s0, s1, s2, s3, s4, s5;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$currPos;
s1 = peg$parseInt();
if (s1 !== peg$FAILED) {
s2 = peg$currPos;
rule$expects(peg$e25);
if (input.charCodeAt(peg$currPos) === 46) {
s3 = peg$c20;
peg$currPos++;
} else {
s3 = peg$FAILED;
}
if (s3 !== peg$FAILED) {
s4 = peg$parseUint();
if (s4 === peg$FAILED) {
s4 = null;
}
s3 = [s3, s4];
s2 = s3;
} else {
peg$currPos = s2;
s2 = peg$FAILED;
}
if (s2 === peg$FAILED) {
s2 = null;
}
s3 = peg$currPos;
rule$expects(peg$e26);
if (input.charCodeAt(peg$currPos) === 101) {
s4 = peg$c21;
peg$currPos++;
} else {
s4 = peg$FAILED;
}
if (s4 !== peg$FAILED) {
s5 = peg$parseInt();
if (s5 !== peg$FAILED) {
s4 = [s4, s5];
s3 = s4;
} else {
peg$currPos = s3;
s3 = peg$FAILED;
}
} else {
peg$currPos = s3;
s3 = peg$FAILED;
}
if (s3 === peg$FAILED) {
s3 = null;
}
peg$savedPos = s0;
s0 = peg$f21();
} else {
peg$currPos = s0;
s0 = peg$FAILED;
}
return s0;
}
function peg$parseAlphaNum() {
var s0;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = peg$parseAlpha();
if (s0 === peg$FAILED) {
s0 = peg$parseDigit();
}
return s0;
}
function peg$parseAlpha() {
var s0;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
rule$expects(peg$e27);
if (peg$r4.test(input.charAt(peg$currPos))) {
s0 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s0 = peg$FAILED;
}
return s0;
}
function peg$parseDigit() {
var s0;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
rule$expects(peg$e28);
if (peg$r5.test(input.charAt(peg$currPos))) {
s0 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s0 = peg$FAILED;
}
return s0;
}
function peg$parseLineBreak() {
var s0;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
if (peg$r6.test(input.charAt(peg$currPos))) {
s0 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s0 = peg$FAILED;
}
return s0;
}
function peg$parse_() {
var s0, s1;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = [];
rule$expects(peg$e29);
if (peg$r7.test(input.charAt(peg$currPos))) {
s1 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s1 = peg$FAILED;
}
while (s1 !== peg$FAILED) {
s0.push(s1);
rule$expects(peg$e29);
if (peg$r7.test(input.charAt(peg$currPos))) {
s1 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s1 = peg$FAILED;
}
}
return s0;
}
function peg$parse__() {
var s0, s1;
var rule$expects = function (expected) {
if (peg$silentFails === 0) peg$expect(expected);
}
s0 = [];
rule$expects(peg$e29);
if (peg$r7.test(input.charAt(peg$currPos))) {
s1 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s1 = peg$FAILED;
}
if (s1 !== peg$FAILED) {
while (s1 !== peg$FAILED) {
s0.push(s1);
rule$expects(peg$e29);
if (peg$r7.test(input.charAt(peg$currPos))) {
s1 = input.charAt(peg$currPos);
peg$currPos++;
} else {
s1 = peg$FAILED;
}
}
} else {
s0 = peg$FAILED;
}
return s0;
}
const ast = (node) => {
const loc = location().start;
node.loc = [loc.line, loc.column];
return node;
};
peg$begin();
peg$result = peg$startRuleFunction();
if (peg$result !== peg$FAILED && peg$currPos === input.length) {
return peg$result;
} else {
if (peg$result !== peg$FAILED && peg$currPos < input.length) {
peg$expect(peg$endExpectation());
}
throw peg$buildError();
}
}
export {
peg$SyntaxError as SyntaxError,
peg$parse as parse
};
export default {
SyntaxError: peg$SyntaxError,
parse: peg$parse
};