80c28e1507
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1357 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
28 lines
636 B
Plaintext
28 lines
636 B
Plaintext
/*
|
|
This category defines a set of predicates, which are imported by the
|
|
roots of both the class-based and the prototype-based hierarchies of
|
|
this example
|
|
*/
|
|
|
|
:- category(predicates).
|
|
|
|
:- public(public/0).
|
|
:- mode(public, one).
|
|
|
|
:- protected(protected/0).
|
|
:- mode(protected, one).
|
|
|
|
:- private(private/0).
|
|
:- mode(private, one).
|
|
|
|
public :-
|
|
write('Public predicate declared and defined in category "predicates".'), nl.
|
|
|
|
protected :-
|
|
write('Protected predicate declared and defined in category "predicates".'), nl.
|
|
|
|
private :-
|
|
write('Private predicate declared and defined in category "predicates".'), nl.
|
|
|
|
:- end_category.
|