mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-27 07:14:20 +00:00
cbb7d8613b
library/LIB_FLAGS.in:
mfilterjavac/MFILTERJAVAC_FLAGS.in:
profiler/PROF_FLAGS.in:
slice/SLICE_FLAGS.in:
ssdb/SSDB_FLAGS.in:
Specify --warn-inconsistent-pred-order-clauses as a default flag
in these directories as well.
library/string.m:
Reorder code to make this module compile cleanly with
--warn-inconsistent-pred-order-clauses.
Don't export base_string_to_int_underscore to lexer.m, since
lexer.m does not use it anymore, and neither does anything else.
(The export was not publicly documented.)
library/benchmarking.m:
library/bitmap.m:
library/builtin.m:
library/map.m:
library/profiling_builtin.m:
library/rbtree.m:
library/table_builtin.m:
library/uint.m:
profiler/globals.m:
profiler/options.m:
profiler/prof_info.m:
slice/mdice.m:
slice/mslice.m:
slice/mtc_diff.m:
slice/mtc_union.m:
ssdb/ssdb.m:
Reorder code to make these modules compile cleanly with
--warn-inconsistent-pred-order-clauses.
library/Mercury.options:
Specify --no-warn-inconsistent-pred-order-clauses for the modules
that would still get warnings without this option.
225 lines
7.8 KiB
Mathematica
225 lines
7.8 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et
|
|
%---------------------------------------------------------------------------%
|
|
% Copyright (C) 1995, 1997-1998, 2001, 2004-2006, 2011 The University of Melbourne.
|
|
% This file may only be copied under the terms of the GNU General
|
|
% Public License - see the file COPYING in the Mercury distribution.
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% File: globals.m.
|
|
% Main author: fjh.
|
|
%
|
|
% This module exports the `globals' type and associated access predicates.
|
|
% The globals type is used to collect together all the various data
|
|
% that would be global variables in an imperative language.
|
|
% This global data is stored in the io state.
|
|
%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module globals.
|
|
:- interface.
|
|
|
|
:- import_module options.
|
|
|
|
:- import_module bool.
|
|
:- import_module getopt.
|
|
:- import_module io.
|
|
:- import_module list.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- type globals.
|
|
|
|
:- type what_to_profile
|
|
---> memory_words
|
|
; memory_cells
|
|
; memory_snapshots
|
|
; user_plus_system_time
|
|
; user_time
|
|
; real_time.
|
|
|
|
:- pred what_to_profile(string, what_to_profile).
|
|
:- mode what_to_profile(in, out) is semidet.
|
|
:- mode what_to_profile(out, in) is det.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Access predicates for the `globals' structure
|
|
%
|
|
|
|
:- pred globals.init(option_table::in, globals::out) is det.
|
|
|
|
:- pred globals.get_what_to_profile(globals::in, what_to_profile::out) is det.
|
|
:- pred globals.get_options(globals::in, option_table::out) is det.
|
|
|
|
:- pred globals.set_what_to_profile(what_to_profile::in,
|
|
globals::in, globals::out) is det.
|
|
:- pred globals.set_options(option_table::in, globals::in, globals::out)
|
|
is det.
|
|
|
|
:- pred globals.lookup_option(globals::in, option::in, option_data::out)
|
|
is det.
|
|
|
|
:- pred globals.lookup_bool_option(globals::in, option::in, bool::out) is det.
|
|
:- pred globals.lookup_int_option(globals::in, option::in, int::out) is det.
|
|
:- pred globals.lookup_string_option(globals::in, option::in, string::out)
|
|
is det.
|
|
:- pred globals.lookup_accumulating_option(globals::in, option::in,
|
|
list(string)::out) is det.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
% Access predicates for storing a `globals' structure in the
|
|
% io using io.set_globals and io.get_globals.
|
|
|
|
:- pred globals.io_init(option_table::in, io::di, io::uo) is det.
|
|
|
|
:- pred globals.io_get_globals(globals::out, io::di, io::uo) is det.
|
|
|
|
:- pred globals.io_set_globals(globals::in, io::di, io::uo) is det.
|
|
|
|
:- pred globals.io_lookup_option(option::in, option_data::out,
|
|
io::di, io::uo) is det.
|
|
|
|
:- pred globals.io_set_option(option::in, option_data::in,
|
|
io::di, io::uo) is det.
|
|
|
|
:- pred globals.io_lookup_bool_option(option::in, bool::out, io::di, io::uo)
|
|
is det.
|
|
:- pred globals.io_lookup_int_option(option::in, int::out,
|
|
io::di, io::uo) is det.
|
|
:- pred globals.io_lookup_string_option(option::in, string::out,
|
|
io::di, io::uo) is det.
|
|
:- pred globals.io_lookup_accumulating_option(option::in, list(string)::out,
|
|
io::di, io::uo) is det.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- import_module map.
|
|
:- import_module require.
|
|
:- import_module string.
|
|
:- import_module univ.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
what_to_profile("memory-words", memory_words).
|
|
what_to_profile("memory-cells", memory_cells).
|
|
what_to_profile("snapshots", memory_snapshots).
|
|
what_to_profile("user-plus-system-time", user_plus_system_time).
|
|
what_to_profile("user-time", user_time).
|
|
what_to_profile("real-time", real_time).
|
|
|
|
:- type globals
|
|
---> globals(
|
|
what_to_profile :: what_to_profile,
|
|
option_table :: option_table
|
|
).
|
|
|
|
globals.init(Options, globals(user_plus_system_time, Options)).
|
|
|
|
globals.get_what_to_profile(Globals, Globals ^ what_to_profile).
|
|
globals.get_options(Globals, Globals ^ option_table).
|
|
|
|
globals.set_what_to_profile(WhatToProfile,
|
|
Globals, Globals ^ what_to_profile := WhatToProfile).
|
|
globals.set_options(Options, Globals, Globals ^ option_table := Options).
|
|
|
|
globals.lookup_option(Globals, Option, OptionData) :-
|
|
globals.get_options(Globals, OptionTable),
|
|
map.lookup(OptionTable, Option, OptionData).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
globals.lookup_bool_option(Globals, Option, Value) :-
|
|
globals.lookup_option(Globals, Option, OptionData),
|
|
( if OptionData = bool(Bool) then
|
|
Value = Bool
|
|
else
|
|
error("globals.lookup_bool_option: invalid bool option")
|
|
).
|
|
|
|
globals.lookup_int_option(Globals, Option, Value) :-
|
|
globals.lookup_option(Globals, Option, OptionData),
|
|
( if OptionData = int(Int) then
|
|
Value = Int
|
|
else
|
|
error("globals.lookup_int_option: invalid int option")
|
|
).
|
|
|
|
globals.lookup_string_option(Globals, Option, Value) :-
|
|
globals.lookup_option(Globals, Option, OptionData),
|
|
( if OptionData = string(String) then
|
|
Value = String
|
|
else
|
|
error("globals.lookup_string_option: invalid string option")
|
|
).
|
|
|
|
globals.lookup_accumulating_option(Globals, Option, Value) :-
|
|
globals.lookup_option(Globals, Option, OptionData),
|
|
( if OptionData = accumulating(Accumulating) then
|
|
Value = Accumulating
|
|
else
|
|
error("globals.lookup_accumulating_option: " ++
|
|
"invalid accumulating option")
|
|
).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
globals.io_init(Options, !IO) :-
|
|
globals.init(Options, Globals),
|
|
globals.io_set_globals(Globals, !IO).
|
|
|
|
globals.io_get_globals(Globals, !IO) :-
|
|
io.get_globals(UnivGlobals, !IO),
|
|
( if univ_to_type(UnivGlobals, Globals0) then
|
|
Globals = Globals0
|
|
else
|
|
error("globals.io_get_globals: univ_to_type failed")
|
|
).
|
|
|
|
globals.io_set_globals(Globals0, !IO) :-
|
|
unsafe_promise_unique(Globals0, Globals),
|
|
type_to_univ(Globals, UnivGlobals),
|
|
io.set_globals(UnivGlobals, !IO).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
globals.io_lookup_option(Option, OptionData, !IO) :-
|
|
globals.io_get_globals(Globals, !IO),
|
|
globals.get_options(Globals, OptionTable),
|
|
map.lookup(OptionTable, Option, OptionData).
|
|
|
|
globals.io_set_option(Option, OptionData, !IO) :-
|
|
globals.io_get_globals(Globals0, !IO),
|
|
globals.get_options(Globals0, OptionTable0),
|
|
map.set(Option, OptionData, OptionTable0, OptionTable),
|
|
globals.set_options(OptionTable, Globals0, Globals),
|
|
globals.io_set_globals(Globals, !IO).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
globals.io_lookup_bool_option(Option, Value, !IO) :-
|
|
globals.io_get_globals(Globals, !IO),
|
|
globals.lookup_bool_option(Globals, Option, Value).
|
|
|
|
globals.io_lookup_int_option(Option, Value, !IO) :-
|
|
globals.io_get_globals(Globals, !IO),
|
|
globals.lookup_int_option(Globals, Option, Value).
|
|
|
|
globals.io_lookup_string_option(Option, Value, !IO) :-
|
|
globals.io_get_globals(Globals, !IO),
|
|
globals.lookup_string_option(Globals, Option, Value).
|
|
|
|
globals.io_lookup_accumulating_option(Option, Value, !IO) :-
|
|
globals.io_get_globals(Globals, !IO),
|
|
globals.lookup_accumulating_option(Globals, Option, Value).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
:- end_module globals.
|
|
%---------------------------------------------------------------------------%
|