static function __static()
{
xp::$loader = new self();
// Scan include-path, setting up classloaders for each element
foreach (xp::$classpath as $element) {
if ('' === $element) {
continue;
} else {
if ('!' === $element[0]) {
$before = TRUE;
$element = substr($element, 1);
} else {
$before = FALSE;
}
}
$resolved = realpath($element);
if (is_dir($resolved)) {
$cl = FileSystemClassLoader::instanceFor($resolved, FALSE);
} else {
if (is_file($resolved)) {
$cl = ArchiveClassLoader::instanceFor($resolved, FALSE);
} else {
if ('/' !== $element[0] && ':' !== $element[1]) {
// If not fully qualified
$element .= ' (in ' . getcwd() . ')';
}
xp::error('[bootstrap] Classpath element [' . $element . '] not found');
}
}
isset(self::$delegates[$cl->instanceId()]) || self::registerLoader($cl, $before);
}
}
function runnable()
{
$p = new ParamString();
$class = xp::reflect(basename($p->value(0), '.class.php'));
$target = array($class, 'main');
if (!is_callable($target)) {
xp::error('Target ' . $class . '::main() is not runnable');
// Bails out
}
xp::$cn[$class] = 'Runnable$' . $class;
exit(call_user_func($target, $p));
}
function __estrict($code, $msg, $file, $line)
{
if (0 == error_reporting()) {
return;
}
switch ($msg) {
case 1 == preg_match('/^Undefined (offset|variable|index)/', $msg):
case 1 == preg_match('/^Use of undefined constant/', $msg):
case 1 == preg_match('/to string conversion$/', $msg):
case 1 == preg_match('/^Missing argument/', $msg):
case 1 == preg_match('/^Illegal string offset/', $msg):
case 1 == preg_match('/^Illegal offset type/', $msg):
xp::error(xp::stringOf(new Error('[strict] "' . $msg . '" at ' . $file . ':' . $line)));
// Bails
// Bails
default:
__error($code, $msg, $file, $line);
}
}
}
return sprintf('%u', ord($id[0]) << 24 | ($s['dev'] & 0xff) << 16 | $s['ino'] & 0xffff);
}
}
// }}}
// {{{ internal void unlock(void)
// Shutdown function
function __unlock()
{
if (isset($_SERVER['sync'])) {
shmop_delete($_SERVER['sync']);
shmop_close($_SERVER['sync']);
unset($_SERVER['sync']);
}
}
// }}}
if (!extension_loaded('shmop')) {
xp::error('[sapi::synchronized] Shmop extension not available');
// Bails out
}
$identifier = ftok($_SERVER['argv'][0], 'x');
if (!($shm = shmop_open($identifier, 'n', 0664, 0xa))) {
$shm = shmop_open($identifier, 'a', 0, 0);
$pid = shmop_read($shm, 0x0, 0xa);
shmop_close($shm);
xp::error(sprintf('[sapi::synchronized] Already running under pid %d [key=%s]', $pid, $identifier));
// Bails out
}
shmop_write($shm, getmypid(), 0x0);
$_SERVER['sync'] = $shm;
register_shutdown_function('__unlock');
function loadClass0($class)
{
$name = strtr($class, '.', '\\');
if (isset(xp::$cl[$class])) {
return $name;
}
foreach (xp::$classpath as $path) {
// We rely on paths having been expanded including a trailing directory separator
// character inside bootstrap(). This way, we can save testing for whether the path
// entry is a directory with file system stat() calls.
if (DIRECTORY_SEPARATOR === $path[strlen($path) - 1]) {
$f = $path . strtr($class, '.', DIRECTORY_SEPARATOR) . xp::CLASS_FILE_EXT;
$cl = 'lang.FileSystemClassLoader';
} else {
$f = 'xar://' . $path . '?' . strtr($class, '.', '/') . xp::CLASS_FILE_EXT;
$cl = 'lang.archive.ArchiveClassLoader';
}
if (!file_exists($f)) {
continue;
}
// Load class
xp::$cl[$class] = $cl . '://' . $path;
xp::$cll++;
$r = (include $f);
xp::$cll--;
if (false === $r) {
unset(xp::$cl[$class]);
continue;
}
// Register class name and call static initializer if available
method_exists($name, '__static') && (xp::$cli[] = [$name, '__static']);
if (0 === xp::$cll) {
$invocations = xp::$cli;
xp::$cli = [];
foreach ($invocations as $inv) {
$inv($name);
}
}
return $name;
}
xp::error('Cannot bootstrap class ' . $class . ' (include_path= ' . get_include_path() . ')');
}
static function sapi()
{
foreach ($a = func_get_args() as $name) {
foreach (xp::$classpath as $path) {
$filename = 'sapi' . DIRECTORY_SEPARATOR . strtr($name, '.', DIRECTORY_SEPARATOR) . '.sapi.php';
if (is_dir($path) && file_exists($f = $path . DIRECTORY_SEPARATOR . $filename)) {
require_once $f;
continue 2;
} else {
if (is_file($path) && file_exists($f = 'xar://' . $path . '?' . strtr($filename, DIRECTORY_SEPARATOR, '/'))) {
require_once $f;
continue 2;
}
}
}
xp::error('Cannot open SAPI ' . $name . ' (include_path=' . get_include_path() . ')');
}
xp::$registry['sapi'] = $a;
}
