8015986: Incorrect Localization of HijrahChronology
Reviewed-by: naoto
Contributed-by: scolebourne@joda.org, roger.riggs@oracle.com
#!/usr/bin/perl
#
# Copyright (c) 2009, 2012, Oracle and/or its affiliates. All rights reserved.
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
#
# This code is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License version 2 only, as
# published by the Free Software Foundation.
#
# This code is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
# version 2 for more details (a copy is included in the LICENSE file that
# accompanied this code).
#
# You should have received a copy of the GNU General Public License version
# 2 along with this work; if not, write to the Free Software Foundation,
# Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
#
# Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
# or visit www.oracle.com if you need additional information or have any
# questions.
#
#
# Parses java files:
# 1. Removes from the end of lines spaces and TABs
# 2. Replaces TABs by spaces
# 3. Replaces all NewLine separators by Unix NewLine separators
# 4. Makes one and only one empty line at the end of each file
if ($#ARGV < 0) {
&usage;
die;
}
use Cwd 'abs_path';
my @extensions = ("java");
# Read options
my $dirpos = 0;
while ($dirpos < $#ARGV) {
if ($ARGV[$dirpos] eq "-e") {
@extensions = split(/,/, $ARGV[$dirpos + 1]);
} else {
last;
}
$dirpos += 2;
}
if ($dirpos > $#ARGV) {
&usage;
die;
}
use Cwd;
my $currdir = getcwd;
my $allfiles = 0;
my $filecount = 0;
my @tabvalues;
# Init tabvalues
push (@tabvalues, " ");
for (my $i = 1; $i < 8; $i++) {
push(@tabvalues, $tabvalues[$i - 1] . " ");
}
open(FILELIST, ">$currdir/filelist") or die "Failed while open $currdir/filelist: $!\n";
while ($dirpos <= $#ARGV) {
use File::Find;
find(\&parse_file, abs_path($ARGV[$dirpos]));
$dirpos += 1;
}
close(FILELIST);
use Cwd 'chdir';
chdir $currdir;
print "Checked $allfiles file(s)\n";
print "Modified $filecount file(s)\n";
print "See results in the file $currdir/filelist\n";
sub parse_file {
my $filename = $File::Find::name;
# Skip directories
return if -d;
# Skip SCCS files
return if ($filename =~ /\/SCCS\//);
# Skip files with invalid extensions
my $accepted = 0;
foreach my $ext (@extensions) {
if ($_ =~ /\.$ext$/i) {
$accepted = 1;
last;
}
}
return if ($accepted == 0);
use File::Basename;
my $dirname = dirname($filename);
use Cwd 'chdir';
chdir $dirname;
open(FILE, $filename) or die "Failed while open $filename: $!\n";
# Read file
my @content;
my $line;
my $emptylinescount = 0;
my $modified = 0;
while ($line = <FILE>) {
my $originalline = $line;
# Process line
# Remove from the end of the line spaces and return character
while ($line =~ /\s$/) {
chop($line);
}
# Replace TABs
for (my $i = 0; $i < length($line); $i++) {
if (substr($line, $i, 1) =~ /\t/) {
$line = substr($line, 0, $i) . $tabvalues[7 - ($i % 8)] . substr($line, $i + 1);
}
}
if (length($line) == 0) {
$emptylinescount++;
} else {
while ($emptylinescount > 0) {
push(@content, "");
$emptylinescount--;
}
push(@content, $line);
}
if ($originalline ne ($line . "\n")) {
$modified = 1;
}
}
$allfiles++;
if ($emptylinescount > 0) {
$modified = 1;
}
close(FILE);
if ($modified != 0) {
# Write file
open(FILE, ">$filename") or die "Failed while open $filename: $!\n";
for (my $i = 0; $i <= $#content; $i++) {
print FILE "$content[$i]\n";
}
close(FILE);
# Print name from current dir
if (index($filename, $currdir) == 0) {
print FILELIST substr($filename, length($currdir) + 1);
} else {
print FILELIST $filename;
}
print FILELIST "\n";
$filecount++;
print "$filename: modified\n";
}
}
sub usage {
print "Usage:\n";
print " normalizer.pl [-options] <dir> [dir2 dir3 ...]\n";
print " Available options:\n";
print " -e comma separated files extensions. By default accepts only java files\n";
print "\n";
print "Examples:\n";
print " normalizer.pl -e c,cpp,h,hpp .\n";
}