xo-interpreter2: ifelse expressions working + utest

2026-02-14 11:15:38 -05:00 · 2026-02-14 11:15:38 -05:00 · e7e9d226dd
commit e7e9d226dd
parent 6ffe3a627d
18 changed files with 508 additions and 7 deletions
--- a/xo-interpreter2/src/interpreter2/DVsmIfElseContFrame.cpp
+++ b/xo-interpreter2/src/interpreter2/DVsmIfElseContFrame.cpp
@ -0,0 +1,66 @@
+/** @file DVsmIfElseContFrame.cpp
+ *
+ *  @author Roland Conybeare, Feb 2026
+ **/
+
+#include "DVsmIfElseContFrame.hpp"
+
+namespace xo {
+    namespace scm {
+
+        DVsmIfElseContFrame::DVsmIfElseContFrame(obj<AGCObject> parent,
+                                                 VsmInstr cont,
+                                                 DIfElseExpr * ifelse_expr)
+                : parent_{parent},
+                  cont_{cont},
+                  ifelse_expr_{ifelse_expr}
+        {}
+
+        DVsmIfElseContFrame *
+        DVsmIfElseContFrame::make(obj<AAllocator> mm,
+                                    obj<AGCObject> parent,
+                                    VsmInstr cont,
+                                  DIfElseExpr * seq_expr)
+        {
+            void * mem = mm.alloc_for<DVsmIfElseContFrame>();
+
+            return new (mem) DVsmIfElseContFrame(parent, cont, seq_expr);
+        }
+
+        // gcobject facet
+
+        std::size_t
+        DVsmIfElseContFrame::shallow_size() const noexcept
+        {
+            return sizeof(*this);
+        }
+
+        DVsmIfElseContFrame *
+        DVsmIfElseContFrame::shallow_copy(obj<AAllocator> mm) const noexcept
+        {
+            return mm.std_copy_for<DVsmIfElseContFrame>(this);
+        }
+
+        std::size_t
+        DVsmIfElseContFrame::forward_children(obj<ACollector> gc) noexcept
+        {
+            gc.forward_inplace(&parent_);
+            gc.forward_inplace(&ifelse_expr_);
+
+            return this->shallow_size();
+        }
+
+        // printable facet
+
+        bool
+        DVsmIfElseContFrame::pretty(const ppindentinfo & ppii) const noexcept
+        {
+            return ppii.pps()->pretty_struct(ppii,
+                                             "DVsmIfElseContFrame",
+                                             refrtag("cont", cont_));
+        }
+
+    } /*namespace scm*/
+} /*namespace xo*/
+
+/* end DVsmIfElseContFrame.cpp */