xo-reader2 stack: + xo-numeric + setup multi dispatch for *,/

src/numeric/FloatOps.cpp

@@ -0,0 +1,31 @@
+/** @file FloatOps.cp
+ *
+ *  @author Roland Conybeare, Feb 2206
+ **/
+
+#include "FloatOps.hpp"
+#include "float/INumeric_DFloat.hpp"
+
+namespace xo {
+    using xo::mm::AGCObject;
+
+    namespace scm {
+
+        obj<AGCObject>
+        FloatOps::multiply(obj<ARuntimeContext> rcx,
+                           DFloat * x, DFloat * y)
+        {
+            return DFloat::box<AGCObject>(rcx.allocator(), x->value() * y->value());
+        }
+
+        obj<AGCObject>
+        FloatOps::divide(obj<ARuntimeContext> rcx,
+                           DFloat * x, DFloat * y)
+        {
+            return DFloat::box<AGCObject>(rcx.allocator(), x->value() / y->value());
+        }
+
+    }
+}
+
+/* end FloatOps.cpp */