added startswith and endswith

2026-03-25 10:10:14 +01:00
parent bc3a894737
commit b263e7d0de
1 changed files with 11 additions and 0 deletions
--- a/stdlib/utils.sl
+++ b/stdlib/utils.sl
@@ -516,3 +516,14 @@ end
 word trim
    ltrim rtrim
 end
+
+# startswith [*, addr, len, addr | len] -> [*, bool]
+inline word startswith
+    strcmp
+end
+
+# endswith [*, addr, len, addr | len] -> [*, bool]
+word endswith
+    dup 3 pick swap - 4 pick + over 2 pick 4 pick swap strcmp
+    nip nip nip nip
+end