@soundscript/soundscript 0.1.0

package/LICENSE

@@ -0,0 +1,15 @@
+ISC License
+
+Copyright (c) 2026 Jake McCloskey
+
+Permission to use, copy, modify, and/or distribute this software for any
+purpose with or without fee is hereby granted, provided that the above
+copyright notice and this permission notice appear in all copies.
+
+THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH
+REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
+AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT,
+INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
+LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
+OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
+PERFORMANCE OF THIS SOFTWARE.

package/README.md

@@ -0,0 +1,10 @@
+# @soundscript/soundscript
+
+Canonical Soundscript toolchain and runtime package.
+
+This package provides:
+
+- the `soundscript` CLI launcher
+- stable runtime and TypeScript interop modules under `@soundscript/soundscript/*`
+- unstable runtime modules under `@soundscript/soundscript/experimental/*`
+- the canonical package identity for built Soundscript libraries

package/async.d.ts

@@ -0,0 +1,81 @@
+import type { Bind, Kind2, TypeLambda } from '@soundscript/soundscript/hkt';
+import { Failure } from '@soundscript/soundscript/failures';
+import type { Result } from '@soundscript/soundscript/result';
+import type { Applicative, AsyncMonad, Functor, Monad } from '@soundscript/soundscript/typeclasses';
+
+export interface AbortSignalLike {
+  readonly aborted: boolean;
+  readonly reason?: unknown;
+  addEventListener(
+    type: 'abort',
+    listener: () => void,
+    options?: boolean | { once?: boolean },
+  ): void;
+  removeEventListener(type: 'abort', listener: () => void, options?: boolean): void;
+}
+
+export type Task<T, E = Error> = (signal?: AbortSignalLike) => Promise<Result<T, E>>;
+
+export interface TaskF extends TypeLambda {
+  readonly type: Task<this['Args'][1], this['Args'][0]>;
+}
+
+export interface PromiseF extends TypeLambda {
+  readonly type: Promise<this['Args'][0]>;
+}
+
+export type TaskKind<E, T> = Kind2<TaskF, E, T>;
+export type PromiseKind<T> = Promise<T>;
+
+export class TimeoutFailure extends Failure {
+  readonly ms: number;
+  constructor(ms: number, cause?: unknown);
+}
+
+export function succeed<T>(value: T): Task<T, never>;
+export function fail<E>(error: E): Task<never, E>;
+export function fromResult<T, E>(result: Result<T, E>): Task<T, E>;
+export function fromPromise<T>(fn: (signal?: AbortSignalLike) => Promise<T>): Task<T, Error>;
+export function fromPromise<T, E>(
+  fn: (signal?: AbortSignalLike) => Promise<T>,
+  mapError: (error: Error) => E,
+): Task<T, E>;
+export function map<A, B, E>(
+  task: Task<A, E>,
+  project: (value: A) => B,
+): Task<B, E>;
+export function mapError<A, E1, E2>(
+  task: Task<A, E1>,
+  project: (error: E1) => E2,
+): Task<A, E2 | Error>;
+export function flatMap<A, B, E1, E2>(
+  task: Task<A, E1>,
+  project: (value: A) => Task<B, E2>,
+): Task<B, E1 | E2>;
+export function recover<A, B, E>(
+  task: Task<A, E>,
+  project: (error: E) => B | PromiseLike<B>,
+): Task<A | B, Error>;
+export function tap<A, E>(
+  task: Task<A, E>,
+  effect: (value: A) => unknown | PromiseLike<unknown>,
+): Task<A, E | Error>;
+export function tapError<A, E>(
+  task: Task<A, E>,
+  effect: (error: E) => unknown | PromiseLike<unknown>,
+): Task<A, E | Error>;
+export function parallel<T, E>(tasks: readonly Task<T, E>[]): Task<readonly T[], E>;
+export function race<T, E>(
+  tasks: readonly [Task<T, E>, ...Task<T, E>[]],
+): Task<T, E>;
+export function timeout<T, E>(task: Task<T, E>, ms: number): Task<T, E | TimeoutFailure>;
+
+export function taskFunctor<E>(): Functor<Bind<TaskF, [E]>>;
+export function taskApplicative<E>(): Applicative<Bind<TaskF, [E]>>;
+export function taskMonad<E>(): Monad<Bind<TaskF, [E]>>;
+export function taskAsyncMonad<E>(): AsyncMonad<Bind<TaskF, [E]>>;
+
+export const promiseFunctor: Functor<PromiseF>;
+export const promiseApplicative: Applicative<PromiseF>;
+export const promiseMonad: Monad<PromiseF>;
+export const promiseAsyncMonad: AsyncMonad<PromiseF>;

package/async.js

@@ -0,0 +1,214 @@
+import { Failure, normalizeThrown } from '@soundscript/soundscript/failures';
+import { err, isErr, ok, resultOf } from '@soundscript/soundscript/result';
+export class TimeoutFailure extends Failure {
+    constructor(ms, cause) {
+        super(`Task timed out after ${ms}ms.`, { cause });
+        this.ms = ms;
+    }
+}
+export function succeed(value) {
+    return () => Promise.resolve(ok(value));
+}
+export function fail(error) {
+    return () => Promise.resolve(err(error));
+}
+export function fromResult(result) {
+    return () => Promise.resolve(result);
+}
+export function fromPromise(fn, mapError) {
+    return async (signal) => {
+        if (mapError) {
+            return await resultOf(() => fn(signal), mapError);
+        }
+        return await resultOf(() => fn(signal));
+    };
+}
+export function map(task, project) {
+    return async (signal) => {
+        const result = await task(signal);
+        return isErr(result) ? result : ok(project(result.value));
+    };
+}
+export function mapError(task, project) {
+    return async (signal) => {
+        const result = await task(signal);
+        if (!isErr(result)) {
+            return result;
+        }
+        try {
+            return err(project(result.error));
+        }
+        catch (error) {
+            return err(normalizeThrown(error));
+        }
+    };
+}
+export function flatMap(task, project) {
+    return async (signal) => {
+        const result = await task(signal);
+        if (isErr(result)) {
+            return result;
+        }
+        return await project(result.value)(signal);
+    };
+}
+export function recover(task, project) {
+    return async (signal) => {
+        const result = await task(signal);
+        if (!isErr(result)) {
+            return result;
+        }
+        return await resultOf(async () => await project(result.error));
+    };
+}
+export function tap(task, effect) {
+    return async (signal) => {
+        const result = await task(signal);
+        if (isErr(result)) {
+            return result;
+        }
+        const observed = await resultOf(async () => await effect(result.value));
+        return isErr(observed) ? observed : result;
+    };
+}
+export function tapError(task, effect) {
+    return async (signal) => {
+        const result = await task(signal);
+        if (!isErr(result)) {
+            return result;
+        }
+        const observed = await resultOf(async () => await effect(result.error));
+        return isErr(observed) ? observed : result;
+    };
+}
+export function parallel(tasks) {
+    return async (signal) => {
+        const results = await Promise.all(tasks.map((task) => task(signal)));
+        const values = [];
+        for (const result of results) {
+            if (isErr(result)) {
+                return result;
+            }
+            values.push(result.value);
+        }
+        return ok(values);
+    };
+}
+export function race(tasks) {
+    return async (signal) => {
+        const controller = new AbortController();
+        const cleanup = forwardAbort(signal, controller);
+        try {
+            return await Promise.race(tasks.map(async (task) => {
+                const result = await task(controller.signal);
+                controller.abort(result);
+                return result;
+            }));
+        }
+        finally {
+            cleanup();
+        }
+    };
+}
+export function timeout(task, ms) {
+    return async (signal) => {
+        const controller = new AbortController();
+        const cleanup = forwardAbort(signal, controller);
+        let timeoutId;
+        try {
+            const timeoutPromise = new Promise((resolve) => {
+                timeoutId = setTimeout(() => {
+                    const failure = new TimeoutFailure(ms);
+                    resolve(err(failure));
+                    controller.abort(failure);
+                }, ms);
+            });
+            return await Promise.race([
+                task(controller.signal),
+                timeoutPromise,
+            ]);
+        }
+        finally {
+            cleanup();
+            if (timeoutId !== undefined) {
+                clearTimeout(timeoutId);
+            }
+        }
+    };
+}
+function forwardAbort(signal, controller) {
+    if (!signal) {
+        return () => { };
+    }
+    if (signal.aborted) {
+        controller.abort(signal.reason);
+        return () => { };
+    }
+    const onAbort = () => {
+        controller.abort(signal.reason);
+    };
+    signal.addEventListener('abort', onAbort, { once: true });
+    return () => signal.removeEventListener('abort', onAbort);
+}
+function mapTask(task, project) {
+    return map(task, project);
+}
+function apTask(fn, value) {
+    return flatMap(fn, (resolvedFn) => map(value, resolvedFn));
+}
+function flatMapTask(task, project) {
+    return flatMap(task, project);
+}
+function createTaskMonad() {
+    return {
+        ap: apTask,
+        flatMap: flatMapTask,
+        map: mapTask,
+        pure: succeed,
+    };
+}
+export function taskFunctor() {
+    return createTaskMonad();
+}
+export function taskApplicative() {
+    return createTaskMonad();
+}
+export function taskMonad() {
+    return createTaskMonad();
+}
+export function taskAsyncMonad() {
+    const monad = createTaskMonad();
+    return {
+        ...monad,
+        fromPromise(promise) {
+            return fromPromise(() => Promise.resolve(promise));
+        },
+    };
+}
+export const promiseFunctor = {
+    map(value, f) {
+        return value.then(f);
+    },
+};
+export const promiseApplicative = {
+    ...promiseFunctor,
+    ap(fn, value) {
+        return Promise.all([fn, value]).then(([resolvedFn, resolvedValue]) => resolvedFn(resolvedValue));
+    },
+    pure(value) {
+        return Promise.resolve(value);
+    },
+};
+export const promiseMonad = {
+    ...promiseApplicative,
+    flatMap(value, f) {
+        return value.then(f);
+    },
+};
+export const promiseAsyncMonad = {
+    ...promiseMonad,
+    fromPromise(promise) {
+        return Promise.resolve(promise);
+    },
+};
+//# sourceMappingURL=async.js.map

