xo-interpreter: + VSM work in progress

src/interpreter2/VsmFrame.cpp

@@ -0,0 +1,68 @@
+/** @file VsmFrame.cpp
+ *
+ *  @author Roland Conybeare, Feb 2026
+ **/
+
+#include "VsmFrame.hpp"
+
+namespace xo {
+    using xo::facet::typeseq;
+
+    namespace scm {
+
+        VsmApplyFrame::VsmApplyFrame(VsmFrame * old_parent,
+                                     VsmInstr old_cont,
+                                     DArray * args)
+        : VsmFrame(old_parent, old_cont),
+          args_{args}
+        {}            
+
+        VsmApplyFrame *
+        VsmApplyFrame::make(obj<AAllocator> mm,
+                            VsmFrame * old_parent,
+                            VsmInstr old_cont,
+                            DArray * args)
+        {
+            VsmApplyFrame * result = nullptr;
+
+            void * mem = mm.alloc(typeseq::id<VsmApplyFrame>(),
+                                  sizeof(VsmApplyFrame));
+
+            result = new (mem) VsmApplyFrame(old_parent,
+                                             old_cont,
+                                             args);
+
+            assert(result);
+
+            return result;
+        }
+
+        // ----- VsmEvalArgsFrame -----
+
+        VsmEvalArgsFrame::VsmEvalArgsFrame(VsmApplyFrame * old_parent,
+                                           VsmInstr old_cont)
+        : VsmFrame(old_parent, old_cont)
+        {}
+
+        VsmEvalArgsFrame *
+        VsmEvalArgsFrame::make(obj<AAllocator> mm,
+                               VsmApplyFrame * apply_frame,
+                               VsmInstr cont)
+        {
+            VsmEvalArgsFrame * result = nullptr;
+
+            void * mem = mm.alloc(typeseq::id<VsmEvalArgsFrame>(),
+                                  sizeof(VsmEvalArgsFrame));
+
+            result = new (mem) VsmEvalArgsFrame(apply_frame, cont);
+
+            assert(result);
+
+            return result;
+        }
+
+    } /*namespace scm*/
+} /*namespace xo*/
+
+/* end VsmFrame.cpp */
+