X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-http;a=blobdiff_plain;f=funcsummary.php;h=27b602d95fa0e471ccacc664ec263f6b1f38d570;hp=b81982748e12c989a0187149366bfdd1fc4b5ab6;hb=refs%2Fheads%2Fv1.7.x;hpb=1fd7e6ceece2684e11cf9533e22dfb12a1b80f0e
diff --git a/funcsummary.php b/funcsummary.php
index b819827..27b602d 100644
--- a/funcsummary.php
+++ b/funcsummary.php
@@ -1,3 +1,4 @@
+#! /usr/bin/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
@@ -29,13 +37,20 @@ $preface = <<<_PREFACE
font-size: 80%%;
font-family: sans-serif;
}
- h2 {
+ h2, h3 {
color: #339;
clear: both;
font-size: 1.2em;
background: #ffc;
padding: .2em;
}
+ h2.o {
+ color: #66b;
+ clear: both;
+ font-size: 1.3em;
+ background: #f0f0f0;
+ padding: .2em;
+ }
p {
margin-left: 1em;
}
@@ -59,6 +74,29 @@ $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;
+ }
+ .tocfile {
+ font-weight: bold;
+ }
@@ -75,19 +113,59 @@ 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) {
- printf("%s
\n%s\n",
- str_replace(', ', '_', $m[4][$i]), $p, ff($m[3][$i]));
+$seen = array();
+foreach (array_slice($_SERVER['argv'], 1) as $fp) {
+ foreach (glob($fp) as $f) {
+ if (isset($seen[$f])) {
+ continue;
+ } else {
+ $seen[$f] = true;
+ }
+ if (mf($f, $m)) {
+ $c = null;
+ 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[1] != $c) {
+ $c = $n[1];
+ 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";
+ }
+ print "
\n";
+ }
+ }
+}
+printf("Table of Contents\n
\n");
+foreach ($TOC as $file => $f) {
+ printf("- %s\n
\n", $file, $file);
+ foreach ($f as $cof => $met) {
+ if (is_array($met)) {
+ foreach ($met as $id => $m) {
+ printf("- %s
\n", $cof, $id, $m);
+ }
+ } else {
+ printf("- %s\n", $cof, $cof);
}
- print "
\n";
+ printf(" \n");
}
+ printf("
\n \n");
}
+printf("
\n
\n");
printf($footer, date('r'));
+e("\nDone\n");
?>