mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 09:53:36 +00:00
2c4bd735b4
Estimated hours taken: 0.25 samples/*: Add comment "This source file is hereby placed in the public domain".
23 lines
557 B
Mathematica
23 lines
557 B
Mathematica
% This is a simple example of using the C interface to call the C function
|
|
% (or macro) puts().
|
|
|
|
% This source file is hereby placed in the public domain. -fjh (the author).
|
|
|
|
:- module short_example.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io__state::di, io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- pred puts(string::in, io__state::di, io__state::uo) is det.
|
|
|
|
:- pragma c_header_code("#include <stdio.h>").
|
|
|
|
:- pragma c_code(non_recursive, puts(S::in, Old_IO::di, New_IO::uo),
|
|
"puts(S); New_IO = Old_IO; "
|
|
).
|
|
|
|
main --> puts("Hello, world\n").
|