From: wolf Date: Wed, 24 Feb 1999 11:56:38 +0000 (+0000) Subject: Normalize output: strip double spaces, etc. X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0ae4e73873e5a8ea62e59226ba70a10c89854c1a;p=dealii-svn.git Normalize output: strip double spaces, etc. git-svn-id: https://svn.dealii.org/trunk@888 0785d39b-7218-0410-832d-ea1e28bc413d --- diff --git a/deal.II/deal.II/Make_forward_declarations b/deal.II/deal.II/Make_forward_declarations index 5c8ddbe956..504c4a1bcb 100644 --- a/deal.II/deal.II/Make_forward_declarations +++ b/deal.II/deal.II/Make_forward_declarations @@ -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"; } } }