@inhuman.tools/scheme-program 0.0.0-stage → 0.1.0

package/dist/file-path.js

@@ -0,0 +1,25 @@
+/**
+ * Path stamp on a `read_file` string. Identity-keyed: substring/append mint a
+ * new `AString` and drop it. `withProvenance` clones the same box — copy the
+ * stamp onto the clone. Not provenance.
+ */
+import { AString } from "@here.build/arrival/reflect-internals";
+const paths = new WeakMap();
+const originalWithProvenance = AString.prototype.withProvenance;
+Object.defineProperty(AString.prototype, "withProvenance", {
+    value(p) {
+        const next = originalWithProvenance.call(this, p);
+        const path = paths.get(this);
+        if (path !== undefined && next instanceof AString)
+            paths.set(next, path);
+        return next;
+    },
+});
+export function stampFilePath(value, path) {
+    paths.set(value, path);
+    return value;
+}
+export function filePathOf(value) {
+    return value instanceof AString ? paths.get(value) : undefined;
+}
+//# sourceMappingURL=file-path.js.map

package/dist/file-path.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"file-path.js","sourceRoot":"","sources":["../src/file-path.ts"],"names":[],"mappings":"AAAA;;;;GAIG;AACH,OAAO,EAAE,OAAO,EAAE,MAAM,uCAAuC,CAAC;AAEhE,MAAM,KAAK,GAAG,IAAI,OAAO,EAAmB,CAAC;AAE7C,MAAM,sBAAsB,GAAG,OAAO,CAAC,SAAS,CAAC,cAAc,CAAC;AAChE,MAAM,CAAC,cAAc,CAAC,OAAO,CAAC,SAAS,EAAE,gBAAgB,EAAE;IACzD,KAAK,CAAgB,CAAsB;QACzC,MAAM,IAAI,GAAG,sBAAsB,CAAC,IAAI,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC;QAClD,MAAM,IAAI,GAAG,KAAK,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC;QAC7B,IAAI,IAAI,KAAK,SAAS,IAAI,IAAI,YAAY,OAAO;YAAE,KAAK,CAAC,GAAG,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC;QACzE,OAAO,IAAI,CAAC;IACd,CAAC;CACF,CAAC,CAAC;AAEH,MAAM,UAAU,aAAa,CAAC,KAAc,EAAE,IAAY;IACxD,KAAK,CAAC,GAAG,CAAC,KAAK,EAAE,IAAI,CAAC,CAAC;IACvB,OAAO,KAAK,CAAC;AACf,CAAC;AAED,MAAM,UAAU,UAAU,CAAC,KAAc;IACvC,OAAO,KAAK,YAAY,OAAO,CAAC,CAAC,CAAC,KAAK,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC;AACjE,CAAC"}

package/dist/host.d.ts

@@ -0,0 +1,55 @@
+import type { EnvCapability } from "@here.build/arrival";
+import type { EvalTrace } from "@here.build/arrival/provenance";
+import type { AgentCallNotification, ApprovableJob, ProgrammaticJob } from "@inhuman.tools/harness-model";
+import type { BoundTool } from "@inhuman.tools/substrate/bound-tool";
+import type { DoorSession } from "@inhuman.tools/substrate/doors";
+export type PreparedProgram = {
+    readonly capabilities: readonly EnvCapability[];
+    readonly config: object;
+};
+/**
+ * What the interpreter needs from an engine. Catalog, secrets, and tool bodies
+ * stay in the capabilities `prepare` returns. This package does not look them up.
+ */
+export type ProgramHost = {
+    /** Stable across wrappers. The runtime map keys on this, not on the wrapper. */
+    readonly identity: object;
+    readonly signal?: AbortSignal;
+    readonly doors: DoorSession;
+    readonly root: string;
+    readonly abort?: (leaf: ApprovableJob, reason?: unknown) => void;
+    readonly notify?: (note: AgentCallNotification) => void;
+    readonly evalProgram?: boolean;
+    readonly moduleRoot?: string;
+    /**
+     * Wraps one run of the program (the whole one-shot, or one period tick) so the host owns its trace.
+     * The host mints the trace, arms what it reads, and reads it as the run goes; when `run` settles, the run is over.
+     */
+    readonly observe?: <T>(run: (trace: EvalTrace) => Promise<T>) => Promise<T>;
+    /** Unbound-variable door. Called per evaluation; `prepare` snapshots tools onto config separately. */
+    readonly tools: () => ReadonlyMap<string, BoundTool>;
+    /** Engine vocabulary. The interpreter appends display. The watchdog wraps this to append meta-reactivity. */
+    readonly prepare: (opts: {
+        readonly moduleRoot: string | undefined;
+        readonly job: ProgrammaticJob;
+    }) => PreparedProgram;
+    /** Read recorded children. Do not mint, do not append notes, do not seal the job. */
+    readonly replayOnly?: boolean;
+};
+export type ProgramRuntime = {
+    arm(opts: {
+        readonly moduleRoot: string | undefined;
+        /** Accepted so existing arm calls typecheck. The watchdog roots meta-reactivity by wrapping prepare. */
+        readonly watching?: boolean;
+    }): void;
+    beginTick(tick: {
+        readonly signal: AbortSignal;
+        readonly origin: number;
+        readonly maxInternalCalls: number | undefined;
+    }): void;
+    clearFailure(): void;
+    failureCode(): string | undefined;
+    readonly capabilities: readonly EnvCapability[];
+    readonly config: object;
+};
+//# sourceMappingURL=host.d.ts.map

package/dist/host.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"host.d.ts","sourceRoot":"","sources":["../src/host.ts"],"names":[],"mappings":"AAAA,OAAO,KAAK,EAAE,aAAa,EAAE,MAAM,qBAAqB,CAAC;AACzD,OAAO,KAAK,EAAE,SAAS,EAAE,MAAM,gCAAgC,CAAC;AAChE,OAAO,KAAK,EAAE,qBAAqB,EAAE,aAAa,EAAE,eAAe,EAAE,MAAM,8BAA8B,CAAC;AAC1G,OAAO,KAAK,EAAE,SAAS,EAAE,MAAM,qCAAqC,CAAC;AACrE,OAAO,KAAK,EAAE,WAAW,EAAE,MAAM,gCAAgC,CAAC;AAElE,MAAM,MAAM,eAAe,GAAG;IAC5B,QAAQ,CAAC,YAAY,EAAE,SAAS,aAAa,EAAE,CAAC;IAChD,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAC;CACzB,CAAC;AAEF;;;GAGG;AACH,MAAM,MAAM,WAAW,GAAG;IACxB,gFAAgF;IAChF,QAAQ,CAAC,QAAQ,EAAE,MAAM,CAAC;IAC1B,QAAQ,CAAC,MAAM,CAAC,EAAE,WAAW,CAAC;IAC9B,QAAQ,CAAC,KAAK,EAAE,WAAW,CAAC;IAC5B,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAC;IACtB,QAAQ,CAAC,KAAK,CAAC,EAAE,CAAC,IAAI,EAAE,aAAa,EAAE,MAAM,CAAC,EAAE,OAAO,KAAK,IAAI,CAAC;IACjE,QAAQ,CAAC,MAAM,CAAC,EAAE,CAAC,IAAI,EAAE,qBAAqB,KAAK,IAAI,CAAC;IACxD,QAAQ,CAAC,WAAW,CAAC,EAAE,OAAO,CAAC;IAC/B,QAAQ,CAAC,UAAU,CAAC,EAAE,MAAM,CAAC;IAC7B;;;OAGG;IACH,QAAQ,CAAC,OAAO,CAAC,EAAE,CAAC,CAAC,EAAE,GAAG,EAAE,CAAC,KAAK,EAAE,SAAS,KAAK,OAAO,CAAC,CAAC,CAAC,KAAK,OAAO,CAAC,CAAC,CAAC,CAAC;IAC5E,sGAAsG;IACtG,QAAQ,CAAC,KAAK,EAAE,MAAM,WAAW,CAAC,MAAM,EAAE,SAAS,CAAC,CAAC;IACrD,6GAA6G;IAC7G,QAAQ,CAAC,OAAO,EAAE,CAAC,IAAI,EAAE;QACvB,QAAQ,CAAC,UAAU,EAAE,MAAM,GAAG,SAAS,CAAC;QACxC,QAAQ,CAAC,GAAG,EAAE,eAAe,CAAC;KAC/B,KAAK,eAAe,CAAC;IACtB,qFAAqF;IACrF,QAAQ,CAAC,UAAU,CAAC,EAAE,OAAO,CAAC;CAC/B,CAAC;AAEF,MAAM,MAAM,cAAc,GAAG;IAC3B,GAAG,CAAC,IAAI,EAAE;QACR,QAAQ,CAAC,UAAU,EAAE,MAAM,GAAG,SAAS,CAAC;QACxC,wGAAwG;QACxG,QAAQ,CAAC,QAAQ,CAAC,EAAE,OAAO,CAAC;KAC7B,GAAG,IAAI,CAAC;IACT,SAAS,CAAC,IAAI,EAAE;QACd,QAAQ,CAAC,MAAM,EAAE,WAAW,CAAC;QAC7B,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAC;QACxB,QAAQ,CAAC,gBAAgB,EAAE,MAAM,GAAG,SAAS,CAAC;KAC/C,GAAG,IAAI,CAAC;IACT,YAAY,IAAI,IAAI,CAAC;IACrB,WAAW,IAAI,MAAM,GAAG,SAAS,CAAC;IAClC,QAAQ,CAAC,YAAY,EAAE,SAAS,aAAa,EAAE,CAAC;IAChD,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAC;CACzB,CAAC"}

