Doc. system: fix semicolon handling

No need for the hack in extracting loop, now put into formatting.

Fix the regexp in formatting part.

diff --git a/build/doc-extract b/build/doc-extract
index 5373a5a2898eba9e8d8966ec0a55a134a7589d92..b0c47df5b0f23af8df8e4d90f12a8f5d1e9745b1 100755 (executable)
--- a/build/doc-extract
+++ b/build/doc-extract
@@ -50,7 +50,7 @@ sub formatNote( $$ ) {
        chomp $head;
        print OUT "[[auto_$id]]\n";
         my( $type, $semicolon, $name ) = detect( $head );
-        $head =~ s/;?\s+$/;/ if( $semicolon );
+        $head =~ s/;?\s*$/;/ if( $semicolon );
        if( $type eq 'function' ) {
                print OUT "!!f!$head!!!\n\n";
        } else {
@@ -107,8 +107,6 @@ sub process( $ ) {
                                        s/^\s*\s?//;
                                        s/\/\/.*//;
                                        s/\/\*.*?\*\///gs;
-                                       s/([;{]).*/";"x length( $1 )/e;
-                                       s/\)\s*;$/);/;
                                        formatNote( $_, $buff );
                                        $head = undef;
                                        $buff = undef;
@@ -126,8 +124,6 @@ sub process( $ ) {
                                if( $head =~ /\(/ || $head !~ /{/ ) {
                                        $head =~ s/^\s*//;
                                        $head =~ s/\/\*.*?\*\///gs;
-                                       $head =~ s/([;{]).*/";"x length( $1 )/e;
-                                       $head =~ s/\)\s*;$/);/;
                                        formatNote( $head, $buff );
                                        $head = undef;
                                        $buff = undef;