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

Logtalk 2.17.1 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1071 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2004-06-06 22:46:45 +00:00
parent 0101c09236
commit b25690af56
158 changed files with 4565 additions and 476 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Logtalk/examples/relations/NOTES
View File

@@ -1,6 +1,6 @@
=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.17.0
Release 2.17.1
Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
=================================================================

2
Logtalk/examples/relations/SCRIPT
View File

@@ -1,6 +1,6 @@
=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.17.0
Release 2.17.1
Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
=================================================================

28
Logtalk/examples/relations/relation.lgt
View File

@@ -6,8 +6,8 @@
:- info([
version is 1.0,
date is 2000/7/24,
version is 1.1,
date is 2004/5/9,
author is 'Esteban Zimanyi, Paulo Moura',
comment is 'Enables the representation of relations between independent objects.']).
@@ -49,8 +49,8 @@
add_tuple(Tuple) :-
::descriptor(Descriptor),
list::nth(Position, Tuple, Object),
list::nth(Position, Descriptor, Role),
list::nth1(Position, Tuple, Object),
list::nth1(Position, Descriptor, Role),
::cardinality(Role, _, Maximum),
::plays_role_n_times(Object, Role, Number),
Maximum = Number,
@@ -60,8 +60,8 @@
add_tuple(Tuple) :-
::descriptor(Descriptor),
list::nth(Position, Tuple, Object),
list::nth(Position, Descriptor, Role),
list::nth1(Position, Tuple, Object),
list::nth1(Position, Descriptor, Role),
::domain(Role, Domain),
(Domain::strict_instance ->
\+ Domain::valid(Object)
@@ -94,8 +94,8 @@
remove_tuple(Tuple) :-
::descriptor(Descriptor),
list::nth(Position, Tuple, Object),
list::nth(Position, Descriptor, Role),
list::nth1(Position, Tuple, Object),
list::nth1(Position, Descriptor, Role),
::cardinality(Role, Minimum, _),
::plays_role_n_times(Object, Role, Number),
Minimum = Number,
@@ -123,24 +123,24 @@
setof(Role,
Tuple^Position^ (::tuple(Tuple),
list::member(Object, Tuple),
list::nth(Position, Tuple, Object),
once(list::nth(Position, Descriptor, Role))),
list::nth1(Position, Tuple, Object),
once(list::nth1(Position, Descriptor, Role))),
Roles).
plays_role_in_tuple(Object, Role, Tuple) :-
::descriptor(Descriptor),
::tuple(Tuple),
list::nth(Position, Tuple, Object),
list::nth(Position, Descriptor, Role).
list::nth1(Position, Tuple, Object),
list::nth1(Position, Descriptor, Role).
plays_role_n_times(Object, Role, Number) :-
::descriptor(Descriptor),
list::nth(Position, Descriptor, Role),
list::nth1(Position, Descriptor, Role),
setof(Tuple,
(::tuple(Tuple),
list::nth(Position, Tuple, Object)),
list::nth1(Position, Tuple, Object)),
Tuples),
list::length(Tuples, Number).