fixed adding file problem

[c11concurrency-benchmarks.git] / gdax-orderbook-hpp / demo / dependencies / libcds-2.3.2 / tools / brush_cds.pl

diff --git a/gdax-orderbook-hpp/demo/dependencies/libcds-2.3.2/tools/brush_cds.pl b/gdax-orderbook-hpp/demo/dependencies/libcds-2.3.2/tools/brush_cds.pl
new file mode 100644 (file)
index 0000000..4e67a4e
--- /dev/null
+++ b/gdax-orderbook-hpp/demo/dependencies/libcds-2.3.2/tools/brush_cds.pl
@@ -0,0 +1,67 @@
+#!/usr/bin/perl\r
+\r
+my $nTabsFound = 0;\r
+\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
+exit ;\r
+\r
+sub brush() \r
+{\r
+       processDir( "../cds" ) ;\r
+       processDir( "../src" ) ;\r
+       processDir( "../test" ) ;\r
+}\r
+\r
+sub processDir( $ )\r
+{\r
+       my $dirName = shift ;\r
+       print "Process $dirName directory...\n";\r
+       \r
+       opendir(my $dh, $dirName) || die "can't opendir $dirName: $!";\r
+    my @files = grep { /^[^\.]/ } readdir($dh);\r
+    closedir $dh;\r
+       \r
+       foreach my $file ( @files ) {\r
+               if ( -d "$dirName/$file" ) {\r
+                       processDir("$dirName/$file");\r
+               }\r
+               elsif ( $file =~ /\.(h|cpp)$/ ) {\r
+                       processFile( "$dirName/$file" );\r
+               }\r
+       }\r
+}\r
+\r
+sub processFile( $ ) \r
+{\r
+       my $file = shift;\r
+\r
+       if ( open( my $fh, $file )) {\r
+               #binmode $fh    ;\r
+               my $str = '';\r
+               while (<$fh>) {\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
+               \r
+               if ( open( my $fh, ">$file" )) {\r
+                       #binmode $fh;\r
+                       print $fh $str;\r
+                       close $fh;\r
+               }\r
+       }\r
+}\r
+\r
+\r
+\r