From 5bde02fccb7ec3d10902280a9e6781e7327aaf0b Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 12 Mar 2002 15:08:48 +0000
Subject: [PATCH] new file just for profile

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@410 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/profile.yap | 61 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 pl/profile.yap

diff --git a/pl/profile.yap b/pl/profile.yap
new file mode 100644
index 000000000..530ab1b6e
--- /dev/null
+++ b/pl/profile.yap
@@ -0,0 +1,61 @@
+/*************************************************************************
+*									 *
+*	 YAP Prolog 							 *
+*									 *
+*	Yap Prolog was developed at NCCUP - Universidade do Porto	 *
+*									 *
+* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997	 *
+*									 *
+**************************************************************************
+*									 *
+* File:		profile.yap						 *
+* Last rev:	8/2/88							 *
+* mods:									 *
+* comments:	Some profiling predicates available in yap		 *
+*									 *
+*************************************************************************/
+
+:- meta_predicate profile_data(:,+,-).
+
+profile_data(P, Parm, Data) :- P = M:D, !,
+	(
+	  var(M) ->
+	  throw(error(instantiation_error,profile_data(M:D, Parm, Data)))
+	;
+	  '$profile_data'(D, Parm, Data, M)
+	).
+profile_data(P, Parm, Data) :-
+	'$current_module'(M),
+	'$profile_data'(P, Parm, Data, M).
+
+'$profile_data'(P, Parm, Data,M) :- var(P), !,
+	'$profile_data_for_var'(P, Parm, Data,M).
+'$profile_data'(M:P, Parm, Data, _) :-  !,
+	'$profile_data'(P, Parm, Data, M).
+'$profile_data'(P, Parm, Data, M) :-
+	'$profile_data2'(P, Parm, Data, M).
+
+'$profile_data2'(Na/Ar,Parm,Data, M) :-
+	functor(P, Na, Ar),
+	'$profile_info'(M, P, Stats),
+	'$profile_say'(Stats, Parm, Data).
+
+'$profile_data_for_var'(Name/Arity, Parm, Data, M) :-
+	'$current_predicate'(M,Name,Arity),
+	functor(P,Name,Arity),
+	'$profile_info'(M, P, Stats),
+	'$profile_say'(Stats, Parm, Data).
+
+
+
+'$profile_say'('$profile'(Entries, _, _), calls, Entries).
+'$profile_say'('$profile'(_, _, Backtracks), retries, Backtracks).
+
+profile_reset :-
+	current_module(M),
+	'$current_predicate'(M,Na,Ar),
+	functor(P,Na,Ar),
+	'$profile_reset'(M, P),
+	fail.
+profile_reset.
+