code wiki / _hdl_build / nx_pattern_emit89_register.nx
`nx_pattern_emit89_register.nx` source

1// nx_pattern_emit89_register.nx -- records STRUCT_WALK (shape 13) + IO_CONTRACT lane (shape 14)
2// = race-1's growth rungs LANDED, proven by race 2 (team lane fully emitted, TEAM-MATCHES again).
3// Engineer gate = the authored _pe_chwalk test green. Librarian alloc + dual-write.
4// license_tier: ORIGINAL
5import "nx_cap_register.nx"
6import "nx_capreg_librarian.nx"
7import "nx_syscalls.nx"
8
9func pe89r_run(path: *u8) -> i64 {
10    let pid: i64 = sys_fork()
11    if pid == 0 {
12        let dn: i64 = sys_openat_wr("/dev/null" as *u8, 0x1a4)
13        if dn >= 0 { sys_dup3(dn, 1, 0); sys_dup3(dn, 2, 0) }
14        let argv: *i64 = sys_mmap(32) as *i64; argv[0] = path as i64; argv[1] = 0
15        let envp: *i64 = sys_mmap(16) as *i64; envp[0] = 0
16        sys_execve(path, argv, envp); sys_exit(127)
17    }
18    let st: *i64 = sys_mmap(16) as *i64
19    sys_wait4(pid, st, 0)
20    return st[0]
21}
22
23func main() -> i64 {
24    var allok: i64 = 1
25    if pe89r_run("/tmp/cwt.elf" as *u8) != 0 { allok = 0 }
26    cr_w(1, "ENGINEER: team-authored struct-walk test pass=" as *u8); cr_wn(1, allok); cr_w(1, "\n" as *u8)
27    let eng: i64 = ig_engineer(1, 1, 1, allok)
28    let dec: i64 = ig_decision(eng, ig_council(eng, 1, 1, 2), 1)
29    if dec != IG_INGEST { cr_w(1, "HELD\n" as *u8); sys_exit(1) }
30    if cr_can_register(5, 2, 6, dec) != 1 { cr_w(1, "REFUSED\n" as *u8); sys_exit(1) }
31    let lp: *u8 = "/tmp/nishi_cap_registry.log" as *u8
32    let jp: *u8 = "knowledge/status/cap_registry_durable.log" as *u8
33    let idx: i64 = cl_next_idx(lp, jp)
34    let ok: i64 = cl_register_dual(lp, jp, idx, 5,
35        2, "SELF PATTERN-EMIT-8+9 STRUCT_WALK + IO_CONTRACT (shapes 13+14) = race-1's growth rungs LANDED, proven by AUTONOMY RACE 2: TEAM-MATCHES 1000v1000 with the team lane 100 percent EMITTED SOURCE. STRUCT_WALK (emit8): authors fixed+var field-sequence walkers from a field TABLE (FIXED(w)/VAR8/VAR16/TAIL16; per-field bounds checks baked at emit time; truncation REFUSED -1); rails: unknown kind / tail-not-last / zero width REFUSED; authored _pe_chwalk over the ClientHello table -> on the REAL emitted CH locates the ext block at off=49 len=108 BYTE-IDENTICAL to Claude's hand walk (stage2 = team decomposition). IO_CONTRACT (emit9): authors the complete race-lane program (read staged input -> call WIRE_TLV core -> print key=value census incl. the refused branch) from types+labels tables; empty-spec REFUSED; authored _pe_lane_tlv over _pe_tlv. RACE 2 (same Referee, 12 rows/lane, shipped-parser oracle): team 12/12 vs claude 12/12 -- the team now authors CORE+DECOMPOSITION+BOILERPLATE hands-off; Claude touch on the team lane = 0 lines. REMAINING rung to run races Claude-free: RACE_HARNESS (manifest-driven generic referee + per-assignment oracle stager). Extends emit chain ..emit7/CAPREG273" as *u8)
36    if ok != 1 { cr_w(1, "DUAL-WRITE FAILED\n" as *u8); sys_exit(1) }
37    cr_w(1, "CAPREG idx=" as *u8); cr_wn(1, idx); cr_w(1, " REGISTERED -- STRUCT_WALK + IO_CONTRACT landed, race 2 TEAM-MATCHES\n" as *u8)
38    sys_exit(0)
39    return 0
40}
nx_pattern_emit89_register.nx source

`nx_pattern_emit89_register.nx` source
