";
	echo $data;
	if ($html) echo "/
";
	}
}

//---------

public static function slowPath()
{
if ((getenv('PHK_DEBUG_SLOW_PATH')!==false)
	&& (!isset($GLOBALS['__PHK_SLOW_PATH'])))
	{
	$e=new \Exception();
	$GLOBALS['__PHK_SLOW_PATH']=$e->getTraceAsString();
	}
}

//-----
/**
* Sends an \Exception with a message starting with 'Format error'
*
* @param string $msg Message to send
* @return void
* @throws \Exception
*/

public static function formatError($msg)
{
throw new \Exception('Format error: '.$msg);
}

//---------------------------------
// Utility functions called by PHK\Mgr. When using the accelerator, this
// data is persistent. So, retrieving it to populate the cache can be done
// in PHP.

public static function getMinVersion($mnt,$caching)
{
return \PHK\Stream\Wrapper::getFile(false,\PHK\Mgr::commandURI($mnt
	,'magicField&name=mv'),$mnt,'magicField',array('name' => 'mv'),''
	,$caching);
}

public static function getOptions($mnt,$caching)
{
return unserialize(\PHK\Stream\Wrapper::getFile(false,\PHK\Mgr::sectionURI($mnt
	,'OPTIONS'),$mnt,'section',array('name' => 'OPTIONS'),'',$caching));
}

public static function getBuildInfo($mnt,$caching)
{
return unserialize(\PHK\Stream\Wrapper::getFile(false,\PHK\Mgr::sectionURI($mnt
	,'BUILD_INFO'),$mnt,'section',array('name' => 'BUILD_INFO'),'',$caching));
}

//---------------------------------

public static function callMethod($object,$method,$args)
{
// Special care to avoid endless loops

if (!method_exists($object,$method))
	throw new \Exception("$method: calling non existing method");

return call_user_func_array(array($object,$method),$args);
}

//---------------------------------

public static function runWebInfo($phk)
{
$phk->proxy()->crcCheck();	//-- check CRC before running webinfo
$phkw=new \PHK\Web\Info($phk);
$phkw->run();
}

//---------------------------------

public static function atomicWrite($path,$data)
{
$tmpf=tempnam(dirname($path),'tmp_');

if (file_put_contents($tmpf,$data)!=strlen($data))
	throw new \Exception($tmpf.": Cannot write");

// Windows does not support renaming to an existing file (looses atomicity)

if (self::envIsWindows()) @unlink($path);

if (!rename($tmpf,$path))
	{
	unlink($tmpf);
	throw new \Exception($path.': Cannot replace file');
	}
}

//---------------------------------
/**
* Computes a string uniquely identifying a given path on this host.
*
* Mount point unicity is based on a combination of device+inode+mtime.
*
* On systems which don't supply a valid inode number (eg Windows), we
* maintain a fake inode table, whose unicity is based on the path filtered
* through realpath(). It is not perfect because I am not sure that realpath
* really returns a unique 'canonical' path, but this is best solution I
* have found so far.
*
* @param string $path The path to be mounted
* @return string the computed mount point
* @throws \Exception
*/

private static $simul_inode_array=array();
private static $simul_inode_index=1;

public static function pathUniqueID($prefix,$path,&$mtime)
{
if (($s=@stat($path))===false) throw new \Exception("$path: File not found");

$dev=$s[0];
$inode=$s[1];
$mtime=$s[9];

if ($inode==0) // This system does not support inodes
	{
	$rpath=realpath($path);
	if ($rpath === false) throw new \Exception("$path: Cannot compute realpath");

	if (isset(self::$simul_inode_array[$rpath]))
		$inode=self::$simul_inode_array[$rpath];
	else
		{ // Create a new slot
		$inode=self::$simul_inode_index++;	
		self::$simul_inode_array[$rpath]=$inode;
		}
	}

return sprintf('%s_%X_%X_%X',$prefix,$dev,$inode,$mtime);
}

//---
} // End of class
//===========================================================================
} // End of class_exists
//===========================================================================
} // End of namespace
//===========================================================================
?>