normalizer.pl revision 409:38207a5797ab
1#!/usr/bin/perl 2 3# 4# Copyright (c) 2009, 2012, Oracle and/or its affiliates. All rights reserved. 5# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 6# 7# This code is free software; you can redistribute it and/or modify it 8# under the terms of the GNU General Public License version 2 only, as 9# published by the Free Software Foundation. 10# 11# This code is distributed in the hope that it will be useful, but WITHOUT 12# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 13# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 14# version 2 for more details (a copy is included in the LICENSE file that 15# accompanied this code). 16# 17# You should have received a copy of the GNU General Public License version 18# 2 along with this work; if not, write to the Free Software Foundation, 19# Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. 20# 21# Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA 22# or visit www.oracle.com if you need additional information or have any 23# questions. 24# 25 26# 27# Parses java files: 28# 1. Removes from the end of lines spaces and TABs 29# 2. Replaces TABs by spaces 30# 3. Replaces all NewLine separators by Unix NewLine separators 31# 4. Makes one and only one empty line at the end of each file 32 33if ($#ARGV < 0) { 34 &usage; 35 36 die; 37} 38 39use Cwd 'abs_path'; 40 41my @extensions = ("java"); 42 43# Read options 44my $dirpos = 0; 45 46while ($dirpos < $#ARGV) { 47 if ($ARGV[$dirpos] eq "-e") { 48 @extensions = split(/,/, $ARGV[$dirpos + 1]); 49 } else { 50 last; 51 } 52 53 $dirpos += 2; 54} 55 56if ($dirpos > $#ARGV) { 57 &usage; 58 59 die; 60} 61 62use Cwd; 63my $currdir = getcwd; 64 65my $allfiles = 0; 66 67my $filecount = 0; 68 69my @tabvalues; 70 71# Init tabvalues 72push (@tabvalues, " "); 73 74for (my $i = 1; $i < 8; $i++) { 75 push(@tabvalues, $tabvalues[$i - 1] . " "); 76} 77 78open(FILELIST, ">$currdir/filelist") or die "Failed while open $currdir/filelist: $!\n"; 79 80while ($dirpos <= $#ARGV) { 81 use File::Find; 82 83 find(\&parse_file, abs_path($ARGV[$dirpos])); 84 85 $dirpos += 1; 86} 87 88close(FILELIST); 89 90use Cwd 'chdir'; 91chdir $currdir; 92 93print "Checked $allfiles file(s)\n"; 94print "Modified $filecount file(s)\n"; 95print "See results in the file $currdir/filelist\n"; 96 97sub parse_file { 98 my $filename = $File::Find::name; 99 100 # Skip directories 101 return if -d; 102 103 # Skip SCCS files 104 return if ($filename =~ /\/SCCS\//); 105 106 # Skip files with invalid extensions 107 my $accepted = 0; 108 foreach my $ext (@extensions) { 109 if ($_ =~ /\.$ext$/i) { 110 $accepted = 1; 111 112 last; 113 } 114 } 115 return if ($accepted == 0); 116 117 use File::Basename; 118 my $dirname = dirname($filename); 119 120 use Cwd 'chdir'; 121 chdir $dirname; 122 123 open(FILE, $filename) or die "Failed while open $filename: $!\n"; 124 125 # Read file 126 my @content; 127 my $line; 128 my $emptylinescount = 0; 129 my $modified = 0; 130 131 while ($line = <FILE>) { 132 my $originalline = $line; 133 134 # Process line 135 136 # Remove from the end of the line spaces and return character 137 while ($line =~ /\s$/) { 138 chop($line); 139 } 140 141 # Replace TABs 142 for (my $i = 0; $i < length($line); $i++) { 143 if (substr($line, $i, 1) =~ /\t/) { 144 $line = substr($line, 0, $i) . $tabvalues[7 - ($i % 8)] . substr($line, $i + 1); 145 } 146 } 147 148 if (length($line) == 0) { 149 $emptylinescount++; 150 } else { 151 while ($emptylinescount > 0) { 152 push(@content, ""); 153 154 $emptylinescount--; 155 } 156 157 push(@content, $line); 158 } 159 160 if ($originalline ne ($line . "\n")) { 161 $modified = 1; 162 } 163 164 } 165 166 $allfiles++; 167 168 if ($emptylinescount > 0) { 169 $modified = 1; 170 } 171 172 close(FILE); 173 174 if ($modified != 0) { 175 # Write file 176 open(FILE, ">$filename") or die "Failed while open $filename: $!\n"; 177 178 for (my $i = 0; $i <= $#content; $i++) { 179 print FILE "$content[$i]\n"; 180 } 181 182 close(FILE); 183 184 # Print name from current dir 185 if (index($filename, $currdir) == 0) { 186 print FILELIST substr($filename, length($currdir) + 1); 187 } else { 188 print FILELIST $filename; 189 } 190 print FILELIST "\n"; 191 192 $filecount++; 193 194 print "$filename: modified\n"; 195 } 196} 197 198sub usage { 199 print "Usage:\n"; 200 print " normalizer.pl [-options] <dir> [dir2 dir3 ...]\n"; 201 print " Available options:\n"; 202 print " -e comma separated files extensions. By default accepts only java files\n"; 203 print "\n"; 204 print "Examples:\n"; 205 print " normalizer.pl -e c,cpp,h,hpp .\n"; 206} 207 208 209