package/dist/host.js

@@ -0,0 +1,2 @@
+export {};
+//# sourceMappingURL=host.js.map

package/dist/host.js.map

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

package/dist/index.d.ts

@@ -0,0 +1,9 @@
+export { appendNotify, failureCodeOf, SchemeReplToolFailure } from "./failure.js";
+export { filePathOf, stampFilePath } from "./file-path.js";
+export { type ProgramHost, type ProgramRuntime } from "./host.js";
+export { SCHEME_REPL_DISPLAY_NOTE } from "./notes.js";
+export { replayEvaluation } from "./replay-eval.js";
+export { runProgram } from "./run.js";
+export { detachedRuntime, programRuntimeOf } from "./runtime.js";
+export { recordedModuleLoader } from "./source.js";
+//# sourceMappingURL=index.d.ts.map

package/dist/index.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../src/index.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,YAAY,EAAE,aAAa,EAAE,qBAAqB,EAAE,MAAM,cAAc,CAAC;AAClF,OAAO,EAAE,UAAU,EAAE,aAAa,EAAE,MAAM,gBAAgB,CAAC;AAC3D,OAAO,EAAE,KAAK,WAAW,EAAE,KAAK,cAAc,EAAE,MAAM,WAAW,CAAC;AAClE,OAAO,EAAE,wBAAwB,EAAE,MAAM,YAAY,CAAC;AACtD,OAAO,EAAE,gBAAgB,EAAE,MAAM,kBAAkB,CAAC;AACpD,OAAO,EAAE,UAAU,EAAE,MAAM,UAAU,CAAC;AACtC,OAAO,EAAE,eAAe,EAAE,gBAAgB,EAAE,MAAM,cAAc,CAAC;AACjE,OAAO,EAAE,oBAAoB,EAAE,MAAM,aAAa,CAAC"}

package/dist/index.js

@@ -0,0 +1,8 @@
+export { appendNotify, failureCodeOf, SchemeReplToolFailure } from "./failure.js";
+export { filePathOf, stampFilePath } from "./file-path.js";
+export { SCHEME_REPL_DISPLAY_NOTE } from "./notes.js";
+export { replayEvaluation } from "./replay-eval.js";
+export { runProgram } from "./run.js";
+export { detachedRuntime, programRuntimeOf } from "./runtime.js";
+export { recordedModuleLoader } from "./source.js";
+//# sourceMappingURL=index.js.map

package/dist/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","sourceRoot":"","sources":["../src/index.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,YAAY,EAAE,aAAa,EAAE,qBAAqB,EAAE,MAAM,cAAc,CAAC;AAClF,OAAO,EAAE,UAAU,EAAE,aAAa,EAAE,MAAM,gBAAgB,CAAC;AAE3D,OAAO,EAAE,wBAAwB,EAAE,MAAM,YAAY,CAAC;AACtD,OAAO,EAAE,gBAAgB,EAAE,MAAM,kBAAkB,CAAC;AACpD,OAAO,EAAE,UAAU,EAAE,MAAM,UAAU,CAAC;AACtC,OAAO,EAAE,eAAe,EAAE,gBAAgB,EAAE,MAAM,cAAc,CAAC;AACjE,OAAO,EAAE,oBAAoB,EAAE,MAAM,aAAa,CAAC"}

package/dist/notes.d.ts

@@ -0,0 +1,12 @@
+/** Own tool text part per spliced wrapper spelling. Not a statement value. */
+export declare const SCHEME_REPL_UNWRAP_NOTES: {
+    readonly begin: ";; unwrapped (begin …): each statement is returned as its own result. Write consecutive top-level forms.";
+    readonly list: ";; unwrapped (list …): each statement is returned as its own result. Write consecutive top-level forms.";
+    readonly vector: ";; unwrapped []: each statement is returned as its own result. Write consecutive top-level forms.";
+};
+/** Attached to a top-level statement that was a `(display X)` — the rewrite unwrapped it to X and
+ *  X's value IS the answer block, so this teaches that the display spelling was unnecessary:
+ *  scheme_repl already returns each top-level statement as its own tool response. scheme_watch is
+ *  repl-only and does not surface per-statement responses, so it does not attach this note. */
+export declare const SCHEME_REPL_DISPLAY_NOTE = ";; you do not need to use (display ...) \u2014 each top-level statement of scheme_repl is written as a tool response";
+//# sourceMappingURL=notes.d.ts.map

package/dist/notes.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"notes.d.ts","sourceRoot":"","sources":["../src/notes.ts"],"names":[],"mappings":"AAEA,8EAA8E;AAC9E,eAAO,MAAM,wBAAwB;;;;CAIc,CAAC;AAEpD;;;+FAG+F;AAC/F,eAAO,MAAM,wBAAwB,yHAC8E,CAAC"}

package/dist/notes.js

@@ -0,0 +1,12 @@
+/** Own tool text part per spliced wrapper spelling. Not a statement value. */
+export const SCHEME_REPL_UNWRAP_NOTES = {
+    begin: ";; unwrapped (begin …): each statement is returned as its own result. Write consecutive top-level forms.",
+    list: ";; unwrapped (list …): each statement is returned as its own result. Write consecutive top-level forms.",
+    vector: ";; unwrapped []: each statement is returned as its own result. Write consecutive top-level forms.",
+};
+/** Attached to a top-level statement that was a `(display X)` — the rewrite unwrapped it to X and
+ *  X's value IS the answer block, so this teaches that the display spelling was unnecessary:
+ *  scheme_repl already returns each top-level statement as its own tool response. scheme_watch is
+ *  repl-only and does not surface per-statement responses, so it does not attach this note. */
+export const SCHEME_REPL_DISPLAY_NOTE = ";; you do not need to use (display ...) — each top-level statement of scheme_repl is written as a tool response";
+//# sourceMappingURL=notes.js.map

package/dist/notes.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"notes.js","sourceRoot":"","sources":["../src/notes.ts"],"names":[],"mappings":"AAEA,8EAA8E;AAC9E,MAAM,CAAC,MAAM,wBAAwB,GAAG;IACtC,KAAK,EAAE,0GAA0G;IACjH,IAAI,EAAE,yGAAyG;IAC/G,MAAM,EAAE,mGAAmG;CAC1D,CAAC;AAEpD;;;+FAG+F;AAC/F,MAAM,CAAC,MAAM,wBAAwB,GACnC,iHAAiH,CAAC"}

package/dist/open.d.ts

@@ -0,0 +1,23 @@
+import { type SchemeValue } from "@here.build/arrival";
+import { ProgrammaticJob } from "@inhuman.tools/harness-model";
+import { type TopLevelSplice } from "@inhuman.tools/substrate/unwrap-begin";
+import type { ProgramHost } from "./host.js";
+import { type ProgramSource } from "./source.js";
+export type OpenedProgram = {
+    readonly forms: readonly SchemeValue[];
+    readonly kinds: readonly TopLevelSplice[];
+    readonly timeoutMs: number | undefined;
+    readonly maxInternalCalls: number | undefined;
+    readonly periodMs: number | undefined;
+    readonly source: ProgramSource;
+    /** Jail root for a one-shot, including `sourcePath`'s directory. */
+    readonly moduleRoot: string | undefined;
+};
+/** Schema already accepted. Seals empty expr, a source without a path, and a program that does not parse. */
+export declare function openProgram(chunk: ProgrammaticJob, host: ProgramHost, data: {
+    readonly expr: string;
+    readonly timeoutMs?: number;
+    readonly maxInternalCalls?: number;
+    readonly period?: string;
+}, seal?: boolean): Promise<OpenedProgram | undefined>;
+//# sourceMappingURL=open.d.ts.map

