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

fix listing/0 to avoid going into every system predicate.

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-10-03 08:49:14 +01:00
parent d2527528fa
commit dddc9fbb85
1 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
pl/listing.yap
View File

@ -40,10 +40,16 @@ clauses for static predicates compiled when source mode was `on`).
*/ */
listing :- listing :-
current_output(Stream), current_output(Stream),
'$current_module'(Mod), '$current_module'(Mod),
'$current_predicate_no_modules'(Mod,_,Pred), Mod \= prolog,
'$list_clauses'(Stream,Mod,Pred). Mod \= system,
\+ '$hidden'( Mod ),
'$current_predicate_no_modules'(Mod,_,Pred),
'$undefined'(Pred, prolog), % skip predicates exported from prolog.
functor(Pred,Name,Arity),
'$listing'(Name/Arity,Mod,Stream),
fail.
listing. listing.
/** @pred listing(+ _P_) /** @pred listing(+ _P_)
@ -57,7 +63,8 @@ listing(MV) :-
listing(Stream, MV). listing(Stream, MV).
listing(Stream, MV) :- listing(Stream, MV) :-
'$mlisting'(Stream, MV, _). strip_module( MV, M, I),
'$mlisting'(Stream, I, M).
listing(Stream, []) :- !. listing(Stream, []) :- !.
listing(Stream, [MV|MVs]) :- !, listing(Stream, [MV|MVs]) :- !,
listing(Stream, MV), listing(Stream, MV),
@ -98,9 +105,13 @@ listing(Stream, [MV|MVs]) :- !,
'$list_clauses'(Stream, M, Pred) :- '$list_clauses'(Stream, M, Pred) :-
'$flags'(Pred,M,Flags,Flags), '$flags'(Pred,M,Flags,Flags),
Flags /\ 0x48602000 =\= 0, (Flags /\ 0x48602000 =\= 0
nl(Stream), ->
fail. nl(Stream),
fail
;
!
).
'$list_clauses'(Stream, M, Pred) :- '$list_clauses'(Stream, M, Pred) :-
( '$is_dynamic'(Pred, M) -> true ; '$is_log_updatable'(Pred, M) ), ( '$is_dynamic'(Pred, M) -> true ; '$is_log_updatable'(Pred, M) ),
functor( Pred, N, Ar ), functor( Pred, N, Ar ),