mirror of
https://github.com/kanaka/mal.git
synced 2024-10-27 14:52:16 +03:00
8a19f60386
- Reorder README to have implementation list after "learning tool" bullet. - This also moves tests/ and libs/ into impls. It would be preferrable to have these directories at the top level. However, this causes difficulties with the wasm implementations which need pre-open directories and have trouble with paths starting with "../../". So in lieu of that, symlink those directories to the top-level. - Move the run_argv_test.sh script into the tests directory for general hygiene.
74 lines
1.7 KiB
C++
74 lines
1.7 KiB
C++
#include "Environment.h"
|
|
#include "Types.h"
|
|
|
|
#include <algorithm>
|
|
|
|
malEnv::malEnv(malEnvPtr outer)
|
|
: m_outer(outer)
|
|
{
|
|
TRACE_ENV("Creating malEnv %p, outer=%p\n", this, m_outer.ptr());
|
|
}
|
|
|
|
malEnv::malEnv(malEnvPtr outer, const StringVec& bindings,
|
|
malValueIter argsBegin, malValueIter argsEnd)
|
|
: m_outer(outer)
|
|
{
|
|
TRACE_ENV("Creating malEnv %p, outer=%p\n", this, m_outer.ptr());
|
|
int n = bindings.size();
|
|
auto it = argsBegin;
|
|
for (int i = 0; i < n; i++) {
|
|
if (bindings[i] == "&") {
|
|
MAL_CHECK(i == n - 2, "There must be one parameter after the &");
|
|
|
|
set(bindings[n-1], mal::list(it, argsEnd));
|
|
return;
|
|
}
|
|
MAL_CHECK(it != argsEnd, "Not enough parameters");
|
|
set(bindings[i], *it);
|
|
++it;
|
|
}
|
|
MAL_CHECK(it == argsEnd, "Too many parameters");
|
|
}
|
|
|
|
malEnv::~malEnv()
|
|
{
|
|
TRACE_ENV("Destroying malEnv %p, outer=%p\n", this, m_outer.ptr());
|
|
}
|
|
|
|
malEnvPtr malEnv::find(const String& symbol)
|
|
{
|
|
for (malEnvPtr env = this; env; env = env->m_outer) {
|
|
if (env->m_map.find(symbol) != env->m_map.end()) {
|
|
return env;
|
|
}
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
malValuePtr malEnv::get(const String& symbol)
|
|
{
|
|
for (malEnvPtr env = this; env; env = env->m_outer) {
|
|
auto it = env->m_map.find(symbol);
|
|
if (it != env->m_map.end()) {
|
|
return it->second;
|
|
}
|
|
}
|
|
MAL_FAIL("'%s' not found", symbol.c_str());
|
|
}
|
|
|
|
malValuePtr malEnv::set(const String& symbol, malValuePtr value)
|
|
{
|
|
m_map[symbol] = value;
|
|
return value;
|
|
}
|
|
|
|
malEnvPtr malEnv::getRoot()
|
|
{
|
|
// Work our way down the the global environment.
|
|
for (malEnvPtr env = this; ; env = env->m_outer) {
|
|
if (!env->m_outer) {
|
|
return env;
|
|
}
|
|
}
|
|
}
|