package/dist/open.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"open.d.ts","sourceRoot":"","sources":["../src/open.ts"],"names":[],"mappings":"AAAA,OAAO,EAAS,KAAK,WAAW,EAAE,MAAM,qBAAqB,CAAC;AAC9D,OAAO,EAAE,eAAe,EAAyD,MAAM,8BAA8B,CAAC;AAEtH,OAAO,EAAE,KAAK,cAAc,EAAkB,MAAM,uCAAuC,CAAC;AAG5F,OAAO,KAAK,EAAE,WAAW,EAAE,MAAM,WAAW,CAAC;AAC7C,OAAO,EAAiC,KAAK,aAAa,EAAE,MAAM,aAAa,CAAC;AAEhF,MAAM,MAAM,aAAa,GAAG;IAC1B,QAAQ,CAAC,KAAK,EAAE,SAAS,WAAW,EAAE,CAAC;IACvC,QAAQ,CAAC,KAAK,EAAE,SAAS,cAAc,EAAE,CAAC;IAC1C,QAAQ,CAAC,SAAS,EAAE,MAAM,GAAG,SAAS,CAAC;IACvC,QAAQ,CAAC,gBAAgB,EAAE,MAAM,GAAG,SAAS,CAAC;IAC9C,QAAQ,CAAC,QAAQ,EAAE,MAAM,GAAG,SAAS,CAAC;IACtC,QAAQ,CAAC,MAAM,EAAE,aAAa,CAAC;IAC/B,oEAAoE;IACpE,QAAQ,CAAC,UAAU,EAAE,MAAM,GAAG,SAAS,CAAC;CACzC,CAAC;AAQF,6GAA6G;AAC7G,wBAAsB,WAAW,CAC/B,KAAK,EAAE,eAAe,EACtB,IAAI,EAAE,WAAW,EACjB,IAAI,EAAE;IACJ,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAC;IACtB,QAAQ,CAAC,SAAS,CAAC,EAAE,MAAM,CAAC;IAC5B,QAAQ,CAAC,gBAAgB,CAAC,EAAE,MAAM,CAAC;IACnC,QAAQ,CAAC,MAAM,CAAC,EAAE,MAAM,CAAC;CAC1B,EACD,IAAI,UAAO,GACV,OAAO,CAAC,aAAa,GAAG,SAAS,CAAC,CAmCpC"}

package/dist/open.js

@@ -0,0 +1,53 @@
+import { parse } from "@here.build/arrival";
+import { periodMsOf, SCHEME_REPL_NAMING, SCHEME_REPL_TOOL_NAME } from "@inhuman.tools/harness-model";
+import { emptyExprDoor, isUnterminatedDictLiteral, unterminatedDictDoor } from "@inhuman.tools/substrate/doors";
+import { unwrapTopLevel } from "@inhuman.tools/substrate/unwrap-begin";
+import { errorText, fail, sealChunk } from "./evaluate.js";
+import { moduleRootOf, programSourceOf } from "./source.js";
+function cappedCalls(value) {
+    if (value == null)
+        return undefined;
+    if (!Number.isFinite(value))
+        return 1;
+    return Math.max(1, Math.floor(value));
+}
+/** Schema already accepted. Seals empty expr, a source without a path, and a program that does not parse. */
+export async function openProgram(chunk, host, data, seal = true) {
+    const refuse = (result) => {
+        if (seal)
+            sealChunk(chunk, result);
+        return undefined;
+    };
+    if (data.expr.trim() === "") {
+        return refuse(fail(host.doors.render(emptyExprDoor(SCHEME_REPL_NAMING), SCHEME_REPL_TOOL_NAME)));
+    }
+    const source = programSourceOf(chunk.args, host.evalProgram === true);
+    if (source.source != null && source.sourcePath == null) {
+        return refuse(fail("Error: source requires sourcePath"));
+    }
+    let forms;
+    let kinds = [];
+    try {
+        const unwrapped = unwrapTopLevel(await parse(data.expr));
+        forms = unwrapped.forms;
+        kinds = unwrapped.kinds;
+    }
+    catch (error) {
+        const text = errorText(error);
+        if (isUnterminatedDictLiteral(text)) {
+            return refuse(fail(host.doors.render(unterminatedDictDoor(), SCHEME_REPL_TOOL_NAME)));
+        }
+        return refuse(fail(text));
+    }
+    const periodMs = typeof data.period === "string" ? periodMsOf(data.period) : undefined;
+    return {
+        forms,
+        kinds,
+        timeoutMs: data.timeoutMs,
+        maxInternalCalls: cappedCalls(data.maxInternalCalls),
+        periodMs,
+        source,
+        moduleRoot: moduleRootOf(source.sourcePath, host.moduleRoot, host.root),
+    };
+}
+//# sourceMappingURL=open.js.map

package/dist/open.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"open.js","sourceRoot":"","sources":["../src/open.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,KAAK,EAAoB,MAAM,qBAAqB,CAAC;AAC9D,OAAO,EAAmB,UAAU,EAAE,kBAAkB,EAAE,qBAAqB,EAAE,MAAM,8BAA8B,CAAC;AACtH,OAAO,EAAE,aAAa,EAAE,yBAAyB,EAAE,oBAAoB,EAAE,MAAM,gCAAgC,CAAC;AAChH,OAAO,EAAuB,cAAc,EAAE,MAAM,uCAAuC,CAAC;AAE5F,OAAO,EAAE,SAAS,EAAE,IAAI,EAAE,SAAS,EAAE,MAAM,eAAe,CAAC;AAE3D,OAAO,EAAE,YAAY,EAAE,eAAe,EAAsB,MAAM,aAAa,CAAC;AAahF,SAAS,WAAW,CAAC,KAAyB;IAC5C,IAAI,KAAK,IAAI,IAAI;QAAE,OAAO,SAAS,CAAC;IACpC,IAAI,CAAC,MAAM,CAAC,QAAQ,CAAC,KAAK,CAAC;QAAE,OAAO,CAAC,CAAC;IACtC,OAAO,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,CAAC;AACxC,CAAC;AAED,6GAA6G;AAC7G,MAAM,CAAC,KAAK,UAAU,WAAW,CAC/B,KAAsB,EACtB,IAAiB,EACjB,IAKC,EACD,IAAI,GAAG,IAAI;IAEX,MAAM,MAAM,GAAG,CAAC,MAAuC,EAAa,EAAE;QACpE,IAAI,IAAI;YAAE,SAAS,CAAC,KAAK,EAAE,MAAM,CAAC,CAAC;QACnC,OAAO,SAAS,CAAC;IACnB,CAAC,CAAC;IACF,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,EAAE,KAAK,EAAE,EAAE,CAAC;QAC5B,OAAO,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,MAAM,CAAC,aAAa,CAAC,kBAAkB,CAAC,EAAE,qBAAqB,CAAC,CAAC,CAAC,CAAC;IACnG,CAAC;IACD,MAAM,MAAM,GAAG,eAAe,CAAC,KAAK,CAAC,IAAI,EAAE,IAAI,CAAC,WAAW,KAAK,IAAI,CAAC,CAAC;IACtE,IAAI,MAAM,CAAC,MAAM,IAAI,IAAI,IAAI,MAAM,CAAC,UAAU,IAAI,IAAI,EAAE,CAAC;QACvD,OAAO,MAAM,CAAC,IAAI,CAAC,mCAAmC,CAAC,CAAC,CAAC;IAC3D,CAAC;IACD,IAAI,KAA6B,CAAC;IAClC,IAAI,KAAK,GAA8B,EAAE,CAAC;IAC1C,IAAI,CAAC;QACH,MAAM,SAAS,GAAG,cAAc,CAAC,MAAM,KAAK,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC;QACzD,KAAK,GAAG,SAAS,CAAC,KAAK,CAAC;QACxB,KAAK,GAAG,SAAS,CAAC,KAAK,CAAC;IAC1B,CAAC;IAAC,OAAO,KAAK,EAAE,CAAC;QACf,MAAM,IAAI,GAAG,SAAS,CAAC,KAAK,CAAC,CAAC;QAC9B,IAAI,yBAAyB,CAAC,IAAI,CAAC,EAAE,CAAC;YACpC,OAAO,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,MAAM,CAAC,oBAAoB,EAAE,EAAE,qBAAqB,CAAC,CAAC,CAAC,CAAC;QACxF,CAAC;QACD,OAAO,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC;IAC5B,CAAC;IACD,MAAM,QAAQ,GAAG,OAAO,IAAI,CAAC,MAAM,KAAK,QAAQ,CAAC,CAAC,CAAC,UAAU,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC;IACvF,OAAO;QACL,KAAK;QACL,KAAK;QACL,SAAS,EAAE,IAAI,CAAC,SAAS;QACzB,gBAAgB,EAAE,WAAW,CAAC,IAAI,CAAC,gBAAgB,CAAC;QACpD,QAAQ;QACR,MAAM;QACN,UAAU,EAAE,YAAY,CAAC,MAAM,CAAC,UAAU,EAAE,IAAI,CAAC,UAAU,EAAE,IAAI,CAAC,IAAI,CAAC;KACxE,CAAC;AACJ,CAAC"}

