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/object.lgt

51 lines
782 B
Plaintext
Raw Normal View History

:- object(object,
implements(objectp, event_handlersp),
imports(initialization, class_hierarchy),
instantiates(class)).
:- info([
version is 1.0,
date is 2000/7/24,
authors is 'Paulo Moura',
comment is 'Minimal predicates for all objects. Default root of the inheritance graph.']).
:- uses(event_registry).
strict_instance.
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).
nil :-
fail.
print :-
self(Self),
writeq(Self), nl, nl,
forall(
::current_predicate(Predicate),
(writeq(Predicate), nl)),
nl.
before(_, _, _).
after(_, _, _).
:- end_object.