aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Call-an-object-method/Logtalk/call-an-object-method-1.logtalk Normal file
View file

@ -0,0 +1,10 @@
% avoid infinite metaclass regression by
% making the metaclass an instance of itself
:- object(metaclass,
instantiates(metaclass)).
:- public(me/1).
me(Me) :-
self(Me).
:- end_object.

9
Task/Call-an-object-method/Logtalk/call-an-object-method-2.logtalk Normal file
View file

@ -0,0 +1,9 @@
:- object(class,
instantiates(metaclass)).
:- public(my_class/1).
my_class(Class) :-
self(Self),
instantiates_class(Self, Class).
:- end_object.

4
Task/Call-an-object-method/Logtalk/call-an-object-method-3.logtalk Normal file
View file

@ -0,0 +1,4 @@
:- object(instance,
instantiates(class)).
:- end_object.

7
Task/Call-an-object-method/Logtalk/call-an-object-method-4.logtalk Normal file
View file

@ -0,0 +1,7 @@
| ?- class::me(Me).
Me = class
yes
| ?- instance::my_class(Class).
Class = class
yes