mirror of
https://github.com/moses-smt/mosesdecoder.git
synced 2024-12-27 22:14:57 +03:00
62 lines
1.5 KiB
Perl
Executable File
62 lines
1.5 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
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 "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");
|
|
|
|
$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);
|
|
}
|
|
|