Code.php

Go to the documentation of this file.

<?php
/* vim: set expandtab tabstop=4 shiftwidth=4: */
//  
//  Copyright (c) 2003 Laurent Bedubourg
//  
//  This library is free software; you can redistribute it and/or
//  modify it under the terms of the GNU Lesser General Public
//  License as published by the Free Software Foundation; either
//  version 2.1 of the License, or (at your option) any later version.
//  
//  This library is distributed in the hope that it will be useful,
//  but WITHOUT ANY WARRANTY; without even the implied warranty of
//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
//  Lesser General Public License for more details.
//  
//  You should have received a copy of the GNU Lesser General Public
//  License along with this library; if not, write to the Free Software
//  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//  
//  Authors: Laurent Bedubourg <laurent.bedubourg@free.fr>
//  
// $id$

require_once PT_IP . "/Types/OString.php";
require_once PT_IP . "/Types/OHash.php";

define('_TYPES_CODE_EXTRACT_CODE_CONTEXT_',
'// BEGIN EXTRACT __context__ 
if (is_array($__context__)) { extract($__context__); }
if (is_object($__context__)) { extract($__context__->toHash()); }
// END EXTRACT __context__
');

class Code 
{
    var $_code;
    var $_function;
    var $_compiled = false;

    function Code($code=false)
    {
        $this->__construct($code);
    }

    function __construct($code=false)
    {
        if (!$code) { 
            return $this; 
        }
        if (is_object($code) && get_class($code) == 'code') {
            $this->_code = $code->getCode();
        } else {
            $this->setCode(Types::toString($code));
        }
    }
    
    function &execute()
    {
        if (!$this->_compiled) {
            $err =& $this->compile();
            if (PEAR::isError($err)) { 
                return $err;
            }
        }
        $argv = func_get_args();
        $argc = func_num_args();
        switch ($argc) {
            case 1:
                $context = $argv[0];
                break;
            default:
                $context = OHash::ArrayToHash($argv);
                break;
        }
        $func = $this->_function;
        return $func($context);
    }

    function compile() 
    {
        ob_start();
        $this->_function = create_function('$__context__', $this->_code);
        $ret = ob_get_contents();
        ob_end_clean();

        if (!$this->_function) {
            return PEAR::raiseError($ret);
        }
        
        $this->_compiled = true;
    }
    
    function setCode($str)
    {
        // add extract code to function code
        $str = _TYPES_CODE_EXTRACT_CODE_CONTEXT_ . $str;
        $this->_code = $str;
    }
    
    function getCode()
    {
        return $this->_code;
    }

    function __sleep()
    {
        return array("_code");
    }

    function toString()
    {
        if ($this->_compiled) {
            return '<Code \''.$this->_function.'\'>';
        } else {
            return '<Code \'not compiled\'>';
        }
    }
}

class CodeError extends PEAR_Error 
{
}

?>

---