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

Add workaround for spacing '&' and '-' operators.

Browse Source 
Ensure 2 blank lines after a function body.


git-svn-id: https://geany.svn.sourceforge.net/svnroot/geany/trunk@4182 ea778897-0a13-0410-b9d1-a72fbfd435f5
This commit is contained in:
Nick Treleaven 2009-09-13 15:36:43 +00:00
parent 6d5844ae69
commit 8dbaee549d
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
scripts/fix-alignment.pl
View File

@ -49,13 +49,16 @@ sub parse($)
# 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 binary operators that can conflict with unaries with cast and/or 'return -1/&foo'
# '-' could be unary "(gint)-j"
# '&' could be address-of "(type*)&foo"
$line =~ s/(\w)(-|&)\s*([\w(]|$)/$1 $2 $3/g;
# space ternary conditional operator
$line =~ s/\s*\?\s*(.+?)\s*:\s*/ ? $1 : /g;
@ -73,19 +76,25 @@ sub parse($)
# 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);
push(@lines, $line);
}
close(INPUT);
$opt_write or return;
my $text = join("\n", @lines);
undef @lines; # free memory
$text .= "\n";
open(OUTPUT, ">$infile") or die "Couldn't open $infile for writing: $!\n";
foreach my $line (@lines)
{
print OUTPUT $line."\n";
# 1+ newline -> 2 newlines after function
$text =~ s/^}\n\n+([^\n])/}\n\n\n$1/gm;
if (!$opt_write) {
print $text;
}
else {
open(OUTPUT, ">$infile") or die "Couldn't open $infile for writing: $!\n";
print OUTPUT $text;
close(OUTPUT);
}
close(OUTPUT);
}