%---------------------------------------------------------------------------%
% vim: ft=mercury ts=4 sw=4 et wm=0 tw=0
%---------------------------------------------------------------------------%
%
% Test conversion of ints to unsigned 32-bit integers.
%
% The .exp file is for when int is 64-bit.
% The .exp2 file is for when int is 32-bit.
%
%---------------------------------------------------------------------------%

:- module from_int_uint32.
:- interface.

:- import_module io.

:- pred main(io::di, io::uo) is det.

%---------------------------------------------------------------------------%
%---------------------------------------------------------------------------%

:- implementation.

:- import_module uint32.

:- import_module list.
:- import_module string.

%---------------------------------------------------------------------------%

main(!IO) :-
    list.foldl(do_test, numbers, !IO).

:- pred do_test(string::in, io::di, io::uo) is det.

do_test(IntStr, !IO) :-
    io.format("from_int(%s) = ", [s(IntStr)], !IO),
    ( if
        string.to_int(IntStr, Int),
        uint32.from_int(Int, UInt32)
    then
        io.format("%s\n", [s(uint32_to_string(UInt32))], !IO)
    else
        io.write_string("<<out-of-range>>\n", !IO)
    ).

:- func numbers = list(string).

numbers = [
    "-9223372036854775808",
    "-2147483648",
    "-32768",
    "-128",
    "-1",
    "0",
    "1",
    "2",
    "8",
    "10",
    "16",
    "127",
    "32767",
    "2147483647",  % INT32_MAX
    "2147483648",  % INT32_MAX + 1
    "4294967295",  % UINT32_MAX
    "4294967296",  % UINT32_MAX + 1
    "9223372036854775807"
].

%---------------------------------------------------------------------------%
:- end_module from_int_uint32.
%---------------------------------------------------------------------------%