XCache is a fast, stable PHP opcode cacher that has been proven and is now running on production servers under high load.
https://xcache.lighttpd.net/
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
315 lines
7.0 KiB
315 lines
7.0 KiB
<?php |
|
|
|
error_reporting(E_ALL); |
|
define('REQUEST_TIME', time()); |
|
|
|
class Cycle |
|
{ |
|
var $values; |
|
var $i; |
|
var $count; |
|
|
|
function Cycle($v) |
|
{ |
|
$this->values = func_get_args(); |
|
$this->i = -1; |
|
$this->count = count($this->values); |
|
} |
|
|
|
function next() |
|
{ |
|
$this->i = ($this->i + 1) % $this->count; |
|
return $this->values[$this->i]; |
|
} |
|
|
|
function cur() |
|
{ |
|
return $this->values[$this->i]; |
|
} |
|
|
|
function reset() |
|
{ |
|
$this->i = -1; |
|
} |
|
} |
|
|
|
class XcacheCoverageViewer |
|
{ |
|
var $syntaxhiglight = true; |
|
var $usecache = false; |
|
var $include_paths = array(); |
|
var $exclude_paths = array(); |
|
var $charset = 'UTF-8'; |
|
|
|
function XcacheCoverageViewer() |
|
{ |
|
$this->datadir = ini_get('xcache.coveragedump_directory'); |
|
|
|
// copy config |
|
foreach (array('charset', 'include_paths', 'exclude_paths', 'syntaxhiglight', 'usecache', 'datadir') as $k) { |
|
if (isset($GLOBALS['usecache'])) { |
|
$this->{$k} = $GLOBALS['usecache']; |
|
} |
|
} |
|
|
|
$this->datadir = preg_replace('!/$!', '', $this->datadir); |
|
$this->datadir_len = strlen($this->datadir); |
|
|
|
$this->path = isset($_GET['path']) ? $_GET['path'] : ''; |
|
$this->path = preg_replace('!\.{2,}!', '.', $this->path); |
|
$qsep = preg_quote(DIRECTORY_SEPARATOR, '!'); |
|
$this->path = preg_replace("![\\\\$qsep]{2,}!", DIRECTORY_SEPARATOR, $this->path); |
|
$this->path = preg_replace("!$qsep$!", '', $this->path); |
|
if ($this->path == '/') { |
|
$this->path = ''; |
|
} |
|
$this->outpath = $this->datadir . $this->path; |
|
} |
|
|
|
function main() |
|
{ |
|
$path = $this->path; |
|
|
|
if (is_dir($this->outpath)) { |
|
$action = 'dir'; |
|
$prefix_len = strlen($path) + 1; |
|
$dirinfo = $this->loadDir($this->outpath); |
|
if (!$this->usecache) { |
|
ksort($dirinfo['subdirs']); |
|
ksort($dirinfo['files']); |
|
} |
|
} |
|
else if (is_file($this->outpath . ".pcov")) { |
|
$action = 'file'; |
|
|
|
$dir = dirname($path); |
|
$filename = basename($path); |
|
|
|
$fileinfo = $this->loadCov($this->outpath . ".pcov"); |
|
|
|
$lines = file($path); |
|
// fix the tabs not in the middle |
|
foreach ($lines as $l => $line) { |
|
if (preg_match('!^(\\t*)([^\\t]+\\t.*)$!s', $line, $m)) { |
|
$lines[$l] = $m[1]; |
|
$chunks = explode("\t", $m[2]); |
|
for ($i = 0, $c = count($chunks) - 1; $i < $c; $i ++) { |
|
$lines[$l] .= $chunks[$i] . str_repeat(" ", 4 - (strlen($chunks[$i]) % 4)); |
|
} |
|
$lines[$l] .= $chunks[$c]; |
|
} |
|
} |
|
if ($this->syntaxhiglight) { |
|
$source = implode('', $lines); |
|
ob_start(); |
|
highlight_string($source); |
|
$lines = explode('<br />', str_replace("\n", "", ob_get_clean())); |
|
$last = array_pop($lines); |
|
$filecov = sprint_cov($fileinfo['cov'], $lines, false); |
|
$filecov .= $last; |
|
unset($source); |
|
} |
|
else { |
|
$filecov = sprint_cov($fileinfo['cov'], $lines); |
|
} |
|
|
|
list($tplfile, $tpllines, $tplcov) = $this->loadTplCov($fileinfo['cov'], substr($this->outpath, $this->datadir_len)); |
|
if ($tplfile) { |
|
$tplcov = sprint_cov($tplcov, $tpllines); |
|
unset($tpllines); |
|
} |
|
} |
|
else if (!$this->datadir) { |
|
$action = 'require xcache.coveragedump_directory'; |
|
} |
|
else { |
|
$action = "no data"; |
|
} |
|
|
|
include("coverager.tpl.php"); |
|
} |
|
|
|
function loadDir($outdir, $addtodo = null) |
|
{ |
|
if ($this->usecache) { |
|
$cachefile = $outdir . "/.pcovcache"; |
|
if (file_exists($cachefile)) { |
|
return unserialize(file_get_contents($cachefile)); |
|
} |
|
} |
|
$srcdir = substr($outdir, $this->datadir_len); |
|
|
|
$total = $hits = $todos = 0; |
|
$files = array(); |
|
$subdirs = array(); |
|
if (!isset($addtodo)) { |
|
if ($this->include_paths) { |
|
foreach ($this->include_paths as $p) { |
|
if (strncmp($p, $srcdir, strlen($p)) == 0) { |
|
$addtodo = true; |
|
break; |
|
} |
|
} |
|
} |
|
} |
|
if ($addtodo) { |
|
if ($this->exclude_paths) { |
|
foreach ($this->exclude_paths as $p) { |
|
if (strncmp($p, $srcdir, strlen($p)) == 0) { |
|
$addtodo = false; |
|
break; |
|
} |
|
} |
|
} |
|
} |
|
foreach (glob($outdir . "/*") as $outfile) { |
|
if (is_dir($outfile)) { |
|
$info = $this->loadDir($outfile, $addtodo); |
|
$srcfile = substr($outfile, $this->datadir_len); |
|
$subdirs += $info['subdirs']; |
|
$total += $info['total']; |
|
$hits += $info['hits']; |
|
$todos += $info['todos']; |
|
unset($info['subdirs']); |
|
$subdirs[$srcfile] = $info; |
|
} |
|
else if (substr($outfile, -5) == ".pcov") { |
|
// pass |
|
$info = $this->loadFile($outfile); |
|
$total += $info['total']; |
|
$hits += $info['hits']; |
|
$srcfile = substr($outfile, $this->datadir_len, -5); |
|
$files[$srcfile] = $info; |
|
} |
|
else { |
|
continue; |
|
} |
|
} |
|
if ($addtodo === true) { |
|
foreach (glob($srcdir . "/*") as $srcfile) { |
|
if (!isset($files[$srcfile]) && is_file($srcfile)) { |
|
$files[$srcfile] = array('total' => 0, 'hits' => 0); |
|
$todos ++; |
|
} |
|
else if (!isset($subdirs[$srcfile]) && is_dir($srcfile)) { |
|
$subdirs[$srcfile] = array('total' => 0, 'hits' => 0, 'todos' => 1, 'files' => 0, 'subdirs' => array()); |
|
$todos ++; |
|
} |
|
} |
|
} |
|
|
|
if ($this->usecache) { |
|
ksort($subdirs); |
|
ksort($files); |
|
} |
|
|
|
$info = array( |
|
'total' => $total, |
|
'hits' => $hits, |
|
'todos' => $todos, |
|
'files' => $files, |
|
'subdirs' => $subdirs, |
|
); |
|
|
|
if ($this->usecache) { |
|
$fp = fopen($cachefile, "wb"); |
|
fwrite($fp, serialize($info)); |
|
fclose($fp); |
|
} |
|
return $info; |
|
} |
|
|
|
function loadFile($file) |
|
{ |
|
if ($this->usecache) { |
|
$cachefile = $file . "cache"; |
|
if (file_exists($cachefile)) { |
|
return unserialize(file_get_contents($cachefile)); |
|
} |
|
} |
|
|
|
$info = $this->loadCov($file); //, $lines); |
|
unset($info['cov']); |
|
|
|
if ($this->usecache) { |
|
$fp = fopen($cachefile, "wb"); |
|
fwrite($fp, serialize($info)); |
|
fclose($fp); |
|
} |
|
return $info; |
|
} |
|
|
|
function loadCov($file)//, $lines) |
|
{ |
|
$total = $hits = 0; |
|
|
|
$cov = xcache_coverager_decode(file_get_contents($file)); |
|
|
|
return array('total' => count($cov) - 1, 'hits' => $cov[0], 'cov' => $cov); |
|
} |
|
|
|
function loadTplCov($cov, $ctpl) |
|
{ |
|
$tplinfofile = $ctpl . '.phpinfo'; |
|
|
|
if (!file_exists($tplinfofile)) { |
|
return; |
|
} |
|
|
|
$tplinfo = unserialize(file_get_contents($tplinfofile)); |
|
|
|
if (!isset($tplinfo['sourceFile'])) { |
|
return; |
|
} |
|
$tplfile = $tplinfo['sourceFile']; |
|
if (!isset($tplinfo['lineMap']) || !count($tplinfo['lineMap'])) { |
|
return; |
|
} |
|
|
|
$tpllines = file($tplfile); |
|
|
|
$dline = 0; |
|
$sline = 0; |
|
$tplcov = array(); |
|
foreach ($cov as $line => $times) { |
|
// find nearest line |
|
while ($dline < $line) { |
|
if ((list($dline, $sline) = each($tplinfo['lineMap'])) === false) { |
|
break 2; |
|
} |
|
} |
|
|
|
$tplcov[$sline] = $times; |
|
} |
|
return array($tplfile, $tpllines, $tplcov); |
|
} |
|
} |
|
|
|
function sprint_cov($cov, $lines, $encode = true) |
|
{ |
|
foreach ($lines as $l => $line) { |
|
$offs = $l + 1; |
|
if ($encode) { |
|
$line = str_replace("\n", "", htmlspecialchars($line)); |
|
} |
|
if (isset($cov[$offs])) { |
|
$lines[$l] = sprintf("<li class=\"line%sCov\"> %s\t%s</li>\n" |
|
, $cov[$offs] ? '' : 'No' |
|
, $cov[$offs] |
|
, $line); |
|
} |
|
else { |
|
$lines[$l] = "<li>\t$line</li>\n"; |
|
} |
|
} |
|
return implode('', $lines); |
|
} |
|
|
|
if (file_exists("config.php")) { |
|
include("config.php"); |
|
} |
|
|
|
$app = new XcacheCoverageViewer(); |
|
$app->main(); |
|
|
|
?>
|
|
|