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

Logtalk 2.25.1 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1357 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2005-08-08 12:13:45 +00:00
parent ab97812ec7
commit 80c28e1507
219 changed files with 1380 additions and 1008 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Logtalk/examples/inheritance/interface.lgt
View File

@@ -1,22 +1,27 @@
/*
This category defines a predicate, interface/0, that prints an object
interface, i.e. predicate names and the corresponding scope properties.
We need to encapsulate the interface/0 predicate in a category instead
of just defining it in a root object in order to be able to list private
object predicates.
*/
:- 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),
(::predicate_property(Pred, Prop),
scope_property(Prop), % we are only interested on scope properties
writeq(Functor/Arity), write(' - '), writeq(Prop), nl)).
scope_property(public).
scope_property(protected).
scope_property(private).
:- end_category.