squirrel

-module(squirrel@internal@eval_extra).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
-define(FILEPATH, "src/squirrel/internal/eval_extra.gleam").
-export([run_all/2, try_fold/3, try_map/2, try_index_map/2]).

-if(?OTP_RELEASE >= 27).
-define(MODULEDOC(Str), -moduledoc(Str)).
-define(DOC(Str), -doc(Str)).
-else.
-define(MODULEDOC(Str), -compile([])).
-define(DOC(Str), -compile([])).
-endif.

?MODULEDOC(false).

-file("src/squirrel/internal/eval_extra.gleam", 20).
?DOC(false).
-spec run_all(list(eval:eval(SWF, SWG, SWH)), SWH) -> list({ok, SWF} |
    {error, SWG}).
run_all(List, Context) ->
    Acc = {[], Context},
    {Results@1, _} = begin
        gleam@list:fold(
            List,
            Acc,
            fun(_use0, Script) ->
                {Results, Context@1} = _use0,
                {Context@2, Result} = eval:step(Script, Context@1),
                {[Result | Results], Context@2}
            end
        )
    end,
    Results@1.

-file("src/squirrel/internal/eval_extra.gleam", 42).
?DOC(false).
-spec try_fold(list(SXD), SXF, fun((SXF, SXD) -> eval:eval(SXF, SXL, SXM))) -> eval:eval(SXF, SXL, SXM).
try_fold(List, Acc, Fun) ->
    case List of
        [] ->
            eval:return(Acc);

        [First | Rest] ->
            eval:'try'(
                Fun(Acc, First),
                fun(Acc@1) -> try_fold(Rest, Acc@1, Fun) end
            )
    end.

-file("src/squirrel/internal/eval_extra.gleam", 7).
?DOC(false).
-spec try_map(list(SVR), fun((SVR) -> eval:eval(SVT, SZV, SZW))) -> eval:eval(list(SVT), SZV, SZW).
try_map(List, Fun) ->
    _pipe = try_fold(
        List,
        [],
        fun(Acc, Item) ->
            eval:'try'(
                Fun(Item),
                fun(Mapped_item) -> eval:return([Mapped_item | Acc]) end
            )
        end
    ),
    eval:map(_pipe, fun lists:reverse/1).

-file("src/squirrel/internal/eval_extra.gleam", 64).
?DOC(false).
-spec do_try_index_fold(
    integer(),
    list(SYD),
    SYF,
    fun((SYF, SYD, integer()) -> eval:eval(SYF, SYL, SYM))
) -> eval:eval(SYF, SYL, SYM).
do_try_index_fold(Index, List, Acc, Fun) ->
    case List of
        [] ->
            eval:return(Acc);

        [First | Rest] ->
            eval:'try'(
                Fun(Acc, First, Index),
                fun(Acc@1) -> do_try_index_fold(Index + 1, Rest, Acc@1, Fun) end
            )
    end.

-file("src/squirrel/internal/eval_extra.gleam", 56).
?DOC(false).
-spec try_index_fold(
    list(SXQ),
    SXS,
    fun((SXS, SXQ, integer()) -> eval:eval(SXS, SXT, SXU))
) -> eval:eval(SXS, SXT, SXU).
try_index_fold(List, Acc, Fun) ->
    do_try_index_fold(0, List, Acc, Fun).

-file("src/squirrel/internal/eval_extra.gleam", 31).
?DOC(false).
-spec try_index_map(
    list(SWP),
    fun((SWP, integer()) -> eval:eval(SWR, TBE, TBF))
) -> eval:eval(list(SWR), TBE, TBF).
try_index_map(List, Fun) ->
    _pipe = try_index_fold(
        List,
        [],
        fun(Acc, Item, I) ->
            eval:'try'(
                Fun(Item, I),
                fun(Mapped_item) -> eval:return([Mapped_item | Acc]) end
            )
        end
    ),
    eval:map(_pipe, fun lists:reverse/1).