/* 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 */