mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-19 19:33:46 +00:00
3ffb81aae3
mercury_profile.m: Rearranged the file and moved some of it's predicate's into debug.m and read.m. Now process's all the input file's addr*out and *.prof. debug.m read.m: Predicates moved from mercury_profile.m
59 lines
1.8 KiB
Mathematica
59 lines
1.8 KiB
Mathematica
%-----------------------------------------------------------------------------%
|
|
% Copyright (C) 1995 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.
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
%-----------------------------------------------------------------------------%
|
|
%
|
|
% debug.m: Debuging predicates for the mercury profiler
|
|
%
|
|
% Main author: petdr.
|
|
%
|
|
%-----------------------------------------------------------------------------%
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- module debug.
|
|
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred output_cliques(list(set(string)), io__state, io__state).
|
|
:- mode output_cliques(in, di, uo) is det.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- import_module set, list, string.
|
|
:- import_module getopt, options, globals.
|
|
:- import_module std_util, require.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
|
|
% output_cliques
|
|
% Used to check that the topological ordering is being done correctly.
|
|
output_cliques([]) --> [].
|
|
output_cliques([C | Cs]) -->
|
|
io__write_string("================================\n"),
|
|
{ set__to_sorted_list(C, M) },
|
|
print_list(M),
|
|
output_cliques(Cs).
|
|
|
|
|
|
:- pred print_list(list(string), io__state, io__state).
|
|
:- mode print_list(in, di, uo) is det.
|
|
|
|
print_list([]) --> [].
|
|
print_list([X | Xs]) -->
|
|
io__write_string(X),
|
|
io__write_string("\n"),
|
|
print_list(Xs).
|
|
|
|
|
|
%-----------------------------------------------------------------------------%
|