PHP 實踐 mix-in 概念 part 2 - MixableClass

<?php
/*
MixableClass - A PHP mix-in class
Copyright (C) 2007 Shih Yuncheng <shirock@educities.edu.tw>

This library is licensed under GNU Lesser General Public License.
*/
abstract class MixableClass {
    public static $methods; // object methods

    protected $_methods;    // instance methods


    /**
     * 為混成類別增刪方法。
     * @access public
     * @static
     * @param $o    類別名稱(字串)，或是一個實例。
     * @param $m    委託者之名稱。
     * @param $fn   委派者之名稱。若為 false 則取消委派。
     */
    public static function delegate($o, $m, $fn) {
        if (function_exists($fn) or $fn === false) {
            $c = (is_string($o)
                ? $o
                : get_class($o)
            );
            //echo "\tadd method: {$c}::\$methods['{$k}'] = '{$v}';\n";

            $fn = ($fn === false
                ? 'false'
                : "'$fn'"
            );
            eval("{$c}::\$methods['{$m}'] = {$fn};");
            // PHP does not allow syntax as $c::$methods.

        }
        else {
            throw new Exception("$fn is not a function.\n");
        }
    }

    /**
     * 為實例之原型 (即其混成類別) 增刪方法。
     * @access public
     * @param $m    委託者之名稱。
     * @param $fn   委派者之名稱。若為 false 則取消委派。
     */
    public function prototypeDelegate($m, $fn) {
        self::delegate(&$this, $m, $fn);
    }

    /**
     * 為實例增刪方法。不影嚮其他個體。
     * @access public
     * @param $m    委託者之名稱。
     * @param $fn   委派者之名稱。若為 false 則取消委派。
     */
    public function instanceDelegate($m, $fn) {
        if (function_exists($fn) or $fn === false) {
            $this->_methods[$m] = $fn;
            return true;
        }
        return false;
    }

    /**
     * 以 setter 形式為實例增刪方法。不影嚮其他個體。
     * 如以下所示，兩者相同:
     * $x->instanceDelegate('myBar', 'bar');
     * $x->myBar = 'bar';
     * @access public
     * @param $k    委託者之名稱。
     * @param $v    委派者之名稱。若為 false 則取消委派。
     */
    public function __set($k, $v) {
        if (function_exists($v))
            $this->instanceDelegate($k, $v);
    }

    protected static function& getDelegatedMethod(&$o, &$f) {
        $fp = false;
        for ($c = get_class($o);
             $p = get_parent_class($c);
             $c = $p)
        {
            if ($fp = eval("return (isset({$c}::\$methods['{$f}'])
                ? {$c}::\$methods['{$f}']
                : false );"))
            {
                //echo "\t return {$fp} - {$c}::\$methods['{$f}'] \n";

                break;
            }
        }
        return $fp;
    }

    public function __call($f, $a) {
        if (isset($this->_methods[$f]))
            $fp =& $this->_methods[$f];
        else
            $fp =& self::getDelegatedMethod($this, $f);

        if ($fp and array_unshift($a, &$this))
            return call_user_func_array($fp, $a);
        else
            throw new Exception("Method {$f} not delegated!\n");
    }
}
?>

<?php
require_once 'MixableClass.php';

function foo(&$This) {
    echo "FOO {$This->name}\n";
}
function bar(&$This) {
    echo "BAR\n";
}
function foobar(&$This, $n) {
    echo "FOOBAR ({$n}) {$This->name}\n" ;
}

class MyClass extends MixableClass {
    public static $methods;    // every subclass must define it.

    public $name;
    public function __construct($name) {
        if (!isset(self::$methods)) {
            self::$methods['foo'] = 'foo';
        }
        $this->name = $name;
    }
}

$x = new MyClass('Xman');
echo 'invoke $x->foo()', "\n";
$x->foo();

class MyClass2 extends MyClass {
    public static $methods;
}

$y = new MyClass2('Yman');
echo 'invoke $y->foo()', "\n";
$y->foo();

class MyClass3 extends MyClass2 {
    public static $methods;
    public function __construct($name) {
        parent::__construct(&$name);
        foreach (array('bar') as $fn)
            self::$methods[$fn] = $fn;
    }
}

$z = new MyClass3('Zman');
echo 'invoke $z->foo(), $z->bar()', "\n";
$z->foo();
$z->bar();

echo "========== 動態混入/委派 =============\n";
try {
    echo 'invoke $z->foobar("z")', "\n";
    $z->foobar('z');
}
catch (Exception $e) {
    echo "ERR: fobar 尚未混入 MyClass3 ; MyClass3 尚未委派 foobar 行為.\n";
}

echo "foobar 混入 MyClass2 ; MyClass2 委派 foobar 行為.\n";
$y->prototypeDelegate('foobar', 'foobar');
//MyClass2::delegate('MyClass2', 'foobar', 'foobar');


echo 'invoke $z->foobar()', "\n";
$z->foobar('z');
echo '子承父。MyClass2 的衍生類別 (MyClass3) 承繼其委派之 foobar.', "\n";

$y2 = new MyClass2('Y2man');
echo 'invoke $y2->foobar()', "\n";
$y2->foobar('y2');

echo 'invoke $x->foobar()', "\n";
try {
    $x->foobar('x');
}
catch (Exception $e) {
    echo "ERR: 父不承子。MyClass2 的基礎類別 (MyClass) 仍無 foobar 行為.\n";
}

echo "========== 實例行為委派，不混入類別中 =============\n";
$x->myBar = 'bar';
echo 'invoke $x->myBar()', "\n";
$x->myBar();

$x2 = new MyClass('X2man');

echo 'invoke $x2->myBar()', "\n";
try {
    $x2->myBar();
}
catch (Exception $e) {
    echo "ERR: myBar 並未混入類別\n";
}

echo 'invoke $y->myBar()', "\n";
try {
    $y->myBar();
}
catch (Exception $e) {
    echo "ERR: myBar 並未混入類別\n";
}
?>