Add 'xo-reader/' from commit 'c46c0f1cc4'

git-subtree-dir: xo-reader
git-subtree-mainline: dacdeb2cd7
git-subtree-split: c46c0f1cc4

xo-reader/src/reader/envframestack.cpp

@@ -0,0 +1,86 @@
+/* file envframestack.cpp
+ *
+ * author: Roland Conybeare
+ */
+
+#include "envframestack.hpp"
+
+namespace xo {
+    using xo::ast::Variable;
+
+    namespace scm {
+        envframe &
+        envframestack::top_envframe() {
+            std::size_t z = stack_.size();
+
+            if (z == 0) {
+                throw std::runtime_error
+                    ("parser::top_exprstate: unexpected empty stack");
+            }
+
+            return stack_[z-1];
+        }
+
+        void
+        envframestack::push_envframe(envframe frame) {
+            constexpr bool c_debug_flag = true;
+            scope log(XO_DEBUG(c_debug_flag),
+                      xtag("frame", frame));
+
+            std::size_t z = stack_.size();
+
+            stack_.resize(z+1);
+
+            stack_[z] = std::move(frame);
+        }
+
+        void
+        envframestack::pop_envframe() {
+            constexpr bool c_debug_flag = true;
+            scope log(XO_DEBUG(c_debug_flag));
+
+            std::size_t z = stack_.size();
+
+            if (z > 0) {
+                //std::unique_ptr<exprstate> top = std::move(stack_[z-1]);
+
+                stack_.resize(z-1);
+
+                //return top;
+            } else {
+                //return nullptr;
+            }
+        }
+
+        rp<Variable>
+        envframestack::lookup(const std::string & x) const {
+            for (std::size_t i = 0, z = this->size(); i < z; ++i) {
+                const auto & frame = (*this)[i];
+
+                auto retval = frame.lookup(x);
+
+                if (retval)
+                    return retval;
+            }
+
+            return nullptr;
+        }
+
+        void
+        envframestack::print(std::ostream & os) const {
+            os << "<envframestack"
+               << xtag("size", stack_.size())
+               << std::endl;
+
+            for (std::size_t i = 0, z = stack_.size(); i < z; ++i) {
+                os << "  [" << z-i-1 << "] "
+                   << stack_[i]
+                   << std::endl;
+            }
+
+            os << ">" << std::endl;
+        }
+    } /*namespace scm*/
+} /*namespace xo*/
+
+/* end envframestack.cpp */