Notes broken procs in strings lib
This commit is contained in:
parent
3721e7d8b4
commit
00f534639a
@ -42,6 +42,7 @@ proc string-has-suffix | (STRING1 STRING2 -- BOOL) Check if STRING1 ends with S
|
||||
end
|
||||
|
||||
proc string-index | (STRING1 STRING2 -- INT) Pushes the index INT that STRING2 starts at in STRING1 or 0 (INT) if STRING2 is not found |
|
||||
# FIXME
|
||||
string-re-escape
|
||||
".*" + # create the regex pattern
|
||||
over # bring over the original
|
||||
@ -54,6 +55,7 @@ proc string-index | (STRING1 STRING2 -- INT) Pushes the index INT that STRING2
|
||||
end
|
||||
|
||||
proc string-last-index | (STRING1 STRING2 -- INT) Pushes the index (INT) of STRING2 in STRING1 or 0 (INT) if STRING2 is not found |
|
||||
# FIXME
|
||||
over reverse over reverse string-index
|
||||
dup 0 = if
|
||||
drop drop drop 0 return
|
||||
|
Loading…
Reference in New Issue
Block a user