mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 18:03:36 +00:00
27 lines
695 B
Mathematica
27 lines
695 B
Mathematica
%-----------------------------------------------------------------------------%
|
|
% Copyright (C) 1997 The University of Melbourne.
|
|
% This file may only be copied under the terms of the GNU Library General
|
|
% Public License - see the file COPYING.LIB in the Mercury distribution.
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- module mdb.
|
|
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io__state::di, io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
main -->
|
|
call_mbi.
|
|
|
|
:- pred call_mbi(io__state::di, io__state::uo) is det.
|
|
|
|
:- pragma c_header_code("#include \"mbi.h\"").
|
|
|
|
:- pragma c_code(call_mbi(IO_in::di, IO_out::uo),
|
|
"BC_call_mbi(); IO_out = IO_in;").
|
|
|