open-lisp 2026.306.224346

package/esm/deps/jsr.io/@std/path/1.1.4/windows/normalize.js

@@ -0,0 +1,135 @@
+// Copyright 2018-2025 the Deno authors. MIT license.
+// This module is browser compatible.
+import { assertArg } from "../_common/normalize.js";
+import { CHAR_COLON } from "../_common/constants.js";
+import { normalizeString } from "../_common/normalize_string.js";
+import { isPathSeparator, isWindowsDeviceRoot } from "./_util.js";
+import { fromFileUrl } from "./from_file_url.js";
+/**
+ * Normalize the `path`, resolving `'..'` and `'.'` segments.
+ * Note that resolving these segments does not necessarily mean that all will be eliminated.
+ * A `'..'` at the top-level will be preserved, and an empty path is canonically `'.'`.
+ *
+ * @example Usage
+ * ```ts
+ * import { normalize } from "@std/path/windows/normalize";
+ * import { assertEquals } from "@std/assert";
+ *
+ * assertEquals(normalize("C:\\foo\\..\\bar"), "C:\\bar");
+ * assertEquals(normalize(new URL("file:///C:/foo/../bar")), "C:\\bar");
+ * ```
+ *
+ * @param path The path to normalize
+ * @returns The normalized path
+ */
+export function normalize(path) {
+    if (path instanceof URL) {
+        path = fromFileUrl(path);
+    }
+    assertArg(path);
+    const len = path.length;
+    let rootEnd = 0;
+    let device;
+    let isAbsolute = false;
+    const code = path.charCodeAt(0);
+    // Try to match a root
+    if (len > 1) {
+        if (isPathSeparator(code)) {
+            // Possible UNC root
+            // If we started with a separator, we know we at least have an absolute
+            // path of some kind (UNC or otherwise)
+            isAbsolute = true;
+            if (isPathSeparator(path.charCodeAt(1))) {
+                // Matched double path separator at beginning
+                let j = 2;
+                let last = j;
+                // Match 1 or more non-path separators
+                for (; j < len; ++j) {
+                    if (isPathSeparator(path.charCodeAt(j)))
+                        break;
+                }
+                if (j < len && j !== last) {
+                    const firstPart = path.slice(last, j);
+                    // Matched!
+                    last = j;
+                    // Match 1 or more path separators
+                    for (; j < len; ++j) {
+                        if (!isPathSeparator(path.charCodeAt(j)))
+                            break;
+                    }
+                    if (j < len && j !== last) {
+                        // Matched!
+                        last = j;
+                        // Match 1 or more non-path separators
+                        for (; j < len; ++j) {
+                            if (isPathSeparator(path.charCodeAt(j)))
+                                break;
+                        }
+                        if (j === len) {
+                            // We matched a UNC root only
+                            // Return the normalized version of the UNC root since there
+                            // is nothing left to process
+                            return `\\\\${firstPart}\\${path.slice(last)}\\`;
+                        }
+                        else if (j !== last) {
+                            // We matched a UNC root with leftovers
+                            device = `\\\\${firstPart}\\${path.slice(last, j)}`;
+                            rootEnd = j;
+                        }
+                    }
+                }
+            }
+            else {
+                rootEnd = 1;
+            }
+        }
+        else if (isWindowsDeviceRoot(code)) {
+            // Possible device root
+            if (path.charCodeAt(1) === CHAR_COLON) {
+                device = path.slice(0, 2);
+                rootEnd = 2;
+                if (len > 2) {
+                    if (isPathSeparator(path.charCodeAt(2))) {
+                        // Treat separator following drive name as an absolute path
+                        // indicator
+                        isAbsolute = true;
+                        rootEnd = 3;
+                    }
+                }
+            }
+        }
+    }
+    else if (isPathSeparator(code)) {
+        // `path` contains just a path separator, exit early to avoid unnecessary
+        // work
+        return "\\";
+    }
+    let tail;
+    if (rootEnd < len) {
+        tail = normalizeString(path.slice(rootEnd), !isAbsolute, "\\", isPathSeparator);
+    }
+    else {
+        tail = "";
+    }
+    if (tail.length === 0 && !isAbsolute)
+        tail = ".";
+    if (tail.length > 0 && isPathSeparator(path.charCodeAt(len - 1))) {
+        tail += "\\";
+    }
+    if (device === undefined) {
+        if (isAbsolute) {
+            if (tail.length > 0)
+                return `\\${tail}`;
+            else
+                return "\\";
+        }
+        return tail;
+    }
+    else if (isAbsolute) {
+        if (tail.length > 0)
+            return `${device}\\${tail}`;
+        else
+            return `${device}\\`;
+    }
+    return device + tail;
+}

