@cirru/parser.ts 0.0.4

package/.github/workflows/npm-publish.yaml

@@ -0,0 +1,21 @@
+name: npm publish
+
+on:
+  release:
+    types: [created]
+
+jobs:
+  publish-npm:
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v2
+      - uses: actions/setup-node@v1
+        with:
+          node-version: 12
+          registry-url: https://registry.npmjs.org/
+
+      - run: yarn && yarn compile
+
+      - run: npm publish
+        env:
+          NODE_AUTH_TOKEN: ${{secrets.npm_token}}

package/.github/workflows/upload.yaml

@@ -0,0 +1,49 @@
+name: Upload Assets
+
+on:
+  pull_request: {}
+  push:
+    branches:
+      - master
+
+jobs:
+  upload-assets:
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v2
+
+      - name: Use Node.js
+        uses: actions/setup-node@v1
+
+      - name: Get yarn cache
+        id: yarn-cache
+        run: echo "::set-output name=dir::$(yarn cache dir)"
+
+      - uses: actions/cache@v1
+        with:
+          path: ${{ steps.yarn-cache.outputs.dir }}
+          key: ${{ runner.os }}-yarn-${{ hashFiles('**/yarn.lock') }}
+          restore-keys: |
+            ${{ runner.os }}-yarn-
+
+      - run: yarn
+      - run: yarn test
+      - run: yarn tsc -d --project tsconfig-compile.json --outDir lib/
+
+      - run: yarn release
+        name: Build web assets
+
+      - name: Deploy to server
+        id: deploy
+        uses: Pendect/action-rsyncer@v1.1.0
+        env:
+          DEPLOY_KEY: ${{secrets.rsync_private_key}}
+        with:
+          flags: "-avzr --progress"
+          options: ""
+          ssh_options: ""
+          src: "dist/*"
+          dest: "rsync-user@cirru.org:/web-assets/repo/${{ github.repository }}"
+
+      - name: Display status from deploy
+        run: echo "${{ steps.deploy.outputs.status }}"

package/README.md

