5 lines
94 B
Plaintext
5 lines
94 B
Plaintext
|
|
||
|
|
|
||
|
|
fn cstr_len with ptr returns int then
|
||
|
|
dup while dup load8 '\0' != do 1 + end swap -
|
||
|
|
done
|