11c074d241
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@278 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
23 lines
401 B
Plaintext
23 lines
401 B
Plaintext
|
|
:- category(interface).
|
|
|
|
|
|
:- public(interface/0).
|
|
:- mode(interface, one).
|
|
|
|
|
|
interface :-
|
|
forall(
|
|
(::current_predicate(Functor/Arity),
|
|
functor(Pred, Functor, Arity)),
|
|
(::predicate_property(Pred, Prop), scope_property(Prop),
|
|
writeq(Functor/Arity), write(' - '), writeq(Prop), nl)).
|
|
|
|
|
|
scope_property(public).
|
|
scope_property(protected).
|
|
scope_property(private).
|
|
|
|
|
|
:- end_category.
|