nx_webp_dump.nx source

1// nx_webp_dump.nx -- LOOK-gate probe: decode _build/kat_vp8l.webp through the REAL consumer entry 2// (nx_webp_decode_rgb) and dump the raw RGB bytes to _build/kat_rgb.bin so an operator/session can 3// render and EYEBALL the result (a multi-colour assert cannot see wrong colours). 4// license_tier: ORIGINAL expect_exit: 0 5import "nx_syscalls.nx" 6import "nx_webp_decode.nx" 7import "nx_webp_vp8l.nx" 8 9func pw(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} sys_write(1,s,n); return 0 } 10func pn(v: i64) -> i64 { let b: *u8=sys_mmap(28); var m: i64=v; if m<0{pw("-\x00" as *u8);m=0-m} let t: *u8=sys_mmap(28); 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; while i<k{b[i]=t[k-1-i];i=i+1} sys_write(1,b,k); return 0 } 11 12func main(argc: i64, argv: *i64) -> i64 { 13 let lp: *i64 = sys_mmap(16) as *i64 14 var path: *u8 = "_build/kat_vp8l.webp\x00" as *u8 15 if argc > 1 { path = argv[1] as *u8 } 16 let wb: *u8 = sys_read_file(path, lp) 17 if (wb as i64) == 0 { sys_exit(2) } 18 let wh: *i64 = sys_mmap(16) as *i64 19 let px: *u8 = nx_webp_decode_rgb(wb, lp[0], wh) 20 if (px as i64) == 0 { 21 pw("DECLINE reason=\x00" as *u8); pn(nx_vp8l_last_reason()) 22 pw(" drv cache=\x00" as *u8); pn(nx_vp8l_dbg(6)) 23 pw(" ng=\x00" as *u8); pn(nx_vp8l_dbg(7)) 24 pw(" ebits=\x00" as *u8); pn(nx_vp8l_dbg(8)) 25 pw(" stage=\x00" as *u8); pn(nx_vp8l_dbg(9)) 26 pw(" pos=\x00" as *u8); pn(nx_vp8l_dbg(10)) 27 pw(" sym=\x00" as *u8); pn(nx_vp8l_dbg(11)) 28 pw(" len=\x00" as *u8); pn(nx_vp8l_dbg(12)) 29 pw(" dist=\x00" as *u8); pn(nx_vp8l_dbg(13)) 30 pw(" greenused=\x00" as *u8); pn(nx_vp8l_dbg(14)) 31 pw(" bitpos=\x00" as *u8); pn(nx_vp8l_dbg(15)) 32 pw("\n cbp green=\x00" as *u8); pn(nx_vp8l_dbg(16)) 33 pw(" red=\x00" as *u8); pn(nx_vp8l_dbg(17)) 34 pw(" blue=\x00" as *u8); pn(nx_vp8l_dbg(18)) 35 pw(" alpha=\x00" as *u8); pn(nx_vp8l_dbg(19)) 36 pw(" dist=\x00" as *u8); pn(nx_vp8l_dbg(20)) 37 pw("\n\x00" as *u8) 38 sys_exit(3) 39 } 40 pw("DECODED w=\x00" as *u8); pn(wh[0]) 41 pw(" h=\x00" as *u8); pn(wh[1]) 42 pw("\n\x00" as *u8) 43 let fd: i64 = sys_openat_wr("_build/kat_rgb.bin\x00" as *u8, 420) 44 if fd < 0 { sys_exit(4) } 45 sys_write(fd, px, wh[0] * wh[1] * 3) 46 sys_close(fd) 47 sys_exit(0) 48 return 0 49}