UNPKG

@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
// 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 };