@plurnk/plurnk-mimetypes-text-common-lisp 0.2.0

package/dist/TextCommonLisp.d.ts

@@ -0,0 +1,7 @@
+import { BaseHandler } from "@plurnk/plurnk-mimetypes";
+import type { HandlerContent, MimeSymbol } from "@plurnk/plurnk-mimetypes";
+export default class TextCommonLisp extends BaseHandler {
+    extractRaw(content: HandlerContent): MimeSymbol[];
+    deepJson(content: HandlerContent): unknown;
+}
+//# sourceMappingURL=TextCommonLisp.d.ts.map

package/dist/TextCommonLisp.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"TextCommonLisp.d.ts","sourceRoot":"","sources":["../src/TextCommonLisp.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,WAAW,EAAE,MAAM,0BAA0B,CAAC;AACvD,OAAO,KAAK,EAAE,cAAc,EAAE,UAAU,EAAc,MAAM,0BAA0B,CAAC;AAevF,MAAM,CAAC,OAAO,OAAO,cAAe,SAAQ,WAAW;IAC1C,UAAU,CAAC,OAAO,EAAE,cAAc,GAAG,UAAU,EAAE;IAejD,QAAQ,CAAC,OAAO,EAAE,cAAc,GAAG,OAAO;CAWtD"}

package/dist/TextCommonLisp.js

