madlisp/src/Lisp.php

38 lines
897 B
PHP
Raw Normal View History

2020-05-28 04:55:58 +00:00
<?php
namespace MadLisp;
class Lisp
{
2020-05-28 10:10:00 +00:00
protected Tokenizer $tokenizer;
protected Reader $reader;
protected Evaller $eval;
protected Printer $printer;
2020-06-17 10:24:15 +00:00
protected Env $env;
2020-05-28 09:49:32 +00:00
2020-06-17 10:24:15 +00:00
public function __construct(Tokenizer $tokenizer, Reader $reader, Evaller $eval, Printer $printer, Env $env)
2020-05-28 04:55:58 +00:00
{
2020-05-28 10:10:00 +00:00
$this->tokenizer = $tokenizer;
$this->reader = $reader;
$this->eval = $eval;
$this->printer = $printer;
2020-06-17 10:24:15 +00:00
$this->env = $env;
2020-05-28 07:40:54 +00:00
}
2020-10-24 07:27:02 +00:00
public function readEval(string $input)
2020-05-28 07:40:54 +00:00
{
2020-05-28 10:10:00 +00:00
$tokens = $this->tokenizer->tokenize($input);
2020-05-28 07:40:54 +00:00
2020-06-04 02:10:48 +00:00
$expr = $this->reader->read($tokens);
2020-05-28 07:40:54 +00:00
2020-10-24 07:27:02 +00:00
return $this->eval->eval($expr, $this->env);
}
// read, eval, print
public function rep(string $input, bool $printReadable): void
{
$result = $this->readEval($input);
2020-05-28 04:55:58 +00:00
$this->printer->print($result, $printReadable);
2020-05-28 04:55:58 +00:00
}
}