1
1
mirror of https://github.com/kanaka/mal.git synced 2024-09-20 10:07:45 +03:00
mal/php/step3_env.php

98 lines
2.4 KiB
PHP

<?php
require_once 'readline.php';
require_once 'types.php';
require_once 'reader.php';
require_once 'printer.php';
require_once 'env.php';
// read
function READ($str) {
return read_str($str);
}
// eval
function eval_ast($ast, $env) {
if (_symbol_Q($ast)) {
return $env->get($ast->value);
} elseif (_sequential_Q($ast)) {
if (_list_Q($ast)) {
$el = _list();
} else {
$el = _vector();
}
foreach ($ast as $a) { $el[] = MAL_EVAL($a, $env); }
return $el;
} elseif (_hash_map_Q($ast)) {
$new_hm = _hash_map();
foreach (array_keys($ast->getArrayCopy()) as $key) {
$new_hm[$key] = MAL_EVAL($ast[$key], $env);
}
return $new_hm;
} else {
return $ast;
}
}
function MAL_EVAL($ast, $env) {
#echo "MAL_EVAL: " . _pr_str($ast) . "\n";
if (!_list_Q($ast)) {
return eval_ast($ast, $env);
}
// apply list
$a0 = $ast[0];
$a0v = (_symbol_Q($a0) ? $a0->value : $a0);
switch ($a0v) {
case "def!":
$res = MAL_EVAL($ast[2], $env);
return $env->set($ast[1]->value, $res);
case "let*":
$a1 = $ast[1];
$let_env = new Env($env);
for ($i=0; $i < count($a1); $i+=2) {
$let_env->set($a1[$i]->value, MAL_EVAL($a1[$i+1], $let_env));
}
return MAL_EVAL($ast[2], $let_env);
default:
$el = eval_ast($ast, $env);
$f = $el[0];
return call_user_func_array($f, array_slice($el->getArrayCopy(), 1));
}
}
// print
function MAL_PRINT($exp) {
return _pr_str($exp, True) . "\n";
}
// repl
$repl_env = new Env(NULL);
function rep($str) {
global $repl_env;
return MAL_PRINT(MAL_EVAL(READ($str), $repl_env));
}
$repl_env->set('+', function ($a, $b) { return intval($a + $b,10); });
$repl_env->set('-', function ($a, $b) { return intval($a - $b,10); });
$repl_env->set('*', function ($a, $b) { return intval($a * $b,10); });
$repl_env->set('/', function ($a, $b) { return intval($a / $b,10); });
// repl loop
do {
try {
$line = mal_readline("user> ");
if ($line === NULL) { break; }
if ($line !== "") {
print(rep($line));
}
} catch (BlankException $e) {
continue;
} catch (Exception $e) {
echo "Error: " . $e->getMessage() . "\n";
echo $e->getTraceAsString() . "\n";
}
} while (true);
?>