code wiki / _hdl_build / nx_lane_register.nx
nx_lane_register.nx source
↩ module page · 31 lines · 2419 B
1// nx_lane_register.nx -- records X-XL-002. Gate re-run GREEN at register time.
2// license_tier: ORIGINAL
3import "nx_cap_register.nx"
4import "nx_capreg_librarian.nx"
5import "nx_syscalls.nx"
6func lr_run(path: *u8) -> i64 {
7 let pid: i64 = sys_fork()
8 if pid == 0 {
9 let dn: i64 = sys_openat_wr("/dev/null" as *u8, 0x1a4)
10 if dn >= 0 { sys_dup3(dn, 1, 0); sys_dup3(dn, 2, 0) }
11 let argv: *i64 = sys_mmap(32) as *i64; argv[0] = path as i64; argv[1] = 0
12 let envp: *i64 = sys_mmap(16) as *i64; envp[0] = 0
13 sys_execve(path, argv, envp); sys_exit(127)
14 }
15 let st: *i64 = sys_mmap(16) as *i64
16 sys_wait4(pid, st, 0)
17 if (st[0] % 128) != 0 { return 0 - 1 }
18 return (st[0] >> 8) & 0xff
19}
20func main() -> i64 {
21 let lp: *u8 = "/tmp/nishi_cap_registry.log" as *u8
22 let jp: *u8 = "knowledge/status/cap_registry_durable.log" as *u8
23 if lr_run("/tmp/_express_lane_gate_authored.sov.elf" as *u8) != 0 { cr_w(1, "ELGATE not green -- refuse register\n" as *u8); sys_exit(1) }
24 let idx: i64 = cl_next_idx(lp, jp)
25 let ok: i64 = cl_register_dual(lp, jp, idx, 5,
26 2, "SELF EXPRESS-LANE rung1 (X-XL-002, operator 2026-06-12: the team is NOT a black box; dialogue not fence-throwing; tutor tokens for NOVEL work not janitorial) -- nx_express_lane: ANY tutor model appends model-tagged verb rows to knowledge/channel/tutor_in.tsv; the lane consumes EXACTLY ONCE (ACK key=epoch:verb:id cursor in team_out), applies MARKWIRE evidence pointers atomically (sibling-tmp+renameat -- the gate CAUGHT the cross-filesystem rename lie on first run K1 BAD, fixed + rc-checked), ACKs every row, then writes the SITREP block: PULSE-VERDICT + EXAMINER-ARCS + AUTMETER + PAPERGEN-SUM lines VERBATIM + queue counts = the one-read picture. ELGATE 5/5 (markwire-applies, exactly-once on re-run, answer-acked, sitrep-present, live). Pulse step (new tp_tail_b split: rc=6 function-size landmine respected) + EXPRESS-LANE examiner arc. DOGFOOD PROVEN: the lane consumed its own X-XL-002 MARKWIRE during the beat it shipped in. First cargo: 22 model-tagged ANSWERs + threading rungs X-XL-007/008 filed (QUESTION/REPLY re=key, organs ask questions, operator seat on the same wire)" as *u8)
27 if ok != 1 { cr_w(1, "DUAL-WRITE FAILED\n" as *u8); sys_exit(1) }
28 cr_w(1, "CAPREG idx=" as *u8); cr_wn(1, idx); cr_w(1, " EXPRESS-LANE registered\n" as *u8)
29 sys_exit(0)
30 return 0
31}