package/dist/replay-eval.d.ts

@@ -0,0 +1,5 @@
+import type { EvalTrace } from "@here.build/arrival/provenance";
+import { ProgrammaticJob } from "@inhuman.tools/harness-model";
+import type { ProgramHost } from "./host.js";
+export declare function replayEvaluation(job: ProgrammaticJob, host: ProgramHost, trace: EvalTrace): Promise<void>;
+//# sourceMappingURL=replay-eval.d.ts.map

package/dist/replay-eval.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"replay-eval.d.ts","sourceRoot":"","sources":["../src/replay-eval.ts"],"names":[],"mappings":"AAKA,OAAO,KAAK,EAAE,SAAS,EAAE,MAAM,gCAAgC,CAAC;AAChE,OAAO,EAAsC,eAAe,EAAE,MAAM,8BAA8B,CAAC;AAMnG,OAAO,KAAK,EAAE,WAAW,EAAE,MAAM,WAAW,CAAC;AAwD7C,wBAAsB,gBAAgB,CAAC,GAAG,EAAE,eAAe,EAAE,IAAI,EAAE,WAAW,EAAE,KAAK,EAAE,SAAS,GAAG,OAAO,CAAC,IAAI,CAAC,CAe/G"}

package/dist/replay-eval.js

@@ -0,0 +1,72 @@
+/**
+ * Re-run a program against the children it already minted. Does not seal the
+ * job, does not append notes, and does not move the watch cursor.
+ */
+import { parse } from "@here.build/arrival";
+import { crossingEpoch, crossingOriginAfter } from "@inhuman.tools/harness-model";
+import { callArgsSchema } from "@inhuman.tools/harness-model/schemas";
+import { unwrapTopLevelBegins } from "@inhuman.tools/substrate/unwrap-begin";
+import { when } from "mobx";
+import { evaluateForms, observed } from "./evaluate.js";
+import { openProgram } from "./open.js";
+import { detachedRuntime } from "./runtime.js";
+async function once(job, host, opened, runtime, trace) {
+    const limits = { timeoutMs: undefined, maxInternalCalls: opened.maxInternalCalls, trace };
+    const sourceText = opened.source.source;
+    if (sourceText == null) {
+        await evaluateForms(job, host, opened.forms, { kind: "once", ...limits }, runtime);
+        return;
+    }
+    const sourceForms = unwrapTopLevelBegins(await parse(sourceText));
+    const shared = { signal: host.signal ?? new AbortController().signal };
+    const loaded = await evaluateForms(job, host, sourceForms, { kind: "source-load", ...limits, shared }, runtime);
+    if (loaded.kind !== "ok")
+        return;
+    await evaluateForms(job, host, opened.forms, { kind: "source-body", ...limits, shared }, runtime);
+}
+async function periods(job, host, opened, runtime, trace) {
+    const limits = { timeoutMs: undefined, maxInternalCalls: opened.maxInternalCalls, trace };
+    let origin = 0;
+    while (host.signal?.aborted !== true) {
+        if ((job.completed || job.cancelled) && origin >= job.toolCalls.length)
+            return;
+        const before = job.toolCalls.length;
+        const epoch = crossingEpoch(job, origin);
+        await evaluateForms(job, host, opened.forms, { kind: "period", tick: { origin }, ...limits }, runtime);
+        const next = crossingOriginAfter(job, origin, epoch);
+        if (next > origin) {
+            origin = next;
+            continue;
+        }
+        if (job.completed || job.cancelled || before < job.toolCalls.length)
+            return;
+        const joined = when(() => host.signal?.aborted === true || job.completed || job.cancelled || job.toolCalls.length > before);
+        try {
+            await joined;
+        }
+        finally {
+            joined.cancel();
+        }
+        if (job.toolCalls.length === before)
+            return;
+    }
+}
+export async function replayEvaluation(job, host, trace) {
+    const parsed = callArgsSchema.safeParse(job.args);
+    if (!parsed.success)
+        return;
+    const opened = await openProgram(job, host, parsed.data, false);
+    if (opened == null)
+        return;
+    const runtime = detachedRuntime(job, host);
+    runtime.arm({ watching: opened.periodMs != null, moduleRoot: opened.moduleRoot });
+    await observed(host, async (live) => {
+        const tap = live ?? trace;
+        if (opened.periodMs == null) {
+            await once(job, host, opened, runtime, tap);
+            return;
+        }
+        await periods(job, host, opened, runtime, tap);
+    });
+}
+//# sourceMappingURL=replay-eval.js.map