package/async.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"async.js","sourceRoot":"","sources":["./soundscript/async.sts"],"names":[],"mappings":"AACA,OAAO,EAAE,OAAO,EAAE,eAAe,EAAE,MAAM,mCAAmC,CAAC;AAC7E,OAAO,EAAE,GAAG,EAAE,KAAK,EAAE,EAAE,EAAe,QAAQ,EAAE,MAAM,iCAAiC,CAAC;AA2BxF,MAAM,OAAO,cAAe,SAAQ,OAAO;IAGzC,YAAY,EAAU,EAAE,KAAe;QACrC,KAAK,CAAC,wBAAwB,EAAE,KAAK,EAAE,EAAE,KAAK,EAAE,CAAC,CAAC;QAClD,IAAI,CAAC,EAAE,GAAG,EAAE,CAAC;IACf,CAAC;CACF;AAED,MAAM,UAAU,OAAO,CAAI,KAAQ;IACjC,OAAO,GAAG,EAAE,CAAC,OAAO,CAAC,OAAO,CAAC,EAAE,CAAC,KAAK,CAAC,CAAC,CAAC;AAC1C,CAAC;AAED,MAAM,UAAU,IAAI,CAAI,KAAQ;IAC9B,OAAO,GAAG,EAAE,CAAC,OAAO,CAAC,OAAO,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC;AAC3C,CAAC;AAED,MAAM,UAAU,UAAU,CAAO,MAAoB;IACnD,OAAO,GAAG,EAAE,CAAC,OAAO,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC;AACvC,CAAC;AAOD,MAAM,UAAU,WAAW,CACzB,EAA4C,EAC5C,QAA8B;IAE9B,OAAO,KAAK,EAAE,MAAwB,EAAE,EAAE;QACxC,IAAI,QAAQ,EAAE,CAAC;YACb,OAAO,MAAM,QAAQ,CAAC,GAAG,EAAE,CAAC,EAAE,CAAC,MAAM,CAAC,EAAE,QAAQ,CAAC,CAAC;QACpD,CAAC;QAED,OAAO,MAAM,QAAQ,CAAC,GAAG,EAAE,CAAC,EAAE,CAAC,MAAM,CAAC,CAAC,CAAC;IAC1C,CAAC,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,GAAG,CACjB,IAAgB,EAChB,OAAwB;IAExB,OAAO,KAAK,EAAE,MAAwB,EAAE,EAAE;QACxC,MAAM,MAAM,GAAG,MAAM,IAAI,CAAC,MAAM,CAAC,CAAC;QAClC,OAAO,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC,OAAO,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC;IAC5D,CAAC,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,QAAQ,CACtB,IAAiB,EACjB,OAA0B;IAE1B,OAAO,KAAK,EAAE,MAAwB,EAAE,EAAE;QACxC,MAAM,MAAM,GAAG,MAAM,IAAI,CAAC,MAAM,CAAC,CAAC;QAClC,IAAI,CAAC,KAAK,CAAC,MAAM,CAAC,EAAE,CAAC;YACnB,OAAO,MAAM,CAAC;QAChB,CAAC;QAED,IAAI,CAAC;YACH,OAAO,GAAG,CAAC,OAAO,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC;QACpC,CAAC;QAAC,OAAO,KAAK,EAAE,CAAC;YACf,OAAO,GAAG,CAAC,eAAe,CAAC,KAAK,CAAC,CAAC,CAAC;QACrC,CAAC;IACH,CAAC,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,OAAO,CACrB,IAAiB,EACjB,OAAkC;IAElC,OAAO,KAAK,EAAE,MAAwB,EAAE,EAAE;QACxC,MAAM,MAAM,GAAG,MAAM,IAAI,CAAC,MAAM,CAAC,CAAC;QAClC,IAAI,KAAK,CAAC,MAAM,CAAC,EAAE,CAAC;YAClB,OAAO,MAAM,CAAC;QAChB,CAAC;QACD,OAAO,MAAM,OAAO,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,MAAM,CAAC,CAAC;IAC7C,CAAC,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,OAAO,CACrB,IAAgB,EAChB,OAAyC;IAEzC,OAAO,KAAK,EAAE,MAAwB,EAAE,EAAE;QACxC,MAAM,MAAM,GAAG,MAAM,IAAI,CAAC,MAAM,CAAC,CAAC;QAClC,IAAI,CAAC,KAAK,CAAC,MAAM,CAAC,EAAE,CAAC;YACnB,OAAO,MAAM,CAAC;QAChB,CAAC;QAED,OAAO,MAAM,QAAQ,CAAC,KAAK,IAAI,EAAE,CAAC,MAAM,OAAO,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC;IACjE,CAAC,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,GAAG,CACjB,IAAgB,EAChB,MAAoD;IAEpD,OAAO,KAAK,EAAE,MAAwB,EAAE,EAAE;QACxC,MAAM,MAAM,GAAG,MAAM,IAAI,CAAC,MAAM,CAAC,CAAC;QAClC,IAAI,KAAK,CAAC,MAAM,CAAC,EAAE,CAAC;YAClB,OAAO,MAAM,CAAC;QAChB,CAAC;QAED,MAAM,QAAQ,GAAG,MAAM,QAAQ,CAAC,KAAK,IAAI,EAAE,CAAC,MAAM,MAAM,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC;QACxE,OAAO,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,MAAM,CAAC;IAC7C,CAAC,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,QAAQ,CACtB,IAAgB,EAChB,MAAoD;IAEpD,OAAO,KAAK,EAAE,MAAwB,EAAE,EAAE;QACxC,MAAM,MAAM,GAAG,MAAM,IAAI,CAAC,MAAM,CAAC,CAAC;QAClC,IAAI,CAAC,KAAK,CAAC,MAAM,CAAC,EAAE,CAAC;YACnB,OAAO,MAAM,CAAC;QAChB,CAAC;QAED,MAAM,QAAQ,GAAG,MAAM,QAAQ,CAAC,KAAK,IAAI,EAAE,CAAC,MAAM,MAAM,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC;QACxE,OAAO,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,MAAM,CAAC;IAC7C,CAAC,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,QAAQ,CAAO,KAA4B;IACzD,OAAO,KAAK,EAAE,MAAwB,EAAE,EAAE;QACxC,MAAM,OAAO,GAAG,MAAM,OAAO,CAAC,GAAG,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;QACrE,MAAM,MAAM,GAAQ,EAAE,CAAC;QACvB,KAAK,MAAM,MAAM,IAAI,OAAO,EAAE,CAAC;YAC7B,IAAI,KAAK,CAAC,MAAM,CAAC,EAAE,CAAC;gBAClB,OAAO,MAAM,CAAC;YAChB,CAAC;YACD,MAAM,CAAC,IAAI,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;QAC5B,CAAC;QACD,OAAO,EAAE,CAAC,MAAM,CAAC,CAAC;IACpB,CAAC,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,IAAI,CAClB,KAA6C;IAE7C,OAAO,KAAK,EAAE,MAAwB,EAAE,EAAE;QACxC,MAAM,UAAU,GAAG,IAAI,eAAe,EAAE,CAAC;QACzC,MAAM,OAAO,GAAG,YAAY,CAAC,MAAM,EAAE,UAAU,CAAC,CAAC;QAEjD,IAAI,CAAC;YACH,OAAO,MAAM,OAAO,CAAC,IAAI,CAAC,KAAK,CAAC,GAAG,CAAC,KAAK,EAAE,IAAI,EAAE,EAAE;gBACjD,MAAM,MAAM,GAAG,MAAM,IAAI,CAAC,UAAU,CAAC,MAAM,CAAC,CAAC;gBAC7C,UAAU,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC;gBACzB,OAAO,MAAM,CAAC;YAChB,CAAC,CAAC,CAAC,CAAC;QACN,CAAC;gBAAS,CAAC;YACT,OAAO,EAAE,CAAC;QACZ,CAAC;IACH,CAAC,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,OAAO,CAAO,IAAgB,EAAE,EAAU;IACxD,OAAO,KAAK,EAAE,MAAwB,EAAE,EAAE;QACxC,MAAM,UAAU,GAAG,IAAI,eAAe,EAAE,CAAC;QACzC,MAAM,OAAO,GAAG,YAAY,CAAC,MAAM,EAAE,UAAU,CAAC,CAAC;QACjD,IAAI,SAA6B,CAAC;QAElC,IAAI,CAAC;YACH,MAAM,cAAc,GAAG,IAAI,OAAO,CAAgC,CAAC,OAAO,EAAE,EAAE;gBAC5E,SAAS,GAAG,UAAU,CAAC,GAAG,EAAE;oBAC1B,MAAM,OAAO,GAAG,IAAI,cAAc,CAAC,EAAE,CAAC,CAAC;oBACvC,OAAO,CAAC,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC;oBACtB,UAAU,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC;gBAC5B,CAAC,EAAE,EAAE,CAAC,CAAC;YACT,CAAC,CAAC,CAAC;YAEH,OAAO,MAAM,OAAO,CAAC,IAAI,CAAC;gBACxB,IAAI,CAAC,UAAU,CAAC,MAAM,CAAC;gBACvB,cAAc;aACf,CAAC,CAAC;QACL,CAAC;gBAAS,CAAC;YACT,OAAO,EAAE,CAAC;YACV,IAAI,SAAS,KAAK,SAAS,EAAE,CAAC;gBAC5B,YAAY,CAAC,SAAS,CAAC,CAAC;YAC1B,CAAC;QACH,CAAC;IACH,CAAC,CAAC;AACJ,CAAC;AAED,SAAS,YAAY,CACnB,MAAmC,EACnC,UAA2B;IAE3B,IAAI,CAAC,MAAM,EAAE,CAAC;QACZ,OAAO,GAAG,EAAE,GAAE,CAAC,CAAC;IAClB,CAAC;IAED,IAAI,MAAM,CAAC,OAAO,EAAE,CAAC;QACnB,UAAU,CAAC,KAAK,CAAC,MAAM,CAAC,MAAM,CAAC,CAAC;QAChC,OAAO,GAAG,EAAE,GAAE,CAAC,CAAC;IAClB,CAAC;IAED,MAAM,OAAO,GAAG,GAAS,EAAE;QACzB,UAAU,CAAC,KAAK,CAAC,MAAM,CAAC,MAAM,CAAC,CAAC;IAClC,CAAC,CAAC;IAEF,MAAM,CAAC,gBAAgB,CAAC,OAAO,EAAE,OAAO,EAAE,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,CAAC;IAC1D,OAAO,GAAG,EAAE,CAAC,MAAM,CAAC,mBAAmB,CAAC,OAAO,EAAE,OAAO,CAAC,CAAC;AAC5D,CAAC;AAED,SAAS,OAAO,CAAU,IAAgB,EAAE,OAAwB;IAClE,OAAO,GAAG,CAAC,IAAI,EAAE,OAAO,CAAC,CAAC;AAC5B,CAAC;AAED,SAAS,MAAM,CACb,EAA4B,EAC5B,KAAiB;IAEjB,OAAO,OAAO,CAAC,EAAE,EAAE,CAAC,UAAU,EAAE,EAAE,CAAC,GAAG,CAAC,KAAK,EAAE,UAAU,CAAC,CAAC,CAAC;AAC7D,CAAC;AAED,SAAS,WAAW,CAClB,IAAgB,EAChB,OAAiC;IAEjC,OAAO,OAAO,CAAC,IAAI,EAAE,OAAO,CAAC,CAAC;AAChC,CAAC;AAED,SAAS,eAAe;IACtB,OAAO;QACL,EAAE,EAAE,MAAM;QACV,OAAO,EAAE,WAAW;QACpB,GAAG,EAAE,OAAO;QACZ,IAAI,EAAE,OAAO;KACd,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,WAAW;IACzB,OAAO,eAAe,EAAK,CAAC;AAC9B,CAAC;AAED,MAAM,UAAU,eAAe;IAC7B,OAAO,eAAe,EAAK,CAAC;AAC9B,CAAC;AAED,MAAM,UAAU,SAAS;IACvB,OAAO,eAAe,EAAK,CAAC;AAC9B,CAAC;AAED,MAAM,UAAU,cAAc;IAC5B,MAAM,KAAK,GAAG,eAAe,EAAK,CAAC;IACnC,OAAO;QACL,GAAG,KAAK;QACR,WAAW,CAAI,OAAuB;YACpC,OAAO,WAAW,CAAC,GAAG,EAAE,CAAC,OAAO,CAAC,OAAO,CAAC,OAAO,CAAC,CAAe,CAAC;QACnE,CAAC;KACF,CAAC;AACJ,CAAC;AAED,MAAM,CAAC,MAAM,cAAc,GAAsB;IAC/C,GAAG,CAAO,KAAiB,EAAE,CAAkB;QAC7C,OAAO,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IACvB,CAAC;CACF,CAAC;AAEF,MAAM,CAAC,MAAM,kBAAkB,GAA0B;IACvD,GAAG,cAAc;IACjB,EAAE,CAAO,EAA4B,EAAE,KAAiB;QACtD,OAAO,OAAO,CAAC,GAAG,CAAC,CAAC,EAAE,EAAE,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,UAAU,EAAE,aAAa,CAAC,EAAE,EAAE,CACnE,UAAU,CAAC,aAAa,CAAC,CAC1B,CAAC;IACJ,CAAC;IACD,IAAI,CAAI,KAAQ;QACd,OAAO,OAAO,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC;IAChC,CAAC;CACF,CAAC;AAEF,MAAM,CAAC,MAAM,YAAY,GAAoB;IAC3C,GAAG,kBAAkB;IACrB,OAAO,CAAO,KAAiB,EAAE,CAA2B;QAC1D,OAAO,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IACvB,CAAC;CACF,CAAC;AAEF,MAAM,CAAC,MAAM,iBAAiB,GAAyB;IACrD,GAAG,YAAY;IACf,WAAW,CAAI,OAAuB;QACpC,OAAO,OAAO,CAAC,OAAO,CAAC,OAAO,CAAC,CAAC;IAClC,CAAC;CACF,CAAC","sourcesContent":["import { type Bind, type Kind2, type TypeLambda } from '@soundscript/soundscript/hkt';\nimport { Failure, normalizeThrown } from '@soundscript/soundscript/failures';\nimport { err, isErr, ok, type Result, resultOf } from '@soundscript/soundscript/result';\nimport { type Applicative, type AsyncMonad, type Functor, type Monad } from '@soundscript/soundscript/typeclasses';\n\nexport interface AbortSignalLike {\n  readonly aborted: boolean;\n  readonly reason?: unknown;\n  addEventListener(\n    type: 'abort',\n    listener: () => void,\n    options?: boolean | { once?: boolean },\n  ): void;\n  removeEventListener(type: 'abort', listener: () => void, options?: boolean): void;\n}\n\nexport type Task<T, E = Error> = (signal?: AbortSignalLike) => Promise<Result<T, E>>;\n\nexport interface TaskF extends TypeLambda {\n  readonly type: Task<this['Args'][1], this['Args'][0]>;\n}\n\nexport interface PromiseF extends TypeLambda {\n  readonly type: Promise<this['Args'][0]>;\n}\n\nexport type TaskKind<E, T> = Kind2<TaskF, E, T>;\nexport type PromiseKind<T> = Promise<T>;\n\nexport class TimeoutFailure extends Failure {\n  readonly ms: number;\n\n  constructor(ms: number, cause?: unknown) {\n    super(`Task timed out after ${ms}ms.`, { cause });\n    this.ms = ms;\n  }\n}\n\nexport function succeed<T>(value: T): Task<T, never> {\n  return () => Promise.resolve(ok(value));\n}\n\nexport function fail<E>(error: E): Task<never, E> {\n  return () => Promise.resolve(err(error));\n}\n\nexport function fromResult<T, E>(result: Result<T, E>): Task<T, E> {\n  return () => Promise.resolve(result);\n}\n\nexport function fromPromise<T>(fn: (signal?: AbortSignalLike) => Promise<T>): Task<T, Error>;\nexport function fromPromise<T, E>(\n  fn: (signal?: AbortSignalLike) => Promise<T>,\n  mapError: (error: Error) => E,\n): Task<T, E>;\nexport function fromPromise<T, E>(\n  fn: (signal?: AbortSignalLike) => Promise<T>,\n  mapError?: (error: Error) => E,\n): Task<T, E | Error> {\n  return async (signal?: AbortSignalLike) => {\n    if (mapError) {\n      return await resultOf(() => fn(signal), mapError);\n    }\n\n    return await resultOf(() => fn(signal));\n  };\n}\n\nexport function map<A, B, E>(\n  task: Task<A, E>,\n  project: (value: A) => B,\n): Task<B, E> {\n  return async (signal?: AbortSignalLike) => {\n    const result = await task(signal);\n    return isErr(result) ? result : ok(project(result.value));\n  };\n}\n\nexport function mapError<A, E1, E2>(\n  task: Task<A, E1>,\n  project: (error: E1) => E2,\n): Task<A, E2 | Error> {\n  return async (signal?: AbortSignalLike) => {\n    const result = await task(signal);\n    if (!isErr(result)) {\n      return result;\n    }\n\n    try {\n      return err(project(result.error));\n    } catch (error) {\n      return err(normalizeThrown(error));\n    }\n  };\n}\n\nexport function flatMap<A, B, E1, E2>(\n  task: Task<A, E1>,\n  project: (value: A) => Task<B, E2>,\n): Task<B, E1 | E2> {\n  return async (signal?: AbortSignalLike) => {\n    const result = await task(signal);\n    if (isErr(result)) {\n      return result;\n    }\n    return await project(result.value)(signal);\n  };\n}\n\nexport function recover<A, B, E>(\n  task: Task<A, E>,\n  project: (error: E) => B | PromiseLike<B>,\n): Task<A | B, Error> {\n  return async (signal?: AbortSignalLike) => {\n    const result = await task(signal);\n    if (!isErr(result)) {\n      return result;\n    }\n\n    return await resultOf(async () => await project(result.error));\n  };\n}\n\nexport function tap<A, E>(\n  task: Task<A, E>,\n  effect: (value: A) => unknown | PromiseLike<unknown>,\n): Task<A, E | Error> {\n  return async (signal?: AbortSignalLike) => {\n    const result = await task(signal);\n    if (isErr(result)) {\n      return result;\n    }\n\n    const observed = await resultOf(async () => await effect(result.value));\n    return isErr(observed) ? observed : result;\n  };\n}\n\nexport function tapError<A, E>(\n  task: Task<A, E>,\n  effect: (error: E) => unknown | PromiseLike<unknown>,\n): Task<A, E | Error> {\n  return async (signal?: AbortSignalLike) => {\n    const result = await task(signal);\n    if (!isErr(result)) {\n      return result;\n    }\n\n    const observed = await resultOf(async () => await effect(result.error));\n    return isErr(observed) ? observed : result;\n  };\n}\n\nexport function parallel<T, E>(tasks: readonly Task<T, E>[]): Task<readonly T[], E> {\n  return async (signal?: AbortSignalLike) => {\n    const results = await Promise.all(tasks.map((task) => task(signal)));\n    const values: T[] = [];\n    for (const result of results) {\n      if (isErr(result)) {\n        return result;\n      }\n      values.push(result.value);\n    }\n    return ok(values);\n  };\n}\n\nexport function race<T, E>(\n  tasks: readonly [Task<T, E>, ...Task<T, E>[]],\n): Task<T, E> {\n  return async (signal?: AbortSignalLike) => {\n    const controller = new AbortController();\n    const cleanup = forwardAbort(signal, controller);\n\n    try {\n      return await Promise.race(tasks.map(async (task) => {\n        const result = await task(controller.signal);\n        controller.abort(result);\n        return result;\n      }));\n    } finally {\n      cleanup();\n    }\n  };\n}\n\nexport function timeout<T, E>(task: Task<T, E>, ms: number): Task<T, E | TimeoutFailure> {\n  return async (signal?: AbortSignalLike) => {\n    const controller = new AbortController();\n    const cleanup = forwardAbort(signal, controller);\n    let timeoutId: number | undefined;\n\n    try {\n      const timeoutPromise = new Promise<Result<T, E | TimeoutFailure>>((resolve) => {\n        timeoutId = setTimeout(() => {\n          const failure = new TimeoutFailure(ms);\n          resolve(err(failure));\n          controller.abort(failure);\n        }, ms);\n      });\n\n      return await Promise.race([\n        task(controller.signal),\n        timeoutPromise,\n      ]);\n    } finally {\n      cleanup();\n      if (timeoutId !== undefined) {\n        clearTimeout(timeoutId);\n      }\n    }\n  };\n}\n\nfunction forwardAbort(\n  signal: AbortSignalLike | undefined,\n  controller: AbortController,\n): () => void {\n  if (!signal) {\n    return () => {};\n  }\n\n  if (signal.aborted) {\n    controller.abort(signal.reason);\n    return () => {};\n  }\n\n  const onAbort = (): void => {\n    controller.abort(signal.reason);\n  };\n\n  signal.addEventListener('abort', onAbort, { once: true });\n  return () => signal.removeEventListener('abort', onAbort);\n}\n\nfunction mapTask<E, A, B>(task: Task<A, E>, project: (value: A) => B): Task<B, E> {\n  return map(task, project);\n}\n\nfunction apTask<E, A, B>(\n  fn: Task<(value: A) => B, E>,\n  value: Task<A, E>,\n): Task<B, E> {\n  return flatMap(fn, (resolvedFn) => map(value, resolvedFn));\n}\n\nfunction flatMapTask<E, A, B>(\n  task: Task<A, E>,\n  project: (value: A) => Task<B, E>,\n): Task<B, E> {\n  return flatMap(task, project);\n}\n\nfunction createTaskMonad<E>(): Monad<Bind<TaskF, [E]>> {\n  return {\n    ap: apTask,\n    flatMap: flatMapTask,\n    map: mapTask,\n    pure: succeed,\n  };\n}\n\nexport function taskFunctor<E>(): Functor<Bind<TaskF, [E]>> {\n  return createTaskMonad<E>();\n}\n\nexport function taskApplicative<E>(): Applicative<Bind<TaskF, [E]>> {\n  return createTaskMonad<E>();\n}\n\nexport function taskMonad<E>(): Monad<Bind<TaskF, [E]>> {\n  return createTaskMonad<E>();\n}\n\nexport function taskAsyncMonad<E>(): AsyncMonad<Bind<TaskF, [E]>> {\n  const monad = createTaskMonad<E>();\n  return {\n    ...monad,\n    fromPromise<A>(promise: PromiseLike<A>): Task<A, E> {\n      return fromPromise(() => Promise.resolve(promise)) as Task<A, E>;\n    },\n  };\n}\n\nexport const promiseFunctor: Functor<PromiseF> = {\n  map<A, B>(value: Promise<A>, f: (value: A) => B): Promise<B> {\n    return value.then(f);\n  },\n};\n\nexport const promiseApplicative: Applicative<PromiseF> = {\n  ...promiseFunctor,\n  ap<A, B>(fn: Promise<(value: A) => B>, value: Promise<A>): Promise<B> {\n    return Promise.all([fn, value]).then(([resolvedFn, resolvedValue]) =>\n      resolvedFn(resolvedValue)\n    );\n  },\n  pure<A>(value: A): Promise<A> {\n    return Promise.resolve(value);\n  },\n};\n\nexport const promiseMonad: Monad<PromiseF> = {\n  ...promiseApplicative,\n  flatMap<A, B>(value: Promise<A>, f: (value: A) => Promise<B>): Promise<B> {\n    return value.then(f);\n  },\n};\n\nexport const promiseAsyncMonad: AsyncMonad<PromiseF> = {\n  ...promiseMonad,\n  fromPromise<A>(promise: PromiseLike<A>): Promise<A> {\n    return Promise.resolve(promise);\n  },\n};\n"]}

