fix: locations

Author: verytactical

packages/pgen/compile.ts

@@ -24,39 +24,13 @@ export const compile = (node: g.Grammar): t.File => {
         definedRules.add(rule.name);
     }
 
-    // const exports = t.returnStatement(t.objectExpression(
-    //     names.map(name => t.objectProperty(
-    //         t.identifier(name),
-    //         emitCall('compile', [
-    //             t.identifier(name),
-    //             t.arrowFunctionExpression([], t.identifier('space')),
-    //         ]),
-    //         false,
-    //         true,
-    //     ))
-    // ));
-
     return t.file(t.program([
         ...imports,
         t.exportNamedDeclaration(t.tsModuleDeclaration(
             t.identifier(astGlobal),
             t.tsModuleBlock(ast),
         )),
         ...stmts,
-        // t.exportNamedDeclaration(t.variableDeclaration("const", [
-        //     t.variableDeclarator(t.identifier("getParser"), t.arrowFunctionExpression(
-        //         [withType(
-        //             t.identifier(primGlobal),
-        //             t.tsTypeReference(
-        //                 t.tsQualifiedName(t.identifier(libGlobal), t.identifier('Algebra')),
-        //             )
-        //         )],
-        //         t.blockStatement([
-        //             ...stmts,
-        //             exports,
-        //         ]),
-        //     ))
-        // ])),
     ]));
 };
 

packages/pgen/transform.ts

@@ -325,7 +325,3 @@ const transformSeq = ({ exprs }: g.Seq): Transform<Expr> => (ctx) => {
     e.push(Eps);
     return e.reduceRight((prev, expr) => Ap(expr, prev, 'r'));
 };
-
-// const spaced = (node: Expr): Transform<Expr> => (ctx) => {
-//     return Ap(node, Star(Call("space$noSkip", [])), 'l');
-// };

packages/runtime/index.ts

@@ -1,7 +1,7 @@
 import { Context, createContext, getSuccess, isFailure, Parser } from "./runtime";
 
 export { Parser, Located, alt, any, ap, app, compile, debug, eof, eps, field, left, lex, loc, lookNeg, lookPos, opt, plus, pure, ref, regex, right, rule, sat, seq, star, str, stry, terminal, where, withLoc } from './spaced';
-export { Loc, LocEmpty, LocRange } from './located';
+export * from './loc';
 
 export type ParseResult<T> = ParseResultSuccess<T> | ParseResultError
 export type ParseResultError = {

packages/runtime/lib/index.d.ts

@@ -1,6 +1,6 @@
 import { Parser } from "./runtime";
 export { Parser, Located, alt, any, ap, app, compile, debug, eof, eps, field, left, lex, loc, lookNeg, lookPos, opt, plus, pure, ref, regex, right, rule, sat, seq, star, str, stry, terminal, where, withLoc } from './spaced';
-export { Loc, LocEmpty, LocRange } from './located';
+export * from './loc';
 export type ParseResult<T> = ParseResultSuccess<T> | ParseResultError;
 export type ParseResultError = {
     readonly $: "error";

packages/runtime/lib/index.d.ts.map

@@ -1,4 +1,18 @@
 "use strict";
+var __createBinding = (this && this.__createBinding) || (Object.create ? (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    var desc = Object.getOwnPropertyDescriptor(m, k);
+    if (!desc || ("get" in desc ? !m.__esModule : desc.writable || desc.configurable)) {
+      desc = { enumerable: true, get: function() { return m[k]; } };
+    }
+    Object.defineProperty(o, k2, desc);
+}) : (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    o[k2] = m[k];
+}));
+var __exportStar = (this && this.__exportStar) || function(m, exports) {
+    for (var p in m) if (p !== "default" && !Object.prototype.hasOwnProperty.call(exports, p)) __createBinding(exports, m, p);
+};
 Object.defineProperty(exports, "__esModule", { value: true });
 exports.parse = exports.withLoc = exports.where = exports.terminal = exports.stry = exports.str = exports.star = exports.seq = exports.sat = exports.rule = exports.right = exports.regex = exports.ref = exports.pure = exports.plus = exports.opt = exports.lookPos = exports.lookNeg = exports.loc = exports.lex = exports.left = exports.field = exports.eps = exports.eof = exports.debug = exports.compile = exports.app = exports.ap = exports.any = exports.alt = void 0;
 const runtime_1 = require("./runtime");
