CURRYFICATION DE FONCTIONS

<?php
// Copyright (c) 2011 Rodolphe Breard
// 
// Permission to use, copy, modify, and/or distribute this software for any
// purpose with or without fee is hereby granted, provided that the above
// copyright notice and this permission notice appear in all copies.
// 
// THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
// WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
// MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
// ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
// WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
// ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
// OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
//

class Curry
{
  protected $nb_params;
  protected $new;

  public function __construct($func)
  {
    if (!is_callable($func))
      throw new BadMethodCallException('Curry::__construct(): invalid callback');

    $args = func_get_args();
    unset($args[0]);
    $nb_args = sizeof($args);

    if (!($func instanceof Curry))
      {
	$r = new ReflectionFunction($func);
	$this->nb_params = $r->getNumberOfRequiredParameters() - $nb_args;
      }
    else
      $this->nb_params = $func->getNbParams() - $nb_args;

    $p_lst = array();
    for ($i = 0; $i < $this->nb_params; $i++)
      $p_lst[] = '$p' . $i;

    $a_lst = array();
    for ($i = 0; $i < $nb_args; $i++)
      $a_lst[] = '$args[' . ($i + 1) . ']';
    $a_lst = array_merge($a_lst, $p_lst);

    eval('$this->new = function(' . implode(',', $p_lst) . ') use($func, $args) { return $func(' . implode(',', $a_lst) . '); };');
  }

  public function __invoke()
  {
    return call_user_func_array($this->new, func_get_args());
  }

  public function getNbParams()
  {
    return $this->nb_params;
  }
}

?>