Data commit

Task/Add-a-variable-to-a-class-instance-at-runtime/Bracmat/add-a-variable-to-a-class-instance-at-runtime-1.bracmat

@@ -0,0 +1,26 @@
+( ( struktuur
+  = (aMember=) (aMethod=.!(its.aMember))
+  )
+& new$struktuur:?object
+& out$"Object as originally created:"
+& lst$object
+& A value:?(object..aMember)
+& !object:(=?originalMembersAndMethods)
+&     new
+    $ (
+      ' ( (anotherMember=)
+          (anotherMethod=.!(its.anotherMember))
+          ()$originalMembersAndMethods
+        )
+      )
+  : ?object
+&   out
+  $ "
+Object with additional member and method and with 'aMember' already set to some interesting value:"
+& lst$object
+& some other value:?(object..anotherMember)
+& out$"
+Call both methods and output their return values."
+& out$("aMember contains:" (object..aMethod)$)
+& out$("anotherMember contains:" (object..anotherMethod)$)
+&);

Task/Add-a-variable-to-a-class-instance-at-runtime/Bracmat/add-a-variable-to-a-class-instance-at-runtime-2.bracmat

@@ -0,0 +1,15 @@
+Object as originally created:
+(object=
+=(aMember=) (aMethod=.!(its.aMember)));
+
+Object with additional member and method and with 'aMember' already set to some interesting value:
+(object=
+
+=   (anotherMember=)
+    (anotherMethod=.!(its.anotherMember))
+    (aMember=A value)
+    (aMethod=.!(its.aMember)));
+
+Call both methods and output their return values.
+aMember contains: A value
+anotherMember contains: some other value