projects
/
libcds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Adds RigtorpSPSC test case
[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
\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
print "Tabs found: $nTabsFound\n" ;
\r
print "Done\n" ;
\r
@@
-13,9
+16,7
@@
sub brush()
{
\r
processDir( "../cds" ) ;
\r
processDir( "../src" ) ;
\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
\r
sub processDir( $ )
\r
@@
-29,35
+30,35
@@
sub processDir( $ )
\r
foreach my $file ( @files ) {
\r
if ( -d "$dirName/$file" ) {
\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
}
\r
elsif ( $file =~ /\.(h|cpp)$/ ) {
\r
- processFile( "$dirName/$file" )
;
\r
+ processFile( "$dirName/$file" );
\r
}
\r
}
\r
}
\r
\r
sub processFile( $ )
\r
{
\r
}
\r
}
\r
}
\r
\r
sub processFile( $ )
\r
{
\r
- my $file = shift
;
\r
+ my $file = shift;
\r
\r
\r
-
\r
if ( open( my $fh, $file )) {
\r
if ( open( my $fh, $file )) {
\r
-
binmode $fh
;
\r
- my $str = ''
;
\r
+
#binmode $fh
;
\r
+ my $str = '';
\r
while (<$fh>) {
\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
}
\r
- close $fh
;
\r
+ close $fh;
\r
\r
if ( open( my $fh, ">$file" )) {
\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
}
\r
}
\r
}
\r