package/bin/soundscript.js

@@ -0,0 +1,54 @@
+#!/usr/bin/env node
+import { spawnSync } from 'node:child_process';
+import { createRequire } from 'node:module';
+import { dirname, join } from 'node:path';
+
+const require = createRequire(import.meta.url);
+const TARGETS = {
+  "darwin-arm64": {
+    "executableName": "soundscript",
+    "packageName": "@soundscript/cli-darwin-arm64"
+  },
+  "darwin-x64": {
+    "executableName": "soundscript",
+    "packageName": "@soundscript/cli-darwin-x64"
+  },
+  "linux-arm64": {
+    "executableName": "soundscript",
+    "packageName": "@soundscript/cli-linux-arm64"
+  },
+  "linux-x64": {
+    "executableName": "soundscript",
+    "packageName": "@soundscript/cli-linux-x64"
+  },
+  "win32-x64": {
+    "executableName": "soundscript.exe",
+    "packageName": "@soundscript/cli-win32-x64"
+  }
+};
+const SUPPORTED_TARGETS = ["darwin-arm64","darwin-x64","linux-arm64","linux-x64","win32-x64"];
+
+const key = `${process.platform}-${process.arch}`;
+const target = TARGETS[key];
+if (!target) {
+  console.error(`soundscript does not publish a prebuilt CLI for ${key}.`);
+  console.error(`Supported platforms: ${SUPPORTED_TARGETS.join(", ")}.`);
+  process.exit(1);
+}
+
+let packageJsonPath;
+try {
+  packageJsonPath = require.resolve(`${target.packageName}/package.json`);
+} catch (_error) {
+  console.error(`soundscript could not find the installed binary package ${target.packageName}. Reinstall the package for this platform.`);
+  console.error("Try `npm install soundscript --include=optional` or install the platform package directly.");
+  process.exit(1);
+}
+
+const executablePath = join(dirname(packageJsonPath), 'bin', target.executableName);
+const result = spawnSync(executablePath, process.argv.slice(2), { stdio: 'inherit' });
+if (result.error) {
+  console.error(result.error instanceof Error ? result.error.message : String(result.error));
+  process.exit(1);
+}
+process.exit(result.status === null ? 1 : result.status);

