-module(stacky_ffi).

-export([stacky_erlang_stacktrace/0]).

stacky_erlang_stacktrace() ->
    FullStackTrace =
        try
            throw(test)
        catch
            _Class:_Reason:Stacktrace ->
                Stacktrace
        end,
    [_FfiCallFrame, _StackyCallFrame | RestStacktrace] = FullStackTrace,
        StackTrace = 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,
                          <<"unknown">>,
                          -1};
                     Other ->
                         erlang:display(Other),
                         throw("unexpected stack frame data - please report this as a potential bug")
                 end
              end,
              RestStacktrace),
        ReversedStackTrace = lists:reverse(StackTrace),
        IndexedStackTrace = lists:enumerate(ReversedStackTrace),
        lists:reverse(IndexedStackTrace).