diff options
Diffstat (limited to 'gen/src')
-rw-r--r-- | gen/src/gleam@any.erl | 4 | ||||
-rw-r--r-- | gen/src/gleam@iodata.erl | 8 | ||||
-rw-r--r-- | gen/src/gleam@list.erl | 50 | ||||
-rw-r--r-- | gen/src/gleam@map.erl | 28 | ||||
-rw-r--r-- | gen/src/gleam@pair.erl | 8 | ||||
-rw-r--r-- | gen/src/gleam@string.erl | 14 |
6 files changed, 57 insertions, 55 deletions
diff --git a/gen/src/gleam@any.erl b/gen/src/gleam@any.erl index b55ce9f..9f2a8e6 100644 --- a/gen/src/gleam@any.erl +++ b/gen/src/gleam@any.erl @@ -30,10 +30,10 @@ thunk(A) -> list_any(A) -> gleam_stdlib:decode_list(A). -list(Any, Decode) -> +list(Any, DecoderType) -> gleam@result:then( list_any(Any), - fun(Capture1) -> gleam@list:traverse(Capture1, Decode) end + fun(Capture1) -> gleam@list:traverse(Capture1, DecoderType) end ). pair(A) -> diff --git a/gen/src/gleam@iodata.erl b/gen/src/gleam@iodata.erl index b70ad78..5d0c434 100644 --- a/gen/src/gleam@iodata.erl +++ b/gen/src/gleam@iodata.erl @@ -45,14 +45,14 @@ reverse(A) -> erl_split(A, B, C) -> string:split(A, B, C). -split(Iodata, On) -> - erl_split(Iodata, On, all). +split(Iodata, Pattern) -> + erl_split(Iodata, Pattern, all). erl_replace(A, B, C, D) -> string:replace(A, B, C, D). -replace(Iodata, Pattern, Replacement) -> - erl_replace(Iodata, Pattern, Replacement, all). +replace(Iodata, Pattern, Substitute) -> + erl_replace(Iodata, Pattern, Substitute, all). is_equal(A, B) -> string:equal(A, B). diff --git a/gen/src/gleam@list.erl b/gen/src/gleam@list.erl index 4e3a60d..508da27 100644 --- a/gen/src/gleam@list.erl +++ b/gen/src/gleam@list.erl @@ -55,8 +55,8 @@ do_filter(List, Fun, Acc) -> do_filter(Xs, Fun, NewAcc) end. -filter(List, Fun) -> - do_filter(List, Fun, []). +filter(List, Predicate) -> + do_filter(List, Predicate, []). do_map(List, Fun, Acc) -> case List of @@ -151,63 +151,63 @@ do_flatten(Lists, Acc) -> flatten(Lists) -> do_flatten(Lists, []). -fold(List, Acc, Fun) -> +fold(List, Initial, Fun) -> case List of [] -> - Acc; + Initial; [X | Rest] -> - fold(Rest, Fun(X, Acc), Fun) + fold(Rest, Fun(X, Initial), Fun) end. -fold_right(List, Acc, Fun) -> +fold_right(List, Initial, Fun) -> case List of [] -> - Acc; + Initial; [X | Rest] -> - Fun(X, fold_right(Rest, Acc, Fun)) + Fun(X, fold_right(Rest, Initial, Fun)) end. -find(Haystack, F) -> +find(Haystack, Predicate) -> case Haystack of [] -> {error, nil}; [X | Rest] -> - case F(X) of + case Predicate(X) of {ok, X1} -> {ok, X1}; _ -> - find(Rest, F) + find(Rest, Predicate) end end. -all(List, F) -> +all(List, Predicate) -> case List of [] -> true; [X | Rest] -> - case F(X) of + case Predicate(X) of true -> - all(Rest, F); + all(Rest, Predicate); _ -> false end end. -any(List, F) -> +any(List, Predicate) -> case List of [] -> false; [X | Rest] -> - case F(X) of + case Predicate(X) of false -> - any(Rest, F); + any(Rest, Predicate); _ -> true @@ -247,8 +247,8 @@ intersperse(List, Elem) -> [X1, Elem | intersperse(Rest, Elem)] end. -at(List, I) -> - case I < 0 of +at(List, Index) -> + case Index < 0 of true -> {error, nil}; @@ -258,12 +258,12 @@ at(List, I) -> {error, nil}; [X | Rest] -> - case I =:= 0 of + case Index =:= 0 of true -> {ok, X}; false -> - at(Rest, I - 1) + at(Rest, Index - 1) end end end. @@ -353,8 +353,8 @@ do_split(List, N, Taken) -> end end. -split(List, N) -> - do_split(List, N, []). +split(List, Target) -> + do_split(List, Target, []). do_split_while(List, F, Acc) -> case List of @@ -371,8 +371,8 @@ do_split_while(List, F, Acc) -> end end. -split_while(List, F) -> - do_split_while(List, F, []). +split_while(List, Predicate) -> + do_split_while(List, Predicate, []). key_find(Haystack, Needle) -> find(Haystack, fun(P) -> case gleam@pair:first(P) =:= Needle of diff --git a/gen/src/gleam@map.erl b/gen/src/gleam@map.erl index 778509c..ce77ac1 100644 --- a/gen/src/gleam@map.erl +++ b/gen/src/gleam@map.erl @@ -45,14 +45,14 @@ values(A) -> erl_filter(A, B) -> maps:filter(A, B). -filter(Map, Fun) -> - erl_filter(Fun, Map). +filter(Map, Predicate) -> + erl_filter(Predicate, Map). erl_take(A, B) -> maps:with(A, B). -take(Map, Keys) -> - erl_take(Keys, Map). +take(Map, DesiredKeys) -> + erl_take(DesiredKeys, Map). merge(A, B) -> maps:merge(A, B). @@ -63,27 +63,27 @@ erl_delete(A, B) -> delete(Map, Key) -> erl_delete(Key, Map). -drop(Map, Keys) -> - gleam@list:fold(Keys, Map, fun(Key, Acc) -> delete(Acc, Key) end). +drop(Map, DisallowedKeys) -> + gleam@list:fold(DisallowedKeys, Map, fun(Key, Acc) -> delete(Acc, Key) end). -update(Map, Key, F) -> +update(Map, Key, Fun) -> case get(Map, Key) of {ok, Value} -> - insert(Map, Key, F({ok, Value})); + insert(Map, Key, Fun({ok, Value})); {error, _} -> - insert(Map, Key, F({error, nil})) + insert(Map, Key, Fun({error, nil})) end. -do_fold(List, Acc, F) -> +do_fold(List, Initial, Fun) -> case List of [] -> - Acc; + Initial; [{K, V} | Tail] -> - do_fold(Tail, F(K, V, Acc), F) + do_fold(Tail, Fun(K, V, Initial), Fun) end. -fold(Map, Acc, F) -> +fold(Map, Initial, Fun) -> Kvs = to_list(Map), - do_fold(Kvs, Acc, F). + do_fold(Kvs, Initial, Fun). diff --git a/gen/src/gleam@pair.erl b/gen/src/gleam@pair.erl index 3361dc7..0f8e8be 100644 --- a/gen/src/gleam@pair.erl +++ b/gen/src/gleam@pair.erl @@ -15,10 +15,10 @@ swap(Tup) -> {A, B} = Tup, {B, A}. -map_first(Tup, F) -> +map_first(Tup, Fun) -> {A, B} = Tup, - {F(A), B}. + {Fun(A), B}. -map_second(Tup, F) -> +map_second(Tup, Fun) -> {A, B} = Tup, - {A, F(B)}. + {A, Fun(B)}. diff --git a/gen/src/gleam@string.erl b/gen/src/gleam@string.erl index 81b6495..722ea09 100644 --- a/gen/src/gleam@string.erl +++ b/gen/src/gleam@string.erl @@ -18,16 +18,18 @@ compare(A, B) -> reverse(String) -> gleam@iodata:to_string(gleam@iodata:reverse(gleam@iodata:new(String))). -split(String, On) -> +split(X, Pattern) -> gleam@list:map( - gleam@iodata:split(gleam@iodata:new(String), On), + gleam@iodata:split(gleam@iodata:new(X), Pattern), fun gleam@iodata:to_string/1 ). -replace(String, Pattern, With) -> +replace(String, Pattern, Substitute) -> gleam@iodata:to_string( - gleam@iodata:replace(gleam@iodata:new(String), Pattern, With) + gleam@iodata:replace(gleam@iodata:new(String), Pattern, Substitute) ). -append(S1, S2) -> - gleam@iodata:to_string(gleam@iodata:append(gleam@iodata:new(S1), S2)). +append(First, Second) -> + gleam@iodata:to_string( + gleam@iodata:append(gleam@iodata:new(First), Second) + ). |