package/codec.d.ts

@@ -0,0 +1,31 @@
+import type { Bind, TypeLambda } from '@soundscript/soundscript/hkt';
+import { type DecodeFailure, type Decoder } from '@soundscript/soundscript/decode';
+import { contramap, type EncodeFailure, type Encoder } from '@soundscript/soundscript/encode';
+import type { Invariant } from '@soundscript/soundscript/typeclasses';
+
+export { booleanEncoder, contramap, numberEncoder, stringEncoder } from '@soundscript/soundscript/encode';
+export type { EncodeFailure, Encoder } from '@soundscript/soundscript/encode';
+
+export interface Codec<T, TEncoded = unknown, DE = DecodeFailure, EE = EncodeFailure>
+  extends Decoder<T, DE>, Encoder<T, TEncoded, EE> {}
+
+export interface CodecF extends TypeLambda {
+  readonly type: Codec<this['Args'][3], this['Args'][2], this['Args'][1], this['Args'][0]>;
+}
+
+export function codec<T, TEncoded, DE, EE>(
+  decoder: Decoder<T, DE>,
+  encoder: Encoder<T, TEncoded, EE>,
+): Codec<T, TEncoded, DE, EE>;
+export function imap<A, B, TEncoded, DE, EE>(
+  base: Codec<A, TEncoded, DE, EE>,
+  decodeMap: (value: A) => B,
+  encodeMap: (value: B) => A,
+): Codec<B, TEncoded, DE, EE>;
+export function codecInvariant<TEncoded, DE = DecodeFailure, EE = EncodeFailure>(): Invariant<
+  Bind<Bind<Bind<CodecF, [EE]>, [DE]>, [TEncoded]>
+>;
+
+export const stringCodec: Codec<string, string>;
+export const numberCodec: Codec<number, number>;
+export const booleanCodec: Codec<boolean, boolean>;

