From 0da02e6bbbc7ce188c1f2fc33172463d7d1bc2e5 Mon Sep 17 00:00:00 2001 From: schodet Date: Sun, 4 Jul 2004 19:53:58 +0000 Subject: Amélioration du support des macros. Bug dans les fin de commentaire. --- d/dev/sys/lampion/scripts/extractdoc | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) (limited to 'd/dev/sys') 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 (<>); } } -- cgit v1.2.3