128 lines
2.1 KiB
Plaintext
128 lines
2.1 KiB
Plaintext
|
|
# : strcmp ( addr len addr len -- bool addr len addr len)
|
|
word strcmp
|
|
3 pick 2 pick @ swap @ ==
|
|
end
|
|
|
|
# : strconcat ( addr len addr len -- addr len)
|
|
word strconcat
|
|
0 pick 3 pick +
|
|
dup
|
|
>r >r >r >r >r >r
|
|
5 rpick
|
|
alloc
|
|
r> r>
|
|
dup >r
|
|
memcpy
|
|
swap
|
|
r> dup -rot +
|
|
r> r>
|
|
memcpy
|
|
swap
|
|
3 pick
|
|
-
|
|
swap
|
|
drop
|
|
swap
|
|
0 rpick
|
|
nip
|
|
rot
|
|
drop
|
|
rdrop rdrop rdrop
|
|
end
|
|
|
|
# : strlen ( addr -- len )
|
|
# for null terminated strings
|
|
|
|
:asm strlen {
|
|
mov rsi, [r12] ; address
|
|
xor rcx, rcx ; length counter
|
|
.strlen_loop:
|
|
mov al, [rsi]
|
|
test al, al
|
|
jz .strlen_done
|
|
inc rcx
|
|
inc rsi
|
|
jmp .strlen_loop
|
|
.strlen_done:
|
|
mov rax, rcx
|
|
mov [r12], rax ; store length on stack
|
|
ret
|
|
}
|
|
;
|
|
|
|
word digitsN>num # ( d_{n-1} ... d0 n -- value ), digits bottom=MSD, top=LSD, length on top (MSD-most significant digit, LSD-least significant digit)
|
|
0 swap # place accumulator below length
|
|
for # loop n times using the length on top
|
|
r@ pick # fetch next digit starting from MSD (uses loop counter as index)
|
|
swap # acc on top
|
|
10 * # acc *= 10
|
|
+ # acc += digit
|
|
end
|
|
end
|
|
|
|
# : toint (addr len -- int ) converts a string to an int
|
|
word toint
|
|
swap
|
|
over 0 swap
|
|
dup >r
|
|
for
|
|
over over +
|
|
c@ 48 -
|
|
swap rot
|
|
swap
|
|
1 +
|
|
end
|
|
2drop
|
|
r>
|
|
dup >r
|
|
digitsN>num
|
|
r> 1 +
|
|
for
|
|
swap drop
|
|
end
|
|
rdrop
|
|
end
|
|
|
|
# : count_digits ( int -- int) returns the amount of digits of an int
|
|
word count_digits
|
|
0
|
|
swap
|
|
while dup 0 > do
|
|
10 / swap 1 + swap
|
|
end
|
|
drop
|
|
end
|
|
|
|
# : tostr ( int -- addr len ) the function allocates a buffer to remember to free it
|
|
word tostr
|
|
dup
|
|
count_digits
|
|
2dup >r alloc
|
|
nip swap rot swap
|
|
for
|
|
dup 10 % swap 10 /
|
|
end
|
|
drop
|
|
|
|
r>
|
|
1 swap dup
|
|
for
|
|
dup
|
|
2 + pick
|
|
2 pick
|
|
2 + pick
|
|
3 pick rot +
|
|
swap 48 + swap 1 - swap c!
|
|
drop
|
|
swap
|
|
1 +
|
|
swap
|
|
end
|
|
|
|
swap 0 +
|
|
pick 1 +
|
|
over for
|
|
rot drop
|
|
end drop
|
|
end |