package/esm/deps/jsr.io/@std/path/1.1.4/windows/normalize_glob.d.ts

@@ -0,0 +1,20 @@
+import type { GlobOptions } from "../_common/glob_to_reg_exp.js";
+export type { GlobOptions };
+/**
+ * Like normalize(), but doesn't collapse "**\/.." when `globstar` is true.
+ *
+ * @example Usage
+ * ```ts
+ * import { normalizeGlob } from "@std/path/windows/normalize-glob";
+ * import { assertEquals } from "@std/assert";
+ *
+ * const normalized = normalizeGlob("**\\foo\\..\\bar", { globstar: true });
+ * assertEquals(normalized, "**\\bar");
+ * ```
+ *
+ * @param glob The glob pattern to normalize.
+ * @param options The options for glob pattern.
+ * @returns The normalized glob pattern.
+ */
+export declare function normalizeGlob(glob: string, options?: Pick<GlobOptions, "globstar">): string;
+//# sourceMappingURL=normalize_glob.d.ts.map

package/esm/deps/jsr.io/@std/path/1.1.4/windows/normalize_glob.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"normalize_glob.d.ts","sourceRoot":"","sources":["../../../../../../../src/deps/jsr.io/@std/path/1.1.4/windows/normalize_glob.ts"],"names":[],"mappings":"AAGA,OAAO,KAAK,EAAE,WAAW,EAAE,MAAM,+BAA+B,CAAC;AAIjE,YAAY,EAAE,WAAW,EAAE,CAAC;AAE5B;;;;;;;;;;;;;;;GAeG;AACH,wBAAgB,aAAa,CAC3B,IAAI,EAAE,MAAM,EACZ,OAAO,GAAE,IAAI,CAAC,WAAW,EAAE,UAAU,CAAM,GAC1C,MAAM,CAcR"}

package/esm/deps/jsr.io/@std/path/1.1.4/windows/normalize_glob.js

@@ -0,0 +1,32 @@
+// Copyright 2018-2025 the Deno authors. MIT license.
+// This module is browser compatible.
+import { normalize } from "./normalize.js";
+import { SEPARATOR_PATTERN } from "./constants.js";
+/**
+ * Like normalize(), but doesn't collapse "**\/.." when `globstar` is true.
+ *
+ * @example Usage
+ * ```ts
+ * import { normalizeGlob } from "@std/path/windows/normalize-glob";
+ * import { assertEquals } from "@std/assert";
+ *
+ * const normalized = normalizeGlob("**\\foo\\..\\bar", { globstar: true });
+ * assertEquals(normalized, "**\\bar");
+ * ```
+ *
+ * @param glob The glob pattern to normalize.
+ * @param options The options for glob pattern.
+ * @returns The normalized glob pattern.
+ */
+export function normalizeGlob(glob, options = {}) {
+    const { globstar = false } = options;
+    if (glob.match(/\0/g)) {
+        throw new Error(`Glob contains invalid characters: "${glob}"`);
+    }
+    if (!globstar) {
+        return normalize(glob);
+    }
+    const s = SEPARATOR_PATTERN.source;
+    const badParentPattern = new RegExp(`(?<=(${s}|^)\\*\\*${s})\\.\\.(?=${s}|$)`, "g");
+    return normalize(glob.replace(badParentPattern, "\0")).replace(/\0/g, "..");
+}

package/esm/deps/jsr.io/@std/path/1.1.4/windows/resolve.d.ts

@@ -0,0 +1,17 @@
+/**
+ * Resolves path segments into a `path`.
+ *
+ * @example Usage
+ * ```ts
+ * import { resolve } from "@std/path/windows/resolve";
+ * import { assertEquals } from "@std/assert";
+ *
+ * const resolved = resolve("C:\\foo\\bar", "..\\baz");
+ * assertEquals(resolved, "C:\\foo\\baz");
+ * ```
+ *
+ * @param pathSegments The path segments to process to path
+ * @returns The resolved path
+ */
+export declare function resolve(...pathSegments: string[]): string;
+//# sourceMappingURL=resolve.d.ts.map

package/esm/deps/jsr.io/@std/path/1.1.4/windows/resolve.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"resolve.d.ts","sourceRoot":"","sources":["../../../../../../../src/deps/jsr.io/@std/path/1.1.4/windows/resolve.ts"],"names":[],"mappings":"AAUA;;;;;;;;;;;;;;GAcG;AACH,wBAAgB,OAAO,CAAC,GAAG,YAAY,EAAE,MAAM,EAAE,GAAG,MAAM,CAwJzD"}

