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

src/numeric/FloatIntegerOps.cpp

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