This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/Logtalk/library/after_event_registry.lgt
pmoura 6b4bde14e1 Logtalk 2.30.1 files.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1903 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-06-12 10:39:47 +00:00

32 lines
819 B
Plaintext

:- object(after_event_registry,
implements(event_registryp)).
:- info([
version is 1.0,
author is 'Paulo Moura',
date is 2000/7/24,
comment is 'After events registry predicates.']).
monitors(Monitors) :-
findall(Monitor, current_event(after, _, _, _, Monitor), List),
{sort(List, Monitors)}.
monitored(Objects) :-
findall(Object, current_event(after, Object, _, _, _), List),
{sort(List, Objects)}.
monitor(Object, Message, Sender, Monitor) :-
current_event(after, Object, Message, Sender, Monitor).
set_monitor(Object, Message, Sender, Monitor) :-
define_events(after, Object, Message, Sender, Monitor).
del_monitors(Object, Message, Sender, Monitor) :-
abolish_events(after, Object, Message, Sender, Monitor).
del_monitors :-
abolish_events(after, _, _, _, _).
:- end_object.