mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 18:03:36 +00:00
1702444cb1
samples/java_interface/java_calls_mercury/mercury_main.m:
samples/java_interface/mercury_calls_java/java_main_int.m:
samples/java_interface/standalone_java/JavaMain.java:
samples/java_interface/standalone_java/Makefile:
samples/java_interface/standalone_java/mercury_lib.m:
As above.
25 lines
703 B
Mathematica
25 lines
703 B
Mathematica
% This source file is hereby placed in the public domain. -fjh (the author).
|
|
|
|
:- module mercury_main.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
% Nothing from mercury_lib is used in mercury_main.
|
|
% The import is needed to make sure mmake includes mercury_lib in the
|
|
% executable.
|
|
:- import_module mercury_lib.
|
|
|
|
% Import the module which defines the Mercury interface to the
|
|
% Java method java_main().
|
|
:- import_module java_main_int.
|
|
|
|
% main/2 just invokes java_main/2.
|
|
main(!IO) :-
|
|
io.write_string("In Mercury main, about to call java_main...\n", !IO),
|
|
java_main(!IO),
|
|
io.write_string("Back in Mercury main.\n", !IO).
|