@@ -0,0 +1,27 @@
+## Cirru Parser in TypeScript
+
+> based on latest parser of ClojureScript version.
+
+Demo http://repo.cirru.org/parser.ts/
+
+### Usage
+
+![](https://img.shields.io/npm/v/@cirru/parser.ts.svg)
+
+```bash
+yarn add @cirru/parser.ts
+```
+
+```ts
+import { parse } from "@cirru/parser.ts";
+
+parse("a (demo)");
+```
+
+### Workflow
+
+https://github.com/jimengio/ts-workflow
+
+### License
+
+MIT

package/jest.config.js

@@ -0,0 +1,13 @@
+module.exports = {
+  preset: "ts-jest",
+  testEnvironment: "node",
+  roots: ["<rootDir>/src"],
+  transform: {
+    "^.+\\.tsx?$": "ts-jest",
+  },
+  moduleNameMapper: {
+    "^lodash-es$": "lodash",
+  },
+  silent: false,
+  moduleFileExtensions: ["ts", "tsx", "js", "jsx", "json", "node"],
+};

package/lib/index.d.ts

@@ -0,0 +1,3 @@
+import { ICirruNode } from "./types";
+export { ICirruNode } from "./types";
+export declare let parse: (code: string) => ICirruNode[];

package/lib/index.js

@@ -0,0 +1,297 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.parse = void 0;
+const types_1 = require("./types");
+const tree_1 = require("./tree");
+let graspeExprs = (pullToken) => {
+    let acc = [];
+    let pointer = acc;
+    let pointerStack = [];
+    while (true) {
+        let cursor = pullToken();
+        // console.log(pointerStack, pointer, cursor);
+        switch (cursor) {
+            case types_1.ELexControl.close:
+                if (pointerStack.length === 0) {
+                    return pointer;
+                }
+                let collected = pointer;
+                pointer = pointerStack.pop();
+                pointer.push(collected);
+                break;
+            case types_1.ELexControl.open:
+                pointerStack.push(pointer);
+                pointer = [];
+                break;
+            case types_1.ELexControl.close:
+                throw new Error("Unexpected close token");
+            default:
+                if (tree_1.isString(cursor)) {
+                    pointer.push(cursor);
+                    break;
+                }
+                else {
+                    console.log(JSON.stringify(cursor));
+                    throw new Error("Unknown cursor");
+                }
+        }
+    }
+};
+let buildExprs = (pullToken) => {
+    let acc = [];
+    while (true) {
+        let chunk = pullToken();
+        if (chunk === types_1.ELexControl.open) {
+            let expr = graspeExprs(pullToken);
+            acc.push(expr);
+            continue;
+        }
+        else if (chunk == null) {
+            return acc;
+        }
+        else if (chunk === types_1.ELexControl.close) {
+            throw new Error(`Unexpected ")"`);
+        }
+        else {
+            throw new Error(`Unexpected chunk ${JSON.stringify(chunk)}`);
+        }
+    }
+};
+let parseIndentation = (buffer) => {
+    let size = buffer.length;
+    if (tree_1.isOdd(size)) {
+        throw new Error(`Invalid indentation size ${size}`);
+    }
+    return size / 2;
+};
+let lex = (initialCode) => {
+    let acc = [];
+    let state = types_1.ELexState.indent;
+    let buffer = "";
+    let code = initialCode;
+    // let count = 0;
+    let pointer = 0;
+    while (true) {
+        // count += 1;
+        // if (count > 1000) {
+        //   break;
+        // }
+        if (pointer >= code.length) {
+            switch (state) {
+                case types_1.ELexState.space:
+                    return acc;
+                case types_1.ELexState.token:
+                    acc.push(buffer);
+                    return acc;
+                    break;
+                case types_1.ELexState.escape:
+                    throw new Error("Should not be escape");
+                case types_1.ELexState.indent:
+                    return acc;
+                case types_1.ELexState.string:
+                    throw new Error("Should not be string");
+                default:
+                    console.log(state);
+                    throw new Error("Unkown state");
+            }
+        }
+        else {
+            let c = code[pointer];
+            pointer += 1;
+            switch (state) {
+                case types_1.ELexState.space:
+                    switch (c) {
+                        case " ":
+                            [acc, state, buffer] = [acc, types_1.ELexState.space, ""];
+                            break;
+                        case "\n":
+                            [acc, state, buffer] = [acc, types_1.ELexState.indent, ""];
+                            break;
+                        case "(":
+                            acc.push(types_1.ELexControl.open);
+                            [state, buffer] = [types_1.ELexState.space, ""];
+                            break;
+                        case ")":
+                            acc.push(types_1.ELexControl.close);
+                            [state, buffer] = [types_1.ELexState.space, ""];
+                            break;
+                        case '"':
+                            [acc, state, buffer] = [acc, types_1.ELexState.string, ""];
+                            break;
+                        default:
+                            [acc, state, buffer] = [acc, types_1.ELexState.token, c];
+                            break;
+                    }
+                    break;
+                case types_1.ELexState.token:
+                    switch (c) {
+                        case " ":
+                            acc.push(buffer);
+                            [state, buffer] = [types_1.ELexState.space, ""];
+                            break;
+                        case '"':
+                            acc.push(buffer);
+                            [state, buffer] = [types_1.ELexState.string, ""];
+                            break;
+                        case "\n":
+                            acc.push(buffer);
+                            [state, buffer] = [types_1.ELexState.indent, ""];
+                            break;
+                        case "(":
+                            acc.push(buffer, types_1.ELexControl.open);
+                            [state, buffer] = [types_1.ELexState.space, ""];
+                            break;
+                        case ")":
+                            acc.push(buffer, types_1.ELexControl.close);
+                            [state, buffer] = [types_1.ELexState.space, ""];
+                            break;
+                        default:
+                            [acc, state, buffer] = [acc, types_1.ELexState.token, `${buffer}${c}`];
+                            break;
+                    }
+                    break;
+                case types_1.ELexState.string:
+                    switch (c) {
+                        case '"':
+                            acc.push(buffer);
+                            [state, buffer] = [types_1.ELexState.space, ""];
+                            break;
+                        case "\\":
+                            [acc, state, buffer] = [acc, types_1.ELexState.escape, buffer];
+                            break;
+                        case "\n":
+                            throw new Error("Expected newline in string");
+                        default:
+                            [acc, state, buffer] = [acc, types_1.ELexState.string, `${buffer}${c}`];
+                            break;
+                    }
+                    break;
+                case types_1.ELexState.escape:
+                    switch (c) {
+                        case '"':
+                            [acc, state, buffer] = [acc, types_1.ELexState.string, `${buffer}"`];
+                            break;
+                        case "'":
+                            [acc, state, buffer] = [acc, types_1.ELexState.string, `${buffer}'`];
+                            break;
+                        case "t":
+                            [acc, state, buffer] = [acc, types_1.ELexState.string, `${buffer}\t`];
+                            break;
+                        case "n":
+                            [acc, state, buffer] = [acc, types_1.ELexState.string, `${buffer}\n`];
+                            break;
+                        case "\\":
+                            [acc, state, buffer] = [acc, types_1.ELexState.string, `${buffer}\\`];
+                            break;
+                        default:
+                            throw new Error(`Unknown ${c} in escape`);
+                    }
+                    break;
+                case types_1.ELexState.indent:
+                    switch (c) {
+                        case " ":
+                            [acc, state, buffer] = [acc, types_1.ELexState.indent, `${buffer}${c}`];
+                            break;
+                        case "\n":
+                            [acc, state, buffer] = [acc, types_1.ELexState.indent, ""];
+                            break;
+                        case '"':
+                            acc.push(parseIndentation(buffer));
+                            [state, buffer] = [types_1.ELexState.string, ""];
+                            break;
+                        case "(":
+                            acc.push(parseIndentation(buffer), types_1.ELexControl.open);
+                            [state, buffer] = [types_1.ELexState.space, ""];
+                            break;
+                        default:
+                            acc.push(parseIndentation(buffer));
+                            [state, buffer] = [types_1.ELexState.token, c];
+                            break;
+                    }
+                    break;
+                default:
+                    console.log("Unknown state:", c);
+                    return acc;
+            }
+        }
+    }
+    return acc;
+};
+let repeat = (times, x) => {
+    let xs = [];
+    for (let i = 1; i <= times; i++) {
+        xs.push(x);
+    }
+    return xs;
+};
+let resolveIndentations = (initialTokens) => {
+    let acc = [];
+    let level = 0;
+    let tokens = initialTokens;
+    let pointer = 0;
+    while (true) {
+        if (pointer >= tokens.length) {
+            if (tree_1.isEmpty(acc)) {
+                return [];
+            }
+            else {
+                acc.unshift(types_1.ELexControl.open);
+                tree_1.pushToList(acc, repeat(level, types_1.ELexControl.close), [types_1.ELexControl.close]);
+                return acc;
+            }
+        }
+        else {
+            let cursor = tokens[pointer];
+            if (typeof cursor === "string") {
+                acc.push(cursor);
+                pointer += 1;
+                [level] = [level];
+            }
+            else if (cursor === types_1.ELexControl.open || cursor === types_1.ELexControl.close) {
+                acc.push(cursor);
+                pointer += 1;
+                [level] = [level];
+            }
+            else if (typeof cursor === "number") {
+                if (cursor > level) {
+                    let delta = cursor - level;
+                    tree_1.pushToList(acc, repeat(delta, types_1.ELexControl.open));
+                    pointer += 1;
+                    [level] = [cursor];
+                }
+                else if (cursor < level) {
+                    let delta = level - cursor;
+                    tree_1.pushToList(acc, repeat(delta, types_1.ELexControl.close), [types_1.ELexControl.close, types_1.ELexControl.open]);
+                    pointer += 1;
+                    [level] = [cursor];
+                }
+                else {
+                    if (tree_1.isEmpty(acc)) {
+                        acc = [];
+                    }
+                    else {
+                        acc.push(types_1.ELexControl.close, types_1.ELexControl.open);
+                    }
+                    pointer += 1;
+                    [level] = [level];
+                }
+            }
+            else {
+                console.log(cursor);
+                throw new Error("Unknown token");
+            }
+        }
+    }
+};
+let parse = (code) => {
+    let tokens = resolveIndentations(lex(code));
+    let pointer = 0;
+    let pullToken = () => {
+        let c = tokens[pointer];
+        pointer += 1;
+        return c;
+    };
+    return tree_1.resolveComma(tree_1.resolveDollar(buildExprs(pullToken)));
+};
+exports.parse = parse;
+//# sourceMappingURL=index.js.map

package/lib/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","sourceRoot":"","sources":["../src/index.ts"],"names":[],"mappings":";;;AAAA,mCAAmF;AACnF,iCAA8G;AAM9G,IAAI,WAAW,GAAG,CAAC,SAAuB,EAAE,EAAE;IAC5C,IAAI,GAAG,GAAiB,EAAE,CAAC;IAC3B,IAAI,OAAO,GAAG,GAAG,CAAC;IAClB,IAAI,YAAY,GAAG,EAAE,CAAC;IACtB,OAAO,IAAI,EAAE;QACX,IAAI,MAAM,GAAG,SAAS,EAAE,CAAC;QACzB,8CAA8C;QAC9C,QAAQ,MAAM,EAAE;YACd,KAAK,mBAAW,CAAC,KAAK;gBACpB,IAAI,YAAY,CAAC,MAAM,KAAK,CAAC,EAAE;oBAC7B,OAAO,OAAO,CAAC;iBAChB;gBACD,IAAI,SAAS,GAAG,OAAO,CAAC;gBACxB,OAAO,GAAG,YAAY,CAAC,GAAG,EAAE,CAAC;gBAC7B,OAAO,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;gBACxB,MAAM;YACR,KAAK,mBAAW,CAAC,IAAI;gBACnB,YAAY,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC;gBAC3B,OAAO,GAAG,EAAE,CAAC;gBACb,MAAM;YACR,KAAK,mBAAW,CAAC,KAAK;gBACpB,MAAM,IAAI,KAAK,CAAC,wBAAwB,CAAC,CAAC;YAC5C;gBACE,IAAI,eAAQ,CAAC,MAAM,CAAC,EAAE;oBACpB,OAAO,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;oBACrB,MAAM;iBACP;qBAAM;oBACL,OAAO,CAAC,GAAG,CAAC,IAAI,CAAC,SAAS,CAAC,MAAM,CAAC,CAAC,CAAC;oBACpC,MAAM,IAAI,KAAK,CAAC,gBAAgB,CAAC,CAAC;iBACnC;SACJ;KACF;AACH,CAAC,CAAC;AAEF,IAAI,UAAU,GAAG,CAAC,SAAuB,EAAE,EAAE;IAC3C,IAAI,GAAG,GAAG,EAAE,CAAC;IACb,OAAO,IAAI,EAAE;QACX,IAAI,KAAK,GAAG,SAAS,EAAE,CAAC;QACxB,IAAI,KAAK,KAAK,mBAAW,CAAC,IAAI,EAAE;YAC9B,IAAI,IAAI,GAAG,WAAW,CAAC,SAAS,CAAC,CAAC;YAClC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACf,SAAS;SACV;aAAM,IAAI,KAAK,IAAI,IAAI,EAAE;YACxB,OAAO,GAAG,CAAC;SACZ;aAAM,IAAI,KAAK,KAAK,mBAAW,CAAC,KAAK,EAAE;YACtC,MAAM,IAAI,KAAK,CAAC,gBAAgB,CAAC,CAAC;SACnC;aAAM;YACL,MAAM,IAAI,KAAK,CAAC,oBAAoB,IAAI,CAAC,SAAS,CAAC,KAAK,CAAC,EAAE,CAAC,CAAC;SAC9D;KACF;AACH,CAAC,CAAC;AAEF,IAAI,gBAAgB,GAAG,CAAC,MAAc,EAAE,EAAE;IACxC,IAAI,IAAI,GAAG,MAAM,CAAC,MAAM,CAAC;IACzB,IAAI,YAAK,CAAC,IAAI,CAAC,EAAE;QACf,MAAM,IAAI,KAAK,CAAC,4BAA4B,IAAI,EAAE,CAAC,CAAC;KACrD;IACD,OAAO,IAAI,GAAG,CAAC,CAAC;AAClB,CAAC,CAAC;AAEF,IAAI,GAAG,GAAG,CAAC,WAAmB,EAAE,EAAE;IAChC,IAAI,GAAG,GAAY,EAAE,CAAC;IACtB,IAAI,KAAK,GAAG,iBAAS,CAAC,MAAmB,CAAC;IAC1C,IAAI,MAAM,GAAG,EAAE,CAAC;IAChB,IAAI,IAAI,GAAG,WAAW,CAAC;IACvB,iBAAiB;IAEjB,IAAI,OAAO,GAAG,CAAC,CAAC;IAEhB,OAAO,IAAI,EAAE;QACX,cAAc;QACd,sBAAsB;QACtB,WAAW;QACX,IAAI;QACJ,IAAI,OAAO,IAAI,IAAI,CAAC,MAAM,EAAE;YAC1B,QAAQ,KAAK,EAAE;gBACb,KAAK,iBAAS,CAAC,KAAK;oBAClB,OAAO,GAAG,CAAC;gBACb,KAAK,iBAAS,CAAC,KAAK;oBAClB,GAAG,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;oBACjB,OAAO,GAAG,CAAC;oBACX,MAAM;gBACR,KAAK,iBAAS,CAAC,MAAM;oBACnB,MAAM,IAAI,KAAK,CAAC,sBAAsB,CAAC,CAAC;gBAC1C,KAAK,iBAAS,CAAC,MAAM;oBACnB,OAAO,GAAG,CAAC;gBACb,KAAK,iBAAS,CAAC,MAAM;oBACnB,MAAM,IAAI,KAAK,CAAC,sBAAsB,CAAC,CAAC;gBAC1C;oBACE,OAAO,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;oBACnB,MAAM,IAAI,KAAK,CAAC,cAAc,CAAC,CAAC;aACnC;SACF;aAAM;YACL,IAAI,CAAC,GAAG,IAAI,CAAC,OAAO,CAAC,CAAC;YACtB,OAAO,IAAI,CAAC,CAAC;YACb,QAAQ,KAAK,EAAE;gBACb,KAAK,iBAAS,CAAC,KAAK;oBAClB,QAAQ,CAAC,EAAE;wBACT,KAAK,GAAG;4BACN,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,iBAAS,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC;4BAClD,MAAM;wBACR,KAAK,IAAI;4BACP,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,iBAAS,CAAC,MAAM,EAAE,EAAE,CAAC,CAAC;4BACnD,MAAM;wBACR,KAAK,GAAG;4BACN,GAAG,CAAC,IAAI,CAAC,mBAAW,CAAC,IAAI,CAAC,CAAC;4BAC3B,CAAC,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,iBAAS,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC;4BACxC,MAAM;wBACR,KAAK,GAAG;4BACN,GAAG,CAAC,IAAI,CAAC,mBAAW,CAAC,KAAK,CAAC,CAAC;4BAC5B,CAAC,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,iBAAS,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC;4BACxC,MAAM;wBACR,KAAK,GAAG;4BACN,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,iBAAS,CAAC,MAAM,EAAE,EAAE,CAAC,CAAC;4BACnD,MAAM;wBACR;4BACE,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,iBAAS,CAAC,KAAK,EAAE,CAAC,CAAC,CAAC;4BACjD,MAAM;qBACT;oBACD,MAAM;gBACR,KAAK,iBAAS,CAAC,KAAK;oBAClB,QAAQ,CAAC,EAAE;wBACT,KAAK,GAAG;4BACN,GAAG,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;4BACjB,CAAC,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,iBAAS,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC;4BACxC,MAAM;wBACR,KAAK,GAAG;4BACN,GAAG,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;4BACjB,CAAC,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,iBAAS,CAAC,MAAM,EAAE,EAAE,CAAC,CAAC;4BACzC,MAAM;wBACR,KAAK,IAAI;4BACP,GAAG,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;4BACjB,CAAC,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,iBAAS,CAAC,MAAM,EAAE,EAAE,CAAC,CAAC;4BACzC,MAAM;wBACR,KAAK,GAAG;4BACN,GAAG,CAAC,IAAI,CAAC,MAAM,EAAE,mBAAW,CAAC,IAAI,CAAC,CAAC;4BACnC,CAAC,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,iBAAS,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC;4BACxC,MAAM;wBACR,KAAK,GAAG;4BACN,GAAG,CAAC,IAAI,CAAC,MAAM,EAAE,mBAAW,CAAC,KAAK,CAAC,CAAC;4BACpC,CAAC,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,iBAAS,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC;4BACxC,MAAM;wBACR;4BACE,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,iBAAS,CAAC,KAAK,EAAE,GAAG,MAAM,GAAG,CAAC,EAAE,CAAC,CAAC;4BAC/D,MAAM;qBACT;oBACD,MAAM;gBACR,KAAK,iBAAS,CAAC,MAAM;oBACnB,QAAQ,CAAC,EAAE;wBACT,KAAK,GAAG;4BACN,GAAG,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;4BACjB,CAAC,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,iBAAS,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC;4BACxC,MAAM;wBACR,KAAK,IAAI;4BACP,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,iBAAS,CAAC,MAAM,EAAE,MAAM,CAAC,CAAC;4BACvD,MAAM;wBACR,KAAK,IAAI;4BACP,MAAM,IAAI,KAAK,CAAC,4BAA4B,CAAC,CAAC;wBAChD;4BACE,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,iBAAS,CAAC,MAAM,EAAE,GAAG,MAAM,GAAG,CAAC,EAAE,CAAC,CAAC;4BAChE,MAAM;qBACT;oBACD,MAAM;gBACR,KAAK,iBAAS,CAAC,MAAM;oBACnB,QAAQ,CAAC,EAAE;wBACT,KAAK,GAAG;4BACN,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,iBAAS,CAAC,MAAM,EAAE,GAAG,MAAM,GAAG,CAAC,CAAC;4BAC7D,MAAM;wBACR,KAAK,GAAG;4BACN,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,iBAAS,CAAC,MAAM,EAAE,GAAG,MAAM,GAAG,CAAC,CAAC;4BAC7D,MAAM;wBACR,KAAK,GAAG;4BACN,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,iBAAS,CAAC,MAAM,EAAE,GAAG,MAAM,IAAI,CAAC,CAAC;4BAC9D,MAAM;wBACR,KAAK,GAAG;4BACN,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,iBAAS,CAAC,MAAM,EAAE,GAAG,MAAM,IAAI,CAAC,CAAC;4BAC9D,MAAM;wBACR,KAAK,IAAI;4BACP,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,iBAAS,CAAC,MAAM,EAAE,GAAG,MAAM,IAAI,CAAC,CAAC;4BAC9D,MAAM;wBACR;4BACE,MAAM,IAAI,KAAK,CAAC,WAAW,CAAC,YAAY,CAAC,CAAC;qBAC7C;oBACD,MAAM;gBACR,KAAK,iBAAS,CAAC,MAAM;oBACnB,QAAQ,CAAC,EAAE;wBACT,KAAK,GAAG;4BACN,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,iBAAS,CAAC,MAAM,EAAE,GAAG,MAAM,GAAG,CAAC,EAAE,CAAC,CAAC;4BAChE,MAAM;wBACR,KAAK,IAAI;4BACP,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,iBAAS,CAAC,MAAM,EAAE,EAAE,CAAC,CAAC;4BACnD,MAAM;wBACR,KAAK,GAAG;4BACN,GAAG,CAAC,IAAI,CAAC,gBAAgB,CAAC,MAAM,CAAC,CAAC,CAAC;4BACnC,CAAC,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,iBAAS,CAAC,MAAM,EAAE,EAAE,CAAC,CAAC;4BACzC,MAAM;wBACR,KAAK,GAAG;4BACN,GAAG,CAAC,IAAI,CAAC,gBAAgB,CAAC,MAAM,CAAC,EAAE,mBAAW,CAAC,IAAI,CAAC,CAAC;4BACrD,CAAC,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,iBAAS,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC;4BACxC,MAAM;wBACR;4BACE,GAAG,CAAC,IAAI,CAAC,gBAAgB,CAAC,MAAM,CAAC,CAAC,CAAC;4BACnC,CAAC,KAAK,EAAE,MAAM,CAAC,GAAG,CAAC,iBAAS,CAAC,KAAK,EAAE,CAAC,CAAC,CAAC;4BACvC,MAAM;qBACT;oBACD,MAAM;gBACR;oBACE,OAAO,CAAC,GAAG,CAAC,gBAAgB,EAAE,CAAC,CAAC,CAAC;oBACjC,OAAO,GAAG,CAAC;aACd;SACF;KACF;IACD,OAAO,GAAG,CAAC;AACb,CAAC,CAAC;AAEF,IAAI,MAAM,GAAG,CAAI,KAAa,EAAE,CAAI,EAAE,EAAE;IACtC,IAAI,EAAE,GAAQ,EAAE,CAAC;IACjB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,KAAK,EAAE,CAAC,EAAE,EAAE;QAC/B,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;KACZ;IACD,OAAO,EAAE,CAAC;AACZ,CAAC,CAAC;AAEF,IAAI,mBAAmB,GAAG,CAAC,aAAsB,EAAE,EAAE;IACnD,IAAI,GAAG,GAAY,EAAE,CAAC;IACtB,IAAI,KAAK,GAAG,CAAC,CAAC;IACd,IAAI,MAAM,GAAY,aAAa,CAAC;IACpC,IAAI,OAAO,GAAG,CAAC,CAAC;IAChB,OAAO,IAAI,EAAE;QACX,IAAI,OAAO,IAAI,MAAM,CAAC,MAAM,EAAE;YAC5B,IAAI,cAAO,CAAC,GAAG,CAAC,EAAE;gBAChB,OAAO,EAAE,CAAC;aACX;iBAAM;gBACL,GAAG,CAAC,OAAO,CAAC,mBAAW,CAAC,IAAI,CAAC,CAAC;gBAC9B,iBAAU,CAAC,GAAG,EAAE,MAAM,CAAC,KAAK,EAAE,mBAAW,CAAC,KAAK,CAAC,EAAE,CAAC,mBAAW,CAAC,KAAK,CAAC,CAAC,CAAC;gBACvE,OAAO,GAAG,CAAC;aACZ;SACF;aAAM;YACL,IAAI,MAAM,GAAG,MAAM,CAAC,OAAO,CAAC,CAAC;YAC7B,IAAI,OAAO,MAAM,KAAK,QAAQ,EAAE;gBAC9B,GAAG,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;gBACjB,OAAO,IAAI,CAAC,CAAC;gBACb,CAAC,KAAK,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;aACnB;iBAAM,IAAI,MAAM,KAAK,mBAAW,CAAC,IAAI,IAAI,MAAM,KAAK,mBAAW,CAAC,KAAK,EAAE;gBACtE,GAAG,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;gBACjB,OAAO,IAAI,CAAC,CAAC;gBACb,CAAC,KAAK,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;aACnB;iBAAM,IAAI,OAAO,MAAM,KAAK,QAAQ,EAAE;gBACrC,IAAI,MAAM,GAAG,KAAK,EAAE;oBAClB,IAAI,KAAK,GAAG,MAAM,GAAG,KAAK,CAAC;oBAC3B,iBAAU,CAAC,GAAG,EAAE,MAAM,CAAC,KAAK,EAAE,mBAAW,CAAC,IAAI,CAAC,CAAC,CAAC;oBACjD,OAAO,IAAI,CAAC,CAAC;oBACb,CAAC,KAAK,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC;iBACpB;qBAAM,IAAI,MAAM,GAAG,KAAK,EAAE;oBACzB,IAAI,KAAK,GAAG,KAAK,GAAG,MAAM,CAAC;oBAC3B,iBAAU,CAAC,GAAG,EAAE,MAAM,CAAC,KAAK,EAAE,mBAAW,CAAC,KAAK,CAAC,EAAE,CAAC,mBAAW,CAAC,KAAK,EAAE,mBAAW,CAAC,IAAI,CAAC,CAAC,CAAC;oBACzF,OAAO,IAAI,CAAC,CAAC;oBACb,CAAC,KAAK,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC;iBACpB;qBAAM;oBACL,IAAI,cAAO,CAAC,GAAG,CAAC,EAAE;wBAChB,GAAG,GAAG,EAAE,CAAC;qBACV;yBAAM;wBACL,GAAG,CAAC,IAAI,CAAC,mBAAW,CAAC,KAAK,EAAE,mBAAW,CAAC,IAAI,CAAC,CAAC;qBAC/C;oBACD,OAAO,IAAI,CAAC,CAAC;oBACb,CAAC,KAAK,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;iBACnB;aACF;iBAAM;gBACL,OAAO,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC;gBACpB,MAAM,IAAI,KAAK,CAAC,eAAe,CAAC,CAAC;aAClC;SACF;KACF;AACH,CAAC,CAAC;AAEK,IAAI,KAAK,GAAG,CAAC,IAAY,EAAE,EAAE;IAClC,IAAI,MAAM,GAAG,mBAAmB,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC;IAC5C,IAAI,OAAO,GAAG,CAAC,CAAC;IAChB,IAAI,SAAS,GAAG,GAAG,EAAE;QACnB,IAAI,CAAC,GAAG,MAAM,CAAC,OAAO,CAAC,CAAC;QACxB,OAAO,IAAI,CAAC,CAAC;QACb,OAAO,CAAC,CAAC;IACX,CAAC,CAAC;IACF,OAAO,mBAAY,CAAC,oBAAa,CAAC,UAAU,CAAC,SAAS,CAAC,CAAC,CAAC,CAAC;AAC5D,CAAC,CAAC;AATS,QAAA,KAAK,SASd"}

package/lib/tree.d.ts

@@ -0,0 +1,10 @@
+import { ICirruNode } from "./types";
+export declare let pushToList: <T>(acc: T[], xs: T[], ys?: T[], zs?: T[]) => T[];
+export declare let isArray: (arg: any) => arg is any[];
+export declare let isEmpty: (xs: any[] | string) => boolean;
+export declare let notEmpty: (xs: any[]) => boolean;
+export declare let isString: (x: any) => boolean;
+export declare let isNumber: (x: any) => boolean;
+export declare let isOdd: (x: number) => boolean;
+export declare let resolveComma: (xs: ICirruNode[]) => ICirruNode[];
+export declare let resolveDollar: (xs: ICirruNode[]) => ICirruNode[];

package/lib/tree.js

@@ -0,0 +1,106 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.resolveDollar = exports.resolveComma = exports.isOdd = exports.isNumber = exports.isString = exports.notEmpty = exports.isEmpty = exports.isArray = exports.pushToList = void 0;
+let pushToList = (acc, xs, ys, zs) => {
+    let result = acc;
+    xs.forEach((x) => {
+        result.push(x);
+    });
+    if (ys != null) {
+        ys.forEach((y) => {
+            result.push(y);
+        });
+    }
+    if (zs != null) {
+        zs.forEach((y) => {
+            result.push(y);
+        });
+    }
+    return result;
+};
+exports.pushToList = pushToList;
+exports.isArray = Array.isArray;
+let isEmpty = (xs) => xs.length === 0;
+exports.isEmpty = isEmpty;
+let notEmpty = (xs) => xs.length > 0;
+exports.notEmpty = notEmpty;
+let isString = (x) => typeof x === "string";
+exports.isString = isString;
+let isNumber = (x) => typeof x === "number";
+exports.isNumber = isNumber;
+let isOdd = (x) => x % 2 === 1;
+exports.isOdd = isOdd;
+let resolveComma = (xs) => {
+    if (exports.isEmpty(xs)) {
+        return [];
+    }
+    else {
+        return commaHelper(xs);
+    }
+};
+exports.resolveComma = resolveComma;
+let commaHelper = (intialAfter) => {
+    let before = [];
+    let after = intialAfter;
+    let pointer = 0;
+    while (true) {
+        if (pointer >= after.length) {
+            return before;
+        }
+        let cursor = after[pointer];
+        if (exports.isArray(cursor) && exports.notEmpty(cursor)) {
+            let head = cursor[0];
+            if (exports.isArray(head)) {
+                before.push(exports.resolveComma(cursor));
+                pointer += 1;
+            }
+            else if (head === ",") {
+                exports.pushToList(before, exports.resolveComma(cursor.slice(1)));
+                pointer += 1;
+            }
+            else {
+                before.push(exports.resolveComma(cursor));
+                pointer += 1;
+            }
+        }
+        else {
+            before.push(cursor);
+            pointer += 1;
+        }
+    }
+};
+let resolveDollar = (xs) => {
+    if (exports.isEmpty(xs)) {
+        return [];
+    }
+    else {
+        return dollarHelper(xs);
+    }
+};
+exports.resolveDollar = resolveDollar;
+let dollarHelper = (initialAfter) => {
+    let before = [];
+    let after = initialAfter;
+    let pointer = 0;
+    while (true) {
+        if (pointer >= after.length) {
+            return before;
+        }
+        else {
+            let cursor = after[pointer];
+            if (exports.isArray(cursor)) {
+                before.push(exports.resolveDollar(cursor));
+                pointer += 1;
+            }
+            else if (cursor === "$") {
+                before.push(exports.resolveDollar(after.slice(pointer + 1))); // pick items after pointer for $
+                pointer = after.length; // trying to exit
+            }
+            else {
+                before.push(cursor);
+                pointer += 1;
+            }
+        }
+    }
+};
+//# sourceMappingURL=tree.js.map

package/lib/tree.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"tree.js","sourceRoot":"","sources":["../src/tree.ts"],"names":[],"mappings":";;;AAEO,IAAI,UAAU,GAAG,CAAI,GAAQ,EAAE,EAAO,EAAE,EAAQ,EAAE,EAAQ,EAAE,EAAE;IACnE,IAAI,MAAM,GAAG,GAAG,CAAC;IACjB,EAAE,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,EAAE;QACf,MAAM,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IACjB,CAAC,CAAC,CAAC;IACH,IAAI,EAAE,IAAI,IAAI,EAAE;QACd,EAAE,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,EAAE;YACf,MAAM,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;QACjB,CAAC,CAAC,CAAC;KACJ;IACD,IAAI,EAAE,IAAI,IAAI,EAAE;QACd,EAAE,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,EAAE;YACf,MAAM,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;QACjB,CAAC,CAAC,CAAC;KACJ;IACD,OAAO,MAAM,CAAC;AAChB,CAAC,CAAC;AAhBS,QAAA,UAAU,cAgBnB;AAES,QAAA,OAAO,GAAG,KAAK,CAAC,OAAO,CAAC;AAC5B,IAAI,OAAO,GAAG,CAAC,EAAkB,EAAE,EAAE,CAAC,EAAE,CAAC,MAAM,KAAK,CAAC,CAAC;AAAlD,QAAA,OAAO,WAA2C;AACtD,IAAI,QAAQ,GAAG,CAAC,EAAS,EAAE,EAAE,CAAC,EAAE,CAAC,MAAM,GAAG,CAAC,CAAC;AAAxC,QAAA,QAAQ,YAAgC;AAC5C,IAAI,QAAQ,GAAG,CAAC,CAAM,EAAE,EAAE,CAAC,OAAO,CAAC,KAAK,QAAQ,CAAC;AAA7C,QAAA,QAAQ,YAAqC;AACjD,IAAI,QAAQ,GAAG,CAAC,CAAM,EAAE,EAAE,CAAC,OAAO,CAAC,KAAK,QAAQ,CAAC;AAA7C,QAAA,QAAQ,YAAqC;AACjD,IAAI,KAAK,GAAG,CAAC,CAAS,EAAE,EAAE,CAAC,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;AAAnC,QAAA,KAAK,SAA8B;AAEvC,IAAI,YAAY,GAAG,CAAC,EAAgB,EAAE,EAAE;IAC7C,IAAI,eAAO,CAAC,EAAE,CAAC,EAAE;QACf,OAAO,EAAE,CAAC;KACX;SAAM;QACL,OAAO,WAAW,CAAC,EAAE,CAAC,CAAC;KACxB;AACH,CAAC,CAAC;AANS,QAAA,YAAY,gBAMrB;AAEF,IAAI,WAAW,GAAG,CAAC,WAAyB,EAAE,EAAE;IAC9C,IAAI,MAAM,GAAiB,EAAE,CAAC;IAC9B,IAAI,KAAK,GAAiB,WAAW,CAAC;IAEtC,IAAI,OAAO,GAAG,CAAC,CAAC;IAEhB,OAAO,IAAI,EAAE;QACX,IAAI,OAAO,IAAI,KAAK,CAAC,MAAM,EAAE;YAC3B,OAAO,MAAM,CAAC;SACf;QACD,IAAI,MAAM,GAAG,KAAK,CAAC,OAAO,CAAC,CAAC;QAE5B,IAAI,eAAO,CAAC,MAAM,CAAC,IAAI,gBAAQ,CAAC,MAAM,CAAC,EAAE;YACvC,IAAI,IAAI,GAAG,MAAM,CAAC,CAAC,CAAC,CAAC;YACrB,IAAI,eAAO,CAAC,IAAI,CAAC,EAAE;gBACjB,MAAM,CAAC,IAAI,CAAC,oBAAY,CAAC,MAAM,CAAC,CAAC,CAAC;gBAClC,OAAO,IAAI,CAAC,CAAC;aACd;iBAAM,IAAI,IAAI,KAAK,GAAG,EAAE;gBACvB,kBAAU,CAAC,MAAM,EAAE,oBAAY,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;gBAClD,OAAO,IAAI,CAAC,CAAC;aACd;iBAAM;gBACL,MAAM,CAAC,IAAI,CAAC,oBAAY,CAAC,MAAM,CAAC,CAAC,CAAC;gBAClC,OAAO,IAAI,CAAC,CAAC;aACd;SACF;aAAM;YACL,MAAM,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;YACpB,OAAO,IAAI,CAAC,CAAC;SACd;KACF;AACH,CAAC,CAAC;AAEK,IAAI,aAAa,GAAG,CAAC,EAAgB,EAAE,EAAE;IAC9C,IAAI,eAAO,CAAC,EAAE,CAAC,EAAE;QACf,OAAO,EAAE,CAAC;KACX;SAAM;QACL,OAAO,YAAY,CAAC,EAAE,CAAC,CAAC;KACzB;AACH,CAAC,CAAC;AANS,QAAA,aAAa,iBAMtB;AAEF,IAAI,YAAY,GAAG,CAAC,YAA0B,EAAE,EAAE;IAChD,IAAI,MAAM,GAAiB,EAAE,CAAC;IAC9B,IAAI,KAAK,GAAiB,YAAY,CAAC;IAEvC,IAAI,OAAO,GAAG,CAAC,CAAC;IAEhB,OAAO,IAAI,EAAE;QACX,IAAI,OAAO,IAAI,KAAK,CAAC,MAAM,EAAE;YAC3B,OAAO,MAAM,CAAC;SACf;aAAM;YACL,IAAI,MAAM,GAAG,KAAK,CAAC,OAAO,CAAC,CAAC;YAE5B,IAAI,eAAO,CAAC,MAAM,CAAC,EAAE;gBACnB,MAAM,CAAC,IAAI,CAAC,qBAAa,CAAC,MAAM,CAAC,CAAC,CAAC;gBACnC,OAAO,IAAI,CAAC,CAAC;aACd;iBAAM,IAAI,MAAM,KAAK,GAAG,EAAE;gBACzB,MAAM,CAAC,IAAI,CAAC,qBAAa,CAAC,KAAK,CAAC,KAAK,CAAC,OAAO,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,iCAAiC;gBACvF,OAAO,GAAG,KAAK,CAAC,MAAM,CAAC,CAAC,iBAAiB;aAC1C;iBAAM;gBACL,MAAM,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;gBACpB,OAAO,IAAI,CAAC,CAAC;aACd;SACF;KACF;AACH,CAAC,CAAC"}

