5 my $dirName = shift ;
\r
7 opendir(my $dh, $dirName) || die "can't opendir $dirName: $!";
\r
8 my @files = grep { /^[^\.]/ } readdir($dh);
\r
11 foreach my $file ( @files ) {
\r
12 if ( -d "$dirName/$file" ) {
\r
13 processDir("$dirName/$file") ;
\r
15 elsif ( $file =~ /\.(h|cpp)$/ ) {
\r
16 processFile( "$dirName/$file" ) ;
\r
21 sub processFile( $ )
\r
25 if ( open( my $fh, $file )) {
\r
32 unless ( $s =~ m#//\$\$CDS-header\$\$# ) {
\r
33 $str .= '//$$CDS-header$$'."\n\n" ;
\r
37 while ( $s =~ /\t/ ) {
\r
38 #print "pos=", $+[0], "\n" ;
\r
43 if ( $pos % 4 == 0 ) {
\r
46 elsif ( $pos % 4 == 1 ) {
\r
49 elsif ( $pos % 4 == 2 ) {
\r
52 elsif ( $pos % 4 == 3 ) {
\r
57 $bTabified = 1 if $s =~ s/[\t ]+([\n\r]+)$/$1/ ;
\r
64 if ( open( my $fh, ">$file" )) {
\r
76 processDir('tests/unit') ;
\r