root/tags/lgt293/library/before_event_registry.lgt

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


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


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


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


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


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


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


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

:- end_object.