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

spy_call

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-08-16 09:47:10 -05:00
parent 93068241d3
commit 3eeaac8d05
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
pl/debug.yap
View File

@ -276,6 +276,36 @@ be lost.
'$debugger_input', '$debugger_input',
'$do_spy'(G, Mod, CP, spy). '$do_spy'(G, Mod, CP, spy).
'$spy'([Mod|G], A1) :-
G =.. L,
lists:append( L, [A1], NL),
NG =.. NL,
'$spy'([Mod|NG]).
'$spy'([Mod|G], A1, A2) :-
G =.. L,
lists:append( L, [A1, A2], NL),
NG =.. NL,
'$spy'([Mod|NG]).
'$spy'([Mod|G], A1, A2, A3) :-
G =.. L,
lists:append( L, [A1, A2, A3], NL),
NG =.. NL,
'$spy'([Mod|NG]).
'$spy'([Mod|G], A1, A2, A3, A4) :-
G =.. L,
lists:append( L, [A1, A2, A3, A4], NL),
NG =.. NL,
'$spy'([Mod|NG]).
'$spy'([Mod|G], A1, A2, A3, A4, A5) :-
G =.. L,
lists:append( L, [A1, A2, A3, A4, A5], NL),
NG =.. NL,
'$spy'([Mod|NG]).
/** /**
* @pred debugger_input. * @pred debugger_input.
* name of stream used for debugging, * name of stream used for debugging,