33 lines
1.1 KiB
Text
33 lines
1.1 KiB
Text
# keyed_args.ludic - a key's arguments as the decoder reads them: unescaped, looked up while still English, a count
|
|
|
|
# an argument as it was handed in: each 27 before a 27 or a 31 taken off, outside a bracket only (a
|
|
# bracketed line inside it was carried raw, and its own escapes are its own)
|
|
@alloc_ok("a key made into text (a cache miss): an argument that held a key with holes")
|
|
function kr_unescape(s: string) -> string {
|
|
var esc = false
|
|
for i in 0 .. len(s) { if s[i] == I18N_ESC { esc = true } }
|
|
if not esc { return s }
|
|
let buf = buffer(len(s))
|
|
var n = 0
|
|
var d = 0
|
|
var i = 0
|
|
while i < len(s) {
|
|
d = kx_depth(d, s[i])
|
|
if d == 0 and s[i] == I18N_ESC and i + 1 < len(s) { i += 1 }
|
|
buf[n] = s[i]
|
|
n += 1
|
|
i += 1
|
|
}
|
|
return text_of(buf, n)
|
|
}
|
|
|
|
# a count written as decimal digits (a leading - allowed); anything else is 0
|
|
function kr_int(s: string) -> int {
|
|
var v = 0
|
|
var neg = false
|
|
for i in 0 .. len(s) {
|
|
if i == 0 and s[i] == 45 { neg = true } else if s[i] >= 48 and s[i] <= 57 { v = v * 10 + (s[i] - 48) }
|
|
}
|
|
if neg { return -v }
|
|
return v
|
|
}
|