-module(stacky_ffi).

-export([stacky_erlang_stacktrace/0]).

stacky_erlang_stacktrace() ->
    FullStacktrace = try
        throw(test)
    catch
        _Class:_Reason:Stacktrace -> Stacktrace
    end,
    [_FfiCallFrame | [_GleamCallFrame | RestStacktrace]] = FullStacktrace,
    lists:map(fun(Stackframe) ->
        case Stackframe of
          {ModuleName, FunctionName, Arity, [{file, Filename}, {line, Linenumber}]} ->
            {atom_to_binary(ModuleName), atom_to_binary(FunctionName), Arity, iolist_to_binary(Filename), Linenumber};
          {ModuleName, FunctionName, Arity, []} ->
              {atom_to_binary(ModuleName), atom_to_binary(FunctionName), Arity, "no-file", -1};
          Other ->
            erlang:display(Other),
            throw(die)
        end
    end, RestStacktrace)
.