\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
{\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
\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