mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-29 00:04:55 +00:00
56 lines
1.7 KiB
Mathematica
56 lines
1.7 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.
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
%-----------------------------------------------------------------------------%
|
|
%
|
|
% prof_debug.m: Debuging predicates for the mercury profiler
|
|
%
|
|
% Main author: petdr.
|
|
%
|
|
%-----------------------------------------------------------------------------%
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- module prof_debug.
|
|
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
:- import_module set, list, string.
|
|
|
|
:- pred output_cliques(list(set(string)), io__state, io__state).
|
|
:- mode output_cliques(in, di, uo) is det.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
|
|
% 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).
|
|
|
|
|
|
%-----------------------------------------------------------------------------%
|