package/esm/deps/jsr.io/@std/path/1.1.4/windows/resolve.js

@@ -0,0 +1,154 @@
+// Copyright 2018-2025 the Deno authors. MIT license.
+// This module is browser compatible.
+import * as dntShim from "../../../../../../_dnt.shims.js";
+import { CHAR_COLON } from "../_common/constants.js";
+import { normalizeString } from "../_common/normalize_string.js";
+import { assertPath } from "../_common/assert_path.js";
+import { isPathSeparator, isWindowsDeviceRoot } from "./_util.js";
+/**
+ * Resolves path segments into a `path`.
+ *
+ * @example Usage
+ * ```ts
+ * import { resolve } from "@std/path/windows/resolve";
+ * import { assertEquals } from "@std/assert";
+ *
+ * const resolved = resolve("C:\\foo\\bar", "..\\baz");
+ * assertEquals(resolved, "C:\\foo\\baz");
+ * ```
+ *
+ * @param pathSegments The path segments to process to path
+ * @returns The resolved path
+ */
+export function resolve(...pathSegments) {
+    let resolvedDevice = "";
+    let resolvedTail = "";
+    let resolvedAbsolute = false;
+    for (let i = pathSegments.length - 1; i >= -1; i--) {
+        let path;
+        // deno-lint-ignore no-explicit-any
+        const { Deno } = dntShim.dntGlobalThis;
+        if (i >= 0) {
+            path = pathSegments[i];
+        }
+        else if (!resolvedDevice) {
+            if (typeof Deno?.cwd !== "function") {
+                throw new TypeError("Resolved a drive-letter-less path without a current working directory (CWD)");
+            }
+            path = Deno.cwd();
+        }
+        else {
+            if (typeof Deno?.env?.get !== "function" || typeof Deno?.cwd !== "function") {
+                throw new TypeError("Resolved a relative path without a current working directory (CWD)");
+            }
+            path = Deno.cwd();
+            // Verify that a cwd was found and that it actually points
+            // to our drive. If not, default to the drive's root.
+            if (path === undefined ||
+                path.slice(0, 3).toLowerCase() !== `${resolvedDevice.toLowerCase()}\\`) {
+                path = `${resolvedDevice}\\`;
+            }
+        }
+        assertPath(path);
+        const len = path.length;
+        // Skip empty entries
+        if (len === 0)
+            continue;
+        let rootEnd = 0;
+        let device = "";
+        let isAbsolute = false;
+        const code = path.charCodeAt(0);
+        // Try to match a root
+        if (len > 1) {
+            if (isPathSeparator(code)) {
+                // Possible UNC root
+                // If we started with a separator, we know we at least have an
+                // absolute path of some kind (UNC or otherwise)
+                isAbsolute = true;
+                if (isPathSeparator(path.charCodeAt(1))) {
+                    // Matched double path separator at beginning
+                    let j = 2;
+                    let last = j;
+                    // Match 1 or more non-path separators
+                    for (; j < len; ++j) {
+                        if (isPathSeparator(path.charCodeAt(j)))
+                            break;
+                    }
+                    if (j < len && j !== last) {
+                        const firstPart = path.slice(last, j);
+                        // Matched!
+                        last = j;
+                        // Match 1 or more path separators
+                        for (; j < len; ++j) {
+                            if (!isPathSeparator(path.charCodeAt(j)))
+                                break;
+                        }
+                        if (j < len && j !== last) {
+                            // Matched!
+                            last = j;
+                            // Match 1 or more non-path separators
+                            for (; j < len; ++j) {
+                                if (isPathSeparator(path.charCodeAt(j)))
+                                    break;
+                            }
+                            if (j === len) {
+                                // We matched a UNC root only
+                                device = `\\\\${firstPart}\\${path.slice(last)}`;
+                                rootEnd = j;
+                            }
+                            else if (j !== last) {
+                                // We matched a UNC root with leftovers
+                                device = `\\\\${firstPart}\\${path.slice(last, j)}`;
+                                rootEnd = j;
+                            }
+                        }
+                    }
+                }
+                else {
+                    rootEnd = 1;
+                }
+            }
+            else if (isWindowsDeviceRoot(code)) {
+                // Possible device root
+                if (path.charCodeAt(1) === CHAR_COLON) {
+                    device = path.slice(0, 2);
+                    rootEnd = 2;
+                    if (len > 2) {
+                        if (isPathSeparator(path.charCodeAt(2))) {
+                            // Treat separator following drive name as an absolute path
+                            // indicator
+                            isAbsolute = true;
+                            rootEnd = 3;
+                        }
+                    }
+                }
+            }
+        }
+        else if (isPathSeparator(code)) {
+            // `path` contains just a path separator
+            rootEnd = 1;
+            isAbsolute = true;
+        }
+        if (device.length > 0 &&
+            resolvedDevice.length > 0 &&
+            device.toLowerCase() !== resolvedDevice.toLowerCase()) {
+            // This path points to another device so it is not applicable
+            continue;
+        }
+        if (resolvedDevice.length === 0 && device.length > 0) {
+            resolvedDevice = device;
+        }
+        if (!resolvedAbsolute) {
+            resolvedTail = `${path.slice(rootEnd)}\\${resolvedTail}`;
+            resolvedAbsolute = isAbsolute;
+        }
+        if (resolvedAbsolute && resolvedDevice.length > 0)
+            break;
+    }
+    // At this point the path should be resolved to a full absolute path,
+    // but handle relative paths to be safe (might happen when Deno.cwd()
+    // fails)
+    // Normalize the tail path
+    resolvedTail = normalizeString(resolvedTail, !resolvedAbsolute, "\\", isPathSeparator);
+    return resolvedDevice + (resolvedAbsolute ? "\\" : "") + resolvedTail || ".";
+}

