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

34 lines
521 B
Plaintext
Raw Normal View History

:- object(object,
instantiates(class)).
:- info([
authors is 'Paulo Moura',
version is 1.0,
date is 2000/4/22,
comment is 'Inheritance root for all objects.']).
:- public(strict_instance/0).
:- mode(strict_instance, zero_or_one).
:- public(print/0).
:- mode(print, one).
strict_instance.
print :-
self(Self),
write('Object: '), writeq(Self), nl, nl,
write(' interface:'), nl,
forall(
::current_predicate(Predicate),
(write(' '), writeq(Predicate), nl)),
nl.
:- end_object.