Allow 2 threads

[libcds.git] / tools / brush_cds.pl

diff --git a/tools/brush_cds.pl b/tools/brush_cds.pl
index a53090bb8c2e578f7e16d30a418c6ec14a76dab5..4e67a4e82b48b61fe8a94ef0326f54b4d1efaa5e 100644 (file)
--- a/tools/brush_cds.pl
+++ b/tools/brush_cds.pl
@@ -2,7 +2,10 @@
 \r
 my $nTabsFound = 0;\r
 \r
-brush()        ;\r
+my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);\r
+$year += 1900;\r
+\r
+brush();\r
 \r
 print "Tabs found: $nTabsFound\n" ;\r
 print "Done\n" ;\r
@@ -13,9 +16,7 @@ sub brush()
 {\r
        processDir( "../cds" ) ;\r
        processDir( "../src" ) ;\r
-       processDir( "../tests/test-hdr" ) ;\r
-       processDir( "../tests/unit" ) ;\r
-       processDir( "../tests/cppunit" ) ;\r
+       processDir( "../test" ) ;\r
 }\r
 \r
 sub processDir( $ )\r
@@ -29,35 +30,35 @@ sub processDir( $ )
        \r
        foreach my $file ( @files ) {\r
                if ( -d "$dirName/$file" ) {\r
-                       processDir("$dirName/$file")    ;\r
+                       processDir("$dirName/$file");\r
                }\r
                elsif ( $file =~ /\.(h|cpp)$/ ) {\r
-                       processFile( "$dirName/$file" ) ;\r
+                       processFile( "$dirName/$file" );\r
                }\r
        }\r
 }\r
 \r
 sub processFile( $ ) \r
 {\r
-       my $file = shift        ;\r
+       my $file = shift;\r
 \r
-       \r
        if ( open( my $fh, $file )) {\r
-               binmode $fh     ;\r
-               my $str = ''            ;\r
+               #binmode $fh    ;\r
+               my $str = '';\r
                while (<$fh>) {\r
-                       $nTabsFound += $_ =~ s/\t/    /g;\r
-                       $_ =~ s/\s+$//  ;\r
-                       $_ =~ s/\s+;$/;/;\r
-                       $str .= $_      ;\r
-                       $str .= "\n"    ;\r
+            $nTabsFound += $_ =~ s/\t/    /g;\r
+            $_ =~ s/\s+$//;\r
+            $_ =~ s/\s+;$/;/;\r
+            $_ =~ s/\)\s+\)/\)\)/g;\r
+            $str .= $_      ;\r
+            $str .= "\n"    ;\r
                }\r
-               close $fh       ;\r
+               close $fh;\r
                \r
                if ( open( my $fh, ">$file" )) {\r
-                       binmode $fh     ;\r
-                       print $fh $str  ;\r
-                       close $fh               ;\r
+                       #binmode $fh;\r
+                       print $fh $str;\r
+                       close $fh;\r
                }\r
        }\r
 }\r