summaryrefslogtreecommitdiff
path: root/d
diff options
context:
space:
mode:
authorschodet2004-07-04 19:53:58 +0000
committerschodet2004-07-04 19:53:58 +0000
commit0da02e6bbbc7ce188c1f2fc33172463d7d1bc2e5 (patch)
treea03387052e88d066b270338110783f942dbafaa4 /d
parente1723d5bfbc8894874ea1aa5cf3cc100c626b9b4 (diff)
Amélioration du support des macros.
Bug dans les fin de commentaire.
Diffstat (limited to 'd')
-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 (<>);
}
}