package/lib/types.d.ts

@@ -0,0 +1,14 @@
+export declare type ICirruNode = string | ICirruNode[];
+export declare enum ELexState {
+    space = 0,
+    token = 1,
+    escape = 2,
+    indent = 3,
+    string = 4
+}
+export declare enum ELexControl {
+    open = -1000,
+    close = -2000
+}
+export declare type LexList = (string | ELexControl | number)[];
+export declare type LexListItem = string | ELexControl | number;

package/lib/types.js

@@ -0,0 +1,17 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.ELexControl = exports.ELexState = void 0;
+var ELexState;
+(function (ELexState) {
+    ELexState[ELexState["space"] = 0] = "space";
+    ELexState[ELexState["token"] = 1] = "token";
+    ELexState[ELexState["escape"] = 2] = "escape";
+    ELexState[ELexState["indent"] = 3] = "indent";
+    ELexState[ELexState["string"] = 4] = "string";
+})(ELexState = exports.ELexState || (exports.ELexState = {}));
+var ELexControl;
+(function (ELexControl) {
+    ELexControl[ELexControl["open"] = -1000] = "open";
+    ELexControl[ELexControl["close"] = -2000] = "close";
+})(ELexControl = exports.ELexControl || (exports.ELexControl = {}));
+//# sourceMappingURL=types.js.map

