Make tools directory, move some helper scripts to it
authorkhizmax <khizmax@gmail.com>
Thu, 18 Sep 2014 15:58:58 +0000 (19:58 +0400)
committerkhizmax <khizmax@gmail.com>
Thu, 18 Sep 2014 15:58:58 +0000 (19:58 +0400)
brush_cds.pl [deleted file]
make_docs.bat [deleted file]
tools/brush_cds.pl [new file with mode: 0644]
tools/make_docs.bat [new file with mode: 0644]

diff --git a/brush_cds.pl b/brush_cds.pl
deleted file mode 100644 (file)
index bd98cc0..0000000
+++ /dev/null
@@ -1,66 +0,0 @@
-#!/usr/bin/perl\r
-\r
-my $nTabsFound = 0;\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( "./tests/test-hdr" ) ;\r
-       processDir( "./tests/unit" ) ;\r
-       processDir( "./tests/cppunit" ) ;\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
-       \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
-                       $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
diff --git a/make_docs.bat b/make_docs.bat
deleted file mode 100644 (file)
index 2db6c01..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-rm -fr doc\r
-md doc\r
-set DOXYPRJ_ROOT=.\r
-%DOXYGEN_PATH%\bin\doxygen doxygen\cds.doxy > doxygen\doxygen.log 2>&1\r
-cp -f doxygen/index.html doc/index.html\r
-\r
diff --git a/tools/brush_cds.pl b/tools/brush_cds.pl
new file mode 100644 (file)
index 0000000..a53090b
--- /dev/null
@@ -0,0 +1,66 @@
+#!/usr/bin/perl\r
+\r
+my $nTabsFound = 0;\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( "../tests/test-hdr" ) ;\r
+       processDir( "../tests/unit" ) ;\r
+       processDir( "../tests/cppunit" ) ;\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
+       \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
+                       $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
diff --git a/tools/make_docs.bat b/tools/make_docs.bat
new file mode 100644 (file)
index 0000000..48bac73
--- /dev/null
@@ -0,0 +1,5 @@
+rm -fr doc\r
+md doc\r
+set DOXYPRJ_ROOT=.\r
+%DOXYGEN_PATH%\bin\doxygen ..\doxygen\cds.doxy > ..\doxygen\doxygen.log 2>&1\r
+cp -f ../doxygen/index.html ../doc/index.html\r