/**
* @test
* @dataProvider provideExpand
*/
public function expand($expected, $sexpr, array $macros = [])
{
$walker = new Walker();
$env = Environment::standard();
foreach ($macros as $name => $pair) {
list($argsSexpr, $bodySexpr) = $pair;
$macroArgs = $this->parseSexpr($argsSexpr);
$macroBody = $this->parseSexpr($bodySexpr);
$env[$name] = new SpecialOp\MacroOp($macroArgs, $macroBody);
}
$form = $this->parseSexpr($sexpr);
$expanded = $walker->expand($env, $form);
$this->assertEquals($expected, $expanded->getAst());
}
<?php
// example call:
// php examples/macro-expand.php
// "(defmacro when (condition a b c) (list 'if condition (list 'begin a b c)))"
// "(when (> x 10) 1 2 3)"
namespace Igorw\Ilias;
require __DIR__ . '/../vendor/autoload.php';
if ($argc < 3) {
echo "Usage: php examples/macro-expand.php MACROS CODE\n";
exit(1);
}
list($_, $macros, $code) = $argv;
$program = new Program(new Lexer(), new Reader(), new FormTreeBuilder(), new Walker());
$env = Environment::standard();
$program->evaluate($env, $macros);
$expandedForms = expand($env, $code);
foreach ($expandedForms as $expanded) {
echo encode($expanded->getAst()) . "\n";
}
function buildForms($code)
{
$lexer = new Lexer();
$reader = new Reader();
$builder = new FormTreeBuilder();
$tokens = $lexer->tokenize($code);
$ast = $reader->parse($tokens);
return $builder->parseAst($ast);
}
function expand(Environment $env, $code)
