code wiki / _hdl_build / nx_wire_probe.nx
nx_wire_probe.nx source
↩ module page · 48 lines · 1272 B
1// nx_wire_probe.nx -- minimal diagnosis probe for the silent nx_wire_nethack_gate binary.
2// Same import set, trivial main. license_tier: ORIGINAL expect_exit: 0
3import "nx_syscalls.nx"
4import "nx_gamesave.nx"
5import "nx_rpgstats.nx"
6import "nx_entity_store.nx"
7import "nx_pathfind.nx"
8
9func aux() -> i64 {
10 var mI: i64=0
11 while mI<3 { mI=mI+1 }
12 return mI
13}
14// var declaration INSIDE an else-if branch
15func aux2(x: i64) -> i64 {
16 var r: i64=0
17 if x==1 { r=1 } else if x==2 {
18 var q: i64=5
19 q=q+1
20 r=q
21 }
22 return r
23}
24// || inside a nested if inside a while
25func aux3(a2: i64, b2: i64) -> i64 {
26 var r: i64=0
27 var k: i64=0
28 while k<1 {
29 if a2==0 { if a2!=1 || b2!=2 { r=7; k=5 } }
30 k=k+1
31 }
32 return r
33}
34func main() -> i64 {
35 sys_write(1, "PROBE-ALIVE\n" as *u8, 12)
36 let l: i64 = rs_level_for_xp(100, 20, 10)
37 sys_write(1, "L" as *u8, 1)
38 if l==4 { sys_write(1, "4" as *u8, 1) }
39 sys_write(1, "\n" as *u8, 1)
40 let m: i64 = aux()
41 if m==3 { sys_write(1, "MI-OK\n" as *u8, 6) }
42 let e: i64 = aux2(2)
43 if e==6 { sys_write(1, "EI-OK\n" as *u8, 6) }
44 let o: i64 = aux3(0,3)
45 if o==7 { sys_write(1, "OR-OK\n" as *u8, 6) }
46 sys_write(1, "END\n" as *u8, 4)
47 return 0
48}