2sagaco48 1.0.0

package/src/lib/sage/saga-os-v2.ts

@@ -0,0 +1,274 @@
+/**
+ * SAGA-OS v2/v3 — append-only delta over saga-os.ts (SAGA-OS v1).
+ * ---------------------------------------------------------------------------
+ * Source: P9 canonical documents "SAGA-OS v2 (fable.canon.system.v13)" and
+ * "SAGA-OS v3 (SYSTEM v14)". Nothing in v1 is removed, weakened, or renamed.
+ *
+ * Integration policy (per task): Pareto-superior, additive, NO new UI/UX.
+ * This module exposes:
+ *   1. Canonical tables transcribed from the P9 documents (slot-class registry,
+ *      GENESIS-GRID pattern→ending taxonomy, GENRE HELM taxonomy, KALLOS v3
+ *      dimensions + genre base-weight profiles, ONOMASTRATA name classes,
+ *      SAGA-SCREEN audits, production acceptance-test index).
+ *   2. Two REAL, locally-computed functions (no LLM, deterministic):
+ *        - computeKallosLite(): the computable subset of the KALLOS pillars
+ *          (golden-section placement, chapter-length flow proxy, Birkhoff
+ *          M = O/C from prose metrics) as a weighted geometric mean, with
+ *          the P9 v3 caps honored (math regularizers never dominate).
+ *        - auditCastNameConfusion(): the ONOMASTRATA cast-confusion audit
+ *          (first-letter clustering + normalized edit distance ≥ 0.35).
+ *
+ * HONESTY (imported verbatim as invariants from the P9 docs themselves):
+ *  - KALLOS is a deterministic, falsifiable PROXY, never a proven measure of
+ *    human beauty. Scores carry a correlation-not-causation caveat.
+ *  - φ/Fibonacci/1-f/Birkhoff/Zipf are prior mathematics; their transfer to
+ *    narrative is a design hypothesis. Here they are capped diagnostics.
+ *  - The full morphogenesis lattice / prose-compiler / screenplay exporter are
+ *    architecture designs in the source docs ("NOT EXECUTED — no runtime");
+ *    they are integrated as data + honest gap notes, not fake executables.
+ */
+import type { SagaRow } from "./saga-os";
+import type { ProseMetrics } from "./judge";
+
+function parse(raw: string): SagaRow[] {
+  return raw.trim().split(/\n+/).map((l) => l.trim()).filter(Boolean).map((l) => {
+    const [id, name, ...rest] = l.split("|").map((p) => p.trim());
+    return { id, name, note: rest.join(" | ") };
+  });
+}
+
+// ── §2 SAGA-WIRE slot-class registry (v2) ───────────────────────────────────
+export const SAGA_SLOT_CLASSES: SagaRow[] = parse(`
+SC-A | AGENT | characters, nonhuman agents ← ES-C*, ES2-CH/NH, ES-HC*, GS-CHR*
+SC-I | INSTITUTION | pressure systems ← ES-HI*, ES-HM*, GS-I*, all ES-H* civic bands
+SC-S | SETTING | place machines ← ES-HS*, GS-SET*, ES2-SET*, GS-E*
+SC-T | SITUATION | decision engines ← ES-HP*, ES2-SIT*, GS-SIT*, GS-P*
+SC-B | BEAT | scene/micro units ← ES-HB*, ES2-MB*
+SC-L | LAW | empty-space physics; ≤1 foreground; HARNESS mandatory ← ES-L*, ES-F*, ES-O*
+SC-R | RELATION | bond forms ← ES-HR*, ES-HL*, GS-R*, GS-K*
+SC-E | ENDING | closure families ← ES2-END*
+SC-G | GENRE-ENGINE | macro drives ← ES-HG*, GS-A*, GS-MAC*
+SC-M | MOTIF/THEME | recurrence payloads ← ES-HRIT*, motif classes
+SC-N | NARRATOR/POV | narration forms ← ES2-NR*
+SC-W | TWIST/REVEAL | reveal devices ← ES2-TW*
+SC-D | DOCUMENT/RECORD | diegetic memory objects ← GS-D*
+SC-P | PLAYABLE | interactive ← ES-HGAME*
+`);
+
+// ── §4.4 GENESIS-GRID pattern taxonomy → ending families ────────────────────
+export const GENESIS_PATTERNS: SagaRow[] = parse(`
+STILL-LIFE | stable constellation | Maintenance / Stable-Incomplete endings
+OSCILLATOR | period-k repetition | Episodic/serial closure; period = container; FVI = mutation rate
+GLIDER | pattern translating away | Handoff / Custodial / Successor endings
+GLIDER-GUN | emits gliders forever | Open serial: each glider = a spun-off volume
+EXTINCTION | all cells die | Tragedy / Decommission / Counterfactual-closure endings
+METHUSELAH | long chaos → late order | Literary braid with late convergence
+RING | mirrored closure | Ring-composition closure (v3 addition)
+SPLIT | incompatible valid endings | Split-custody ending (v3 addition)
+GARDEN-OF-EDEN | state with no predecessor | FLAG: un-set-up climax = fair-play violation (AUDIT-034)
+`);
+
+// ── §3 GENRE HELM taxonomy (2-level) ────────────────────────────────────────
+export const GENRE_HELM: Record<string, string[]> = {
+  ROMANCE: ["contemporary", "historical", "gothic-romance", "romantic-suspense", "slow-burn", "second-chance"],
+  THRILLER: ["psychological", "legal", "techno", "domestic", "conspiracy", "eco-thriller"],
+  MYSTERY: ["cozy", "hardboiled", "procedural", "locked-room", "inverted", "anti-recognition"],
+  HORROR: ["gothic", "cosmic", "folk", "body", "quiet/liminal", "institutional-dread"],
+  FANTASY: ["epic", "portal", "urban", "low/grounded", "fable-institutional"],
+  SF: ["hard", "social", "infra", "first-contact", "time-structure"],
+  LITERARY: ["domestic", "maintenance", "braided", "autofictional-form", "anti-spectacle"],
+  HISTORICAL: ["epic", "intimate", "counterfactual"],
+  "FAMILY/SAGA": ["generational", "inheritance", "custodial"],
+  "CHILDREN/YA": ["adventure", "school-container", "formula-serial", "coming-of-age"],
+  COMEDY: ["satire", "farce-of-institutions", "gentle"],
+};
+
+// ── §9 KALLOS v3 dimensions + base weights (v2026.08, rows sum to 100) ─────
+export const KALLOS_DIMENSIONS = [
+  "COH", "INT", "TRN", "EMO", "REL", "PAC", "NOV", "THM", "WRL", "PRO", "PAY", "GCT",
+] as const;
+
+export const KALLOS_BASE_WEIGHTS: Record<string, number[]> = {
+  general_fiction: [10, 8, 9, 13, 12, 6, 7, 13, 5, 10, 4, 3],
+  historical: [10, 8, 9, 10, 8, 7, 5, 10, 15, 8, 5, 5],
+  mystery_thriller: [14, 9, 6, 6, 6, 16, 10, 5, 4, 6, 10, 8],
+  romance: [7, 9, 7, 17, 16, 8, 5, 7, 4, 7, 8, 5],
+  romantasy: [8, 8, 8, 13, 12, 10, 7, 6, 11, 5, 6, 6],
+  fantasy: [9, 8, 10, 9, 8, 8, 9, 7, 16, 6, 5, 5],
+  science_fiction: [12, 8, 8, 7, 6, 8, 14, 11, 12, 5, 4, 5],
+  horror: [8, 7, 10, 10, 8, 14, 9, 8, 9, 6, 5, 6],
+  ya_saga: [9, 8, 10, 12, 11, 10, 9, 8, 9, 6, 4, 4],
+  institutional_maintenance: [15, 10, 6, 8, 8, 6, 7, 12, 8, 5, 8, 7],
+};
+
+// ── §10 ONOMASTRATA name classes ────────────────────────────────────────────
+export const ONOMASTRATA_NAME_CLASSES = [
+  "PERSON", "DYNASTY", "HOUSEHOLD", "PLACE", "REGION", "INSTITUTION", "OFFICE",
+  "ARTIFACT", "WEAPON", "VEHICLE", "SPECIES", "EVENT", "RITUAL", "LAW",
+  "DOCUMENT", "WORK_TITLE", "VOLUME_TITLE", "CHAPTER_TITLE",
+] as const;
+
+// ── §13.6 SAGA-SCREEN audits ────────────────────────────────────────────────
+export const SAGA_SCREEN_AUDITS: SagaRow[] = parse(`
+SCR-001 | slugline validity | every scene has valid slugline
+SCR-002 | character cue | every dialogue has character cue
+SCR-003 | causal preservation | all source causal deltas preserved or approved
+SCR-004 | interiority conversion | no unconverted interiority
+SCR-005 | location/time continuity | location/time continuity valid
+SCR-006 | continuity ids | character, wardrobe, prop continuity valid
+SCR-007 | prompt separation | no production prompts leak into spec script
+SCR-008 | merge integrity | merged characters preserve all required causal functions
+SCR-009 | planned compression | adaptation target length achieved through planned compression
+SCR-010 | fountain syntax | Fountain syntax passes
+`);
+
+// ── §17 production acceptance-test index ────────────────────────────────────
+export const SAGA_PRODUCTION_TESTS: SagaRow[] = parse(`
+TEST-001 | determinism | same seed/spec/version produces byte-identical output
+TEST-002 | seed distinctness | different seeds produce causally distinct plans
+TEST-003 | catalog coverage | catalog coverage exactly 100%
+TEST-004 | fail closed | unknown row fails closed
+TEST-005 | id uniqueness | no duplicate IDs
+TEST-006 | no template tokens | no unresolved template tokens
+TEST-007 | no truncation | no incomplete sentence at EOF
+TEST-008 | full realization | all planned scenes realized
+TEST-009 | motive+preconditions | every major action has motive and preconditions
+TEST-010 | knowledge boundary | character knowledge cannot leak
+TEST-011 | custody validity | object custody remains valid
+TEST-012 | geography validity | travel time and geography remain valid
+TEST-013 | exception pricing | world-rule exceptions are priced and logged
+TEST-014 | promise closure | all mandatory promises close or transfer
+TEST-015 | grammar gate | grammar checker returns no blocking findings
+TEST-016 | name confusables | name confusables rejected
+TEST-017 | fountain validity | screenplay Fountain syntax valid
+TEST-018 | interiority preserved | no interiority silently lost in adaptation
+TEST-019 | kallos determinism | KALLOS update deterministic
+TEST-020 | drift caps | audience-weight drift stays within caps
+TEST-021 | crash recovery | crash recovery resumes at exact checkpoint
+TEST-022 | memory ceiling | 13-volume build stays within configured memory ceiling
+TEST-023 | refrain cap | no paragraph hash repeated beyond allowed refrain
+TEST-024 | volume contract | every volume has local closure and series delta
+TEST-025 | human review | human review sample passes declared readability threshold
+`);
+
+// ── REAL FUNCTION 1: KALLOS-lite (computable pillars only, honest) ──────────
+
+export type KallosLiteReport = {
+  phiPlacement: number;      // 0..1 — golden-section proximity of the peak-intensity chapter
+  flowVariance: number;      // 0..1 — chapter-length ebb/flow (proxy for 1/f; NOT a spectral fit)
+  birkhoffM: number;         // 0..1 — order/complexity from prose metrics
+  composite: number;         // 0..100 weighted geometric mean of computable pillars
+  caveat: string;
+};
+
+/**
+ * Computable subset of KALLOS. Pillars requiring an LLM, an audience panel, or
+ * an annotated knowledge graph (EMO, TRN, THM, GCT, …) are NOT fabricated —
+ * they are simply absent from this composite, and the caveat says so. The
+ * existing LLM judge (judge.ts) remains the tool for those humanistic axes.
+ *
+ * φ placement: peak chapter (by word count as intensity proxy) scored against
+ * the 0.618/0.90 craft targets with ±0.08 tolerance.
+ * Flow: coefficient of variation of chapter lengths mapped to 0..1 with an
+ * ideal band (too uniform = monotony; too wild = incoherence).
+ * Birkhoff M = O/C: O from motif closure proxies (distinct-word ratio inverse
+ * + dialogue presence), C from repeated-phrase density + sentence-length spread.
+ */
+export function computeKallosLite(chapterWordCounts: number[], metrics: ProseMetrics): KallosLiteReport {
+  const n = chapterWordCounts.length;
+  const total = chapterWordCounts.reduce((a, b) => a + b, 0);
+
+  // φ placement
+  let phiPlacement = 0.5;
+  if (n >= 3 && total > 0) {
+    let peakIdx = 0;
+    chapterWordCounts.forEach((w, i) => { if (w > chapterWordCounts[peakIdx]) peakIdx = i; });
+    const cum = chapterWordCounts.slice(0, peakIdx + 1).reduce((a, b) => a + b, 0);
+    const pos = cum / total;
+    const dist = Math.min(Math.abs(pos - 0.618), Math.abs(pos - 0.9));
+    phiPlacement = Math.max(0, Math.min(1, 1 - dist / 0.25));
+  }
+
+  // Flow (chapter-length variation)
+  let flowVariance = 0.5;
+  if (n >= 2) {
+    const mean = total / n;
+    const sd = Math.sqrt(chapterWordCounts.reduce((a, w) => a + (w - mean) ** 2, 0) / n);
+    const cv = mean > 0 ? sd / mean : 0;
+    // ideal band ~0.10–0.35; falls off outside
+    flowVariance = cv < 0.1 ? cv / 0.1 * 0.7 : cv <= 0.35 ? 1 : Math.max(0.2, 1 - (cv - 0.35));
+  }
+
+  // Birkhoff M = O/C (normalized)
+  const order = Math.min(1, metrics.distinctWordRatio * 1.4 + metrics.dialogueRatio * 0.4);
+  const complexity = Math.min(1, 0.2 + metrics.repeatedPhraseDensity * 6 + Math.min(0.4, metrics.sentenceLenStdev / 30));
+  const birkhoffM = Math.max(0.01, Math.min(1, order / Math.max(0.2, complexity) / 2));
+
+  // Weighted geometric mean (weights: flow .4, birkhoff .4, phi .2 — φ capped low per v3 §9.5)
+  const composite = Math.round(
+    100 * Math.exp(0.2 * Math.log(Math.max(0.01, phiPlacement)) + 0.4 * Math.log(Math.max(0.01, flowVariance)) + 0.4 * Math.log(Math.max(0.01, birkhoffM))),
+  );
+
+  return {
+    phiPlacement: Math.round(phiPlacement * 100) / 100,
+    flowVariance: Math.round(flowVariance * 100) / 100,
+    birkhoffM: Math.round(birkhoffM * 100) / 100,
+    composite,
+    caveat: "KALLOS-lite: computable structural pillars only (φ placement, flow, Birkhoff M). Humanistic axes (emotion, transportation, theme, genre contract) require the LLM judge or human panel; correlation with beauty is a hypothesis, not a verdict.",
+  };
+}
+
+// ── REAL FUNCTION 2: ONOMASTRATA cast-confusion audit (§10.4) ───────────────
+
+export type NameConfusionFinding = { a: string; b: string; issue: string };
+
+function editDistance(a: string, b: string): number {
+  const m = a.length, n = b.length;
+  const d: number[][] = Array.from({ length: m + 1 }, (_, i) => [i, ...Array(n).fill(0)]);
+  for (let j = 0; j <= n; j++) d[0][j] = j;
+  for (let i = 1; i <= m; i++) for (let j = 1; j <= n; j++) {
+    d[i][j] = Math.min(d[i - 1][j] + 1, d[i][j - 1] + 1, d[i - 1][j - 1] + (a[i - 1] === b[j - 1] ? 0 : 1));
+  }
+  return d[m][n];
+}
+
+/**
+ * Real, deterministic cast-name confusion audit per ONOMASTRATA §10.4:
+ * - same first letter among >2 major names → flagged
+ * - normalized edit distance < 0.35 between any pair → flagged
+ */
+export function auditCastNameConfusion(names: string[]): NameConfusionFinding[] {
+  const findings: NameConfusionFinding[] = [];
+  const norm = names.map((s) => s.trim().toLowerCase()).filter(Boolean);
+
+  const byInitial = new Map<string, string[]>();
+  for (const nm of norm) {
+    const k = nm[0] ?? "";
+    byInitial.set(k, [...(byInitial.get(k) ?? []), nm]);
+  }
+  for (const [initial, group] of byInitial) {
+    if (group.length > 2) {
+      findings.push({ a: group[0], b: group.slice(1).join(", "), issue: `>2 major names share first letter "${initial}"` });
+    }
+  }
+
+  for (let i = 0; i < norm.length; i++) for (let j = i + 1; j < norm.length; j++) {
+    const maxLen = Math.max(norm[i].length, norm[j].length);
+    if (maxLen === 0) continue;
+    const nd = editDistance(norm[i], norm[j]) / maxLen;
+    if (nd < 0.35) findings.push({ a: norm[i], b: norm[j], issue: `normalized edit distance ${nd.toFixed(2)} < 0.35` });
+  }
+  return findings;
+}
+
+export const SAGA_OS_V2_VERSION = "SAGA-OS v2/v3 (SYSTEM v13/v14) — tables + computable KALLOS-lite + ONOMASTRATA cast audit";
+
+/** Honest gap ledger imported from the P9 docs themselves. */
+export const SAGA_OS_V3_UNEXECUTED = [
+  "Per-row compiled catalog manifest (per-row wiring overrides) — architecture only",
+  "MORPHOGENESIS-LATTICE runtime (CA evolution engine) — design only, no runtime",
+  "PROSE-COMPILER (offline non-LLM realizer) — design only; grammar ceiling declared",
+  "SAGA-SCREEN Fountain exporter — design only",
+  "KALLOS-LIVE audience-panel calibration — requires humans",
+  "Full KALLOS (12 empirical dimensions) — requires LLM judge or panel; only KALLOS-lite computed locally",
+] as const;