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

1// nx_hostop_recover_gate.nx -- R10a PROOF: wedge-aware host recovery (hostop_recover = pr_recover). Seeds an APM
2// metrics file with a WEDGED endpoint + a fast one; asserts a recovery request is emitted ONLY for the wedged daemon,
3// idempotently. File-based (flock, no fork). license_tier: ORIGINAL  expect_exit: 0
4import "nx_syscalls.nx"
5import "nx_hostop.nx"
6import "nx_runpath.nx"
7
8func g_w(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} sys_write(1,s,n); return 0 }
9func g_n(v: i64) -> i64 { var m: i64=v; if m<0{g_w("-" as *u8);m=0-m} let t:*u8=sys_mmap(24); var k:i64=0; if m==0{t[0]=48 as u8;k=1} while m>0{t[k]=(48+(m%10)) as u8;m=m/10;k=k+1} var i:i64=0; let o:*u8=sys_mmap(24); while i<k{o[i]=t[k-1-i];i=i+1} sys_write(1,o,k); return 0 }
10func g_row(id: *u8, ok: i64, pass: *i64) -> i64 { g_w("  " as *u8); g_w(id); g_w(": " as *u8); if ok==1 { g_w("OK\n" as *u8); pass[0]=pass[0]+1 } else { g_w("FAIL\n" as *u8) } return 0 }
11func sv_write(path: *u8, content: *u8) -> i64 { let fd: i64 = sys_openat_wr(path, 0x1a4); if fd<0 { return 0 } var n: i64=0; while content[n]!=(0 as u8){n=n+1} sys_write(fd, content, n); sys_close(fd); return 1 }
12func g_unlink(path: *u8) -> i64 { __syscall(87, path as i64, 0, 0, 0, 0, 0); return 0 }
13func file_has(path: *u8, needle: *u8) -> i64 { let lp: *i64 = sys_mmap(8) as *i64; let d: *u8 = sys_read_file(path, lp); if (d as i64)==0 { return 0 } return pub_substr(d, lp[0], needle) }
14
15func main() -> i64 {
16    let pass: *i64 = sys_mmap(8) as *i64; pass[0]=0
17    g_w("=== NX-HOSTOP-RECOVER GATE (wedge-aware host recovery; APM-fed, idempotent) ===\n" as *u8)
18    let wsid: *u8 = sys_mmap(64); rp_wsid(wsid); rp_ensure(wsid)
19    let D: *u8 = sys_mmap(512); rp_path(wsid, "hrc" as *u8, D); __syscall(83, D as i64, 493, 0, 0, 0, 0)
20    let met: *u8 = sys_mmap(700); pub_join(D, "apm.tsv" as *u8, met)
21    let q: *u8 = sys_mmap(700); pub_join(D, "recovery.tsv" as *u8, q); g_unlink(q)
22    // APM rows (10 fields; field2=url, field9=max_ms): /wiki WEDGED (20000ms) + /gallery FAST (42ms)
23    sv_write(met, "t\th\t/wiki/x\t200\t9\t1\t1\t1\t1\t20000\nt\th\t/gallery/y\t200\t9\t1\t1\t1\t1\t42\n" as *u8)
24
25    let emitted: i64 = hostop_recover(met, q, 5000)              // wedge>=5000ms
26    let wedged_req: i64 = file_has(q, "nx_wiki_gw.elf" as *u8)   // the wedged /wiki daemon
27    let fast_not: i64 = (file_has(q, "nx_gallery_gateway.elf" as *u8)==0) as i64   // the fast /gallery NOT requested
28    let again: i64 = hostop_recover(met, q, 5000)               // idempotent re-run
29
30    g_w("  emitted=" as *u8); g_n(emitted); g_w(" wedged_req(/wiki)=" as *u8); g_n(wedged_req); g_w(" fast_not(/gallery)=" as *u8); g_n(fast_not); g_w(" re-run=" as *u8); g_n(again); g_w("\n" as *u8)
31    g_row("RECOVER emits a request for the WEDGED daemon only (/wiki->nx_wiki_gw.elf; fast /gallery NOT requested)" as *u8, ((emitted==1) as i64) & wedged_req & fast_not, pass)
32    g_row("IDEMPOTENT: re-run emits 0 (already pending)" as *u8, (again==0) as i64, pass)
33
34    g_w("NX-HOSTOP-RECOVER rows=2 pass=" as *u8); g_n(pass[0])
35    if pass[0]==2 { g_w(" verdict=GREEN\n" as *u8); sys_exit(0); return 0 }
36    g_w(" verdict=RED\n" as *u8); sys_exit(1); return 1
37}
nx_hostop_recover_gate.nx source

`nx_hostop_recover_gate.nx` source
