diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

new meta-call scheme.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@751 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2003-01-29 14:47:17 +00:00
parent 0b17ff4174
commit 1369dfa410
24 changed files with 588 additions and 683 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
pl/debug.yap
View File

@@ -269,12 +269,6 @@ debugging :-
/* called from prolog module */
'$execute0'(G,Module),
'$creep'.
'$spy'([Module|G]) :-
% '$format'(user_error,"$spym(~w,~w)~n",[Module,G]),
'$is_push_pred_mod'(G,Module),
!,
'$creep',
'$execute0'(G,Module).
'$spy'([Mod|G]) :-
'$do_spy'(G,Mod).
@@ -300,17 +294,44 @@ debugging :-
'$execute0'(G,M),
'$creep'
).
'$direct_spy'([M|G]) :-
'$is_push_pred_mod'(G,M),
!,
'$creep',
'$execute0'(G,M).
'$direct_spy'([Mod|G]) :-
'$do_spy'(G, Mod).
'$do_spy'(true, _) :- !, '$creep'.
'$do_spy'('$cut_by'(M), _) :- !, '$cut_by'(M).
'$do_spy'((A,B),M) :- !,
'$save_current_choice_point'(CP),
'$do_spy'(A,M),
'$call'(B,CP,(A,B),M).
'$do_spy'((T->A;B),M) :- !,
'$save_current_choice_point'(CP),
( '$do_spy'(T,M) -> '$call'(A,CP,(T->A;B),M)
;
'$call'(B,CP,(T->A;B),M)
).
'$do_spy'((A;B),M) :- !,
'$save_current_choice_point'(CP),
( '$do_spy'(A,M)
;
'$call'(B,CP,(A;B),M)
).
'$do_spy'((T->A|B),M) :- !,
'$save_current_choice_point'(CP),
( '$do_spy'(T,M) -> '$call'(A,CP,(T->A|B),M)
;
'$call'(B,CP,(T->A|B),M)
).
'$do_spy'((A|B),M) :- !,
'$save_current_choice_point'(CP),
( '$do_spy'(A,M)
;
'$call'(B,CP,(A|B),M)
).
'$do_spy'((\+G),M) :- !,
\+ '$do_spy'(G,M).
'$do_spy'((not(G)),M) :- !,
\+ '$do_spy'(G,M).
'$do_spy'(G, Module) :-
% write(user_error,$spy(G)), nl,
'$get_value'(debug,1), /* ditto if debug off */
@@ -748,16 +769,12 @@ debugging :-
'$execute'(M:Goal).
'$creep'([M|V]) :- var(V), !,
'$do_error'(instantiation_error,M:call(M:V)).
'$creep'([_|M:V]) :- !,
'$creep'([M|V]).
'$creep'([M|'$execute_in_mod'(G,ModNum)]) :- !,
'$module_number'(Mod,ModNum),
'$clean_module_for_creep'(G,Mod,TrueMod,TrueG),
'$creep'([TrueMod|TrueG]).
'$creep'([M|'$execute_within'(G)]) :- !,
'$clean_module_for_creep'(G,M,TrueMod,TrueG),
'$creep'([TrueMod|TrueG]).
'$creep'([M|'$last_execute_within'(G)]) :- !,
'$clean_module_for_creep'(G,M,TrueMod,TrueG),
'$creep'([TrueMod|TrueG]).
'$creep'(G) :- '$direct_spy'(G).
'$clean_module_for_creep'(M:G,_,TrueMod,TrueG) :- !,