mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-12 04:14:06 +00:00
a12692a0de
Keep the old style comments where they do not go to the end of the line, or where it is important that the comment line not have a // on it.
401 lines
14 KiB
Mathematica
401 lines
14 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
% Copyright (C) 1993-2007, 2009-2014 The University of Melbourne.
|
|
% Copyright (C) 2013-2018 The Mercury team.
|
|
% This file is distributed under the terms specified in COPYING.LIB.
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% This module imports all the modules in the Mercury library.
|
|
%
|
|
% It is used as a way for the Makefiles to know which library interface
|
|
% files, objects, etc., need to be installed.
|
|
%
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module library.
|
|
:- interface.
|
|
|
|
% version(VersionString, FullarchString)
|
|
%
|
|
:- pred library.version(string::out, string::out) is det.
|
|
|
|
:- implementation.
|
|
|
|
% Everything below here is not intended to be part of the public interface,
|
|
% and will not be included in the Mercury library reference manual.
|
|
|
|
:- interface.
|
|
|
|
% Succeeds iff the string is the (unqualified) name of one of the
|
|
% modules in the Mercury standard library.
|
|
%
|
|
:- pred mercury_std_library_module(string::in) is semidet.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
% NOTE: If you add a new module to the library, you also need to do the
|
|
% following.
|
|
%
|
|
% - Unless the new module is a private submodule of an existing library module,
|
|
% import the new module in one of the two lists below: the list of modules
|
|
% intended for application programmers, or the list of modules intended
|
|
% only for Mercury system implementors.
|
|
%
|
|
% - Add the module name to the definition of mercury_std_library_module below.
|
|
% This is regardless of whether the module is for implementors or not,
|
|
% and whether it is a private submodule or not. The
|
|
% mercury_std_library_module predicate should list all the modules
|
|
% in a Mercury source file in the library directory.
|
|
%
|
|
% - Add the file name either to MODULES_DOC (if it is intended for application
|
|
% programmers, and should therefore be included in the automatically
|
|
% generated user-facing documentation), or to MODULES_UNDOC (if it is
|
|
% intended only for Mercury system implementors, in which case it should
|
|
% not be included in that documentation).
|
|
%
|
|
% Please keep all these lists in alphabetical order.
|
|
|
|
% The modules intended for application programmers.
|
|
|
|
:- import_module array.
|
|
:- import_module array2d.
|
|
:- import_module assoc_list.
|
|
:- import_module backjump.
|
|
:- import_module bag.
|
|
:- import_module benchmarking.
|
|
:- import_module bimap.
|
|
:- import_module bitmap.
|
|
:- import_module bit_buffer.
|
|
:- import_module bit_buffer.read.
|
|
:- import_module bit_buffer.write.
|
|
:- import_module bool.
|
|
:- import_module bt_array.
|
|
:- import_module builtin.
|
|
:- import_module calendar.
|
|
:- import_module char.
|
|
:- import_module construct.
|
|
:- import_module cord.
|
|
:- import_module counter.
|
|
:- import_module deconstruct.
|
|
:- import_module diet.
|
|
:- import_module digraph.
|
|
:- import_module dir.
|
|
:- import_module enum.
|
|
:- import_module eqvclass.
|
|
:- import_module exception.
|
|
:- import_module fat_sparse_bitset.
|
|
:- import_module float.
|
|
:- import_module gc.
|
|
:- import_module getopt.
|
|
:- import_module getopt_io.
|
|
:- import_module hash_table.
|
|
:- import_module injection.
|
|
:- import_module int.
|
|
:- import_module int8.
|
|
:- import_module int16.
|
|
:- import_module int32.
|
|
:- import_module int64.
|
|
:- import_module integer.
|
|
:- import_module io.
|
|
:- import_module lazy.
|
|
:- import_module lexer.
|
|
:- import_module list.
|
|
:- import_module map.
|
|
:- import_module math.
|
|
:- import_module maybe.
|
|
:- import_module multi_map.
|
|
:- import_module ops.
|
|
:- import_module pair.
|
|
:- import_module parser.
|
|
:- import_module parsing_utils.
|
|
:- import_module pprint.
|
|
:- import_module pqueue.
|
|
:- import_module pretty_printer.
|
|
:- import_module prolog.
|
|
:- import_module psqueue.
|
|
:- import_module queue.
|
|
:- import_module random.
|
|
:- import_module ranges.
|
|
:- import_module rational.
|
|
:- import_module rbtree.
|
|
:- import_module require.
|
|
:- import_module robdd.
|
|
:- import_module rtree.
|
|
:- import_module set.
|
|
:- import_module set_bbbtree.
|
|
:- import_module set_ctree234.
|
|
:- import_module set_ordlist.
|
|
:- import_module set_tree234.
|
|
:- import_module set_unordlist.
|
|
:- import_module solutions.
|
|
:- import_module sparse_bitset.
|
|
:- import_module stack.
|
|
:- import_module std_util.
|
|
:- import_module store.
|
|
:- import_module stream.
|
|
:- import_module stream.string_writer.
|
|
:- import_module string.
|
|
:- import_module string.builder.
|
|
:- import_module string.format.
|
|
:- import_module string.parse_util.
|
|
:- import_module table_statistics.
|
|
:- import_module term.
|
|
:- import_module term_conversion.
|
|
:- import_module term_io.
|
|
:- import_module term_to_xml.
|
|
:- import_module thread.
|
|
:- import_module time.
|
|
:- import_module tree234.
|
|
:- import_module tree_bitset.
|
|
:- import_module type_desc.
|
|
:- import_module uint.
|
|
:- import_module uint8.
|
|
:- import_module uint16.
|
|
:- import_module uint32.
|
|
:- import_module uint64.
|
|
:- import_module unit.
|
|
:- import_module univ.
|
|
:- import_module varset.
|
|
:- import_module version_array.
|
|
:- import_module version_array2d.
|
|
:- import_module version_bitmap.
|
|
:- import_module version_hash_table.
|
|
:- import_module version_store.
|
|
|
|
% The modules intended for Mercury system implementors.
|
|
% NOTE: changes to this list may need to be reflected
|
|
% in mdbcomp/builtin_modules.m.
|
|
%
|
|
:- import_module erlang_builtin.
|
|
:- import_module erlang_rtti_implementation.
|
|
:- import_module mutvar.
|
|
:- import_module par_builtin.
|
|
:- import_module private_builtin.
|
|
:- import_module profiling_builtin.
|
|
:- import_module region_builtin.
|
|
:- import_module rtti_implementation.
|
|
:- import_module stm_builtin.
|
|
:- import_module table_builtin.
|
|
:- import_module term_size_prof_builtin.
|
|
:- import_module test_bitset.
|
|
|
|
:- pragma foreign_decl("Erlang", local, "
|
|
-include(""erlang_conf.hrl"").
|
|
").
|
|
|
|
% library.version must be implemented using pragma foreign_proc,
|
|
% so we can get at the MR_VERSION and MR_FULLARCH configuration
|
|
% parameters. We can't just generate library.m from library.m.in
|
|
% at configuration time, because that would cause bootstrapping problems --
|
|
% we might not have a Mercury compiler around to compile library.m with.
|
|
|
|
% We can't allow library.version to inlined into other modules. The Erlang
|
|
% definition depends on erlang_conf.hrl, which will only be included by this
|
|
% module and not installed.
|
|
:- pragma no_inline(library.version/2).
|
|
|
|
:- pragma foreign_proc("C",
|
|
library.version(Version::out, Fullarch::out),
|
|
[will_not_call_mercury, promise_pure, thread_safe, will_not_modify_trail],
|
|
"
|
|
MR_ConstString version_string = MR_VERSION;
|
|
MR_ConstString fullarch_string = MR_FULLARCH;
|
|
|
|
// Cast away const needed here, because Mercury declares Version
|
|
// with type MR_String rather than MR_ConstString.
|
|
Version = (MR_String) (MR_Word) version_string;
|
|
Fullarch = (MR_String) (MR_Word) fullarch_string;
|
|
").
|
|
|
|
:- pragma foreign_proc("C#",
|
|
library.version(Version::out, Fullarch::out),
|
|
[will_not_call_mercury, promise_pure, thread_safe],
|
|
"
|
|
Version = runtime.Constants.MR_VERSION;
|
|
Fullarch = runtime.Constants.MR_FULLARCH;
|
|
").
|
|
|
|
:- pragma foreign_proc("Java",
|
|
library.version(Version::out, Fullarch::out),
|
|
[will_not_call_mercury, promise_pure, thread_safe],
|
|
"
|
|
Version = jmercury.runtime.Constants.MR_VERSION;
|
|
Fullarch = jmercury.runtime.Constants.MR_FULLARCH;
|
|
").
|
|
|
|
:- pragma foreign_proc("Erlang",
|
|
library.version(Version::out, Fullarch::out),
|
|
[will_not_call_mercury, promise_pure, thread_safe],
|
|
"
|
|
Version = << ?MR_VERSION >>,
|
|
Fullarch = << ?MR_FULLARCH >>
|
|
").
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
mercury_std_library_module("array").
|
|
mercury_std_library_module("array2d").
|
|
mercury_std_library_module("assoc_list").
|
|
mercury_std_library_module("backjump").
|
|
mercury_std_library_module("bag").
|
|
mercury_std_library_module("benchmarking").
|
|
mercury_std_library_module("bimap").
|
|
mercury_std_library_module("bitmap").
|
|
mercury_std_library_module("bit_buffer").
|
|
mercury_std_library_module("bit_buffer.read").
|
|
mercury_std_library_module("bit_buffer.write").
|
|
mercury_std_library_module("bool").
|
|
mercury_std_library_module("bt_array").
|
|
mercury_std_library_module("builtin").
|
|
mercury_std_library_module("calendar").
|
|
mercury_std_library_module("char").
|
|
mercury_std_library_module("construct").
|
|
mercury_std_library_module("cord").
|
|
mercury_std_library_module("counter").
|
|
mercury_std_library_module("deconstruct").
|
|
mercury_std_library_module("diet").
|
|
mercury_std_library_module("digraph").
|
|
mercury_std_library_module("dir").
|
|
mercury_std_library_module("enum").
|
|
mercury_std_library_module("eqvclass").
|
|
mercury_std_library_module("erlang_builtin").
|
|
mercury_std_library_module("erlang_rtti_implementation").
|
|
mercury_std_library_module("exception").
|
|
mercury_std_library_module("fat_sparse_bitset").
|
|
mercury_std_library_module("float").
|
|
mercury_std_library_module("gc").
|
|
mercury_std_library_module("getopt").
|
|
mercury_std_library_module("getopt_io").
|
|
mercury_std_library_module("hash_table").
|
|
mercury_std_library_module("injection").
|
|
mercury_std_library_module("int").
|
|
mercury_std_library_module("int8").
|
|
mercury_std_library_module("int16").
|
|
mercury_std_library_module("int32").
|
|
mercury_std_library_module("int64").
|
|
mercury_std_library_module("integer").
|
|
mercury_std_library_module("io").
|
|
mercury_std_library_module("lazy").
|
|
mercury_std_library_module("lexer").
|
|
mercury_std_library_module("library").
|
|
mercury_std_library_module("list").
|
|
mercury_std_library_module("map").
|
|
mercury_std_library_module("math").
|
|
mercury_std_library_module("maybe").
|
|
mercury_std_library_module("multi_map").
|
|
mercury_std_library_module("mutvar").
|
|
mercury_std_library_module("ops").
|
|
mercury_std_library_module("pair").
|
|
mercury_std_library_module("par_builtin").
|
|
mercury_std_library_module("parser").
|
|
mercury_std_library_module("parsing_utils").
|
|
mercury_std_library_module("pprint").
|
|
mercury_std_library_module("pqueue").
|
|
mercury_std_library_module("pretty_printer").
|
|
mercury_std_library_module("private_builtin").
|
|
mercury_std_library_module("profiling_builtin").
|
|
mercury_std_library_module("prolog").
|
|
mercury_std_library_module("psqueue").
|
|
mercury_std_library_module("queue").
|
|
mercury_std_library_module("random").
|
|
mercury_std_library_module("ranges").
|
|
mercury_std_library_module("rational").
|
|
mercury_std_library_module("rbtree").
|
|
mercury_std_library_module("region_builtin").
|
|
mercury_std_library_module("require").
|
|
mercury_std_library_module("robdd").
|
|
mercury_std_library_module("rtree").
|
|
mercury_std_library_module("rtti_implementation").
|
|
mercury_std_library_module("set").
|
|
mercury_std_library_module("set_bbbtree").
|
|
mercury_std_library_module("set_ctree234").
|
|
mercury_std_library_module("set_ordlist").
|
|
mercury_std_library_module("set_tree234").
|
|
mercury_std_library_module("set_unordlist").
|
|
mercury_std_library_module("solutions").
|
|
mercury_std_library_module("sparse_bitset").
|
|
mercury_std_library_module("stack").
|
|
mercury_std_library_module("std_util").
|
|
mercury_std_library_module("stm_builtin").
|
|
mercury_std_library_module("store").
|
|
mercury_std_library_module("stream").
|
|
mercury_std_library_module("stream.string_writer").
|
|
mercury_std_library_module("string").
|
|
mercury_std_library_module("string.builder").
|
|
mercury_std_library_module("string.format").
|
|
mercury_std_library_module("string.parse_runtime").
|
|
mercury_std_library_module("string.parse_util").
|
|
mercury_std_library_module("string.to_string").
|
|
mercury_std_library_module("table_builtin").
|
|
mercury_std_library_module("table_statistics").
|
|
mercury_std_library_module("term").
|
|
mercury_std_library_module("term_conversion").
|
|
mercury_std_library_module("term_io").
|
|
mercury_std_library_module("term_size_prof_builtin").
|
|
mercury_std_library_module("term_to_xml").
|
|
mercury_std_library_module("test_bitset").
|
|
mercury_std_library_module("time").
|
|
mercury_std_library_module("thread").
|
|
mercury_std_library_module("thread.barrier").
|
|
mercury_std_library_module("thread.channel").
|
|
mercury_std_library_module("thread.future").
|
|
mercury_std_library_module("thread.mvar").
|
|
mercury_std_library_module("thread.semaphore").
|
|
mercury_std_library_module("tree234").
|
|
mercury_std_library_module("tree_bitset").
|
|
mercury_std_library_module("type_desc").
|
|
mercury_std_library_module("uint").
|
|
mercury_std_library_module("uint8").
|
|
mercury_std_library_module("uint16").
|
|
mercury_std_library_module("uint32").
|
|
mercury_std_library_module("uint64").
|
|
mercury_std_library_module("unit").
|
|
mercury_std_library_module("univ").
|
|
mercury_std_library_module("varset").
|
|
mercury_std_library_module("version_array").
|
|
mercury_std_library_module("version_array2d").
|
|
mercury_std_library_module("version_bitmap").
|
|
mercury_std_library_module("version_hash_table").
|
|
mercury_std_library_module("version_store").
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
% Overall library initializer called before any user code,
|
|
% including module local initializers.
|
|
%
|
|
:- pred std_library_init(io::di, io::uo) is det.
|
|
|
|
:- pragma foreign_export("C", std_library_init(di, uo),
|
|
"ML_std_library_init").
|
|
:- pragma foreign_export("C#", std_library_init(di, uo),
|
|
"ML_std_library_init").
|
|
:- pragma foreign_export("Java", std_library_init(di, uo),
|
|
"ML_std_library_init").
|
|
:- pragma foreign_export("Erlang", std_library_init(di, uo),
|
|
"ML_std_library_init").
|
|
|
|
std_library_init(!IO) :-
|
|
promise_pure (
|
|
impure builtin.init_runtime_hooks,
|
|
io.init_state(!IO)
|
|
).
|
|
|
|
% Overall library finalizer.
|
|
%
|
|
:- pred std_library_finalize(io::di, io::uo) is det.
|
|
|
|
:- pragma foreign_export("C", std_library_finalize(di, uo),
|
|
"ML_std_library_finalize").
|
|
:- pragma foreign_export("Erlang", std_library_finalize(di, uo),
|
|
"ML_std_library_finalize").
|
|
|
|
std_library_finalize(!IO) :-
|
|
io.finalize_state(!IO).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|