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

src/numeric/NumericDispatch.cpp

@@ -0,0 +1,59 @@
+/** @file NumericDispatch.cpp
+ *
+ *  @author Roland Conybeare, Feb 2026
+ **/
+
+#include "NumericDispatch.hpp"
+#include <xo/indentlog/scope.hpp>
+
+namespace xo {
+    using xo::mm::AGCObject;
+
+    namespace scm {
+
+        void
+        NumericDispatch::visit_pools(const MemorySizeVisitor & visitor)
+        {
+            dispatch_.visit_pools(visitor);
+        }
+
+        obj<AGCObject>
+        NumericDispatch::multiply(obj<ARuntimeContext> rcx,
+                                  obj<AGCObject> x,
+                                  obj<AGCObject> y)
+        {
+            KeyType key(x._typeseq(), y._typeseq());
+
+            auto target_fn
+                = NumericDispatch::instance().dispatch_[key].multiply_;
+
+            return (*target_fn)(rcx, x.data(), y.data());
+        }
+
+        obj<AGCObject>
+        NumericDispatch::divide(obj<ARuntimeContext> rcx,
+                                obj<AGCObject> x,
+                                obj<AGCObject> y)
+        {
+            scope log(XO_DEBUG(true));
+
+            KeyType key(x._typeseq(), y._typeseq());
+
+            log && log(xtag("x.tseq", x._typeseq().seqno()),
+                       xtag("y.tseq", y._typeseq().seqno()));
+
+            auto target_fn
+                = NumericDispatch::instance().dispatch_[key].divide_;
+
+            log && log(xtag("target_fn", target_fn));
+
+            assert(target_fn);
+
+            return (*target_fn)(rcx, x.data(), y.data());
+        }
+
+
+    } /*namespace scm*/
+} /*namespace xo*/
+
+/* end NumericDispatch.cpp **/