Brummel
176821c2e7
The 3020-line docs/DESIGN.md is replaced by the design/ ledger:
design/INDEX.md (sole addressable spine, typed Contracts+Models tables,
polymorphic links — prose file OR authoritative source //!), 14
design/contracts/*.md test-linked invariants + 3 source-link-only
contracts (mangling/env-construction/qualified-xref, no prose file —
code is SoT), 5 design/models/*.md whitepapers, and
docs/journals/2026-05-19-design-decision-records.md (the
relitigation-guard archive — every why/rejected/does-not-do/rollback/
empirical ### moved out at ###-granularity). Clean cut: git rm
docs/DESIGN.md, no stub.
RED-first crates/ailang-core/tests/design_index_pin.rs — the 4-clause
anti-regrowth spine (DESIGN.md-gone / every-INDEX-link-resolves /
every-contract-names-a-resolvable-ratifier /
contracts-carry-no-decision-record-prose) — demonstrably RED before,
GREEN after. Build-atomic by task ordering: design_schema_drift.rs's
include_str! (the only compile-time consumer) retargeted to
design/contracts/data-model.md BEFORE the deletion; its
## Data model/## Pipeline slicer dropped (a simplification the split
enables). 2 NoInstance diagnostics + 2 lockstep E2Es retargeted to
design/contracts/{float-semantics,typeclasses}.md. ~12 agent reading
lists + 5 SKILL bodies + CLAUDE.md + skills/README.md + ~25
code/C/.ail/spec comment xrefs retargeted; OQ7 dangling 'Iter 13b'
cite deleted (no forward target — a pointer would be fiction).
honesty-rule.md rewritten so the rule names the new home
(rationale->journals), resolving the recon-found internal
contradiction; the two docs_honesty_pin.rs:70,72 pinned phrases kept
verbatim+contiguous.
Boss-verified independently: cargo test --workspace 646 passed /
0 failed; design_index_pin 4/4; acceptance grep CLEAN of live
DESIGN.md refs (residuals = only the spec-mandated clause-4
deletion-enforcer). 2 DONE_WITH_CONCERNS routed to the mandatory
milestone-close audit: (a) str-abi.md:23 '(iter str-concat,
2026-05-13)' provenance stamp trips advisory architect_sweeps Sweep-1
— Boss-confirmed byte-identical to DESIGN.md@deeffb1:2062-2065, a
faithfully-migrated PRE-EXISTING anchor (regexes verbatim, only path
retargeted), NOT split-introduced — RATIFY-or-tidy at audit; (b) a
now stale-direction intra-prose 'see Str ABI below' cross-ref in
float-semantics.md — audit-adjudication candidate. Plan defect noted:
Task 9 Step 4's verbatim acceptance grep used a ^./ anchor not
matching the system's grep -rIn output; substance re-verified CLEAN.
Spec grounding-check PASS x2. Journals INDEX + decision-records
pointer appended (Boss-only).
76 lines
3.1 KiB
C
76 lines
3.1 KiB
C
/* Embedding-ABI M3 two-record-param round-trip C host (own + borrow
|
|
* via a compile-time -DBORROW switch). Backfill: M3 shipped fixtures
|
|
* only ever push a *scalar* per-tick sample; this host pushes a
|
|
* single-ctor all-scalar *record* `Tick` as the per-call payload —
|
|
* the actual minimal data-server binding shape. Frozen value layout
|
|
* (design/contracts/frozen-value-layout.md):
|
|
*
|
|
* State (24-byte payload):
|
|
* p - 8 .. p uint64_t refcount header (set to 1 by ailang_rc_alloc)
|
|
* p + 0 int64_t constructor tag (single ctor -> 0)
|
|
* p + 8 IEEE-754 double field 0 = Float acc
|
|
* p + 16 int64_t field 1 = Int n
|
|
* Tick (8-byte payload):
|
|
* p - 8 .. p uint64_t refcount header (set to 1 by ailang_rc_alloc)
|
|
* p + 0 int64_t constructor tag (single ctor -> 0)
|
|
* p + 8 IEEE-754 double field 0 = Float px
|
|
*
|
|
* own : the kernel consumes BOTH `(own (con State))` and
|
|
* `(own (con Tick))` inputs (drop at return); the host must NOT
|
|
* touch/dec either after the call.
|
|
* borrow: `State` is `(own ...)` (kernel-consumed, as own); `Tick` is
|
|
* `(borrow (con Tick))` — the kernel does NOT consume it; the
|
|
* host retains the Tick and dec's it itself each iter.
|
|
* In both modes the return is host-owned and host-freed.
|
|
*/
|
|
#include <stdint.h>
|
|
#include <assert.h>
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
|
|
typedef struct ailang_ctx ailang_ctx_t;
|
|
extern ailang_ctx_t *ailang_ctx_new(void);
|
|
extern void ailang_ctx_free(ailang_ctx_t *);
|
|
extern void *ailang_rc_alloc(size_t);
|
|
extern void ailang_rc_dec(void *);
|
|
extern void *backtest_step_tick(ailang_ctx_t *ctx, void *st, void *tick);
|
|
|
|
static void *make_state(double acc, int64_t n) {
|
|
void *p = ailang_rc_alloc(8 + 2 * 8); /* header=1 set by runtime */
|
|
*(int64_t *)((char *)p + 0) = 0; /* single-ctor tag = 0 */
|
|
memcpy((char *)p + 8, &acc, 8); /* Float acc @ 8 */
|
|
*(int64_t *)((char *)p + 16) = n; /* Int n @ 16 */
|
|
return p;
|
|
}
|
|
|
|
static void *make_tick(double px) {
|
|
void *p = ailang_rc_alloc(8 + 1 * 8); /* header=1 set by runtime */
|
|
*(int64_t *)((char *)p + 0) = 0; /* single-ctor tag = 0 */
|
|
memcpy((char *)p + 8, &px, 8); /* Float px @ 8 */
|
|
return p;
|
|
}
|
|
|
|
int main(void) {
|
|
ailang_ctx_t *ctx = ailang_ctx_new();
|
|
void *st = make_state(0.0, 0);
|
|
double expected = 0.0;
|
|
for (int i = 0; i < 1000000; i++) {
|
|
double px = (double)(i & 7);
|
|
expected += px;
|
|
void *tick = make_tick(px);
|
|
void *next = backtest_step_tick(ctx, st, tick);
|
|
#ifdef BORROW
|
|
ailang_rc_dec(tick); /* borrow: host retained Tick, frees it */
|
|
#endif
|
|
/* own: kernel consumed `st` AND `tick`; do NOT dec them here. */
|
|
st = next; /* return is host-owned */
|
|
}
|
|
double acc; memcpy(&acc, (char *)st + 8, 8);
|
|
int64_t n = *(int64_t *)((char *)st + 16);
|
|
assert(n == 1000000);
|
|
assert(acc == expected);
|
|
ailang_rc_dec(st); /* host frees the final return */
|
|
ailang_ctx_free(ctx); /* AILANG_RC_STATS readback fires here */
|
|
return 0;
|
|
}
|