mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-23 05:13:48 +00:00
ffb357724f
tests/hard_coded/target_mlobjs_c.c:
Fix a bad use of printf.
tests/hard_coded/trace_goal_4.m:
tests/hard_coded/word_aligned_pointer.m:
tests/hard_coded/word_aligned_pointer_2.m:
tests/tabling/memo_non.m:
tests/tabling/table_foreign_output.m:
tests/tabling/test_enum.m:
Don't assume that MR_Integers are ints; print them using
MR_INTEGER_LENGTH_MODIFIER.
83 lines
2.1 KiB
Mathematica
83 lines
2.1 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Test the memoization of model_non predicates.
|
|
|
|
:- module memo_non.
|
|
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
:- import_module int.
|
|
:- import_module solutions.
|
|
|
|
:- pragma require_feature_set([memo]).
|
|
|
|
main(!IO) :-
|
|
solutions(test_non(1, 2), NonSoln1),
|
|
io.write(NonSoln1, !IO),
|
|
io.nl(!IO),
|
|
solutions(test_non(1, 2), NonSoln2),
|
|
io.write(NonSoln2, !IO),
|
|
io.nl(!IO),
|
|
solutions(test_non(2, 2), NonSoln3),
|
|
io.write(NonSoln3, !IO),
|
|
io.nl(!IO),
|
|
solutions(test_non(2, 2), NonSoln4),
|
|
io.write(NonSoln4, !IO),
|
|
io.nl(!IO),
|
|
|
|
solutions(test_multi(1, 2), MultiSoln1),
|
|
io.write(MultiSoln1, !IO),
|
|
io.nl(!IO),
|
|
solutions(test_multi(1, 2), MultiSoln2),
|
|
io.write(MultiSoln2, !IO),
|
|
io.nl(!IO),
|
|
% This tests the duplicate detection machinery.
|
|
solutions(test_multi(2, 2), MultiSoln3),
|
|
io.write(MultiSoln3, !IO),
|
|
io.nl(!IO),
|
|
solutions(test_multi(2, 2), MultiSoln4),
|
|
io.write(MultiSoln4, !IO),
|
|
io.nl(!IO).
|
|
|
|
:- pred test_non(int::in, int::in, int::out) is nondet.
|
|
:- pragma memo(test_non/3).
|
|
:- pragma promise_pure(test_non/3).
|
|
test_non(A, B, C) :-
|
|
impure marker("non", A, B, Zero),
|
|
( if A = 1 then
|
|
(
|
|
C = Zero + (A * 100) + (B * 10)
|
|
;
|
|
C = Zero + (B * 100) + (A * 10)
|
|
)
|
|
else
|
|
fail
|
|
).
|
|
|
|
:- pred test_multi(int::in, int::in, int::out) is multi.
|
|
:- pragma memo(test_multi/3).
|
|
:- pragma promise_pure(test_multi/3).
|
|
test_multi(A, B, C) :-
|
|
impure marker("multi", A, B, Zero),
|
|
(
|
|
C = Zero + (A * 100) + (B * 10)
|
|
;
|
|
C = Zero + (B * 100) + (A * 10)
|
|
).
|
|
|
|
:- impure pred marker(string::in, int::in, int::in, int::out) is det.
|
|
:- pragma foreign_proc("C",
|
|
marker(S::in, A::in, B::in, X::out),
|
|
[will_not_call_mercury],
|
|
"
|
|
printf(""marker executed: %s %"" MR_INTEGER_LENGTH_MODIFIER ""d %""
|
|
MR_INTEGER_LENGTH_MODIFIER ""d\\n"", S, A, B);
|
|
X = 0;
|
|
").
|