git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@211 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
		
			
				
	
	
		
			33 lines
		
	
	
		
			566 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			33 lines
		
	
	
		
			566 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
=================================================================
 | 
						|
Logtalk - Object oriented extension to Prolog
 | 
						|
Release 2.9.1
 | 
						|
 | 
						|
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
 |