xo-reader: refactor: + expect_type_xs [wip]

src/reader/CMakeLists.txt

@@ -10,7 +10,8 @@ set(SELF_SRCS
     paren_xs.cpp
     exprseq_xs.cpp
     expect_expr_xs.cpp
-    expect_symbol_xs.cpp)
+    expect_symbol_xs.cpp
+    expect_type_xs.cpp)
 
 xo_add_shared_library4(${SELF_LIB} ${PROJECT_NAME}Targets ${PROJECT_VERSION} 1 ${SELF_SRCS})
 xo_dependency(${SELF_LIB} xo_expression)

src/reader/define_xs.cpp

@@ -2,6 +2,7 @@
 
 #include "define_xs.hpp"
 #include "expect_expr_xs.hpp"
+#include "expect_type_xs.hpp"
 
 namespace xo {
     namespace scm {
@@ -321,7 +322,7 @@ namespace xo {
             if (this->defxs_type_ == defexprstatetype::def_1) {
                 this->defxs_type_ = defexprstatetype::def_2;
 
-                p_stack->push_exprstate(exprstate::expect_type());
+                p_stack->push_exprstate(expect_type_xs::make());
             } else {
                 assert(false);
             }

src/reader/expect_type_xs.cpp

@@ -0,0 +1,24 @@
+/* file expect_type_xs.cpp
+ *
+ * author: Roland Conybeare
+ */
+
+#include "expect_type_xs.hpp"
+#include "exprstate.hpp"
+
+namespace xo {
+    namespace scm {
+        std::unique_ptr<expect_type_xs>
+        expect_type_xs::make() {
+            return std::make_unique<expect_type_xs>(expect_type_xs());
+        }
+
+        expect_type_xs::expect_type_xs()
+            : exprstate(exprstatetype::expect_type)
+        {}
+
+    } /*namespace scm*/
+} /*namespace xo*/
+
+
+/* end expect_type_xs.cpp */