aboutsummaryrefslogtreecommitdiff
path: root/gen/src
diff options
context:
space:
mode:
Diffstat (limited to 'gen/src')
-rw-r--r--gen/src/gleam@atom.erl13
-rw-r--r--gen/src/gleam@bool.erl55
-rw-r--r--gen/src/gleam@dynamic.erl45
-rw-r--r--gen/src/gleam@float.erl55
-rw-r--r--gen/src/gleam@function.erl13
-rw-r--r--gen/src/gleam@int.erl52
-rw-r--r--gen/src/gleam@iodata.erl61
-rw-r--r--gen/src/gleam@list.erl400
-rw-r--r--gen/src/gleam@map.erl82
-rw-r--r--gen/src/gleam@order.erl67
-rw-r--r--gen/src/gleam@pair.erl24
-rw-r--r--gen/src/gleam@result.erl70
-rw-r--r--gen/src/gleam@should.erl25
-rw-r--r--gen/src/gleam@string.erl110
14 files changed, 0 insertions, 1072 deletions
diff --git a/gen/src/gleam@atom.erl b/gen/src/gleam@atom.erl
deleted file mode 100644
index 1150544..0000000
--- a/gen/src/gleam@atom.erl
+++ /dev/null
@@ -1,13 +0,0 @@
--module(gleam@atom).
--compile(no_auto_import).
-
--export([from_string/1, create_from_string/1, to_string/1]).
-
-from_string(A) ->
- gleam_stdlib:atom_from_string(A).
-
-create_from_string(A) ->
- gleam_stdlib:atom_create_from_string(A).
-
-to_string(A) ->
- gleam_stdlib:atom_to_string(A).
diff --git a/gen/src/gleam@bool.erl b/gen/src/gleam@bool.erl
deleted file mode 100644
index 6714261..0000000
--- a/gen/src/gleam@bool.erl
+++ /dev/null
@@ -1,55 +0,0 @@
--module(gleam@bool).
--compile(no_auto_import).
-
--export([negate/1, compare/2, max/2, min/2, to_int/1]).
-
-negate(Bool) ->
- case Bool of
- true ->
- false;
-
- false ->
- true
- end.
-
-compare(A, B) ->
- case {A, B} of
- {true, true} ->
- eq;
-
- {true, false} ->
- gt;
-
- {false, false} ->
- eq;
-
- {false, true} ->
- lt
- end.
-
-max(A, B) ->
- case A of
- true ->
- true;
-
- false ->
- B
- end.
-
-min(A, B) ->
- case A of
- false ->
- false;
-
- true ->
- B
- end.
-
-to_int(Bool) ->
- case Bool of
- false ->
- 0;
-
- true ->
- 1
- end.
diff --git a/gen/src/gleam@dynamic.erl b/gen/src/gleam@dynamic.erl
deleted file mode 100644
index d467820..0000000
--- a/gen/src/gleam@dynamic.erl
+++ /dev/null
@@ -1,45 +0,0 @@
--module(gleam@dynamic).
--compile(no_auto_import).
-
--export([from/1, unsafe_coerce/1, string/1, int/1, float/1, atom/1, bool/1, thunk/1, list/2, field/2, element/2]).
-
-from(A) ->
- gleam_stdlib:identity(A).
-
-unsafe_coerce(A) ->
- gleam_stdlib:identity(A).
-
-string(A) ->
- gleam_stdlib:decode_string(A).
-
-int(A) ->
- gleam_stdlib:decode_int(A).
-
-float(A) ->
- gleam_stdlib:decode_float(A).
-
-atom(A) ->
- gleam_stdlib:decode_atom(A).
-
-bool(A) ->
- gleam_stdlib:decode_bool(A).
-
-thunk(A) ->
- gleam_stdlib:decode_thunk(A).
-
-list_dynamic(A) ->
- gleam_stdlib:decode_list(A).
-
-list(Dynamic, DecoderType) ->
- gleam@result:then(
- list_dynamic(Dynamic),
- fun(GleamCaptureVariable) ->
- gleam@list:traverse(GleamCaptureVariable, DecoderType)
- end
- ).
-
-field(A, B) ->
- gleam_stdlib:decode_field(A, B).
-
-element(A, B) ->
- gleam_stdlib:decode_element(A, B).
diff --git a/gen/src/gleam@float.erl b/gen/src/gleam@float.erl
deleted file mode 100644
index 7eb18cf..0000000
--- a/gen/src/gleam@float.erl
+++ /dev/null
@@ -1,55 +0,0 @@
--module(gleam@float).
--compile(no_auto_import).
-
--export([parse/1, to_string/1, compare/2, min/2, max/2, ceiling/1, floor/1, round/1, truncate/1]).
-
-parse(A) ->
- gleam_stdlib:parse_float(A).
-
-to_string(F) ->
- gleam@iodata:to_string(gleam@iodata:from_float(F)).
-
-compare(A, B) ->
- case A =:= B of
- true ->
- eq;
-
- false ->
- case A < B of
- true ->
- lt;
-
- false ->
- gt
- end
- end.
-
-min(A, B) ->
- case A < B of
- true ->
- A;
-
- false ->
- B
- end.
-
-max(A, B) ->
- case A > B of
- true ->
- A;
-
- false ->
- B
- end.
-
-ceiling(A) ->
- math:ceil(A).
-
-floor(A) ->
- math:floor(A).
-
-round(A) ->
- erlang:round(A).
-
-truncate(A) ->
- erlang:trunc(A).
diff --git a/gen/src/gleam@function.erl b/gen/src/gleam@function.erl
deleted file mode 100644
index b376ed0..0000000
--- a/gen/src/gleam@function.erl
+++ /dev/null
@@ -1,13 +0,0 @@
--module(gleam@function).
--compile(no_auto_import).
-
--export([compose/2, flip/1, identity/1]).
-
-compose(Fun1, Fun2) ->
- fun(A) -> Fun2(Fun1(A)) end.
-
-flip(Fun) ->
- fun(B, A) -> Fun(A, B) end.
-
-identity(X) ->
- X.
diff --git a/gen/src/gleam@int.erl b/gen/src/gleam@int.erl
deleted file mode 100644
index f256d0f..0000000
--- a/gen/src/gleam@int.erl
+++ /dev/null
@@ -1,52 +0,0 @@
--module(gleam@int).
--compile(no_auto_import).
-
--export([parse/1, to_string/1, to_base_string/2, compare/2, min/2, max/2, is_even/1, is_odd/1]).
-
-parse(A) ->
- gleam_stdlib:parse_int(A).
-
-to_string(A) ->
- erlang:integer_to_binary(A).
-
-to_base_string(A, B) ->
- erlang:integer_to_binary(A, B).
-
-compare(A, B) ->
- case A =:= B of
- true ->
- eq;
-
- false ->
- case A < B of
- true ->
- lt;
-
- false ->
- gt
- end
- end.
-
-min(A, B) ->
- case A < B of
- true ->
- A;
-
- false ->
- B
- end.
-
-max(A, B) ->
- case A > B of
- true ->
- A;
-
- false ->
- B
- end.
-
-is_even(X) ->
- X rem 2 =:= 0.
-
-is_odd(X) ->
- X rem 2 /= 0.
diff --git a/gen/src/gleam@iodata.erl b/gen/src/gleam@iodata.erl
deleted file mode 100644
index 5d0c434..0000000
--- a/gen/src/gleam@iodata.erl
+++ /dev/null
@@ -1,61 +0,0 @@
--module(gleam@iodata).
--compile(no_auto_import).
-
--export([prepend/2, append/2, prepend_iodata/2, append_iodata/2, from_strings/1, concat/1, new/1, to_string/1, byte_size/1, from_float/1, lowercase/1, uppercase/1, reverse/1, split/2, replace/3, is_equal/2, is_empty/1]).
-
-prepend(A, B) ->
- gleam_stdlib:iodata_prepend(A, B).
-
-append(A, B) ->
- gleam_stdlib:iodata_append(A, B).
-
-prepend_iodata(A, B) ->
- gleam_stdlib:iodata_prepend(A, B).
-
-append_iodata(A, B) ->
- gleam_stdlib:iodata_append(A, B).
-
-from_strings(A) ->
- gleam_stdlib:identity(A).
-
-concat(A) ->
- gleam_stdlib:identity(A).
-
-new(A) ->
- gleam_stdlib:identity(A).
-
-to_string(A) ->
- erlang:iolist_to_binary(A).
-
-byte_size(A) ->
- erlang:iolist_size(A).
-
-from_float(A) ->
- io_lib_format:fwrite_g(A).
-
-lowercase(A) ->
- string:lowercase(A).
-
-uppercase(A) ->
- string:uppercase(A).
-
-reverse(A) ->
- string:reverse(A).
-
-erl_split(A, B, C) ->
- string:split(A, B, C).
-
-split(Iodata, Pattern) ->
- erl_split(Iodata, Pattern, all).
-
-erl_replace(A, B, C, D) ->
- string:replace(A, B, C, D).
-
-replace(Iodata, Pattern, Substitute) ->
- erl_replace(Iodata, Pattern, Substitute, all).
-
-is_equal(A, B) ->
- string:equal(A, B).
-
-is_empty(A) ->
- string:is_empty(A).
diff --git a/gen/src/gleam@list.erl b/gen/src/gleam@list.erl
deleted file mode 100644
index 57789ff..0000000
--- a/gen/src/gleam@list.erl
+++ /dev/null
@@ -1,400 +0,0 @@
--module(gleam@list).
--compile(no_auto_import).
-
--export([length/1, reverse/1, is_empty/1, contains/2, head/1, tail/1, filter/2, map/2, index_map/2, traverse/2, drop/2, take/2, new/0, append/2, flatten/1, fold/3, fold_right/3, find/2, find_map/2, all/2, any/2, zip/2, strict_zip/2, intersperse/2, at/2, unique/1, sort/2, range/2, repeat/2, split/2, split_while/2, key_find/2]).
-
-length(A) ->
- erlang:length(A).
-
-reverse(A) ->
- lists:reverse(A).
-
-is_empty(List) ->
- List =:= [].
-
-contains(List, Elem) ->
- case List of
- [] ->
- false;
-
- [Head | Rest] ->
- Head =:= Elem orelse contains(Rest, Elem)
- end.
-
-head(List) ->
- case List of
- [] ->
- gleam@result:none();
-
- [X | _] ->
- {ok, X}
- end.
-
-tail(List) ->
- case List of
- [] ->
- gleam@result:none();
-
- [_ | Xs] ->
- {ok, Xs}
- end.
-
-do_filter(List, Fun, Acc) ->
- case List of
- [] ->
- reverse(Acc);
-
- [X | Xs] ->
- NewAcc = case Fun(X) of
- true ->
- [X | Acc];
-
- false ->
- Acc
- end,
- do_filter(Xs, Fun, NewAcc)
- end.
-
-filter(List, Predicate) ->
- do_filter(List, Predicate, []).
-
-do_map(List, Fun, Acc) ->
- case List of
- [] ->
- reverse(Acc);
-
- [X | Xs] ->
- do_map(Xs, Fun, [Fun(X) | Acc])
- end.
-
-map(List, Fun) ->
- do_map(List, Fun, []).
-
-do_index_map(List, Fun, Index, Acc) ->
- case List of
- [] ->
- reverse(Acc);
-
- [X | Xs] ->
- do_index_map(Xs, Fun, Index + 1, [Fun(Index, X) | Acc])
- end.
-
-index_map(List, Fun) ->
- do_index_map(List, Fun, 0, []).
-
-do_traverse(List, Fun, Acc) ->
- case List of
- [] ->
- {ok, reverse(Acc)};
-
- [X | Xs] ->
- case Fun(X) of
- {ok, Y} ->
- do_traverse(Xs, Fun, [Y | Acc]);
-
- {error, Error} ->
- {error, Error}
- end
- end.
-
-traverse(List, Fun) ->
- do_traverse(List, Fun, []).
-
-drop(List, N) ->
- case N =< 0 of
- true ->
- List;
-
- false ->
- case List of
- [] ->
- [];
-
- [_ | Xs] ->
- drop(Xs, N - 1)
- end
- end.
-
-do_take(List, N, Acc) ->
- case N =< 0 of
- true ->
- reverse(Acc);
-
- false ->
- case List of
- [] ->
- reverse(Acc);
-
- [X | Xs] ->
- do_take(Xs, N - 1, [X | Acc])
- end
- end.
-
-take(List, N) ->
- do_take(List, N, []).
-
-new() ->
- [].
-
-append(A, B) ->
- lists:append(A, B).
-
-do_flatten(Lists, Acc) ->
- case Lists of
- [] ->
- Acc;
-
- [L | Rest] ->
- do_flatten(Rest, append(Acc, L))
- end.
-
-flatten(Lists) ->
- do_flatten(Lists, []).
-
-fold(List, Initial, Fun) ->
- case List of
- [] ->
- Initial;
-
- [X | Rest] ->
- fold(Rest, Fun(X, Initial), Fun)
- end.
-
-fold_right(List, Initial, Fun) ->
- case List of
- [] ->
- Initial;
-
- [X | Rest] ->
- Fun(X, fold_right(Rest, Initial, Fun))
- end.
-
-find(Haystack, IsDesired) ->
- case Haystack of
- [] ->
- gleam@result:none();
-
- [X | Rest] ->
- case IsDesired(X) of
- true ->
- {ok, X};
-
- _ ->
- find(Rest, IsDesired)
- end
- end.
-
-find_map(Haystack, Fun) ->
- case Haystack of
- [] ->
- gleam@result:none();
-
- [X | Rest] ->
- case Fun(X) of
- {ok, X1} ->
- {ok, X1};
-
- _ ->
- find_map(Rest, Fun)
- end
- end.
-
-all(List, Predicate) ->
- case List of
- [] ->
- true;
-
- [X | Rest] ->
- case Predicate(X) of
- true ->
- all(Rest, Predicate);
-
- _ ->
- false
- end
- end.
-
-any(List, Predicate) ->
- case List of
- [] ->
- false;
-
- [X | Rest] ->
- case Predicate(X) of
- false ->
- any(Rest, Predicate);
-
- _ ->
- true
- end
- end.
-
-zip(Xs, Ys) ->
- case {Xs, Ys} of
- {[], _} ->
- [];
-
- {_, []} ->
- [];
-
- {[X | Xs1], [Y | Ys1]} ->
- [{X, Y} | zip(Xs1, Ys1)]
- end.
-
-strict_zip(L1, L2) ->
- case length(L1) =:= length(L2) of
- true ->
- {ok, zip(L1, L2)};
-
- false ->
- {error, length_mismatch}
- end.
-
-intersperse(List, Elem) ->
- case List of
- [] ->
- List;
-
- [_] ->
- List;
-
- [X | Rest] ->
- [X, Elem | intersperse(Rest, Elem)]
- end.
-
-at(List, Index) ->
- case Index < 0 of
- true ->
- gleam@result:none();
-
- false ->
- case List of
- [] ->
- gleam@result:none();
-
- [X | Rest] ->
- case Index =:= 0 of
- true ->
- {ok, X};
-
- false ->
- at(Rest, Index - 1)
- end
- end
- end.
-
-unique(List) ->
- case List of
- [] ->
- [];
-
- [X | Rest] ->
- [X | unique(filter(Rest, fun(Y) -> Y /= X end))]
- end.
-
-merge_sort(A, B, Compare) ->
- case {A, B} of
- {[], _} ->
- B;
-
- {_, []} ->
- A;
-
- {[Ax | Ar], [Bx | Br]} ->
- case Compare(Ax, Bx) of
- lt ->
- [Ax | merge_sort(Ar, B, Compare)];
-
- _ ->
- [Bx | merge_sort(A, Br, Compare)]
- end
- end.
-
-do_sort(List, Compare, ListLength) ->
- case ListLength < 2 of
- true ->
- List;
-
- false ->
- SplitLength = ListLength div 2,
- AList = take(List, SplitLength),
- BList = drop(List, SplitLength),
- merge_sort(
- do_sort(AList, Compare, SplitLength),
- do_sort(BList, Compare, ListLength - SplitLength),
- Compare
- )
- end.
-
-sort(List, Compare) ->
- do_sort(List, Compare, length(List)).
-
-range(Start, Stop) ->
- case gleam@int:compare(Start, Stop) of
- eq ->
- [];
-
- gt ->
- [Start | range(Start - 1, Stop)];
-
- lt ->
- [Start | range(Start + 1, Stop)]
- end.
-
-do_repeat(A, Times, Acc) ->
- case Times =< 0 of
- true ->
- Acc;
-
- false ->
- do_repeat(A, Times - 1, [A | Acc])
- end.
-
-repeat(A, Times) ->
- do_repeat(A, Times, []).
-
-do_split(List, N, Taken) ->
- case N =< 0 of
- true ->
- {reverse(Taken), List};
-
- false ->
- case List of
- [] ->
- {reverse(Taken), []};
-
- [X | Xs] ->
- do_split(Xs, N - 1, [X | Taken])
- end
- end.
-
-split(List, Index) ->
- do_split(List, Index, []).
-
-do_split_while(List, F, Acc) ->
- case List of
- [] ->
- {reverse(Acc), []};
-
- [X | Xs] ->
- case F(X) of
- false ->
- {reverse(Acc), List};
-
- _ ->
- do_split_while(Xs, F, [X | Acc])
- end
- end.
-
-split_while(List, Predicate) ->
- do_split_while(List, Predicate, []).
-
-key_find(KeywordList, DesiredKey) ->
- find_map(KeywordList, fun(Keyword) -> {Key, Value} = Keyword,
- case Key =:= DesiredKey of
- true ->
- {ok, Value};
-
- false ->
- gleam@result:none()
- end end).
diff --git a/gen/src/gleam@map.erl b/gen/src/gleam@map.erl
deleted file mode 100644
index 66b4feb..0000000
--- a/gen/src/gleam@map.erl
+++ /dev/null
@@ -1,82 +0,0 @@
--module(gleam@map).
--compile(no_auto_import).
-
--export([size/1, to_list/1, from_list/1, has_key/2, new/0, get/2, insert/3, map_values/2, keys/1, values/1, filter/2, take/2, merge/2, delete/2, drop/2, update/3, fold/3]).
-
-size(A) ->
- maps:size(A).
-
-to_list(A) ->
- maps:to_list(A).
-
-from_list(A) ->
- maps:from_list(A).
-
-is_key(A, B) ->
- maps:is_key(A, B).
-
-has_key(Map, Key) ->
- is_key(Key, Map).
-
-new() ->
- maps:new().
-
-get(A, B) ->
- gleam_stdlib:map_get(A, B).
-
-erl_insert(A, B, C) ->
- maps:put(A, B, C).
-
-insert(Map, Key, Value) ->
- erl_insert(Key, Value, Map).
-
-erl_map_values(A, B) ->
- maps:map(A, B).
-
-map_values(Map, Fun) ->
- erl_map_values(Fun, Map).
-
-keys(A) ->
- maps:keys(A).
-
-values(A) ->
- maps:values(A).
-
-erl_filter(A, B) ->
- maps:filter(A, B).
-
-filter(Map, Predicate) ->
- erl_filter(Predicate, Map).
-
-erl_take(A, B) ->
- maps:with(A, B).
-
-take(Map, DesiredKeys) ->
- erl_take(DesiredKeys, Map).
-
-merge(A, B) ->
- maps:merge(A, B).
-
-erl_delete(A, B) ->
- maps:remove(A, B).
-
-delete(Map, Key) ->
- erl_delete(Key, Map).
-
-drop(Map, DisallowedKeys) ->
- gleam@list:fold(DisallowedKeys, Map, fun(Key, Acc) -> delete(Acc, Key) end).
-
-update(Map, Key, Fun) ->
- insert(Map, Key, Fun(get(Map, Key))).
-
-do_fold(List, Initial, Fun) ->
- case List of
- [] ->
- Initial;
-
- [{K, V} | Tail] ->
- do_fold(Tail, Fun(K, V, Initial), Fun)
- end.
-
-fold(Map, Initial, Fun) ->
- do_fold(to_list(Map), Initial, Fun).
diff --git a/gen/src/gleam@order.erl b/gen/src/gleam@order.erl
deleted file mode 100644
index 6306636..0000000
--- a/gen/src/gleam@order.erl
+++ /dev/null
@@ -1,67 +0,0 @@
--module(gleam@order).
--compile(no_auto_import).
-
--export([reverse/1, to_int/1, compare/2, max/2, min/2]).
-
-reverse(Order) ->
- case Order of
- lt ->
- gt;
-
- eq ->
- eq;
-
- gt ->
- lt
- end.
-
-to_int(Order) ->
- case Order of
- lt ->
- -1;
-
- eq ->
- 0;
-
- gt ->
- 1
- end.
-
-compare(A, B) ->
- case {A, B} of
- {X, Y} when X =:= Y ->
- eq;
-
- {lt, _} ->
- lt;
-
- {eq, gt} ->
- lt;
-
- {_, _} ->
- gt
- end.
-
-max(A, B) ->
- case {A, B} of
- {gt, _} ->
- gt;
-
- {eq, lt} ->
- eq;
-
- {_, _} ->
- B
- end.
-
-min(A, B) ->
- case {A, B} of
- {lt, _} ->
- lt;
-
- {eq, gt} ->
- eq;
-
- {_, _} ->
- B
- end.
diff --git a/gen/src/gleam@pair.erl b/gen/src/gleam@pair.erl
deleted file mode 100644
index 3c07918..0000000
--- a/gen/src/gleam@pair.erl
+++ /dev/null
@@ -1,24 +0,0 @@
--module(gleam@pair).
--compile(no_auto_import).
-
--export([first/1, second/1, swap/1, map_first/2, map_second/2]).
-
-first(Pair) ->
- {A, _} = Pair,
- A.
-
-second(Pair) ->
- {_, A} = Pair,
- A.
-
-swap(Pair) ->
- {A, B} = Pair,
- {B, A}.
-
-map_first(Pair, Fun) ->
- {A, B} = Pair,
- {Fun(A), B}.
-
-map_second(Pair, Fun) ->
- {A, B} = Pair,
- {A, Fun(B)}.
diff --git a/gen/src/gleam@result.erl b/gen/src/gleam@result.erl
deleted file mode 100644
index 2484f56..0000000
--- a/gen/src/gleam@result.erl
+++ /dev/null
@@ -1,70 +0,0 @@
--module(gleam@result).
--compile(no_auto_import).
-
--export([is_ok/1, is_error/1, map/2, map_error/2, flatten/1, then/2, unwrap/2, none/0]).
-
-is_ok(Result) ->
- case Result of
- {error, _} ->
- false;
-
- {ok, _} ->
- true
- end.
-
-is_error(Result) ->
- case Result of
- {ok, _} ->
- false;
-
- {error, _} ->
- true
- end.
-
-map(Result, Fun) ->
- case Result of
- {ok, X} ->
- {ok, Fun(X)};
-
- {error, E} ->
- {error, E}
- end.
-
-map_error(Result, Fun) ->
- case Result of
- {ok, X} ->
- {ok, X};
-
- {error, Error} ->
- {error, Fun(Error)}
- end.
-
-flatten(Result) ->
- case Result of
- {ok, X} ->
- X;
-
- {error, Error} ->
- {error, Error}
- end.
-
-then(Result, Fun) ->
- case Result of
- {ok, X} ->
- Fun(X);
-
- {error, E} ->
- {error, E}
- end.
-
-unwrap(Result, Default) ->
- case Result of
- {ok, V} ->
- V;
-
- {error, _} ->
- Default
- end.
-
-none() ->
- {error, nil}.
diff --git a/gen/src/gleam@should.erl b/gen/src/gleam@should.erl
deleted file mode 100644
index 21acbdf..0000000
--- a/gen/src/gleam@should.erl
+++ /dev/null
@@ -1,25 +0,0 @@
--module(gleam@should).
--compile(no_auto_import).
-
--export([equal/2, not_equal/2, be_true/1, be_false/1, be_ok/1, be_error/1, fail/0]).
-
-equal(A, B) ->
- gleam_stdlib:should_equal(A, B).
-
-not_equal(A, B) ->
- gleam_stdlib:should_not_equal(A, B).
-
-be_true(A) ->
- gleam_stdlib:should_be_true(A).
-
-be_false(A) ->
- gleam_stdlib:should_be_false(A).
-
-be_ok(A) ->
- gleam_stdlib:should_be_ok(A).
-
-be_error(A) ->
- gleam_stdlib:should_be_error(A).
-
-fail() ->
- be_true(false).
diff --git a/gen/src/gleam@string.erl b/gen/src/gleam@string.erl
deleted file mode 100644
index 86b1f79..0000000
--- a/gen/src/gleam@string.erl
+++ /dev/null
@@ -1,110 +0,0 @@
--module(gleam@string).
--compile(no_auto_import).
-
--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, pad_left/3, pad_right/3, trim/1, trim_left/1, trim_right/1]).
-
-is_empty(Str) ->
- Str =:= <<""/utf8>>.
-
-length(A) ->
- string:length(A).
-
-reverse(String) ->
- gleam@iodata:to_string(gleam@iodata:reverse(gleam@iodata:new(String))).
-
-replace(String, Pattern, Substitute) ->
- gleam@iodata:to_string(
- gleam@iodata:replace(gleam@iodata:new(String), Pattern, Substitute)
- ).
-
-lowercase(A) ->
- string:lowercase(A).
-
-uppercase(A) ->
- string: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).
-
-contains(Haystack, Needle) ->
- erl_contains(Haystack, Needle).
-
-starts_with(A, B) ->
- gleam_stdlib:string_starts_with(A, B).
-
-ends_with(A, B) ->
- gleam_stdlib:string_ends_with(A, B).
-
-split(X, Substring) ->
- gleam@list:map(
- gleam@iodata:split(gleam@iodata:new(X), Substring),
- fun gleam@iodata:to_string/1
- ).
-
-append(First, Second) ->
- gleam@iodata:to_string(
- gleam@iodata:append(gleam@iodata:new(First), Second)
- ).
-
-concat(Strings) ->
- gleam@iodata:to_string(gleam@iodata:from_strings(Strings)).
-
-repeat_help(Chunk, Result, Repeats) ->
- case Repeats =< 0 of
- true ->
- concat(Result);
-
- false ->
- repeat_help(Chunk, [Chunk | Result], Repeats - 1)
- end.
-
-repeat(String, Times) ->
- repeat_help(String, [], Times).
-
-join(Strings, Separator) ->
- gleam@iodata:to_string(
- gleam@iodata:from_strings(gleam@list:intersperse(Strings, Separator))
- ).
-
-erl_pad(A, B, C, D) ->
- gleam_stdlib:string_pad(A, B, C, D).
-
-pad_left(String, Length, PadString) ->
- erl_pad(String, Length, leading, PadString).
-
-pad_right(String, Length, PadString) ->
- erl_pad(String, Length, trailing, PadString).
-
-erl_trim(A, B) ->
- string:trim(A, B).
-
-trim(String) ->
- erl_trim(String, both).
-
-trim_left(String) ->
- erl_trim(String, leading).
-
-trim_right(String) ->
- erl_trim(String, trailing).
generated by cgit v1.2.3 (git 2.25.1) at 2025-07-27 15:28:31 +0000