<?php
/**
 * wombat factory - the systems hen that produces eggs
 *
 * $Id$
 *
 * @author gERD Schaufelberger <gerd@exit0.net>
 * @copyright 2004/2005 by http://wombat.exit0.net
 * @package wombat
 * @subpackage framework
 */

// what time is it?
list( $usec, $sec ) =	explode( ' ', microtime() ); 

/**
 * Global wombat settings and variable container of the wombat Factory
 *
 * This is sort of a "fake" static variable...
 * 
 * IMPORTANT: 
 * All parameters in here should never be changed within this file!
 *
 * @see doc/config/global.txt how to adjust factory parameters
 * @see doc/config/factory.txt for parameter list
 */
$GLOBALS['_wbFactory']	=	array(
            'systemDir'         =>  realpath( dirname( __FILE__ ) . '/..' ),  
            'baseDir'           =>  realpath( dirname( __FILE__ ) . '/..' ),  
            'debug'             =>  0,
            'debugMode'         =>  'Html',
            'useCache'          =>  1,
            'htdocDir'          =>  'htdoc',
            'configDir'         =>  'conf',
            'configFile'        =>  'config.xml',
            'adminDir'          =>  'admin',
            'varDir'            =>  'var',
            'includePath'       =>  dirname( __FILE__ ),
            'localClasses'      =>  array( 'pat' => 'pat', 'wb' => false ),
            'loadedClasses'     =>  array(),
            'singletons'        =>  array(),
            'config'            =>  null,
            'lang'              =>  array( 'lang' => 'C', 'tmpl' => 'C', 'form' => 'C' ),
            'timestampGenesis'  =>  (float) $usec + (float)$sec,
        );

/**
 * static factory class
 * 
 * - creates singletons and multiple objects for each class
 * - loads global settings
 * - dynamic class loader
 * - loads extensions
 * - loads modules
 * - configures loaded objects
 * - specialized factory opbjects that implement create function
 * - dynamic load of creation objects
 * - dynamic class loader
 *
 * @version 1.1.4
 * @static
 * @package wombatSite
 * @subpackage factory
 */
class wbFactory {
   /**
	* load basic config and set up factory
	*
	* @static
	* @param string $file configuration file name
    * @param boolean $load load site config from php and xml file
	* @return boolean $result true on success
	*/
    function configure( $file = 'conf/config.php', $load = true ) {

        // skip config
        if( $load )
        {
            // relative path?
            if( $file[0] != '/' ) {
        	   $file    =   $GLOBALS['_wbFactory']['baseDir'] . '/' . $file;
            }
            include $file;
        }
        
        // this class is required and must be loaded here - otherwise all errors will end in nirvana!
        wbFactory::includeClass( 'patErrorManager' );
        
        // configure error handling
        wbFactory::singleton( 'wbDebugger' );
        $errorHdl	=&	wbFactory::singleton( 'wbErrorHandler' );
        
        set_error_handler( array( $errorHdl, 'handlePhpError' ) );
        patErrorManager::setErrorHandling( E_ERROR, 'callback', array( $errorHdl, 'handlePatError' ) );	
        
        if( $GLOBALS['_wbFactory']['debug'] ) {
            error_reporting( E_ALL );
            patErrorManager::setErrorHandling( E_WARNING, 'callback', array( $errorHdl, 'handlePatWarning' ) );		
            patErrorManager::setErrorHandling( E_NOTICE, 'callback', array( $errorHdl, 'handlePatNotice' ) );		
        }
        else {
            error_reporting( E_ERROR | E_WARNING );
            patErrorManager::setErrorHandling( E_WARNING, 'callback', array( $errorHdl, 'handlePatWarning' ) );		
            patErrorManager::setErrorHandling( E_NOTICE, 'ignore' );
        }
    
        if( $load ) {
            wbFactory::loadSiteConfig();
        }
        
        return true;
    }

   /**
    * load site config with patConfiguration
    *
    * Usually hhis will be called by configure()
    *
    * @static
    * @return boolean $result true on success
    */
    function loadSiteConfig() {
        $conf   =&  wbFactory::singleton( 'patConfiguration' );
        
        $conf->loadConfig( $GLOBALS['_wbFactory']['configFile'] );
        $GLOBALS['_wbFactory']['config'] =   $conf->getConfigValue();
        $conf->clearConfigValue();
        
        // configure NLS
        bindtextdomain( 'wombat', $GLOBALS['_wbFactory']['systemDir'] . '/' . $GLOBALS['_wbFactory']['varDir'] . '/lang' );

        return true;
    }
    
   /**
    * set configuration parameter
    *
    * @static
    * @access public
    * @param string $name named parameter
    * @param mixed $value the new value of the parameter
    * @return boolean $result true on success
    */
    function setParam( $name, $value ) {
        $GLOBALS['_wbFactory'][$name]	=	$value;
    
        return true;
    }

   /**
    * get configuration parameter
    *
    * @static
    * @access public
    * @param string $name named parameter
    * @return mixed $value the value of the parameter
    */
    function getParam( $name ) {
        if( !isset( $GLOBALS['_wbFactory'][$name] ) ) {
            return null;
        }

        return $GLOBALS['_wbFactory'][$name];
    }

