feat(stdlib): Tiled P0 — XML reader + base64 decode + gzip framing (#67)
The three parsing primitives the TMX path needs that were not already in the tree (zlib inflate + the JSON reader already shipped): - Xml.* — a minimal, deterministic pure-Ludic XML reader for the element/attribute/CDATA subset TMX/TSX/TX use, spliced on demand. Handles nested elements, single/double-quoted attributes, text + <![CDATA[…]]>, comments, the <?xml?> prolog and <!DOCTYPE>, the five predefined entities and numeric character references. - Base64.* — standard base64 (RFC 4648) decode + a matching pure-Ludic encoder; the decoder ignores the whitespace Tiled wraps into <data>. Splicing Base64.* also pulls in inflate.ludic so a plain tool can run the full base64 -> zlib/gzip decode chain. - z_gunzip — gzip framing (RFC 1952) over the existing DEFLATE inflater: skip the 10-byte header + optional fields, inflate the body, ignore the CRC32/ISIZE trailer. Golden corpus vendored under assets/tiled-fixtures/ (mapeditor/tiled examples, attributed, + hand-authored multi-encoding fixtures). New example library/tiled_p0.ludic proves all three (21 assertions); docs pages + inventory added so check-impl stays green. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
parent
0b149a6876
commit
79776d1f6a
35 changed files with 20549 additions and 18415 deletions
|
|
@ -274,3 +274,34 @@ function z_uncompress(src: pointer, len: int, out: pointer, cap: int) -> int {
|
|||
if (cmf & 15) != 8 { return -1 }
|
||||
return z_inflate(offset(src, 2), len - 2, out, cap)
|
||||
}
|
||||
|
||||
# gzip framing (RFC 1952): a 10-byte header (magic 1f 8b, CM=8, FLG, 4-byte MTIME,
|
||||
# XFL, OS), optional FEXTRA/FNAME/FCOMMENT/FHCRC fields selected by FLG, then the
|
||||
# same DEFLATE body zlib carries, then an 8-byte CRC32 + ISIZE trailer. We skip
|
||||
# the header + optional fields, inflate the body, and ignore the trailer — the
|
||||
# CRC is a redundancy check, not needed to decode (PNG likewise ignores ancillary
|
||||
# CRCs). Returns bytes written, or -1.
|
||||
function z_gunzip(src: pointer, len: int, out: pointer, cap: int) -> int {
|
||||
if len < 18 { return -1 } # 10 header + 8 trailer minimum
|
||||
if src[0] != 31 { return -1 } # 0x1f
|
||||
if src[1] != 139 { return -1 } # 0x8b
|
||||
if src[2] != 8 { return -1 } # CM must be DEFLATE
|
||||
let flg = src[3]
|
||||
var pos = 10 # past the fixed header
|
||||
if (flg & 4) != 0 { # FEXTRA: 2-byte length then that many bytes
|
||||
if pos + 2 > len { return -1 }
|
||||
let xlen = src[pos] + (src[pos + 1] << 8)
|
||||
pos = pos + 2 + xlen
|
||||
}
|
||||
if (flg & 8) != 0 { # FNAME: NUL-terminated
|
||||
while pos < len and src[pos] != 0 { pos = pos + 1 }
|
||||
pos = pos + 1
|
||||
}
|
||||
if (flg & 16) != 0 { # FCOMMENT: NUL-terminated
|
||||
while pos < len and src[pos] != 0 { pos = pos + 1 }
|
||||
pos = pos + 1
|
||||
}
|
||||
if (flg & 2) != 0 { pos = pos + 2 } # FHCRC: 2-byte header CRC
|
||||
if pos + 8 > len { return -1 }
|
||||
return z_inflate(offset(src, pos), len - pos - 8, out, cap)
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue