mirror of
https://github.com/kanaka/mal.git
synced 2024-08-18 02:00:40 +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.
93 lines
1.8 KiB
Plaintext
93 lines
1.8 KiB
Plaintext
public class Env extends MalObject
|
|
{
|
|
MalObject outer; // this would ideally be Env, but isn't supported
|
|
MalObject data[0];
|
|
|
|
fun void init(MalObject env)
|
|
{
|
|
env @=> outer;
|
|
}
|
|
|
|
fun void init(MalObject env, string binds[], MalObject exprs[])
|
|
{
|
|
env @=> outer;
|
|
|
|
for( 0 => int i; i < binds.size(); i++ )
|
|
{
|
|
binds[i] => string bind;
|
|
|
|
if( bind == "&" )
|
|
{
|
|
MalObject.slice(exprs, i) @=> MalObject rest_binds[];
|
|
MalList.create(rest_binds) @=> data[binds[i+1]];
|
|
break;
|
|
}
|
|
else
|
|
{
|
|
exprs[i] @=> data[bind];
|
|
}
|
|
}
|
|
}
|
|
|
|
fun static Env create(MalObject env)
|
|
{
|
|
Env e;
|
|
e.init(env);
|
|
return e;
|
|
}
|
|
|
|
fun static Env create(MalObject env, string binds[], MalObject exprs[])
|
|
{
|
|
Env e;
|
|
e.init(env, binds, exprs);
|
|
return e;
|
|
}
|
|
|
|
fun MalObject clone()
|
|
{
|
|
Env value;
|
|
|
|
this.outer @=> value.outer;
|
|
this.data @=> value.data;
|
|
|
|
return value;
|
|
}
|
|
|
|
fun void set(string key, MalObject value)
|
|
{
|
|
value @=> data[key];
|
|
}
|
|
|
|
fun MalObject find(string key)
|
|
{
|
|
data[key] @=> MalObject value;
|
|
|
|
if( value != null )
|
|
{
|
|
return value;
|
|
}
|
|
else if( outer != null )
|
|
{
|
|
return (outer$Env).find(key);
|
|
}
|
|
else
|
|
{
|
|
return null;
|
|
}
|
|
}
|
|
|
|
fun MalObject get(string key)
|
|
{
|
|
find(key) @=> MalObject value;
|
|
|
|
if( value != null )
|
|
{
|
|
return value;
|
|
}
|
|
else
|
|
{
|
|
return MalError.create(MalString.create("'" + key + "' not found"));
|
|
}
|
|
}
|
|
}
|