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

1// nx_pub_daemon_gate.nx -- R19 PROOF: continuous drain (pub_run_drain) on an ISOLATED queue.
2//   DRAIN        -- ships all ready requests then STOPS when a cycle publishes 0 (queue drained).
3//   IDEMPOTENT   -- a second drain publishes 0 (everything already in the ledger).
4//   NEW ARRIVAL  -- a request submitted after drain is shipped by the next drain (exactly 1 more).
5// File-based (governed deploy, no forks). license_tier: ORIGINAL  expect_exit: 0
6import "nx_syscalls.nx"
7import "nx_publisher.nx"
8import "nx_runpath.nx"
9
10func 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 }
11func 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 }
12func 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 }
13func 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 }
14func g_unlink(path: *u8) -> i64 { __syscall(87, path as i64, 0, 0, 0, 0, 0); return 0 }
15func 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 }
16
17func main() -> i64 {
18    let pass: *i64 = sys_mmap(8) as *i64; pass[0]=0
19    g_w("=== NX-PUB-DAEMON GATE (continuous drain: ship-all -> idempotent -> pick-up-new-arrival) ===\n" as *u8)
20    let wsid: *u8 = sys_mmap(64); rp_wsid(wsid); rp_ensure(wsid)
21    let D: *u8 = sys_mmap(512); rp_path(wsid, "pdmn" as *u8, D); __syscall(83, D as i64, 493, 0, 0, 0, 0)
22    let stg: *u8 = g_mkdir(D, "stage" as *u8); let live: *u8 = g_mkdir(D, "live" as *u8); let appr: *u8 = g_mkdir(D, "appr" as *u8)
23    let q: *u8 = sys_mmap(700); pub_join(D, "queue.tsv" as *u8, q); g_unlink(q)
24    let led: *u8 = sys_mmap(700); pub_join(D, "ledger.tsv" as *u8, led); g_unlink(led)
25
26    let s1: *u8 = sys_mmap(700); pub_join(D, "s1.src" as *u8, s1); sv_write(s1, "D-AAA\n" as *u8)
27    let s2: *u8 = sys_mmap(700); pub_join(D, "s2.src" as *u8, s2); sv_write(s2, "D-BBB\n" as *u8)
28    let s3: *u8 = sys_mmap(700); pub_join(D, "s3.src" as *u8, s3); sv_write(s3, "D-CCC\n" as *u8)
29    let s4: *u8 = sys_mmap(700); pub_join(D, "s4.src" as *u8, s4); sv_write(s4, "D-DDD\n" as *u8)
30    pub_submit_to(q, s1, "a.html" as *u8, "games" as *u8, "ws" as *u8, "internal" as *u8)
31    pub_submit_to(q, s2, "b.html" as *u8, "games" as *u8, "ws" as *u8, "internal" as *u8)
32    pub_submit_to(q, s3, "c.html" as *u8, "games" as *u8, "ws" as *u8, "internal" as *u8)
33
34    let drain1: i64 = pub_run_drain(q, led, stg, live, "pdmn_lock" as *u8, appr, 10, 0)
35    let drain2: i64 = pub_run_drain(q, led, stg, live, "pdmn_lock" as *u8, appr, 10, 0)
36    pub_submit_to(q, s4, "d.html" as *u8, "games" as *u8, "ws" as *u8, "internal" as *u8)   // new arrival
37    let drain3: i64 = pub_run_drain(q, led, stg, live, "pdmn_lock" as *u8, appr, 10, 0)
38    let led_n: i64 = pub_count_ledger(led)
39
40    g_w("  drain1(ship-all)=" as *u8); g_n(drain1); g_w("  drain2(idempotent)=" as *u8); g_n(drain2); g_w("  drain3(new-arrival)=" as *u8); g_n(drain3); g_w("  ledger=" as *u8); g_n(led_n); g_w("\n" as *u8)
41    g_row("DRAIN ships all 3 ready then stops when drained (drain1==3)" as *u8, (drain1==3) as i64, pass)
42    g_row("IDEMPOTENT: re-drain publishes 0 (all in ledger)" as *u8, (drain2==0) as i64, pass)
43    g_row("NEW ARRIVAL: a later submit is shipped by the next drain (drain3==1, ledger==4)" as *u8, ((drain3==1) as i64) & ((led_n==4) as i64), pass)
44
45    g_w("NX-PUB-DAEMON rows=3 pass=" as *u8); g_n(pass[0])
46    if pass[0]==3 { g_w(" verdict=GREEN\n" as *u8); sys_exit(0); return 0 }
47    g_w(" verdict=RED\n" as *u8); sys_exit(1); return 1
48}
nx_pub_daemon_gate.nx source

`nx_pub_daemon_gate.nx` source
