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

add support for vectors to quasiquote

Browse Source
This commit is contained in:
Pekka Laiho 2020-12-05 17:15:15 +07:00
parent 25ba08a6e7
commit dae6fe455f
1 changed files with 40 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
src/Evaller.php
View File

@ -358,36 +358,49 @@ class Evaller
}
}
$result = new MList();
for ($i = count($data) - 1; $i >= 0; $i--) {
$elt = $data[$i];
if ($elt instanceof MList && count($elt->getData()) > 0 && $elt->get(0) instanceof Symbol && $elt->get(0)->getName() == 'splice-unquote') {
if (count($elt->getData()) == 2) {
$result = new MList([
new Symbol('concat'),
$elt->get(1),
$result
]);
} else {
throw new MadLispException("splice-unquote requires exactly 1 argument");
}
} else {
$result = new MList([
new Symbol('pull'),
$this->quasiquote($elt),
$result
]);
}
}
return $result;
} elseif ($ast instanceof Symbol || $ast instanceof Collection) {
return $this->quasiquoteLoop($data);
} elseif ($ast instanceof Vector) {
return new MList([
new Symbol('ltov'),
$this->quasiquoteLoop($ast->getData())
]);
} elseif ($ast instanceof Symbol || $ast instanceof Hash) {
// Quote other forms which are affected by evaluation
return new MList([new Symbol('quote'), $ast]);
return new MList([
new Symbol('quote'),
$ast
]);
} else {
return $ast;
}
}
private function quasiquoteLoop(array $data): MList
{
$result = new MList();
for ($i = count($data) - 1; $i >= 0; $i--) {
$elt = $data[$i];
if ($elt instanceof MList && count($elt->getData()) > 0 && $elt->get(0) instanceof Symbol && $elt->get(0)->getName() == 'splice-unquote') {
if (count($elt->getData()) == 2) {
$result = new MList([
new Symbol('concat'),
$elt->get(1),
$result
]);
} else {
throw new MadLispException("splice-unquote requires exactly 1 argument");
}
} else {
$result = new MList([
new Symbol('pull'),
$this->quasiquote($elt),
$result
]);
}
}
return $result;
}
}