diff options
Diffstat (limited to 'gen')
| -rw-r--r-- | gen/src/gleam@string.erl | 21 | ||||
| -rw-r--r-- | gen/test/gleam@string_test.erl | 24 |
2 files changed, 43 insertions, 2 deletions
diff --git a/gen/src/gleam@string.erl b/gen/src/gleam@string.erl index 1b914c9..c8b76bc 100644 --- a/gen/src/gleam@string.erl +++ b/gen/src/gleam@string.erl @@ -1,7 +1,7 @@ -module(gleam@string). -compile(no_auto_import). --export([is_empty/1, length/1, reverse/1, replace/3, lowercase/1, uppercase/1, compare/2, contains/2, starts_with/2, ends_with/2, split/2, append/2, concat/1, repeat/2, join/2, trim/1, trim_left/1, trim_right/1]). +-export([is_empty/1, length/1, reverse/1, replace/3, lowercase/1, uppercase/1, compare/2, slice/3, contains/2, starts_with/2, ends_with/2, split/2, append/2, concat/1, repeat/2, join/2, trim/1, trim_left/1, trim_right/1]). is_empty(Str) -> Str =:= <<""/utf8>>. @@ -26,6 +26,25 @@ uppercase(A) -> compare(A, B) -> gleam_stdlib:compare_strings(A, B). +erl_slice(A, B, C) -> + string:slice(A, B, C). + +slice(String, Idx, Len) -> + case Idx < 0 of + true -> + TranslatedIdx = length(String) + Idx, + case TranslatedIdx < 0 of + true -> + <<""/utf8>>; + + false -> + erl_slice(String, TranslatedIdx, Len) + end; + + false -> + erl_slice(String, Idx, Len) + end. + erl_contains(A, B) -> gleam_stdlib:string_contains(A, B). diff --git a/gen/test/gleam@string_test.erl b/gen/test/gleam@string_test.erl index c6fe92f..f975af9 100644 --- a/gen/test/gleam@string_test.erl +++ b/gen/test/gleam@string_test.erl @@ -1,7 +1,7 @@ -module(gleam@string_test). -compile(no_auto_import). --export([length_test/0, lowercase_test/0, uppercase_test/0, reverse_test/0, split_test/0, replace_test/0, append_test/0, compare_test/0, contains_test/0, concat_test/0, repeat_test/0, join_test/0, trim_test/0, trim_left_test/0, trim_right_test/0, starts_with_test/0, ends_with_test/0]). +-export([length_test/0, lowercase_test/0, uppercase_test/0, reverse_test/0, split_test/0, replace_test/0, append_test/0, compare_test/0, contains_test/0, concat_test/0, repeat_test/0, join_test/0, trim_test/0, trim_left_test/0, trim_right_test/0, starts_with_test/0, ends_with_test/0, slice_test/0]). length_test() -> gleam@should:equal(gleam@string:length(<<"ß↑e̊"/utf8>>), 3), @@ -152,3 +152,25 @@ ends_with_test() -> gleam@string:ends_with(<<"theory"/utf8>>, <<"theory2"/utf8>>), false ). + +slice_test() -> + gleam@should:equal( + gleam@string:slice(<<"gleam"/utf8>>, 1, 2), + <<"le"/utf8>> + ), + gleam@should:equal( + gleam@string:slice(<<"gleam"/utf8>>, 1, 10), + <<"leam"/utf8>> + ), + gleam@should:equal( + gleam@string:slice(<<"gleam"/utf8>>, 10, 3), + <<""/utf8>> + ), + gleam@should:equal( + gleam@string:slice(<<"gleam"/utf8>>, -2, 2), + <<"am"/utf8>> + ), + gleam@should:equal( + gleam@string:slice(<<"gleam"/utf8>>, -12, 2), + <<""/utf8>> + ). |