/**
* Constructor
*
* @param io.Folder folder
* @throws lang.IllegalArgumentException if the given folder does not exist
*/
public function __construct(Folder $folder)
{
if (!$folder->exists()) {
throw new IllegalArgumentException('Folder "' . $folder->getURI() . '" does not exist!');
}
$this->folder = $folder;
}
public static function cleanupSessionSavePath()
{
$f = new Folder(session_save_path());
while ($e = $f->getEntry()) {
if (0 === strncmp('sess_', $e, 5)) {
unlink($f->getURI() . $e);
}
}
}
/**
* Constructor
*
* @param io.Folder $folder
* @throws lang.IllegalArgumentException if the given folder does not exist or isn't in class path
*/
public function __construct(Folder $folder)
{
$path = $folder->getURI();
foreach (ClassLoader::getLoaders() as $cl) {
if ($cl instanceof FileSystemClassLoader && 0 === strncmp($cl->path, $path, strlen($cl->path))) {
$this->loader = $cl;
return;
}
}
throw new IllegalArgumentException($folder->toString() . ($folder->exists() ? ' is not in class path' : ' does not exist'));
}
/**
* Gets base folder
*
* @param io.Folder
*/
public function setBase(Folder $base)
{
$this->base = new Folder($base, '..');
// Scan base path. FIXME: Refactor this to use lang.ClassLoader
// instead of duplication its sourcecode here
foreach (array_filter(explode(PATH_SEPARATOR, scanpath(array($base->getURI()), getenv('HOME')))) as $element) {
$resolved = realpath($element);
if (is_dir($resolved)) {
$this->cl[] = \lang\FileSystemClassLoader::instanceFor($resolved, false);
} else {
if (is_file($resolved)) {
$this->cl[] = \lang\archive\ArchiveClassLoader::instanceFor($resolved, false);
}
}
}
}
/**
* Execute this action
*
* @param string[] $args command line args
* @return int exit code
*/
public function perform($args)
{
if (empty($args)) {
Console::$err->writeLine('*** Missing argument #1: Module name');
return 2;
}
sscanf($args[0], '%[^@]@%s', $name, $version);
$module = Module::valueOf($name);
$cwd = new Folder('.');
$base = new Folder($cwd, $module->vendor);
// No version supplied -> check installation. If the module is already
// installed, this is "xpi upgrade"'s job. If we have a version, the user
// wants to install in parallel, so pass.
if (null === $version) {
$f = new File($base, $module->name . '.json');
if ($f->exists()) {
Console::$err->writeLine('*** Not changing existing ', $module, '. Use "xpi upgrade"');
return 1;
}
}
// Search for module
$request = create(new RestRequest('/vendors/{vendor}/modules/{module}'))->withSegment('vendor', $module->vendor)->withSegment('module', $module->name);
try {
$info = $this->api->execute($request)->data();
uksort($info['releases'], function ($a, $b) {
return version_compare($a, $b, '<');
});
} catch (RestException $e) {
Console::$err->writeLine('*** Cannot find module ', $module, ': ', $e->getMessage());
return 3;
}
// Check newest version
if (null === $version) {
if (empty($info['releases'])) {
Console::$err->writeLine('*** No releases yet for ', $module);
return 1;
}
$version = key($info['releases']);
$this->cat && $this->cat->info('Using latest release', $version);
} else {
if (':' === $version[0]) {
$this->cat && $this->cat->info('Using development version', $version);
} else {
if (!isset($info['releases'][$version])) {
Console::$err->writeLine('*** No such release ', $version, ' for ', $module, ', have ', $info['releases']);
return 1;
}
$this->cat && $this->cat->info('Using version', $version);
}
}
// Determine origin and target
if (':' === $version[0]) {
$branch = substr($version, 1);
$target = new Folder($base, $module->name . '@' . $branch);
$origin = new GitHubArchive($module->vendor, $module->name, $branch);
} else {
$target = new Folder($base, $module->name . '@' . $version);
$origin = new XarRelease($this->api, $module->vendor, $module->name, $version);
}
if ($target->exists()) {
Console::writeLine($module, ' already exists in ', $target);
} else {
Console::writeLine($module, ' -> ', $target);
try {
// Create and fetch into
$target->create(0755);
$origin->fetchInto($target);
// Save module meta data
unset($info['releases']);
self::$json->encodeTo($info, create(new File($base, $module->name . '.json'))->getOutputStream());
} catch (\lang\Throwable $e) {
Console::writeLine('*** ', $e);
$target->unlink();
return 2;
}
}
// Deselect any previously selected version
foreach (new FilteredIOCollectionIterator(new FileCollection($cwd), new NameMatchesFilter('#^\\.' . $module->vendor . '\\.' . $module->name . '.*\\.pth#')) as $found) {
$pth = new File($found->getURI());
Console::writeLine('Deselect ', $pth);
$pth->unlink();
}
// Rebuild paths based on .pth files found in newly selected
$pth = new File('.' . $module->vendor . '.' . strtr($target->dirname, DIRECTORY_SEPARATOR, '.') . '.pth');
$out = $pth->getOutputStream();
$base = strtr(substr($target->getURI(), strlen($cwd->getURI())), DIRECTORY_SEPARATOR, '/');
Console::writeLine('Select ', $pth);
foreach (new FilteredIOCollectionIterator(new FileCollection($target), new ExtensionEqualsFilter('.pth')) as $found) {
$r = new StringReader($found->getInputStream());
while (null !== ($line = $r->readLine())) {
if ('' === $line || '#' === $line[0]) {
continue;
} else {
if ('!' === $line[0]) {
$out->write('!' . $base . substr($line, 1) . "\n");
} else {
$out->write($base . $line . "\n");
}
}
}
}
$out->close();
Console::writeLine('Done');
return 0;
}
public function rooted_folder()
{
$rooted = new Folder('/rooted');
$this->assertEquals(substr($rooted->getURI(), 0, -1), (new Path($rooted))->toString());
}
public function parentDirectory()
{
$f = new Folder('..');
$this->assertEquals($this->normalize(realpath('..')), $f->getURI());
}
/**
* Opens a subfolder of the current folder and returns
* an object of that mailbox.
*
* @param string foldername
* @return peer.mail.MailFolder folder;
*/
public function getFolder($name)
{
$f = new Folder($this->_folder->getURI() . DIRECTORY_SEPARATOR . $name);
if (!$f->exists()) {
throw new \peer\mail\MessagingException('Maildir does not exist: ' . $f->getURI());
}
$mf = new \peer\mail\MailFolder($this, $name);
return $mf;
}
public function pathClassCanBeUsedAsArg()
{
$f = new Folder(new Path($this->temp));
$this->assertEquals($this->temp, $f->getURI());
}