package/lib/types.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"types.js","sourceRoot":"","sources":["../src/types.ts"],"names":[],"mappings":";;;AAEA,IAAY,SAMX;AAND,WAAY,SAAS;IACnB,2CAAK,CAAA;IACL,2CAAK,CAAA;IACL,6CAAM,CAAA;IACN,6CAAM,CAAA;IACN,6CAAM,CAAA;AACR,CAAC,EANW,SAAS,GAAT,iBAAS,KAAT,iBAAS,QAMpB;AAED,IAAY,WAGX;AAHD,WAAY,WAAW;IACrB,iDAAY,CAAA;IACZ,mDAAa,CAAA;AACf,CAAC,EAHW,WAAW,GAAX,mBAAW,KAAX,mBAAW,QAGtB"}

package/package.json

@@ -0,0 +1,62 @@
+{
+  "name": "@cirru/parser.ts",
+  "version": "0.0.4",
+  "description": "Cirru Parser in TypeScript",
+  "main": "lib/index.js",
+  "scripts": {
+    "dev": "webpack serve --hot --config webpack/dev.js",
+    "watch": "webpack serve --hot --config webpack/dev.js",
+    "release": "rm -rfv dist/* && time webpack --config webpack/release.js",
+    "build": "yarn release",
+    "serve": "http-server dist/ -s",
+    "test": "yarn jest",
+    "compile": "rm -rfv lib/* && tsc -d --project tsconfig-compile.json --outDir lib/",
+    "prepare": "yarn test && yarn compile",
+    "upload": "rsync -avr --progress dist/ cirru.org:~/repo/Cirru/parser.ts",
+    "gen-router": "ts-node -P tsconfig-node.json -r tsconfig-paths/register example/gen-router.ts",
+    "postinstall": "rm -rfv node_modules/@types/*/node_modules/@types/react"
+  },
+  "keywords": [],
+  "author": "",
+  "license": "MIT",
+  "devDependencies": {
+    "@emotion/css": "^11.1.3",
+    "@jimengio/ci-progress-webpack-plugin": "^0.1.0",
+    "@types/jest": "^26.0.20",
+    "@types/node": "^14.14.25",
+    "@types/prettier": "^2.1.6",
+    "@types/react": "^17.0.1",
+    "@types/react-dom": "^17.0.0",
+    "cache-loader": "^4.1.0",
+    "css-loader": "^5.0.1",
+    "dayjs": "^1.10.4",
+    "duplicate-package-checker-webpack-plugin": "^3.0.0",
+    "file-loader": "^6.2.0",
+    "font-awesome": "^4.7.0",
+    "fork-ts-checker-webpack-plugin": "^6.1.0",
+    "html-webpack-plugin": "^5.0.0",
+    "html-webpack-tags-plugin": "^3.0.0",
+    "immer": "^8.0.1",
+    "jest": "^26.6.3",
+    "mini-css-extract-plugin": "^1.3.5",
+    "prettier": "^2.2.1",
+    "query-string": "^6.13.8",
+    "react": "^17.0.1",
+    "react-dom": "^17.0.1",
+    "style-loader": "^2.0.0",
+    "thread-loader": "^3.0.1",
+    "ts-jest": "^26.5.0",
+    "ts-loader": "^8.0.14",
+    "tsconfig-paths": "^3.9.0",
+    "tsconfig-paths-webpack-plugin": "^3.3.0",
+    "typescript": "^4.1.3",
+    "typescript-styled-plugin": "^0.15.0",
+    "url-loader": "^4.1.1",
+    "webpack": "^5.20.1",
+    "webpack-bundle-analyzer": "^4.4.0",
+    "webpack-cli": "^4.5.0",
+    "webpack-dev-server": "^3.11.2",
+    "webpack-hud": "^0.1.2"
+  },
+  "dependencies": {}
+}

