Logtalk 2.26.2 files.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1487 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
21
Logtalk/examples/dynpred/classes.lgt
Normal file
21
Logtalk/examples/dynpred/classes.lgt
Normal file
@@ -0,0 +1,21 @@
|
||||
|
||||
:- object(metaclass, % avoid infinite metaclass regression by
|
||||
instantiates(metaclass)). % making the class its own metaclass
|
||||
|
||||
:- end_object.
|
||||
|
||||
|
||||
:- object(class,
|
||||
instantiates(metaclass)).
|
||||
|
||||
:- public(p1/1).
|
||||
|
||||
p1(class).
|
||||
|
||||
:- end_object.
|
||||
|
||||
|
||||
:- object(instance,
|
||||
instantiates(class)).
|
||||
|
||||
:- end_object.
|
15
Logtalk/examples/dynpred/protos.lgt
Normal file
15
Logtalk/examples/dynpred/protos.lgt
Normal file
@@ -0,0 +1,15 @@
|
||||
|
||||
:- object(root).
|
||||
|
||||
:- public(p/1).
|
||||
:- dynamic(p/1).
|
||||
|
||||
p(root).
|
||||
|
||||
:- end_object.
|
||||
|
||||
|
||||
:- object(descendant,
|
||||
extends(root)).
|
||||
|
||||
:- end_object.
|
Reference in New Issue
Block a user