package/codec.js

@@ -0,0 +1,31 @@
+import { boolean as booleanDecoder, number as numberDecoder, string as stringDecoder, } from '@soundscript/soundscript/decode';
+import { booleanEncoder as booleanEncoderValue, contramap as contramapEncoder, numberEncoder as numberEncoderValue, stringEncoder as stringEncoderValue, } from '@soundscript/soundscript/encode';
+import { ok } from '@soundscript/soundscript/result';
+export { booleanEncoderValue as booleanEncoder, contramapEncoder as contramap, numberEncoderValue as numberEncoder, stringEncoderValue as stringEncoder, };
+export function codec(decoder, encoder) {
+    return {
+        decode(value) {
+            return decoder.decode(value);
+        },
+        encode(value) {
+            return encoder.encode(value);
+        },
+    };
+}
+export function imap(base, decodeMap, encodeMap) {
+    return codec({
+        decode(value) {
+            const decoded = base.decode(value);
+            return decoded.tag === 'err' ? decoded : ok(decodeMap(decoded.value));
+        },
+    }, contramapEncoder(base, encodeMap));
+}
+export function codecInvariant() {
+    return {
+        imap,
+    };
+}
+export const stringCodec = codec(stringDecoder, stringEncoderValue);
+export const numberCodec = codec(numberDecoder, numberEncoderValue);
+export const booleanCodec = codec(booleanDecoder, booleanEncoderValue);
+//# sourceMappingURL=codec.js.map

