mirrors/madlisp
1
0
Fork 0
mirror of https://github.com/peklaiho/madlisp.git synced 2024-11-22 13:24:46 +00:00
Code Issues Packages Projects Releases Wiki Activity

tail call optimization for function calls

Browse Source
This commit is contained in:
Pekka Laiho 2020-06-05 15:33:52 +07:00
parent 8cf2dbeeec
commit 7331cbe874
2 changed files with 42 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/Evaller.php
View File

@ -3,18 +3,8 @@ namespace MadLisp;
class Evaller
{
private $p = null;
public function eval($ast, Env $env)
{
// Debug
if ($this->p == null) {
$this->p = new Printer();
}
print("eval: ");
$this->p->print($ast);
print("\n");
while (true) {
// Not list or empty list
@ -108,7 +98,7 @@ class Evaller
}
}
return new UserFunc(function (...$args) use ($bindings, $ast, $env) {
$closure = function (...$args) use ($bindings, $ast, $env) {
$newEnv = new Env($env);
for ($i = 0; $i < count($bindings); $i++) {
@ -116,7 +106,9 @@ class Evaller
}
return $this->eval($ast->get(2), $newEnv);
});
};
return new UserFunc($closure, $ast->get(2), $env, $bindings);
} elseif ($ast->get(0)->getName() == 'if') {
if ($ast->count() < 3 || $ast->count() > 4) {
throw new MadLispException("if requires 2 or 3 arguments");
@ -125,11 +117,9 @@ class Evaller
$result = $this->eval($ast->get(1), $env);
if ($result == true) {
echo "if tco\n";
$ast = $ast->get(2);
continue;
} elseif ($ast->count() == 4) {
echo "if tco\n";
$ast = $ast->get(3);
continue;
} else {
@ -192,14 +182,18 @@ class Evaller
// Get new evaluated list
$ast = $this->evalAst($ast, $env);
// Call first argument as function
// First item is function, rest are arguments
$func = $ast->get(0);
if (!($func instanceof Func)) {
$args = array_slice($ast->getData(), 1);
if ($func instanceof CoreFunc) {
return $func->call($args);
} elseif ($func instanceof UserFunc) {
$ast = $func->getAst();
$env = $func->getEnv($args);
} else {
throw new MadLispException("eval: first item of list is not function");
}
$args = array_slice($ast->getData(), 1);
return $func->call($args);
}
}

29
src/UserFunc.php
View File

@ -1,7 +1,36 @@
<?php
namespace MadLisp;
use Closure;
class UserFunc extends Func
{
protected $ast;
protected Env $tempEnv;
protected array $bindings;
public function __construct(Closure $closure, $ast, Env $tempEnv, array $bindings)
{
parent::__construct($closure, null);
$this->ast = $ast;
$this->tempEnv = $tempEnv;
$this->bindings = $bindings;
}
public function getAst()
{
return $this->ast;
}
public function getEnv(array $args)
{
$newEnv = new Env($this->tempEnv);
for ($i = 0; $i < count($this->bindings); $i++) {
$newEnv->set($this->bindings[$i]->getName(), $args[$i] ?? null);
}
return $newEnv;
}
}