function getInstallOrder(Tiki_Profile $profile)
{
// Obtain the list of all required profiles
$dependencies = $profile->getRequiredProfiles(true);
$dependencies[$profile->url] = $profile;
$referenced = array();
$knownObjects = array();
foreach (Tiki_Profile_Object::getNamedObjects() as $o) {
$knownObjects[] = Tiki_Profile_Object::serializeNamedObject($o);
}
// Build the list of dependencies for each profile
$short = array();
foreach ($dependencies as $url => $profile) {
$short[$url] = array();
foreach ($profile->getRequiredProfiles() as $u => $p) {
$short[$url][] = $u;
}
foreach ($profile->getNamedObjects() as $o) {
$knownObjects[] = Tiki_Profile_Object::serializeNamedObject($o);
}
foreach ($profile->getReferences() as $o) {
$referenced[] = Tiki_Profile_Object::serializeNamedObject($o);
}
if (!$this->isInstallable($profile)) {
return false;
}
}
// Make sure all referenced objects actually exist
$remain = array_diff($referenced, $knownObjects);
if (!empty($remain)) {
throw new Exception("Unknown objects are referenced: " . implode(', ', $remain));
}
// Build the list of packages that need to be installed
$toSequence = array();
foreach ($dependencies as $url => $profile) {
if (!$this->isInstalled($profile)) {
$toSequence[] = $url;
}
}
// Order the packages to make sure all dependencies are met
$toInstall = array();
$counter = 0;
while (count($toSequence)) {
// If all packages were tested and no order was found, exit
// Probably means there is a circular dependency
if ($counter++ > count($toSequence) * 2) {
throw new Exception("Profiles could not be ordered: " . implode(", ", $toSequence));
}
$url = reset($toSequence);
// Remove packages that are already scheduled or installed from dependencies
$short[$url] = array_diff($short[$url], array_keys($this->installed), $toInstall);
$element = array_shift($toSequence);
if (count($short[$url])) {
$toSequence[] = $element;
} else {
$counter = 0;
$toInstall[] = $element;
}
}
$final = array();
// Perform the actual install
foreach ($toInstall as $url) {
$final[] = $dependencies[$url];
}
return $final;
}
