root/tags/lgt2310/library/event_registry.lgt

:- object(event_registry,
    implements(event_registryp)).

    :- info([
        version is 1.0,
        author is 'Paulo Moura',
        date is 2000/7/24,
        comment is 'Before and after events registry predicates.']).

    monitors(Monitors) :-
        findall(
            Monitor,
            (current_event(before, _, _, _, Monitor),
             current_event(after, _, _, _, Monitor)),
            List),
        {sort(List, Monitors)}.

    monitored(Objects) :-
        findall(
            Object,
            (current_event(before, Object, _, _, _),
             current_event(after, Object, _, _, _)),
            List),
        {sort(List, Objects)}.

    monitor(Object, Message, Sender, Monitor) :-
        current_event(before, Object, Message, Sender, Monitor),
        current_event(after, Object, Message, Sender, Monitor).

    set_monitor(Object, Message, Sender, Monitor) :-
        define_events(before, Object, Message, Sender, Monitor),
        define_events(after, Object, Message, Sender, Monitor).

    del_monitors(Object, Message, Sender, Monitor) :-
        abolish_events(before, Object, Message, Sender, Monitor),
        abolish_events(after, Object, Message, Sender, Monitor).

    del_monitors :-
        abolish_events(before, _, _, _, _),
        abolish_events(after, _, _, _, _).

:- end_object.