eensy

-module(eensy_otp_ffi).

-export([
    % OTP
    application_stopped/0,
    convert_system_message/2,
    static_supervisor_start_link/1
]).

% OTP ----------------------------------------------------------------------

convert_system_message({From, Ref}, Request) when is_pid(From) ->
    Reply = fun(Msg) ->
        erlang:send(From, {Ref, Msg}),
        nil
    end,
    System = fun(Callback) ->
        {system, {Request, Callback}}
    end,
    case Request of
        get_status -> System(fun(Status) -> Reply(process_status(Status)) end);
        get_state -> System(fun(State) -> Reply({ok, State}) end);
        suspend -> System(fun() -> Reply(ok) end);
        resume -> System(fun() -> Reply(ok) end);
        Other -> {unexpected, Other}
    end.

process_status({status_info, Module, Parent, Mode, DebugState, State}) ->
    Data = [
        get(),
        Mode,
        Parent,
        DebugState,
        [
            {header, "Status for Gleam process " ++ pid_to_list(self())},
            {data, [{'Status', Mode}, {'Parent', Parent}, {'State', State}]}
        ]
    ],
    {status, self(), {module, Module}, Data}.

application_stopped() ->
    ok.

static_supervisor_start_link(Arg) ->
    erlang:display(Arg),
    case supervisor:start_link(eensy@otp@static_supervisor, Arg) of
        {ok, P} ->
            {ok, P};
        {error, E} ->
            {ok, {init_crashed, E}}
    end.