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

separated from debug.yap

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-10-05 10:38:20 +01:00
parent c1b977b901
commit 5ed065f92d
1 changed files with 3 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
pl/spy.yap
View File

@ -1,20 +1,3 @@
/*************************************************************************
* *
* YAP Prolog *
* *
* Yap Prolog was developed at NCCUP - Universidade do Porto *
* *
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 *
* *
**************************************************************************
* *
* File: spy.pl *
* Last rev: *
* mods: *
* comments: YAP debugger: managing tracing and spy-points *
* *
*************************************************************************/
:- system_module( '$_debug', [debug/0, :- system_module( '$_debug', [debug/0,
debugging/0, debugging/0,
leash/1, leash/1,
@ -23,9 +6,8 @@
nospyall/0, nospyall/0,
notrace/0, notrace/0,
(spy)/1, (spy)/1,
trace/0], ['$do_spy'/4, trace/0], [
'$init_debugger'/0, '$init_debugger'/0]).
'$skipeol'/1]).
:- use_system_module( '$_boot', ['$find_goal_definition'/4, :- use_system_module( '$_boot', ['$find_goal_definition'/4,
'$system_catch'/4]). '$system_catch'/4]).
@ -89,7 +71,7 @@ mode and the existing spy-points, when the debugger is on.
'__NB_setval__'('$debug_jump',false). '__NB_setval__'('$debug_jump',false).
% setting and reseting spy points % First part : setting and reseting spy points
% $suspy does most of the work % $suspy does most of the work
'$suspy'(V,S,M) :- var(V) , !, '$suspy'(V,S,M) :- var(V) , !,