madlisp/src/CoreFunc.php

42 lines
1.4 KiB
PHP
Raw Normal View History

<?php
namespace MadLisp;
use Closure;
class CoreFunc extends Func
{
protected string $name;
protected int $minArgs;
protected int $maxArgs;
public function __construct(string $name, string $doc, int $minArgs, int $maxArgs, Closure $closure)
{
2020-06-01 13:19:26 +00:00
parent::__construct($closure, $doc);
$this->name = $name;
$this->minArgs = $minArgs;
$this->maxArgs = $maxArgs;
}
public function call(array $args)
{
$this->validateArgs(count($args));
return parent::call($args);
}
private function validateArgs(int $count)
{
2020-06-03 12:39:11 +00:00
if ($this->minArgs == $this->maxArgs && $count != $this->minArgs) {
throw new MadLispException(sprintf("%s requires exactly %s argument%s", $this->name, $this->minArgs,
$this->minArgs == 1 ? '' : 's'));
} elseif ($count < $this->minArgs) {
throw new MadLispException(sprintf("%s requires at least %s argument%s", $this->name, $this->minArgs,
$this->minArgs == 1 ? '' : 's'));
} elseif ($this->maxArgs >= 0 && $count > $this->maxArgs) {
2020-06-03 12:39:11 +00:00
throw new MadLispException(sprintf("%s requires at most %s argument%s", $this->name, $this->maxArgs,
$this->maxArgs == 1 ? '' : 's'));
}
}
}