package/src/index.ts

@@ -0,0 +1,292 @@
+import { ICirruNode, ELexState, ELexControl, LexList, LexListItem } from "./types";
+import { pushToList, resolveComma, resolveDollar, isEmpty, isString, isNumber, isOdd, isArray } from "./tree";
+
+export { ICirruNode } from "./types";
+
+type FuncTokenGet = () => string | ELexControl;
+
+let graspeExprs = (pullToken: FuncTokenGet) => {
+  let acc: ICirruNode[] = [];
+  let pointer = acc;
+  let pointerStack = [];
+  while (true) {
+    let cursor = pullToken();
+    // console.log(pointerStack, pointer, cursor);
+    switch (cursor) {
+      case ELexControl.close:
+        if (pointerStack.length === 0) {
+          return pointer;
+        }
+        let collected = pointer;
+        pointer = pointerStack.pop();
+        pointer.push(collected);
+        break;
+      case ELexControl.open:
+        pointerStack.push(pointer);
+        pointer = [];
+        break;
+      case ELexControl.close:
+        throw new Error("Unexpected close token");
+      default:
+        if (isString(cursor)) {
+          pointer.push(cursor);
+          break;
+        } else {
+          console.log(JSON.stringify(cursor));
+          throw new Error("Unknown cursor");
+        }
+    }
+  }
+};
+
+let buildExprs = (pullToken: FuncTokenGet) => {
+  let acc = [];
+  while (true) {
+    let chunk = pullToken();
+    if (chunk === ELexControl.open) {
+      let expr = graspeExprs(pullToken);
+      acc.push(expr);
+      continue;
+    } else if (chunk == null) {
+      return acc;
+    } else if (chunk === ELexControl.close) {
+      throw new Error(`Unexpected ")"`);
+    } else {
+      throw new Error(`Unexpected chunk ${JSON.stringify(chunk)}`);
+    }
+  }
+};
+
+let parseIndentation = (buffer: string) => {
+  let size = buffer.length;
+  if (isOdd(size)) {
+    throw new Error(`Invalid indentation size ${size}`);
+  }
+  return size / 2;
+};
+
+let lex = (initialCode: string) => {
+  let acc: LexList = [];
+  let state = ELexState.indent as ELexState;
+  let buffer = "";
+  let code = initialCode;
+  // let count = 0;
+
+  let pointer = 0;
+
+  while (true) {
+    // count += 1;
+    // if (count > 1000) {
+    //   break;
+    // }
+    if (pointer >= code.length) {
+      switch (state) {
+        case ELexState.space:
+          return acc;
+        case ELexState.token:
+          acc.push(buffer);
+          return acc;
+          break;
+        case ELexState.escape:
+          throw new Error("Should not be escape");
+        case ELexState.indent:
+          return acc;
+        case ELexState.string:
+          throw new Error("Should not be string");
+        default:
+          console.log(state);
+          throw new Error("Unkown state");
+      }
+    } else {
+      let c = code[pointer];
+      pointer += 1;
+      switch (state) {
+        case ELexState.space:
+          switch (c) {
+            case " ":
+              [acc, state, buffer] = [acc, ELexState.space, ""];
+              break;
+            case "\n":
+              [acc, state, buffer] = [acc, ELexState.indent, ""];
+              break;
+            case "(":
+              acc.push(ELexControl.open);
+              [state, buffer] = [ELexState.space, ""];
+              break;
+            case ")":
+              acc.push(ELexControl.close);
+              [state, buffer] = [ELexState.space, ""];
+              break;
+            case '"':
+              [acc, state, buffer] = [acc, ELexState.string, ""];
+              break;
+            default:
+              [acc, state, buffer] = [acc, ELexState.token, c];
+              break;
+          }
+          break;
+        case ELexState.token:
+          switch (c) {
+            case " ":
+              acc.push(buffer);
+              [state, buffer] = [ELexState.space, ""];
+              break;
+            case '"':
+              acc.push(buffer);
+              [state, buffer] = [ELexState.string, ""];
+              break;
+            case "\n":
+              acc.push(buffer);
+              [state, buffer] = [ELexState.indent, ""];
+              break;
+            case "(":
+              acc.push(buffer, ELexControl.open);
+              [state, buffer] = [ELexState.space, ""];
+              break;
+            case ")":
+              acc.push(buffer, ELexControl.close);
+              [state, buffer] = [ELexState.space, ""];
+              break;
+            default:
+              [acc, state, buffer] = [acc, ELexState.token, `${buffer}${c}`];
+              break;
+          }
+          break;
+        case ELexState.string:
+          switch (c) {
+            case '"':
+              acc.push(buffer);
+              [state, buffer] = [ELexState.space, ""];
+              break;
+            case "\\":
+              [acc, state, buffer] = [acc, ELexState.escape, buffer];
+              break;
+            case "\n":
+              throw new Error("Expected newline in string");
+            default:
+              [acc, state, buffer] = [acc, ELexState.string, `${buffer}${c}`];
+              break;
+          }
+          break;
+        case ELexState.escape:
+          switch (c) {
+            case '"':
+              [acc, state, buffer] = [acc, ELexState.string, `${buffer}"`];
+              break;
+            case "'":
+              [acc, state, buffer] = [acc, ELexState.string, `${buffer}'`];
+              break;
+            case "t":
+              [acc, state, buffer] = [acc, ELexState.string, `${buffer}\t`];
+              break;
+            case "n":
+              [acc, state, buffer] = [acc, ELexState.string, `${buffer}\n`];
+              break;
+            case "\\":
+              [acc, state, buffer] = [acc, ELexState.string, `${buffer}\\`];
+              break;
+            default:
+              throw new Error(`Unknown ${c} in escape`);
+          }
+          break;
+        case ELexState.indent:
+          switch (c) {
+            case " ":
+              [acc, state, buffer] = [acc, ELexState.indent, `${buffer}${c}`];
+              break;
+            case "\n":
+              [acc, state, buffer] = [acc, ELexState.indent, ""];
+              break;
+            case '"':
+              acc.push(parseIndentation(buffer));
+              [state, buffer] = [ELexState.string, ""];
+              break;
+            case "(":
+              acc.push(parseIndentation(buffer), ELexControl.open);
+              [state, buffer] = [ELexState.space, ""];
+              break;
+            default:
+              acc.push(parseIndentation(buffer));
+              [state, buffer] = [ELexState.token, c];
+              break;
+          }
+          break;
+        default:
+          console.log("Unknown state:", c);
+          return acc;
+      }
+    }
+  }
+  return acc;
+};
+
+let repeat = <T>(times: number, x: T) => {
+  let xs: T[] = [];
+  for (let i = 1; i <= times; i++) {
+    xs.push(x);
+  }
+  return xs;
+};
+
+let resolveIndentations = (initialTokens: LexList) => {
+  let acc: LexList = [];
+  let level = 0;
+  let tokens: LexList = initialTokens;
+  let pointer = 0;
+  while (true) {
+    if (pointer >= tokens.length) {
+      if (isEmpty(acc)) {
+        return [];
+      } else {
+        acc.unshift(ELexControl.open);
+        pushToList(acc, repeat(level, ELexControl.close), [ELexControl.close]);
+        return acc;
+      }
+    } else {
+      let cursor = tokens[pointer];
+      if (typeof cursor === "string") {
+        acc.push(cursor);
+        pointer += 1;
+        [level] = [level];
+      } else if (cursor === ELexControl.open || cursor === ELexControl.close) {
+        acc.push(cursor);
+        pointer += 1;
+        [level] = [level];
+      } else if (typeof cursor === "number") {
+        if (cursor > level) {
+          let delta = cursor - level;
+          pushToList(acc, repeat(delta, ELexControl.open));
+          pointer += 1;
+          [level] = [cursor];
+        } else if (cursor < level) {
+          let delta = level - cursor;
+          pushToList(acc, repeat(delta, ELexControl.close), [ELexControl.close, ELexControl.open]);
+          pointer += 1;
+          [level] = [cursor];
+        } else {
+          if (isEmpty(acc)) {
+            acc = [];
+          } else {
+            acc.push(ELexControl.close, ELexControl.open);
+          }
+          pointer += 1;
+          [level] = [level];
+        }
+      } else {
+        console.log(cursor);
+        throw new Error("Unknown token");
+      }
+    }
+  }
+};
+
+export let parse = (code: string) => {
+  let tokens = resolveIndentations(lex(code));
+  let pointer = 0;
+  let pullToken = () => {
+    let c = tokens[pointer];
+    pointer += 1;
+    return c;
+  };
+  return resolveComma(resolveDollar(buildExprs(pullToken)));
+};

