48 lines
1.1 KiB
C++
48 lines
1.1 KiB
C++
/* file envframe.cpp
|
|
*
|
|
* author: Roland Conybeare
|
|
*/
|
|
|
|
#include "envframe.hpp"
|
|
#include "xo/indentlog/print/vector.hpp"
|
|
|
|
namespace xo {
|
|
using xo::ast::Variable;
|
|
|
|
namespace scm {
|
|
rp<Variable>
|
|
envframe::lookup(const std::string & x) const {
|
|
for (const auto & var : argl_) {
|
|
if (x == var->name())
|
|
return var;
|
|
}
|
|
|
|
return nullptr;
|
|
}
|
|
|
|
void
|
|
envframe::upsert(bp<Variable> target) {
|
|
for (auto & var : this->argl_) {
|
|
if (var->name() == target->name()) {
|
|
/* replace existing variable -- may change type */
|
|
var = target.promote();
|
|
return;
|
|
}
|
|
}
|
|
|
|
/* here: target not already present in this frame, append it */
|
|
this->argl_.push_back(target.promote());
|
|
}
|
|
|
|
void
|
|
envframe::print(std::ostream & os) const {
|
|
os << "<envframe"
|
|
<< xtag("argl", argl_)
|
|
<< ">";
|
|
}
|
|
|
|
} /*namespace scm */
|
|
} /*namespace xo*/
|
|
|
|
|
|
/* end envframe.cpp */
|