mirrors/madlisp
1
0
Fork 0
mirror of https://github.com/peklaiho/madlisp.git synced 2024-10-18 13:02:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

add shortcuts for quasiquote and unquote

Browse Source
This commit is contained in:
Pekka Laiho 2020-12-05 17:38:42 +07:00
parent a2f5cdbcc0
commit f1c49009ab
2 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/Reader.php
View File

@ -16,12 +16,11 @@ class Reader
private function readForm(array $tokens, int &$index)
{
if ($tokens[$index] == "'") {
$index++;
$contents = [new Symbol('quote')];
if ($index < count($tokens) && !in_array($tokens[$index], [')', ']', '}'])) {
$contents[] = $this->readForm($tokens, $index);
}
return new MList($contents);
return $this->readSpecialForm($tokens, $index, 'quote');
} elseif ($tokens[$index] == "`") {
return $this->readSpecialForm($tokens, $index, 'quasiquote');
} elseif ($tokens[$index] == "~") {
return $this->readSpecialForm($tokens, $index, 'unquote');
} elseif ($tokens[$index] == '(') {
return $this->readList($tokens, $index);
} elseif ($tokens[$index] == '[') {
@ -33,6 +32,16 @@ class Reader
}
}
private function readSpecialForm(array $tokens, int &$index, string $symbol)
{
$index++;
$contents = [new Symbol($symbol)];
if ($index < count($tokens) && !in_array($tokens[$index], [')', ']', '}'])) {
$contents[] = $this->readForm($tokens, $index);
}
return new MList($contents);
}
private function readList(array $tokens, int &$index): MList
{
return new MList($this->readCollection($tokens, $index, ')'));

2
src/Tokenizer.php
View File

@ -69,7 +69,7 @@ class Tokenizer
$addCurrent();
$tokens[] = $c;
$parens[$parenIndexes[$c]]--;
} elseif ($c == "'") {
} elseif ($c == "'" || $c == "`" || $c == "~") {
// Other special characters
$addCurrent();
$tokens[] = $c;