IgorCielniak/l2
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added 'rfind'

Browse Source
This commit is contained in:
IgorCielniak
2026-03-25 11:12:32 +01:00
parent ab613e644a
commit d639c63fd3
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
stdlib/utils.sl
View File

@@ -536,6 +536,7 @@ word contains
end 0 nip nip nip nip
end
# find the first occurence of a string inside another string, returns the index
# find [*, addr, len, addr | len] -> [* | index]
word find
0 >r 2 pick for
@@ -543,3 +544,13 @@ word find
>r >r >r 1 + r> r> r> rswap r> 1 + >r rswap
end 0 nip nip nip nip
end
# find the last occurence of a string inside another string, returns the index
# rfind [*, addr, len, addr | len] -> [* | index]
word rfind
>r >r dup >r + 1 - r> r> r>
2 pick 1 - >r 2 pick for
4dup strcmp 1 == if rswap r> nip nip nip nip rdrop ret end
>r >r >r 1 - r> r> r> rswap r> 1 - >r rswap
end 0 nip nip nip nip
end