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/examples/roots/proto.lgt

49 lines
842 B
Plaintext
Raw Normal View History

:- object(proto,
implements(protop, event_handlersp),
imports(initialization, proto_hierarchy)).
:- info([
version is 1.0,
date is 2000/7/24,
author 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.