<?php
/* --------------------------------------------------------------
   ClassRegistry.inc.php 2019-06-29
   Gambio GmbH
   http://www.gambio.de
   Copyright (c) 2019 Gambio GmbH
   Released under the GNU General Public License (Version 2)
   [http://www.gnu.org/licenses/gpl-2.0.html]
   --------------------------------------------------------------
*/

class ClassRegistry extends Registry
{
	/**
	 * pattern for "which one is a class file"
	 */
	public $v_file_pattern        = '.php';
	public $v_samples_dir_pattern = '_samples';
	
	
	/**
	 * ClassRegistry constructor.
	 */
	public function __construct()
	{
		if(is_object($GLOBALS['coo_debugger']))
		{
			$GLOBALS['coo_debugger']->log('ClassRegistry() by ' . gm_get_env_info('REQUEST_URI'), 'ClassRegistry');
		}
	}
	
	
	public static function &get_instance()
	{
		static $s_instance;
		
		if($s_instance === null)
		{
			$s_instance = new ClassRegistry();
		}
		
		return $s_instance;
	}
	
	
	/**
	 * scan given dir recursively or not for classes ('.inc.php') and
	 * set class name and path.
	 *
	 * @param string $p_path        path for scan
	 * @param bool   $p_recursively do it with or without
	 *
	 * @return bool true:ok | false:error
	 */
	public function scan_dir($p_path, $p_recursively = false)
	{
		$t_coo_cached_directory = new CachedDirectory($p_path);
		
		if($t_coo_cached_directory->is_dir($p_path) === false)
		{
			# p_path not a directory
			return false;
		}
		elseif(substr($p_path, strlen($this->v_samples_dir_pattern) * -1) === $this->v_samples_dir_pattern)
		{
			# p_path is samples-directory
			return false;
		}
		
		while(false !== ($t_entry = $t_coo_cached_directory->read()))
		{
			if($t_entry[0] === '.')
			{
				continue;
			}
			
			if(substr($t_entry, -13) === '.lang.inc.php')
			{
				continue;
			}
			
			$t_part = '/';
			if(substr($p_path, -1) === $t_part)
			{
				$t_part = '';
			}
			
			$strposOffset = strlen($t_entry) - strlen($this->v_file_pattern);
			if($strposOffset < 0)
			{
				$strposOffset = 0;
			}
			
			if($t_coo_cached_directory->is_dir($p_path . '/' . $t_entry) && $p_recursively)
			{
				$this->scan_dir($p_path . $t_part . $t_entry, $p_recursively);
			}
			elseif(strpos($t_entry, $this->v_file_pattern, $strposOffset) > 0)
			{
                $className = strtok($t_entry, '.');
                $filePath  = $p_path . '/' . $t_entry;
                $this->set($this->getClassNameWithNamespace($className, $filePath), $filePath);
			}
		}
		
		return true;
	}
    
    
    /**
     * Returns class with namespace. The namespace is detected by searching for namespace statement in its file.
     *
     * @param $className
     * @param $filePath
     *
     * @return string
     */
	protected function getClassNameWithNamespace($className , $filePath) {
        $handle = @fopen($filePath, 'r');
        if ($handle) {
            while (($line = fgets($handle, 4096)) !== false) {
                preg_match('/^\s*namespace\s+([^;]+)\s*;/', $line, $matches);
                
                if (isset($matches[1])) {
                    $className = $matches[1] . '\\' . $className;
                    break;
                }
    
                preg_match('/^\s*(class|abstract|interface|trait|\$[\S]+)\s+/', $line, $matches2);
    
                if (isset($matches2[1])) {
                    break;
                }
            }
            fclose($handle);
        }
        
        return $className;
    }
}