@inhuman.tools/harness 0.0.0-stage → 0.2.0

package/src/server/defaults/index.ts

@@ -0,0 +1,91 @@
+import { existsSync, readFileSync } from "node:fs";
+import { createRequire } from "node:module";
+import { isAbsolute, join, resolve } from "node:path";
+import { fileURLToPath } from "node:url";
+
+import { shippedPolicyFile } from "./policy-asset.js";
+
+const HARNESS_PACKAGE_PREFIX = "@inhuman.tools/harness/";
+
+const POLICY_PROCESSOR_PREFIX = "@inhuman.tools/policy-processor/";
+
+export function defaultCompactSource(): string {
+  return readFileSync(join(defaultsDir(), "compact.scm"), "utf8");
+}
+
+/**
+ * The shipped default strategy is a `.scm` that `require`s `compact.prompt`
+ * from its own directory. A package that lost the prompt has lost the
+ * strategy: throw, so the loader falls to the keep-first failsafe (and says so)
+ * instead of running a program that fails on its first line.
+ */
+export function defaultCompactStrategySource(): string {
+  const prompt = join(packageRoot(), "compact.prompt");
+  if (!existsSync(prompt)) throw new Error(`shipped compaction prompt is missing: ${prompt}`);
+  return readFileSync(join(packageRoot(), "compact.scm"), "utf8");
+}
+
+/** Absolute path of the shipped default strategy; the module root for its `require`s. */
+export function packageStrategyPath(): string {
+  return join(packageRoot(), "compact.scm");
+}
+
+/**
+ * `config.json` `compact` is a path, so the strategy is visible and editable.
+ * Relative paths resolve against the kernel root.
+ * The default `@inhuman.tools/harness/compact.scm` token names this package.
+ * Other bare specifiers resolve as npm packages installed in the kernel root.
+ */
+export function resolveCompactStrategyPath(spec: string, root: string): string {
+  const trimmed = spec.trim();
+  if (trimmed === "") throw new Error("compact strategy path is empty");
+  if (trimmed.startsWith(".") || isAbsolute(trimmed)) return resolve(root, trimmed);
+  if (trimmed.startsWith(POLICY_PROCESSOR_PREFIX)) {
+    return shippedPolicyFile(trimmed.slice(POLICY_PROCESSOR_PREFIX.length));
+  }
+  if (trimmed.startsWith(HARNESS_PACKAGE_PREFIX)) {
+    return join(packageRoot(), trimmed.slice(HARNESS_PACKAGE_PREFIX.length));
+  }
+  return createRequire(join(root, "package.json")).resolve(trimmed);
+}
+
+export type DefaultCommandVerb = "connect" | "model" | "mcp";
+
+const DEFAULT_COMMANDS: Record<DefaultCommandVerb, { readonly description: string }> = {
+  connect: { description: "Manage provider connections" },
+  model: { description: "Session model" },
+  mcp: { description: "MCP connections" },
+};
+
+function defaultCommandPath(verb: DefaultCommandVerb): string {
+  return join(defaultsDir(), "commands", `${verb}.scm`);
+}
+
+export function defaultCommands(): readonly {
+  readonly verb: DefaultCommandVerb;
+  readonly description: string;
+  readonly source: string;
+  readonly body: string;
+}[] {
+  return (["connect", "model", "mcp"] as const).map((verb) => ({
+    verb,
+    description: DEFAULT_COMMANDS[verb].description,
+    source: defaultCommandPath(verb),
+    body: readFileSync(defaultCommandPath(verb), "utf8"),
+  }));
+}
+
+export function defaultsDir(): string {
+  const here = fileURLToPath(new URL(".", import.meta.url));
+  // Dist (`dist/server/defaults`) does not copy the .scm assets.
+  const candidates = [here, join(here, "../../../src/server/defaults")];
+  for (const dir of candidates) {
+    if (existsSync(join(dir, "compact.scm"))) return dir;
+  }
+  return candidates[0];
+}
+
+/** `src/server/defaults` and `dist/server/defaults` are three up from the package root. */
+function packageRoot(): string {
+  return fileURLToPath(new URL("../../../", import.meta.url));
+}

package/src/server/defaults/policy-asset.ts

@@ -0,0 +1,11 @@
+import { findPackageJSON } from "node:module";
+import { dirname, join } from "node:path";
+
+const TURN_PACKAGE = "@inhuman.tools/turn";
+
+/** `name` is a file under `@inhuman.tools/turn/policy`, which this daemon does not ship. */
+export function shippedPolicyFile(name: string): string {
+  const manifest = findPackageJSON(TURN_PACKAGE, import.meta.url);
+  if (manifest === undefined) throw new Error(`${TURN_PACKAGE} is not installed`);
+  return join(dirname(manifest), "policy", name);
+}

package/src/server/defaults/system-prompt/SYSTEM.md

@@ -0,0 +1,5 @@
+You have real tools. Call them through the API tool-calling interface — never print fake tool JSON or narrate a function call in message text.
+You can read, list and search files, and you can write and edit them. You cannot run commands.
+Writes and edits are shown to the user for confirmation first: expect a pause, and expect that a call can come back denied. A denial is an answer, not a transport error — never repeat a denied call. Say what you were trying to do, or propose a different approach.
+Paths are relative to the project root unless absolute under it.
+After the tools you need have answered, reply to the user in prose.

package/src/server/defaults/system-prompt/preamble.hbs

@@ -0,0 +1,7 @@
+{{!-- Session/workspace chrome. Host passes the bag; empty is legal. --}}
+{{#if workspace}}
+Workspace: {{workspace}}
+{{/if}}
+{{#if mode}}
+Mode: {{mode}}
+{{/if}}

package/src/server/defaults/system-prompt/system-prompt.scm

@@ -0,0 +1,14 @@
+;; Mint-time assembly. Not a slash verb, not an action the user invokes.
+;; Last value is the system string. (harness/kv/set) in this run is residual
+;; for the minted prompt Work — not session KV.
+;;
+;; require: .md as string; .hbs as a lambda. Host roots those as env capabilities.
+
+(define system-prompt (require "./SYSTEM.md"))
+(define preamble (require "./preamble.hbs"))
+(define tools-template (require "./tools.hbs"))
+(define tools (harness/kernel/tools))
+
+(harness/kv/set 'declared-tools tools)
+
+(string-append system-prompt (preamble (dict)) (tools-template tools))

package/src/server/defaults/system-prompt/tools.hbs

@@ -0,0 +1,6 @@
+{{#if this.length}}
+## Tools
+{{#each this}}
+- `{{name}}`{{#if description}}: {{description}}{{/if}}
+{{/each}}
+{{/if}}

package/README.md

@@ -1,3 +0,0 @@
-# Temporary Holding Version
-
-This version is a temporary placeholder for this package. An operational version to replace this has been submitted for review and is awaiting a staged release.