Files
gstack/bin/gstack-evidence
T
Garry TanandClaude Fable 5 4836f0d1e3 feat(evidence): verification-evidence ledger mechanizes /ship's IRON LAW
New bin/gstack-evidence: a transparent wrapper that records every verification
run as {ts, label, command, cmd_sha256, exit, duration_s, commit, tree, dirty,
wtree, log_path} in ~/.gstack/projects/<slug>/<branch>-evidence.jsonl, plus a
read-only `check` that grades FRESH/STALE/MISSING per label. "Tests passed"
now binds to the exact working-tree content it ran on (bin/gstack-wtree
fingerprint), so evidence recorded on uncommitted code stays FRESH after the
exact tested content is committed — the /ship Step 5 -> Step 16 case — while
an untracked new source file or any content change invalidates it.

Check semantics: every named label's latest record must be green, within
--max-age, matching --expect-cmd's hash when given, and fingerprint-identical
(or diff confined to --allow-paths — mechanizing Step 16's existing "CHANGELOG
edits don't count" carve-out). No --any mode: a green lane can never mask a
red sibling. Any git failure inside check (gc'd tree object, not a repo)
degrades to STALE/MISSING, never an error into the calling skill flow.

Transparency invariant (load-bearing, test-pinned): the child's exit code is
ALWAYS the wrapper's exit code; ledger/log/redact failures are stderr
warnings. Logs are per-run (0600, exclusive-open, 2MB truncation marker,
30-day opportunistic prune) — no more shared /tmp collisions between
concurrent ships. Command strings are redact-scanned before recording (HIGH
credential -> stored redacted). Machine-local by design: neither ledger nor
logs brain-sync.

Wired: ship Step 5 lanes run wrapped (per-lane labels), ship Step 16 and
land-and-deploy 3.5b check the ledger first and cite FRESH evidence instead of
re-running; a failed CHECK never blocks (run live), a failed RUN does.
test/evidence.test.ts: 21 tests incl. the keystone dirty-record -> commit ->
FRESH case.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
2026-08-15 23:24:50 -07:00

397 lines
15 KiB
TypeScript
Executable File

#!/usr/bin/env bun
/**
* gstack-evidence — verification-evidence ledger: the mechanical arm of /ship's
* IRON LAW ("no completion claims without fresh verification evidence").
*
* gstack-evidence run --label <L> -- <cmd...>
* gstack-evidence check [--label <L> [--expect-cmd <exact string>]]... | --all
* [--max-age <hours>] [--allow-paths <csv>]
*
* `run` is a TRANSPARENT wrapper: it streams the child's output through
* unchanged, tees it to a 0600 log (2MB cap with a truncation marker), and
* appends {ts, label, command, cmd_sha256, exit, duration_s, commit, tree,
* dirty, wtree, log_path} to ~/.gstack/projects/<slug>/<branch>-evidence.jsonl.
*
* TRANSPARENCY INVARIANT (load-bearing): the child's exit code is ALWAYS the
* wrapper's exit code. Every bookkeeping failure — ledger append, log dir,
* non-git context, redact scan — is a stderr warning, never a failure. The
* wrapper must never turn green tests red.
*
* Freshness binds to `wtree`, the working-tree content fingerprint from
* bin/gstack-wtree: evidence recorded on uncommitted code stays FRESH after
* the exact tested content is committed, and an untracked new source file
* invalidates it. `cmd_sha256` = sha256 of the exact command string, no
* normalization — the same convention as bin/gstack-verify-gate (which hashes
* for TRUST; this ledger hashes for FRESHNESS).
*
* MACHINE-LOCAL by design: neither the ledger nor the logs are brain-synced.
* A synced record citing an unsynced log would grade FRESH on a machine where
* the log doesn't exist.
*
* `check` is read-only and never throws into the calling skill flow: any git
* failure (gc'd stored tree, not a repo) degrades to STALE/MISSING. Call sites
* must name expected labels explicitly — `--all` checks only labels that exist
* in the ledger; it cannot prove that an expected lane ever ran.
*/
import { mkdirSync, openSync, writeSync, closeSync, readdirSync, statSync, unlinkSync, chmodSync } from "fs";
import { join, dirname } from "path";
import { spawnSync } from "child_process";
import { appendJsonl, readJsonl } from "../lib/jsonl-store";
import { resolveSlug } from "../lib/bin-context";
import { scan, applyRedactions } from "../lib/redact-engine";
const BIN_DIR = dirname(Bun.fileURLToPath(import.meta.url));
const LOG_MAX_BYTES = 2 * 1024 * 1024;
const LOG_PRUNE_DAYS = 30;
interface EvidenceRecord {
ts: string;
label: string;
command: string;
cmd_sha256: string;
exit: number;
duration_s: number;
commit?: string;
tree?: string;
dirty?: boolean;
wtree?: string;
log_path?: string;
redacted?: boolean;
}
function warn(msg: string): void {
console.error(`gstack-evidence: warning: ${msg}`);
}
function sha256(text: string): string {
const h = new Bun.CryptoHasher("sha256");
h.update(text);
return h.digest("hex");
}
function git(args: string[]): string | undefined {
try {
const r = spawnSync("git", args, { encoding: "utf-8", timeout: 15000 });
if (r.status !== 0) return undefined;
const out = (r.stdout || "").trim();
return out || undefined;
} catch {
return undefined;
}
}
function currentWtree(): string | undefined {
try {
const r = spawnSync(join(BIN_DIR, "gstack-wtree"), { encoding: "utf-8", timeout: 30000 });
if (r.status !== 0) return undefined;
const out = (r.stdout || "").trim();
return /^[0-9a-f]{40}$/.test(out) ? out : undefined;
} catch {
return undefined;
}
}
function ledgerPath(): { dir: string; file: string; logsDir: string } {
const home = process.env.GSTACK_HOME || join(process.env.HOME || "~", ".gstack");
const slug = resolveSlug(join(BIN_DIR, "gstack-slug"));
// Same branch→filename sanitization as reviews.jsonl (gstack-slug's BRANCH).
const slugOut = spawnSync(join(BIN_DIR, "gstack-slug"), { encoding: "utf-8" });
const bm = (slugOut.stdout || "").match(/^BRANCH=(.+)$/m);
const branch = bm ? bm[1].trim() : "no-branch";
const dir = join(home, "projects", slug);
return { dir, file: join(dir, `${branch}-evidence.jsonl`), logsDir: join(dir, "logs") };
}
/** Redact-engine pass over the command string. HIGH finding → store redacted. */
function safeCommandForRecord(command: string): { command: string; redacted: boolean } {
try {
const { findings } = scan(command);
const high = findings.filter((f) => f.tier === "HIGH");
if (high.length === 0) return { command, redacted: false };
const redactedBody = applyRedactions(command, findings.map((f) => f.id)).body;
const still = scan(redactedBody).findings.some((f) => f.tier === "HIGH");
return { command: still ? "<redacted: HIGH credential in command>" : redactedBody, redacted: true };
} catch {
return { command, redacted: false };
}
}
/** Opportunistic prune of logs older than LOG_PRUNE_DAYS. Best-effort. */
function pruneOldLogs(logsDir: string): void {
try {
const cutoff = Date.now() - LOG_PRUNE_DAYS * 24 * 3600 * 1000;
for (const name of readdirSync(logsDir)) {
const p = join(logsDir, name);
try {
if (statSync(p).mtimeMs < cutoff) unlinkSync(p);
} catch {}
}
} catch {}
}
/** Exclusive-open a collision-safe log file. Returns undefined on failure. */
function openLog(logsDir: string, label: string, cmdSha: string): { fd: number; path: string } | undefined {
try {
mkdirSync(logsDir, { recursive: true });
pruneOldLogs(logsDir);
const ts = new Date().toISOString().replace(/[:.]/g, "-");
const base = `${ts}-${label}-${process.pid}-${cmdSha.slice(0, 8)}`;
for (let i = 0; i < 3; i++) {
const p = join(logsDir, i === 0 ? `${base}.log` : `${base}-${i}.log`);
try {
const fd = openSync(p, "ax", 0o600);
return { fd, path: p };
} catch {}
}
} catch (e: any) {
warn(`log setup failed (${e?.message ?? e}) — running unlogged`);
}
return undefined;
}
async function cmdRun(argv: string[]): Promise<number> {
let label = "default";
const li = argv.indexOf("--label");
const sep = argv.indexOf("--");
if (li >= 0 && li + 1 < argv.length && (sep < 0 || li < sep)) label = argv[li + 1];
if (sep < 0 || sep + 1 >= argv.length) {
console.error("usage: gstack-evidence run --label <L> -- <cmd...>");
return 2;
}
const cmdArgv = argv.slice(sep + 1);
// Compound/piped commands pass as ONE string via bash -c; a multi-token argv
// runs directly. The hashed command string is exact, no normalization.
const commandString = cmdArgv.length === 1 ? cmdArgv[0] : cmdArgv.join(" ");
const spawnArgv = cmdArgv.length === 1 ? ["bash", "-c", cmdArgv[0]] : cmdArgv;
const cmdSha = sha256(commandString);
label = label.replace(/[^a-zA-Z0-9._-]/g, "_");
// Bookkeeping context — every piece is optional; failures only warn.
let paths: ReturnType<typeof ledgerPath> | undefined;
try {
paths = ledgerPath();
mkdirSync(paths.dir, { recursive: true });
} catch (e: any) {
warn(`ledger setup failed (${e?.message ?? e}) — result will not be recorded`);
}
const log = paths ? openLog(paths.logsDir, label, cmdSha) : undefined;
const started = Date.now();
let exitCode: number;
let proc: ReturnType<typeof Bun.spawn> | undefined;
try {
proc = Bun.spawn(spawnArgv, { stdin: "inherit", stdout: "pipe", stderr: "pipe" });
} catch (e: any) {
// Spawn failure (ENOENT on argv-direct form): record exit 127, propagate 127.
exitCode = 127;
warn(`spawn failed: ${e?.message ?? e}`);
record(paths, log?.path, label, commandString, cmdSha, exitCode, started);
return exitCode;
}
// Stream-tee: forward chunks as they arrive (never buffer — E2E logs are MBs).
let logBytes = 0;
let truncated = false;
const teeToLog = (chunk: Uint8Array) => {
if (!log || truncated) return;
try {
if (logBytes + chunk.byteLength > LOG_MAX_BYTES) {
const room = LOG_MAX_BYTES - logBytes;
if (room > 0) writeSync(log.fd, chunk.subarray(0, room));
writeSync(log.fd, Buffer.from("\n\n[gstack-evidence: log truncated at 2MB — output continued on console]\n"));
truncated = true;
} else {
writeSync(log.fd, chunk);
logBytes += chunk.byteLength;
}
} catch {
truncated = true; // stop teeing on any write failure; console stream continues
}
};
const pump = async (stream: ReadableStream<Uint8Array> | undefined, out: NodeJS.WriteStream) => {
if (!stream) return;
for await (const chunk of stream) {
out.write(chunk);
teeToLog(chunk);
}
};
try {
await Promise.all([pump(proc.stdout as any, process.stdout), pump(proc.stderr as any, process.stderr)]);
exitCode = await proc.exited;
if (exitCode === null || exitCode === undefined) exitCode = 1;
} catch (e: any) {
warn(`stream error: ${e?.message ?? e}`);
try {
exitCode = await proc.exited;
} catch {
exitCode = 1;
}
} finally {
if (log) {
try {
closeSync(log.fd);
} catch {}
}
}
record(paths, log?.path, label, commandString, cmdSha, exitCode, started);
return exitCode;
}
function record(
paths: { dir: string; file: string } | undefined,
logPath: string | undefined,
label: string,
commandString: string,
cmdSha: string,
exitCode: number,
startedMs: number,
): void {
if (!paths) return;
try {
const { command, redacted } = safeCommandForRecord(commandString);
const rec: EvidenceRecord = {
ts: new Date().toISOString(),
label,
command,
cmd_sha256: cmdSha,
exit: exitCode,
duration_s: Math.round((Date.now() - startedMs) / 100) / 10,
};
if (redacted) rec.redacted = true;
const commit = git(["rev-parse", "HEAD"]);
if (commit) {
rec.commit = commit;
rec.tree = git(["rev-parse", "HEAD^{tree}"]);
rec.dirty = (git(["status", "--porcelain", "-uno"]) ?? "") !== "";
rec.wtree = currentWtree();
}
if (logPath) rec.log_path = logPath;
appendJsonl(paths.file, rec, { mode: 0o600 });
try {
chmodSync(paths.file, 0o600);
} catch {}
// Summary line on stderr so calling agents get the exit + log path even
// when the lane ran backgrounded. Never on stdout (stays transparent).
console.error(`gstack-evidence: recorded label=${label} exit=${exitCode} log=${logPath ?? "-"}`);
} catch (e: any) {
warn(`ledger append failed (${e?.message ?? e}) — the command result stands`);
}
}
function cmdCheck(argv: string[]): number {
// Parse: repeated --label, each optionally followed (anywhere later) by its
// own --expect-cmd; pairing is positional — an --expect-cmd binds to the most
// recent --label before it.
const wanted: { label: string; expectCmd?: string }[] = [];
let all = false;
let maxAgeHours: number | undefined;
let allowPaths: string[] = [];
for (let i = 0; i < argv.length; i++) {
const a = argv[i];
if (a === "--label") wanted.push({ label: argv[++i] ?? "" });
else if (a === "--expect-cmd") {
if (wanted.length === 0) {
console.error("gstack-evidence: --expect-cmd requires a preceding --label");
return 2;
}
wanted[wanted.length - 1].expectCmd = argv[++i] ?? "";
} else if (a === "--all") all = true;
else if (a === "--max-age") maxAgeHours = Number(argv[++i]);
else if (a === "--allow-paths") allowPaths = (argv[++i] ?? "").split(",").map((s) => s.trim()).filter(Boolean);
}
if (!all && wanted.length === 0) {
console.error("usage: gstack-evidence check [--label <L> [--expect-cmd <s>]]... | --all [--max-age <hrs>] [--allow-paths <csv>]");
return 2;
}
let records: EvidenceRecord[] = [];
try {
records = readJsonl<EvidenceRecord>(ledgerPath().file);
} catch {
records = [];
}
const labels = all
? [...new Set(records.map((r) => r.label))].map((label) => ({ label, expectCmd: undefined as string | undefined }))
: wanted;
if (all && labels.length === 0) {
console.log("EVIDENCE: MISSING (ledger empty — no labels recorded)");
return 1;
}
const wtreeNow = currentWtree();
let allFresh = true;
for (const { label, expectCmd } of labels) {
const latest = [...records].reverse().find((r) => r.label === label);
if (!latest) {
console.log(`EVIDENCE: MISSING label=${label}`);
allFresh = false;
continue;
}
const detail = `label=${label} exit=${latest.exit} ts=${latest.ts}${latest.log_path ? ` log=${latest.log_path}` : ""}`;
let verdict: "FRESH" | "STALE" = "FRESH";
let reason = "";
if (latest.exit !== 0) {
verdict = "STALE";
reason = "recorded run failed";
} else if (maxAgeHours !== undefined && Number.isFinite(maxAgeHours)) {
const ageMs = Date.now() - Date.parse(latest.ts);
if (!(ageMs >= 0 && ageMs <= maxAgeHours * 3600 * 1000)) {
verdict = "STALE";
reason = `older than ${maxAgeHours}h`;
}
}
if (verdict === "FRESH" && expectCmd !== undefined && sha256(expectCmd) !== latest.cmd_sha256) {
verdict = "STALE";
reason = "command changed (cmd_sha256 mismatch)";
}
if (verdict === "FRESH") {
// Content binding: identical working-tree fingerprint, or a diff confined
// to the allow-list. Any git failure (gc'd tree, not a repo) → STALE —
// never an error into the calling flow.
if (!latest.wtree || !wtreeNow) {
verdict = "STALE";
reason = !latest.wtree ? "record has no content fingerprint" : "current fingerprint unavailable";
} else if (latest.wtree !== wtreeNow) {
const diff = git(["diff", "--name-only", latest.wtree, wtreeNow]);
if (diff === undefined) {
verdict = "STALE";
reason = "content changed (fingerprint diff unavailable)";
} else {
const changed = diff.split("\n").map((s) => s.trim()).filter(Boolean);
const outside = changed.filter((f) => !allowPaths.some((a) => f === a || f.startsWith(a.replace(/\/$/, "") + "/")));
if (changed.length === 0 || outside.length === 0) {
reason = changed.length ? `diff confined to allow-paths (${changed.length} file(s))` : "";
} else {
verdict = "STALE";
reason = `content changed: ${outside.slice(0, 5).join(", ")}${outside.length > 5 ? ", ..." : ""}`;
}
}
}
}
console.log(`EVIDENCE: ${verdict} ${detail}${reason ? ` reason=${reason}` : ""}`);
if (verdict !== "FRESH") allFresh = false;
}
return allFresh ? 0 : 1;
}
const [, , sub, ...rest] = process.argv;
try {
if (sub === "run") {
process.exit(await cmdRun(rest));
} else if (sub === "check") {
process.exit(cmdCheck(rest));
} else {
console.error("usage: gstack-evidence run|check ...");
process.exit(2);
}
} catch (e: any) {
// Never let the wrapper's own failure look like a command failure in a way
// that breaks a skill flow: `run` propagates the child's code from inside
// cmdRun; reaching here means bookkeeping blew up outside it.
warn(`unexpected error: ${e?.message ?? e}`);
process.exit(sub === "check" ? 1 : 1);
}