mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-27 07:14:20 +00:00
ea06fd8cde
This was a seperate repository in CVS and so it missed the conversion.
benchmarks/
As above.
37 lines
766 B
Mathematica
37 lines
766 B
Mathematica
% The top-level
|
|
|
|
:- module main.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io__state::di, io__state::uo) is cc_multi.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
:- import_module globals, gml, eval, eval_util, exception, peephole.
|
|
:- import_module unit.
|
|
|
|
main -->
|
|
try_io(
|
|
(pred(unit::out, di, uo) is det -->
|
|
globals__init,
|
|
tokenize(BasicTokens),
|
|
{ parse(BasicTokens, Program) },
|
|
{ peephole(Program, OptProgram) },
|
|
% write_prog(0, OptProgram),
|
|
interpret(OptProgram)
|
|
),
|
|
ExceptionResult
|
|
),
|
|
(
|
|
{ ExceptionResult = exception(E) }
|
|
->
|
|
write_nice_exception(E),
|
|
io__set_exit_status(1)
|
|
;
|
|
[]
|
|
).
|
|
|
|
%-----------------------------------------------------------------------------%
|