code wiki / _hdl_build / rr_authored_test.nx
rr_authored_test.nx source
↩ module page · 11 lines · 639 B
1import "rr_authored.nx"
2import "nx_syscalls.nx"
3func cps(dst: *u8, s: *u8) -> i64 { var i: i64=0; while s[i]!=(0 as u8){ dst[i]=s[i]; i=i+1 } dst[i]=0 as u8; return i }
4func main() -> i64 {
5 let docs: *i64=sys_mmap(64) as *i64; let dlens: *i64=sys_mmap(64) as *i64; let sc: *i64=sys_mmap(64) as *i64
6 let d0: *u8=sys_mmap(256); let l0: i64=cps(d0, "zk zk zk " as *u8); docs[0]=d0 as i64; dlens[0]=l0
7 let d1: *u8=sys_mmap(64); let l1: i64=cps(d1, "qq rr ss" as *u8); docs[1]=d1 as i64; dlens[1]=l1
8 if rr_authored_retrieve(docs, dlens, 2, "zk" as *u8, 2, sc) == 0 { if sc[1]==0 { sys_exit(0) } }
9 sys_exit(1)
10 return 1
11}