Include Paulo Moura's Logtalk OO LP system
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@53 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
32
Logtalk/examples/roots/SCRIPT
Normal file
32
Logtalk/examples/roots/SCRIPT
Normal file
@@ -0,0 +1,32 @@
|
||||
=================================================================
|
||||
Logtalk - Object oriented extension to Prolog
|
||||
Release 2.8.4
|
||||
|
||||
Copyright (c) 1998-2001 Paulo Moura. All Rights Reserved.
|
||||
=================================================================
|
||||
|
||||
|
||||
% some queries dealing with instance/class hierarchies:
|
||||
|
||||
|
||||
| ?- object::ancestors(Ancestors).
|
||||
|
||||
Ancestors = [class, abstract_class, object]
|
||||
|
||||
Yes
|
||||
|
||||
|
||||
| ?- class::instances(Instances).
|
||||
|
||||
Instances = [object, abstract_class, class]
|
||||
|
||||
Yes
|
||||
|
||||
|
||||
| ?- class::superclass(Super).
|
||||
|
||||
Super = abstract_class ;
|
||||
|
||||
Super = object ;
|
||||
|
||||
No
|
Reference in New Issue
Block a user