Roland Conybeare
0ae98c211d
git-subtree-dir: xo-reader git-subtree-mainline:dacdeb2cd7git-subtree-split:c46c0f1cc4
86 lines
2 KiB
C++
86 lines
2 KiB
C++
/* 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 */
|