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

1// nx_hostop_receive_gate.nx -- R1 PROOF: the Host Operator RECEIVES exactly the publisher-verified + STAGED releases.
2// Seeds a publisher ledger with 3 PUBLISHED rows but stages only 2 in liveroot; hostop_receive must count 2 (the
3// 3rd is a phantom -- ledgered but not staged -- and must NOT be apply-ready). File-based. 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 g_mkdir(D: *u8, name: *u8) -> *u8 { let p: *u8 = sys_mmap(700); pub_join(D, name, p); __syscall(83, p as i64, 493, 0, 0, 0, 0); return p }
14
15func main() -> i64 {
16    let pass: *i64 = sys_mmap(8) as *i64; pass[0]=0
17    g_w("=== NX-HOSTOP-RECEIVE GATE (host-operator receives publisher-verified + STAGED releases) ===\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, "hor" as *u8, D); __syscall(83, D as i64, 493, 0, 0, 0, 0)
20    let live: *u8 = g_mkdir(D, "live" as *u8)
21    let led: *u8 = sys_mmap(700); pub_join(D, "pub_ledger.tsv" as *u8, led); g_unlink(led)
22
23    // publisher records 3 PUBLISHED releases...
24    pub_record_ledger(led, "shaA" as *u8, "a.html" as *u8, "site" as *u8)
25    pub_record_ledger(led, "shaB" as *u8, "b.html" as *u8, "site" as *u8)
26    pub_record_ledger(led, "shaC" as *u8, "c.html" as *u8, "site" as *u8)
27    // ...but only a.html and b.html are actually STAGED in liveroot (c.html is a phantom)
28    let la: *u8 = sys_mmap(700); pub_join(live, "a.html" as *u8, la); sv_write(la, "A\n" as *u8)
29    let lb: *u8 = sys_mmap(700); pub_join(live, "b.html" as *u8, lb); sv_write(lb, "B\n" as *u8)
30    let lc: *u8 = sys_mmap(700); pub_join(live, "c.html" as *u8, lc); g_unlink(lc)   // ensure absent
31
32    let ready: i64 = hostop_receive(led, live)
33    let a_ready: i64 = hostop_is_ready(led, live, "a.html" as *u8)
34    let c_ready: i64 = hostop_is_ready(led, live, "c.html" as *u8)
35    let miss: i64 = hostop_is_ready(led, live, "zzz.html" as *u8)
36
37    g_w("  apply-ready count=" as *u8); g_n(ready); g_w("  a.html=" as *u8); g_n(a_ready); g_w(" c.html(phantom)=" as *u8); g_n(c_ready); g_w(" zzz=" as *u8); g_n(miss); g_w("\n" as *u8)
38    g_row("RECEIVE counts publisher-verified + STAGED releases (2: a.html, b.html)" as *u8, (ready==2) as i64, pass)
39    g_row("a specific staged release is apply-ready (a.html==1)" as *u8, a_ready, pass)
40    g_row("LIAR-KILL: a ledgered-but-UNSTAGED phantom is NOT apply-ready (c.html==0), nor an unknown dest" as *u8, ((c_ready==0) as i64) & ((miss==0) as i64), pass)
41
42    g_w("NX-HOSTOP-RECEIVE rows=3 pass=" as *u8); g_n(pass[0])
43    if pass[0]==3 { g_w(" verdict=GREEN\n" as *u8); sys_exit(0); return 0 }
44    g_w(" verdict=RED\n" as *u8); sys_exit(1); return 1
45}
nx_hostop_receive_gate.nx source

`nx_hostop_receive_gate.nx` source
