code wiki / _hdl_build / meta_xform.nx
meta_xform.nx source
↩ module page · 18 lines · 902 B
1// AUTHORED BY nx_xform_builder (X-AUTH-EXT-002 in-process data-flow composition) from a DATA spec.
2import "nx_syscalls.nx"
3func meta_xform_xform(x0: i64) -> i64 {
4 var x: i64 = x0
5 x = x + 5
6 x = x * 3
7 x = x - 4
8 return x
9}
10func meta_xform_p(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} sys_write(1,s,n); return 0 }
11func meta_xform_pn(v: i64) -> i64 { let b: *u8=sys_mmap(28); var m: i64=v; 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);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 }
12func main() -> i64 {
13 let r: i64 = meta_xform_xform(7)
14 meta_xform_p("XFORMGATE in=7 out=" as *u8); meta_xform_pn(r); meta_xform_p(" expected=" as *u8); meta_xform_pn(32)
15 if r == 32 { meta_xform_p(" verdict=GREEN\n" as *u8); return 0 }
16 meta_xform_p(" verdict=RED\n" as *u8)
17 return 1
18}