xo-interpreter2 stack: work on variable references [WIP]

src/interpreter2/CMakeLists.txt

@@ -16,6 +16,8 @@ set(SELF_SRCS
     IGCObject_DVsmApplyFrame.cpp
     IPrintable_DVsmApplyFrame.cpp
 
+    IProcedure_DClosure.cpp
+
     VsmInstr.cpp
 
     DClosure.cpp

src/interpreter2/DClosure.cpp

@@ -6,6 +6,8 @@
 #include "DClosure.hpp"
 
 namespace xo {
+    using xo::mm::AGCObject;
+
     namespace scm {
 
         DClosure::DClosure(const DLambdaExpr * lm,
@@ -23,6 +25,16 @@ namespace xo {
             return new (mem) DClosure(lm, env);
         }
 
+        obj<AGCObject>
+        DClosure::apply_nocheck(obj<ARuntimeContext> rcx,
+                                const DArray * args)
+        {
+            (void)rcx;
+            (void)args;
+
+            assert(false);
+        }
+
     } /*namespace scm*/
 } /*namespace xo*/
 

src/interpreter2/IProcedure_DClosure.cpp

@@ -0,0 +1,39 @@
+/** @file IProcedure_DClosure.cpp
+ *
+ *  Generated automagically from ingredients:
+ *  1. code generator:
+ *       [xo-facet/codegen/genfacet]
+ *     arguments:
+ *       --input [idl/IProcedure_DClosure.json5]
+ *  2. jinja2 template for abstract facet .hpp file:
+ *       [iface_facet_any.hpp.j2]
+ *  3. idl for facet methods
+ *       [idl/IProcedure_DClosure.json5]
+**/
+
+#include "detail/IProcedure_DClosure.hpp"
+
+namespace xo {
+    namespace scm {
+        auto
+        IProcedure_DClosure::is_nary(const DClosure & self) noexcept -> bool
+        {
+            return self.is_nary();
+        }
+
+        auto
+        IProcedure_DClosure::n_args(const DClosure & self) noexcept -> std::int32_t
+        {
+            return self.n_args();
+        }
+
+        auto
+        IProcedure_DClosure::apply_nocheck(DClosure & self, obj<ARuntimeContext> rcx, const DArray * args) -> obj<AGCObject>
+        {
+            return self.apply_nocheck(rcx, args);
+        }
+
+    } /*namespace scm*/
+} /*namespace xo*/
+
+/* end IProcedure_DClosure.cpp */

src/interpreter2/interpreter2_register_facets.cpp

@@ -8,6 +8,8 @@
 #include "VsmApplyFrame.hpp"
 #include "VsmEvalArgsFrame.hpp"
 
+#include "Closure.hpp"
+
 #include <xo/printable2/detail/APrintable.hpp>
 #include <xo/facet/FacetRegistry.hpp>
 #include <xo/reflectutil/typeseq.hpp>
@@ -36,8 +38,15 @@ namespace xo {
             FacetRegistry::register_impl<AGCObject, DVsmEvalArgsFrame>();
             FacetRegistry::register_impl<APrintable, DVsmEvalArgsFrame>();
 
+            // Procedure
+            // +- Primitive_gco_2_gco_gco
+            // \- Closure
+
+            FacetRegistry::register_impl<AProcedure, DClosure>();
+
             log && log(xtag("DVsmApplyFrame.tseq", typeseq::id<DVsmApplyFrame>()));
             log && log(xtag("DVsmEvalArgsFrame.tseq", typeseq::id<DVsmEvalArgsFrame>()));
+            log && log(xtag("DClosure.tseq", typeseq::id<DClosure>()));
 
             return true;
         }