diff --git a/stdlib/utils.sl b/stdlib/utils.sl index f6b868a..4f410f7 100644 --- 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