functionalscript 0.9.1 → 0.9.3

package/types/base128/test.f.js

@@ -0,0 +1,26 @@
+import { empty, vec, vec8 } from "../bit_vec/module.f.js";
+import { asBase } from "../nominal/module.f.js";
+import { encode, decode } from "./module.f.js";
+const test = (a, b) => {
+    const encoded = encode(a);
+    if (encoded !== b) {
+        throw `encoded: ${asBase(encoded).toString(16)}, expected: ${asBase(b).toString(16)}`;
+    }
+    const [decoded, rest] = decode(b);
+    if (decoded !== a) {
+        throw `decoded: ${decoded.toString(16)}, expected: ${a.toString(16)}`;
+    }
+    if (rest !== empty) {
+        throw `rest: ${asBase(rest).toString(16)}, expected: ${asBase(empty).toString(16)}`;
+    }
+};
+export default () => {
+    test(0n, vec8(0n));
+    test(1n, vec8(1n));
+    test(0x7fn, vec8(0x7fn));
+    test(0x80n, vec(16n)(0x8100n));
+    test(0x81n, vec(16n)(0x8101n));
+    test(0x82n, vec(16n)(0x8102n));
+    test(0x3fffn, vec(16n)(0xff7fn));
+    test(0x4000n, vec(24n)(0x818000n));
+};

package/types/bit_vec/module.f.d.ts

@@ -1,6 +1,7 @@
-import type { Fold, Reduce as OpReduce } from "../function/operator/module.f.ts";
-import { type List, type Thunk } from "../list/module.f.ts";
-import { type Nominal } from "../nominal/module.f.ts";
+import type { Fold, Reduce as OpReduce } from '../function/operator/module.f.ts';
+import { type List, type Thunk } from '../list/module.f.ts';
+import { type Nominal } from '../nominal/module.f.ts';
+import { type Sign } from '../function/compare/module.f.ts';
 /**
  * A vector of bits represented as a signed `bigint`.
  */
@@ -185,3 +186,14 @@ export declare const listToVec: ({ concat }: BitOrder) => (list: List<Vec>) => V
  * Repeats a vector to create a padded block of the desired length.
  */
 export declare const repeat: Fold<bigint, Vec>;
+export declare const isVec: <T>(v: Vec | T) => v is Vec;
+/**
+ * Lexically compares two vectors based on their unsigned integer values,
+ * normalizing them to the same length. If the values are equal,
+ * the shorter vector is considered smaller.
+ *
+ * a < b => -1
+ * a > b => 1
+ * a === b => 0
+ */
+export declare const msbCmp: (av: Vec) => (bv: Vec) => Sign;

package/types/bit_vec/module.f.js

@@ -21,11 +21,12 @@
  *
  * @module
  */
-import { abs, bitLength, mask, max, xor } from "../bigint/module.f.js";
+import { bitLength, mask, max, min, xor } from "../bigint/module.f.js";
 import { flip } from "../function/module.f.js";
 import { fold } from "../list/module.f.js";
 import { asBase, asNominal } from "../nominal/module.f.js";
 import { repeat as mRepeat } from "../monoid/module.f.js";
+import { cmp } from "../function/compare/module.f.js";
 /**
  * An empty vector of bits.
  */
