function xautoload_DirScanner::scan in X Autoload 7

Same name and namespace in other branches

1. 6 xautoload.module \xautoload_DirScanner::scan()

File

lib/DirScanner.php, line 20

Class

xautoload_DirScanner

Searches a directory for files that follow the xautoload naming scheme. Actually, this only works in D6 (yet), but we keep this file around for easier porting between the D6 and the D7 version of xautoload.

Code

function scan($dir, $prefix) {
  foreach (scandir($dir) as $candidate) {
    if ($candidate == '.' || $candidate == '..') {
      continue;
    }
    $path = $dir . '/' . $candidate;

    // TODO: Strict checking for valid identifier strings
    if (preg_match('#^(.+)\\.inc$#', $candidate, $m)) {
      if (is_file($path)) {
        $name = $prefix . '_' . $m[1];
        $this->locations[$name] = $path;
      }
    }
    elseif (preg_match('#^(.+)$#', $candidate, $m)) {
      if (is_dir($path)) {
        $this
          ->scan($path, $prefix . '_' . $candidate);
      }
    }
  }
}