@@ -32,6 +46,7 @@ Object.defineProperty(exports, "stry", { enumerable: true, get: function () { re
 Object.defineProperty(exports, "terminal", { enumerable: true, get: function () { return spaced_1.terminal; } });
 Object.defineProperty(exports, "where", { enumerable: true, get: function () { return spaced_1.where; } });
 Object.defineProperty(exports, "withLoc", { enumerable: true, get: function () { return spaced_1.withLoc; } });
+__exportStar(require("./loc"), exports);
 const parse = (grammar) => (text) => {
     const ctx = (0, runtime_1.createContext)(text);
     const result = grammar(ctx);

packages/runtime/lib/index.js

@@ -0,0 +1,15 @@
+export type Loc = LocRange | LocEmpty;
+export type LocRange = {
+    readonly $: 'range';
+    readonly start: number;
+    readonly end: number;
+};
+export declare const rangeLoc: (start: number, end: number) => LocRange;
+export type LocEmpty = {
+    readonly $: 'empty';
+    readonly at: number;
+};
+export declare const emptyLoc: (at: number) => LocEmpty;
+export declare const isEmptyLoc: (loc: Loc) => loc is LocEmpty;
+export declare const mergeLoc: (left: Loc, right: Loc) => Loc;
+//# sourceMappingURL=loc.d.ts.map

packages/runtime/lib/loc.d.ts

@@ -0,0 +1,17 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.mergeLoc = exports.isEmptyLoc = exports.emptyLoc = exports.rangeLoc = void 0;
+const rangeLoc = (start, end) => {
+    if (start === 32 && end === 32)
+        debugger;
+    return { $: 'range', start, end };
+};
+exports.rangeLoc = rangeLoc;
+const emptyLoc = (at) => ({ $: 'empty', at });
+exports.emptyLoc = emptyLoc;
+const isEmptyLoc = (loc) => loc.$ === 'empty';
+exports.isEmptyLoc = isEmptyLoc;
+const mergeLoc = (left, right) => {
+    return (0, exports.isEmptyLoc)(left) ? right : (0, exports.isEmptyLoc)(right) ? left : (0, exports.rangeLoc)(left.start, right.end);
+};
+exports.mergeLoc = mergeLoc;

packages/runtime/lib/loc.d.ts.map

@@ -1,15 +1,6 @@
 import * as P from './runtime';
-export type Parser<T> = P.Parser<[T, Loc]>;
-export type Loc = LocRange | LocEmpty;
-export type LocRange = {
-    readonly $: 'range';
-    readonly start: number;
-    readonly end: number;
-};
-export type LocEmpty = {
-    readonly $: 'empty';
-    readonly at: number;
-};
+import * as L from './loc';
+export type Parser<T> = P.Parser<readonly [T, L.Loc]>;
 export declare const rule: <T>(child: Parser<T>) => Parser<T>;
 export declare const pure: <const T>(t: T) => Parser<T>;
 export declare const ap: <T, U>(left: Parser<(t: T) => U>, right: Parser<T>) => Parser<U>;
@@ -35,5 +26,5 @@ export declare const lookNeg: <T>(child: Parser<T>) => Parser<undefined>;
 export declare const eof: Parser<undefined>;
 export declare const debug: <T>(child: Parser<T>) => Parser<T>;
 export declare const where: Parser<number>;
-export declare const withLoc: <T>(child: Parser<T>) => Parser<[T, Loc]>;
+export declare const withLoc: <T>(child: Parser<T>) => Parser<[T, L.Loc]>;
 //# sourceMappingURL=located.d.ts.map