X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-http;a=blobdiff_plain;f=funcsummary.php;h=f4830e022223a79d2211c7b9f62fadc247b3e2ad;hp=dad2f5bb0cf989a4fcb2dd4d715362ad13946034;hb=39feb7a7e30bb4b393a6f76aa2f35d4e9275523e;hpb=7f914f24a4276b5c3489d410814f8d1125c8264f diff --git a/funcsummary.php b/funcsummary.php index dad2f5b..f4830e0 100644 --- a/funcsummary.php +++ b/funcsummary.php @@ -14,11 +14,18 @@ function ff($t) { $t = preg_replace('/^ \* /m', '', trim($t, "*/ \n")); $t = preg_replace_callback('/(\<\?php.*?\?\>)/s', 'hl', $t); - $t = nl2br(preg_replace('/\n *\* */', "\n", $t)); + $t = str_replace("
\n
\n", "

\n

", nl2br(preg_replace('/\n *\* */', "\n", $t))); $t = preg_replace('/(\
\n)+\(\
\n)+/', '

', $t);
     $t = preg_replace('/(\
\n)+\<\/pre\>(\
\n)+/', '

', $t); + $t = str_replace("
\n", "", $t); return sprintf('

%s

', ltrim($t, ' *')); } +function e($s) +{ + $a = func_get_args(); + array_unshift($a, STDERR); + call_user_func_array('fprintf', $a); +} $preface = <<<_PREFACE @@ -66,6 +73,26 @@ $preface = <<<_PREFACE p br, pre code br { display: block; } + .toc { + position: absolute; + top: 10px; + right: 10px; + width: 300px; + height: 95%%; + overflow: scroll; + font-size: .9em; + } + body>div.toc { + position: fixed; + } + .toc ul { + padding-left: 15px; + margin-left: 0; + } + .toc li { + padding: 0; + margin: 0; + } @@ -82,24 +109,52 @@ if ($_SERVER['argc'] < 2) { die("Usage: {$_SERVER['argv'][0]} [ ...]\n"); } +$TOC = array(); + printf($preface, basename(getcwd())); -foreach (array_slice($_SERVER['argv'], 1) as $f) { - if (mf($f, $m)) { - printf("

%s

\n", basename($f)); - foreach ($m[1] as $i => $p) { - if ($o = preg_match('/^(.*), (.*)$/', $m[4][$i], $n)) { - if ($n[2] == '__construct') { - printf("

%s

\n", $n[1], $n[1]); - } +foreach (array_slice($_SERVER['argv'], 1) as $fp) { + foreach (glob($fp) as $f) { + + if (mf($f, $m)) { + e("\nAnalyzing %s\n", basename($f)); + printf("

%s

\n", basename($f), basename($f)); + foreach ($m[1] as $i => $p) { + e("Documenting $p\n"); + if ($o = preg_match('/^(.*), (.*)$/', $m[4][$i], $n)) { + if ($n[2] == '__construct') { + printf("

%s

\n", $n[1], $n[1]); + } + $TOC[basename($f)][$n[1]][$n[2]] = $n[1].'::'.$n[2].'()'; + printf("%s\n", 3, $n[1].'_'.$n[2], $p, 3); + } else { + $TOC[basename($f)][$m[4][$i]] = $m[4][$i].'()'; + printf("%s\n", 2, $m[4][$i], $p, 2); + } + print ff($m[3][$i]) ."\n"; } - printf("%s\n%s\n", - $o?3:2, $o?$n[1].'_'.$n[2]:$m[4][$i], $p, $o?3:2, ff($m[3][$i])); + print "
\n"; } - print "
\n"; } } +printf("
Table of Contents\n\n
\n"); printf($footer, date('r')); +e("\nDone\n"); ?>