Orkuncakilkaya
b0b0b62bce
The typed buffers are slices: words/floats/fixeds/doubles/pointers(n) make
zeroed, bounds-checked []int/[]float/... and the type names mean them. buffer(n)
is a []byte, with text_of, Fs.read_bytes/write_bytes and view(xs, start, n).
bytes(), indexing a raw pointer or bytes, free, resize, Memory.*, raw file calls,
data_of and C externs are refused outside unsafe { } / unsafe function, and a
project's own files may write unsafe only with --unsafe; the runtime and packages
are the platform. A slice passed to an extern goes as its data.
What the change found: Sync's atomics on a slice header, words(n) uninitialised,
input's fixed axes in ints, truetype's fixed outlines as ints, skin matrices
typed int, gl_shader's source table made from raw bytes. render3d gets safe
entry points (safe_api.ludic). Rendering is byte-identical; a frame costs the same.
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
63 lines
3.4 KiB
Text
63 lines
3.4 KiB
Text
# tiled_p0.ludic — the Tiled P0 parsing primitives (issue #67): the pure-Ludic
|
|
# XML reader (Xml.*), base64 decode/encode (Base64.*), and gzip framing over the
|
|
# existing DEFLATE inflater (z_gunzip). These are the three primitives the TMX
|
|
# path needs that were not already in the tree (zlib + JSON already shipped).
|
|
#
|
|
# Each assertion that holds prints its number, so a full run prints:
|
|
# 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
|
program TiledP0 {
|
|
entry {
|
|
unsafe { # raw buffers on purpose: built with --unsafe (L7)
|
|
# --- base64 decode: RFC 4648 test vectors (every padding remainder) ---
|
|
if Base64.decode("") == "" { print(1) }
|
|
if Base64.decode("Zg==") == "f" { print(2) }
|
|
if Base64.decode("Zm8=") == "fo" { print(3) }
|
|
if Base64.decode("Zm9v") == "foo" { print(4) }
|
|
if Base64.decode("Zm9vYg==") == "foob" { print(5) }
|
|
if Base64.decode("Zm9vYmE=") == "fooba" { print(6) }
|
|
if Base64.decode("Zm9vYmFy") == "foobar" { print(7) }
|
|
# decode ignores embedded whitespace/newlines (as TMX <data> carries)
|
|
if Base64.decode("Zm9v\n YmFy") == "foobar" { print(8) }
|
|
|
|
# --- base64 encode round-trips ---
|
|
if Base64.encode("foobar") == "Zm9vYmFy" { print(9) }
|
|
if Base64.encode("f") == "Zg==" { print(10) }
|
|
if Base64.decode(Base64.encode("the quick brown fox")) == "the quick brown fox" { print(11) }
|
|
|
|
# --- XML reader over a TSX element tree ---
|
|
let tsx = "<?xml version='1.0' encoding='UTF-8'?>\n<!-- a comment -->\n<tileset version='1.10' name='sheet & co' tilewidth='16' tileheight='16' tilecount='4' columns='2'>\n <image source='sheet.png' width='32' height='32'/>\n <tile id='0'><properties><property name='solid' type='bool' value='true'/></properties></tile>\n <data encoding='csv'>1,2,3,4</data>\n</tileset>\n"
|
|
let root = Xml.parse(tsx)
|
|
if Xml.tag(root) == "tileset" { print(12) }
|
|
if Xml.attr(root, "name") == "sheet & co" { print(13) } # entity decode
|
|
if Xml.attr_int(root, "tilewidth", 0) == 16 { print(14) }
|
|
if Xml.attr_int(root, "tilecount", 0) == 4 { print(15) }
|
|
let img = Xml.find(root, "image")
|
|
if Xml.attr(img, "source") == "sheet.png" { print(16) }
|
|
let tile = Xml.find(root, "tile")
|
|
let props = Xml.find(tile, "properties")
|
|
let prop = Xml.find(props, "property")
|
|
if Xml.attr(prop, "value") == "true" { print(17) }
|
|
let data = Xml.find(root, "data")
|
|
if Xml.text(data) == "1,2,3,4" { print(18) }
|
|
|
|
# --- gzip framing: base64 -> bytes -> gunzip round-trips ---
|
|
let gz = "H4sIAAAAAAAC//NIzcnJ11EIycxJTVFIr8osUCjPL8pJUVQwMDQyNjE1M7ewVCjJSFUoLM1MzlZIKsovz1NIy6/QAwCLdXOzOAAAAA=="
|
|
let comp = bytes(256)
|
|
let clen = b64_decode(gz, comp)
|
|
let out = bytes(256)
|
|
let n = z_gunzip(comp, clen, out, 256)
|
|
out[n] = 0
|
|
if n == 56 { print(19) }
|
|
if out == "Hello, Tiled gzip world! 0123456789 the quick brown fox." { print(20) }
|
|
|
|
# --- zlib still round-trips through the same path (regression) ---
|
|
let zl = "eJzzSM3JyddRCMnMSU1RSK/KLFAozy/KSVFUMDA0MjYxNTO3sFQoyUhVKCzNTM5WSCrKL89TSMuv0AMAA10SJA=="
|
|
let zc = bytes(256)
|
|
let zclen = b64_decode(zl, zc)
|
|
let zout = bytes(256)
|
|
let zn = z_uncompress(zc, zclen, zout, 256)
|
|
zout[zn] = 0
|
|
if zout == "Hello, Tiled gzip world! 0123456789 the quick brown fox." { print(21) }
|
|
}
|
|
}
|
|
}
|