package/codec.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"codec.js","sourceRoot":"","sources":["./soundscript/codec.sts"],"names":[],"mappings":"AACA,OAAO,EACL,OAAO,IAAI,cAAc,EAGzB,MAAM,IAAI,aAAa,EACvB,MAAM,IAAI,aAAa,GACxB,MAAM,iCAAiC,CAAC;AACzC,OAAO,EACL,cAAc,IAAI,mBAAmB,EACrC,SAAS,IAAI,gBAAgB,EAG7B,aAAa,IAAI,kBAAkB,EACnC,aAAa,IAAI,kBAAkB,GACpC,MAAM,iCAAiC,CAAC;AAEzC,OAAO,EAAE,EAAE,EAAE,MAAM,iCAAiC,CAAC;AAGrD,OAAO,EACL,mBAAmB,IAAI,cAAc,EACrC,gBAAgB,IAAI,SAAS,EAC7B,kBAAkB,IAAI,aAAa,EACnC,kBAAkB,IAAI,aAAa,GACpC,CAAC;AASF,MAAM,UAAU,KAAK,CACnB,OAAuB,EACvB,OAAiC;IAEjC,OAAO;QACL,MAAM,CAAC,KAAK;YACV,OAAO,OAAO,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;QAC/B,CAAC;QACD,MAAM,CAAC,KAAK;YACV,OAAO,OAAO,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;QAC/B,CAAC;KACF,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,IAAI,CAClB,IAAgC,EAChC,SAA0B,EAC1B,SAA0B;IAE1B,OAAO,KAAK,CACV;QACE,MAAM,CAAC,KAAK;YACV,MAAM,OAAO,GAAG,IAAI,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;YACnC,OAAO,OAAO,CAAC,GAAG,KAAK,KAAK,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,SAAS,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,CAAC;QACxE,CAAC;KACF,EACD,gBAAgB,CAAC,IAAI,EAAE,SAAS,CAAC,CAClC,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,cAAc;IAG5B,OAAO;QACL,IAAI;KACL,CAAC;AACJ,CAAC;AAED,MAAM,CAAC,MAAM,WAAW,GAA0B,KAAK,CAAC,aAAa,EAAE,kBAAkB,CAAC,CAAC;AAC3F,MAAM,CAAC,MAAM,WAAW,GAA0B,KAAK,CAAC,aAAa,EAAE,kBAAkB,CAAC,CAAC;AAC3F,MAAM,CAAC,MAAM,YAAY,GAA4B,KAAK,CAAC,cAAc,EAAE,mBAAmB,CAAC,CAAC","sourcesContent":["import { type Bind, type TypeLambda } from '@soundscript/soundscript/hkt';\nimport {\n  boolean as booleanDecoder,\n  DecodeFailure,\n  type Decoder,\n  number as numberDecoder,\n  string as stringDecoder,\n} from '@soundscript/soundscript/decode';\nimport {\n  booleanEncoder as booleanEncoderValue,\n  contramap as contramapEncoder,\n  type EncodeFailure,\n  type Encoder,\n  numberEncoder as numberEncoderValue,\n  stringEncoder as stringEncoderValue,\n} from '@soundscript/soundscript/encode';\nimport type { Invariant } from '@soundscript/soundscript/typeclasses';\nimport { ok } from '@soundscript/soundscript/result';\n\nexport type { EncodeFailure, Encoder } from '@soundscript/soundscript/encode';\nexport {\n  booleanEncoderValue as booleanEncoder,\n  contramapEncoder as contramap,\n  numberEncoderValue as numberEncoder,\n  stringEncoderValue as stringEncoder,\n};\n\nexport interface Codec<T, TEncoded = unknown, DE = DecodeFailure, EE = EncodeFailure>\n  extends Decoder<T, DE>, Encoder<T, TEncoded, EE> {}\n\nexport interface CodecF extends TypeLambda {\n  readonly type: Codec<this['Args'][3], this['Args'][2], this['Args'][1], this['Args'][0]>;\n}\n\nexport function codec<T, TEncoded, DE, EE>(\n  decoder: Decoder<T, DE>,\n  encoder: Encoder<T, TEncoded, EE>,\n): Codec<T, TEncoded, DE, EE> {\n  return {\n    decode(value) {\n      return decoder.decode(value);\n    },\n    encode(value) {\n      return encoder.encode(value);\n    },\n  };\n}\n\nexport function imap<A, B, TEncoded, DE, EE>(\n  base: Codec<A, TEncoded, DE, EE>,\n  decodeMap: (value: A) => B,\n  encodeMap: (value: B) => A,\n): Codec<B, TEncoded, DE, EE> {\n  return codec(\n    {\n      decode(value) {\n        const decoded = base.decode(value);\n        return decoded.tag === 'err' ? decoded : ok(decodeMap(decoded.value));\n      },\n    },\n    contramapEncoder(base, encodeMap),\n  );\n}\n\nexport function codecInvariant<TEncoded, DE = DecodeFailure, EE = EncodeFailure>(): Invariant<\n  Bind<Bind<Bind<CodecF, [EE]>, [DE]>, [TEncoded]>\n> {\n  return {\n    imap,\n  };\n}\n\nexport const stringCodec: Codec<string, string> = codec(stringDecoder, stringEncoderValue);\nexport const numberCodec: Codec<number, number> = codec(numberDecoder, numberEncoderValue);\nexport const booleanCodec: Codec<boolean, boolean> = codec(booleanDecoder, booleanEncoderValue);\n"]}

package/compare.d.ts

@@ -0,0 +1,28 @@
+import type { Option, Result } from '@soundscript/soundscript/result';
+
+export type Ordering = -1 | 0 | 1;
+
+export interface Eq<T> {
+  equals(left: T, right: T): boolean;
+}
+
+export interface Order<T> extends Eq<T> {
+  compare(left: T, right: T): Ordering;
+}
+
+type EqValue<TEq> = TEq extends Eq<infer TValue> ? TValue : never;
+
+export const stringEq: Eq<string>;
+export const numberEq: Eq<number>;
+export const booleanEq: Eq<boolean>;
+export const bigintEq: Eq<bigint>;
+export function lazyEq<T>(getEq: () => Eq<T>): Eq<T>;
+export function arrayEq<T>(itemEq: Eq<T>): Eq<readonly T[]>;
+export function tupleEq<const TEqs extends readonly Eq<unknown>[]>(
+  ...elements: TEqs
+): Eq<{ readonly [K in keyof TEqs]: EqValue<TEqs[K]> }>;
+export function optionEq<T>(itemEq: Eq<T>): Eq<Option<T>>;
+export function resultEq<T, E>(okEq: Eq<T>, errEq: Eq<E>): Eq<Result<T, E>>;
+export function fromCompare<T>(compare: (left: T, right: T) => number): Order<T>;
+export function reverse<T>(order: Order<T>): Order<T>;
+export function thenBy<T>(primary: Order<T>, secondary: Order<T>): Order<T>;

