From 0035c055fd147a2f7a396cbeadd21600b72d6c5b Mon Sep 17 00:00:00 2001 From: Michal Vaner Date: Sun, 15 Feb 2009 13:10:00 +0100 Subject: [PATCH] doc. system: Allow single-line comments before def --- build/doc-extract | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/build/doc-extract b/build/doc-extract index 576ad022..a7aabe4f 100755 --- a/build/doc-extract +++ b/build/doc-extract @@ -159,9 +159,12 @@ sub process( $$ ) { $struct = $sdepth = 1; } } elsif( ( $buff ) = ( $line =~ /\/\*\*\*(.*)\*\*\*\// ) ) { - $buff =~ s/\s?//; + $buff =~ s/^\s?//; print OUT "$buff\n\n"; $buff = undef; + } elsif( ( $buff ) = ( $line =~ /^\s*\/\*\*(.*)\*\*\// ) ) { + $buff =~ s/^\s*//; + $buff .= "\n"; } elsif( ( $head, $buff ) = ( $line =~ /^(.*)\/\*\*(.*)\*\*\// ) ) { $buff =~ s/^\s*//; $buff =~ s/\s*$//; -- 2.39.5