mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 02:43:40 +00:00
2ae3fa61da
tests/general/string_format_test.m:
tests/general/string_format_test_2.m:
tests/general/string_format_test_3.m:
As above.
87 lines
3.3 KiB
Mathematica
87 lines
3.3 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% File to test string.format predicate.
|
|
%
|
|
% The .exp file is for when int is 32-bit.
|
|
% The .exp2 file is for when int is 64-bit.
|
|
% The .exp3 file is for MSVC.
|
|
%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module string_format_test.
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- import_module float.
|
|
:- import_module int.
|
|
:- import_module list.
|
|
:- import_module string.
|
|
|
|
main(!IO) :-
|
|
Numba_0 = 32,
|
|
Numba_1 = Numba_0 - 5,
|
|
Numba_2 = Numba_0 + 5,
|
|
Mg_poly = s("In the beginning there was the text, and the text was words, and yea, verily, I say unto you, there was too much of it and it had to be compressed."),
|
|
|
|
Num_nr_1 = 9.9999,
|
|
% builtin_float_times(2.0, Num_nr_1, Num_nr_2),
|
|
Num_nr_2 = Num_nr_1 + Num_nr_1,
|
|
|
|
string.format("First %#x characters of fig% 0.1f in MG are\n`%.*s'.\n",
|
|
[i(Numba_0), f(1.4232), i(Numba_0), Mg_poly], String_0),
|
|
string.format("First %#x characters of fig% 0.1f in MG are\n`%.*s'.\n",
|
|
[i(Numba_1), f(1.4232), i(Numba_1), Mg_poly], String_1),
|
|
string.format("First %#x characters of fig% 0.1f in MG are\n`%.*s'.\n",
|
|
[i(Numba_2), f(1.4232), i(Numba_2), Mg_poly], String_2),
|
|
|
|
string.format("Strangly, %5.2e%- 3c%-5.3f% -3c%-5.0E\n\n",
|
|
[f(Num_nr_1), c('+'), f(Num_nr_1), c('='), f(Num_nr_2)], String_4),
|
|
io.write_string(String_0, !IO),
|
|
io.write_string(String_1, !IO),
|
|
io.write_string(String_2, !IO),
|
|
io.write_string("\nFollowing line should have 3, 4, 1 significant figures.\n", !IO),
|
|
io.write_string(String_4, !IO),
|
|
|
|
F_string0 = "!%0 10.5i!%0+10.5i!%0 -10.5i!%0+-10.5i!\n",
|
|
F_string1 = "!% 10.5i!%+10.5i!% -10.5i!%+-10.5i!\n",
|
|
F_string2 = "!% 10.5x!%+10.5x!% -10.5x!%+-10.5x!\n",
|
|
F_string3="!%#10.x!%#+10.x!%#-10.x!%#+-10.x!\n",
|
|
Num_1 = i(-31),
|
|
Num_2 = i(31),
|
|
string.format(F_string0, [Num_1, Num_1, Num_1, Num_1], String_5),
|
|
string.format(F_string0, [Num_2, Num_2, Num_2, Num_2], String_6),
|
|
string.format(F_string1, [Num_1, Num_1, Num_1, Num_1], String_7),
|
|
string.format(F_string1, [Num_2, Num_2, Num_2, Num_2], String_8),
|
|
string.format(F_string2, [Num_1, Num_1, Num_1, Num_1], String_9),
|
|
string.format(F_string2, [Num_2, Num_2, Num_2, Num_2], String_10),
|
|
string.format(F_string3, [Num_1, Num_1, Num_1, Num_1], String_11),
|
|
string.format(F_string3, [Num_2, Num_2, Num_2, Num_2], String_12),
|
|
|
|
io.nl(!IO),
|
|
io.write_string(F_string0, !IO),
|
|
io.write_string(F_string1, !IO),
|
|
io.write_string(F_string2, !IO),
|
|
io.write_string(F_string3, !IO),
|
|
io.nl(!IO),
|
|
io.write_string(String_5, !IO),
|
|
io.write_string(String_6, !IO),
|
|
io.write_string(String_7, !IO),
|
|
io.write_string(String_8, !IO),
|
|
io.write_string(String_9, !IO),
|
|
io.write_string(String_10, !IO),
|
|
io.write_string(String_11, !IO),
|
|
io.write_string(String_12, !IO).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|