package/dist/replay-eval.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"replay-eval.js","sourceRoot":"","sources":["../src/replay-eval.ts"],"names":[],"mappings":"AAAA;;;GAGG;AACH,OAAO,EAAE,KAAK,EAAE,MAAM,qBAAqB,CAAC;AAE5C,OAAO,EAAE,aAAa,EAAE,mBAAmB,EAAmB,MAAM,8BAA8B,CAAC;AACnG,OAAO,EAAE,cAAc,EAAE,MAAM,sCAAsC,CAAC;AACtE,OAAO,EAAE,oBAAoB,EAAE,MAAM,uCAAuC,CAAC;AAC7E,OAAO,EAAE,IAAI,EAAE,MAAM,MAAM,CAAC;AAE5B,OAAO,EAAE,aAAa,EAAE,QAAQ,EAAmB,MAAM,eAAe,CAAC;AAEzE,OAAO,EAAE,WAAW,EAAsB,MAAM,WAAW,CAAC;AAC5D,OAAO,EAAE,eAAe,EAAuB,MAAM,cAAc,CAAC;AAEpE,KAAK,UAAU,IAAI,CACjB,GAAoB,EACpB,IAAiB,EACjB,MAAqB,EACrB,OAAuB,EACvB,KAA4B;IAE5B,MAAM,MAAM,GAAG,EAAE,SAAS,EAAE,SAAS,EAAE,gBAAgB,EAAE,MAAM,CAAC,gBAAgB,EAAE,KAAK,EAAE,CAAC;IAC1F,MAAM,UAAU,GAAG,MAAM,CAAC,MAAM,CAAC,MAAM,CAAC;IACxC,IAAI,UAAU,IAAI,IAAI,EAAE,CAAC;QACvB,MAAM,aAAa,CAAC,GAAG,EAAE,IAAI,EAAE,MAAM,CAAC,KAAK,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,GAAG,MAAM,EAAE,EAAE,OAAO,CAAC,CAAC;QACnF,OAAO;IACT,CAAC;IACD,MAAM,WAAW,GAAG,oBAAoB,CAAC,MAAM,KAAK,CAAC,UAAU,CAAC,CAAC,CAAC;IAClE,MAAM,MAAM,GAAe,EAAE,MAAM,EAAE,IAAI,CAAC,MAAM,IAAI,IAAI,eAAe,EAAE,CAAC,MAAM,EAAE,CAAC;IACnF,MAAM,MAAM,GAAG,MAAM,aAAa,CAAC,GAAG,EAAE,IAAI,EAAE,WAAW,EAAE,EAAE,IAAI,EAAE,aAAa,EAAE,GAAG,MAAM,EAAE,MAAM,EAAE,EAAE,OAAO,CAAC,CAAC;IAChH,IAAI,MAAM,CAAC,IAAI,KAAK,IAAI;QAAE,OAAO;IACjC,MAAM,aAAa,CAAC,GAAG,EAAE,IAAI,EAAE,MAAM,CAAC,KAAK,EAAE,EAAE,IAAI,EAAE,aAAa,EAAE,GAAG,MAAM,EAAE,MAAM,EAAE,EAAE,OAAO,CAAC,CAAC;AACpG,CAAC;AAED,KAAK,UAAU,OAAO,CACpB,GAAoB,EACpB,IAAiB,EACjB,MAAqB,EACrB,OAAuB,EACvB,KAA4B;IAE5B,MAAM,MAAM,GAAG,EAAE,SAAS,EAAE,SAAS,EAAE,gBAAgB,EAAE,MAAM,CAAC,gBAAgB,EAAE,KAAK,EAAE,CAAC;IAC1F,IAAI,MAAM,GAAG,CAAC,CAAC;IACf,OAAO,IAAI,CAAC,MAAM,EAAE,OAAO,KAAK,IAAI,EAAE,CAAC;QACrC,IAAI,CAAC,GAAG,CAAC,SAAS,IAAI,GAAG,CAAC,SAAS,CAAC,IAAI,MAAM,IAAI,GAAG,CAAC,SAAS,CAAC,MAAM;YAAE,OAAO;QAC/E,MAAM,MAAM,GAAG,GAAG,CAAC,SAAS,CAAC,MAAM,CAAC;QACpC,MAAM,KAAK,GAAG,aAAa,CAAC,GAAG,EAAE,MAAM,CAAC,CAAC;QACzC,MAAM,aAAa,CAAC,GAAG,EAAE,IAAI,EAAE,MAAM,CAAC,KAAK,EAAE,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,EAAE,MAAM,EAAE,EAAE,GAAG,MAAM,EAAE,EAAE,OAAO,CAAC,CAAC;QACvG,MAAM,IAAI,GAAG,mBAAmB,CAAC,GAAG,EAAE,MAAM,EAAE,KAAK,CAAC,CAAC;QACrD,IAAI,IAAI,GAAG,MAAM,EAAE,CAAC;YAClB,MAAM,GAAG,IAAI,CAAC;YACd,SAAS;QACX,CAAC;QACD,IAAI,GAAG,CAAC,SAAS,IAAI,GAAG,CAAC,SAAS,IAAI,MAAM,GAAG,GAAG,CAAC,SAAS,CAAC,MAAM;YAAE,OAAO;QAC5E,MAAM,MAAM,GAAG,IAAI,CACjB,GAAG,EAAE,CAAC,IAAI,CAAC,MAAM,EAAE,OAAO,KAAK,IAAI,IAAI,GAAG,CAAC,SAAS,IAAI,GAAG,CAAC,SAAS,IAAI,GAAG,CAAC,SAAS,CAAC,MAAM,GAAG,MAAM,CACvG,CAAC;QACF,IAAI,CAAC;YACH,MAAM,MAAM,CAAC;QACf,CAAC;gBAAS,CAAC;YACT,MAAM,CAAC,MAAM,EAAE,CAAC;QAClB,CAAC;QACD,IAAI,GAAG,CAAC,SAAS,CAAC,MAAM,KAAK,MAAM;YAAE,OAAO;IAC9C,CAAC;AACH,CAAC;AAED,MAAM,CAAC,KAAK,UAAU,gBAAgB,CAAC,GAAoB,EAAE,IAAiB,EAAE,KAAgB;IAC9F,MAAM,MAAM,GAAG,cAAc,CAAC,SAAS,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC;IAClD,IAAI,CAAC,MAAM,CAAC,OAAO;QAAE,OAAO;IAC5B,MAAM,MAAM,GAAG,MAAM,WAAW,CAAC,GAAG,EAAE,IAAI,EAAE,MAAM,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;IAChE,IAAI,MAAM,IAAI,IAAI;QAAE,OAAO;IAC3B,MAAM,OAAO,GAAG,eAAe,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;IAC3C,OAAO,CAAC,GAAG,CAAC,EAAE,QAAQ,EAAE,MAAM,CAAC,QAAQ,IAAI,IAAI,EAAE,UAAU,EAAE,MAAM,CAAC,UAAU,EAAE,CAAC,CAAC;IAClF,MAAM,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,EAAE;QAClC,MAAM,GAAG,GAAG,IAAI,IAAI,KAAK,CAAC;QAC1B,IAAI,MAAM,CAAC,QAAQ,IAAI,IAAI,EAAE,CAAC;YAC5B,MAAM,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,MAAM,EAAE,OAAO,EAAE,GAAG,CAAC,CAAC;YAC5C,OAAO;QACT,CAAC;QACD,MAAM,OAAO,CAAC,GAAG,EAAE,IAAI,EAAE,MAAM,EAAE,OAAO,EAAE,GAAG,CAAC,CAAC;IACjD,CAAC,CAAC,CAAC;AACL,CAAC"}

package/dist/run.d.ts

@@ -0,0 +1,4 @@
+import { ProgrammaticJob } from "@inhuman.tools/harness-model";
+import type { ProgramHost } from "./host.js";
+export declare function runProgram(chunk: ProgrammaticJob, host: ProgramHost): Promise<void>;
+//# sourceMappingURL=run.d.ts.map

package/dist/run.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"run.d.ts","sourceRoot":"","sources":["../src/run.ts"],"names":[],"mappings":"AAKA,OAAO,EAAE,eAAe,EAAE,MAAM,8BAA8B,CAAC;AAiB/D,OAAO,KAAK,EAAE,WAAW,EAAE,MAAM,WAAW,CAAC;AAQ7C,wBAAsB,UAAU,CAAC,KAAK,EAAE,eAAe,EAAE,IAAI,EAAE,WAAW,GAAG,OAAO,CAAC,IAAI,CAAC,CAwEzF"}

package/dist/run.js

@@ -0,0 +1,81 @@
+/**
+ * One-shot Scheme program. The host passes the vocabulary. `period` is rejected
+ * here; ongoing evaluation is the watchdog.
+ */
+import { parse } from "@here.build/arrival";
+import { callArgsSchema, REPL_PERIOD_ERR } from "@inhuman.tools/harness-model/schemas";
+import { unwrapTopLevelBegins } from "@inhuman.tools/substrate/unwrap-begin";
+import { createEvaluationTimeout, displayPrinted, errorText, evaluateForms, fail, guardProgram, observed, printedValues, sealChunk, } from "./evaluate.js";
+import { openProgram } from "./open.js";
+import { programRuntimeOf } from "./runtime.js";
+function rawHasPeriod(raw) {
+    return raw !== null && typeof raw === "object" && "period" in raw;
+}
+export async function runProgram(chunk, host) {
+    await guardProgram(chunk, host, async () => {
+        const rawArgs = chunk.args;
+        if (rawHasPeriod(rawArgs)) {
+            sealChunk(chunk, fail(`Error: ${REPL_PERIOD_ERR}`));
+            return;
+        }
+        const parsed = callArgsSchema.safeParse(rawArgs);
+        if (!parsed.success) {
+            const issue = parsed.error.issues[0]?.message ?? "invalid arguments";
+            sealChunk(chunk, fail(`Error: ${issue}`));
+            return;
+        }
+        const opened = await openProgram(chunk, host, parsed.data);
+        if (opened == null)
+            return;
+        const runtime = programRuntimeOf(chunk, host);
+        runtime.arm({ watching: false, moduleRoot: opened.moduleRoot });
+        const sourceText = opened.source.source;
+        let sourceForms;
+        if (sourceText != null) {
+            try {
+                sourceForms = unwrapTopLevelBegins(await parse(sourceText));
+            }
+            catch (error) {
+                sealChunk(chunk, fail(errorText(error)));
+                return;
+            }
+        }
+        const limits = { timeoutMs: opened.timeoutMs, maxInternalCalls: opened.maxInternalCalls };
+        const outcome = await observed(host, async (trace) => {
+            if (sourceForms === undefined) {
+                return evaluateForms(chunk, host, opened.forms, { kind: "once", ...limits, trace }, runtime);
+            }
+            const timeout = createEvaluationTimeout(host.signal, opened.timeoutMs);
+            const shared = { signal: timeout.signal };
+            try {
+                const loaded = await evaluateForms(chunk, host, sourceForms, { kind: "source-load", ...limits, shared, trace }, runtime);
+                return loaded.kind === "ok"
+                    ? await evaluateForms(chunk, host, opened.forms, { kind: "source-body", ...limits, shared, trace }, runtime)
+                    : loaded;
+            }
+            finally {
+                timeout.dispose();
+            }
+        });
+        if (outcome.kind === "park")
+            return;
+        if (outcome.kind === "halt") {
+            sealChunk(chunk, outcome.result);
+            return;
+        }
+        if (outcome.kind === "fail") {
+            sealChunk(chunk, fail(outcome.values.map(displayPrinted).join("\n\n"), outcome.code));
+            return;
+        }
+        const sealed = {
+            ok: true,
+            value: printedValues(outcome.values, opened.kinds),
+        };
+        if (outcome.jsonError != null)
+            sealed.jsonError = outcome.jsonError;
+        else if ("json" in outcome)
+            sealed.json = outcome.json;
+        sealChunk(chunk, sealed);
+    });
+}
+//# sourceMappingURL=run.js.map

