xo-reader2 xo-expresion2: work on define-expressions [WIP]

xo-expression2/src/expression2/DVariable.cpp

@@ -7,12 +7,34 @@
 #include "exprtype.hpp"
 
 namespace xo {
+    using xo::facet::typeseq;
+
     namespace scm {
+
+        DVariable *
+        DVariable::make(obj<AAllocator> mm,
+                        const DUniqueString * name,
+                        const TypeRef & typeref,
+                        Binding path)
+        {
+            void * mem = mm.alloc(typeseq::id<DVariable>(),
+                                  sizeof(DVariable));
+
+            return new (mem) DVariable(name, typeref, path);
+        }
+
+        DVariable::DVariable(const DUniqueString * name,
+                             const TypeRef & typeref,
+                             Binding path)
+          : name_{name}, typeref_{typeref}, path_{path}
+        {}
+
         void
         DVariable::assign_valuetype(TypeDescr td) noexcept
         {
             typeref_.resolve(td);
         }
+
     } /*namespace scm*/
 } /*namespace xo*/