functionalscript 0.43.1 → 0.44.0

package/fjs/media/type/module.f.js

@@ -1,231 +0,0 @@
-/**
- * Magic-byte MIME type detection.
- *
- * `detect` is a pure table lookup over the leading bytes of a `Vec`: it returns a
- * MIME type string for the container formats whose signatures it knows, or `null`
- * for anything else — text, unknown binary, or a `Vec` too short to match.
- *
- * Beside it, `detectStream` is the **streaming counterpart**: a byte-accepting
- * state machine (length × magic-byte eliminator × UTF-8 validity DFA) that derives
- * `{ length, mime_type, type }` by folding a CAS read stream in O(1) space, without
- * ever buffering the blob into a single `maxLength`-bounded `Vec`. See the README
- * for the factored design.
- *
- * The CAS store is type-agnostic and keeps raw bytes only, so type is never
- * stored; it is recovered on read by sniffing the content. Callers decide what
- * `null` means: the CAS MCP adapter falls back to a plain text result.
- *
- * ## Recognised signatures
- *
- * | MIME type         | Leading bytes                          |
- * |-------------------|----------------------------------------|
- * | `image/png`       | `89 50 4E 47 0D 0A 1A 0A`              |
- * | `image/jpeg`      | `FF D8 FF`                             |
- * | `image/gif`       | `47 49 46 38 37 61` / `…39 61` (`"GIF87a"` / `"GIF89a"`) |
- * | `image/webp`      | `52 49 46 46 .. .. .. .. 57 45 42 50` (`"RIFF"…"WEBP"`) |
- * | `application/pdf` | `25 50 44 46 2D` (`"%PDF-"`)           |
- * | `application/zip` | `50 4B 03 04` / `05 06` / `07 08` (`"PK"` entry, empty, or spanned) |
- *
- * WebP is the one signature with a gap: the four-byte little-endian file size
- * sits between the `RIFF` and `WEBP` markers, so it is matched as a prefix plus
- * a second marker at byte offset 8 rather than a single contiguous run.
- *
- * @module
- */
-import { msb, fromSentinel, length, u8List } from '../../types/bit_vec/module.f.js';
-import { iterable } from '../../types/list/module.f.js';
-import { pure, step } from '../../effects/module.f.js';
-import { ok, error } from '../../types/result/module.f.js';
-import { isValidCodePoint, isTextCodePoint } from '../../text/code_point/module.f.js';
-import { utf8ByteToCodePointOp } from '../../text/utf8/module.f.js';
-const { startsWith, removeFront } = msb;
-// Each signature is written as a hex literal whose leading `1` nibble is a
-// sentinel marking the start of the byte run (so leading zero bytes survive)
-// and fixing the length — see `bit_vec` `fromSentinel`.
-const sig = fromSentinel;
-/**
- * Contiguous magic-byte signatures, checked in order; the first prefix match
- * wins. Ordering is irrelevant here — no signature is a prefix of another.
- */
-const table = [
-    [sig(0x189504e470d0a1a0an), 'image/png'],
-    [sig(0x1ffd8ffn), 'image/jpeg'],
-    // Match the full GIF version headers ("GIF87a" / "GIF89a"), not just "GIF8",
-    // so opaque bytes that merely start with "GIF8" are not mistyped.
-    [sig(0x1474946383761n), 'image/gif'],
-    [sig(0x1474946383961n), 'image/gif'],
-    [sig(0x1255044462dn), 'application/pdf'],
-    // ZIP has three "PK" local-header variants: a normal entry, an empty
-    // archive (end-of-central-directory only), and a spanned archive.
-    [sig(0x1504b0304n), 'application/zip'],
-    [sig(0x1504b0506n), 'application/zip'],
-    [sig(0x1504b0708n), 'application/zip'],
-];
-// WebP: "RIFF" at offset 0, "WEBP" at offset 8 (the 4 bytes between are the
-// file size). 12 bytes = 96 bits is the minimum to carry both markers.
-const riff = sig(0x152494646n);
-const webp = sig(0x157454250n);
-const isWebp = (bytes) => length(bytes) >= 96n
-    && startsWith(riff)(bytes)
-    && startsWith(webp)(removeFront(64n)(bytes));
-/**
- * Detects the MIME type of `bytes` from its leading magic-byte signature.
- *
- * @returns the MIME type string for a recognized format, or `null` when the
- *   leading bytes match no known signature (including any `Vec` shorter than
- *   the signature it might otherwise match).
- */
-export const detect = (bytes) => {
-    if (isWebp(bytes)) {
-        return 'image/webp';
-    }
-    for (const [s, m] of table) {
-        if (startsWith(s)(bytes)) {
-            return m;
-        }
-    }
-    return null;
-};
-// The streaming counterpart of `table`/`isWebp`: the same signatures expressed as
-// byte patterns the eliminator can consume one byte at a time. WebP's gap is the
-// only wildcard run.
-const signatures = [
-    { pattern: [0x89, 0x50, 0x4e, 0x47, 0x0d, 0x0a, 0x1a, 0x0a], mime: 'image/png' },
-    { pattern: [0xff, 0xd8, 0xff], mime: 'image/jpeg' },
-    { pattern: [0x47, 0x49, 0x46, 0x38, 0x37, 0x61], mime: 'image/gif' },
-    { pattern: [0x47, 0x49, 0x46, 0x38, 0x39, 0x61], mime: 'image/gif' },
-    { pattern: [0x25, 0x50, 0x44, 0x46, 0x2d], mime: 'application/pdf' },
-    { pattern: [0x50, 0x4b, 0x03, 0x04], mime: 'application/zip' },
-    { pattern: [0x50, 0x4b, 0x05, 0x06], mime: 'application/zip' },
-    { pattern: [0x50, 0x4b, 0x07, 0x08], mime: 'application/zip' },
-    {
-        pattern: [0x52, 0x49, 0x46, 0x46, null, null, null, null, 0x57, 0x45, 0x42, 0x50],
-        mime: 'image/webp',
-    },
-];
-const magicInit = { tag: 'scan', pos: 0, viable: signatures };
-const magicStep = (m, byte) => {
-    if (m.tag !== 'scan') {
-        return m;
-    }
-    const { pos } = m;
-    const viable = m.viable.filter(s => {
-        const p = s.pattern[pos];
-        return p === null || p === byte;
-    });
-    for (const s of viable) {
-        if (s.pattern.length === pos + 1) {
-            return { tag: 'matched', mime: s.mime };
-        }
-    }
-    return viable.length === 0 ? { tag: 'dead' } : { tag: 'scan', pos: pos + 1, viable };
-};
-const magicMime = (m) => m.tag === 'matched' ? m.mime : null;
-const utf8Init = { st: null, valid: true, text: true };
-const utf8Step = (u, byte) => {
-    if (!u.valid) {
-        return u;
-    }
-    const [cps, st] = utf8ByteToCodePointOp(byte, u.st);
-    let text = u.text;
-    for (const cp of cps) {
-        if (!isValidCodePoint(cp)) {
-            return { st, valid: false, text };
-        }
-        if (!isTextCodePoint(cp)) {
-            text = false;
-        }
-    }
-    return { st, valid: true, text };
-};
-const utf8Valid = (u) => u.valid && u.st === null;
-// A blob is text only when it is whole-blob-valid UTF-8 *and* every decoded code
-// point is a text code point (no NUL/other controls).
-const utf8Text = (u) => utf8Valid(u) && u.text;
-/** The initial detector state `q₀`. */
-export const detectInit = {
-    length: 0n,
-    magic: magicInit,
-    utf8: utf8Init,
-};
-// The outcome can no longer change — `push` may stop decoding and only count
-// length — once `finish` is pinned down. A magic `matched` pins it on its own
-// (`finish` returns the detected mime and ignores the utf8 verdict), so we must
-// not wait for utf8 to go invalid (it may stay valid forever, e.g. an ASCII PDF).
-// A magic `dead` leaves text-vs-octet open, so it settles only once utf8 can no
-// longer be text — either invalid or a control byte seen (both absorbing); `scan`
-// is never settled.
-const isSettled = (magic, utf8) => {
-    switch (magic.tag) {
-        case 'matched': return true;
-        case 'dead': return !utf8.valid || !utf8.text;
-        case 'scan': return false;
-    }
-};
-/**
- * Folds one `Vec` chunk into the detector state (`δ` over a whole chunk). Length
- * always advances by the chunk's bit length; per-byte iteration stops as soon as
- * the verdict is fixed (see {@link isSettled}), so large blobs — including large
- * magic-matched ones — cost ≈ length counting.
- */
-export const push = (s) => (chunk) => {
-    const bits = length(chunk);
-    let magic = s.magic;
-    let utf8 = s.utf8;
-    if (!isSettled(magic, utf8)) {
-        for (const byte of iterable(u8List(msb)(chunk))) {
-            magic = magicStep(magic, byte);
-            utf8 = utf8Step(utf8, byte);
-            if (isSettled(magic, utf8)) {
-                break;
-            }
-        }
-    }
-    return { length: s.length + bits, magic, utf8 };
-};
-/**
- * Reads the answer off the final state (`λ`). Reproduces the three-way result of
- * the pure path: magic hit → `base64` + detected mime; else whole-blob-valid UTF-8
- * that is also all-text (byte-aligned, no invalidity, no control bytes) → `text` +
- * `text/plain`; else → `base64` + `application/octet-stream`. A valid-but-control
- * blob (NUL, other controls) is well-formed UTF-8 yet falls through to the binary
- * branch.
- */
-export const finish = (s) => {
-    const byteLength = s.length >> 3n;
-    const mime = magicMime(s.magic);
-    if (mime !== null) {
-        return { length: byteLength, mime_type: mime, type: 'base64' };
-    }
-    if (utf8Text(s.utf8) && (s.length & 7n) === 0n) {
-        return { length: byteLength, mime_type: 'text/plain', type: 'text' };
-    }
-    return { length: byteLength, mime_type: 'application/octet-stream', type: 'base64' };
-};
-/**
- * Classifies a whole `Vec` with the same state machine as {@link detectStream}.
- * The single-buffer counterpart for callers that already hold the bytes (the
- * `cas_get` `content: true` path materializes the blob anyway): both paths read
- * the three-way `{ length, mime_type, type }` verdict from one machine instead of
- * re-deriving it from `detect` + a separate UTF-8 check.
- */
-export const detectVec = (bytes) => finish(push(detectInit)(bytes));
-/**
- * Folds a CAS read stream through {@link push} and reads {@link finish} at EOF,
- * deriving `cas_get` metadata without ever materializing the blob. A read `error`
- * item short-circuits into the `IoResult` error.
- */
-export const detectStream = (stream) => {
-    const loop = (s) => (l) => step(l, (node) => {
-        if (node === undefined) {
-            return pure(ok(finish(s)));
-        }
-        const { first, tail } = node;
-        const [t, v] = first;
-        if (t === 'error') {
-            return pure(error(v));
-        }
-        return loop(push(s)(v))(tail);
-    });
-    return loop(detectInit)(stream);
-};

