mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 01:43:35 +00:00
fbf35c8b22
samples/java_interface/java_calls_mercury/*.m:
Use spaces instead of tabs.
Delete trailing whitespace.
Fix a cut-and-paste error where exports to C instead of
Java are referred to.
samples/java_interface/mercury_calls_java/Makefile:
Fix the compilation options for this example.
samples/java_interface/mercury_calls_java/mercury_main.m:
Fix formatting.
25 lines
698 B
Mathematica
25 lines
698 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 just invokes java_main
|
|
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).
|