package/dist/run.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"run.js","sourceRoot":"","sources":["../src/run.ts"],"names":[],"mappings":"AAAA;;;GAGG;AACH,OAAO,EAAE,KAAK,EAAoB,MAAM,qBAAqB,CAAC;AAE9D,OAAO,EAAE,cAAc,EAAE,eAAe,EAAE,MAAM,sCAAsC,CAAC;AACvF,OAAO,EAAE,oBAAoB,EAAE,MAAM,uCAAuC,CAAC;AAE7E,OAAO,EACL,uBAAuB,EACvB,cAAc,EACd,SAAS,EACT,aAAa,EACb,IAAI,EACJ,YAAY,EACZ,QAAQ,EACR,aAAa,EACb,SAAS,GAGV,MAAM,eAAe,CAAC;AAEvB,OAAO,EAAE,WAAW,EAAE,MAAM,WAAW,CAAC;AACxC,OAAO,EAAE,gBAAgB,EAAE,MAAM,cAAc,CAAC;AAEhD,SAAS,YAAY,CAAC,GAAY;IAChC,OAAO,GAAG,KAAK,IAAI,IAAI,OAAO,GAAG,KAAK,QAAQ,IAAI,QAAQ,IAAI,GAAG,CAAC;AACpE,CAAC;AAED,MAAM,CAAC,KAAK,UAAU,UAAU,CAAC,KAAsB,EAAE,IAAiB;IACxE,MAAM,YAAY,CAAC,KAAK,EAAE,IAAI,EAAE,KAAK,IAAI,EAAE;QACzC,MAAM,OAAO,GAAG,KAAK,CAAC,IAAI,CAAC;QAC3B,IAAI,YAAY,CAAC,OAAO,CAAC,EAAE,CAAC;YAC1B,SAAS,CAAC,KAAK,EAAE,IAAI,CAAC,UAAU,eAAe,EAAE,CAAC,CAAC,CAAC;YACpD,OAAO;QACT,CAAC;QACD,MAAM,MAAM,GAAG,cAAc,CAAC,SAAS,CAAC,OAAO,CAAC,CAAC;QACjD,IAAI,CAAC,MAAM,CAAC,OAAO,EAAE,CAAC;YACpB,MAAM,KAAK,GAAG,MAAM,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,OAAO,IAAI,mBAAmB,CAAC;YACrE,SAAS,CAAC,KAAK,EAAE,IAAI,CAAC,UAAU,KAAK,EAAE,CAAC,CAAC,CAAC;YAC1C,OAAO;QACT,CAAC;QACD,MAAM,MAAM,GAAG,MAAM,WAAW,CAAC,KAAK,EAAE,IAAI,EAAE,MAAM,CAAC,IAAI,CAAC,CAAC;QAC3D,IAAI,MAAM,IAAI,IAAI;YAAE,OAAO;QAE3B,MAAM,OAAO,GAAG,gBAAgB,CAAC,KAAK,EAAE,IAAI,CAAC,CAAC;QAC9C,OAAO,CAAC,GAAG,CAAC,EAAE,QAAQ,EAAE,KAAK,EAAE,UAAU,EAAE,MAAM,CAAC,UAAU,EAAE,CAAC,CAAC;QAChE,MAAM,UAAU,GAAG,MAAM,CAAC,MAAM,CAAC,MAAM,CAAC;QACxC,IAAI,WAA+C,CAAC;QACpD,IAAI,UAAU,IAAI,IAAI,EAAE,CAAC;YACvB,IAAI,CAAC;gBACH,WAAW,GAAG,oBAAoB,CAAC,MAAM,KAAK,CAAC,UAAU,CAAC,CAAC,CAAC;YAC9D,CAAC;YAAC,OAAO,KAAK,EAAE,CAAC;gBACf,SAAS,CAAC,KAAK,EAAE,IAAI,CAAC,SAAS,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;gBACzC,OAAO;YACT,CAAC;QACH,CAAC;QACD,MAAM,MAAM,GAAG,EAAE,SAAS,EAAE,MAAM,CAAC,SAAS,EAAE,gBAAgB,EAAE,MAAM,CAAC,gBAAgB,EAAE,CAAC;QAC1F,MAAM,OAAO,GAAgB,MAAM,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,EAAE;YAChE,IAAI,WAAW,KAAK,SAAS,EAAE,CAAC;gBAC9B,OAAO,aAAa,CAAC,KAAK,EAAE,IAAI,EAAE,MAAM,CAAC,KAAK,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,GAAG,MAAM,EAAE,KAAK,EAAE,EAAE,OAAO,CAAC,CAAC;YAC/F,CAAC;YACD,MAAM,OAAO,GAAG,uBAAuB,CAAC,IAAI,CAAC,MAAM,EAAE,MAAM,CAAC,SAAS,CAAC,CAAC;YACvE,MAAM,MAAM,GAAe,EAAE,MAAM,EAAE,OAAO,CAAC,MAAM,EAAE,CAAC;YACtD,IAAI,CAAC;gBACH,MAAM,MAAM,GAAG,MAAM,aAAa,CAChC,KAAK,EACL,IAAI,EACJ,WAAW,EACX,EAAE,IAAI,EAAE,aAAa,EAAE,GAAG,MAAM,EAAE,MAAM,EAAE,KAAK,EAAE,EACjD,OAAO,CACR,CAAC;gBACF,OAAO,MAAM,CAAC,IAAI,KAAK,IAAI;oBACzB,CAAC,CAAC,MAAM,aAAa,CAAC,KAAK,EAAE,IAAI,EAAE,MAAM,CAAC,KAAK,EAAE,EAAE,IAAI,EAAE,aAAa,EAAE,GAAG,MAAM,EAAE,MAAM,EAAE,KAAK,EAAE,EAAE,OAAO,CAAC;oBAC5G,CAAC,CAAC,MAAM,CAAC;YACb,CAAC;oBAAS,CAAC;gBACT,OAAO,CAAC,OAAO,EAAE,CAAC;YACpB,CAAC;QACH,CAAC,CAAC,CAAC;QACH,IAAI,OAAO,CAAC,IAAI,KAAK,MAAM;YAAE,OAAO;QACpC,IAAI,OAAO,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;YAC5B,SAAS,CAAC,KAAK,EAAE,OAAO,CAAC,MAAM,CAAC,CAAC;YACjC,OAAO;QACT,CAAC;QACD,IAAI,OAAO,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;YAC5B,SAAS,CAAC,KAAK,EAAE,IAAI,CAAC,OAAO,CAAC,MAAM,CAAC,GAAG,CAAC,cAAc,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,EAAE,OAAO,CAAC,IAAI,CAAC,CAAC,CAAC;YACtF,OAAO;QACT,CAAC;QACD,MAAM,MAAM,GAKR;YACF,EAAE,EAAE,IAAI;YACR,KAAK,EAAE,aAAa,CAAC,OAAO,CAAC,MAAM,EAAE,MAAM,CAAC,KAAK,CAAC;SACnD,CAAC;QACF,IAAI,OAAO,CAAC,SAAS,IAAI,IAAI;YAAE,MAAM,CAAC,SAAS,GAAG,OAAO,CAAC,SAAS,CAAC;aAC/D,IAAI,MAAM,IAAI,OAAO;YAAE,MAAM,CAAC,IAAI,GAAG,OAAO,CAAC,IAAI,CAAC;QACvD,SAAS,CAAC,KAAK,EAAE,MAAM,CAAC,CAAC;IAC3B,CAAC,CAAC,CAAC;AACL,CAAC"}

package/dist/runtime.d.ts

@@ -0,0 +1,8 @@
+import type { ProgrammaticJob } from "@inhuman.tools/harness-model";
+import type { ProgramHost, ProgramRuntime } from "./host.js";
+/** One runtime per job. A new host is legal only after the previous signal parked. The first prepare wins. */
+export declare function programRuntimeOf(job: ProgrammaticJob, host: ProgramHost): ProgramRuntime;
+/** A second host reading the same job (the browser's replay) must not take the daemon's runtime. */
+export declare function detachedRuntime(job: ProgrammaticJob, host: ProgramHost): ProgramRuntime;
+export { type ProgramRuntime } from "./host.js";
+//# sourceMappingURL=runtime.d.ts.map

