X-Git-Url: http://plrg.eecs.uci.edu/git/?a=blobdiff_plain;f=tools%2Fbrush_cds.pl;h=4e67a4e82b48b61fe8a94ef0326f54b4d1efaa5e;hb=ab6c1cbb8e004cd509e2156e883ff067276ad06f;hp=a8ca3862021d746d6388f0c05d028ac585e2832f;hpb=cd515d6402be81b84e2eb0c9d4cf0a1ca9e4d95a;p=libcds.git diff --git a/tools/brush_cds.pl b/tools/brush_cds.pl index a8ca3862..4e67a4e8 100644 --- a/tools/brush_cds.pl +++ b/tools/brush_cds.pl @@ -16,9 +16,7 @@ sub brush() { processDir( "../cds" ) ; processDir( "../src" ) ; - processDir( "../tests/test-hdr" ) ; - processDir( "../tests/unit" ) ; - processDir( "../tests/cppunit" ) ; + processDir( "../test" ) ; } sub processDir( $ ) @@ -45,53 +43,20 @@ sub processFile( $ ) my $file = shift; if ( open( my $fh, $file )) { - binmode $fh ; + #binmode $fh ; my $str = ''; while (<$fh>) { - if ( /^\/\/\$\$CDS-header\$\$/ ) { - $str .= -"/* - This file is a part of libcds - Concurrent Data Structures library - - (C) Copyright Maxim Khizhinsky (libcds.dev\@gmail.com) 2006-$year - - Source code repo: http://github.com/khizmax/libcds/ - Download: http://sourceforge.net/projects/libcds/files/ - - Redistribution and use in source and binary forms, with or without - modification, are permitted provided that the following conditions are met: - - * Redistributions of source code must retain the above copyright notice, this - list of conditions and the following disclaimer. - - * Redistributions in binary form must reproduce the above copyright notice, - this list of conditions and the following disclaimer in the documentation - and/or other materials provided with the distribution. - - THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS \"AS IS\" - AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE - DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE - FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR - SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER - CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, - OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE - OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -*/\n" ; - } - else { - $nTabsFound += $_ =~ s/\t/ /g; - $_ =~ s/\s+$// ; - $_ =~ s/\s+;$/;/; - $str .= $_ ; - $str .= "\n" ; - } + $nTabsFound += $_ =~ s/\t/ /g; + $_ =~ s/\s+$//; + $_ =~ s/\s+;$/;/; + $_ =~ s/\)\s+\)/\)\)/g; + $str .= $_ ; + $str .= "\n" ; } close $fh; if ( open( my $fh, ">$file" )) { - binmode $fh; + #binmode $fh; print $fh $str; close $fh; }