package/compare.js

@@ -0,0 +1,121 @@
+export const stringEq = {
+    equals(left, right) {
+        return left === right;
+    },
+};
+export const numberEq = {
+    equals(left, right) {
+        return left === right || (Number.isNaN(left) && Number.isNaN(right));
+    },
+};
+export const booleanEq = {
+    equals(left, right) {
+        return left === right;
+    },
+};
+export const bigintEq = {
+    equals(left, right) {
+        return left === right;
+    },
+};
+export function lazyEq(getEq) {
+    return {
+        equals(left, right) {
+            return getEq().equals(left, right);
+        },
+    };
+}
+export function arrayEq(itemEq) {
+    return {
+        equals(left, right) {
+            if (left.length !== right.length) {
+                return false;
+            }
+            for (let index = 0; index < left.length; index += 1) {
+                if (!itemEq.equals(left[index], right[index])) {
+                    return false;
+                }
+            }
+            return true;
+        },
+    };
+}
+export function tupleEq(...elements) {
+    return {
+        equals(left, right) {
+            const leftValues = left;
+            const rightValues = right;
+            if (leftValues.length !== elements.length || rightValues.length !== elements.length) {
+                return false;
+            }
+            for (let index = 0; index < elements.length; index += 1) {
+                const elementEq = elements[index];
+                if (!elementEq) {
+                    continue;
+                }
+                if (!elementEq.equals(leftValues[index], rightValues[index])) {
+                    return false;
+                }
+            }
+            return true;
+        },
+    };
+}
+export function optionEq(itemEq) {
+    return {
+        equals(left, right) {
+            if (left.tag !== right.tag) {
+                return false;
+            }
+            if (left.tag === 'ok' && right.tag === 'ok') {
+                return itemEq.equals(left.value, right.value);
+            }
+            return true;
+        },
+    };
+}
+export function resultEq(okEq, errEq) {
+    return {
+        equals(left, right) {
+            if (left.tag !== right.tag) {
+                return false;
+            }
+            if (left.tag === 'ok' && right.tag === 'ok') {
+                return okEq.equals(left.value, right.value);
+            }
+            if (left.tag === 'err' && right.tag === 'err') {
+                return errEq.equals(left.error, right.error);
+            }
+            return false;
+        },
+    };
+}
+export function fromCompare(compare) {
+    return {
+        equals(left, right) {
+            return normalizeOrdering(compare(left, right)) === 0;
+        },
+        compare(left, right) {
+            return normalizeOrdering(compare(left, right));
+        },
+    };
+}
+export function reverse(order) {
+    return fromCompare((left, right) => order.compare(right, left));
+}
+export function thenBy(primary, secondary) {
+    return fromCompare((left, right) => {
+        const primaryOrdering = primary.compare(left, right);
+        return primaryOrdering !== 0 ? primaryOrdering : secondary.compare(left, right);
+    });
+}
+function normalizeOrdering(value) {
+    if (value < 0) {
+        return -1;
+    }
+    if (value > 0) {
+        return 1;
+    }
+    return 0;
+}
+//# sourceMappingURL=compare.js.map