package/dist/runtime.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"runtime.d.ts","sourceRoot":"","sources":["../src/runtime.ts"],"names":[],"mappings":"AACA,OAAO,KAAK,EAAE,eAAe,EAAE,MAAM,8BAA8B,CAAC;AAIpE,OAAO,KAAK,EAAmB,WAAW,EAAE,cAAc,EAAE,MAAM,WAAW,CAAC;AAuE9E,8GAA8G;AAC9G,wBAAgB,gBAAgB,CAAC,GAAG,EAAE,eAAe,EAAE,IAAI,EAAE,WAAW,GAAG,cAAc,CAcxF;AAED,oGAAoG;AACpG,wBAAgB,eAAe,CAAC,GAAG,EAAE,eAAe,EAAE,IAAI,EAAE,WAAW,GAAG,cAAc,CAEvF;AAED,OAAO,EAAE,KAAK,cAAc,EAAE,MAAM,WAAW,CAAC"}

package/dist/runtime.js

@@ -0,0 +1,77 @@
+import { EnvCapability } from "@here.build/arrival";
+import { DISPLAY_INTERNAL, displaySymbol } from "@inhuman.tools/substrate";
+import invariant from "tiny-invariant";
+/** `(display …)` is a host verb. Arrival has no IO; the runner rewrites the call onto this symbol. */
+const displayCapability = EnvCapability.define("harness/scheme-repl-display", {
+    symbols: () => ({
+        [DISPLAY_INTERNAL]: displaySymbol(),
+    }),
+});
+const runtimes = new WeakMap();
+function runtimeFor(job, host) {
+    const rig = {
+        signal: new AbortController().signal,
+        origin: 0,
+        replayAt: 0,
+        formAt: 0,
+        maxInternalCalls: undefined,
+        failureCode: undefined,
+    };
+    let armed;
+    const view = () => {
+        if (armed === undefined)
+            throw new Error("scheme-repl: arm the runtime before evaluating");
+        return armed;
+    };
+    const runtime = {
+        arm(opts) {
+            if (armed !== undefined)
+                return;
+            const prepared = host.prepare({ moduleRoot: opts.moduleRoot, job });
+            armed = {
+                capabilities: [...prepared.capabilities, displayCapability],
+                config: { ...prepared.config, job, rig },
+            };
+        },
+        beginTick(tick) {
+            rig.signal = tick.signal;
+            rig.origin = tick.origin;
+            rig.replayAt = tick.origin;
+            rig.maxInternalCalls = tick.maxInternalCalls;
+            rig.failureCode = undefined;
+        },
+        clearFailure() {
+            rig.formAt = job.toolCalls.length;
+            rig.failureCode = undefined;
+        },
+        failureCode() {
+            return rig.failureCode;
+        },
+        get capabilities() {
+            return view().capabilities;
+        },
+        get config() {
+            return view().config;
+        },
+    };
+    return runtime;
+}
+/** One runtime per job. A new host is legal only after the previous signal parked. The first prepare wins. */
+export function programRuntimeOf(job, host) {
+    const existing = runtimes.get(job);
+    if (existing !== undefined) {
+        if (existing.identity === host.identity)
+            return existing.runtime;
+        const stale = existing.signal;
+        invariant(stale != null && stale.aborted && stale.reason === "park", "scheme-repl: ProgrammaticJob rebound to a different host");
+        runtimes.delete(job);
+    }
+    const runtime = runtimeFor(job, host);
+    runtimes.set(job, { identity: host.identity, signal: host.signal, runtime });
+    return runtime;
+}
+/** A second host reading the same job (the browser's replay) must not take the daemon's runtime. */
+export function detachedRuntime(job, host) {
+    return runtimeFor(job, host);
+}
+//# sourceMappingURL=runtime.js.map

package/dist/runtime.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"runtime.js","sourceRoot":"","sources":["../src/runtime.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,aAAa,EAAE,MAAM,qBAAqB,CAAC;AAEpD,OAAO,EAAE,gBAAgB,EAAE,aAAa,EAAE,MAAM,0BAA0B,CAAC;AAC3E,OAAO,SAAS,MAAM,gBAAgB,CAAC;AAcvC,sGAAsG;AACtG,MAAM,iBAAiB,GAAG,aAAa,CAAC,MAAM,CAAC,6BAA6B,EAAE;IAC5E,OAAO,EAAE,GAAG,EAAE,CAAC,CAAC;QACd,CAAC,gBAAgB,CAAC,EAAE,aAAa,EAAE;KACpC,CAAC;CACH,CAAC,CAAC;AAEH,MAAM,QAAQ,GAAG,IAAI,OAAO,EAGzB,CAAC;AAEJ,SAAS,UAAU,CAAC,GAAoB,EAAE,IAAiB;IACzD,MAAM,GAAG,GAAY;QACnB,MAAM,EAAE,IAAI,eAAe,EAAE,CAAC,MAAM;QACpC,MAAM,EAAE,CAAC;QACT,QAAQ,EAAE,CAAC;QACX,MAAM,EAAE,CAAC;QACT,gBAAgB,EAAE,SAAS;QAC3B,WAAW,EAAE,SAAS;KACvB,CAAC;IACF,IAAI,KAAkC,CAAC;IACvC,MAAM,IAAI,GAAG,GAAoB,EAAE;QACjC,IAAI,KAAK,KAAK,SAAS;YAAE,MAAM,IAAI,KAAK,CAAC,gDAAgD,CAAC,CAAC;QAC3F,OAAO,KAAK,CAAC;IACf,CAAC,CAAC;IACF,MAAM,OAAO,GAAmB;QAC9B,GAAG,CAAC,IAAI;YACN,IAAI,KAAK,KAAK,SAAS;gBAAE,OAAO;YAChC,MAAM,QAAQ,GAAG,IAAI,CAAC,OAAO,CAAC,EAAE,UAAU,EAAE,IAAI,CAAC,UAAU,EAAE,GAAG,EAAE,CAAC,CAAC;YACpE,KAAK,GAAG;gBACN,YAAY,EAAE,CAAC,GAAG,QAAQ,CAAC,YAAY,EAAE,iBAAiB,CAAC;gBAC3D,MAAM,EAAE,EAAE,GAAG,QAAQ,CAAC,MAAM,EAAE,GAAG,EAAE,GAAG,EAAE;aACzC,CAAC;QACJ,CAAC;QACD,SAAS,CAAC,IAAI;YACZ,GAAG,CAAC,MAAM,GAAG,IAAI,CAAC,MAAM,CAAC;YACzB,GAAG,CAAC,MAAM,GAAG,IAAI,CAAC,MAAM,CAAC;YACzB,GAAG,CAAC,QAAQ,GAAG,IAAI,CAAC,MAAM,CAAC;YAC3B,GAAG,CAAC,gBAAgB,GAAG,IAAI,CAAC,gBAAgB,CAAC;YAC7C,GAAG,CAAC,WAAW,GAAG,SAAS,CAAC;QAC9B,CAAC;QACD,YAAY;YACV,GAAG,CAAC,MAAM,GAAG,GAAG,CAAC,SAAS,CAAC,MAAM,CAAC;YAClC,GAAG,CAAC,WAAW,GAAG,SAAS,CAAC;QAC9B,CAAC;QACD,WAAW;YACT,OAAO,GAAG,CAAC,WAAW,CAAC;QACzB,CAAC;QACD,IAAI,YAAY;YACd,OAAO,IAAI,EAAE,CAAC,YAAY,CAAC;QAC7B,CAAC;QACD,IAAI,MAAM;YACR,OAAO,IAAI,EAAE,CAAC,MAAM,CAAC;QACvB,CAAC;KACF,CAAC;IACF,OAAO,OAAO,CAAC;AACjB,CAAC;AAED,8GAA8G;AAC9G,MAAM,UAAU,gBAAgB,CAAC,GAAoB,EAAE,IAAiB;IACtE,MAAM,QAAQ,GAAG,QAAQ,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;IACnC,IAAI,QAAQ,KAAK,SAAS,EAAE,CAAC;QAC3B,IAAI,QAAQ,CAAC,QAAQ,KAAK,IAAI,CAAC,QAAQ;YAAE,OAAO,QAAQ,CAAC,OAAO,CAAC;QACjE,MAAM,KAAK,GAAG,QAAQ,CAAC,MAAM,CAAC;QAC9B,SAAS,CACP,KAAK,IAAI,IAAI,IAAI,KAAK,CAAC,OAAO,IAAI,KAAK,CAAC,MAAM,KAAK,MAAM,EACzD,0DAA0D,CAC3D,CAAC;QACF,QAAQ,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC;IACvB,CAAC;IACD,MAAM,OAAO,GAAG,UAAU,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;IACtC,QAAQ,CAAC,GAAG,CAAC,GAAG,EAAE,EAAE,QAAQ,EAAE,IAAI,CAAC,QAAQ,EAAE,MAAM,EAAE,IAAI,CAAC,MAAM,EAAE,OAAO,EAAE,CAAC,CAAC;IAC7E,OAAO,OAAO,CAAC;AACjB,CAAC;AAED,oGAAoG;AACpG,MAAM,UAAU,eAAe,CAAC,GAAoB,EAAE,IAAiB;IACrE,OAAO,UAAU,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;AAC/B,CAAC"}