package/src/parser.test.ts

@@ -0,0 +1,77 @@
+let fs = require("fs");
+let path = require("path");
+let { parse } = require("./index");
+
+test("single quote", () => expect(parse('a "\\\'"')).toEqual([["a", "'"]]));
+
+test("demo", () => {
+  let code = fs.readFileSync(path.join(__dirname, "../test/cirru/demo.cirru"), "utf8");
+  let data = require(path.join(__dirname, "../test/ast/demo.json"));
+  expect(parse(code)).toEqual(data);
+});
+
+test("comma", () => {
+  let code = fs.readFileSync(path.join(__dirname, "../test/cirru/comma.cirru"), "utf8");
+  let data = require(path.join(__dirname, "../test/ast/comma.json"));
+  expect(parse(code)).toEqual(data);
+});
+
+test("empty", () => {
+  let code = fs.readFileSync(path.join(__dirname, "../test/cirru/empty.cirru"), "utf8");
+  let data = require(path.join(__dirname, "../test/ast/empty.json"));
+  expect(parse(code)).toEqual(data);
+});
+
+test("folded-beginning", () => {
+  let code = fs.readFileSync(path.join(__dirname, "../test/cirru/folded-beginning.cirru"), "utf8");
+  let data = require(path.join(__dirname, "../test/ast/folded-beginning.json"));
+  expect(parse(code)).toEqual(data);
+});
+
+test("folding", () => {
+  let code = fs.readFileSync(path.join(__dirname, "../test/cirru/folding.cirru"), "utf8");
+  let data = require(path.join(__dirname, "../test/ast/folding.json"));
+  expect(parse(code)).toEqual(data);
+});
+
+test("html", () => {
+  let code = fs.readFileSync(path.join(__dirname, "../test/cirru/html.cirru"), "utf8");
+  let data = require(path.join(__dirname, "../test/ast/html.json"));
+  expect(parse(code)).toEqual(data);
+});
+
+test("indent", () => {
+  let code = fs.readFileSync(path.join(__dirname, "../test/cirru/indent.cirru"), "utf8");
+  let data = require(path.join(__dirname, "../test/ast/indent.json"));
+  expect(parse(code)).toEqual(data);
+});
+
+test("line", () => {
+  let code = fs.readFileSync(path.join(__dirname, "../test/cirru/line.cirru"), "utf8");
+  let data = require(path.join(__dirname, "../test/ast/line.json"));
+  expect(parse(code)).toEqual(data);
+});
+
+test("parentheses", () => {
+  let code = fs.readFileSync(path.join(__dirname, "../test/cirru/parentheses.cirru"), "utf8");
+  let data = require(path.join(__dirname, "../test/ast/parentheses.json"));
+  expect(parse(code)).toEqual(data);
+});
+
+test("quote", () => {
+  let code = fs.readFileSync(path.join(__dirname, "../test/cirru/quote.cirru"), "utf8");
+  let data = require(path.join(__dirname, "../test/ast/quote.json"));
+  expect(parse(code)).toEqual(data);
+});
+
+test("spaces", () => {
+  let code = fs.readFileSync(path.join(__dirname, "../test/cirru/spaces.cirru"), "utf8");
+  let data = require(path.join(__dirname, "../test/ast/spaces.json"));
+  expect(parse(code)).toEqual(data);
+});
+
+test("unfolding", () => {
+  let code = fs.readFileSync(path.join(__dirname, "../test/cirru/unfolding.cirru"), "utf8");
+  let data = require(path.join(__dirname, "../test/ast/unfolding.json"));
+  expect(parse(code)).toEqual(data);
+});