@@ -0,0 +1,393 @@
+import { BaseHandler } from "@plurnk/plurnk-mimetypes";
+// text/x-common-lisp handler. Hand-rolled S-expression scanner.
+//
+// The grammars-v4 `lisp` grammar is a McCarthy-1960 toy (can't tokenize
+// `+`, hyphens, or uppercase). We bypass ANTLR entirely and implement a
+// minimal scanner that handles real Common Lisp syntax:
+//   - parens, atoms, strings, char literals (#\...)
+//   - quote, backquote, comma, comma-at (',`,,@) — opaque
+//   - line comments (;) and block comments (#| ... |#)
+//   - reader macros (#', #(, #+, #-, etc.) — best-effort handling
+//
+// We don't build a full AST. We walk top-level forms, record their head
+// atom (defun / defmacro / defclass / etc.), and use it to dispatch a
+// symbol emission with the second atom as the declared name.
+export default class TextCommonLisp extends BaseHandler {
+    extractRaw(content) {
+        if (typeof content !== "string")
+            return [];
+        try {
+            return extractCommonLisp(content);
+        }
+        catch {
+            return [];
+        }
+    }
+    // Deep-channel (issue #10). For an S-expression language, the natural
+    // deep-tree is one node per top-level form carrying its head atom (defun,
+    // defmacro, etc.), declared name, and source range. Coarser than a full
+    // S-expression AST (Common Lisp's sub-form structure isn't navigable
+    // anyway — macros transform it freely) but enough for jsonpath like
+    // \$.children[?(@.head=='defun')] to find all function definitions.
+    deepJson(content) {
+        if (typeof content !== "string")
+            return null;
+        try {
+            const children = extractForms(content);
+            return { type: "program", line: 1, endLine: children.length > 0
+                    ? children[children.length - 1].endLine
+                    : 1, children };
+        }
+        catch {
+            return null;
+        }
+    }
+}
+function extractForms(src) {
+    const out = [];
+    const scanner = new Scanner(src);
+    while (!scanner.eof()) {
+        const form = scanner.readTopLevelForm();
+        if (!form)
+            break;
+        if (form.head) {
+            const node = {
+                type: form.head,
+                line: form.line,
+                endLine: form.endLine,
+            };
+            if (form.secondAtom !== null)
+                node.name = form.secondAtom;
+            if (form.paramAtoms.length > 0)
+                node.params = form.paramAtoms;
+            out.push(node);
+        }
+    }
+    return out;
+}
+function extractCommonLisp(src) {
+    const symbols = [];
+    const scanner = new Scanner(src);
+    while (!scanner.eof()) {
+        const form = scanner.readTopLevelForm();
+        if (!form)
+            break;
+        if (form.head)
+            emit(symbols, form);
+    }
+    return symbols;
+}
+function emit(out, form) {
+    const dispatch = (kind, withParams = false) => {
+        if (!form.secondAtom)
+            return;
+        const sym = {
+            name: form.secondAtom,
+            kind,
+            line: form.line,
+            endLine: form.endLine,
+        };
+        if (withParams)
+            sym.params = form.paramAtoms;
+        out.push(sym);
+    };
+    switch (form.head.toLowerCase()) {
+        case "defun":
+        case "defmacro":
+            dispatch("function", true);
+            return;
+        case "defgeneric":
+            dispatch("function", true);
+            return;
+        case "defmethod":
+            dispatch("method", true);
+            return;
+        case "defparameter":
+        case "defvar":
+            dispatch("variable");
+            return;
+        case "defconstant":
+            dispatch("constant");
+            return;
+        case "defclass":
+        case "defstruct":
+            dispatch("class");
+            return;
+        case "deftype":
+            dispatch("type");
+            return;
+        case "defpackage":
+            dispatch("module");
+            return;
+        default:
+            return;
+    }
+}
+// Scanner — minimal S-expression reader. Tracks position + line numbers.
+// We don't care about expression VALUES — we care about the SHAPE: where
+// each top-level form starts/ends and what its first two atoms are.
+class Scanner {
+    #src;
+    #i = 0;
+    #line = 1;
+    constructor(src) {
+        this.#src = src;
+    }
+    eof() {
+        this.skipWhitespaceAndComments();
+        return this.#i >= this.#src.length;
+    }
+    readTopLevelForm() {
+        this.skipWhitespaceAndComments();
+        if (this.#i >= this.#src.length)
+            return null;
+        const startLine = this.#line;
+        // Top-level reader macros like #+feature (form ...) — we treat them
+        // as the form's prefix: skip the #+/-feature directive, then read.
+        this.skipReaderMacroPrefix();
+        const ch = this.#src[this.#i];
+        if (ch !== "(") {
+            // A bare atom at top level (unusual). Skip it.
+            this.skipAtom();
+            return { head: "", secondAtom: null, line: startLine, endLine: this.#line, paramAtoms: [] };
+        }
+        // Open paren: read the head atom (or skip if a nested list comes
+        // first), then collect the second atom and a parameter vector if
+        // the third form is a list.
+        this.#i += 1; // consume (
+        const head = this.readNextAtomInList();
+        const secondAtom = head !== "" ? this.readNextAtomInList() : null;
+        const paramAtoms = this.tryReadParamList();
+        this.skipToMatchingClose();
+        const endLine = this.#line;
+        return { head, secondAtom, line: startLine, endLine, paramAtoms };
+    }
+    // Read the next atom in the current list context. Stops at ')' or
+    // before a nested '(' (returning ""). Consumes the atom on success.
+    readNextAtomInList() {
+        this.skipWhitespaceAndCommentsAndReaderMacros();
+        if (this.#i >= this.#src.length)
+            return "";
+        const ch = this.#src[this.#i];
+        if (ch === ")" || ch === "(" || ch === undefined)
+            return "";
+        return this.readAtom();
+    }
+    // After the head + name, the next form is often a parameter list:
+    //   (defun foo (a b c) body) — list of param atoms.
+    // For defmethod: (defmethod foo ((x type) y) body) — params are mixed
+    // typed/untyped specifiers; we emit each first element.
+    // Returns [] if the next form isn't a list.
+    tryReadParamList() {
+        this.skipWhitespaceAndCommentsAndReaderMacros();
+        if (this.#src[this.#i] !== "(")
+            return [];
+        this.#i += 1; // consume (
+        const params = [];
+        // Common Lisp lambda-list keywords mark the boundary between
+        // "real" required params and special collectors. We stop adding
+        // params at the first `&` keyword so the outline shows only the
+        // canonical positional names.
+        let stopped = false;
+        while (this.#i < this.#src.length) {
+            this.skipWhitespaceAndCommentsAndReaderMacros();
+            const ch = this.#src[this.#i];
+            if (ch === ")" || ch === undefined) {
+                if (ch === ")")
+                    this.#i += 1;
+                break;
+            }
+            if (ch === "(") {
+                this.#i += 1;
+                const inner = this.readNextAtomInList();
+                this.skipToMatchingClose();
+                if (!stopped && inner && !inner.startsWith("&"))
+                    params.push(inner);
+                continue;
+            }
+            const atom = this.readAtom();
+            if (atom.startsWith("&")) {
+                stopped = true;
+                continue;
+            }
+            if (!stopped && atom)
+                params.push(atom);
+        }
+        return params;
+    }
+    // Skip from current position to the matching close paren, tracking
+    // nesting and string/comment context. Used after we've extracted what
+    // we need from the head of a form.
+    skipToMatchingClose() {
+        let depth = 1; // we're inside one open paren
+        while (this.#i < this.#src.length && depth > 0) {
+            this.skipWhitespaceAndCommentsAndReaderMacros();
+            const ch = this.#src[this.#i];
+            if (ch === undefined)
+                break;
+            if (ch === "(") {
+                depth += 1;
+                this.#i += 1;
+            }
+            else if (ch === ")") {
+                depth -= 1;
+                this.#i += 1;
+            }
+            else if (ch === '"') {
+                this.skipString();
+            }
+            else {
+                this.skipAtom();
+            }
+        }
+    }
+    readAtom() {
+        const start = this.#i;
+        while (this.#i < this.#src.length) {
+            const c = this.#src[this.#i];
+            if (this.isAtomTerminator(c))
+                break;
+            // Char literal #\x — consume the char and stop.
+            if (c === "#" && this.#src[this.#i + 1] === "\\") {
+                this.#i += 2;
+                if (this.#i < this.#src.length) {
+                    // Read named char (Space, Newline, etc.) — a span of letters.
+                    while (this.#i < this.#src.length && /[A-Za-z0-9_-]/.test(this.#src[this.#i])) {
+                        this.#i += 1;
+                    }
+                }
+                continue;
+            }
+            // String mid-atom: shouldn't happen in well-formed code; bail.
+            if (c === '"')
+                break;
+            this.#i += 1;
+        }
+        return this.#src.slice(start, this.#i);
+    }
+    skipAtom() {
+        this.readAtom();
+    }
+    skipString() {
+        if (this.#src[this.#i] !== '"')
+            return;
+        this.#i += 1; // consume opening
+        while (this.#i < this.#src.length) {
+            const c = this.#src[this.#i];
+            if (c === "\\" && this.#i + 1 < this.#src.length) {
+                if (this.#src[this.#i + 1] === "\n")
+                    this.#line += 1;
+                this.#i += 2;
+                continue;
+            }
+            if (c === '"') {
+                this.#i += 1;
+                return;
+            }
+            if (c === "\n")
+                this.#line += 1;
+            this.#i += 1;
+        }
+    }
+    skipWhitespaceAndComments() {
+        while (this.#i < this.#src.length) {
+            const c = this.#src[this.#i];
+            if (c === " " || c === "\t" || c === "\r") {
+                this.#i += 1;
+            }
+            else if (c === "\n") {
+                this.#line += 1;
+                this.#i += 1;
+            }
+            else if (c === ";") {
+                while (this.#i < this.#src.length && this.#src[this.#i] !== "\n")
+                    this.#i += 1;
+            }
+            else if (c === "#" && this.#src[this.#i + 1] === "|") {
+                this.skipBlockComment();
+            }
+            else {
+                return;
+            }
+        }
+    }
+    skipWhitespaceAndCommentsAndReaderMacros() {
+        for (;;) {
+            const before = this.#i;
+            this.skipWhitespaceAndComments();
+            this.skipReaderMacroPrefix();
+            if (this.#i === before)
+                return;
+        }
+    }
+    // Skip reader macros that PREFIX a form, not consume the form itself:
+    //   ' ` , ,@ #' #+feat #-feat #. #s(...)
+    // For #+/-feature we consume the feature expression (an atom or a
+    // parenthesized expression).
+    skipReaderMacroPrefix() {
+        const c = this.#src[this.#i];
+        if (c === "'" || c === "`") {
+            this.#i += 1;
+            return;
+        }
+        if (c === ",") {
+            this.#i += 1;
+            if (this.#src[this.#i] === "@")
+                this.#i += 1;
+            return;
+        }
+        if (c === "#") {
+            const n = this.#src[this.#i + 1];
+            if (n === "'" || n === "." || n === ":") {
+                this.#i += 2;
+                return;
+            }
+            if (n === "+" || n === "-") {
+                this.#i += 2;
+                this.skipWhitespaceAndComments();
+                // Skip the feature expression (atom or parenthesized).
+                if (this.#src[this.#i] === "(") {
+                    this.#i += 1;
+                    this.skipToMatchingClose();
+                }
+                else {
+                    this.skipAtom();
+                }
+                return;
+            }
+            if (n === "(") {
+                // #( vector literal — leave the '(' for the caller.
+                this.#i += 1;
+                return;
+            }
+            // Other dispatch: best-effort consume the # and let caller
+            // handle the rest.
+        }
+    }
+    skipBlockComment() {
+        // Already at #|. Consume and find matching |# (nested-aware).
+        this.#i += 2;
+        let depth = 1;
+        while (this.#i < this.#src.length && depth > 0) {
+            const c = this.#src[this.#i];
+            if (c === "#" && this.#src[this.#i + 1] === "|") {
+                depth += 1;
+                this.#i += 2;
+            }
+            else if (c === "|" && this.#src[this.#i + 1] === "#") {
+                depth -= 1;
+                this.#i += 2;
+            }
+            else {
+                if (c === "\n")
+                    this.#line += 1;
+                this.#i += 1;
+            }
+        }
+    }
+    isAtomTerminator(c) {
+        return c === " " || c === "\t" || c === "\r" || c === "\n"
+            || c === "(" || c === ")" || c === ";";
+    }
+}
+//# sourceMappingURL=TextCommonLisp.js.map

package/dist/TextCommonLisp.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"TextCommonLisp.js","sourceRoot":"","sources":["../src/TextCommonLisp.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,WAAW,EAAE,MAAM,0BAA0B,CAAC;AAGvD,gEAAgE;AAChE,EAAE;AACF,wEAAwE;AACxE,wEAAwE;AACxE,wDAAwD;AACxD,oDAAoD;AACpD,0DAA0D;AAC1D,uDAAuD;AACvD,kEAAkE;AAClE,EAAE;AACF,wEAAwE;AACxE,sEAAsE;AACtE,6DAA6D;AAC7D,MAAM,CAAC,OAAO,OAAO,cAAe,SAAQ,WAAW;IAC1C,UAAU,CAAC,OAAuB;QACvC,IAAI,OAAO,OAAO,KAAK,QAAQ;YAAE,OAAO,EAAE,CAAC;QAC3C,IAAI,CAAC;YACD,OAAO,iBAAiB,CAAC,OAAO,CAAC,CAAC;QACtC,CAAC;QAAC,MAAM,CAAC;YACL,OAAO,EAAE,CAAC;QACd,CAAC;IACL,CAAC;IAED,sEAAsE;IACtE,0EAA0E;IAC1E,wEAAwE;IACxE,qEAAqE;IACrE,oEAAoE;IACpE,oEAAoE;IAC3D,QAAQ,CAAC,OAAuB;QACrC,IAAI,OAAO,OAAO,KAAK,QAAQ;YAAE,OAAO,IAAI,CAAC;QAC7C,IAAI,CAAC;YACD,MAAM,QAAQ,GAAG,YAAY,CAAC,OAAO,CAAC,CAAC;YACvC,OAAO,EAAE,IAAI,EAAE,SAAS,EAAE,IAAI,EAAE,CAAC,EAAE,OAAO,EAAE,QAAQ,CAAC,MAAM,GAAG,CAAC;oBAC3D,CAAC,CAAE,QAAQ,CAAC,QAAQ,CAAC,MAAM,GAAG,CAAC,CAAyB,CAAC,OAAO;oBAChE,CAAC,CAAC,CAAC,EAAE,QAAQ,EAAE,CAAC;QACxB,CAAC;QAAC,MAAM,CAAC;YACL,OAAO,IAAI,CAAC;QAChB,CAAC;IACL,CAAC;CACJ;AAED,SAAS,YAAY,CAAC,GAAW;IAC7B,MAAM,GAAG,GAAc,EAAE,CAAC;IAC1B,MAAM,OAAO,GAAG,IAAI,OAAO,CAAC,GAAG,CAAC,CAAC;IACjC,OAAO,CAAC,OAAO,CAAC,GAAG,EAAE,EAAE,CAAC;QACpB,MAAM,IAAI,GAAG,OAAO,CAAC,gBAAgB,EAAE,CAAC;QACxC,IAAI,CAAC,IAAI;YAAE,MAAM;QACjB,IAAI,IAAI,CAAC,IAAI,EAAE,CAAC;YACZ,MAAM,IAAI,GAA4B;gBAClC,IAAI,EAAE,IAAI,CAAC,IAAI;gBACf,IAAI,EAAE,IAAI,CAAC,IAAI;gBACf,OAAO,EAAE,IAAI,CAAC,OAAO;aACxB,CAAC;YACF,IAAI,IAAI,CAAC,UAAU,KAAK,IAAI;gBAAE,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC,UAAU,CAAC;YAC1D,IAAI,IAAI,CAAC,UAAU,CAAC,MAAM,GAAG,CAAC;gBAAE,IAAI,CAAC,MAAM,GAAG,IAAI,CAAC,UAAU,CAAC;YAC9D,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACnB,CAAC;IACL,CAAC;IACD,OAAO,GAAG,CAAC;AACf,CAAC;AAwBD,SAAS,iBAAiB,CAAC,GAAW;IAClC,MAAM,OAAO,GAAiB,EAAE,CAAC;IACjC,MAAM,OAAO,GAAG,IAAI,OAAO,CAAC,GAAG,CAAC,CAAC;IACjC,OAAO,CAAC,OAAO,CAAC,GAAG,EAAE,EAAE,CAAC;QACpB,MAAM,IAAI,GAAG,OAAO,CAAC,gBAAgB,EAAE,CAAC;QACxC,IAAI,CAAC,IAAI;YAAE,MAAM;QACjB,IAAI,IAAI,CAAC,IAAI;YAAE,IAAI,CAAC,OAAO,EAAE,IAAI,CAAC,CAAC;IACvC,CAAC;IACD,OAAO,OAAO,CAAC;AACnB,CAAC;AAED,SAAS,IAAI,CAAC,GAAiB,EAAE,IAAa;IAC1C,MAAM,QAAQ,GAAG,CAAC,IAAgB,EAAE,UAAU,GAAG,KAAK,EAAQ,EAAE;QAC5D,IAAI,CAAC,IAAI,CAAC,UAAU;YAAE,OAAO;QAC7B,MAAM,GAAG,GAAe;YACpB,IAAI,EAAE,IAAI,CAAC,UAAU;YACrB,IAAI;YACJ,IAAI,EAAE,IAAI,CAAC,IAAI;YACf,OAAO,EAAE,IAAI,CAAC,OAAO;SACxB,CAAC;QACF,IAAI,UAAU;YAAE,GAAG,CAAC,MAAM,GAAG,IAAI,CAAC,UAAU,CAAC;QAC7C,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;IAClB,CAAC,CAAC;IAEF,QAAQ,IAAI,CAAC,IAAI,CAAC,WAAW,EAAE,EAAE,CAAC;QAC9B,KAAK,OAAO,CAAC;QACb,KAAK,UAAU;YACX,QAAQ,CAAC,UAAU,EAAE,IAAI,CAAC,CAAC;YAC3B,OAAO;QACX,KAAK,YAAY;YACb,QAAQ,CAAC,UAAU,EAAE,IAAI,CAAC,CAAC;YAC3B,OAAO;QACX,KAAK,WAAW;YACZ,QAAQ,CAAC,QAAQ,EAAE,IAAI,CAAC,CAAC;YACzB,OAAO;QACX,KAAK,cAAc,CAAC;QACpB,KAAK,QAAQ;YACT,QAAQ,CAAC,UAAU,CAAC,CAAC;YACrB,OAAO;QACX,KAAK,aAAa;YACd,QAAQ,CAAC,UAAU,CAAC,CAAC;YACrB,OAAO;QACX,KAAK,UAAU,CAAC;QAChB,KAAK,WAAW;YACZ,QAAQ,CAAC,OAAO,CAAC,CAAC;YAClB,OAAO;QACX,KAAK,SAAS;YACV,QAAQ,CAAC,MAAM,CAAC,CAAC;YACjB,OAAO;QACX,KAAK,YAAY;YACb,QAAQ,CAAC,QAAQ,CAAC,CAAC;YACnB,OAAO;QACX;YACI,OAAO;IACf,CAAC;AACL,CAAC;AAED,yEAAyE;AACzE,yEAAyE;AACzE,oEAAoE;AACpE,MAAM,OAAO;IACT,IAAI,CAAS;IACb,EAAE,GAAG,CAAC,CAAC;IACP,KAAK,GAAG,CAAC,CAAC;IAEV,YAAY,GAAW;QACnB,IAAI,CAAC,IAAI,GAAG,GAAG,CAAC;IACpB,CAAC;IAED,GAAG;QACC,IAAI,CAAC,yBAAyB,EAAE,CAAC;QACjC,OAAO,IAAI,CAAC,EAAE,IAAI,IAAI,CAAC,IAAI,CAAC,MAAM,CAAC;IACvC,CAAC;IAED,gBAAgB;QACZ,IAAI,CAAC,yBAAyB,EAAE,CAAC;QACjC,IAAI,IAAI,CAAC,EAAE,IAAI,IAAI,CAAC,IAAI,CAAC,MAAM;YAAE,OAAO,IAAI,CAAC;QAE7C,MAAM,SAAS,GAAG,IAAI,CAAC,KAAK,CAAC;QAC7B,oEAAoE;QACpE,mEAAmE;QACnE,IAAI,CAAC,qBAAqB,EAAE,CAAC;QAE7B,MAAM,EAAE,GAAG,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;QAC9B,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;YACb,+CAA+C;YAC/C,IAAI,CAAC,QAAQ,EAAE,CAAC;YAChB,OAAO,EAAE,IAAI,EAAE,EAAE,EAAE,UAAU,EAAE,IAAI,EAAE,IAAI,EAAE,SAAS,EAAE,OAAO,EAAE,IAAI,CAAC,KAAK,EAAE,UAAU,EAAE,EAAE,EAAE,CAAC;QAChG,CAAC;QAED,iEAAiE;QACjE,iEAAiE;QACjE,4BAA4B;QAC5B,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC,YAAY;QAE1B,MAAM,IAAI,GAAG,IAAI,CAAC,kBAAkB,EAAE,CAAC;QACvC,MAAM,UAAU,GAAG,IAAI,KAAK,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,kBAAkB,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC;QAClE,MAAM,UAAU,GAAG,IAAI,CAAC,gBAAgB,EAAE,CAAC;QAC3C,IAAI,CAAC,mBAAmB,EAAE,CAAC;QAC3B,MAAM,OAAO,GAAG,IAAI,CAAC,KAAK,CAAC;QAC3B,OAAO,EAAE,IAAI,EAAE,UAAU,EAAE,IAAI,EAAE,SAAS,EAAE,OAAO,EAAE,UAAU,EAAE,CAAC;IACtE,CAAC;IAED,kEAAkE;IAClE,oEAAoE;IAC5D,kBAAkB;QACtB,IAAI,CAAC,wCAAwC,EAAE,CAAC;QAChD,IAAI,IAAI,CAAC,EAAE,IAAI,IAAI,CAAC,IAAI,CAAC,MAAM;YAAE,OAAO,EAAE,CAAC;QAC3C,MAAM,EAAE,GAAG,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;QAC9B,IAAI,EAAE,KAAK,GAAG,IAAI,EAAE,KAAK,GAAG,IAAI,EAAE,KAAK,SAAS;YAAE,OAAO,EAAE,CAAC;QAC5D,OAAO,IAAI,CAAC,QAAQ,EAAE,CAAC;IAC3B,CAAC;IAED,kEAAkE;IAClE,oDAAoD;IACpD,sEAAsE;IACtE,wDAAwD;IACxD,4CAA4C;IACpC,gBAAgB;QACpB,IAAI,CAAC,wCAAwC,EAAE,CAAC;QAChD,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,KAAK,GAAG;YAAE,OAAO,EAAE,CAAC;QAC1C,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC,YAAY;QAC1B,MAAM,MAAM,GAAa,EAAE,CAAC;QAC5B,6DAA6D;QAC7D,gEAAgE;QAChE,gEAAgE;QAChE,8BAA8B;QAC9B,IAAI,OAAO,GAAG,KAAK,CAAC;QACpB,OAAO,IAAI,CAAC,EAAE,GAAG,IAAI,CAAC,IAAI,CAAC,MAAM,EAAE,CAAC;YAChC,IAAI,CAAC,wCAAwC,EAAE,CAAC;YAChD,MAAM,EAAE,GAAG,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;YAC9B,IAAI,EAAE,KAAK,GAAG,IAAI,EAAE,KAAK,SAAS,EAAE,CAAC;gBACjC,IAAI,EAAE,KAAK,GAAG;oBAAE,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;gBAC7B,MAAM;YACV,CAAC;YACD,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;gBACb,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;gBACb,MAAM,KAAK,GAAG,IAAI,CAAC,kBAAkB,EAAE,CAAC;gBACxC,IAAI,CAAC,mBAAmB,EAAE,CAAC;gBAC3B,IAAI,CAAC,OAAO,IAAI,KAAK,IAAI,CAAC,KAAK,CAAC,UAAU,CAAC,GAAG,CAAC;oBAAE,MAAM,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;gBACpE,SAAS;YACb,CAAC;YACD,MAAM,IAAI,GAAG,IAAI,CAAC,QAAQ,EAAE,CAAC;YAC7B,IAAI,IAAI,CAAC,UAAU,CAAC,GAAG,CAAC,EAAE,CAAC;gBACvB,OAAO,GAAG,IAAI,CAAC;gBACf,SAAS;YACb,CAAC;YACD,IAAI,CAAC,OAAO,IAAI,IAAI;gBAAE,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAC5C,CAAC;QACD,OAAO,MAAM,CAAC;IAClB,CAAC;IAED,mEAAmE;IACnE,sEAAsE;IACtE,mCAAmC;IAC3B,mBAAmB;QACvB,IAAI,KAAK,GAAG,CAAC,CAAC,CAAC,8BAA8B;QAC7C,OAAO,IAAI,CAAC,EAAE,GAAG,IAAI,CAAC,IAAI,CAAC,MAAM,IAAI,KAAK,GAAG,CAAC,EAAE,CAAC;YAC7C,IAAI,CAAC,wCAAwC,EAAE,CAAC;YAChD,MAAM,EAAE,GAAG,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;YAC9B,IAAI,EAAE,KAAK,SAAS;gBAAE,MAAM;YAC5B,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;gBACb,KAAK,IAAI,CAAC,CAAC;gBACX,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;YACjB,CAAC;iBAAM,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;gBACpB,KAAK,IAAI,CAAC,CAAC;gBACX,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;YACjB,CAAC;iBAAM,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;gBACpB,IAAI,CAAC,UAAU,EAAE,CAAC;YACtB,CAAC;iBAAM,CAAC;gBACJ,IAAI,CAAC,QAAQ,EAAE,CAAC;YACpB,CAAC;QACL,CAAC;IACL,CAAC;IAEO,QAAQ;QACZ,MAAM,KAAK,GAAG,IAAI,CAAC,EAAE,CAAC;QACtB,OAAO,IAAI,CAAC,EAAE,GAAG,IAAI,CAAC,IAAI,CAAC,MAAM,EAAE,CAAC;YAChC,MAAM,CAAC,GAAG,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAE,CAAC;YAC9B,IAAI,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC;gBAAE,MAAM;YACpC,gDAAgD;YAChD,IAAI,CAAC,KAAK,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,GAAG,CAAC,CAAC,KAAK,IAAI,EAAE,CAAC;gBAC/C,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;gBACb,IAAI,IAAI,CAAC,EAAE,GAAG,IAAI,CAAC,IAAI,CAAC,MAAM,EAAE,CAAC;oBAC7B,8DAA8D;oBAC9D,OAAO,IAAI,CAAC,EAAE,GAAG,IAAI,CAAC,IAAI,CAAC,MAAM,IAAI,eAAe,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAE,CAAC,EAAE,CAAC;wBAC7E,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;oBACjB,CAAC;gBACL,CAAC;gBACD,SAAS;YACb,CAAC;YACD,+DAA+D;YAC/D,IAAI,CAAC,KAAK,GAAG;gBAAE,MAAM;YACrB,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;QACjB,CAAC;QACD,OAAO,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,KAAK,EAAE,IAAI,CAAC,EAAE,CAAC,CAAC;IAC3C,CAAC;IAEO,QAAQ;QACZ,IAAI,CAAC,QAAQ,EAAE,CAAC;IACpB,CAAC;IAEO,UAAU;QACd,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,KAAK,GAAG;YAAE,OAAO;QACvC,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC,kBAAkB;QAChC,OAAO,IAAI,CAAC,EAAE,GAAG,IAAI,CAAC,IAAI,CAAC,MAAM,EAAE,CAAC;YAChC,MAAM,CAAC,GAAG,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAE,CAAC;YAC9B,IAAI,CAAC,KAAK,IAAI,IAAI,IAAI,CAAC,EAAE,GAAG,CAAC,GAAG,IAAI,CAAC,IAAI,CAAC,MAAM,EAAE,CAAC;gBAC/C,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,GAAG,CAAC,CAAC,KAAK,IAAI;oBAAE,IAAI,CAAC,KAAK,IAAI,CAAC,CAAC;gBACrD,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;gBACb,SAAS;YACb,CAAC;YACD,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;gBACZ,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;gBACb,OAAO;YACX,CAAC;YACD,IAAI,CAAC,KAAK,IAAI;gBAAE,IAAI,CAAC,KAAK,IAAI,CAAC,CAAC;YAChC,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;QACjB,CAAC;IACL,CAAC;IAEO,yBAAyB;QAC7B,OAAO,IAAI,CAAC,EAAE,GAAG,IAAI,CAAC,IAAI,CAAC,MAAM,EAAE,CAAC;YAChC,MAAM,CAAC,GAAG,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAE,CAAC;YAC9B,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,IAAI,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;gBACxC,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;YACjB,CAAC;iBAAM,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;gBACpB,IAAI,CAAC,KAAK,IAAI,CAAC,CAAC;gBAChB,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;YACjB,CAAC;iBAAM,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;gBACnB,OAAO,IAAI,CAAC,EAAE,GAAG,IAAI,CAAC,IAAI,CAAC,MAAM,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,KAAK,IAAI;oBAAE,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;YACnF,CAAC;iBAAM,IAAI,CAAC,KAAK,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,GAAG,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;gBACrD,IAAI,CAAC,gBAAgB,EAAE,CAAC;YAC5B,CAAC;iBAAM,CAAC;gBACJ,OAAO;YACX,CAAC;QACL,CAAC;IACL,CAAC;IAEO,wCAAwC;QAC5C,SAAS,CAAC;YACN,MAAM,MAAM,GAAG,IAAI,CAAC,EAAE,CAAC;YACvB,IAAI,CAAC,yBAAyB,EAAE,CAAC;YACjC,IAAI,CAAC,qBAAqB,EAAE,CAAC;YAC7B,IAAI,IAAI,CAAC,EAAE,KAAK,MAAM;gBAAE,OAAO;QACnC,CAAC;IACL,CAAC;IAED,sEAAsE;IACtE,yCAAyC;IACzC,kEAAkE;IAClE,6BAA6B;IACrB,qBAAqB;QACzB,MAAM,CAAC,GAAG,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;QAC7B,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;YACzB,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;YACb,OAAO;QACX,CAAC;QACD,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;YACZ,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;YACb,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,KAAK,GAAG;gBAAE,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;YAC7C,OAAO;QACX,CAAC;QACD,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;YACZ,MAAM,CAAC,GAAG,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC;YACjC,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;gBACtC,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;gBACb,OAAO;YACX,CAAC;YACD,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;gBACzB,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;gBACb,IAAI,CAAC,yBAAyB,EAAE,CAAC;gBACjC,uDAAuD;gBACvD,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,KAAK,GAAG,EAAE,CAAC;oBAC7B,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;oBACb,IAAI,CAAC,mBAAmB,EAAE,CAAC;gBAC/B,CAAC;qBAAM,CAAC;oBACJ,IAAI,CAAC,QAAQ,EAAE,CAAC;gBACpB,CAAC;gBACD,OAAO;YACX,CAAC;YACD,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;gBACZ,oDAAoD;gBACpD,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;gBACb,OAAO;YACX,CAAC;YACD,2DAA2D;YAC3D,mBAAmB;QACvB,CAAC;IACL,CAAC;IAEO,gBAAgB;QACpB,8DAA8D;QAC9D,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;QACb,IAAI,KAAK,GAAG,CAAC,CAAC;QACd,OAAO,IAAI,CAAC,EAAE,GAAG,IAAI,CAAC,IAAI,CAAC,MAAM,IAAI,KAAK,GAAG,CAAC,EAAE,CAAC;YAC7C,MAAM,CAAC,GAAG,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAE,CAAC;YAC9B,IAAI,CAAC,KAAK,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,GAAG,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;gBAC9C,KAAK,IAAI,CAAC,CAAC;gBACX,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;YACjB,CAAC;iBAAM,IAAI,CAAC,KAAK,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,GAAG,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;gBACrD,KAAK,IAAI,CAAC,CAAC;gBACX,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;YACjB,CAAC;iBAAM,CAAC;gBACJ,IAAI,CAAC,KAAK,IAAI;oBAAE,IAAI,CAAC,KAAK,IAAI,CAAC,CAAC;gBAChC,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC;YACjB,CAAC;QACL,CAAC;IACL,CAAC;IAEO,gBAAgB,CAAC,CAAS;QAC9B,OAAO,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,IAAI,IAAI,CAAC,KAAK,IAAI,IAAI,CAAC,KAAK,IAAI;eACnD,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,GAAG,CAAC;IAC/C,CAAC;CACJ"}

package/dist/index.d.ts

@@ -0,0 +1,2 @@
+export { default } from "./TextCommonLisp.ts";
+//# sourceMappingURL=index.d.ts.map

package/dist/index.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../src/index.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,OAAO,EAAE,MAAM,qBAAqB,CAAC"}

package/dist/index.js

@@ -0,0 +1,2 @@
+export { default } from "./TextCommonLisp.js";
+//# sourceMappingURL=index.js.map

package/dist/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","sourceRoot":"","sources":["../src/index.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,OAAO,EAAE,MAAM,qBAAqB,CAAC"}

package/package.json

@@ -0,0 +1,54 @@
+{
+    "name": "@plurnk/plurnk-mimetypes-text-common-lisp",
+    "version": "0.2.0",
+    "description": "text/x-common-lisp mimetype handler for plurnk-service. Hand-rolled S-expression scanner (no ANTLR).",
+    "type": "module",
+    "license": "MIT",
+    "publishConfig": {
+        "access": "public"
+    },
+    "engines": {
+        "node": ">=25"
+    },
+    "plurnk": {
+        "kind": "mimetype",
+        "handlers": [
+            {
+                "name": "text/x-common-lisp",
+                "glyph": "λ",
+                "extensions": [
+                    ".lisp",
+                    ".lsp",
+                    ".cl",
+                    ".asd"
+                ]
+            }
+        ]
+    },
+    "exports": {
+        ".": {
+            "types": "./dist/index.d.ts",
+            "default": "./dist/index.js"
+        },
+        "./package.json": "./package.json"
+    },
+    "files": [
+        "dist/**/*",
+        "README.md"
+    ],
+    "scripts": {
+        "test:lint": "tsc --noEmit",
+        "test:unit": "node --test src/**/*.test.ts",
+        "test": "npm run test:lint && npm run test:unit",
+        "build:dist": "tsc -p tsconfig.build.json",
+        "build": "npm run build:dist",
+        "prepare": "npm run build"
+    },
+    "dependencies": {
+        "@plurnk/plurnk-mimetypes": "0.10.0"
+    },
+    "devDependencies": {
+        "@types/node": "^25.8.0",
+        "typescript": "^6.0.3"
+    }
+}