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

Logtalk 2.27.1 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1580 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2006-03-26 17:31:34 +00:00
parent fded381282
commit 75b2645e3f
205 changed files with 2896 additions and 2171 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
Logtalk/library/class_hierarchy.lgt
View File

@@ -4,9 +4,9 @@
:- info([
version is 1.0,
version is 1.1,
author is 'Paulo Moura',
date is 2000/7/24,
date is 2006/2/20,
comment is 'Class hierarchy predicates.']).
@@ -96,7 +96,10 @@
leaves(Leaves) :-
self(Self),
findall(Leaf, leaf(Self, Leaf), Leaves).
( setof(Leaf, leaf(Self, Leaf), Leaves) ->
true
; Leaves = []
).
leaf_instance(Leaf) :-
@@ -115,7 +118,10 @@
leaf_instances(Leaves) :-
self(Self),
findall(Leaf, leaf_instance(Self, Leaf), Leaves).
( setof(Leaf, leaf_instance(Self, Leaf), Leaves) ->
true
; Leaves = []
).
leaf_class(Leaf) :-
@@ -132,7 +138,10 @@
leaf_classes(Leaves) :-
self(Self),
findall(Leaf, leaf_class(Self, Leaf), Leaves).
( setof(Leaf, leaf_class(Self, Leaf), Leaves) ->
true
; Leaves = []
).
descendant(Descendant) :-
@@ -154,7 +163,10 @@
descendants(Descendants) :-
self(Self),
findall(Descendant, descendant(Self, Descendant), Descendants).
( setof(Descendant, descendant(Self, Descendant), Descendants) ->
true
; Descendants = []
).
descendant_class(Descendant) :-
@@ -172,7 +184,10 @@
descendant_classes(Descendants) :-
self(Self),
findall(Descendant, descendant_class(Self, Descendant), Descendants).
( setof(Descendant, descendant_class(Self, Descendant), Descendants) ->
true
; Descendants = []
).
descendant_instance(Descendant) :-
@@ -190,7 +205,10 @@
descendant_instances(Descendants) :-
self(Self),
findall(Descendant, descendant_instance(Self, Descendant), Descendants).
( setof(Descendant, descendant_instance(Self, Descendant), Descendants) ->
true
; Descendants = []
).
:- end_category.