workshopsoft/ludic
2
0
Fork 0
Code Issues Pull requests Projects Releases 26 Packages Wiki Activity Actions

feat(lang): L7 memory is safe unless it says unsafe

Browse source 
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>
This commit is contained in:
Orkun ÇAKILKAYA 2026-09-24 12:53:27 +03:00
parent 9259808f80
commit b0b0b62bce
70 changed files with 69189 additions and 64569 deletions
Download patch file Download diff file Expand all files Collapse all files

94
examples/library/tiled_p0.ludic
View file

@ -7,55 +7,57 @@
# 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
program TiledP0 {
entry {
# --- 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) }
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) }
# --- 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 &amp; 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) }
# --- 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 &amp; 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) }
# --- 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) }
# --- 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) }
}
}
}

10
examples/library/udp.ludic
View file

@ -6,11 +6,11 @@ program UdpDemo {
let pa = Udp.port(a)
let pb = Udp.port(b)
let lo = Udp.ip("127.0.0.1")
let out = Memory.bytes(16)
Memory.poke(out, 0, 104)
Memory.poke(out, 1, 105)
let out = buffer(16)
out[0] = 104
out[1] = 105
let sent = Udp.send(a, lo, pb, out, 2)
let inb = Memory.bytes(64)
let inb = buffer(64)
var got = 0
var tries = 0
while got == 0 and tries < 200000 { got = Udp.recv(b, inb, 64); tries += 1 }
@ -20,7 +20,7 @@ program UdpDemo {
tries = 0
while back == 0 and tries < 200000 { back = Udp.recv(a, out, 16); tries += 1 }
let bad = Udp.ip("1.2.3") == 0 and Udp.ip("300.1.1.1") == 0
print(`{sent} {got} {Memory.peek(inb, 0)} {Memory.peek(inb, 1)} {from_ok} {back} {Udp.ip_text(lo)} {bad} {Udp.recv(a, out, 16)} {pa > 0}`)
print(`{sent} {got} {inb[0]} {inb[1]} {from_ok} {back} {Udp.ip_text(lo)} {bad} {Udp.recv(a, out, 16)} {pa > 0}`)
Udp.close(a)
Udp.close(b)
}