Roland Conybeare
aecabbb144
git-subtree-dir: xo-expression git-subtree-mainline:d0f5ccc1cegit-subtree-split:5ac3c03a0c
60 lines
1.7 KiB
C++
60 lines
1.7 KiB
C++
/* file GlobalEnv.hpp
|
|
*
|
|
* author: Roland Conybeare, Jun 2024
|
|
*/
|
|
|
|
#pragma once
|
|
|
|
#include "Environment.hpp"
|
|
#include <map>
|
|
#include <string>
|
|
|
|
namespace xo {
|
|
namespace ast {
|
|
class GlobalEnv : public Environment {
|
|
public:
|
|
/** create instance. Probably only need one of these **/
|
|
static rp<GlobalEnv> make() { return new GlobalEnv(); }
|
|
|
|
ref::brw<Expression> require_global(const std::string & vname,
|
|
ref::brw<Expression> expr) {
|
|
global_map_[vname] = expr.get();
|
|
return expr;
|
|
} /*require_global*/
|
|
|
|
// ----- Environment -----
|
|
|
|
virtual bool is_global_env() const override { return true; }
|
|
|
|
virtual binding_path lookup_binding(const std::string & /*vname*/) const override {
|
|
/* i_link: -1 for global environment
|
|
* j_slot: not used
|
|
*/
|
|
return { -1, 0 };
|
|
}
|
|
|
|
virtual ref::brw<Expression> lookup_var(const std::string & vname) const override {
|
|
auto ix = global_map_.find(vname);
|
|
|
|
if (ix == global_map_.end()) {
|
|
/* not found */
|
|
return ref::brw<Expression>::from_native(nullptr);
|
|
}
|
|
|
|
return ix->second;
|
|
}
|
|
|
|
private:
|
|
GlobalEnv() = default;
|
|
|
|
private:
|
|
/* for assignable globals, need to allocate memory
|
|
* addresses for these.
|
|
*/
|
|
std::map<std::string, rp<Expression>> global_map_;
|
|
};
|
|
} /*namespace ast*/
|
|
} /*namespace xo*/
|
|
|
|
|
|
/* end GlobalEnv.hpp */
|