-module(otpbp_erlang).

-ifndef(HAVE_erlang__ceil_1).
% OTP 20.0
-export([ceil/1]).
-endif.
-ifndef(HAVE_erlang__floor_1).
% OTP 20.0
-export([floor/1]).
-endif.
-ifndef(HAVE_erlang__iolist_to_iovec_1).
% OTP 20.1
-export([iolist_to_iovec/1]).
-endif.
-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__is_integer_3).
% OTP 29.0
-export([is_integer/3]).
-endif.
-ifndef(HAVE_erlang__exit_3).
% OTP 29.0
-export([exit/3]).
-endif.
-ifndef(HAVE_erlang__exit_signal_3).
% OTP 29.0
-export([exit_signal/3]).
-endif.

-ifndef(HAVE_erlang__ceil_1).
-ifdef(HAVE_math__ceil_1).
ceil(X) -> round(math:ceil(X)).
-else.
ceil(X) -> round(X + 0.5).
-endif.
-endif.

-ifndef(HAVE_erlang__floor_1).
-ifdef(HAVE_math__floor_1).
floor(X) -> round(math:floor(X)).
-else.
floor(X) -> round(X - 0.5).
-endif.
-endif.

-ifndef(HAVE_erlang__iolist_to_iovec_1).
iolist_to_iovec(B) when is_binary(B) -> [B];
iolist_to_iovec(L) -> [list_to_binary(L)].
-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__is_integer_3).
is_integer(T, L, U) ->
    is_integer(L) andalso is_integer(U) orelse error(badarg, [T, L, U]),
    is_integer(T) andalso T >= L andalso T =< U.
-endif.

-ifndef(HAVE_erlang__exit_3).
exit(Dest, Reason, OptList) when OptList =:= []; OptList =:= [priority] -> exit(Dest, Reason).
-endif.

-ifndef(HAVE_erlang__exit_signal_3).
-ifdef(HAVE_erlang__exit_signal_3).
exit_signal(Dest, Reason, OptList) -> exit(Dest, Reason, OptList).
-else.
exit_signal(Dest, Reason, OptList) when OptList =:= []; OptList =:= [priority] -> exit(Dest, Reason).
-endif.
-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.