package/src/tree.ts

@@ -0,0 +1,99 @@
+import { ICirruNode } from "./types";
+
+export let pushToList = <T>(acc: T[], xs: T[], ys?: T[], zs?: T[]) => {
+  let result = acc;
+  xs.forEach((x) => {
+    result.push(x);
+  });
+  if (ys != null) {
+    ys.forEach((y) => {
+      result.push(y);
+    });
+  }
+  if (zs != null) {
+    zs.forEach((y) => {
+      result.push(y);
+    });
+  }
+  return result;
+};
+
+export let isArray = Array.isArray;
+export let isEmpty = (xs: any[] | string) => xs.length === 0;
+export let notEmpty = (xs: any[]) => xs.length > 0;
+export let isString = (x: any) => typeof x === "string";
+export let isNumber = (x: any) => typeof x === "number";
+export let isOdd = (x: number) => x % 2 === 1;
+
+export let resolveComma = (xs: ICirruNode[]) => {
+  if (isEmpty(xs)) {
+    return [];
+  } else {
+    return commaHelper(xs);
+  }
+};
+
+let commaHelper = (intialAfter: ICirruNode[]) => {
+  let before: ICirruNode[] = [];
+  let after: ICirruNode[] = intialAfter;
+
+  let pointer = 0;
+
+  while (true) {
+    if (pointer >= after.length) {
+      return before;
+    }
+    let cursor = after[pointer];
+
+    if (isArray(cursor) && notEmpty(cursor)) {
+      let head = cursor[0];
+      if (isArray(head)) {
+        before.push(resolveComma(cursor));
+        pointer += 1;
+      } else if (head === ",") {
+        pushToList(before, resolveComma(cursor.slice(1)));
+        pointer += 1;
+      } else {
+        before.push(resolveComma(cursor));
+        pointer += 1;
+      }
+    } else {
+      before.push(cursor);
+      pointer += 1;
+    }
+  }
+};
+
+export let resolveDollar = (xs: ICirruNode[]) => {
+  if (isEmpty(xs)) {
+    return [];
+  } else {
+    return dollarHelper(xs);
+  }
+};
+
+let dollarHelper = (initialAfter: ICirruNode[]) => {
+  let before: ICirruNode[] = [];
+  let after: ICirruNode[] = initialAfter;
+
+  let pointer = 0;
+
+  while (true) {
+    if (pointer >= after.length) {
+      return before;
+    } else {
+      let cursor = after[pointer];
+
+      if (isArray(cursor)) {
+        before.push(resolveDollar(cursor));
+        pointer += 1;
+      } else if (cursor === "$") {
+        before.push(resolveDollar(after.slice(pointer + 1))); // pick items after pointer for $
+        pointer = after.length; // trying to exit
+      } else {
+        before.push(cursor);
+        pointer += 1;
+      }
+    }
+  }
+};

