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

Phase 7f: len(x) works on strings too (retire slen)

Browse source 
`len` is now polymorphic — a slice's element count OR a string's byte length —
so the C-style `slen` (strlen) is gone: `slen(name)` -> `len(name)`. emit_len
branches on the operand type (slice header vs @strlen). Two reseeds: add the
string branch, then migrate the 19 slen calls and delete slen.

Reseeded (22565 lines); C-free fixpoint holds; goldens identical; 18/18; vocab +
doc-fences clean. (String slicing s[a..b] to replace substr is deferred to its
own phase.)

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
Orkun ÇAKILKAYA 2026-08-28 01:25:57 +03:00
parent 058cac88ec
commit 839a6bf0c0
11 changed files with 3555 additions and 3542 deletions
Download patch file Download diff file Expand all files Collapse all files

10
selfhost/main.ludic
View file

@ -24,7 +24,7 @@ fn base_name(path: ptr) -> ptr {
# drop a trailing ".ludic" if present
fn strip_ludic(name: ptr) -> ptr {
let n = slen(name)
let n = len(name)
if n > 6 {
if (substr(name, n - 6, 6) == ".ludic") { return substr(name, 0, n - 6) }
}
@ -40,14 +40,14 @@ fn getenv_or(name: ptr, dflt: ptr) -> ptr {
# guarantee a directory string ends in '/' so path_join concatenates cleanly
fn ensure_slash(d: ptr) -> ptr {
let n = slen(d)
let n = len(d)
if n == 0 { return d }
if peek8(d, n - 1) == 47 { return d }
return (d + ("/"))
}
fn die(msg: ptr) -> void {
file_write(file_stderr(), msg, slen(msg))
file_write(file_stderr(), msg, len(msg))
os_exit(1)
}
@ -78,7 +78,7 @@ entry {
# input file — '-' is ASCII 45
if peek8(a, 0) == 45 {
let m = ("ludicc: ignoring unknown flag " + (a + "\n"))
file_write(file_stderr(), m, slen(m))
file_write(file_stderr(), m, len(m))
} else { path = a }
} } } } } } }
ai = ai + 1
@ -122,7 +122,7 @@ entry {
# make the output directory if the user asked for e.g. bin/app
let odir = dir_of(out)
if slen(odir) > 0 { os_system((("mkdir -p ") + odir)) }
if len(odir) > 0 { os_system((("mkdir -p ") + odir)) }
let ll = (out + ".ll")
if not ir_flush(ll) { die("ludicc: cannot write IR\n") }