@@ -55,7 +56,7 @@ export const vec = (len) => {
     const lastBit = 1n << last;
     return ui => {
         // normalize `u`
-        const u = m & abs(ui);
+        const u = m & ui;
         //
         const sign = u >> last;
         const x = sign !== 0n ? u : -(u ^ lastBit);
@@ -202,3 +203,22 @@ export const listToVec = ({ concat }) => fold(flip(concat))(empty);
  * Repeats a vector to create a padded block of the desired length.
  */
 export const repeat = mRepeat({ identity: empty, operation: lsb.concat });
+export const isVec = (v) => typeof v === 'bigint';
+/**
+ * Lexically compares two vectors based on their unsigned integer values,
+ * normalizing them to the same length. If the values are equal,
+ * the shorter vector is considered smaller.
+ *
+ * a < b => -1
+ * a > b => 1
+ * a === b => 0
+ */
+export const msbCmp = (av) => (bv) => {
+    const au = unpack(av);
+    const bu = unpack(bv);
+    const al = au.length;
+    const bl = bu.length;
+    const { a, b } = msbNorm(au)(bu)(min(al)(bl));
+    const result = cmp(a)(b);
+    return result !== 0 ? result : cmp(al)(bl);
+};

package/types/bit_vec/test.f.d.ts

@@ -37,5 +37,6 @@ declare const _default: {
     lsbXor: () => void;
     msbXor: () => void;
     repeat: () => void;
+    msbCmp: () => void;
 };
 export default _default;

package/types/bit_vec/test.f.js

@@ -1,6 +1,6 @@
-import { abs, mask } from "../bigint/module.f.js";
+import { mask } from "../bigint/module.f.js";
 import { asBase, asNominal } from "../nominal/module.f.js";
-import { length, empty, uint, vec, lsb, msb, repeat, vec8 } from "./module.f.js";
+import { length, empty, uint, vec, lsb, msb, repeat, vec8, msbCmp } from "./module.f.js";
 const unsafeVec = (a) => asNominal(a);
 // 0x8 = 0b1000 = 0 + 8
 // 0x9 = 0b1001 = 1 + 8
@@ -347,16 +347,16 @@ export default {
             const v = vec(len)(ui);
             const x = asBase(v);
             if (x !== raw) {
-                throw x;
+                throw `x: ${x}, raw: ${raw}`;
             }
             const len2 = length(v);
             if (len2 !== len) {
                 throw len2;
             }
             const u = uint(v);
-            const mui = mask(len) & abs(ui);
+            const mui = mask(len) & ui;
             if (u !== mui) {
-                throw u;
+                throw [u, mui];
             }
         };
         // 0n
@@ -373,7 +373,15 @@ export default {
             () => c(2n)(1n)(-3n),
             () => c(2n)(2n)(2n),
             () => c(2n)(3n)(3n),
-            () => c(2n)(-7n)(3n), //< overflow
+            // -1 is 0b.....1
+            // -2 is 0b....10
+            // -3 is 0b...101
+            // -4 is 0b...100
+            // -5 is 0b..1011
+            // -6 is 0b..1010
+            // -7 is 0b..1011, cut 0b11, vec: -0b11
+            // -8 is 0b..1100 = ~(8-1) = ~7
+            () => c(2n)(-7n)(-3n), //< overflow.
         ];
     },
     concat2: () => {
@@ -420,5 +428,19 @@ export default {
         if (repeat(7n)(vec(5n)(0x13n)) !== vec(35n)(21059194483n)) {
             throw 'repeat failed';
         }
+    },
+    msbCmp: () => {
+        const c = (a) => (b) => (r) => {
+            const result = msbCmp(a)(b);
+            if (result !== r) {
+                throw `result: ${result}, expected: ${r}`;
+            }
+        };
+        c(vec(4n)(0x5n))(vec(4n)(0x5n))(0); // 0b0101 == 0b0101
+        c(vec(4n)(0x5n))(vec(4n)(0x6n))(-1); // 0b0101 < 0b0110
+        c(vec(4n)(0x6n))(vec(4n)(0x5n))(1); // 0b0110 > 0b0101
+        c(vec(4n)(0x5n))(vec(5n)(0x5n))(1); // 0b0101_ < 0b00101
+        c(vec(5n)(0x5n))(vec(4n)(0x5n))(-1); // 0b00101 < 0b0101_
+        c(vec(4n)(0x5n))(vec(5n)(0xan))(-1); // 0b0101_ < 0b01010
     }
 };

package/types/effect/mock/module.f.d.ts

@@ -0,0 +1,5 @@
+import type { Effect, Operations } from "../module.f.ts";
+export type MemOperationMap<O extends Operations, S> = {
+    readonly [K in keyof O]: (state: S, payload: O[K][0]) => readonly [S, O[K][1]];
+};
+export declare const run: <O extends Operations, S>(o: MemOperationMap<O, S>) => (state: S) => <O1 extends O, T>(effect: Effect<O1, T>) => readonly [S, T];

package/types/effect/mock/module.f.js

@@ -0,0 +1,14 @@
+export const run = (o) => (state) => (effect) => {
+    let s = state;
+    let e = effect;
+    while (true) {
+        if ('pure' in e) {
+            return [s, e.pure];
+        }
+        const [cmd, payload, cont] = e.do;
+        const operation = o[cmd];
+        const [ns, m] = operation(s, payload);
+        s = ns;
+        e = cont(m);
+    }
+};

package/types/effect/module.d.ts

@@ -0,0 +1,2 @@
+import type { Effect, Operations, ToAsyncOperationMap } from "./module.f.ts";
+export declare const asyncRun: <O extends Operations>(map: ToAsyncOperationMap<O>) => <T, E extends Effect<O, T>>(effect: Effect<O, T>) => Promise<T>;

package/types/effect/module.f.d.ts

@@ -0,0 +1,23 @@
+export type Operations = {
+    readonly [command in string]: readonly [input: unknown, output: unknown];
+};
+export type Effect<O extends Operations, T> = Pure<O, T> | Do<O, T>;
+export type Map<O extends Operations, T> = {
+    readonly pipe: <O1 extends Operations, R>(f: (_: T) => Effect<O1, R>) => Effect<O | O1, R>;
+    readonly map: <O1 extends Operations, R>(f: (_: T) => R) => Effect<O | O1, R>;
+};
+export type Pure<O extends Operations, T> = {
+    readonly pure: T;
+} & Map<O, T>;
+export declare const pure: <O extends Operations, T>(value: T) => Pure<O, T>;
+export type One<O extends Operations, T, K extends keyof O & string> = readonly [K, O[K][0], (input: O[K][1]) => Effect<O, T>];
+export type Do<O extends Operations, T> = {
+    readonly do: {
+        readonly [K in keyof O & string]: One<O, T, K>;
+    }[keyof O & string];
+} & Map<O, T>;
+export declare const do_: <O extends Operations, K extends keyof O & string>(cmd: K, payload: O[K][0]) => Do<O, O[K][1]>;
+export type ToAsyncOperationMap<O extends Operations> = {
+    readonly [K in keyof O]: (payload: O[K][0]) => Promise<O[K][1]>;
+};
+export declare const all: <O extends Operations, T>(set: readonly Effect<O, T>[]) => Effect<O, readonly T[]>;

package/types/effect/module.f.js

@@ -0,0 +1,14 @@
+export const pure = (value) => ({
+    pure: value,
+    pipe: e => e(value),
+    map: f => pure(f(value))
+});
+const doFull = (cmd, payload, cont) => ({
+    do: [cmd, payload, cont],
+    pipe: e => doFull(cmd, payload, x => cont(x).pipe(e)),
+    map: f => doFull(cmd, payload, x => cont(x).map(f))
+});
+export const do_ = (cmd, payload) => doFull(cmd, payload, pure);
+const empty = pure([]);
+// TODO: replace with either a `Do` operation or as an addition to `Pure` and `Do`.
+export const all = (set) => set.reduce((previous, current) => previous.pipe(previousResult => current.map(currentResult => [...previousResult, currentResult])), empty);

package/types/effect/module.js

@@ -0,0 +1,11 @@
+export const asyncRun = (map) => async (effect) => {
+    while (true) {
+        if ('pure' in effect) {
+            return effect.pure;
+        }
+        const [command, payload, continuation] = effect.do;
+        const operation = map[command];
+        const result = await operation(payload);
+        effect = continuation(result);
+    }
+};

package/types/effect/node/module.f.d.ts

@@ -0,0 +1,56 @@
+import type { Vec } from '../../bit_vec/module.f.ts';
+import type { Result } from '../../result/module.f.ts';
+import { type Do, type Effect, type ToAsyncOperationMap } from '../module.f.ts';
+export type IoResult<T> = Result<T, unknown>;
+export type Fetch = {
+    readonly fetch: readonly [string, IoResult<Vec>];
+};
+export declare const fetch: (url: string) => Do<Fetch, IoResult<Vec>>;
+export type MakeDirectoryOptions = {
+    readonly recursive: true;
+};
+export type MkdirParam = readonly [string, MakeDirectoryOptions?];
+export type Mkdir = {
+    readonly mkdir: readonly [MkdirParam, IoResult<void>];
+};
+export declare const mkdir: (...p: MkdirParam) => Do<Mkdir, IoResult<void>>;
+export type ReadFile = {
+    readonly readFile: readonly [string, IoResult<Vec>];
+};
+export declare const readFile: (path: string) => Do<ReadFile, IoResult<Vec>>;
+/**
+ * Represents a directory entry (file or directory) in the filesystem
+ * @see https://nodejs.org/api/fs.html#class-fsdirent
+ */
+export type Dirent = {
+    readonly name: string;
+    readonly parentPath: string;
+    readonly isFile: boolean;
+};
+export type ReaddirOptions = {
+    readonly recursive?: true;
+};
+export type ReaddirParam = readonly [string, ReaddirOptions];
+export type Readdir = {
+    readonly readdir: readonly [ReaddirParam, IoResult<readonly Dirent[]>];
+};
+export declare const readdir: (...p: ReaddirParam) => Do<Readdir, IoResult<readonly Dirent[]>>;
+export type WriteFileParam = readonly [string, Vec];
+export type WriteFile = {
+    readonly writeFile: readonly [WriteFileParam, IoResult<void>];
+};
+export declare const writeFile: (...p: WriteFileParam) => Do<WriteFile, IoResult<void>>;
+export type Fs = Mkdir & ReadFile & Readdir & WriteFile;
+export type Error = {
+    readonly error: readonly [string, void];
+};
+export declare const error: (msg: string) => Do<Error, void>;
+export type Log = {
+    readonly log: readonly [string, void];
+};
+export declare const log: (msg: string) => Do<Log, void>;
+export type Console = Log & Error;
+export type NodeOperations = Fetch & Console & Fs;
+export type NodeEffect<T> = Effect<NodeOperations, T>;
+export type NodeOperationMap = ToAsyncOperationMap<NodeOperations>;
+export type NodeProgram = (argv: readonly string[]) => NodeEffect<number>;

package/types/effect/node/module.f.js

@@ -0,0 +1,8 @@
+import { do_ } from "../module.f.js";
+export const fetch = (url) => do_('fetch', url);
+export const mkdir = (...p) => do_('mkdir', p);
+export const readFile = (path) => do_('readFile', path);
+export const readdir = (...p) => do_('readdir', p);
+export const writeFile = (...p) => do_('writeFile', p);
+export const error = (msg) => do_('error', msg);
+export const log = (msg) => do_('log', msg);

package/types/effect/node/test.f.d.ts

@@ -0,0 +1,28 @@
+declare const _default: {
+    map: () => void;
+    fetch: () => void;
+    mkdir: {
+        one: () => void;
+        rec: () => void;
+        nonRec: () => void;
+    };
+    readFile: {
+        one: () => void;
+        nested: () => void;
+        noSuchFile: () => void;
+        nestedPath: () => void;
+    };
+    readdir: {
+        one: () => void;
+        nonRecursive: () => void;
+        nested: () => void;
+        noSuchDir: () => void;
+    };
+    writeFile: {
+        one: () => void;
+        overwrite: () => void;
+        nestedPath: () => void;
+        directory: () => void;
+    };
+};
+export default _default;

package/types/effect/node/test.f.js

@@ -0,0 +1,277 @@
+import { empty, isVec, uint, vec8 } from "../../bit_vec/module.f.js";
+import { run } from "../mock/module.f.js";
+import { fetch, mkdir, readdir, readFile, writeFile } from "./module.f.js";
+import { emptyState, virtual } from "./virtual/module.f.js";
+export default {
+    map: () => {
+        let e = readFile('hello').map(([k, v]) => {
+            if (k === 'error') {
+                throw v;
+            }
+            return uint(v) * 2n;
+        });
+        //
+        while (true) {
+            if ('pure' in e) {
+                const result = e.pure;
+                if (result !== 0x2an) {
+                    throw result;
+                }
+                return;
+            }
+            const [cmd, p, cont] = e.do;
+            if (cmd !== 'readFile') {
+                throw cmd;
+            }
+            if (p !== 'hello') {
+                throw p;
+            }
+            e = cont(['ok', vec8(0x15n)]);
+        }
+    },
+    fetch: () => {
+        const v = run(virtual);
+        const [_, [t, result]] = v({
+            ...emptyState,
+            internet: {
+                'https://example.com/data': vec8(0x2an),
+            },
+        })(fetch('https://example.com/data'));
+        if (t === 'error') {
+            throw result;
+        }
+        if (!isVec(result)) {
+            throw result;
+        }
+        if (uint(result) !== 0x2an) {
+            throw result;
+        }
+    },
+    mkdir: {
+        one: () => {
+            const v = run(virtual);
+            const [state, [t, result]] = v(emptyState)(mkdir('a'));
+            if (t === 'error') {
+                throw result;
+            }
+            const a = state.root.a;
+            if (a === undefined || isVec(a)) {
+                throw a;
+            }
+        },
+        rec: () => {
+            const [state, [t, result]] = run(virtual)(emptyState)(mkdir('tmp/cache', { recursive: true }));
+            if (t !== 'ok') {
+                throw result;
+            }
+            const tmp = state.root.tmp;
+            if (tmp === undefined || isVec(tmp)) {
+                throw state.root;
+            }
+            const cache = tmp.cache;
+            if (cache === undefined || isVec(cache)) {
+                throw tmp;
+            }
+        },
+        nonRec: () => {
+            const [state, [t, result]] = run(virtual)(emptyState)(mkdir('tmp/cache'));
+            if (t !== 'error') {
+                throw result;
+            }
+            if (state.root.tmp !== undefined) {
+                throw state.root.tmp;
+            }
+        }
+    },
+    readFile: {
+        one: () => {
+            const v = run(virtual);
+            const initial = {
+                ...emptyState,
+                root: {
+                    hello: vec8(0x2an),
+                },
+            };
+            const [state, [t, result]] = v(initial)(readFile('hello'));
+            if (t === 'error') {
+                throw result;
+            }
+            if (!isVec(result)) {
+                throw result;
+            }
+            if (uint(result) !== 0x2an) {
+                throw result;
+            }
+            if (state.root.hello === undefined) {
+                throw state.root;
+            }
+        },
+        nested: () => {
+            const [_, [tag, result]] = run(virtual)({
+                ...emptyState,
+                root: { tmp: { cache: vec8(0x15n) } }
+            })(readFile('tmp/cache'));
+            if (tag === 'error') {
+                throw result;
+            }
+            if (uint(result) !== 0x15n) {
+                throw result;
+            }
+        },
+        noSuchFile: () => {
+            const [_, [t, result]] = run(virtual)(emptyState)(readFile('hello'));
+            if (t !== 'error') {
+                throw result;
+            }
+        },
+        nestedPath: () => {
+            const [_, [t, result]] = run(virtual)(emptyState)(readFile('tmp/cache'));
+            if (t !== 'error') {
+                throw result;
+            }
+            if (result !== 'no such file') {
+                throw result;
+            }
+        }
+    },
+    readdir: {
+        one: () => {
+            const [_, [t, result]] = run(virtual)({
+                ...emptyState,
+                root: {
+                    file: vec8(0x2an),
+                    dir: {
+                        a: empty
+                    },
+                },
+            })(readdir('', { recursive: true }));
+            if (t !== 'ok') {
+                throw result;
+            }
+            const file = result.find(x => x.name === 'file');
+            if (file === undefined || file.parentPath !== '' || !file.isFile) {
+                throw `file: ${file}`;
+            }
+            const dirA = result.find(x => x.name === 'a');
+            if (dirA === undefined || dirA.parentPath !== '/dir') {
+                throw `dirA: ${dirA?.parentPath}`;
+            }
+        },
+        nonRecursive: () => {
+            const [_, [t, result]] = run(virtual)({
+                ...emptyState,
+                root: {
+                    file: vec8(0x2an),
+                    dir: {
+                        a: empty
+                    },
+                },
+            })(readdir('', {}));
+            if (t !== 'ok') {
+                throw result;
+            }
+            if (result.length !== 2) {
+                throw result;
+            }
+            const file = result.find(x => x.name === 'file');
+            if (file === undefined) {
+                throw file;
+            }
+            const dir = result.find(x => x.name === 'dir');
+            if (dir === undefined) {
+                throw dir;
+            }
+        },
+        nested: () => {
+            const [_, [t, result]] = run(virtual)({
+                ...emptyState,
+                root: { tmp: { cache: vec8(0x15n) } }
+            })(readdir('tmp', { recursive: true }));
+            if (t !== 'ok') {
+                throw result;
+            }
+            if (result.length !== 1) {
+                throw result;
+            }
+            const [r0] = result;
+            if (r0.name !== 'cache') {
+                throw r0;
+            }
+            if (r0.parentPath !== 'tmp') {
+                throw r0;
+            }
+        },
+        noSuchDir: () => {
+            const [_, [t, result]] = run(virtual)(emptyState)(readdir('tmp', { recursive: true }));
+            if (t !== 'error') {
+                throw result;
+            }
+            if (result !== 'invalid path') {
+                throw result;
+            }
+        },
+    },
+    writeFile: {
+        one: () => {
+            const [state, [t, result]] = run(virtual)(emptyState)(writeFile('hello', vec8(0x2an)));
+            if (t !== 'ok') {
+                throw result;
+            }
+            const file = state.root.hello;
+            if (!isVec(file)) {
+                throw file;
+            }
+            if (uint(file) !== 0x2an) {
+                throw file;
+            }
+        },
+        overwrite: () => {
+            const [state, [t, result]] = run(virtual)({
+                ...emptyState,
+                root: {
+                    hello: vec8(0x15n),
+                },
+            })(writeFile('hello', vec8(0x2an)));
+            if (t !== 'ok') {
+                throw result;
+            }
+            const file = state.root.hello;
+            if (!isVec(file)) {
+                throw file;
+            }
+            if (uint(file) !== 0x2an) {
+                throw file;
+            }
+        },
+        nestedPath: () => {
+            const [state, [t, result]] = run(virtual)(emptyState)(writeFile('tmp/cache', vec8(0x2an)));
+            if (t !== 'error') {
+                throw result;
+            }
+            if (result !== 'invalid file') {
+                throw result;
+            }
+            if (state.root.tmp !== undefined) {
+                throw state.root;
+            }
+        },
+        directory: () => {
+            const [state, [t, result]] = run(virtual)({
+                ...emptyState,
+                root: {
+                    tmp: {},
+                },
+            })(writeFile('tmp', vec8(0x2an)));
+            if (t !== 'error') {
+                throw result;
+            }
+            if (result !== 'invalid file') {
+                throw result;
+            }
+            const tmp = state.root.tmp;
+            if (tmp === undefined || isVec(tmp)) {
+                throw tmp;
+            }
+        },
+    },
+};

package/types/effect/node/virtual/module.f.d.ts

@@ -0,0 +1,16 @@
+import { type Vec } from "../../../bit_vec/module.f.ts";
+import type { MemOperationMap } from "../../mock/module.f.ts";
+import type { NodeOperations } from "../module.f.ts";
+export type VirtualDir = {
+    readonly [name in string]?: VirtualDir | Vec;
+};
+export type VirtualState = {
+    stdout: string;
+    stderr: string;
+    root: VirtualDir;
+    internet: {
+        readonly [url: string]: Vec;
+    };
+};
+export declare const emptyState: VirtualState;
+export declare const virtual: MemOperationMap<NodeOperations, VirtualState>;