mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-21 00:39:37 +00:00
74 lines
2.8 KiB
Mathematica
74 lines
2.8 KiB
Mathematica
%
|
|
% File to test string__format predicate.
|
|
%
|
|
|
|
:- module string__format_test.
|
|
|
|
:- interface.
|
|
|
|
:- import_module string, io, list, int, float.
|
|
|
|
:- pred main(io__state, io__state).
|
|
:- mode main(di, uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
main -->
|
|
{ Numba_0 is 32} ,
|
|
{ Numba_1 is Numba_0 - 5 } ,
|
|
{ Numba_2 is 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 = 0.9999 } ,
|
|
% { builtin_float_times( 2.0, Num_nr_1, Num_nr_2) } ,
|
|
{ builtin_float_plus( Num_nr_1, Num_nr_1, Num_nr_2) } ,
|
|
[],
|
|
{ string__format("First %#x characters of fig% 0.1f in MG are\n`%.*s'.\n", [ i(Numba_0), f(1.4232), Mg_poly, i(Numba_0)], String_0) } ,
|
|
{ string__format("First %#x characters of fig% 0.1f in MG are\n`%.*s'.\n", [ i(Numba_1), f(1.4232), Mg_poly, i(Numba_1)], String_1) } ,
|
|
{ string__format("First %#x characters of fig% 0.1f in MG are\n`%.*s'.\n", [ i(Numba_2), f(1.4232), Mg_poly, i(Numba_2)], 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__write_string(String_1),
|
|
io__write_string(String_2),
|
|
io__write_string("\nFollowing line should have 3, 4, 1 significant figures.\n"),
|
|
io__write_string(String_4),
|
|
[],
|
|
[],
|
|
{ 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, Num_2, Num_2,
|
|
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, Num_2, Num_2,
|
|
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, Num_2, Num_2,
|
|
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, Num_2, Num_2,
|
|
Num_2, Num_2, Num_2, Num_2], String_12) },
|
|
[],
|
|
[],
|
|
io__write_string("\n"),
|
|
io__write_string(F_string0),
|
|
io__write_string(F_string1),
|
|
io__write_string(F_string2),
|
|
io__write_string(F_string3),
|
|
io__write_string("\n"),
|
|
io__write_string(String_5),
|
|
io__write_string(String_6),
|
|
io__write_string(String_7),
|
|
io__write_string(String_8),
|
|
io__write_string(String_9),
|
|
io__write_string(String_10),
|
|
io__write_string(String_11),
|
|
io__write_string(String_12).
|