Incam_SGD/thirdparty/pear/Config/Container/PHPConstants.php

<?php
// +----------------------------------------------------------------------+
// | PHP Version 4                                                        |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2003 The PHP Group                                |
// +----------------------------------------------------------------------+
// | This source file is subject to version 2.0 of the PHP license,       |
// | that is bundled with this package in the file LICENSE, and is        |
// | available at through the world-wide-web at                           |
// | http://www.php.net/license/2_02.txt.                                 |
// | If you did not receive a copy of the PHP license and are unable to   |
// | obtain it through the world-wide-web, please send a note to          |
// | license@php.net so we can mail you a copy immediately.               |
// +----------------------------------------------------------------------+
// | Authors: Phillip Oertel <me@phillipoertel.com>                       |
// +----------------------------------------------------------------------+
//
// $Id$

/**
* Config parser for PHP constant files
*
* @author      Phillip Oertel <me@phillipoertel.com>
* @package     Config
* @version     0.1 (not submitted)
*/

require_once 'Config/Container.php';

class Config_Container_PHPConstants extends Config_Container {

    /**
    * This class options
    * Not used at the moment
    *
    * @var  array
    */
    var $options = array();

    /**
    * Constructor
    *
    * @access public
    * @param    string  $options    (optional)Options to be used by renderer
    */
    function Config_Container_PHPConstants($options = array())
    {
        $this->options = $options;
    } // end constructor

    /**
    * Parses the data of the given configuration file
    *
    * @access public
    * @param string $datasrc    path to the configuration file
    * @param object $obj        reference to a config object
    * @return mixed    returns a PEAR_ERROR, if error occurs or true if ok
    */
    function &parseDatasrc($datasrc, &$obj)
    {
        if (!file_exists($datasrc)) {
            return PEAR::raiseError("Datasource file does not exist.", null, 
                    PEAR_ERROR_RETURN);
        }
        
        $fileContent = file_get_contents($datasrc, true);
        
        if (!$fileContent) {
            return PEAR::raiseError("File '$datasrc' could not be read.", null,
                PEAR_ERROR_RETURN);
        }
		
		$rows = explode("\n", $fileContent);
		for ($i=0, $max=count($rows); $i<$max; $i++) {
		    $line = $rows[$i];
    
                //blanks?
			    
			    // sections
		    if (preg_match("/^\/\/\s*$/", $line)) {
		        preg_match("/^\/\/\s*(.+)$/", $rows[$i+1], $matches);
			    $obj->container->createSection(trim($matches[1]));
			    $i += 2;
			    continue;
		    }
		  
		    // comments
		    if (preg_match("/^\/\/\s*(.+)$/", $line, $matches) || 
		            preg_match("/^#\s*(.+)$/", $line, $matches)) {
			    $obj->container->createComment(trim($matches[1]));
			    continue;
		    }
		  
		    // directives
		    $regex = "/^\s*define\s*\('([A-Z1-9_]+)',\s*'*(.[^\']*)'*\)/";
		    preg_match($regex, $line, $matches);
		    if (!empty($matches)) {
			    $obj->container->createDirective(trim($matches[1]), 
			        trim($matches[2]));
		    }
	    }
    
        return true;
        
    } // end func parseDatasrc

    /**
    * Returns a formatted string of the object
    * @param    object  $obj    Container object to be output as string
    * @access   public
    * @return   string
    */
	 function toString(&$obj)
	 {
		 $string = '';

		 switch ($obj->type) 
		 {
			 case 'blank':
				 $string = "\n";
				 break;
				 
			 case 'comment':
				 $string = '// '.$obj->content."\n";
				 break;
				 
			 case 'directive':
				 $content = $obj->content;
				 // don't quote numeric values, true/false and constants
				 if (!is_numeric($content) && !in_array($content, array('false', 
				            'true')) && !preg_match('/^[A-Z_]+$/', $content)) {
					 $content = "'".$content."'";
				 }
				 $string = 'define(\''.$obj->name.'\', '.$content.');'.chr(10);
				 break;
				 
			 case 'section':
				 if (!$obj->isRoot()) {
					 $string  = chr(10);
					 $string .= '//'.chr(10);
					 $string .= '// '.$obj->name.chr(10);
					 $string .= '//'.chr(10);
				 }
				 if (count($obj->children) > 0) {
					 for ($i = 0, $max = count($obj->children); $i < $max; $i++) {
						 $string .= $this->toString($obj->getChild($i));
					 }
				 }
				 break;
			 default:
				 $string = '';
		 }
		 return $string;
	 } // end func toString

    /**
    * Writes the configuration to a file
    *
    * @param  mixed  datasrc    info on datasource such as path to the file
    * @param  string configType     (optional)type of configuration
    * @access public
    * @return string
    */
    function writeDatasrc($datasrc, &$obj)
    {
        $fp = @fopen($datasrc, 'w');
        if ($fp) {
            $string  = "<?php";
				$string .= "\n\n";
				$string .= '/**' . chr(10);
				$string .= ' *' . chr(10);
				$string .= ' * AUTOMATICALLY GENERATED CODE - 
				DO NOT EDIT BY HAND' . chr(10);
				$string .= ' *' . chr(10);
				$string .= '**/' . chr(10);
				$string .= $this->toString($obj);
				$string .= "\n?>"; // <? : Fix my syntax coloring

            $len = strlen($string);
            @flock($fp, LOCK_EX);
            @fwrite($fp, $string, $len);
            @flock($fp, LOCK_UN);
            @fclose($fp);
            
            // need an error check here
            
            return true;
        } else {
            return PEAR::raiseError('Cannot open datasource for writing.', 1, 
                PEAR_ERROR_RETURN);
        }
    } // end func writeDatasrc

	 
} // end class Config_Container_PHPConstants

?>