package/fjs/media/type/proof.f.js

@@ -1,213 +0,0 @@
-import { assert, assertEq } from '../../asserts/module.f.js';
-import { msb, u8ListToVec, vec8, repeat, empty } from '../../types/bit_vec/module.f.js';
-import { runPure } from '../../effects/module.f.js';
-import { nonEmpty, empty as emptyList } from '../../effects/list/module.f.js';
-import { ok } from '../../types/result/module.f.js';
-import { detect, detectStream, detectVec } from './module.f.js';
-// Builds a big-endian `Vec` from a list of byte values — mirrors how the CAS
-// store would hold the leading bytes of a stored blob.
-const bytes = (...b) => u8ListToVec(msb)(b);
-// ── Streaming detector helpers ──────────────────────────────────────────────────
-// Builds a CAS-style read stream from a sequence of ok(chunk) items.
-const stream = (...chunks) => chunks.reduceRight((tail, c) => nonEmpty(ok(c), tail), emptyList());
-// Runs the streaming detector over the given chunks and unwraps the metadata.
-const detectChunks = (...chunks) => {
-    const o = runPure(detectStream(stream(...chunks)));
-    assert(o.length === 1, 'effect is not pure');
-    const [r] = o;
-    assert(r[0] !== 'error', r[1]);
-    return r[1];
-};
-export const proof = {
-    png: () => assertEq(detect(bytes(0x89, 0x50, 0x4e, 0x47, 0x0d, 0x0a, 0x1a, 0x0a)), 'image/png'),
-    jpeg: () => assertEq(detect(bytes(0xff, 0xd8, 0xff, 0xe0)), 'image/jpeg'),
-    gif89a: () => assertEq(detect(bytes(0x47, 0x49, 0x46, 0x38, 0x39, 0x61)), 'image/gif'),
-    gif87a: () => assertEq(detect(bytes(0x47, 0x49, 0x46, 0x38, 0x37, 0x61)), 'image/gif'),
-    // "GIF8" alone, without a valid version suffix, is not a GIF.
-    gif8NotGif: () => assertEq(detect(bytes(0x47, 0x49, 0x46, 0x38, 0x30, 0x30)), null),
-    pdf: () => 
-    // "%PDF-1.4"
-    assertEq(detect(bytes(0x25, 0x50, 0x44, 0x46, 0x2d, 0x31, 0x2e, 0x34)), 'application/pdf'),
-    zip: () => assertEq(detect(bytes(0x50, 0x4b, 0x03, 0x04, 0x14, 0x00)), 'application/zip'),
-    // An empty ZIP archive starts with the end-of-central-directory record.
-    emptyZip: () => assertEq(detect(bytes(0x50, 0x4b, 0x05, 0x06, 0x00, 0x00)), 'application/zip'),
-    webp: () => 
-    // "RIFF" + 4-byte size + "WEBP"
-    assertEq(detect(bytes(0x52, 0x49, 0x46, 0x46, 0x1a, 0x00, 0x00, 0x00, 0x57, 0x45, 0x42, 0x50)), 'image/webp'),
-    // "RIFF…" without the "WEBP" marker (e.g. a WAV) is not WebP.
-    riffNotWebp: () => assertEq(detect(bytes(0x52, 0x49, 0x46, 0x46, 0x1a, 0x00, 0x00, 0x00, 0x57, 0x41, 0x56, 0x45)), null),
-    // Plain ASCII text matches no signature.
-    textIsNull: () => assertEq(detect(bytes(0x68, 0x65, 0x6c, 0x6c, 0x6f)), null),
-    // A prefix shorter than any signature falls through to null, not a partial match.
-    shortIsNull: () => assertEq(detect(bytes(0x89, 0x50)), null),
-    emptyIsNull: () => assertEq(detect(empty), null),
-    // ── Streaming detector (detectStream) ───────────────────────────────────────
-    stream: {
-        // Plain UTF-8 text classifies as text/plain with the correct byte length.
-        text: () => {
-            const m = detectChunks(bytes(0x68, 0x65, 0x6c, 0x6c, 0x6f)); // "hello"
-            assertEq(m.type, 'text');
-            assertEq(m.mime_type, 'text/plain');
-            assertEq(m.length, 5n);
-        },
-        // A magic-byte signature classifies as base64 with the detected mime type.
-        png: () => {
-            const m = detectChunks(bytes(0x89, 0x50, 0x4e, 0x47, 0x0d, 0x0a, 0x1a, 0x0a, 0x00, 0x01));
-            assertEq(m.type, 'base64');
-            assertEq(m.mime_type, 'image/png');
-            assertEq(m.length, 10n);
-        },
-        // Unknown binary (no signature, not UTF-8) falls back to octet-stream/base64.
-        octetStream: () => {
-            const m = detectChunks(bytes(0xff, 0xfe, 0x00, 0x01));
-            assertEq(m.type, 'base64');
-            assertEq(m.mime_type, 'application/octet-stream');
-            assertEq(m.length, 4n);
-        },
-        // A NUL-byte blob is valid single-byte UTF-8 (all U+0000) but is binary:
-        // NUL is the sharpest binary marker, so it classifies as octet-stream.
-        nul: () => {
-            const m = detectChunks(bytes(0x00, 0x00, 0x00));
-            assertEq(m.type, 'base64');
-            assertEq(m.mime_type, 'application/octet-stream');
-            assertEq(m.length, 3n);
-        },
-        // A control byte embedded in otherwise-valid ASCII (here ESC) is still
-        // binary — text/plain must not imply terminal escapes.
-        controlByte: () => {
-            const m = detectChunks(bytes(0x68, 0x69, 0x1b, 0x5b, 0x30, 0x6d)); // "hi\x1b[0m"
-            assertEq(m.type, 'base64');
-            assertEq(m.mime_type, 'application/octet-stream');
-            assertEq(m.length, 6n);
-        },
-        // A C1 control arrives as 2-byte UTF-8 (C2 85 = U+0085, NEL); invisible at
-        // the byte level, it is caught at the code-point level and reads as binary.
-        c1Control: () => {
-            const m = detectChunks(bytes(0x41, 0xc2, 0x85)); // "A" + U+0085
-            assertEq(m.type, 'base64');
-            assertEq(m.mime_type, 'application/octet-stream');
-            assertEq(m.length, 3n);
-        },
-        // The text whitespace controls (TAB, LF, VT, FF, CR) are legitimate in text.
-        whitespaceControlsStayText: () => {
-            const m = detectChunks(bytes(0x61, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x62)); // "a\t\n\v\f\rb"
-            assertEq(m.type, 'text');
-            assertEq(m.mime_type, 'text/plain');
-            assertEq(m.length, 7n);
-        },
-        // Magic-byte detection threads across a chunk boundary mid-signature.
-        magicAcrossChunks: () => {
-            const m = detectChunks(bytes(0x89, 0x50, 0x4e), // first 3 bytes of the PNG signature
-            bytes(0x47, 0x0d, 0x0a, 0x1a, 0x0a, 0x00)); // the rest, in a second chunk
-            assertEq(m.type, 'base64');
-            assertEq(m.mime_type, 'image/png');
-            assertEq(m.length, 9n);
-        },
-        // WebP's wildcard size gap is handled in the streaming form too.
-        webp: () => {
-            const m = detectChunks(bytes(0x52, 0x49, 0x46, 0x46), // "RIFF"
-            bytes(0x1a, 0x00, 0x00, 0x00), // 4-byte size (wildcards)
-            bytes(0x57, 0x45, 0x42, 0x50)); // "WEBP"
-            assertEq(m.type, 'base64');
-            assertEq(m.mime_type, 'image/webp');
-            assertEq(m.length, 12n);
-        },
-        // A multi-byte UTF-8 sequence split across chunks stays valid text.
-        utf8AcrossChunks: () => {
-            const m = detectChunks(bytes(0xc3), bytes(0xa9)); // "é" = C3 A9
-            assertEq(m.type, 'text');
-            assertEq(m.mime_type, 'text/plain');
-            assertEq(m.length, 2n);
-        },
-        // The decisive case: valid UTF-8 for every chunk but the last, which adds a
-        // lone invalid byte. A leading-bytes buffer would wrongly say "text"; the
-        // streaming validator sees the whole blob and classifies it as base64.
-        validUntilTrailingInvalidByte: () => {
-            const m = detectChunks(bytes(0x68, 0x65, 0x6c, 0x6c, 0x6f), // "hello" — valid UTF-8
-            bytes(0xff)); // trailing invalid byte
-            assertEq(m.type, 'base64');
-            assertEq(m.mime_type, 'application/octet-stream');
-            assertEq(m.length, 6n);
-        },
-        // A truncated multi-byte sequence at EOF is invalid UTF-8, hence base64.
-        truncatedSequence: () => {
-            const m = detectChunks(bytes(0xc3)); // lead byte with no continuation
-            assertEq(m.type, 'base64');
-            assertEq(m.mime_type, 'application/octet-stream');
-            assertEq(m.length, 1n);
-        },
-        // A blob larger than `maxLength` (1,048,576 bits) split across chunks — the
-        // exact case where `collectRead` would error — returns correct metadata.
-        largeMultiChunkBlob: () => {
-            const a = repeat(70000n)(vec8(0x61n)); // 70,000 bytes of 'a' (560,000 bits)
-            const m = detectChunks(a, a); // 140,000 bytes = 1,120,000 bits > maxLength
-            assertEq(m.type, 'text');
-            assertEq(m.mime_type, 'text/plain');
-            assertEq(m.length, 140000n);
-        },
-        // A magic match settles the verdict on its own: a large magic-matched blob
-        // whose tail stays valid UTF-8 (an ASCII PDF) classifies by the signature.
-        // `push` stops decoding the tail once `magic` is matched — `finish` ignores
-        // the utf8 verdict here — so this is the magic-matched fast path.
-        pdfThenLargeTextTail: () => {
-            const header = bytes(0x25, 0x50, 0x44, 0x46, 0x2d); // "%PDF-"
-            const tail = repeat(70000n)(vec8(0x61n)); // valid ASCII, never invalidates utf8
-            const m = detectChunks(header, tail);
-            assertEq(m.type, 'base64');
-            assertEq(m.mime_type, 'application/pdf');
-            assertEq(m.length, 70005n);
-        },
-        // A magic match wins regardless of the tail: a binary (non-UTF-8) tail
-        // after the signature is still classified by the signature.
-        pdfThenBinaryTail: () => {
-            const header = bytes(0x25, 0x50, 0x44, 0x46, 0x2d); // "%PDF-"
-            const m = detectChunks(header, bytes(0xff, 0xfe, 0x00));
-            assertEq(m.type, 'base64');
-            assertEq(m.mime_type, 'application/pdf');
-            assertEq(m.length, 8n);
-        },
-        // A read `error` item short-circuits into the IoResult error.
-        readErrorSurfaces: () => {
-            const errStream = nonEmpty(['error', 'boom'], emptyList());
-            const o = runPure(detectStream(errStream));
-            assert(o.length === 1, 'effect is not pure');
-            assert(o[0][0] === 'error');
-        },
-        // Empty stream: zero-length text/plain.
-        empty: () => {
-            const m = detectChunks();
-            assertEq(m.type, 'text');
-            assertEq(m.length, 0n);
-        },
-    },
-    // ── Single-Vec detector (detectVec) ─────────────────────────────────────────
-    // The whole-Vec form used by the `cas_get` content:true path; same machine,
-    // same three-way verdict as the streaming form.
-    vec: {
-        text: () => {
-            const m = detectVec(bytes(0x68, 0x65, 0x6c, 0x6c, 0x6f)); // "hello"
-            assertEq(m.type, 'text');
-            assertEq(m.mime_type, 'text/plain');
-            assertEq(m.length, 5n);
-        },
-        png: () => {
-            const m = detectVec(bytes(0x89, 0x50, 0x4e, 0x47, 0x0d, 0x0a, 0x1a, 0x0a, 0x00, 0x01));
-            assertEq(m.type, 'base64');
-            assertEq(m.mime_type, 'image/png');
-            assertEq(m.length, 10n);
-        },
-        octetStream: () => {
-            const m = detectVec(bytes(0xff, 0xfe, 0x00, 0x01));
-            assertEq(m.type, 'base64');
-            assertEq(m.mime_type, 'application/octet-stream');
-            assertEq(m.length, 4n);
-        },
-        // Valid UTF-8 NUL run is binary in the single-Vec path too.
-        nul: () => {
-            const m = detectVec(bytes(0x00, 0x00, 0x00));
-            assertEq(m.type, 'base64');
-            assertEq(m.mime_type, 'application/octet-stream');
-            assertEq(m.length, 3n);
-        },
-    },
-};

