summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xd/dev/sys/lampion/scripts/extractdoc18
1 files changed, 12 insertions, 6 deletions
diff --git a/d/dev/sys/lampion/scripts/extractdoc b/d/dev/sys/lampion/scripts/extractdoc
index 5d1c8ff..90992b7 100755
--- a/d/dev/sys/lampion/scripts/extractdoc
+++ b/d/dev/sys/lampion/scripts/extractdoc
@@ -12,11 +12,12 @@ while (<>)
INNER: {
do {
chomp;
- $stop = 1 if (/\*\//);
- s/^\/? *\*+ ?//;
- s/^ +/\t/;
+ last INNER if /^[ \t]*\*\/[ \t]*$/;
+ $stop = 1 if /\*\//;
+ s/^\/?[ \t]*\*+ ?//;
+ s/^[ \t]+/\t/;
s/^\t- *([^:-]+) *:/\t[$1]/;
- s/ *\*\///;
+ s/[ \t]*\*\///;
push @doc, $_;
last INNER if defined $stop;
} while (<>);
@@ -28,8 +29,13 @@ while (<>)
INNER: {
do {
chomp;
- push @def, $_;
- last unless /\\$/;
+ push @def, $_ . ' ';
+ if ($#def > 5)
+ {
+ push @def, '...';
+ last;
+ }
+ last unless /\\$/
} while (<>);
}
}