mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-19 19:33:46 +00:00
1f6d83692a
tests/hard_coded/*.m:
Update programming style, unless doing so would change
the meaning of the test, in particular:
- use '.' as a module qualifier in place of '__'
- use {write,print}_line where appropriate
- use if-then-else in place of C -> T ; E
- use state variables in place of DCGs
tests/hard_coded/dir_test.m:
Document what the expected outputs correspond to.
Use a uniform module qualifier in the output.
tests/hard_coded/dir_test.exp*:
Conform to the above change.
45 lines
1.1 KiB
Mathematica
45 lines
1.1 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
:- module name_mangling.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- type 'a strange type name'
|
|
---> 'a strange functor'
|
|
; 'another strange functor'.
|
|
|
|
:- type 'another wierd type' == int.
|
|
|
|
:- type (A, B) ---> (A, B).
|
|
:- inst (A, B) ---> (A, B).
|
|
:- func mk_pair(A, B) = (A, B).
|
|
|
|
:- pred 'this is a test' is det.
|
|
|
|
:- pred 'this is another test'('a strange type name'::out) is multi.
|
|
|
|
:- pred 'yet another test'('another wierd type'::out) is det.
|
|
|
|
:- implementation.
|
|
:- import_module solutions.
|
|
|
|
mk_pair(A, B) = (A, B).
|
|
|
|
'this is a test'.
|
|
|
|
'this is another test'('a strange functor').
|
|
'this is another test'('another strange functor').
|
|
|
|
'yet another test'(42).
|
|
|
|
main -->
|
|
{ 'this is a test' },
|
|
write('a strange functor'), nl,
|
|
write('another strange functor'), nl,
|
|
{ solutions('this is another test', List) },
|
|
write(List), nl.
|