   /**
    * get preconfigured singleton
    *
    * @static
    * @access public
    * @param string $name named class
    * @param array $params mixed parameter to modify the creation process
    * @return object $obj reference to the singleton
    * @see create()
    */
    function &singleton( $name, $params = array() ) {
        if( isset( $GLOBALS['_wbFactory']['singletons'][$name] ) && is_object( $GLOBALS['_wbFactory']['singletons'][$name] ) ) {
            return $GLOBALS['_wbFactory']['singletons'][$name];
        }
    
        $obj	=&	wbFactory::create( $name, $params );
        
        // solve hen-egg-problem - see configure()!
        if( !patErrorManager::isError( $obj ) ) {
            $GLOBALS['_wbFactory']['singletons'][$name]	=&	$obj;
        }
        
        return $obj;
    }
    
   /**
    * create a new object
    *
    * @static
    * @access public
    * @param string $class identifier for an object to be created
    * @param array $params mixed parameter to modify the creation process
    * @return object $obj reference to the created object
    */
    function &create( $class, $params = array() )
    {
        // include class
        $result	=&	wbFactory::includeClass( $class );
        if( patErrorManager::isError( $result ) ) {
            return $result;
        }
    
        // search for special creator
        if( file_exists( dirname( __FILE__ ) . '/wbFactory/' . $class . '.php' ) ) {
            include_once dirname( __FILE__ ) . '/wbFactory/' . $class . '.php';
            $obj =& call_user_func( array( 'wbFactory_' . $class, 'create' ), $params );
            return $obj;
        }
    
        $obj    =&   new	$class();
        return $obj;
    }

   /**
    * build module and return object
    *
    *
    * @static
    * @access public
    * @param string $name identifier for an object to be created
    * @param string $page page name
    * @param string $part part name
    * @param array @request request variables 
    * @return object $obj reference to the created object
    */
    function &getModule( $name, $page, $part, $params, $request ) {
        $obj    =&  wbFactory::singleton( 'wbModule_' . $name );
        if( patErrorManager::isError( $obj ) ) {
            return $obj;
        }

        // behave like a client specific extension
        $obj->setRoot( $GLOBALS['_wbFactory']['baseDir'] );
        $obj->setContext( $page, $part );
        $obj->setParams( $params );
        $obj->setRequest( $request );
    
        return $obj;
    }

   /**
    * build client extension and return the object
    *
    * @static
    * @access public
    * @param string $name identifier for an object to be created
    * @param string $page page name
    * @param array @request request variables 
    * @return object $obj reference to the created object
    */
    function &getExtension( $name, $page, $params, $request ) {
        if( isset( $GLOBALS['_wbFactory']['singletons']['wbExtension_' . $name ] ) && is_object( $GLOBALS['_wbFactory']['singletons']['wbExtension_' . $name ] ) ) {
            return $GLOBALS['_wbFactory']['singletons']['wbExtension_' . $name ];
        }
    
        // include base class
        $result	=&	wbFactory::includeClass( 'wbExtension' );
        if( patErrorManager::isError( $result ) ) {
            return $result;
        }
        
        // search for extension
        if( !file_exists( $GLOBALS['_wbFactory']['baseDir'] . '/extension/' . $name . '.php' ) )
        {
            return patErrorManager::raiseWarning(
                                        'wbFactory:2',
                                        'extension file not found!',
                                        'Extension: ' . $name
                                    );
        }
    
        include_once $GLOBALS['_wbFactory']['baseDir'] . '/extension/' . $name . '.php';
        $class  =   'wbExtension_' . $name;
        $obj    =&  new $class();
        
        $obj->setRoot( $GLOBALS['_wbFactory']['baseDir'] );
        $obj->setPage( $page );
        $obj->setParams( $params );
        $obj->setRequest( $request );
        return $obj;
    }

   /**
    * include php file for 
    *
    * @static
    * @access public
    * @param string $class name class to be included
    * @return boolean $result true on success
    * @see create()
    */
    function includeClass( $class )
    {
        // already loaded?
        if( in_array( $class, $GLOBALS['_wbFactory']['loadedClasses'] ) ) {
            return true;
        }
    
        // translate class name to directories and file
        $name   =   str_replace( '_', '/', $class );
    
        $prefix =   '';
        $locals =   array_keys( $GLOBALS['_wbFactory']['localClasses'] );
        
        foreach( $locals as $local )
        {
            if( strstr( $name, $local ) ) {
                // include base-classes
                $base	=	explode( '/', $name );
                if( count( $base ) > 1 ) {
                    array_pop( $base );
                    $baseName	=	implode( '_', $base );
                    $result	=	wbFactory::includeClass( $baseName );
                    if( patErrorManager::isError( $result ) ) {
                        return $result;
                    }
                }

                $prefix =   $GLOBALS['_wbFactory']['includePath'] . '/';

                // add subdirectoy
                if( $GLOBALS['_wbFactory']['localClasses'][$local] !== false ) {
                    $prefix = $GLOBALS['_wbFactory']['localClasses'][$local] . '/';
                }
                break;
            }
        }
        
        if( !( include_once $prefix  .  $name . '.php' ) )  {
            return patErrorManager::raiseWarning( 
                                    'wbFactory:3',
                                    'Failed to include class',
                                    'Class: ' . $class
                                );
        }
        
        array_push( $GLOBALS['_wbFactory']['loadedClasses'], $class );
        return true;
    }
}
?>