mirror of
https://github.com/kanaka/mal.git
synced 2024-10-27 06:40:14 +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.
34 lines
629 B
Plaintext
34 lines
629 B
Plaintext
import .Types;
|
|
|
|
Val pike_eval(string expr_str)
|
|
{
|
|
program prog = compile_string("mixed tmp_func() { return (" + expr_str + "); }", "pike-eval");
|
|
mixed v = prog()->tmp_func();
|
|
return pike2mal(v);
|
|
}
|
|
|
|
private Val pike2mal(mixed v)
|
|
{
|
|
if(stringp(v)) return String(v);
|
|
if(intp(v)) return Number(v);
|
|
if(arrayp(v))
|
|
{
|
|
array(Val) res = ({ });
|
|
foreach(v, mixed e)
|
|
{
|
|
res += ({ pike2mal(e) });
|
|
}
|
|
return List(res);
|
|
}
|
|
if(mappingp(v))
|
|
{
|
|
array(Val) res = ({ });
|
|
foreach(v; mixed k; mixed v)
|
|
{
|
|
res += ({ pike2mal(k), pike2mal(v) });
|
|
}
|
|
return Map(res);
|
|
}
|
|
return MAL_NIL;
|
|
}
|