package/esm/mod.d.ts

@@ -0,0 +1,57 @@
+export function lisp($scope: any): any;
+export function version(): string;
+export function args(): string[];
+export function env(): {
+    [index: string]: string;
+};
+export function getEnv(...args: any[]): string | undefined;
+export function setEnv(...args: any[]): void;
+export function hasEnv(...args: any[]): boolean;
+export function deleteEnv(...args: any[]): void;
+export function chdir(path: any): void;
+export function cwd(): string;
+export function exists(path: any): boolean;
+export function mkdir(path: any): void;
+export function remove(path: any): void;
+export function run(v: any, ignoreErrors: any): Promise<{
+    success: boolean;
+    code: number;
+}>;
+export function runWithOutput(v: any, ignoreErrors: any, encoding: any): Promise<{
+    success: boolean;
+    code: number;
+    stdout: string;
+    stderr: string;
+}>;
+export function loadText(path: any): string;
+export function saveText(path: any, text: any): void;
+export class system {
+    static version(): string;
+    static lisp(...args: any[]): any;
+    static args(): string[];
+    static env(): {
+        [index: string]: string;
+    };
+    static getEnv(...args: any[]): string | undefined;
+    static setEnv(...args: any[]): void;
+    static hasEnv(...args: any[]): boolean;
+    static deleteEnv(...args: any[]): void;
+    static chdir(path: any): void;
+    static cwd(): string;
+    static exists(path: any): boolean;
+    static mkdir(path: any): void;
+    static remove(path: any): void;
+    static run(v: any, ignoreErrors: any): Promise<{
+        success: boolean;
+        code: number;
+    }>;
+    static runWithOutput(v: any, ignoreErrors: any, encoding: any): Promise<{
+        success: boolean;
+        code: number;
+        stdout: string;
+        stderr: string;
+    }>;
+    static loadText(path: any): string;
+    static saveText(path: any, text: any): void;
+}
+//# sourceMappingURL=mod.d.ts.map

package/esm/mod.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"mod.d.ts","sourceRoot":"","sources":["../src/mod.js"],"names":[],"mappings":"AAKA,uCAEC;AAwDD,kCAEC;AAED,iCAEC;AAED;;EAEC;AAED,2DAEC;AAED,6CAEC;AAED,gDAEC;AAED,gDAEC;AAED,uCAEC;AAED,8BAEC;AAED,2CAMC;AAED,uCAEC;AAED,wCAEC;AAED;;;GAcC;AAED;;;;;GAyBC;AAED,4CAEC;AAED,qDAEC;AA3JD;IACE,yBAEC;IACD,iCAEC;IACD,wBAEC;IACD;;MAEC;IACD,kDAEC;IACD,oCAEC;IACD,uCAEC;IACD,uCAEC;IACD,8BAEC;IACD,qBAEC;IACD,kCAEC;IACD,8BAEC;IACD,+BAEC;IACD;;;OAEC;IACD;;;;;OAEC;IACD,mCAEC;IACD,4CAEC;CACF"}

package/esm/mod.js

