mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 17:33:38 +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.
61 lines
1.5 KiB
Mathematica
61 lines
1.5 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% A test of the pragma(inline, ...) declarations.
|
|
|
|
:- module pragma_inline.
|
|
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module list.
|
|
:- import_module string.
|
|
|
|
main(!IO) :-
|
|
L = "l",
|
|
append_strings(L, L, LL),
|
|
string.append_list(["He", LL, "o, world\n"], String),
|
|
c_write_string(String, !IO).
|
|
|
|
:- pragma foreign_decl("C", "#include <stdio.h>").
|
|
|
|
:- pred c_write_string(string::in, io::di, io::uo) is det.
|
|
:- pragma foreign_proc("C",
|
|
c_write_string(Message::in, _IO0::di, _IO::uo),
|
|
[promise_pure, will_not_call_mercury],
|
|
"
|
|
printf(""%s"", Message);
|
|
").
|
|
c_write_string(Str, !IO) :-
|
|
io.write_string(Str, !IO).
|
|
|
|
:- pragma inline(c_write_string/3).
|
|
|
|
:- pragma foreign_decl("C", "#include <string.h>").
|
|
:- pragma foreign_decl("C", "#include ""mercury_heap.h""").
|
|
|
|
:- pred append_strings(string::in, string::in, string::out) is det.
|
|
:- pragma inline(append_strings/3).
|
|
|
|
:- pragma foreign_proc("C",
|
|
append_strings(S1::in, S2::in, S3::out),
|
|
[promise_pure, will_not_call_mercury],
|
|
"{
|
|
size_t len_1, len_2;
|
|
MR_Word tmp;
|
|
len_1 = strlen(S1);
|
|
len_2 = strlen(S2);
|
|
MR_offset_incr_hp_atomic(tmp, 0, (len_1 + len_2 + sizeof(MR_Word))
|
|
/ sizeof(MR_Word));
|
|
S3 = (char *) tmp;
|
|
strcpy(S3, S1);
|
|
strcpy(S3 + len_1, S2);
|
|
}").
|
|
append_strings(A, B, A ++ B).
|