package/fjs/module.f.d.ts

@@ -1,2 +0,0 @@
-import { type NodeProgram } from './effects/node/module.f.ts';
-export declare const main: NodeProgram;

package/fjs/module.f.js

@@ -1,50 +0,0 @@
-/**
- * FunctionalScript compiler entry points and command handlers.
- *
- * @module
- */
-import { compile } from './djs/module.f.js';
-import { main as testMain } from './emergent_testing/module.f.js';
-import { commands as casCommands } from './cas/cli/module.f.js';
-import { main as ciMain } from './ci/module.f.js';
-import { import_ } from './effects/node/module.f.js';
-import { dispatch } from './cli/module.f.js';
-import { casMcpServer } from './mcp/module.f.js';
-import { pure, step } from './effects/module.f.js';
-import { unwrap } from './types/result/module.f.js';
-const commands = [
-    {
-        names: ['test', 't'],
-        description: 'Run the FunctionalScript test suite',
-        handler: testMain,
-    },
-    {
-        names: ['compile', 'c'],
-        description: 'Compile a FunctionalScript module to JavaScript',
-        handler: ({ args }) => compile(args),
-    },
-    {
-        names: ['cas', 's'],
-        description: 'Content-addressable storage operations',
-        handler: casCommands,
-    },
-    {
-        names: ['mcp', 'm'],
-        description: 'Run an MCP server over stdio exposing the CAS and Evo (subjects/heads) as tools',
-        handler: ({ home }) => step(casMcpServer(home), () => pure(0)),
-    },
-    {
-        names: ['ci', 'i'],
-        description: 'Generate the GitHub Actions CI workflow',
-        handler: ciMain,
-    },
-    {
-        names: ['run', 'r'],
-        description: 'Run a FunctionalScript module as a NodeProgram',
-        handler: options => {
-            const [file, ...args] = options.args;
-            return step(import_(file), x => unwrap(x).main({ ...options, args }));
-        },
-    },
-];
-export const main = dispatch(commands);