package/src/types.ts

@@ -0,0 +1,17 @@
+export type ICirruNode = string | ICirruNode[];
+
+export enum ELexState {
+  space,
+  token,
+  escape,
+  indent,
+  string,
+}
+
+export enum ELexControl {
+  open = -1000,
+  close = -2000,
+}
+
+export type LexList = (string | ELexControl | number)[];
+export type LexListItem = string | ELexControl | number;

package/tsconfig-compile.json

@@ -0,0 +1,23 @@
+{
+  "compilerOptions": {
+    "allowSyntheticDefaultImports": true,
+    "experimentalDecorators": true,
+    "sourceMap": true,
+    "noImplicitAny": false,
+    "noImplicitThis": true,
+    "strictNullChecks": false,
+    "moduleResolution": "node",
+    "module": "commonjs",
+    "target": "es2015",
+    "jsx": "react",
+    "lib": ["es2016", "dom"],
+    "types": [],
+    "plugins": [
+      {
+        "name": "typescript-styled-plugin"
+      }
+    ]
+  },
+  "include": ["src/*.ts", "src/*/*.ts"],
+  "exclude": ["src/*.test.ts"]
+}

package/tsconfig-node.json

@@ -0,0 +1,21 @@
+{
+  "compilerOptions": {
+    "allowSyntheticDefaultImports": true,
+    "experimentalDecorators": true,
+    "sourceMap": true,
+    "noImplicitAny": false,
+    "noImplicitThis": true,
+    "strictNullChecks": false,
+    "moduleResolution": "node",
+    "module": "commonjs",
+    "target": "es2016",
+    "jsx": "react",
+    "lib": ["es2016"],
+    "types": ["node"],
+    "baseUrl": "./example/",
+    "paths": {
+        "models": ["./example/models"]
+    },
+    "plugins": []
+  }
+}