nx_ad_h2h_gate.nx source

1// nx_ad_h2h_gate.nx -- GATE (runnable) for the measured head-to-head comparators (nx_ad_h2h). Proves 2// the raw measured values AND that we strictly beat the incumbent baseline on each named axis, AND 3// that the comparator is a genuine liar-kill (equal/worse -> no beat): 4// DELIVERY ours third-party-JS=0, incumbent(GPT)=1 -> beat 5// TRANSPARENCY ours external-seller-domain=0, incumbent=1 -> beat 6// SIGNUP ours cost-on-miss=$0, incumbent(CPM)>0 -> beat 7// liar-kill beats_lower(1,1)=0, beats_lower(2,1)=0, beats_lower(0,1)=1 8// Evidence -> knowledge/status/ad_h2h.log (H2HGATE ... verdict=GREEN). license_tier: ORIGINAL 9import "nx_ad_h2h.nx" 10import "nx_syscalls.nx" 11 12const HG_LOG: *u8 = "knowledge/status/ad_h2h.log" 13 14func hg_w(fd: i64, s: *u8) -> i64 { var n: i64 = 0; while s[n] != (0 as u8) { n = n + 1 } sys_write(fd, s, n); return 0 } 15func hg_wn(fd: i64, v: i64) -> i64 { let bb: *u8 = sys_mmap(28); var m: i64=v; if m<0 {m=0-m; sys_write(fd,"-" as *u8,1)}; let t: *u8 = sys_mmap(28); var k: i64=0; if m==0 {t[0]=48;k=1}; while m>0 {t[k]=(48+(m%10)) as u8; m=m/10; k=k+1}; var i: i64=0; while i<k {bb[i]=t[k-1-i]; i=i+1}; sys_write(fd, bb, k); return 0 } 16 17func main() -> i64 { 18 let d_ours: i64 = h2h_delivery_ours() 19 let d_inc: i64 = h2h_delivery_incumbent() 20 let d: i64 = h2h_delivery() 21 let t_ours: i64 = h2h_transparency_ours() 22 let t_inc: i64 = h2h_transparency_incumbent() 23 let t: i64 = h2h_transparency() 24 let s_ours: i64 = h2h_signup_ours() 25 let s_inc: i64 = h2h_signup_incumbent() 26 let s: i64 = h2h_signup() 27 let lk_equal: i64 = h2h_beats_lower(1, 1) 28 let lk_worse: i64 = h2h_beats_lower(2, 1) 29 let lk_better: i64 = h2h_beats_lower(0, 1) 30 31 var ok: i64 = 1 32 if d_ours != 0 { ok = 0 } 33 if d_inc != 1 { ok = 0 } 34 if d != 1 { ok = 0 } 35 if t_ours != 0 { ok = 0 } 36 if t_inc != 1 { ok = 0 } 37 if t != 1 { ok = 0 } 38 if s_ours != 0 { ok = 0 } 39 if s_inc != 1 { ok = 0 } 40 if s != 1 { ok = 0 } 41 if lk_equal != 0 { ok = 0 } 42 if lk_worse != 0 { ok = 0 } 43 if lk_better != 1 { ok = 0 } 44 45 hg_w(1, "H2HGATE authored=organ delivery[ours=" as *u8); hg_wn(1, d_ours) 46 hg_w(1, " incumbent=" as *u8); hg_wn(1, d_inc); hg_w(1, " beat=" as *u8); hg_wn(1, d) 47 hg_w(1, "] transparency[ours=" as *u8); hg_wn(1, t_ours) 48 hg_w(1, " incumbent=" as *u8); hg_wn(1, t_inc); hg_w(1, " beat=" as *u8); hg_wn(1, t) 49 hg_w(1, "] signup[ours_cost_on_miss=" as *u8); hg_wn(1, s_ours) 50 hg_w(1, " incumbent=" as *u8); hg_wn(1, s_inc); hg_w(1, " beat=" as *u8); hg_wn(1, s) 51 hg_w(1, "] liar_kill[eq=" as *u8); hg_wn(1, lk_equal); hg_w(1, " worse=" as *u8); hg_wn(1, lk_worse); hg_w(1, " better=" as *u8); hg_wn(1, lk_better) 52 if ok == 1 { hg_w(1, "] verdict=GREEN\n" as *u8) } 53 if ok != 1 { hg_w(1, "] verdict=RED\n" as *u8) } 54 55 let lf: i64 = sys_openat_append(HG_LOG, 420) 56 if lf >= 0 { 57 hg_w(lf, "H2HGATE delivery_beat=" as *u8); hg_wn(lf, d) 58 hg_w(lf, " transparency_beat=" as *u8); hg_wn(lf, t) 59 hg_w(lf, " signup_beat=" as *u8); hg_wn(lf, s) 60 if ok == 1 { hg_w(lf, " verdict=GREEN\n" as *u8) } 61 if ok != 1 { hg_w(lf, " verdict=RED\n" as *u8) } 62 sys_close(lf) 63 } 64 65 if ok == 1 { return 0 } 66 return 1 67}