blob: 130afd56b3bf35180908adb355e7e8ec8061477e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
#!/usr/bin/env perl
use warnings;
use strict;
use File::Basename;
use FindBin qw($RealBin);
sub Beautify($);
print STDERR "RealBin=$RealBin \n\n";
my $version = `astyle --version 2> /dev/stdout`;
chomp($version);
print STDERR "version=$version";
if ($version ne "Artistic Style Version 2.01") {
print STDERR "\nMust be astyle version 2.01. Quitting\n";
exit(1);
}
Beautify("$RealBin/../..");
sub Beautify($)
{
my $path = shift;
opendir(DIR, $path) or die "Can't open the current directory: $!\n";
# read file/directory names in that directory into @names
my @names = readdir(DIR) or die "Unable to read current dir:$!\n";
foreach my $name (@names) {
next if ($name eq ".");
next if ($name eq "..");
next if ($name eq "boost");
next if ($name eq "xmlrpc-c");
next if ($name eq "contrib");
next if ($name eq "jam-files");
next if ($name eq ".git");
next if ($name eq "util");
next if ($name eq "lm");
next if ($name eq "search");
next if ($name eq "randlm");
next if ($name eq "srilm");
next if ($name eq "irstlm");
next if ($name eq "UG");
next if ($name eq "pcfg-common");
next if ($name eq "syntax-common");
$name = $path ."/" .$name;
if (-d $name) {
print STDERR "Into: $name \n";
Beautify($name);
}
else { # is this a directory?
(my $nameOnly, my $pathOnly,my $suffix) = fileparse($name,qr"\..[^.]*$");
if ($suffix eq ".cpp" || $suffix eq ".h") {
my $cmd = "astyle --style='k&r' -s2 -v $name";
#print STDERR "Executing: $cmd \n";
`$cmd`;
}
}
}
closedir(DIR);
}
|
