<?php
//
// +----------------------------------------------------------------------+
// | PHP version 4.0                                                      |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997, 1998, 1999, 2000 The PHP Group                   |
// +----------------------------------------------------------------------+
// | This source file is subject to version 2.02 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: Sterling Hughes <sterling@php.net>                          |
// +----------------------------------------------------------------------+
//
// $Id: Find.php,v 1.10 2000/08/24 01:34:16 sterling Exp $
//
// Commonly needed functions searching directory trees
//

require_once 'PEAR.php';

class File_Find
{
	var $_dirs       = array ();
	var $files       = array ();
	var $directories = array ();

	/**
	 * Search the current directory to find matches for the
	 * the specified pattern.
	 *
	 * @param $pattern a string containing the pattern to search
	 * the directory for.
	 * 
	 * @param $direct_path a string containing the directory path
	 * to search.
	 *
	 * @param $pattern_type a string containing the type of 
	 * pattern matching functions to use (can either be 'php' or
	 * 'perl').
	 *
	 * @return an array containing all of the files and directories
	 * matching the pattern.
	 * 
	 * @author Sterling Hughes <sterling@php.net>
	 */
	function &glob ($pattern, $dirpath, $pattern_type='php')
	{
		$dh = @opendir ($dirpath);
		
		if (!$dh) {
			$pe = new FileFindException ("Cannot open directory");
			return ($pe);
		}
			
		$match_function = File_Find::_determineRegex ($pattern_type);

		while ($entry = @readdir ($dh))
		{
			if ($match_function ($pattern, $entry) &&
			    $entry != '.'                      &&
			    $entry != '..') {
				$matches[] = $entry;
			}
		}
		
		@closedir ($dh);
		return ($matches);
	}

	/**
	 * Map the directory tree given by the directory_path parameter.
	 *
	 * @param $directory_path contains the directory path that you
	 * want to map.
	 *
	 * @return a two element array, the first element containing a list
	 * of all the directories, the second element containing a list of all the
	 * files.
	 *
	 * @author Sterling Hughes <sterling@php.net>
	 */
	function &maptree ($directory)
	{
		$this->_dirs = array ($directory);

		while (count ($this->_dirs))
		{
			$dir = array_pop ($this->_dirs); 
			File_Find::_build ($dir);
			array_push ($this->directories, $dir);
		}
		
		return array ($this->directories, $this->files);
	}
	
	/**
	 * Search the specified directory tree with the specified pattern.  Return an
	 * array containing all matching files (no directories included).
	 *
	 * @param $pattern the pattern to match every file with.
	 * 
	 * @param $directory the directory tree to search in.
	 * 
	 * @param $regex_type the type of regular expression support to use, either
	 * 'php' or 'perl'.
	 *
	 * @return a list of files matching the pattern parameter in the the directory
	 * path specified by the directory parameter
	 *
	 * @author Sterling Hughes <sterling@php.net>
	 */
	function &search ($pattern, $directory, $type='php') {
		list (,$files)  = File_Find::maptree ($directory);
		$match_function = File_Find::_determineRegex ($type);
		
		reset ($files);
		while (list (,$entry) = each ($files))
		{
			if ($match_function ($pattern, $entry))
				$matches[] = $entry;
		}
		
		return ($matches);
	}
	
	/**
	 * Determine whether or not a variable is a PEAR exception
	 *
	 * @param $var the variable to test.
	 * 
	 * @return returns true if the variable is a PEAR error, otherwise
	 * it returns false.
	 */
	function isError (&$var)
	{
		return PEAR::isError($var);
	}
	
	/**
	 * Fetch the current File_Find version
	 *
	 * @return the current File_Find version.
	 */
	function File_Find_version()
	{
 		return (1.1);
	}

	/* 
	 * internal function to build singular directory trees, used by
	 * File_Find::maptree()
	 */
	function _build ($directory)
	{
		$dh = @opendir ($directory);
		
		if (!$dh) {
			$pe = new FileFindException ("Cannot open directory");
			return ($pe);
		}

		while ($entry = @readdir ($dh))
		{
		
			if ($entry != '.' &&
			    $entry != '..') {
				
				$entry = "$directory/$entry";
				
				if (is_dir ($entry))
					array_push ($this->_dirs, $entry);
				else
					array_push ($this->files, $entry);
		
			}
		
		}
		
		@closedir ($dh);
	}
	
	/*
	 * internal function to determine the type of regular expression to
	 * use, implemented by File_Find::glob() and File_Find::search()
	 */
	function _determineRegex ($type)
	{
		if (strtolower ($pattern_type) == 'perl') {
			$match_function = 'preg_match';
		} else if (strtolower (substr ($pattern, -2)) == '/i') {
			$match_function = 'eregi';
		} else {
			$match_function = 'ereg';
		}
		
		return ($match_function);
	}

//End Class
}

class FileFindException extends PEAR_Error
{
	var $classname             = 'FileFindException';
	var $error_message_prepend = 'Error in File_Find';
	
	function FileFindException ($message, $mode = PEAR_ERROR_RETURN, $level = E_USER_NOTICE)
	{
		$this->PEAR_Error ($message, $mode, $level);
	}
}


/*
 * Local variables:
 * tab-width: 4
 * c-basic-offset: 4
 * End:
 */

?>