madlisp/bootstrap.php

32 lines
719 B
PHP
Raw Normal View History

2020-05-28 11:55:58 +07:00
<?php
require('vendor/autoload.php');
2020-05-30 18:47:54 +07:00
function ml_get_lisp(): array
2020-05-28 11:55:58 +07:00
{
2020-05-30 18:47:54 +07:00
$tokenizer = new MadLisp\Tokenizer();
$reader = new MadLisp\Reader();
$eval = new MadLisp\Evaller();
$printer = new MadLisp\Printer();
$lisp = new MadLisp\Lisp($tokenizer, $reader, $eval, $printer);
// environment
2020-05-28 11:55:58 +07:00
$env = new MadLisp\Env();
$core = new MadLisp\Lib\Core();
$core->register($env);
2020-05-30 18:47:54 +07:00
$env->set('eval', function (...$args) use ($eval, $env) {
$results = $eval->eval($args, $env);
return $results[count($results) - 1];
});
2020-05-28 17:10:00 +07:00
2020-05-30 19:19:37 +07:00
$env->set('print', function (...$args) use ($printer) {
$printer->print($args);
return null;
});
2020-05-30 18:47:54 +07:00
return [$lisp, $env];
2020-05-28 17:10:00 +07:00
}