@@ -0,0 +1,145 @@
+import "./_dnt.polyfills.js";
+import * as dntShim from "./_dnt.shims.js";
+import { existsSync } from "./deps/jsr.io/@std/fs/1.0.23/mod.js";
+import { lisp1 } from "./src/lisp1.js";
+export function lisp($scope) {
+    return lisp1($scope, system);
+}
+export class system {
+    static version() {
+        return version();
+    }
+    static lisp() {
+        return lisp(...arguments);
+    }
+    static args() {
+        return args();
+    }
+    static env() {
+        return env();
+    }
+    static getEnv() {
+        return getEnv(...arguments);
+    }
+    static setEnv() {
+        return setEnv(...arguments);
+    }
+    static hasEnv() {
+        return hasEnv(...arguments);
+    }
+    static deleteEnv() {
+        return deleteEnv(...arguments);
+    }
+    static chdir(path) {
+        return chdir(path);
+    }
+    static cwd() {
+        return cwd();
+    }
+    static exists(path) {
+        return exists(path);
+    }
+    static mkdir(path) {
+        return mkdir(path);
+    }
+    static remove(path) {
+        return remove(path);
+    }
+    static run(v, ignoreErrors) {
+        return run(v, ignoreErrors);
+    }
+    static runWithOutput(v, ignoreErrors, encoding) {
+        return runWithOutput(v, ignoreErrors, encoding);
+    }
+    static loadText(path) {
+        return loadText(path);
+    }
+    static saveText(path, text) {
+        return saveText(path, text);
+    }
+}
+export function version() {
+    return "open-lisp: version 2026.0306.224346";
+}
+export function args() {
+    return dntShim.Deno.args;
+}
+export function env() {
+    return dntShim.Deno.env.toObject();
+}
+export function getEnv() {
+    return dntShim.Deno.env.get(...arguments);
+}
+export function setEnv() {
+    return dntShim.Deno.env.set(...arguments);
+}
+export function hasEnv() {
+    return dntShim.Deno.env.has(...arguments);
+}
+export function deleteEnv() {
+    return dntShim.Deno.env.delete(...arguments);
+}
+export function chdir(path) {
+    return dntShim.Deno.chdir(path);
+}
+export function cwd() {
+    return dntShim.Deno.cwd();
+}
+export function exists(path) {
+    try {
+        return existsSync(path);
+    }
+    catch (_e) {
+        return false;
+    }
+}
+export function mkdir(path) {
+    return dntShim.Deno.mkdirSync(path, { recursive: true });
+}
+export function remove(path) {
+    return dntShim.Deno.removeSync(path, { recursive: true });
+}
+export async function run(v, ignoreErrors) {
+    // deno-lint-ignore no-deprecated-deno-api
+    const p = dntShim.Deno.run({
+        cmd: v,
+    });
+    const { success, code } = await p.status();
+    if (!ignoreErrors && code !== 0) {
+        console.log(JSON.stringify(v) + " exit code is " + code);
+        throw new Error();
+    }
+    const result = {};
+    result.success = success;
+    result.code = code;
+    return result;
+}
+export async function runWithOutput(v, ignoreErrors, encoding) {
+    if (encoding == null)
+        encoding = "utf-8";
+    // deno-lint-ignore no-deprecated-deno-api
+    const p = dntShim.Deno.run({
+        cmd: v,
+        stdout: "piped",
+        stderr: "piped",
+    });
+    const { success, code } = await p.status();
+    const result = {};
+    if (!ignoreErrors && code !== 0) {
+        console.log(JSON.stringify(v) + " exit code is " + code);
+        throw new Error();
+    }
+    result.success = success;
+    result.code = code;
+    const rawOutput = await p.output();
+    result.stdout = new TextDecoder(encoding).decode(rawOutput);
+    const rawError = await p.stderrOutput();
+    result.stderr = new TextDecoder(encoding).decode(rawError);
+    return result;
+}
+export function loadText(path) {
+    return dntShim.Deno.readTextFileSync(path);
+}
+export function saveText(path, text) {
+    return dntShim.Deno.writeTextFileSync(path, text);
+}

package/esm/mod_test.d.ts

@@ -0,0 +1,2 @@
+export {};
+//# sourceMappingURL=mod_test.d.ts.map

package/esm/mod_test.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"mod_test.d.ts","sourceRoot":"","sources":["../src/mod_test.js"],"names":[],"mappings":""}

package/esm/package.json

@@ -0,0 +1,3 @@
+{
+  "type": "module"
+}

package/esm/src/lisp1.d.ts

@@ -0,0 +1,4 @@
+export function lisp1($scope: any, $system: any): any;
+export function run(exp: any): any;
+export function runAll(exp: any): any;
+//# sourceMappingURL=lisp1.d.ts.map

package/esm/src/lisp1.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"lisp1.d.ts","sourceRoot":"","sources":["../../src/src/lisp1.js"],"names":[],"mappings":"AA0gBA,sDA2HC;AAED,mCAGC;AAED,sCAGC"}