madlisp/bootstrap.php

<?php
require('vendor/autoload.php');

function ml_get_lisp(): array
{
    $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
    $env = new MadLisp\Env();

    // Register core functions
    $lisp->register($env);

    // Register libraries
    (new MadLisp\Lib\Collections())->register($env);
    (new MadLisp\Lib\Compare())->register($env);
    (new MadLisp\Lib\IO())->register($env);
    (new MadLisp\Lib\Math())->register($env);
    (new MadLisp\Lib\Strings())->register($env);
    (new MadLisp\Lib\Time())->register($env);
    (new MadLisp\Lib\Types())->register($env);

    // Functions defined in lisp itself
    $lisp->re('(def loadf (fn (f) (if (file? f) (eval (read (str "(do " (fread f) ")"))) (error (str "file " f " does not exist")))))', $env);

    return [$lisp, $env];
}