package/dist/source-fs.d.ts

@@ -0,0 +1,4 @@
+import { type Loader } from "@here.build/arrival-modules";
+import type { ProgrammaticJob } from "@inhuman.tools/harness-model";
+export declare function programSourceLoader(root: string, job?: ProgrammaticJob): Loader;
+//# sourceMappingURL=source-fs.d.ts.map

package/dist/source-fs.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"source-fs.d.ts","sourceRoot":"","sources":["../src/source-fs.ts"],"names":[],"mappings":"AAMA,OAAO,EAAgB,KAAK,MAAM,EAAE,MAAM,6BAA6B,CAAC;AACxE,OAAO,KAAK,EAAE,eAAe,EAAE,MAAM,8BAA8B,CAAC;AAGpE,wBAAgB,mBAAmB,CAAC,IAAI,EAAE,MAAM,EAAE,GAAG,CAAC,EAAE,eAAe,GAAG,MAAM,CAwB/E"}

package/dist/source-fs.js

@@ -0,0 +1,36 @@
+/**
+ * Disk `require` jail. Replay never imports this: it reads `job.modules`.
+ */
+import { readFile, realpath } from "node:fs/promises";
+import { join as posixJoin } from "node:path/posix";
+import { makeFsLoader } from "@here.build/arrival-modules";
+import { runInAction } from "mobx";
+export function programSourceLoader(root, job) {
+    return makeFsLoader({
+        async readFile(key) {
+            if (job !== undefined) {
+                const recorded = job.modules[key];
+                if (recorded !== undefined)
+                    return recorded;
+            }
+            const abs = posixJoin(root, key);
+            const realRoot = await realpath(root);
+            let real;
+            try {
+                real = await realpath(abs);
+            }
+            catch {
+                throw new Error(`no such file: ${key}`);
+            }
+            const prefix = realRoot.endsWith("/") ? realRoot : `${realRoot}/`;
+            if (real !== realRoot && !real.startsWith(prefix)) {
+                throw new Error(`require path escapes program source root: ${key}`);
+            }
+            const text = await readFile(real, "utf8");
+            if (job !== undefined)
+                runInAction(() => (job.modules[key] = text));
+            return text;
+        },
+    });
+}
+//# sourceMappingURL=source-fs.js.map

package/dist/source-fs.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"source-fs.js","sourceRoot":"","sources":["../src/source-fs.ts"],"names":[],"mappings":"AAAA;;GAEG;AACH,OAAO,EAAE,QAAQ,EAAE,QAAQ,EAAE,MAAM,kBAAkB,CAAC;AACtD,OAAO,EAAE,IAAI,IAAI,SAAS,EAAE,MAAM,iBAAiB,CAAC;AAEpD,OAAO,EAAE,YAAY,EAAe,MAAM,6BAA6B,CAAC;AAExE,OAAO,EAAE,WAAW,EAAE,MAAM,MAAM,CAAC;AAEnC,MAAM,UAAU,mBAAmB,CAAC,IAAY,EAAE,GAAqB;IACrE,OAAO,YAAY,CAAC;QAClB,KAAK,CAAC,QAAQ,CAAC,GAAW;YACxB,IAAI,GAAG,KAAK,SAAS,EAAE,CAAC;gBACtB,MAAM,QAAQ,GAAG,GAAG,CAAC,OAAO,CAAC,GAAG,CAAC,CAAC;gBAClC,IAAI,QAAQ,KAAK,SAAS;oBAAE,OAAO,QAAQ,CAAC;YAC9C,CAAC;YACD,MAAM,GAAG,GAAG,SAAS,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACjC,MAAM,QAAQ,GAAG,MAAM,QAAQ,CAAC,IAAI,CAAC,CAAC;YACtC,IAAI,IAAY,CAAC;YACjB,IAAI,CAAC;gBACH,IAAI,GAAG,MAAM,QAAQ,CAAC,GAAG,CAAC,CAAC;YAC7B,CAAC;YAAC,MAAM,CAAC;gBACP,MAAM,IAAI,KAAK,CAAC,iBAAiB,GAAG,EAAE,CAAC,CAAC;YAC1C,CAAC;YACD,MAAM,MAAM,GAAG,QAAQ,CAAC,QAAQ,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,GAAG,QAAQ,GAAG,CAAC;YAClE,IAAI,IAAI,KAAK,QAAQ,IAAI,CAAC,IAAI,CAAC,UAAU,CAAC,MAAM,CAAC,EAAE,CAAC;gBAClD,MAAM,IAAI,KAAK,CAAC,6CAA6C,GAAG,EAAE,CAAC,CAAC;YACtE,CAAC;YACD,MAAM,IAAI,GAAG,MAAM,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC;YAC1C,IAAI,GAAG,KAAK,SAAS;gBAAE,WAAW,CAAC,GAAG,EAAE,CAAC,CAAC,GAAG,CAAC,OAAO,CAAC,GAAG,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC;YACpE,OAAO,IAAI,CAAC;QACd,CAAC;KACF,CAAC,CAAC;AACL,CAAC"}

package/dist/source.d.ts

@@ -0,0 +1,22 @@
+/**
+ * Module `require` jail. Eval with `sourcePath` stays under the entry file's
+ * directory. Interactive `scheme_repl` / `scheme_watch` jail at the workspace
+ * (`host.root`). Skill inputs stay on licensed `read_file`.
+ */
+import { type SchemeValue } from "@here.build/arrival";
+import { type Loader } from "@here.build/arrival-modules";
+import type { ProgrammaticJob } from "@inhuman.tools/harness-model";
+export type ProgramSource = {
+    readonly source?: string;
+    readonly sourcePath?: string;
+};
+export declare function programSourceOf(raw: unknown, allow: boolean): ProgramSource;
+export declare function moduleRootOf(sourcePath: string | undefined, override?: string, workspaceRoot?: string): string | undefined;
+/** Replay read. The live loader records the same key the first time it touches disk. */
+export declare function recordedModuleLoader(job: ProgrammaticJob): Loader;
+/** Objects/arrays become the additive `json` sibling. Scalars stay display-only. */
+export declare function structuredJson(value: SchemeValue): {
+    json?: unknown;
+    jsonError?: string;
+};
+//# sourceMappingURL=source.d.ts.map

package/dist/source.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"source.d.ts","sourceRoot":"","sources":["../src/source.ts"],"names":[],"mappings":"AAAA;;;;GAIG;AACH,OAAO,EAAQ,KAAK,WAAW,EAAE,MAAM,qBAAqB,CAAC;AAC7D,OAAO,EAAgB,KAAK,MAAM,EAAE,MAAM,6BAA6B,CAAC;AACxE,OAAO,KAAK,EAAE,eAAe,EAAE,MAAM,8BAA8B,CAAC;AAEpE,MAAM,MAAM,aAAa,GAAG;IAC1B,QAAQ,CAAC,MAAM,CAAC,EAAE,MAAM,CAAC;IACzB,QAAQ,CAAC,UAAU,CAAC,EAAE,MAAM,CAAC;CAC9B,CAAC;AAEF,wBAAgB,eAAe,CAAC,GAAG,EAAE,OAAO,EAAE,KAAK,EAAE,OAAO,GAAG,aAAa,CAO3E;AAQD,wBAAgB,YAAY,CAC1B,UAAU,EAAE,MAAM,GAAG,SAAS,EAC9B,QAAQ,CAAC,EAAE,MAAM,EACjB,aAAa,CAAC,EAAE,MAAM,GACrB,MAAM,GAAG,SAAS,CAKpB;AAED,wFAAwF;AACxF,wBAAgB,oBAAoB,CAAC,GAAG,EAAE,eAAe,GAAG,MAAM,CAQjE;AAiBD,oFAAoF;AACpF,wBAAgB,cAAc,CAAC,KAAK,EAAE,WAAW,GAAG;IAAE,IAAI,CAAC,EAAE,OAAO,CAAC;IAAC,SAAS,CAAC,EAAE,MAAM,CAAA;CAAE,CAUzF"}