code wiki / _hdl_build / eoe_meta_e.nx
eoe_meta_e.nx source
↩ module page · 12 lines · 736 B
1// EMITTER E -- emitted by nx_eoe_meta (the meta-emitter). E writes organ O. license_tier: ORIGINAL
2import "nx_syscalls.nx"
3func ow(fd: i64, s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} sys_write(fd,s,n); return 0 }
4func main() -> i64 {
5 let fd: i64 = sys_openat_wr("runtime/_hdl_build/eoe_meta_o.nx" as *u8, 420)
6 if fd < 0 { return 1 }
7 ow(fd, "// ORGAN O -- emitted by EMITTER E. license_tier: ORIGINAL\n")
8 ow(fd, "import \"nx_syscalls.nx\"\n")
9 ow(fd, "func main() -> i64 { let p: *i64 = sys_mmap(8) as *i64; p[0] = 42; let g: i64 = sys_openat_wr(\"knowledge/status/eoe_meta_out.bin\" as *u8, 420); if g >= 0 { sys_write(g, p as *u8, 8); sys_close(g) } return 0 }\n")
10 sys_close(fd)
11 return 0
12}