code wiki / _hdl_build / nx_dtparse_bench.nx
nx_dtparse_bench.nx source
↩ module page · 36 lines · 1614 B
1// nx_dtparse_bench.nx -- dt_parse timing harness: parse <htmlfile>, report bytes/nodes/ms.
2// Acceptance criterion (browser JS lane, 2026-07-23 memory): 130KB real page < 1000ms.
3// Usage: nx_dtparse_bench <htmlfile>
4import "nx_syscalls.nx"
5import "nx_domtree.nx"
6
7func db_p(s: *u8) -> i64 { var n: i64 = 0; while s[n] != (0 as u8) { n = n + 1 } sys_write(1, s, n); return 0 }
8func db_pn(v: i64) -> i64 {
9 var m: i64 = v
10 if m < 0 { db_p("-\x00" as *u8); m = 0 - m }
11 let t: *u8 = sys_mmap(24); var k: i64 = 0
12 if m == 0 { t[0] = 48 as u8; k = 1 } else { while m > 0 { t[k] = (48 + (m % 10)) as u8; m = m / 10; k = k + 1 } }
13 let o: *u8 = sys_mmap(24); var j: i64 = 0
14 while j < k { o[j] = t[k-1-j]; j = j + 1 }
15 sys_write(1, o, k); return 0
16}
17
18func main(argc: i64, argv: *i64) -> i64 {
19 if argc < 2 { db_p("usage: nx_dtparse_bench <htmlfile>\x0a\x00" as *u8); return 2 }
20 let path: *u8 = argv[1] as *u8
21 let lenp: *i64 = sys_mmap(16) as *i64
22 let html: *u8 = sys_read_file(path, lenp)
23 if (html as i64) == 0 { db_p("READ-FAIL\x0a\x00" as *u8); return 3 }
24 let hlen: i64 = lenp[0]
25 let t0: i64 = sys_now_ms()
26 let t: *DomTree = dt_parse(html, hlen)
27 let t1: i64 = sys_now_ms()
28 db_p("bytes=\x00" as *u8); db_pn(hlen)
29 db_p(" nodes=\x00" as *u8); db_pn(t.n)
30 db_p(" ms=\x00" as *u8); db_pn(t1 - t0)
31 db_p("\x0a\x00" as *u8)
32 if (t1 - t0) >= 1000 { db_p("VERDICT=RED (>=1000ms)\x0a\x00" as *u8); return 1 }
33 if t.n < 10 { db_p("VERDICT=RED (implausibly few nodes)\x0a\x00" as *u8); return 1 }
34 db_p("VERDICT=GREEN\x0a\x00" as *u8)
35 return 0
36}