`nx_xlsx.nx` source

↩ module page · 1283 lines · 60962 B
1// nx_xlsx.nx -- SOVEREIGN MS-Excel (.xlsx / SpreadsheetML) interop for the Nishi Office suite. A .xlsx is an OPC
2// package (framed by the shared nx_opc, same ZIP as .docx) with 5 parts:
3//   [Content_Types].xml, _rels/.rels, xl/workbook.xml, xl/_rels/workbook.xml.rels, xl/worksheets/sheet1.xml
4//   fromtsv : a tab-separated grid -> a valid Excel-openable .xlsx (numeric cells as <v>, text as inlineStr;
5//             cell text XML-escaped). Use case: an estate asset SCHEDULE / valuation workbook.
6//   read    : a .xlsx -> the sheet1 grid back as TSV (handles our inlineStr + numeric cells).
7// Sovereignty = our own SpreadsheetML; rigor = the harness proves a 3rd-party (python zipfile) opens our .xlsx
8// with valid CRC-32s and the expected cell values.
9// HONEST LIMITATION: read supports inlineStr + numeric <v>; a real Excel file that uses a sharedStrings table
10// (t="s") would yield string INDICES not text -- sharedStrings read is a follow-on. Sparse columns are emitted
11// in document order (dense round-trip is exact; gaps are not repositioned).
12//   nx_xlsx fromtsv <in.tsv> <out.xlsx>   |   nx_xlsx read <in.xlsx>
13// license_tier: ORIGINAL
14import "nx_syscalls.nx"
15import "nx_itoa_lib.nx"   // shared MSB-first emitter (zero-alloc)
16import "nx_opc.nx"
17const XF_MAGIC_10000: i64 = 10000
18const XF_MAGIC_8388624: i64 = 8388624
19const XF_MAGIC_4194320: i64 = 4194320
20const XF_MAGIC_4194304: i64 = 4194304
21const XF_MAGIC_8388608: i64 = 8388608
22const XF_MAGIC_1048592: i64 = 1048592
23const XF_MAGIC_16384: i64 = 16384
24const XF_MAGIC_33554432: i64 = 33554432
25const XF_MAGIC_1048576: i64 = 1048576
26
27func xl_puts(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} sys_write(1,s,n); return 0 }
28// MIGRATED to the shared emitter (debt 1785563586). The old body mmapped a scratch buffer
29// per call and never freed it. At PAGE granularity that is 4096B leaked PER CALL -- the
30// defect that took 28.5GB of a 36GB host in nx_ts_lumadiff (2MB input, ~3.66M calls).
31// nxi_* is MSB-first, allocates NOTHING, and emits identical bytes including the sign.
32func xl_num(v: i64) -> i64 { nxi_out(v); return 0 }
33func xl_streq(a: *u8, b: *u8) -> i64 { var i: i64=0; while a[i]!=(0 as u8){ if a[i]!=b[i]{return 0} i=i+1 } if b[i]!=(0 as u8){return 0} return 1 }
34func xl_strlen(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} return n }
35func xl_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 }
36func xl_uint(dst: *u8, off: i64, v: i64) -> i64 { var m: i64=v; 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 o: i64=off; var i: i64=0; while i<k{dst[o]=t[k-1-i];o=o+1;i=i+1} return o }
37func xl_match(buf: *u8, pos: i64, n: i64, pat: *u8) -> i64 {
  var k: i64=0; while pat[k]!=(0 as u8) { if pos+k>=n { return 0 } if buf[pos+k]!=pat[k] { return 0 } k=k+1 } return 1
39}
40// bijective base-26 column label (0->A, 25->Z, 26->AA) appended to dst
41func xl_col(dst: *u8, off: i64, idx: i64) -> i64 {
  var n: i64=idx+1; let t: *u8=sys_mmap(8); var k: i64=0
  while n>0 { let rem: i64=(n-1)%26; t[k]=(65+rem) as u8; k=k+1; n=(n-1)/26 }
  var o: i64=off; var i: i64=k-1; while i>=0 { dst[o]=t[i]; o=o+1; i=i-1 } return o
45}
46// is src[soff..soff+slen) a plain number? (optional leading '-', digits, at most one '.')
47func xl_is_numeric(src: *u8, soff: i64, slen: i64) -> i64 {
  if slen<=0 { return 0 }
  var dots: i64=0; var digits: i64=0; var i: i64=0
  while i<slen {
      let c: i64=src[soff+i] as i64
      var ok: i64=0
      if c>=48 { if c<=57 { ok=1; digits=digits+1 } }
      if c==45 { if i==0 { ok=1 } }
      if c==46 { dots=dots+1; if dots<=1 { ok=1 } }
      if ok==0 { return 0 }
      i=i+1
  }
  if digits==0 { return 0 }
  return 1
61}
62// append src[soff..soff+slen) escaping XML & < > (and " for safety)
63func xl_escape_region(out: *u8, o: i64, src: *u8, soff: i64, slen: i64) -> i64 {
  var oo: i64=o; var k: i64=0
  while k<slen {
      let c: i64=src[soff+k] as i64
      if c==38 { oo=xl_cat(out,oo,"&amp;" as *u8) } else { if c==60 { oo=xl_cat(out,oo,"&lt;" as *u8) } else { if c==62 { oo=xl_cat(out,oo,"&gt;" as *u8) } else { out[oo]=src[soff+k]; oo=oo+1 } } }
      k=k+1
  }
  return oo
71}
72// emit one cell <c r="<col><row>" ...> for src[soff..soff+slen)
73func xl_emit_cell(out: *u8, o: i64, col: i64, row: i64, src: *u8, soff: i64, slen: i64) -> i64 {
  var oo: i64=o
  oo=xl_cat(out,oo,"<c r=\"" as *u8); oo=xl_col(out,oo,col); oo=xl_uint(out,oo,row); oo=xl_cat(out,oo,"\"" as *u8)
  if slen>0 { if xl_is_numeric(src,soff,slen)==1 {
      oo=xl_cat(out,oo,"><v>" as *u8)
      var k: i64=0; while k<slen { out[oo]=src[soff+k]; oo=oo+1; k=k+1 }
      oo=xl_cat(out,oo,"</v></c>" as *u8)
      return oo
  } }
  oo=xl_cat(out,oo," t=\"inlineStr\"><is><t xml:space=\"preserve\">" as *u8)
  oo=xl_escape_region(out,oo,src,soff,slen)
  oo=xl_cat(out,oo,"</t></is></c>" as *u8)
  return oo
86}
87// build xl/worksheets/sheet1.xml from a tab-separated grid; return length
88func xl_build_sheet(tsv: *u8, tn: i64, out: *u8) -> i64 {
  var o: i64=xl_cat(out,0,"<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>\n<worksheet xmlns=\"http://schemas.openxmlformats.org/spreadsheetml/2006/main\"><sheetData>" as *u8)
  var rownum: i64=0; var pos: i64=0
  while pos<tn {
      var le: i64=tn; var i: i64=pos; while i<tn { if tsv[i]==(10 as u8) { le=i; break } i=i+1 }
      if le>pos {
          var lineend: i64=le; if tsv[lineend-1]==(13 as u8) { lineend=lineend-1 }
          rownum=rownum+1
          o=xl_cat(out,o,"<row r=\"" as *u8); o=xl_uint(out,o,rownum); o=xl_cat(out,o,"\">" as *u8)
          var cs: i64=pos; var col: i64=0; var j: i64=pos
          while j<=lineend {
              var sep: i64=0
              if j==lineend { sep=1 } else { if tsv[j]==(9 as u8) { sep=1 } }
              if sep==1 { o=xl_emit_cell(out, o, col, rownum, tsv, cs, j-cs); col=col+1; cs=j+1 }
              j=j+1
          }
          o=xl_cat(out,o,"</row>" as *u8)
      }
      pos=le+1
  }
  o=xl_cat(out,o,"</sheetData></worksheet>" as *u8)
  return o
110}
111
112// ---- FORMULAS (OF-S3): '='-cells in the TSV become real SpreadsheetML <f> formula cells with a computed
113// cached <v> (exactly how Excel stores them). Values are Q4 FIXED-POINT (value x 10000, 4 decimal places;
114// integer arithmetic, division floors) -- honest scope: SUM/AVERAGE/MIN/MAX/COUNT + - * / ( ) unary-,
115// A1/AB12 refs and A1:B9 ranges; formula-referencing-formula chains memoized; cycles/div-0/bad-ref/syntax
116// LOUD-FAIL the write (never a silently wrong workbook). ----
117const XF_MAXC: i64 = 64
118const XF_MAXR: i64 = 1024
119
120struct XfGrid {
  tsv: *u8,
  gv: *i64,        // Q4 value per cell [r*XF_MAXC+c]
  gk: *u8,         // 0 empty | 1 number | 2 text | 3 formula
  gs: *u8,         // formula state: 0 todo | 1 in-progress | 2 done
  gfo: *i64,       // formula span offset (past '=')
  gfl: *i64,       // formula span length
  nrows: i64,
  ncols: i64,
  err: i64,        // 0 ok | 1 syntax | 2 bad-ref/value | 3 cycle | 4 div-0
  errow: i64,
  ercol: i64
132}
133
134func xf_grid_new(tsv: *u8) -> *XfGrid {
  let g: *XfGrid = sys_mmap(96) as *XfGrid
  g.tsv = tsv
  g.gv = sys_mmap(8*XF_MAXR*XF_MAXC) as *i64
  g.gk = sys_mmap(XF_MAXR*XF_MAXC)
  g.gs = sys_mmap(XF_MAXR*XF_MAXC)
  g.gfo = sys_mmap(8*XF_MAXR*XF_MAXC) as *i64
  g.gfl = sys_mmap(8*XF_MAXR*XF_MAXC) as *i64
  g.nrows = 0
  g.ncols = 0
  g.err = 0
  g.errow = 0
  g.ercol = 0
  return g
148}
149
150func xf_ws(s: *u8, ip: *i64, e: i64) -> i64 {
  while ip[0] < e { if s[ip[0]]==(32 as u8) { ip[0]=ip[0]+1 } else { return 0 } }
  return 0
153}
154
155// verified-numeric text -> Q4 (sign, int, up to 4 frac digits; extras truncated)
156func xf_q4_of(s: *u8, off: i64, len: i64) -> i64 {
  var i: i64=0
  var neg: i64=0
  if len>0 { if s[off]==(45 as u8) { neg=1; i=1 } }
  var v: i64=0
  while i<len { let c: i64=s[off+i] as i64; if c==46 { break } v=v*10+(c-48); i=i+1 }
  v=v*XF_MAGIC_10000
  if i<len { if s[off+i]==(46 as u8) {
      i=i+1
      var sc: i64=1000
      while i<len { if sc>0 { let c2: i64=s[off+i] as i64; v=v+(c2-48)*sc; sc=sc/10 } i=i+1 }
  } }
  if neg==1 { return 0-v }
  return v
170}
171
172// Q4 -> decimal text (frac trimmed)
173func xf_fmtq4(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 ipart: i64=m/XF_MAGIC_10000
  var fpart: i64=m%XF_MAGIC_10000
  o=xl_uint(dst,o,ipart)
  if fpart>0 {
      dst[o]=46 as u8; o=o+1
      let t: *u8=sys_mmap(8)
      t[0]=(48+fpart/1000) as u8
      t[1]=(48+(fpart/100)%10) as u8
      t[2]=(48+(fpart/10)%10) as u8
      t[3]=(48+fpart%10) as u8
      var last: i64=3
      while last>0 { if t[last]==(48 as u8) { last=last-1 } else { break } }
      var q: i64=0
      while q<=last { dst[o]=t[q]; o=o+1; q=q+1 }
  }
  return o
193}
194
195// parse an A1/AB12 ref at *ip; rc[0]=col rc[1]=row (0-based); 1 ok, 0 not-a-ref (ip restored by caller)
196func xf_refparse(s: *u8, ip: *i64, e: i64, rc: *i64) -> i64 {
  var i: i64=ip[0]
  var col: i64=0
  var nl: i64=0
  while i<e { let c: i64=s[i] as i64; if c>=65 { if c<=90 { col=col*26+(c-64); nl=nl+1; i=i+1 } else { break } } else { break } }
  if nl<1 { return 0 }
  if nl>2 { return 0 }
  var row: i64=0
  var nd: i64=0
  while i<e { let c2: i64=s[i] as i64; if c2>=48 { if c2<=57 { row=row*10+(c2-48); nd=nd+1; i=i+1 } else { break } } else { break } }
  if nd<1 { return 0 }
  if row<1 { return 0 }
  rc[0]=col-1
  rc[1]=row-1
  ip[0]=i
  return 1
212}
213
214// numeric value of cell (r,c): numbers directly; formulas evaluated on demand (memo + cycle detect);
215// empty/text/out-of-range -> err 2 (LOUD beats silently-wrong money).
216func xf_cellnum(g: *XfGrid, r: i64, c: i64) -> i64 {
  if g.err != 0 { return 0 }
  if r<0 { g.err=2; return 0 }
  if c<0 { g.err=2; return 0 }
  if r>=XF_MAXR { g.err=2; return 0 }
  if c>=XF_MAXC { g.err=2; return 0 }
  let idx: i64=r*XF_MAXC+c
  let k: i64=g.gk[idx] as i64
  if k==1 { return g.gv[idx] }
  if k==3 {
      let st: i64=g.gs[idx] as i64
      if st==2 { return g.gv[idx] }
      if st==1 { g.err=3; return 0 }
      xf_evalcell(g, r, c)
      if g.err != 0 { return 0 }
      return g.gv[idx]
  }
  g.err=2
  return 0
235}
236
237func xf_factor(g: *XfGrid, ip: *i64, e: i64) -> i64 {
  if g.err != 0 { return 0 }
  let s: *u8=g.tsv
  xf_ws(s, ip, e)
  if ip[0]>=e { g.err=1; return 0 }
  let c0: i64=s[ip[0]] as i64
  if c0==40 {
      ip[0]=ip[0]+1
      let v: i64=xf_expr(g, ip, e)
      xf_ws(s, ip, e)
      if ip[0]<e { if s[ip[0]]==(41 as u8) { ip[0]=ip[0]+1; return v } }
      g.err=1
      return 0
  }
  if c0==45 { ip[0]=ip[0]+1; let v2: i64=xf_factor(g, ip, e); return 0-v2 }
  var isnum: i64=0
  if c0>=48 { if c0<=57 { isnum=1 } }
  if c0==46 { isnum=1 }
  if isnum==1 {
      let st: i64=ip[0]
      var i: i64=ip[0]
      var dots: i64=0
      while i<e { let cc: i64=s[i] as i64; var ok: i64=0; if cc>=48 { if cc<=57 { ok=1 } } if cc==46 { dots=dots+1; if dots<=1 { ok=1 } } if ok==1 { i=i+1 } else { break } }
      ip[0]=i
      return xf_q4_of(s, st, i-st)
  }
  if c0>=65 { if c0<=90 {
      // FUNC( ... ) or a cell ref
      var la: i64=ip[0]
      var nlet: i64=0
      while la<e { let cl: i64=s[la] as i64; if cl>=65 { if cl<=90 { nlet=nlet+1; la=la+1 } else { break } } else { break } }
      var isfunc: i64=0
      if la<e { if s[la]==(40 as u8) { isfunc=1 } }
      if isfunc==1 {
          // identify: SUM AVERAGE MIN MAX COUNT
          var fid: i64=0
          if nlet==3 { if s[ip[0]]==(83 as u8) { if s[ip[0]+1]==(85 as u8) { if s[ip[0]+2]==(77 as u8) { fid=1 } } } }
          if nlet==7 { if s[ip[0]]==(65 as u8) { fid=2 } }
          if nlet==3 { if s[ip[0]]==(77 as u8) { if s[ip[0]+1]==(73 as u8) { fid=3 } } }
          if nlet==3 { if s[ip[0]]==(77 as u8) { if s[ip[0]+1]==(65 as u8) { fid=4 } } }
          if nlet==5 { if s[ip[0]]==(67 as u8) { fid=5 } }
          if fid==0 { g.err=1; return 0 }
          ip[0]=la+1
          var sum: i64=0
          var cnt: i64=0
          var mn: i64=0
          var mx: i64=0
          var go: i64=1
          while go==1 {
              if g.err != 0 { return 0 }
              xf_ws(s, ip, e)
              // arg = RANGE (ref:ref) | expr
              let save: i64=ip[0]
              let rc1: *i64=sys_mmap(32) as *i64
              var isrange: i64=0
              if xf_refparse(s, ip, e, rc1)==1 { if ip[0]<e { if s[ip[0]]==(58 as u8) {
                  ip[0]=ip[0]+1
                  let rc2: *i64=sys_mmap(32) as *i64
                  if xf_refparse(s, ip, e, rc2)==0 { g.err=1; return 0 }
                  isrange=1
                  var r1: i64=rc1[1]
                  var r2: i64=rc2[1]
                  var c1: i64=rc1[0]
                  var c2: i64=rc2[0]
                  if r2<r1 { let tt: i64=r1; r1=r2; r2=tt }
                  if c2<c1 { let t2: i64=c1; c1=c2; c2=t2 }
                  var rr: i64=r1
                  while rr<=r2 {
                      var cc2: i64=c1
                      while cc2<=c2 {
                          let idx2: i64=rr*XF_MAXC+cc2
                          var kk: i64=0
                          if rr<XF_MAXR { if cc2<XF_MAXC { kk=g.gk[idx2] as i64 } }
                          var vv: i64=0
                          var incl: i64=0
                          if kk==1 { vv=g.gv[idx2]; incl=1 }
                          if kk==3 { vv=xf_cellnum(g, rr, cc2); incl=1; if g.err != 0 { return 0 } }
                          if incl==1 {
                              sum=sum+vv
                              if cnt==0 { mn=vv; mx=vv } else { if vv<mn { mn=vv } if vv>mx { mx=vv } }
                              cnt=cnt+1
                          }
                          cc2=cc2+1
                      }
                      rr=rr+1
                  }
              } } }
              if isrange==0 {
                  ip[0]=save
                  let v3: i64=xf_expr(g, ip, e)
                  if g.err != 0 { return 0 }
                  sum=sum+v3
                  if cnt==0 { mn=v3; mx=v3 } else { if v3<mn { mn=v3 } if v3>mx { mx=v3 } }
                  cnt=cnt+1
              }
              xf_ws(s, ip, e)
              if ip[0]>=e { g.err=1; return 0 }
              if s[ip[0]]==(44 as u8) { ip[0]=ip[0]+1 } else {
                  if s[ip[0]]==(41 as u8) { ip[0]=ip[0]+1; go=0 } else { g.err=1; return 0 }
              }
          }
          if fid==1 { return sum }
          if fid==2 { if cnt==0 { g.err=4; return 0 } return sum/cnt }
          if fid==3 { if cnt==0 { g.err=2; return 0 } return mn }
          if fid==4 { if cnt==0 { g.err=2; return 0 } return mx }
          return cnt*XF_MAGIC_10000
      }
      // plain cell ref
      let rc: *i64=sys_mmap(32) as *i64
      if xf_refparse(s, ip, e, rc)==1 { return xf_cellnum(g, rc[1], rc[0]) }
      g.err=1
      return 0
  } }
  g.err=1
  return 0
352}
353
354func xf_term(g: *XfGrid, ip: *i64, e: i64) -> i64 {
  var v: i64=xf_factor(g, ip, e)
  var go: i64=1
  while go==1 {
      if g.err != 0 { return 0 }
      xf_ws(g.tsv, ip, e)
      var op: i64=0
      if ip[0]<e { op=g.tsv[ip[0]] as i64 }
      if op==42 {
          ip[0]=ip[0]+1
          let r: i64=xf_factor(g, ip, e)
          v=(v*r)/XF_MAGIC_10000
      } else { if op==47 {
          ip[0]=ip[0]+1
          let r2: i64=xf_factor(g, ip, e)
          if r2==0 { g.err=4; return 0 }
          v=(v*XF_MAGIC_10000)/r2
      } else { go=0 } }
  }
  return v
374}
375
376func xf_expr(g: *XfGrid, ip: *i64, e: i64) -> i64 {
  var v: i64=xf_term(g, ip, e)
  var go: i64=1
  while go==1 {
      if g.err != 0 { return 0 }
      xf_ws(g.tsv, ip, e)
      var op: i64=0
      if ip[0]<e { op=g.tsv[ip[0]] as i64 }
      if op==43 {
          ip[0]=ip[0]+1
          let r: i64=xf_term(g, ip, e)
          v=v+r
      } else { if op==45 {
          ip[0]=ip[0]+1
          let r2: i64=xf_term(g, ip, e)
          v=v-r2
      } else { go=0 } }
  }
  return v
395}
396
397func xf_evalcell(g: *XfGrid, r: i64, c: i64) -> i64 {
  let idx: i64=r*XF_MAXC+c
  g.gs[idx]=1 as u8
  let ipb: *i64=sys_mmap(16) as *i64
  ipb[0]=g.gfo[idx]
  let e: i64=g.gfo[idx]+g.gfl[idx]
  let v: i64=xf_expr(g, ipb, e)
  if g.err==0 { xf_ws(g.tsv, ipb, e); if ipb[0] != e { g.err=1 } }
  if g.err != 0 { return 0-1 }
  g.gv[idx]=v
  g.gs[idx]=2 as u8
  return 0
409}
410
411// classify the TSV into the grid, then evaluate EVERY formula cell. 0 ok; nonzero = g.err (LOUD).
412func xf_load(g: *XfGrid, tsv: *u8, tn: i64) -> i64 {
  var row: i64=0
  var pos: i64=0
  while pos<tn {
      var le: i64=tn
      var i: i64=pos
      while i<tn { if tsv[i]==(10 as u8) { le=i; break } i=i+1 }
      if le>pos {
          var lineend: i64=le
          if tsv[lineend-1]==(13 as u8) { lineend=lineend-1 }
          var cs: i64=pos
          var col: i64=0
          var j: i64=pos
          while j<=lineend {
              var sep: i64=0
              if j==lineend { sep=1 } else { if tsv[j]==(9 as u8) { sep=1 } }
              if sep==1 {
                  if row<XF_MAXR { if col<XF_MAXC {
                      let idx: i64=row*XF_MAXC+col
                      let clen: i64=j-cs
                      if clen<=0 { g.gk[idx]=0 as u8 } else {
                          if tsv[cs]==(61 as u8) {
                              g.gk[idx]=3 as u8
                              g.gs[idx]=0 as u8
                              g.gfo[idx]=cs+1
                              g.gfl[idx]=clen-1
                          } else {
                              if xl_is_numeric(tsv, cs, clen)==1 { g.gk[idx]=1 as u8; g.gv[idx]=xf_q4_of(tsv, cs, clen) } else { g.gk[idx]=2 as u8 }
                          }
                      }
                  } }
                  col=col+1
                  cs=j+1
              }
              j=j+1
          }
          if col>g.ncols { g.ncols=col }
          row=row+1
      }
      pos=le+1
  }
  g.nrows=row
  // evaluate all formulas (memoized; chains resolve on demand; first error wins, attributed to its cell)
  var r2: i64=0
  while r2<g.nrows {
      if r2>=XF_MAXR { break }
      var c2: i64=0
      while c2<g.ncols {
          if c2>=XF_MAXC { break }
          let idx2: i64=r2*XF_MAXC+c2
          if (g.gk[idx2] as i64)==3 { if (g.gs[idx2] as i64)==0 {
              g.errow=r2
              g.ercol=c2
              xf_evalcell(g, r2, c2)
              if g.err != 0 { return g.err }
          } }
          c2=c2+1
      }
      r2=r2+1
  }
  return 0
473}
474
475// formula-aware sheet builder: '='-cells emit <f>FORMULA</f><v>computed</v>; all other cells take the
476// EXACT existing xl_emit_cell path (byte-identical output for formula-free workbooks).
477func xl_build_sheet_g(g: *XfGrid, tsv: *u8, tn: i64, out: *u8) -> i64 {
  var o: i64=xl_cat(out,0,"<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>\n<worksheet xmlns=\"http://schemas.openxmlformats.org/spreadsheetml/2006/main\"><sheetData>" as *u8)
  var rownum: i64=0
  var pos: i64=0
  while pos<tn {
      var le: i64=tn
      var i: i64=pos
      while i<tn { if tsv[i]==(10 as u8) { le=i; break } i=i+1 }
      if le>pos {
          var lineend: i64=le
          if tsv[lineend-1]==(13 as u8) { lineend=lineend-1 }
          rownum=rownum+1
          o=xl_cat(out,o,"<row r=\"" as *u8); o=xl_uint(out,o,rownum); o=xl_cat(out,o,"\">" as *u8)
          var cs: i64=pos
          var col: i64=0
          var j: i64=pos
          while j<=lineend {
              var sep: i64=0
              if j==lineend { sep=1 } else { if tsv[j]==(9 as u8) { sep=1 } }
              if sep==1 {
                  var isform: i64=0
                  if rownum-1<XF_MAXR { if col<XF_MAXC {
                      let idx: i64=(rownum-1)*XF_MAXC+col
                      if (g.gk[idx] as i64)==3 {
                          isform=1
                          o=xl_cat(out,o,"<c r=\"" as *u8); o=xl_col(out,o,col); o=xl_uint(out,o,rownum); o=xl_cat(out,o,"\"><f>" as *u8)
                          o=xl_escape_region(out,o,tsv,g.gfo[idx],g.gfl[idx])
                          o=xl_cat(out,o,"</f><v>" as *u8)
                          o=xf_fmtq4(out,o,g.gv[idx])
                          o=xl_cat(out,o,"</v></c>" as *u8)
                      }
                  } }
                  if isform==0 { o=xl_emit_cell(out, o, col, rownum, tsv, cs, j-cs) }
                  col=col+1
                  cs=j+1
              }
              j=j+1
          }
          o=xl_cat(out,o,"</row>" as *u8)
      }
      pos=le+1
  }
  o=xl_cat(out,o,"</sheetData></worksheet>" as *u8)
  return o
521}
522
523
524// ================= DIRECTIVES: CONDITIONAL FORMATTING / DATA VALIDATION / MACROS ==================
525// Both capabilities are DATA-DRIVEN: they are carried in the sheet source as '#' directive lines, so a
526// spreadsheet is still one plain TSV file and nothing needs a side-car format.
527//   #CF    <sqref> <op> <value>        conditional formatting  e.g.  #CF B2:B4 greaterThan 100
528//   #DV    <sqref> <min> <max>         data validation (whole, between)
529//   #MACRO SET   <row> <col> <value>   write one cell
530//   #MACRO FILL  <r1> <c1> <r2> <c2> <value>
531//   #MACRO CLEAR <row> <col>
532//
533// MACROS RUN BEFORE FORMULA EVALUATION, and that ordering is the whole point: a macro-written cell must
534// feed SUM, so the macro rewrites the SHEET SOURCE and the existing formula engine then loads the
535// already-macroed grid. Deliberately NOT Turing-complete -- no loops, no branches, no I/O, no exec. A
536// spreadsheet that can run arbitrary code is a malware format; this one can only move numbers it was
537// handed, which is the whole reason macro-enabled formats are a security disaster.
538const XL_MAXR:  i64 = 512
539const XL_MAXC:  i64 = 64
540const XL_CELLW: i64 = 40
541
542func xl_dir_is(buf: *u8, s: i64, e: i64, tag: *u8) -> i64 {
  if s >= e { return 0 }
  if buf[s] != (35 as u8) { return 0 }
  var i: i64 = 0
  while tag[i] != (0 as u8) { if s + i >= e { return 0 } if buf[s + i] != tag[i] { return 0 } i = i + 1 }
  return 1
548}
549func xl_tok(buf: *u8, p: i64, e: i64, out: *u8, cap: i64, np: *i64) -> i64 {
  var i: i64 = p
  while i < e { if buf[i] != (32 as u8) { if buf[i] != (9 as u8) { break } } i = i + 1 }
  var k: i64 = 0
  while i < e { if buf[i] == (32 as u8) { break } if buf[i] == (9 as u8) { break } if k < cap - 1 { out[k] = buf[i]; k = k + 1 } i = i + 1 }
  out[k] = 0 as u8
  np[0] = i
  return k
557}
558func xl_atoi_s(s: *u8) -> i64 {
  var v: i64 = 0
  var i: i64 = 0
  while s[i] != (0 as u8) { let c: i64 = s[i] as i64; if c >= 48 { if c <= 57 { v = v * 10 + (c - 48) } } i = i + 1 }
  return v
563}
564
565// Apply every #MACRO to the sheet source and emit a TSV with the directive lines REMOVED (a directive is
566// not a data row). Returns the new length. This is what runs before xf_grid_new/xf_load.
567func xl_macro_apply(tsv: *u8, n: i64, out: *u8, cap: i64) -> i64 {
  let cells: *u8 = sys_mmap(XL_MAXR * XL_MAXC * XL_CELLW)
  let used: *i64 = sys_mmap(XL_MAXR * 8) as *i64
  var r: i64 = 0
  while r < XL_MAXR { used[r] = 0; r = r + 1 }
  var maxr: i64 = 0
573
  // pass 1: load the data rows into the grid
  var pos: i64 = 0
  var row: i64 = 0
  while pos < n {
      var le: i64 = n
      var i: i64 = pos
      while i < n { if tsv[i] == (10 as u8) { le = i; break } i = i + 1 }
      if le > pos { if tsv[pos] != (35 as u8) {
          var col: i64 = 0
          var cs: i64 = pos
          var j: i64 = pos
          while j <= le {
              if j == le {
                  if col < XL_MAXC { if row < XL_MAXR {
                      var k: i64 = 0
                      while cs + k < j { if k < XL_CELLW - 1 { cells[(row * XL_MAXC + col) * XL_CELLW + k] = tsv[cs + k] } k = k + 1 }
                      cells[(row * XL_MAXC + col) * XL_CELLW + k] = 0 as u8
                  } }
                  col = col + 1
              } else { if tsv[j] == (9 as u8) {
                  if col < XL_MAXC { if row < XL_MAXR {
                      var k2: i64 = 0
                      while cs + k2 < j { if k2 < XL_CELLW - 1 { cells[(row * XL_MAXC + col) * XL_CELLW + k2] = tsv[cs + k2] } k2 = k2 + 1 }
                      cells[(row * XL_MAXC + col) * XL_CELLW + k2] = 0 as u8
                  } }
                  col = col + 1
                  cs = j + 1
              } }
              j = j + 1
          }
          if row < XL_MAXR { used[row] = col }
          if row + 1 > maxr { maxr = row + 1 }
          row = row + 1
      } }
      pos = le + 1
  }
610
  // pass 2: apply the macros in source order
  let t: *u8 = sys_mmap(64)
  let np: *i64 = sys_mmap(16) as *i64
  pos = 0
  while pos < n {
      var le2: i64 = n
      var i2: i64 = pos
      while i2 < n { if tsv[i2] == (10 as u8) { le2 = i2; break } i2 = i2 + 1 }
      if xl_dir_is(tsv, pos, le2, "#MACRO" as *u8) == 1 {
          var q: i64 = pos + 6
          xl_tok(tsv, q, le2, t, 64, np)
          q = np[0]
          if xl_streq(t, "SET" as *u8) == 1 {
              xl_tok(tsv, q, le2, t, 64, np); q = np[0]; let rr: i64 = xl_atoi_s(t) - 1
              xl_tok(tsv, q, le2, t, 64, np); q = np[0]; let cc: i64 = xl_atoi_s(t) - 1
              xl_tok(tsv, q, le2, t, 64, np); q = np[0]
              if rr >= 0 { if cc >= 0 { if rr < XL_MAXR { if cc < XL_MAXC {
                  var k3: i64 = 0
                  while t[k3] != (0 as u8) { cells[(rr * XL_MAXC + cc) * XL_CELLW + k3] = t[k3]; k3 = k3 + 1 }
                  cells[(rr * XL_MAXC + cc) * XL_CELLW + k3] = 0 as u8
                  if used[rr] <= cc { used[rr] = cc + 1 }
                  if rr + 1 > maxr { maxr = rr + 1 }
              } } } }
          }
          if xl_streq(t, "CLEAR" as *u8) == 1 {
              xl_tok(tsv, q, le2, t, 64, np); q = np[0]; let rr2: i64 = xl_atoi_s(t) - 1
              xl_tok(tsv, q, le2, t, 64, np); q = np[0]; let cc2: i64 = xl_atoi_s(t) - 1
              if rr2 >= 0 { if cc2 >= 0 { if rr2 < XL_MAXR { if cc2 < XL_MAXC { cells[(rr2 * XL_MAXC + cc2) * XL_CELLW] = 0 as u8 } } } }
          }
          if xl_streq(t, "FILL" as *u8) == 1 {
              xl_tok(tsv, q, le2, t, 64, np); q = np[0]; let r1: i64 = xl_atoi_s(t) - 1
              xl_tok(tsv, q, le2, t, 64, np); q = np[0]; let c1: i64 = xl_atoi_s(t) - 1
              xl_tok(tsv, q, le2, t, 64, np); q = np[0]; let r2: i64 = xl_atoi_s(t) - 1
              xl_tok(tsv, q, le2, t, 64, np); q = np[0]; let c2: i64 = xl_atoi_s(t) - 1
              xl_tok(tsv, q, le2, t, 64, np); q = np[0]
              var rr3: i64 = r1
              while rr3 <= r2 {
                  var cc3: i64 = c1
                  while cc3 <= c2 {
                      if rr3 >= 0 { if cc3 >= 0 { if rr3 < XL_MAXR { if cc3 < XL_MAXC {
                          var k4: i64 = 0
                          while t[k4] != (0 as u8) { cells[(rr3 * XL_MAXC + cc3) * XL_CELLW + k4] = t[k4]; k4 = k4 + 1 }
                          cells[(rr3 * XL_MAXC + cc3) * XL_CELLW + k4] = 0 as u8
                          if used[rr3] <= cc3 { used[rr3] = cc3 + 1 }
                          if rr3 + 1 > maxr { maxr = rr3 + 1 }
                      } } } }
                      cc3 = cc3 + 1
                  }
                  rr3 = rr3 + 1
              }
          }
      }
      pos = le2 + 1
  }
665
  // pass 3: re-emit the grid as TSV (directives dropped)
  var o: i64 = 0
  var rr4: i64 = 0
  while rr4 < maxr {
      var cc4: i64 = 0
      let nc: i64 = used[rr4]
      while cc4 < nc {
          let base: i64 = (rr4 * XL_MAXC + cc4) * XL_CELLW
          var k5: i64 = 0
          while cells[base + k5] != (0 as u8) { if o < cap - 2 { out[o] = cells[base + k5]; o = o + 1 } k5 = k5 + 1 }
          if cc4 + 1 < nc { if o < cap - 2 { out[o] = 9 as u8; o = o + 1 } }
          cc4 = cc4 + 1
      }
      if o < cap - 2 { out[o] = 10 as u8; o = o + 1 }
      rr4 = rr4 + 1
  }
  out[o] = 0 as u8
  return o
684}
685
686// styles.xml carrying a real <dxfs> entry. THE cfRule BELOW POINTS AT dxfId 0, and a cfRule pointing at a
687// missing dxf is a HARD CORRUPT FILE in Excel -- so the style part is not optional decoration, it is what
688// makes the conditional-formatting claim true rather than merely emitted.
689func xl_styles_dxf() -> *u8 {
  return "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>\n<styleSheet xmlns=\"http://schemas.openxmlformats.org/spreadsheetml/2006/main\"><fonts count=\"1\"><font><sz val=\"11\"/><name val=\"Calibri\"/></font></fonts><fills count=\"2\"><fill><patternFill patternType=\"none\"/></fill><fill><patternFill patternType=\"gray125\"/></fill></fills><borders count=\"1\"><border><left/><right/><top/><bottom/><diagonal/></border></borders><cellStyleXfs count=\"1\"><xf numFmtId=\"0\" fontId=\"0\" fillId=\"0\" borderId=\"0\"/></cellStyleXfs><cellXfs count=\"1\"><xf numFmtId=\"0\" fontId=\"0\" fillId=\"0\" borderId=\"0\" xfId=\"0\"/></cellXfs><cellStyles count=\"1\"><cellStyle name=\"Normal\" xfId=\"0\" builtinId=\"0\"/></cellStyles><dxfs count=\"1\"><dxf><font><color rgb=\"FF9C0006\"/></font><fill><patternFill><bgColor rgb=\"FFFFC7CE\"/></patternFill></fill></dxf></dxfs><tableStyles count=\"0\"/></styleSheet>" as *u8
691}
692
693// Emit <conditionalFormatting> and <dataValidations> collected from the #CF / #DV directives.
694func xl_emit_cf_dv(out: *u8, off: i64, tsv: *u8, n: i64) -> i64 {
  var o: i64 = off
  let t: *u8 = sys_mmap(64)
  let sq: *u8 = sys_mmap(64)
  let np: *i64 = sys_mmap(16) as *i64
  var pri: i64 = 1
  var pos: i64 = 0
  while pos < n {
      var le: i64 = n
      var i: i64 = pos
      while i < n { if tsv[i] == (10 as u8) { le = i; break } i = i + 1 }
      if xl_dir_is(tsv, pos, le, "#CF" as *u8) == 1 {
          var q: i64 = pos + 3
          xl_tok(tsv, q, le, sq, 64, np); q = np[0]
          xl_tok(tsv, q, le, t, 64, np); q = np[0]
          o = xl_cat(out, o, "<conditionalFormatting sqref=\"" as *u8)
          o = xl_cat(out, o, sq)
          o = xl_cat(out, o, "\"><cfRule type=\"cellIs\" dxfId=\"0\" priority=\"" as *u8)
          o = xl_uint(out, o, pri)
          o = xl_cat(out, o, "\" operator=\"" as *u8)
          o = xl_cat(out, o, t)
          o = xl_cat(out, o, "\"><formula>" as *u8)
          xl_tok(tsv, q, le, t, 64, np); q = np[0]
          o = xl_cat(out, o, t)
          o = xl_cat(out, o, "</formula></cfRule></conditionalFormatting>" as *u8)
          pri = pri + 1
      }
      pos = le + 1
  }
  // data validations must be wrapped in ONE <dataValidations> with a count
  var ndv: i64 = 0
  pos = 0
  while pos < n {
      var le3: i64 = n
      var i3: i64 = pos
      while i3 < n { if tsv[i3] == (10 as u8) { le3 = i3; break } i3 = i3 + 1 }
      if xl_dir_is(tsv, pos, le3, "#DV" as *u8) == 1 { ndv = ndv + 1 }
      pos = le3 + 1
  }
  if ndv > 0 {
      o = xl_cat(out, o, "<dataValidations count=\"" as *u8)
      o = xl_uint(out, o, ndv)
      o = xl_cat(out, o, "\">" as *u8)
      pos = 0
      while pos < n {
          var le4: i64 = n
          var i4: i64 = pos
          while i4 < n { if tsv[i4] == (10 as u8) { le4 = i4; break } i4 = i4 + 1 }
          if xl_dir_is(tsv, pos, le4, "#DV" as *u8) == 1 {
              var q2: i64 = pos + 3
              xl_tok(tsv, q2, le4, sq, 64, np); q2 = np[0]
              o = xl_cat(out, o, "<dataValidation type=\"whole\" operator=\"between\" allowBlank=\"1\" showInputMessage=\"1\" showErrorMessage=\"1\" sqref=\"" as *u8)
              o = xl_cat(out, o, sq)
              o = xl_cat(out, o, "\"><formula1>" as *u8)
              xl_tok(tsv, q2, le4, t, 64, np); q2 = np[0]
              o = xl_cat(out, o, t)
              o = xl_cat(out, o, "</formula1><formula2>" as *u8)
              xl_tok(tsv, q2, le4, t, 64, np); q2 = np[0]
              o = xl_cat(out, o, t)
              o = xl_cat(out, o, "</formula2></dataValidation>" as *u8)
          }
          pos = le4 + 1
      }
      o = xl_cat(out, o, "</dataValidations>" as *u8)
  }
  return o
760}
761
762func xlsx_write_tsv(tsvpath: *u8, outpath: *u8) -> i64 {
  let szp: *i64=sys_mmap(16) as *i64
  let tsv: *u8=sys_read_file(tsvpath, szp)
  if (tsv as i64)==0 { return 0-1 }
  // FORMULAS: classify + evaluate '='-cells before emitting (LOUD on syntax/bad-ref/cycle/div-0)
  // MACROS FIRST: rewrite the sheet source so a macro-written cell is loaded as data and therefore
  // feeds SUM. Running them after xf_load would make the macro invisible to every formula.
  let mtsv: *u8=sys_mmap(XF_MAGIC_8388624)
  var mlen: i64=xl_macro_apply(tsv, szp[0], mtsv, XF_MAGIC_8388624)
  if mlen <= 0 { mlen = szp[0] }
  let g: *XfGrid=xf_grid_new(mtsv)
  let frc: i64=xf_load(g, mtsv, mlen)
  if frc != 0 {
      xl_puts("XLSX-FORMULA-FAIL kind=" as *u8); xl_num(frc)
      xl_puts(" cell_row=" as *u8); xl_num(g.errow+1)
      xl_puts(" cell_col=" as *u8); xl_num(g.ercol+1)
      xl_puts(" (1=syntax 2=bad-ref/value 3=CYCLE 4=div-0)\n" as *u8)
      return 0-9
  }
  let sheet: *u8=sys_mmap(XF_MAGIC_8388624)
  var slen: i64=xl_build_sheet_g(g, mtsv, mlen, sheet)
  // splice CF/DV between </sheetData> and </worksheet> (they are invalid anywhere else)
  slen = slen - 12
  slen = xl_emit_cf_dv(sheet, slen, tsv, szp[0])
  slen = xl_cat(sheet, slen, "</worksheet>" as *u8)
  let ct: *u8="<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>\n<Types xmlns=\"http://schemas.openxmlformats.org/package/2006/content-types\"><Default Extension=\"rels\" ContentType=\"application/vnd.openxmlformats-package.relationships+xml\"/><Default Extension=\"xml\" ContentType=\"application/xml\"/><Override PartName=\"/xl/workbook.xml\" ContentType=\"application/vnd.openxmlformats-officedocument.spreadsheetml.sheet.main+xml\"/><Override PartName=\"/xl/worksheets/sheet1.xml\" ContentType=\"application/vnd.openxmlformats-officedocument.spreadsheetml.worksheet+xml\"/></Types>" as *u8
  let rels: *u8="<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>\n<Relationships xmlns=\"http://schemas.openxmlformats.org/package/2006/relationships\"><Relationship Id=\"rId1\" Type=\"http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument\" Target=\"xl/workbook.xml\"/></Relationships>" as *u8
  let wb: *u8="<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>\n<workbook xmlns=\"http://schemas.openxmlformats.org/spreadsheetml/2006/main\" xmlns:r=\"http://schemas.openxmlformats.org/officeDocument/2006/relationships\"><sheets><sheet name=\"Sheet1\" sheetId=\"1\" r:id=\"rId1\"/></sheets></workbook>" as *u8
  let wbr: *u8="<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>\n<Relationships xmlns=\"http://schemas.openxmlformats.org/package/2006/relationships\"><Relationship Id=\"rId1\" Type=\"http://schemas.openxmlformats.org/officeDocument/2006/relationships/worksheet\" Target=\"worksheets/sheet1.xml\"/></Relationships>" as *u8
  let names: *i64=sys_mmap(64) as *i64; let datap: *i64=sys_mmap(64) as *i64; let lens: *i64=sys_mmap(64) as *i64
  names[0]="[Content_Types].xml" as *u8 as i64;          datap[0]=ct as i64;    lens[0]=xl_strlen(ct)
  names[1]="_rels/.rels" as *u8 as i64;                   datap[1]=rels as i64;  lens[1]=xl_strlen(rels)
  names[2]="xl/workbook.xml" as *u8 as i64;               datap[2]=wb as i64;    lens[2]=xl_strlen(wb)
  names[3]="xl/_rels/workbook.xml.rels" as *u8 as i64;    datap[3]=wbr as i64;   lens[3]=xl_strlen(wbr)
  names[4]="xl/worksheets/sheet1.xml" as *u8 as i64;      datap[4]=sheet as i64; lens[4]=slen
  let sty: *u8=xl_styles_dxf()
  names[5]="xl/styles.xml" as *u8 as i64;                 datap[5]=sty as i64;   lens[5]=xl_strlen(sty)
  return opc_write(outpath, names, datap, lens, 6)
800}
801
802// load xl/sharedStrings.xml (foreign Excel/Sheets files use t="s" cells indexing this table): each <si>'s
803// FIRST <t> text (entity-unescaped, NUL-terminated) into sbuf, offsets into soffs; returns the count.
804// Our own fromtsv files have no such part -> count 0, zero behavior change. (Rich <r>-run <si>s: first <t> only.)
805func xl_shared_load(path: *u8, sbuf: *u8, soffs: *i64, maxn: i64) -> i64 {
  let sx: *u8=sys_mmap(XF_MAGIC_4194320)
  let n: i64=opc_read_part(path, "xl/sharedStrings.xml" as *u8, sx, XF_MAGIC_4194304)
  if n<0 { return 0 }
  var cnt: i64=0; var i: i64=0; var o: i64=0
  while i<n {
      if xl_match(sx,i,n,"<si>" as *u8)==1 {
          if cnt>=maxn { i=n } else {
              soffs[cnt]=o
              var k: i64=i+4
              var havet: i64=0
              while k<n { if xl_match(sx,k,n,"</si>" as *u8)==1 { break } if xl_match(sx,k,n,"<t" as *u8)==1 { havet=1; break } k=k+1 }
              if havet==1 {
                  var selfc: i64=0
                  while k<n { if sx[k]==(47 as u8) { if sx[k+1]==(62 as u8) { selfc=1 } } if sx[k]==(62 as u8) { k=k+1; break } k=k+1 }
                  if selfc==0 {
                      while k<n {
                          if xl_match(sx,k,n,"</t>" as *u8)==1 { break }
                          if sx[k]==(38 as u8) {
                              if xl_match(sx,k,n,"&amp;" as *u8)==1 { sbuf[o]=38 as u8; o=o+1; k=k+5 } else {
                              if xl_match(sx,k,n,"&lt;" as *u8)==1 { sbuf[o]=60 as u8; o=o+1; k=k+4 } else {
                              if xl_match(sx,k,n,"&gt;" as *u8)==1 { sbuf[o]=62 as u8; o=o+1; k=k+4 } else {
                              if xl_match(sx,k,n,"&quot;" as *u8)==1 { sbuf[o]=34 as u8; o=o+1; k=k+6 } else {
                              if xl_match(sx,k,n,"&apos;" as *u8)==1 { sbuf[o]=39 as u8; o=o+1; k=k+6 } else {
                              sbuf[o]=sx[k]; o=o+1; k=k+1 } } } } }
                          } else { sbuf[o]=sx[k]; o=o+1; k=k+1 }
                      }
                  }
              }
              sbuf[o]=0 as u8; o=o+1
              cnt=cnt+1
              i=i+4
          }
      } else { i=i+1 }
  }
  return cnt
841}
842
843// read sheet1 grid back to TSV into out; return length (or <0). inlineStr + numeric <v> + SHARED (t="s",
844// resolved through xl_shared_load) all yield TEXT.
845func xlsx_read_tsv(path: *u8, out: *u8, cap: i64) -> i64 {
  let sh: *u8=sys_mmap(XF_MAGIC_8388624)
  let n: i64=opc_read_part(path, "xl/worksheets/sheet1.xml" as *u8, sh, XF_MAGIC_8388608)
  if n<0 { return n }
  let sstr: *u8=sys_mmap(XF_MAGIC_1048592)
  let soffs: *i64=sys_mmap(8*XF_MAGIC_16384) as *i64
  let scount: i64=xl_shared_load(path, sstr, soffs, XF_MAGIC_16384)
  var o: i64=0; var i: i64=0; var firstrow: i64=1; var cellcol: i64=0
  while i<n {
      if xl_match(sh,i,n,"</row>" as *u8)==1 { i=i+6 } else {
      if xl_match(sh,i,n,"<row" as *u8)==1 {
          if firstrow==0 { out[o]=10 as u8; o=o+1 }
          firstrow=0; cellcol=0
          while i<n { if sh[i]==(62 as u8) { i=i+1; break } i=i+1 }
      } else {
      if xl_match(sh,i,n,"<c" as *u8)==1 {
          let c2: i64=sh[i+2] as i64
          var iscell: i64=0
          if c2==32 { iscell=1 } else { if c2==62 { iscell=1 } else { if c2==47 { iscell=1 } } }
          if iscell==1 {
              if cellcol>0 { out[o]=9 as u8; o=o+1 }
              cellcol=cellcol+1
              var isStr: i64=0; var isShared: i64=0; var selfclose: i64=0; var j: i64=i+2
              while j<n { if sh[j]==(62 as u8) { break } if xl_match(sh,j,n,"t=\"inlineStr\"" as *u8)==1 { isStr=1 } if xl_match(sh,j,n,"t=\"s\"" as *u8)==1 { isShared=1 } if sh[j]==(47 as u8) { if sh[j+1]==(62 as u8) { selfclose=1 } } j=j+1 }
              if selfclose==1 { i=j+1 } else {
                  if isStr==1 {
                      var k: i64=j
                      while k<n { if xl_match(sh,k,n,"<t" as *u8)==1 { break } k=k+1 }
                      while k<n { if sh[k]==(62 as u8) { k=k+1; break } k=k+1 }   // past <t...>
                      while k<n {
                          if xl_match(sh,k,n,"</t>" as *u8)==1 { break }
                          if sh[k]==(38 as u8) {
                              if xl_match(sh,k,n,"&amp;" as *u8)==1 { out[o]=38 as u8; o=o+1; k=k+5 } else {
                              if xl_match(sh,k,n,"&lt;" as *u8)==1 { out[o]=60 as u8; o=o+1; k=k+4 } else {
                              if xl_match(sh,k,n,"&gt;" as *u8)==1 { out[o]=62 as u8; o=o+1; k=k+4 } else {
                              if xl_match(sh,k,n,"&quot;" as *u8)==1 { out[o]=34 as u8; o=o+1; k=k+6 } else {
                              if xl_match(sh,k,n,"&apos;" as *u8)==1 { out[o]=39 as u8; o=o+1; k=k+6 } else {
                              out[o]=sh[k]; o=o+1; k=k+1 } } } } }
                          } else { out[o]=sh[k]; o=o+1; k=k+1 }
                      }
                      while k<n { if xl_match(sh,k,n,"</c>" as *u8)==1 { break } k=k+1 }
                      i=k+4
                  } else {
                      if isShared==1 {
                          // t="s": <v> holds an INDEX into the sharedStrings table -> emit the resolved text
                          var k: i64=j
                          while k<n { if xl_match(sh,k,n,"<v>" as *u8)==1 { break } k=k+1 }
                          k=k+3
                          var idxv: i64=0
                          while k<n { if xl_match(sh,k,n,"</v>" as *u8)==1 { break } let dc: i64=sh[k] as i64; if dc>=48 { if dc<=57 { idxv=idxv*10+(dc-48) } } k=k+1 }
                          if idxv<scount { o=xl_cat(out, o, ((sstr as i64) + soffs[idxv]) as *u8) }
                          while k<n { if xl_match(sh,k,n,"</c>" as *u8)==1 { break } k=k+1 }
                          i=k+4
                      } else {
                          var k: i64=j
                          while k<n { if xl_match(sh,k,n,"<v>" as *u8)==1 { break } k=k+1 }
                          k=k+3
                          while k<n { if xl_match(sh,k,n,"</v>" as *u8)==1 { break } out[o]=sh[k]; o=o+1; k=k+1 }
                          while k<n { if xl_match(sh,k,n,"</c>" as *u8)==1 { break } k=k+1 }
                          i=k+4
                      }
                  }
              }
          } else { i=i+1 }
      } else { i=i+1 } } }
  }
  out[o]=0 as u8
  return o
913}
914
915// emit one char HTML-escaped into dst
916func xl_esc1(dst: *u8, o: i64, c: i64) -> i64 {
  if c==38 { return xl_cat(dst,o,"&amp;" as *u8) }
  if c==60 { return xl_cat(dst,o,"&lt;" as *u8) }
  if c==62 { return xl_cat(dst,o,"&gt;" as *u8) }
  dst[o]=c as u8; return o+1
921}
922
923// one TSV row tsv[s,e) -> <tr> with TAB-split th/td cells
924func xl_rowhtml(out: *u8, off: i64, tsv: *u8, s: i64, e: i64, ishdr: i64) -> i64 {
  var o: i64=off
  o=xl_cat(out,o,"<tr>" as *u8)
  var p: i64=s
  var cs: i64=s
  while p<=e {
      var attab: i64=0
      if p==e { attab=1 } else { if tsv[p]==(9 as u8) { attab=1 } }
      if attab==1 {
          if ishdr==1 { o=xl_cat(out,o,"<th>" as *u8) } else { o=xl_cat(out,o,"<td>" as *u8) }
          var q: i64=cs
          while q<p { o=xl_esc1(out,o,tsv[q] as i64); q=q+1 }
          if ishdr==1 { o=xl_cat(out,o,"</th>" as *u8) } else { o=xl_cat(out,o,"</td>" as *u8) }
          cs=p+1
      }
      p=p+1
  }
  o=xl_cat(out,o,"</tr>\n" as *u8)
  return o
943}
944
945// CHARTS v1 (OF-S4, native-first): render a 0-JS BAR CHART from the sheet's data -- labels = column A,
946// values = the first column whose data cells are >=60% numeric (formula cells count: read resolves them to
947// computed values first). Bar widths are integer percents of the max (style attr, no JS). Sheets with no
948// numeric column get no chart section (graceful). In-FILE DrawingML c:chart parts (Excel-native charts) are
949// the interop second half -- a NAMED follow-up, not claimed.
950func xl_chart_html(out: *u8, off: i64, tsv: *u8, tn: i64) -> i64 {
  var o: i64=off
  // collect row spans (up to 25: header + 24 bars)
  let rs: *i64=sys_mmap(8*64) as *i64
  let re: *i64=sys_mmap(8*64) as *i64
  var nr: i64=0
  var i: i64=0
  while i<tn {
      var e: i64=i
      while e<tn { if tsv[e]==(10 as u8) { break } e=e+1 }
      if e>i { if nr<40 { rs[nr]=i; re[nr]=e; nr=nr+1 } }
      i=e+1
  }
  if nr<2 { return o }
  // find the value column: first col c>=1 whose data cells are >=60% numeric (and >0 numeric)
  var vc: i64=0-1
  var c: i64=1
  while c<16 {
      if vc>=0 { c=16 } else {
          var num: i64=0
          var tot: i64=0
          var r: i64=1
          while r<nr {
              // cell (r, c)
              var p: i64=rs[r]
              var cc: i64=0
              var cs2: i64=p
              var fend: i64=0-1
              var fstart: i64=0-1
              while p<=re[r] {
                  var sep: i64=0
                  if p==re[r] { sep=1 } else { if tsv[p]==(9 as u8) { sep=1 } }
                  if sep==1 { if cc==c { fstart=cs2; fend=p; p=re[r]+1 } else { cc=cc+1; cs2=p+1 } }
                  p=p+1
              }
              if fstart>=0 { if fend>fstart {
                  tot=tot+1
                  if xl_is_numeric(tsv, fstart, fend-fstart)==1 { num=num+1 }
              } }
              r=r+1
          }
          if num>0 { if num*10 >= tot*6 { vc=c } }
          if vc<0 { c=c+1 }
      }
  }
  if vc<0 { return o }
  // max value (Q4)
  var mx: i64=0
  var r2: i64=1
  while r2<nr {
      var p2: i64=rs[r2]
      var cc2: i64=0
      var cs3: i64=p2
      while p2<=re[r2] {
          var sep2: i64=0
          if p2==re[r2] { sep2=1 } else { if tsv[p2]==(9 as u8) { sep2=1 } }
          if sep2==1 {
              if cc2==vc { if p2>cs3 { if xl_is_numeric(tsv,cs3,p2-cs3)==1 { let v: i64=xf_q4_of(tsv,cs3,p2-cs3); if v>mx { mx=v } } } }
              cc2=cc2+1
              cs3=p2+1
          }
          p2=p2+1
      }
      r2=r2+1
  }
  if mx<=0 { return o }
  o=xl_cat(out,o,"<div class=chart><p class=ct>Chart &mdash; first numeric column, bars sized to the max value</p>\n" as *u8)
  var r3: i64=1
  var bars: i64=0
  while r3<nr {
      if bars<24 {
          // label = col 0, value = col vc
          var p3: i64=rs[r3]
          var cc3: i64=0
          var cs4: i64=p3
          var lab_s: i64=0-1
          var lab_e: i64=0-1
          var val_s: i64=0-1
          var val_e: i64=0-1
          while p3<=re[r3] {
              var sep3: i64=0
              if p3==re[r3] { sep3=1 } else { if tsv[p3]==(9 as u8) { sep3=1 } }
              if sep3==1 {
                  if cc3==0 { lab_s=cs4; lab_e=p3 }
                  if cc3==vc { val_s=cs4; val_e=p3 }
                  cc3=cc3+1
                  cs4=p3+1
              }
              p3=p3+1
          }
          if val_s>=0 { if val_e>val_s { if xl_is_numeric(tsv,val_s,val_e-val_s)==1 {
              let v2: i64=xf_q4_of(tsv,val_s,val_e-val_s)
              if v2>=0 {
                  var pct: i64=(v2*100)/mx
                  if pct<1 { pct=1 }
                  o=xl_cat(out,o,"<div class=brow><span class=bl>" as *u8)
                  var q2: i64=lab_s
                  while q2<lab_e { o=xl_esc1(out,o,tsv[q2] as i64); q2=q2+1 }
                  o=xl_cat(out,o,"</span><div class=bar style=\"width:" as *u8)
                  o=xl_uint(out,o,pct)
                  o=xl_cat(out,o,"%\">" as *u8)
                  var q3: i64=val_s
                  while q3<val_e { o=xl_esc1(out,o,tsv[q3] as i64); q3=q3+1 }
                  o=xl_cat(out,o,"</div></div>\n" as *u8)
                  bars=bars+1
              }
          } } }
      }
      r3=r3+1
  }
  o=xl_cat(out,o,"</div>\n" as *u8)
  return o
1062}
1063
1064// shared TSV -> standard 0-JS preview page (auto-chart + table). label = the small caption over the data.
1065// Used by BOTH the sheet preview (xlsx_to_html) and the PIVOT view (rule 15 DRY).
1066func xl_tsv_to_html(tsv: *u8, tn: i64, out: *u8, dlurl: *u8, label: *u8) -> i64 {
  var o: i64=0
  o=xl_cat(out,o,"<!DOCTYPE html>\n<html lang=en><head><meta charset=utf-8><meta name=viewport content=\"width=device-width,initial-scale=1\"><title>Document Preview - Nishi Office</title><style>\nbody{font:16px/1.6 system-ui,-apple-system,Segoe UI,Roboto,sans-serif;margin:0;background:#eef1f5;color:#1a1d21}\nheader{background:#0f172a;color:#fff;padding:16px 24px}header h1{margin:0;font-size:17px;font-weight:600}\n.doc{max-width:960px;margin:22px auto;background:#fff;border:1px solid #e2e8f0;border-radius:12px;padding:24px;box-shadow:0 1px 4px rgba(15,23,42,.08);overflow-x:auto}\n.sheet{font-size:13px;color:#64748b;margin:0 0 10px}\ntable{border-collapse:collapse;width:100%;font-size:14px}\nth,td{border:1px solid #cbd5e1;padding:7px 12px;text-align:left}\nth{background:#0f172a;color:#fff;position:sticky;top:0}\ntr:nth-child(even) td{background:#f8fafc}\n.chart{margin:0 0 18px}.ct{font-size:13px;color:#64748b;margin:0 0 8px}\n.brow{display:flex;align-items:center;margin:4px 0}.bl{width:220px;font-size:13px;color:#334155;overflow:hidden;white-space:nowrap;text-overflow:ellipsis;flex-shrink:0}\n.bar{background:#2563eb;color:#fff;font-size:12px;border-radius:4px;padding:3px 8px;min-width:14px}\n.dlbar{max-width:960px;margin:0 auto 6px;text-align:right}.dl{display:inline-block;padding:9px 18px;background:#2563eb;color:#fff;border-radius:8px;text-decoration:none;font-size:14px;font-weight:500}\nfooter{max-width:960px;margin:14px auto 46px;color:#64748b;font-size:13px;text-align:center}\n</style></head>\n<body>\n<header><h1>&#128202; Document Preview &mdash; Nishi Office</h1></header>\n<div class=doc>\n<p class=sheet>" as *u8)
  o=xl_cat(out,o,label)
  o=xl_cat(out,o,"</p>\n" as *u8)
  o=xl_chart_html(out, o, tsv, tn)
  o=xl_cat(out,o,"<table>\n" as *u8)
  var i: i64=0; var first: i64=1
  while i<tn {
      var e: i64=i
      while e<tn { if tsv[e]==(10 as u8) { break } e=e+1 }
      if e>i {
          if first==1 { o=xl_rowhtml(out,o,tsv,i,e,1); first=0 } else { o=xl_rowhtml(out,o,tsv,i,e,0) }
      }
      i=e+1
  }
  o=xl_cat(out,o,"</table>\n</div>\n" as *u8)
  if (dlurl as i64)!=0 { o=xl_cat(out,o,"<div class=dlbar><a class=dl href=\"" as *u8); o=xl_cat(out,o,dlurl); o=xl_cat(out,o,"\">&#11015; Download .xlsx (opens in Excel / Sheets / Numbers)</a></div>\n" as *u8) }
  o=xl_cat(out,o,"<footer>Rendered natively from SpreadsheetML by <b>nx_xlsx</b> &middot; viewable inline in the Nishi browser &middot; your workbooks stay on your hardware</footer>\n</body></html>\n" as *u8)
  return o
1086}
1087
1088// .xlsx -> the standard 0-JS inline preview (sheet1 as a table; first row = header). Composes
1089// xlsx_read_tsv, so inlineStr + numeric + SHARED strings all render as text. Same iface as nx_docx/nx_md/
1090// nx_csv/nx_pdf so the nx_doc_view registry (and thus the Nishi browser) routes .xlsx with zero new code.
1091func xlsx_to_html(path: *u8, out: *u8, dlurl: *u8) -> i64 {
  let tsv: *u8=sys_mmap(XF_MAGIC_8388624)
  let tn: i64=xlsx_read_tsv(path, tsv, XF_MAGIC_8388608)
  if tn<0 { return tn }
  return xl_tsv_to_html(tsv, tn, out, dlurl, "Sheet1" as *u8)
1096}
1097
1098// ---- PIVOT v1 (OF-S5, native-first): GROUP-BY aggregation over the resolved sheet (formula cells count at
1099// their computed values). Groups by column G (letter), aggregates column V: SUM / COUNT / AVG (Q4; AVG floors)
1100// + a TOTAL row. Data rows = 2..N (row 1 = header); a row participates when its group cell is non-empty AND
1101// its value cell is numeric. HONEST scope: single group column, three aggregates; in-FILE pivotTable parts +
1102// drag-drop pivot UI = named follow-ups. Intended for TRANSACTIONAL sheets (summary rows form literal groups).
1103func xl_colletter(s: *u8) -> i64 {
  var col: i64=0
  var i: i64=0
  while s[i]!=(0 as u8) {
      let c: i64=s[i] as i64
      if c>=65 { if c<=90 { col=col*26+(c-64); i=i+1 } else { return 0-1 } } else { return 0-1 }
      if i>2 { return 0-1 }
  }
  if col<1 { return 0-1 }
  return col-1
1113}
1114
1115// pivot the TSV: group col gc, value col vc (0-based) -> pivot TSV in pout. Returns length (or <0: -1 = no
1116// participating rows).
1117func xl_pivot(tsv: *u8, tn: i64, gc: i64, vc: i64, pout: *u8) -> i64 {
  // group registry (cap 128): span into tsv + sum/count
  let gso: *i64=sys_mmap(8*128) as *i64
  let gsl: *i64=sys_mmap(8*128) as *i64
  let gsum: *i64=sys_mmap(8*128) as *i64
  let gcnt: *i64=sys_mmap(8*128) as *i64
  var ng: i64=0
  var row: i64=0
  var i: i64=0
  var total: i64=0
  var totcnt: i64=0
  while i<tn {
      var e: i64=i
      while e<tn { if tsv[e]==(10 as u8) { break } e=e+1 }
      if e>i {
          row=row+1
          if row>=2 {
              // locate group + value cells
              var p: i64=i
              var cc: i64=0
              var cs: i64=i
              var g_s: i64=0-1
              var g_e: i64=0-1
              var v_s: i64=0-1
              var v_e: i64=0-1
              while p<=e {
                  var sep: i64=0
                  if p==e { sep=1 } else { if tsv[p]==(9 as u8) { sep=1 } }
                  if sep==1 {
                      if cc==gc { g_s=cs; g_e=p }
                      if cc==vc { v_s=cs; v_e=p }
                      cc=cc+1
                      cs=p+1
                  }
                  p=p+1
              }
              if g_s>=0 { if g_e>g_s { if v_s>=0 { if v_e>v_s { if xl_is_numeric(tsv,v_s,v_e-v_s)==1 {
                  let v: i64=xf_q4_of(tsv,v_s,v_e-v_s)
                  // find/insert group
                  var gi: i64=0-1
                  var k: i64=0
                  while k<ng {
                      if gsl[k]==g_e-g_s {
                          var same: i64=1
                          var q: i64=0
                          while q<gsl[k] { if tsv[gso[k]+q]!=tsv[g_s+q] { same=0; q=gsl[k] } else { q=q+1 } }
                          if same==1 { gi=k; k=ng }
                      }
                      if gi<0 { k=k+1 }
                  }
                  if gi<0 { if ng<128 { gso[ng]=g_s; gsl[ng]=g_e-g_s; gsum[ng]=0; gcnt[ng]=0; gi=ng; ng=ng+1 } }
                  if gi>=0 {
                      gsum[gi]=gsum[gi]+v
                      gcnt[gi]=gcnt[gi]+1
                      total=total+v
                      totcnt=totcnt+1
                  }
              } } } } }
          }
      }
      i=e+1
  }
  if totcnt==0 { return 0-1 }
  var o: i64=0
  o=xl_cat(pout,o,"Group\x09Sum\x09Count\x09Avg\n" as *u8)
  var g2: i64=0
  while g2<ng {
      var q2: i64=0
      while q2<gsl[g2] { pout[o]=tsv[gso[g2]+q2]; o=o+1; q2=q2+1 }
      pout[o]=9 as u8
      o=o+1
      o=xf_fmtq4(pout,o,gsum[g2])
      pout[o]=9 as u8
      o=o+1
      o=xl_uint(pout,o,gcnt[g2])
      pout[o]=9 as u8
      o=o+1
      o=xf_fmtq4(pout,o,gsum[g2]/gcnt[g2])
      pout[o]=10 as u8
      o=o+1
      g2=g2+1
  }
  o=xl_cat(pout,o,"TOTAL\x09" as *u8)
  o=xf_fmtq4(pout,o,total)
  pout[o]=9 as u8
  o=o+1
  o=xl_uint(pout,o,totcnt)
  pout[o]=9 as u8
  o=o+1
  o=xf_fmtq4(pout,o,total/totcnt)
  pout[o]=10 as u8
  o=o+1
  return o
1210}
1211
1212func main(argc: i64, argv: *i64) -> i64 {
  if argc<3 { xl_puts("usage: nx_xlsx fromtsv <in.tsv> <out.xlsx>  |  read <in.xlsx>  |  html <in.xlsx> <out.html> [download_url]\n" as *u8); sys_exit(2); return 2 }
  let cmd: *u8=argv[1] as *u8
  if xl_streq(cmd,"fromtsv" as *u8)==1 {
      if argc<4 { xl_puts("usage: nx_xlsx fromtsv <in.tsv> <out.xlsx>\n" as *u8); sys_exit(2); return 2 }
      let sz: i64=xlsx_write_tsv(argv[2] as *u8, argv[3] as *u8)
      if sz<0 { xl_puts("XLSX-WRITE-FAIL code=" as *u8); xl_num(sz); xl_puts("\n" as *u8); sys_exit(1); return 1 }
      xl_puts("XLSX-WRITE-OK path=" as *u8); xl_puts(argv[3] as *u8); xl_puts(" bytes=" as *u8); xl_num(sz); xl_puts("\n" as *u8)
      sys_exit(0); return 0
  }
  if xl_streq(cmd,"read" as *u8)==1 {
      let out: *u8=sys_mmap(XF_MAGIC_8388624)
      let tl: i64=xlsx_read_tsv(argv[2] as *u8, out, XF_MAGIC_8388608)
      if tl<0 { xl_puts("XLSX-READ-FAIL code=" as *u8); xl_num(tl); xl_puts("\n" as *u8); sys_exit(1); return 1 }
      xl_puts("XLSX-GRID-BEGIN\n" as *u8); sys_write(1, out, tl); xl_puts("\nXLSX-GRID-END\n" as *u8)
      sys_exit(0); return 0
  }
  if xl_streq(cmd,"html" as *u8)==1 {
      if argc<4 { xl_puts("usage: nx_xlsx html <in.xlsx> <out.html> [download_url]\n" as *u8); sys_exit(2); return 2 }
      var dlu: *u8=0 as *u8
      if argc>4 { dlu=argv[4] as *u8 }
      let out: *u8=sys_mmap(XF_MAGIC_33554432)
      let hn: i64=xlsx_to_html(argv[2] as *u8, out, dlu)
      if hn<0 { xl_puts("XLSX-HTML-FAIL code=" as *u8); xl_num(hn); xl_puts("\n" as *u8); sys_exit(1); return 1 }
      let fd: i64=sys_openat_wr(argv[3] as *u8, 0x1a4)
      if fd<0 { xl_puts("XLSX-HTML-FAIL cannot-write\n" as *u8); sys_exit(1); return 1 }
      sys_write(fd, out, hn); sys_close(fd)
      xl_puts("XLSX-HTML-OK path=" as *u8); xl_puts(argv[3] as *u8); xl_puts(" bytes=" as *u8); xl_num(hn); xl_puts("\n" as *u8)
      sys_exit(0); return 0
  }
  if xl_streq(cmd,"pivot" as *u8)==1 {
      if argc<5 { xl_puts("usage: nx_xlsx pivot <in.xlsx> <groupcol> <valuecol>   (columns as letters, e.g. B C)\n" as *u8); sys_exit(2); return 2 }
      let gc: i64=xl_colletter(argv[3] as *u8)
      let vc: i64=xl_colletter(argv[4] as *u8)
      if gc<0 { xl_puts("XLSX-PIVOT-FAIL bad-group-column\n" as *u8); sys_exit(1); return 1 }
      if vc<0 { xl_puts("XLSX-PIVOT-FAIL bad-value-column\n" as *u8); sys_exit(1); return 1 }
      let tsv: *u8=sys_mmap(XF_MAGIC_8388624)
      let tn: i64=xlsx_read_tsv(argv[2] as *u8, tsv, XF_MAGIC_8388608)
      if tn<0 { xl_puts("XLSX-PIVOT-FAIL cannot-read code=" as *u8); xl_num(tn); xl_puts("\n" as *u8); sys_exit(1); return 1 }
      let pv: *u8=sys_mmap(XF_MAGIC_1048576)
      let pn: i64=xl_pivot(tsv, tn, gc, vc, pv)
      if pn<0 { xl_puts("XLSX-PIVOT-FAIL no-numeric-rows\n" as *u8); sys_exit(1); return 1 }
      xl_puts("XLSX-PIVOT-BEGIN\n" as *u8)
      sys_write(1, pv, pn)
      xl_puts("XLSX-PIVOT-END\n" as *u8)
      sys_exit(0); return 0
  }
  if xl_streq(cmd,"pivothtml" as *u8)==1 {
      if argc<6 { xl_puts("usage: nx_xlsx pivothtml <in.xlsx> <groupcol> <valuecol> <out.html> [download_url]\n" as *u8); sys_exit(2); return 2 }
      let gc: i64=xl_colletter(argv[3] as *u8)
      let vc: i64=xl_colletter(argv[4] as *u8)
      if gc<0 { xl_puts("XLSX-PIVOT-FAIL bad-group-column\n" as *u8); sys_exit(1); return 1 }
      if vc<0 { xl_puts("XLSX-PIVOT-FAIL bad-value-column\n" as *u8); sys_exit(1); return 1 }
      let tsv: *u8=sys_mmap(XF_MAGIC_8388624)
      let tn: i64=xlsx_read_tsv(argv[2] as *u8, tsv, XF_MAGIC_8388608)
      if tn<0 { xl_puts("XLSX-PIVOT-FAIL cannot-read code=" as *u8); xl_num(tn); xl_puts("\n" as *u8); sys_exit(1); return 1 }
      let pv: *u8=sys_mmap(XF_MAGIC_1048576)
      let pn: i64=xl_pivot(tsv, tn, gc, vc, pv)
      if pn<0 { xl_puts("XLSX-PIVOT-FAIL no-numeric-rows\n" as *u8); sys_exit(1); return 1 }
      var dlu: *u8=0 as *u8
      if argc>6 { dlu=argv[6] as *u8 }
      let out: *u8=sys_mmap(XF_MAGIC_33554432)
      let hn: i64=xl_tsv_to_html(pv, pn, out, dlu, "Pivot (group-by with SUM / COUNT / AVG; chart = Sum per group)" as *u8)
      let fd: i64=sys_openat_wr(argv[5] as *u8, 0x1a4)
      if fd<0 { xl_puts("XLSX-PIVOT-FAIL cannot-write\n" as *u8); sys_exit(1); return 1 }
      sys_write(fd, out, hn); sys_close(fd)
      xl_puts("XLSX-PIVOT-HTML-OK path=" as *u8); xl_puts(argv[5] as *u8); xl_puts(" bytes=" as *u8); xl_num(hn); xl_puts("\n" as *u8)
      sys_exit(0); return 0
  }
  xl_puts("nx_xlsx: unknown command (fromtsv|read|html|pivot|pivothtml)\n" as *u8)
  sys_exit(2); return 2
1283}
nx_xlsx.nx source

`nx_xlsx.nx` source
