xo-procedure2 xo-object2: + polymorphic primitive support

src/object2/GCObjectConversion_DInteger.cpp

@@ -0,0 +1,41 @@
+/** @file GCObjectConversion_DInteger.cpp
+ *
+ *  @author Roland Conybeare, Jan 2026
+ **/
+
+#include "number/GCObjectConversion_DInteger.hpp"
+#include <xo/indentlog/print/tag.hpp>
+
+namespace xo {
+    using xo::mm::AGCObject;
+
+    namespace scm {
+
+        obj<AGCObject>
+        GCObjectConversion<long>::to_gco(obj<AAllocator> mm,
+                                           long x)
+        {
+            return DInteger::box<AGCObject>(mm, x);
+        }
+
+        long
+        GCObjectConversion<long>::from_gco(obj<AAllocator> mm,
+                                           obj<AGCObject> gco)
+        {
+            (void)mm;
+
+            auto int_obj = obj<AGCObject,DInteger>::from(gco);
+
+            if (!int_obj) {
+                throw std::runtime_error
+                    (tostr("Object obj found where Integer expected",
+                           xtag("obj", gco)));
+            }
+
+            return int_obj.data()->value();
+        }
+
+    } /*namespace scm*/
+} /*namespace xo*/
+
+/* end GCObjectConversion_DFloat.cpp */