mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-18 07:15:19 +00:00
77b16b11d9
code_util.nl, float.nl, llds.nl, mercury_builtin.nl, opt_debug.nl, parser.nl, polymorphism.nl, sp_lib.nl, string.nl, string.nu.nl, type_util.nl, typecheck.nl, unify_gen.nl: Implement floating point. Makefile.common: Remove `-include test.dep' line. Use Mmake. int.nl: Update a few of the comments. io.nu.nl: For Sicstus Prolog, if main/2 is not defined then enter the debugger.
35 lines
989 B
Mathematica
35 lines
989 B
Mathematica
:- module float.
|
|
:- interface.
|
|
|
|
% The interface provided here is rather low-level and not
|
|
% syntactically elegant. It's a building block, not a finished tool.
|
|
|
|
:- pred builtin_float_plus(float, float, float).
|
|
:- mode builtin_float_plus(in, in, out) is det.
|
|
|
|
:- pred builtin_float_minus(float, float, float).
|
|
:- mode builtin_float_minus(in, in, out) is det.
|
|
|
|
:- pred builtin_float_times(float, float, float).
|
|
:- mode builtin_float_times(in, in, out) is det.
|
|
|
|
:- pred builtin_float_divide(float, float, float).
|
|
:- mode builtin_float_divide(in, in, out) is det.
|
|
|
|
:- pred builtin_float_gt(float, float).
|
|
:- mode builtin_float_gt(in, in) is semidet.
|
|
|
|
:- pred builtin_float_lt(float, float).
|
|
:- mode builtin_float_lt(in, in) is semidet.
|
|
|
|
:- pred builtin_float_ge(float, float).
|
|
:- mode builtin_float_ge(in, in) is semidet.
|
|
|
|
:- pred builtin_float_le(float, float).
|
|
:- mode builtin_float_le(in, in) is semidet.
|
|
|
|
:- implementation.
|
|
|
|
/* They're all builtins, which the compiler expands inline. */
|
|
|