49 lines
843 B
Plaintext
49 lines
843 B
Plaintext
|
|
||
|
|
:- object(proto,
|
||
|
|
implements(protop, event_handlersp),
|
||
|
|
imports(initialization, proto_hierarchy)).
|
||
|
|
|
||
|
|
|
||
|
|
:- info([
|
||
|
|
version is 1.0,
|
||
|
|
date is 2000/7/24,
|
||
|
|
authors is 'Paulo Moura',
|
||
|
|
comment is 'Minimal predicates for all prototypes. Default root of the extension graph.']).
|
||
|
|
|
||
|
|
|
||
|
|
:- uses(event_registry).
|
||
|
|
|
||
|
|
|
||
|
|
clone(Clone) :-
|
||
|
|
self(Self),
|
||
|
|
sender(Sender),
|
||
|
|
throw(error(descendant_responsability, Self::clone(Clone), Sender)).
|
||
|
|
|
||
|
|
|
||
|
|
default_free_option(del_monitors).
|
||
|
|
|
||
|
|
|
||
|
|
process_free_option(del_monitors) :-
|
||
|
|
self(Self),
|
||
|
|
event_registry::del_monitors(Self, _, _, _),
|
||
|
|
event_registry::del_monitors(_, _, Self, _),
|
||
|
|
event_registry::del_monitors(_, _, _, Self).
|
||
|
|
|
||
|
|
|
||
|
|
print :-
|
||
|
|
self(Self),
|
||
|
|
writeq(Self), nl, nl,
|
||
|
|
forall(
|
||
|
|
::current_predicate(Predicate),
|
||
|
|
(writeq(Predicate), nl)),
|
||
|
|
nl.
|
||
|
|
|
||
|
|
|
||
|
|
before(_, _, _).
|
||
|
|
|
||
|
|
|
||
|
|
after(_, _, _).
|
||
|
|
|
||
|
|
|
||
|
|
:- end_object.
|