package/compare.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"compare.js","sourceRoot":"","sources":["./soundscript/compare.sts"],"names":[],"mappings":"AAcA,MAAM,CAAC,MAAM,QAAQ,GAAe;IAClC,MAAM,CAAC,IAAI,EAAE,KAAK;QAChB,OAAO,IAAI,KAAK,KAAK,CAAC;IACxB,CAAC;CACF,CAAC;AAEF,MAAM,CAAC,MAAM,QAAQ,GAAe;IAClC,MAAM,CAAC,IAAI,EAAE,KAAK;QAChB,OAAO,IAAI,KAAK,KAAK,IAAI,CAAC,MAAM,CAAC,KAAK,CAAC,IAAI,CAAC,IAAI,MAAM,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,CAAC;IACvE,CAAC;CACF,CAAC;AAEF,MAAM,CAAC,MAAM,SAAS,GAAgB;IACpC,MAAM,CAAC,IAAI,EAAE,KAAK;QAChB,OAAO,IAAI,KAAK,KAAK,CAAC;IACxB,CAAC;CACF,CAAC;AAEF,MAAM,CAAC,MAAM,QAAQ,GAAe;IAClC,MAAM,CAAC,IAAI,EAAE,KAAK;QAChB,OAAO,IAAI,KAAK,KAAK,CAAC;IACxB,CAAC;CACF,CAAC;AAEF,MAAM,UAAU,MAAM,CAAI,KAAkB;IAC1C,OAAO;QACL,MAAM,CAAC,IAAI,EAAE,KAAK;YAChB,OAAO,KAAK,EAAE,CAAC,MAAM,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;QACrC,CAAC;KACF,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,OAAO,CAAI,MAAa;IACtC,OAAO;QACL,MAAM,CAAC,IAAI,EAAE,KAAK;YAChB,IAAI,IAAI,CAAC,MAAM,KAAK,KAAK,CAAC,MAAM,EAAE,CAAC;gBACjC,OAAO,KAAK,CAAC;YACf,CAAC;YAED,KAAK,IAAI,KAAK,GAAG,CAAC,EAAE,KAAK,GAAG,IAAI,CAAC,MAAM,EAAE,KAAK,IAAI,CAAC,EAAE,CAAC;gBACpD,IAAI,CAAC,MAAM,CAAC,MAAM,CAAC,IAAI,CAAC,KAAK,CAAE,EAAE,KAAK,CAAC,KAAK,CAAE,CAAC,EAAE,CAAC;oBAChD,OAAO,KAAK,CAAC;gBACf,CAAC;YACH,CAAC;YAED,OAAO,IAAI,CAAC;QACd,CAAC;KACF,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,OAAO,CACrB,GAAG,QAAc;IAEjB,OAAO;QACL,MAAM,CAAC,IAAI,EAAE,KAAK;YAChB,MAAM,UAAU,GAAG,IAA0B,CAAC;YAC9C,MAAM,WAAW,GAAG,KAA2B,CAAC;YAChD,IAAI,UAAU,CAAC,MAAM,KAAK,QAAQ,CAAC,MAAM,IAAI,WAAW,CAAC,MAAM,KAAK,QAAQ,CAAC,MAAM,EAAE,CAAC;gBACpF,OAAO,KAAK,CAAC;YACf,CAAC;YAED,KAAK,IAAI,KAAK,GAAG,CAAC,EAAE,KAAK,GAAG,QAAQ,CAAC,MAAM,EAAE,KAAK,IAAI,CAAC,EAAE,CAAC;gBACxD,MAAM,SAAS,GAAG,QAAQ,CAAC,KAAK,CAAC,CAAC;gBAClC,IAAI,CAAC,SAAS,EAAE,CAAC;oBACf,SAAS;gBACX,CAAC;gBACD,IAAI,CAAC,SAAS,CAAC,MAAM,CAAC,UAAU,CAAC,KAAK,CAAC,EAAE,WAAW,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC;oBAC7D,OAAO,KAAK,CAAC;gBACf,CAAC;YACH,CAAC;YAED,OAAO,IAAI,CAAC;QACd,CAAC;KACF,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,QAAQ,CAAI,MAAa;IACvC,OAAO;QACL,MAAM,CAAC,IAAI,EAAE,KAAK;YAChB,IAAI,IAAI,CAAC,GAAG,KAAK,KAAK,CAAC,GAAG,EAAE,CAAC;gBAC3B,OAAO,KAAK,CAAC;YACf,CAAC;YAED,IAAI,IAAI,CAAC,GAAG,KAAK,IAAI,IAAI,KAAK,CAAC,GAAG,KAAK,IAAI,EAAE,CAAC;gBAC5C,OAAO,MAAM,CAAC,MAAM,CAAC,IAAI,CAAC,KAAK,EAAE,KAAK,CAAC,KAAK,CAAC,CAAC;YAChD,CAAC;YAED,OAAO,IAAI,CAAC;QACd,CAAC;KACF,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,QAAQ,CAAO,IAAW,EAAE,KAAY;IACtD,OAAO;QACL,MAAM,CAAC,IAAI,EAAE,KAAK;YAChB,IAAI,IAAI,CAAC,GAAG,KAAK,KAAK,CAAC,GAAG,EAAE,CAAC;gBAC3B,OAAO,KAAK,CAAC;YACf,CAAC;YAED,IAAI,IAAI,CAAC,GAAG,KAAK,IAAI,IAAI,KAAK,CAAC,GAAG,KAAK,IAAI,EAAE,CAAC;gBAC5C,OAAO,IAAI,CAAC,MAAM,CAAC,IAAI,CAAC,KAAK,EAAE,KAAK,CAAC,KAAK,CAAC,CAAC;YAC9C,CAAC;YAED,IAAI,IAAI,CAAC,GAAG,KAAK,KAAK,IAAI,KAAK,CAAC,GAAG,KAAK,KAAK,EAAE,CAAC;gBAC9C,OAAO,KAAK,CAAC,MAAM,CAAC,IAAI,CAAC,KAAK,EAAE,KAAK,CAAC,KAAK,CAAC,CAAC;YAC/C,CAAC;YAED,OAAO,KAAK,CAAC;QACf,CAAC;KACF,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,WAAW,CAAI,OAAsC;IACnE,OAAO;QACL,MAAM,CAAC,IAAI,EAAE,KAAK;YAChB,OAAO,iBAAiB,CAAC,OAAO,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC,KAAK,CAAC,CAAC;QACvD,CAAC;QACD,OAAO,CAAC,IAAI,EAAE,KAAK;YACjB,OAAO,iBAAiB,CAAC,OAAO,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC,CAAC;QACjD,CAAC;KACF,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,OAAO,CAAI,KAAe;IACxC,OAAO,WAAW,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE,EAAE,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,EAAE,IAAI,CAAC,CAAC,CAAC;AAClE,CAAC;AAED,MAAM,UAAU,MAAM,CAAI,OAAiB,EAAE,SAAmB;IAC9D,OAAO,WAAW,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE,EAAE;QACjC,MAAM,eAAe,GAAG,OAAO,CAAC,OAAO,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;QACrD,OAAO,eAAe,KAAK,CAAC,CAAC,CAAC,CAAC,eAAe,CAAC,CAAC,CAAC,SAAS,CAAC,OAAO,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;IAClF,CAAC,CAAC,CAAC;AACL,CAAC;AAED,SAAS,iBAAiB,CAAC,KAAa;IACtC,IAAI,KAAK,GAAG,CAAC,EAAE,CAAC;QACd,OAAO,CAAC,CAAC,CAAC;IACZ,CAAC;IAED,IAAI,KAAK,GAAG,CAAC,EAAE,CAAC;QACd,OAAO,CAAC,CAAC;IACX,CAAC;IAED,OAAO,CAAC,CAAC;AACX,CAAC","sourcesContent":["import type { Option, Result } from '@soundscript/soundscript/result';\n\nexport type Ordering = -1 | 0 | 1;\n\nexport interface Eq<T> {\n  equals(left: T, right: T): boolean;\n}\n\nexport interface Order<T> extends Eq<T> {\n  compare(left: T, right: T): Ordering;\n}\n\ntype EqValue<TEq> = TEq extends Eq<infer TValue> ? TValue : never;\n\nexport const stringEq: Eq<string> = {\n  equals(left, right) {\n    return left === right;\n  },\n};\n\nexport const numberEq: Eq<number> = {\n  equals(left, right) {\n    return left === right || (Number.isNaN(left) && Number.isNaN(right));\n  },\n};\n\nexport const booleanEq: Eq<boolean> = {\n  equals(left, right) {\n    return left === right;\n  },\n};\n\nexport const bigintEq: Eq<bigint> = {\n  equals(left, right) {\n    return left === right;\n  },\n};\n\nexport function lazyEq<T>(getEq: () => Eq<T>): Eq<T> {\n  return {\n    equals(left, right) {\n      return getEq().equals(left, right);\n    },\n  };\n}\n\nexport function arrayEq<T>(itemEq: Eq<T>): Eq<readonly T[]> {\n  return {\n    equals(left, right) {\n      if (left.length !== right.length) {\n        return false;\n      }\n\n      for (let index = 0; index < left.length; index += 1) {\n        if (!itemEq.equals(left[index]!, right[index]!)) {\n          return false;\n        }\n      }\n\n      return true;\n    },\n  };\n}\n\nexport function tupleEq<const TEqs extends readonly Eq<unknown>[]>(\n  ...elements: TEqs\n): Eq<{ readonly [K in keyof TEqs]: EqValue<TEqs[K]> }> {\n  return {\n    equals(left, right) {\n      const leftValues = left as readonly unknown[];\n      const rightValues = right as readonly unknown[];\n      if (leftValues.length !== elements.length || rightValues.length !== elements.length) {\n        return false;\n      }\n\n      for (let index = 0; index < elements.length; index += 1) {\n        const elementEq = elements[index];\n        if (!elementEq) {\n          continue;\n        }\n        if (!elementEq.equals(leftValues[index], rightValues[index])) {\n          return false;\n        }\n      }\n\n      return true;\n    },\n  };\n}\n\nexport function optionEq<T>(itemEq: Eq<T>): Eq<Option<T>> {\n  return {\n    equals(left, right) {\n      if (left.tag !== right.tag) {\n        return false;\n      }\n\n      if (left.tag === 'ok' && right.tag === 'ok') {\n        return itemEq.equals(left.value, right.value);\n      }\n\n      return true;\n    },\n  };\n}\n\nexport function resultEq<T, E>(okEq: Eq<T>, errEq: Eq<E>): Eq<Result<T, E>> {\n  return {\n    equals(left, right) {\n      if (left.tag !== right.tag) {\n        return false;\n      }\n\n      if (left.tag === 'ok' && right.tag === 'ok') {\n        return okEq.equals(left.value, right.value);\n      }\n\n      if (left.tag === 'err' && right.tag === 'err') {\n        return errEq.equals(left.error, right.error);\n      }\n\n      return false;\n    },\n  };\n}\n\nexport function fromCompare<T>(compare: (left: T, right: T) => number): Order<T> {\n  return {\n    equals(left, right) {\n      return normalizeOrdering(compare(left, right)) === 0;\n    },\n    compare(left, right) {\n      return normalizeOrdering(compare(left, right));\n    },\n  };\n}\n\nexport function reverse<T>(order: Order<T>): Order<T> {\n  return fromCompare((left, right) => order.compare(right, left));\n}\n\nexport function thenBy<T>(primary: Order<T>, secondary: Order<T>): Order<T> {\n  return fromCompare((left, right) => {\n    const primaryOrdering = primary.compare(left, right);\n    return primaryOrdering !== 0 ? primaryOrdering : secondary.compare(left, right);\n  });\n}\n\nfunction normalizeOrdering(value: number): Ordering {\n  if (value < 0) {\n    return -1;\n  }\n\n  if (value > 0) {\n    return 1;\n  }\n\n  return 0;\n}\n"]}