@githolon/dsl 0.33.0 → 0.34.0

package/src/value_object.ts

@@ -411,3 +411,46 @@ export function collectValueObjectDescriptors(
   }
   return [...byName.values()].sort((a, b) => (a.name < b.name ? -1 : a.name > b.name ? 1 : 0));
 }
+
+/**
+ * ONE VO↔FIELD ATTACHMENT (the IR pointer): aggregate `aggregate`'s field `field`
+ * stores value object `vo`. Rides the additive `nomosValueObjects` USD key as
+ * `usages` so tooling (the scene projector, the explorer glyphs) can attach a VO
+ * molecule to the exact field that carries it. NEVER in the canonical
+ * manifest/domainHash — a VO field's wire schema stays a plain `jsonObject` leaf.
+ */
+export interface ValueObjectUsage {
+  readonly aggregate: string;
+  readonly field: string;
+  readonly vo: string;
+}
+
+/**
+ * Collect the sorted VO↔field usage pointers of a set of aggregates (one entry per
+ * VO-typed field; sorted by aggregate then field — byte-deterministic). Returns `[]`
+ * when no field carries a VO — the omit-when-empty input to the `usages` entry of
+ * the `nomosValueObjects` era key.
+ */
+export function collectValueObjectUsages(
+  aggregates: readonly { id: string; fields: Record<string, Field> }[],
+): ValueObjectUsage[] {
+  const usages: ValueObjectUsage[] = [];
+  for (const agg of aggregates) {
+    for (const fieldName of Object.keys(agg.fields)) {
+      const meta = agg.fields[fieldName]!.valueObject;
+      if (meta === undefined) continue;
+      usages.push({ aggregate: agg.id, field: fieldName, vo: meta.name });
+    }
+  }
+  return usages.sort((a, b) =>
+    a.aggregate !== b.aggregate
+      ? a.aggregate < b.aggregate
+        ? -1
+        : 1
+      : a.field < b.field
+        ? -1
+        : a.field > b.field
+          ? 1
+          : 0,
+  );
+}

package/src/wire_encode.ts

@@ -20,9 +20,16 @@
  * LATER coordinated migration — we target the current serde_json shape now.
  */
 import { encodeDriver } from "./drivers.js";
+import { __qualifyAggregateType } from "./framework/relations.js";
 import { __resetAuthoring, __drainAuthoring } from "./authoring.js";
 import { __resetReads, __drainReads } from "./read.js";
 import { __resetBirths, __drainBirths } from "./births.js";
+import {
+  birthMeterSubject,
+  birthMeterBornAt,
+  captureBirthMeterReads,
+  planBirthRecordOps,
+} from "./birth_meter.js";
 import type { AggregateHandle } from "./aggregate.js";
 import type { Field, EvidenceRefValue } from "./fields.js";
 import type { Directive, ReferentialMarker } from "./directive.js";
@@ -203,13 +210,33 @@ export function executeDirectiveToIntent<P>(
   __resetReads();
   __resetBirths();
   const returned = directive.plan(parsed, ctx);
-  const planned = [...__drainAuthoring(), ...returned];
-  const reads = __drainReads();
   // THE BIRTH EFFECT (G3 — birth is a declared kernel primitive): a `.births()` directive's plan records
   // the child's genesis recipe via `birth(recipe)`; it rides the intent as a DECLARED output (like a
   // captured read), drained here. Empty for every non-birth directive — OMITTED below so a birth-free
   // intent is byte-identical (the era rule).
   const births = __drainBirths();
+  // METERED BIRTH (slice A — architecture/metered_birth_and_attested_reads.md). For every PLANNED birth,
+  // the library — HERE, in the ONE plan-output assembly both lanes (client authoring + the sealed engine's
+  // `plan`) funnel through, so the halves are byte-identical by construction — does two things the tenant
+  // never writes:
+  //   A1 THE AUTO-RECORD: append the `NomosBirthRecord` field ops (deterministic id per child; Lww upsert)
+  //      to the SAME intent that carries the birth effect. The kernel's `nomosBirthRecordGate` era arm
+  //      refuses a new-era birth whose intent carries no record — this is what satisfies it.
+  //   A2 THE AUTO-CAPTURE: capture the three meter reads (records-by-subject + grant + policy — the #58
+  //      lane `.births()` auto-declares) so the synthesized birth-quota invariant judges over COMMITTED,
+  //      CAS-re-derived pre-apply state on every lane.
+  // A `.births()` dispatch that planned NO birth (e.g. birthChild without a genesis) appends/captures
+  // nothing — byte-identical to before (the era rule); pre-era bundles ship an older lump and are untouched.
+  const meterOps: PlannedOp[] = [];
+  if (births.length > 0) {
+    const payloadRecord = parsed as unknown as Record<string, unknown>;
+    const subject = birthMeterSubject(payloadRecord);
+    captureBirthMeterReads(subject);
+    const bornAt = birthMeterBornAt(payloadRecord);
+    for (const b of births) meterOps.push(...planBirthRecordOps(b, subject, bornAt));
+  }
+  const planned = [...__drainAuthoring(), ...returned, ...meterOps];
+  const reads = __drainReads();
 
   // Partition the plan output: STRIKE ops route onto the intent's `strikes` channel
   // (the kernel's strikeout / revert facet, folded by parity); FIELD ops group into
@@ -293,7 +320,11 @@ export function executeDirectiveToIntent<P>(
         aggregate,
         marker: eventMarker,
         ops: [
-          { field: "__type", op: { Set: { Str: ty } } },
+          // READ-PROJECTION NAMESPACING: the stamped TYPE is qualified by the dispatching domain iff
+          // the domain declares it non-global — so the folded row's `__type` equals the qualified
+          // schema key the SAME compile wrote (rows and read manifest agree by construction). Outside
+          // a plan dispatch (codegen probes) the type passes through bare.
+          { field: "__type", op: { Set: { Str: __qualifyAggregateType(ty) } } },
           { field: "__id", op: { Set: { Str: aggregate } } },
           ...ops,
         ],