Chris@0: <?php
Chris@0: 
Chris@0: /*
Chris@0:  * This file is part of the Symfony package.
Chris@0:  *
Chris@0:  * (c) Fabien Potencier <fabien@symfony.com>
Chris@0:  *
Chris@0:  * For the full copyright and license information, please view the LICENSE
Chris@0:  * file that was distributed with this source code.
Chris@0:  */
Chris@0: 
Chris@0: namespace Symfony\Component\Finder;
Chris@0: 
Chris@0: /**
Chris@0:  * Glob matches globbing patterns against text.
Chris@0:  *
Chris@17:  *     if match_glob("foo.*", "foo.bar") echo "matched\n";
Chris@0:  *
Chris@17:  *     // prints foo.bar and foo.baz
Chris@17:  *     $regex = glob_to_regex("foo.*");
Chris@17:  *     for (['foo.bar', 'foo.baz', 'foo', 'bar'] as $t)
Chris@17:  *     {
Chris@17:  *         if (/$regex/) echo "matched: $car\n";
Chris@17:  *     }
Chris@0:  *
Chris@0:  * Glob implements glob(3) style matching that can be used to match
Chris@0:  * against text, rather than fetching names from a filesystem.
Chris@0:  *
Chris@0:  * Based on the Perl Text::Glob module.
Chris@0:  *
Chris@0:  * @author Fabien Potencier <fabien@symfony.com> PHP port
Chris@0:  * @author     Richard Clamp <richardc@unixbeard.net> Perl version
Chris@0:  * @copyright  2004-2005 Fabien Potencier <fabien@symfony.com>
Chris@0:  * @copyright  2002 Richard Clamp <richardc@unixbeard.net>
Chris@0:  */
Chris@0: class Glob
Chris@0: {
Chris@0:     /**
Chris@0:      * Returns a regexp which is the equivalent of the glob pattern.
Chris@0:      *
Chris@0:      * @param string $glob                The glob pattern
Chris@0:      * @param bool   $strictLeadingDot
Chris@0:      * @param bool   $strictWildcardSlash
Chris@0:      * @param string $delimiter           Optional delimiter
Chris@0:      *
Chris@0:      * @return string regex The regexp
Chris@0:      */
Chris@0:     public static function toRegex($glob, $strictLeadingDot = true, $strictWildcardSlash = true, $delimiter = '#')
Chris@0:     {
Chris@0:         $firstByte = true;
Chris@0:         $escaping = false;
Chris@0:         $inCurlies = 0;
Chris@0:         $regex = '';
Chris@17:         $sizeGlob = \strlen($glob);
Chris@0:         for ($i = 0; $i < $sizeGlob; ++$i) {
Chris@0:             $car = $glob[$i];
Chris@0:             if ($firstByte && $strictLeadingDot && '.' !== $car) {
Chris@0:                 $regex .= '(?=[^\.])';
Chris@0:             }
Chris@0: 
Chris@0:             $firstByte = '/' === $car;
Chris@0: 
Chris@0:             if ($firstByte && $strictWildcardSlash && isset($glob[$i + 2]) && '**' === $glob[$i + 1].$glob[$i + 2] && (!isset($glob[$i + 3]) || '/' === $glob[$i + 3])) {
Chris@0:                 $car = '[^/]++/';
Chris@0:                 if (!isset($glob[$i + 3])) {
Chris@0:                     $car .= '?';
Chris@0:                 }
Chris@0: 
Chris@0:                 if ($strictLeadingDot) {
Chris@0:                     $car = '(?=[^\.])'.$car;
Chris@0:                 }
Chris@0: 
Chris@0:                 $car = '/(?:'.$car.')*';
Chris@0:                 $i += 2 + isset($glob[$i + 3]);
Chris@0: 
Chris@0:                 if ('/' === $delimiter) {
Chris@0:                     $car = str_replace('/', '\\/', $car);
Chris@0:                 }
Chris@0:             }
Chris@0: 
Chris@0:             if ($delimiter === $car || '.' === $car || '(' === $car || ')' === $car || '|' === $car || '+' === $car || '^' === $car || '$' === $car) {
Chris@0:                 $regex .= "\\$car";
Chris@0:             } elseif ('*' === $car) {
Chris@0:                 $regex .= $escaping ? '\\*' : ($strictWildcardSlash ? '[^/]*' : '.*');
Chris@0:             } elseif ('?' === $car) {
Chris@0:                 $regex .= $escaping ? '\\?' : ($strictWildcardSlash ? '[^/]' : '.');
Chris@0:             } elseif ('{' === $car) {
Chris@0:                 $regex .= $escaping ? '\\{' : '(';
Chris@0:                 if (!$escaping) {
Chris@0:                     ++$inCurlies;
Chris@0:                 }
Chris@0:             } elseif ('}' === $car && $inCurlies) {
Chris@0:                 $regex .= $escaping ? '}' : ')';
Chris@0:                 if (!$escaping) {
Chris@0:                     --$inCurlies;
Chris@0:                 }
Chris@0:             } elseif (',' === $car && $inCurlies) {
Chris@0:                 $regex .= $escaping ? ',' : '|';
Chris@0:             } elseif ('\\' === $car) {
Chris@0:                 if ($escaping) {
Chris@0:                     $regex .= '\\\\';
Chris@0:                     $escaping = false;
Chris@0:                 } else {
Chris@0:                     $escaping = true;
Chris@0:                 }
Chris@0: 
Chris@0:                 continue;
Chris@0:             } else {
Chris@0:                 $regex .= $car;
Chris@0:             }
Chris@0:             $escaping = false;
Chris@0:         }
Chris@0: 
Chris@0:         return $delimiter.'^'.$regex.'$'.$delimiter;
Chris@0:     }
Chris@0: }