code wiki / _hdl_build / nx_vizsla_doc_gate.nx
`nx_vizsla_doc_gate.nx` source

↩ module page · 307 lines · 12600 B
1// nx_vizsla_doc_gate.nx -- VIZSLA DOCUMENT-MANAGEMENT gate: never-lose versioned documents on the
2// additive CID plane, proven byte-exact. contract v1 -> v2 (venue:lakeday) + an invite letter
3// (plan:summer): round-trip fidelity (incl non-ASCII bytes), latest-by-date wins, FULL history
4// (v1 never destroyed -- law 13), rel-entity filter, CID idempotence, loud negatives.
5//
6// Rows: 1 put-v1 2 put-letter 3 get-roundtrip 4 put-v2 5 get-latest 6 history-2
7//       7 list-all 8 list-rel-filter 9 idempotent-reput 10 loud-fail-missing-file[neg]
8//       11 loud-fail-unknown-docid[neg] 12 history-determinism
9// Evidence: VIZSLA-DOC-GATE -> stdout + knowledge/status/vizsla_gate.log; exit 0 iff 12/12.
10// spec: knowledge/research/2026-06-22-vizsla-sclass-roadmap.md   license_tier: ORIGINAL
11import "nx_syscalls.nx"
12
13func dgt_slen(s: *u8) -> i64 { var n: i64 = 0; while s[n] != (0 as u8) { n = n + 1 } return n }
14func dgt_p(s: *u8) -> i64 { sys_write(1, s, dgt_slen(s)); return 0 }
15
16func dgt_cat(dst: *u8, off: i64, s: *u8) -> i64 {
  var i: i64 = 0
  while s[i] != (0 as u8) { dst[off + i] = s[i]; i = i + 1 }
  return off + i
20}
21
22func dgt_catn(dst: *u8, off: i64, v: i64) -> i64 {
  var o: i64 = off
  var m: i64 = v
  if m < 0 { dst[o] = 45 as u8; o = o + 1; m = 0 - m }
  let t: *u8 = sys_mmap(28)
  var k: i64 = 0
  if m == 0 { t[0] = 48 as u8; k = 1 }
  while m > 0 { t[k] = (48 + (m % 10)) as u8; m = m / 10; k = k + 1 }
  var i: i64 = 0
  while i < k { dst[o + i] = t[k - 1 - i]; i = i + 1 }
  return o + k
33}
34
35func dgt_write(path: *u8, content: *u8) -> i64 {
  let fd: i64 = sys_openat_wr(path, 0x1a4)
  if fd < 0 { return 0 - 1 }
  sys_write(fd, content, dgt_slen(content))
  sys_close(fd)
  return 0
41}
42
43func dgt_readall(path: *u8, szout: *i64) -> *u8 {
  let fd: i64 = sys_openat_rd(path)
  if fd < 0 { szout[0] = 0 - 1; return 0 as *u8 }
  let sz: i64 = sys_lseek(fd, 0, 2)
  sys_lseek(fd, 0, 0)
  let buf: *u8 = sys_mmap(sz + 64)
  var got: i64 = 0
  var n: i64 = 1
  while n > 0 {
      n = sys_read(fd, (buf as i64 + got) as *u8, 65536)
      if n > 0 { got = got + n }
  }
  sys_close(fd)
  szout[0] = got
  return buf
58}
59
60func dgt_runv(elf: *u8, args: *i64, outpath: *u8) -> i64 {
  let pid: i64 = sys_fork()
  if pid == 0 {
      if (outpath as i64) != 0 {
          let ofd: i64 = sys_openat_wr(outpath, 0x1a4)
          if ofd >= 0 { sys_dup3(ofd, 1, 0); sys_dup3(ofd, 2, 0) }
      }
      let argv: *i64 = sys_mmap(128) as *i64
      argv[0] = elf as i64
      var i: i64 = 0
      var go: i64 = 1
      while go == 1 {
          if args[i] == 0 { go = 0 } else {
              argv[i + 1] = args[i]
              i = i + 1
          }
      }
      argv[i + 1] = 0
      let envp: *i64 = sys_mmap(16) as *i64
      envp[0] = 0
      sys_execve(elf, argv, envp)
      sys_exit(127)
  }
  let st: *i64 = sys_mmap(16) as *i64
  sys_wait4(pid, st, 0)
  let sig: i64 = st[0] & 0x7f
  if sig != 0 { return 128 + sig }
  return (st[0] >> 8) & 0xff
88}
89
90func dgt_has(path: *u8, needle: *u8) -> i64 {
  let szp: *i64 = sys_mmap(16) as *i64
  let b: *u8 = dgt_readall(path, szp)
  let sz: i64 = szp[0]
  let n: i64 = dgt_slen(needle)
  if sz < n { return 0 }
  var i: i64 = 0
  while i + n <= sz {
      var ok: i64 = 1
      var j: i64 = 0
      while j < n {
          if b[i + j] != needle[j] { ok = 0; j = n } else { j = j + 1 }
      }
      if ok == 1 { return 1 }
      i = i + 1
  }
  return 0
107}
108
109func dgt_fileeq(p1: *u8, p2: *u8) -> i64 {
  let s1: *i64 = sys_mmap(16) as *i64
  let s2: *i64 = sys_mmap(16) as *i64
  let b1: *u8 = dgt_readall(p1, s1)
  let b2: *u8 = dgt_readall(p2, s2)
  if s1[0] != s2[0] { return 0 }
  if s1[0] <= 0 { return 0 }
  var i: i64 = 0
  while i < s1[0] {
      if b1[i] != b2[i] { return 0 }
      i = i + 1
  }
  return 1
122}
123
124func dgt_row(name: *u8, pass: i64) -> i64 {
  dgt_p("ROW " as *u8)
  dgt_p(name)
  if pass == 1 { dgt_p(" PASS\n" as *u8) } else { dgt_p(" FAIL\n" as *u8) }
  return pass
129}
130
131func dgt_args(a1: *u8, a2: *u8, a3: *u8, a4: *u8, a5: *u8, a6: *u8, a7: *u8, a8: *u8) -> *i64 {
  let a: *i64 = sys_mmap(128) as *i64
  a[0] = a1 as i64
  a[1] = a2 as i64
  a[2] = a3 as i64
  a[3] = a4 as i64
  a[4] = a5 as i64
  a[5] = a6 as i64
  a[6] = a7 as i64
  a[7] = a8 as i64
  a[8] = 0
  return a
143}
144
145func main(argc: i64, argv: *i64) -> i64 {
  dgt_p("=== VIZSLA DOC GATE: versioned never-lose document management (byte-exact) ===\n" as *u8)
  let doc: *u8 = "/tmp/nx_vizsla_doc.sov.elf" as *u8
  let pr: i64 = sys_openat_rd(doc)
  if pr >= 0 { sys_close(pr) }
  else {
      dgt_p(" instrument missing -> rebuilding via durable runner\n" as *u8)
      dgt_runv("_offc/nx_sov_build_run.elf" as *u8, dgt_args("nx_vizsla_doc" as *u8, 0 as *u8, 0 as *u8, 0 as *u8, 0 as *u8, 0 as *u8, 0 as *u8, 0 as *u8), "/tmp/vzd_rebuild.out" as *u8)
  }
154
  let pfx: *u8 = sys_mmap(128)
  var po: i64 = 0
  po = dgt_cat(pfx, po, "/tmp/vzdD" as *u8)
  po = dgt_catn(pfx, po, sys_now_us())
  po = dgt_cat(pfx, po, "-" as *u8)
  pfx[po] = 0 as u8
161
  // contract v1 carries non-ASCII bytes (0xC3 0xA9 = e-acute UTF-8) to prove binary fidelity
  let c1: *u8 = sys_mmap(512)
  var c1o: i64 = 0
  c1o = dgt_cat(c1, c1o, "AGREEMENT draft one for lakeside pavilion caf" as *u8)
  c1[c1o] = 195 as u8; c1o = c1o + 1
  c1[c1o] = 169 as u8; c1o = c1o + 1
  c1o = dgt_cat(c1, c1o, "\nrate: 350 deposit: 100\n" as *u8)
  c1[c1o] = 0 as u8
  dgt_write("/tmp/vzd_c1.txt" as *u8, c1)
  dgt_write("/tmp/vzd_c2.txt" as *u8, "AGREEMENT FINAL v2 for lakeside pavilion\nrate: 350 deposit: 50 signed: yes\n" as *u8)
  dgt_write("/tmp/vzd_letter.txt" as *u8, "Dear friends, you are invited to lake day on 2026-07-18. Bring sunscreen.\n" as *u8)
173
  var pass: i64 = 0
  var r: i64 = 0
176
  // row 1: put contract v1
  let rc1: i64 = dgt_runv(doc, dgt_args("put" as *u8, pfx, "contract" as *u8, "/tmp/vzd_c1.txt" as *u8, "contract" as *u8, "venue:lakeday" as *u8, "2026-07-05" as *u8, "7301" as *u8), "/tmp/vzd_r1.txt" as *u8)
  r = 0
  if rc1 == 0 {
      if dgt_has("/tmp/vzd_r1.txt" as *u8, "VIZSLA-DOC-PUT docid=contract doctype=contract rel=venue:lakeday date=2026-07-05" as *u8) == 1 {
          if dgt_has("/tmp/vzd_r1.txt" as *u8, " new=1 segment=seg-7301" as *u8) == 1 { r = 1 }
      }
  }
  pass = pass + dgt_row("put-v1" as *u8, r)
186
  // row 2: put the letter (different rel)
  let rc2: i64 = dgt_runv(doc, dgt_args("put" as *u8, pfx, "invite" as *u8, "/tmp/vzd_letter.txt" as *u8, "letter" as *u8, "plan:summer" as *u8, "2026-07-06" as *u8, "7302" as *u8), "/tmp/vzd_r2.txt" as *u8)
  r = 0
  if rc2 == 0 {
      if dgt_has("/tmp/vzd_r2.txt" as *u8, "VIZSLA-DOC-PUT docid=invite doctype=letter rel=plan:summer date=2026-07-06" as *u8) == 1 {
          if dgt_has("/tmp/vzd_r2.txt" as *u8, " new=1 " as *u8) == 1 { r = 1 }
      }
  }
  pass = pass + dgt_row("put-letter" as *u8, r)
196
  // row 3: byte-exact round trip of v1 (incl the non-ASCII bytes)
  let rc3: i64 = dgt_runv(doc, dgt_args("get" as *u8, pfx, "contract" as *u8, "/tmp/vzd_out1.txt" as *u8, 0 as *u8, 0 as *u8, 0 as *u8, 0 as *u8), "/tmp/vzd_r3.txt" as *u8)
  r = 0
  if rc3 == 0 {
      if dgt_fileeq("/tmp/vzd_out1.txt" as *u8, "/tmp/vzd_c1.txt" as *u8) == 1 { r = 1 }
  }
  pass = pass + dgt_row("get-roundtrip" as *u8, r)
204
  // row 4: put contract v2 (new version, later date)
  let rc4: i64 = dgt_runv(doc, dgt_args("put" as *u8, pfx, "contract" as *u8, "/tmp/vzd_c2.txt" as *u8, "contract" as *u8, "venue:lakeday" as *u8, "2026-07-06" as *u8, "7303" as *u8), "/tmp/vzd_r4.txt" as *u8)
  r = 0
  if rc4 == 0 {
      if dgt_has("/tmp/vzd_r4.txt" as *u8, " new=1 segment=seg-7303" as *u8) == 1 { r = 1 }
  }
  pass = pass + dgt_row("put-v2" as *u8, r)
212
  // row 5: get now returns v2 (latest), not v1
  let rc5: i64 = dgt_runv(doc, dgt_args("get" as *u8, pfx, "contract" as *u8, "/tmp/vzd_out2.txt" as *u8, 0 as *u8, 0 as *u8, 0 as *u8, 0 as *u8), "/tmp/vzd_r5.txt" as *u8)
  r = 0
  if rc5 == 0 {
      if dgt_fileeq("/tmp/vzd_out2.txt" as *u8, "/tmp/vzd_c2.txt" as *u8) == 1 {
          if dgt_fileeq("/tmp/vzd_out2.txt" as *u8, "/tmp/vzd_c1.txt" as *u8) == 0 { r = 1 }
      }
  }
  pass = pass + dgt_row("get-latest" as *u8, r)
222
  // row 6: full history kept (v1 NOT destroyed)
  let rc6: i64 = dgt_runv(doc, dgt_args("history" as *u8, pfx, "contract" as *u8, 0 as *u8, 0 as *u8, 0 as *u8, 0 as *u8, 0 as *u8), "/tmp/vzd_r6.txt" as *u8)
  r = 0
  if rc6 == 0 {
      if dgt_has("/tmp/vzd_r6.txt" as *u8, "VIZSLA-DOC-VERSION docid=contract date=2026-07-05" as *u8) == 1 {
          if dgt_has("/tmp/vzd_r6.txt" as *u8, "VIZSLA-DOC-VERSION docid=contract date=2026-07-06" as *u8) == 1 {
              if dgt_has("/tmp/vzd_r6.txt" as *u8, "VIZSLA-DOC-HISTORY docid=contract versions=2" as *u8) == 1 { r = 1 }
          }
      }
  }
  pass = pass + dgt_row("history-2" as *u8, r)
234
  // row 7: list all (latest per docid)
  let rc7: i64 = dgt_runv(doc, dgt_args("list" as *u8, pfx, "-" as *u8, 0 as *u8, 0 as *u8, 0 as *u8, 0 as *u8, 0 as *u8), "/tmp/vzd_r7.txt" as *u8)
  r = 0
  if rc7 == 0 {
      if dgt_has("/tmp/vzd_r7.txt" as *u8, "VIZSLA-DOC-ITEM docid=contract doctype=contract rel=venue:lakeday date=2026-07-06" as *u8) == 1 {
          if dgt_has("/tmp/vzd_r7.txt" as *u8, "VIZSLA-DOC-LIST rel=- docs=2" as *u8) == 1 { r = 1 }
      }
  }
  pass = pass + dgt_row("list-all" as *u8, r)
244
  // row 8: rel filter shows only the venue doc
  let rc8: i64 = dgt_runv(doc, dgt_args("list" as *u8, pfx, "venue:lakeday" as *u8, 0 as *u8, 0 as *u8, 0 as *u8, 0 as *u8, 0 as *u8), "/tmp/vzd_r8.txt" as *u8)
  r = 0
  if rc8 == 0 {
      if dgt_has("/tmp/vzd_r8.txt" as *u8, "VIZSLA-DOC-LIST rel=venue:lakeday docs=1" as *u8) == 1 {
          if dgt_has("/tmp/vzd_r8.txt" as *u8, "docid=invite" as *u8) == 0 { r = 1 }
      }
  }
  pass = pass + dgt_row("list-rel-filter" as *u8, r)
254
  // row 9: re-put of identical v2 dedups (CID idempotence)
  let rc9: i64 = dgt_runv(doc, dgt_args("put" as *u8, pfx, "contract" as *u8, "/tmp/vzd_c2.txt" as *u8, "contract" as *u8, "venue:lakeday" as *u8, "2026-07-06" as *u8, "7304" as *u8), "/tmp/vzd_r9.txt" as *u8)
  r = 0
  if rc9 == 0 {
      if dgt_has("/tmp/vzd_r9.txt" as *u8, " new=0 segment=none" as *u8) == 1 { r = 1 }
  }
  pass = pass + dgt_row("idempotent-reput" as *u8, r)
262
  // row 10: missing file (negative control)
  let rc10: i64 = dgt_runv(doc, dgt_args("put" as *u8, pfx, "ghostdoc" as *u8, "/tmp/vzd_nope.txt" as *u8, "contract" as *u8, "-" as *u8, "2026-07-06" as *u8, "7305" as *u8), "/tmp/vzd_r10.txt" as *u8)
  r = 0
  if rc10 == 1 { r = 1 }
  pass = pass + dgt_row("loud-fail-missing-file" as *u8, r)
268
  // row 11: unknown docid (negative control)
  let rc11: i64 = dgt_runv(doc, dgt_args("get" as *u8, pfx, "ghost" as *u8, "/tmp/vzd_out3.txt" as *u8, 0 as *u8, 0 as *u8, 0 as *u8, 0 as *u8), "/tmp/vzd_r11.txt" as *u8)
  r = 0
  if rc11 == 1 { r = 1 }
  pass = pass + dgt_row("loud-fail-unknown-docid" as *u8, r)
274
  // row 12: history determinism
  dgt_runv(doc, dgt_args("history" as *u8, pfx, "contract" as *u8, 0 as *u8, 0 as *u8, 0 as *u8, 0 as *u8, 0 as *u8), "/tmp/vzd_r12.txt" as *u8)
  r = dgt_fileeq("/tmp/vzd_r6.txt" as *u8, "/tmp/vzd_r12.txt" as *u8)
  pass = pass + dgt_row("history-determinism" as *u8, r)
279
  let permil: i64 = (pass * 1000) / 12
  let logfd: i64 = sys_openat_append("knowledge/status/vizsla_gate.log" as *u8, 0x1a4)
  var fdi: i64 = 0
  while fdi < 2 {
      var fd: i64 = 1
      if fdi == 1 { fd = logfd }
      if fd > 0 {
          let line: *u8 = sys_mmap(256)
          var o: i64 = 0
          o = dgt_cat(line, o, "VIZSLA-DOC-GATE epoch=" as *u8)
          o = dgt_catn(line, o, sys_now_realtime_sec())
          o = dgt_cat(line, o, " rows=12 pass=" as *u8)
          o = dgt_catn(line, o, pass)
          o = dgt_cat(line, o, " permil=" as *u8)
          o = dgt_catn(line, o, permil)
          if pass == 12 {
              o = dgt_cat(line, o, " verdict=GREEN\n" as *u8)
          } else {
              o = dgt_cat(line, o, " verdict=RED\n" as *u8)
          }
          sys_write(fd, line, o)
      }
      fdi = fdi + 1
  }
  if logfd > 0 { sys_close(logfd) }
  if pass == 12 { return 0 }
  return 1
307}
nx_vizsla_doc_gate.nx source

`nx_vizsla_doc_gate.nx` source
