A-M baby

Task/Classes/Logtalk/classes-1.logtalk

@@ -0,0 +1,20 @@
+:- object(metaclass,
+    instantiates(metaclass)).
+
+    :- public(new/2).
+    new(Instance, Value) :-
+        self(Class),
+        create_object(Instance, [instantiates(Class)], [], [state(Value)]).
+
+:- end_object.
+
+:- object(class,
+    instantiates(metaclass)).
+
+    :- public(method/1).
+    method(Value) :-
+        ::state(Value).
+
+    :- private(state/1).
+
+:- end_object.

Task/Classes/Logtalk/classes-2.logtalk

@@ -0,0 +1,7 @@
+| ?- class::new(Instance, 1).
+Instance = o1
+yes
+
+| ?- o1::method(Value).
+Value = 1
+yes