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

Logtalk 2.22.5 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1244 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2005-02-10 00:02:06 +00:00
parent 5d09011015
commit 755c60a7ca
179 changed files with 1485 additions and 1197 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Logtalk/examples/relations/constrained_relation.lgt
View File

@@ -5,8 +5,8 @@
:- info([
version is 3.1,
date is 2004/8/15,
version is 3.2,
date is 2005/1/29,
author is 'Paulo Moura',
comment is 'Enables the representation of relations with constraints on the state of participating objects.']).
@@ -69,9 +69,9 @@
set_monitors([], []).
set_monitors([Object| Objects], [Role| Roles]) :-
::activ_points(Role, before, Messages1),
once(::activ_points(Role, before, Messages1)), % avoid spurious backtracking
set_object_before_monitors(Messages1, Object),
::activ_points(Role, after, Messages2),
once(::activ_points(Role, after, Messages2)), % avoid spurious backtracking
set_object_after_monitors(Messages2, Object),
set_monitors(Objects, Roles).