]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
Normalize output: strip double spaces, etc.
authorwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Wed, 24 Feb 1999 11:56:38 +0000 (11:56 +0000)
committerwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Wed, 24 Feb 1999 11:56:38 +0000 (11:56 +0000)
git-svn-id: https://svn.dealii.org/trunk@888 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/deal.II/Make_forward_declarations

index 5c8ddbe9564ea15924622b09dba1bec7d4af4d15..504c4a1bcb1c468618280942cd1d32ee6198437d 100644 (file)
@@ -57,8 +57,12 @@ sub parse_class_declarations {
            # we look for declarations, where after the name comes a colon
            # or an open-brace, maybe also a semicolon or just nothing
            if (($rest =~ /^\s*[:\{;]/) || ($rest =~ /^\s*$/)) {
-#              print "$_";
-               print "$basepart $name;\n";
+               $declaration = $basepart . " " . $name;
+               # strip double spaces etc.
+               $declaration =~ s/\s\s+/ /g;
+               $declaration =~ s/^\s+//g;
+               $declaration =~ s/\s+$//g;
+               print $declaration, ";\n";
            }
        }
     }

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.