package/fjs/module.js

@@ -1,4 +0,0 @@
-#!/usr/bin/env node
-import { main } from './module.f.js';
-import { run } from './effects/node/module.js';
-await run(main);

package/fjs/path/module.f.d.ts

@@ -1,46 +0,0 @@
-/**
- * Path parsing and normalization helpers for portable module paths.
- *
- * @module
- */
-import type { Reduce, Unary } from '../types/function/operator/module.f.ts';
-/**
- * Converts Windows separators (`\`) to POSIX separators (`/`).
- */
-export declare const toPosix: (path: string) => string;
-/**
- * Splits a path into normalized segments.
- *
- * Empty (`""`) and current-directory (`"."`) segments are removed, parent-directory
- * (`".."`) segments collapse the previous segment when possible, and Windows
- * separators are converted to POSIX separators.
- */
-export declare const parse: (path: string) => readonly string[];
-/**
- * Normalizes a path string by parsing and rejoining it with POSIX separators.
- */
-export declare const normalize: Unary<string, string>;
-/**
- * Concatenates two path fragments and returns a normalized path.
- */
-export declare const concat: Reduce<string>;
-/**
- * Joins path segments with single POSIX `/` separators, without
- * normalization. Unlike {@link concat}, the result is not parsed/collapsed,
- * so absolute roots and `.`/`..` segments are preserved verbatim. Use this
- * for building paths from already-clean segments (directory walks, store
- * layouts); use {@link concat} when normalization is desired.
- */
-export declare const join: (...list: readonly string[]) => string;
-/**
- * Returns `path` relative to `base` with a `./` prefix, or `path` unchanged
- * if it does not start with `base` or `base` is empty.
- * E.g. `relativize('/repo', '/repo/fs/a.ts')` → `'./fs/a.ts'`.
- */
-export declare const relativize: (base: string, path: string) => string;
-/**
- * Returns `true` when `prefix` is a strict ancestor of `path` in segment space:
- * every segment of `prefix` matches the corresponding segment of `path`, and
- * `path` has at least one additional segment.
- */
-export declare const isProperPrefix: (prefix: readonly string[], path: readonly string[]) => boolean;

