xo-interpreter2 stack: refactor: do report_memory_use() modular

2026-03-15 12:10:21 -05:00 · 2026-03-15 12:10:21 -05:00 · 1f596e6172
commit 1f596e6172
parent be680fcc55
7 changed files with 180 additions and 41 deletions
--- a/src/interpreter2/interpreter2_register_primitives.cpp
+++ b/src/interpreter2/interpreter2_register_primitives.cpp
@ -0,0 +1,75 @@
+/** @file interpreter2_register_primitives.cpp
+ *
+ *  @author Roland Conybeare, Mar 2026
+ **/
+
+#include "interpreter2_register_primitives.hpp"
+#include "VsmPrimitives.hpp"
+
+namespace xo {
+    using xo::mm::AAllocator;
+
+    namespace scm {
+        /** TODO: MOVE THESE install_aux() remplates SOMEWHERE COMMON **/
+
+        template <typename PrimitiveRepr>
+        bool install_aux(InstallSink sink,
+                         PrimitiveRepr * pm,
+                         InstallFlags flags)
+        {
+            scope log(XO_DEBUG(true));
+
+            if ((flags & InstallFlags::f_generalpurpose) == InstallFlags::f_generalpurpose) {
+                log && log("create primitive", xtag("name", pm->name()));
+
+                return sink(pm->name(),
+                            pm->fn_td(),
+                            obj<AProcedure,PrimitiveRepr>(pm),
+                            flags);
+            } else {
+                log && log("skip primitive", xtag("name", pm->name()));
+
+                return true;
+            }
+        }
+
+        template <typename Primitive>
+        bool install_aux(InstallSink sink,
+                         obj<AAllocator> mm,
+                         std::string_view name,
+                         typename Primitive::FunctionPtrType impl,
+                         InstallFlags flags)
+        {
+            if (flags != InstallFlags::f_none) {
+                auto pm
+                    = Primitive::_make(mm, name, impl);
+
+                return install_aux(sink, pm, flags);
+            } else {
+                return true;
+            }
+        }
+
+        bool
+        interpreter2_register_primitives(obj<xo::mm::AAllocator> mm,
+                                         InstallSink sink,
+                                         InstallFlags flags)
+        {
+            (void)mm;
+            (void)sink;
+            (void)flags;
+
+            scope log(XO_DEBUG(true));
+
+            bool ok = true;
+
+            ok = ok & install_aux(sink, VsmPrimitives::make_report_memory_use_pm(mm), flags);
+
+            return ok;
+        }
+
+
+    } /*namespace scm*/
+} /*namespace xo*/
+
+/* end interpreter2_register_primitives.cpp **/