private static function getLeadingDir(string $pattern): string
  {
    $dir = $pattern;

    $pos = strpos($dir, '*');
    if ($pos!==false) $dir = substr($dir, 0, $pos);

    $pos = strpos($dir, '?');
    if ($pos!==false) $dir = substr($dir, 0, $pos);

    $pos = strrpos($dir, '/');
    if ($pos!==false)
    {
      $dir = substr($dir, 0, $pos);
    }
    else
    {
      $dir = '.';
    }

    return $dir;
  }