-module(otpbp_erlang).

-ifndef(HAVE_erlang__atom_to_binary_1).
% OTP 23.0
-export([atom_to_binary/1]).
-endif.
-ifndef(HAVE_erlang__binary_to_atom_1).
% OTP 23.0
-export([binary_to_atom/1]).
-endif.
-ifndef(HAVE_erlang__binary_to_existing_atom_1).
% OTP 23.0
-export([binary_to_existing_atom/1]).
-endif.
-ifndef(HAVE_erlang__term_to_iovec_1).
% OTP 23.0
-export([term_to_iovec/1]).
-endif.
-ifndef(HAVE_erlang__term_to_iovec_2).
% OTP 23.0
-export([term_to_iovec/2]).
-endif.
-ifndef(HAVE_erlang__get_stacktrace_0).
% OTP 24.0
-export([get_stacktrace/0]).
-endif.
-ifndef(HAVE_erlang__error_3).
% OTP 24.0
-export([error/3]).
-endif.
-ifndef(HAVE_erlang__get_cookie_1).
% OTP 24.1
-export([get_cookie/1]).
-endif.
-ifndef(HAVE_erlang__set_cookie_1).
% OTP 24.1
-export([set_cookie/1]).
-endif.
-ifndef(HAVE_erlang__processes_iterator_0).
% OTP 28.0
-export([processes_iterator/0]).
-endif.
-ifndef(HAVE_erlang__processes_next_1).
% OTP 28.0
-export([processes_next/1]).
-endif.

-ifndef(HAVE_erlang__atom_to_binary_1).
atom_to_binary(A) -> atom_to_binary(A, utf8).
-endif.
-ifndef(HAVE_erlang__binary_to_atom_1).
binary_to_atom(B) -> binary_to_atom(B, utf8).
-endif.
-ifndef(HAVE_erlang__binary_to_existing_atom_1).
binary_to_existing_atom(B) -> binary_to_existing_atom(B, utf8).
-endif.

-ifndef(HAVE_erlang__term_to_iovec_1).
term_to_iovec(T) -> [term_to_binary(T)].
-endif.
-ifndef(HAVE_erlang__term_to_iovec_2).
term_to_iovec(T, O) -> [term_to_binary(T, O)].
-endif.

-ifndef(HAVE_erlang__get_stacktrace_0).
get_stacktrace() -> [].
-endif.

-ifndef(HAVE_erlang__error_3).
error(Reason, Args, _Options) -> error(Reason, Args).
-endif.

-ifndef(HAVE_erlang__get_cookie_1).
get_cookie(Node) when is_atom(Node) -> auth:get_cookie(Node);
get_cookie(Node) -> error(badarg, [Node]).
-endif.

-ifndef(HAVE_erlang__set_cookie_1).
set_cookie(C) when is_atom(C) -> auth:set_cookie(C);
set_cookie(C) -> error(badarg, [C]).
-endif.

-ifndef(HAVE_erlang__processes_iterator_0).
processes_iterator() -> {0, processes()}.
-endif.

-ifndef(HAVE_erlang__processes_next_1).
-ifdef(HAVE_erts_internal__processes_next_1).
processes_next({I, [Pid|Pids]}) -> {Pid, {I, Pids}};
processes_next({I0, []} = A) ->
    try erts_internal:processes_next(I0) of
        none -> none;
        {I, [Pid|Pids]} -> {Pid, {I, Pids}};
        {_, []} = I -> processes_next(I)
    catch
        error:badarg -> error(badarg, [A])
    end;
processes_next(A) -> error(badarg, [A]).
-else.
processes_next({I, [Pid|Pids]}) -> {Pid, {I, Pids}};
processes_next({_, []}) -> none;
processes_next(A) -> error(badarg, [A]).
-endif.
-endif.