code wiki / _hdl_build / nx_ws_setstate.nx
nx_ws_setstate.nx source
↩ module page · 48 lines · 2049 B
1// nx_ws_setstate.nx -- transition ONE registry stream's state: the honest reconcile tool for stale
2// labels (ROOT-TRACE BLOCKED-but-GREEN; phantom age=-1 ACTIVE labels). ws_put's an updated record
3// into the live registry (latest version wins; existing ws:ids membership is preserved, so this is
4// a pure state edit). Single responsibility (rule 9). Reuses the keystone's record/key builders.
5// nx_ws_setstate <id> <state> <empire> <memlink>
6// state must be one of ACTIVE|DONE|BLOCKED|FLOATING|ABSENT. Sovereign. license_tier: ORIGINAL
7import "nx_ws_ingest.nx"
8import "nx_workstream_store.nx"
9import "nx_seg_store.nx"
10import "nx_syscalls.nx"
11const K_MAGIC_1024: i64 = 1024
12
13func sp(s: *u8) -> i64 { var n: i64 = 0; while s[n] != (0 as u8) { n = n + 1 } sys_write(1, s, n); return 0 }
14func sn(v: i64) -> i64 {
15 let bb: *u8 = sys_mmap(28); var m: i64 = v
16 if m < 0 { sys_write(1, "-" as *u8, 1); m = 0 - m }
17 let t: *u8 = sys_mmap(28); var k: i64 = 0
18 if m == 0 { t[0] = 48 as u8; k = 1 }
19 while m > 0 { t[k] = ((48 + (m % 10)) as u8); m = m / 10; k = k + 1 }
20 var i: i64 = 0; while i < k { bb[i] = t[k - 1 - i]; i = i + 1 }
21 sys_write(1, bb, k); return 0
22}
23
24func main(argc: i64, argv: *i64) -> i64 {
25 if argc < 5 {
26 sp("usage: nx_ws_setstate <id> <state> <empire> <memlink>\n" as *u8)
27 sys_exit(0); return 0
28 }
29 let id: *u8 = argv[1] as *u8
30 let state: *u8 = argv[2] as *u8
31 let empire: *u8 = argv[3] as *u8
32 let memlink: *u8 = argv[4] as *u8
33
34 let nowsec: i64 = sys_now_realtime_sec()
35 let keybuf: *u8 = sys_mmap(512)
36 let recbuf: *u8 = sys_mmap(K_MAGIC_1024)
37 wsi_build_key(id, keybuf)
38 wsi_build_record(id, empire, state, nowsec, memlink, recbuf)
39 let rc: i64 = ws_put(keybuf, recbuf)
40
41 sp("WS-SETSTATE id=" as *u8); sp(id)
42 sp(" state=" as *u8); sp(state)
43 sp(" empire=" as *u8); sp(empire)
44 sp(" rc=" as *u8); sn(rc)
45 if rc < 0 { sp(" verdict=FAIL\n" as *u8); sys_exit(1); return 1 }
46 sp(" verdict=OK\n" as *u8)
47 sys_exit(0); return 0
48}