code wiki / _hdl_build / nx_js_or_diag.nx
nx_js_or_diag.nx source
↩ module page · 15 lines · 1241 B
1// localize the ||-SEGV: tree-walker first (prints), then VM. expect_exit: 0 license_tier: ORIGINAL
2import "nx_js_vm.nx"
3func w(s: *u8) -> i64 { var n: i64 = 0; while s[n] != (0 as u8) { n = n + 1 } sys_write(1, s, n); return 0 }
4func nn(v: i64) -> i64 { if v==0 { sys_write(1,"0" as *u8,1); return 0 } var m: i64=v; if m<0 { sys_write(1,"-" as *u8,1); m=0-m } let t: *u8=sys_mmap(24); var k: i64=0; while m>0 { t[k]=(48+(m%10)) as u8; m=m/10; k=k+1 } let o: *u8=sys_mmap(24); var q: i64=k-1; var x: i64=0; while q>=0 { o[x]=t[q]; x=x+1; q=q-1 } sys_write(1,o,x); return 0 }
5func main(argc: i64, argv: *i64) -> i64 {
6 let o: *i64 = sys_mmap(16) as *i64
7 let ot: *i64 = sys_mmap(16) as *i64
8 let s: *u8 = "var a=null;var b=7;a||b" as *u8
9 w("TREE null||7: "); js_run_source(s, bsl(s), ot); w("tag="); nn(ot[0]); w(" val="); nn(ot[1]); w("\n" as *u8)
10 w("TREE 5||9: "); let s2: *u8 = "5||9" as *u8; js_run_source(s2, bsl(s2), ot); w("tag="); nn(ot[0]); w(" val="); nn(ot[1]); w("\n" as *u8)
11 w("VM 5||9: "); compile_run(s2, o); w("tag="); nn(o[0]); w(" val="); nn(o[1]); w("\n" as *u8)
12 w("VM null||7: "); compile_run(s, o); w("tag="); nn(o[0]); w(" val="); nn(o[1]); w("\n" as *u8)
13 w("DONE\n" as *u8)
14 return 0
15}