private static function parse_package($package_root_path, $base_dir, $package, &$tgz_filename)
{
$tgz_filename = File::absolute(self::$tgz_dir, str_replace("/", "_", $package) . ".tgz");
if (is_file($tgz_filename)) {
return true;
}
$package_name = basename($base_dir);
$search_path = File::absolute($base_dir, preg_replace("/^" . $package_name . "\\//", "", $package));
$base_name = basename($search_path);
if (is_file($search_path . ".php")) {
$isdir = is_dir($search_path);
$tar = File::pack($base_dir, $search_path . ".php", $package_root_path, !$isdir);
if ($isdir) {
$tar .= File::pack($base_dir, $search_path, $package_root_path);
} else {
$parent_dir = basename(dirname($search_path));
$parent_search = dirname(dirname($search_path)) . "/" . $parent_dir . ".php";
if (is_file($parent_search)) {
$tar .= File::pack($base_dir, $parent_search, $package_root_path);
}
}
File::gzwrite($tgz_filename, $tar);
return true;
} else {
if (is_file($search_path . "/" . $base_name . ".php")) {
File::tgz($tgz_filename, $base_dir, $search_path, $package_root_path);
return true;
}
}
return false;
}
