HybridDog/geany
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Take multiple files if -w argument is supplied.

Browse Source 
git-svn-id: https://geany.svn.sourceforge.net/svnroot/geany/trunk@4172 ea778897-0a13-0410-b9d1-a72fbfd435f5
This commit is contained in:
Nick Treleaven 2009-09-10 16:11:13 +00:00
parent 44f3f11068
commit cc984f9d7c
1 changed files with 66 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

122
scripts/fix-alignment.pl
View File

@ -18,69 +18,79 @@ my $opt_write = $args{'w'};
my $argc = $#ARGV + 1;
my $scriptname = $0;
($argc == 1) or die <<END;
(($argc == 1) or ($argc >= 1 and $opt_write)) or die <<END;
Usage:
$scriptname sourcefile [>outfile]
Print formatted output to STDOUT or outfile.
Warning: do not use the same file for both.
Warning: do not use the same file for outfile.
$scriptname -w sourcefile
Writes to the file in-place.
$scriptname -w sourcefile(s)
Writes to the file(s) in-place.
Warning: backup your file(s) first or use clean version control files.
END
# TODO: operate on multiple files
my ($infile) = @ARGV;
my @lines;
open(INPUT, $infile) or die "Couldn't open $infile for reading: $!\n";
while (<INPUT>) {
my $line = $_; # read a line, including \n char
# strip trailing space & newline
$line =~ s/\s+$//g;
# for now, don't process lines with comments, strings, preproc non-defines, overflowed lines or chars
# multi-line comment internal lines are skipped only if they start with '* '.
if (!($line =~ m,/\*|\*/|//|"|\\$|',) and !($line =~ m/^\s*(\*\s|#[^d])/)) {
# make binary operators have *one* space each side
# operators must have longer variants first otherwise trailing operators can be broken e.g. "+ ="
# '*' ignored as could be pointer
# '-' ignored as could be unary "-1"
# '&' ignored as could be address-of "(type*)&foo"
my $ops = '<<=,<<,>>=,>>,<=,>=,<,>,||,|=,|,&&,&=,-=,+=,+,*=,/=,/,==,!=,%=,%,^=,^,=';
$ops =~ s/([|*+])/\\$1/g; # escape regex chars
$ops =~ s/,/|/g;
$line =~ s/([\w)\]])\s*($ops)\s*([\w(]|$)/$1 $2 $3/g;
# space ternary conditional operator
$line =~ s/\s*\?\s*(.+?)\s*:\s*/ ? $1 : /g;
# space comma operator (allowing for possible alignment space afterwards)
$line =~ s/\s*,(\S)/, $1/g;
# space after statements
my $statements = 'for|if|while|switch';
$line =~ s/\b($statements)\b\s*/$1 /g;
# no space on inside of brackets
$line =~ s/\(\s+/(/g;
$line =~ s/(\S)\s+\)/$1)/g;
}
# strip trailing space again (e.g. a trailing operator now has space afterwards)
$line =~ s/\s+$//g;
$opt_write or print $line."\n";
$opt_write and push(@lines, $line);
}
close(INPUT);
$opt_write or exit;
open(OUTPUT, ">$infile") or die "Couldn't open $infile for writing: $!\n";
foreach my $line (@lines)
sub parse($)
{
print OUTPUT $line."\n";
my ($infile) = @_;
my @lines;
open(INPUT, $infile) or die "Couldn't open $infile for reading: $!\n";
while (<INPUT>) {
my $line = $_; # read a line, including \n char
# strip trailing space & newline
$line =~ s/\s+$//g;
# for now, don't process lines with comments, strings, preproc non-defines, overflowed lines or chars
# multi-line comment internal lines are skipped only if they start with '* '.
if (!($line =~ m,/\*|\*/|//|"|\\$|',) and !($line =~ m/^\s*(\*\s|#[^d])/)) {
# make binary operators have *one* space each side
# operators must have longer variants first otherwise trailing operators can be broken e.g. "+ ="
# '*' ignored as could be pointer
# '-' ignored as could be unary "-1"
# '&' ignored as could be address-of "(type*)&foo"
my $ops = '<<=,<<,>>=,>>,<=,>=,<,>,||,|=,|,&&,&=,-=,+=,+,*=,/=,/,==,!=,%=,%,^=,^,=';
$ops =~ s/([|*+])/\\$1/g; # escape regex chars
$ops =~ s/,/|/g;
$line =~ s/([\w)\]])\s*($ops)\s*([\w(]|$)/$1 $2 $3/g;
# space ternary conditional operator
$line =~ s/\s*\?\s*(.+?)\s*:\s*/ ? $1 : /g;
# space comma operator (allowing for possible alignment space afterwards)
$line =~ s/\s*,(\S)/, $1/g;
# space after statements
my $statements = 'for|if|while|switch';
$line =~ s/\b($statements)\b\s*/$1 /g;
# no space on inside of brackets
$line =~ s/\(\s+/(/g;
$line =~ s/(\S)\s+\)/$1)/g;
}
# strip trailing space again (e.g. a trailing operator now has space afterwards)
$line =~ s/\s+$//g;
$opt_write or print $line."\n";
$opt_write and push(@lines, $line);
}
close(INPUT);
$opt_write or return;
open(OUTPUT, ">$infile") or die "Couldn't open $infile for writing: $!\n";
foreach my $line (@lines)
{
print OUTPUT $line."\n";
}
close(OUTPUT);
}
close(OUTPUT);
foreach my $infile (@ARGV)
{
parse($infile);
}