Orkuncakilkaya
647dfec334
- `[a, b, c]` list literals (E_LIST → emit_list); static_type learns slice-element, `new T`, list, string and literal kinds - `x op= y` lowers through the same path as `x = x op y` (emit_bin_vals): fixed `*=`/`/=` use the Q16.16 64-bit paths, string `+=` concatenates, int→long widens; unary `-` keeps a fixed operand's type (arith_ty) - one `unescape()` table for "strings", 'chars' and `interpolation`; `'\''`, `'\\'`, `'\"'` no longer read as 0; unterminated char literals and unexpected characters are errors instead of silently skipped - every diagnostic is `file:line: error: msg` (g_parse_file / g_err_file, Node.file + Node.line set by node()); tok_desc() in expectation errors; duplicate `function` names and unknown `phase` names are reported in source terms (phase_id used to default unknown phases to Overlay) - interpolation holes skip braces inside string literals - hand-IR preludes move from the user `@fn_` prefix to `@lp_` so a user `is_ws` / `str_eq` / `path_join` no longer collides at link time - `@ClearColor(expr)` accepts any constant expression; `Os.pid()` added (docs page + inventory); `str_starts()` in support/str - main.ludic: `else if` flag ladder, char literals, stale script comments - examples/lang/operators.ludic covers all of the above; os.ludic covers Os.pid; docs pages for Os.pid and the Overlay phase; ten changesets - reseeded: selfhost/ludicc.seed.ll is the new compiler's own fixpoint Co-Authored-By: Claude Fable 5.1 <noreply@anthropic.com>
38 lines
1.2 KiB
Text
38 lines
1.2 KiB
Text
# str.ludic — the string handling a compiler lives on: comparison, copying,
|
|
# slicing out substrings, and integer<->text. All over raw NUL-terminated
|
|
# byte buffers reached with peek8/poke8.
|
|
|
|
function char_is_digit(c: int) -> bool { return c >= '0' and c <= '9' }
|
|
function char_is_alpha(c: int) -> bool {
|
|
if c >= 'A' and c <= 'Z' { return true }
|
|
if c >= 'a' and c <= 'z' { return true }
|
|
return c == '_'
|
|
}
|
|
function char_is_alnum(c: int) -> bool { return char_is_alpha(c) or char_is_digit(c) }
|
|
|
|
# does `s` begin with `prefix`? (byte-wise; both NUL-terminated)
|
|
function str_starts(s: pointer, prefix: pointer) -> bool {
|
|
var i = 0
|
|
while prefix[i] != 0 { if s[i] != prefix[i] { return false }; i += 1 }
|
|
return true
|
|
}
|
|
|
|
# integer -> fresh decimal string
|
|
function itoa(v: int) -> pointer {
|
|
if v == 0 { let z = bytes(2); z[0] = '0'; z[1] = 0; return z }
|
|
var neg = false
|
|
var x = v
|
|
if x < 0 { neg = true; x = -x }
|
|
let tmp = bytes(16)
|
|
var n = 0
|
|
while x > 0 { tmp[n] = 48 + x % 10; x /= 10; n += 1 }
|
|
var total = n
|
|
if neg { total += 1 }
|
|
let out = bytes(total + 1)
|
|
var k = 0
|
|
if neg { out[0] = '-'; k = 1 }
|
|
var i = 0
|
|
while i < n { out[k + i] = tmp[n - 1 - i]; i += 1 }
|
|
out[total] = 0
|
|
return out
|
|
}
|