package/fjs/path/module.f.js

@@ -1,71 +0,0 @@
-import { fold, last, take, length, concat as listConcat, toArray } from '../types/list/module.f.js';
-import { join as listJoin, concat as stringConcat } from '../types/string/module.f.js';
-const foldNormalizeOp = input => state => {
-    switch (input) {
-        case '':
-        case '.': {
-            return state;
-        }
-        case '..': {
-            switch (last(undefined)(state)) {
-                case undefined:
-                case '..': {
-                    return listConcat(state)([input]);
-                }
-            }
-            return take(length(state) - 1)(state);
-        }
-        default: {
-            return listConcat(state)([input]);
-        }
-    }
-};
-/**
- * Converts Windows separators (`\`) to POSIX separators (`/`).
- */
-export const toPosix = (path) => path.replaceAll('\\', '/');
-/**
- * Splits a path into normalized segments.
- *
- * Empty (`""`) and current-directory (`"."`) segments are removed, parent-directory
- * (`".."`) segments collapse the previous segment when possible, and Windows
- * separators are converted to POSIX separators.
- */
-export const parse = (path) => {
-    const split = toPosix(path).split('/');
-    return toArray(fold(foldNormalizeOp)([])(split));
-};
-/**
- * Normalizes a path string by parsing and rejoining it with POSIX separators.
- */
-export const normalize = path => {
-    const foldResult = parse(path);
-    return listJoin('/')(foldResult);
-};
-/**
- * Concatenates two path fragments and returns a normalized path.
- */
-export const concat = a => b => {
-    const s = stringConcat([a, '/', b]);
-    return normalize(s);
-};
-/**
- * Joins path segments with single POSIX `/` separators, without
- * normalization. Unlike {@link concat}, the result is not parsed/collapsed,
- * so absolute roots and `.`/`..` segments are preserved verbatim. Use this
- * for building paths from already-clean segments (directory walks, store
- * layouts); use {@link concat} when normalization is desired.
- */
-export const join = (...list) => list.join('/');
-/**
- * Returns `path` relative to `base` with a `./` prefix, or `path` unchanged
- * if it does not start with `base` or `base` is empty.
- * E.g. `relativize('/repo', '/repo/fs/a.ts')` → `'./fs/a.ts'`.
- */
-export const relativize = (base, path) => base !== '' && path.startsWith(base) ? `.${path.slice(base.length)}` : path;
-/**
- * Returns `true` when `prefix` is a strict ancestor of `path` in segment space:
- * every segment of `prefix` matches the corresponding segment of `path`, and
- * `path` has at least one additional segment.
- */
-export const isProperPrefix = (prefix, path) => prefix.length < path.length && prefix.every((seg, i) => seg === path[i]);