a34ffb0ccc
git-svn-id: https://geany.svn.sourceforge.net/svnroot/geany/trunk@4168 ea778897-0a13-0410-b9d1-a72fbfd435f5
87 lines
2.4 KiB
Perl
Executable File
87 lines
2.4 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
# Copyright: 2009, Nick Treleaven
|
|
# License: GNU GPL V2 or later, as published by the Free Software Foundation, USA.
|
|
# Warranty: NONE
|
|
|
|
# Re-align C source code for Geany.
|
|
# Doesn't handle indents/blank lines/anything complicated ;-)
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Getopt::Std;
|
|
|
|
my %args = ();
|
|
getopts('w', \%args);
|
|
my $opt_write = $args{'w'};
|
|
|
|
my $argc = $#ARGV + 1;
|
|
my $scriptname = $0;
|
|
|
|
($argc == 1) or die <<END;
|
|
Usage:
|
|
$scriptname sourcefile [>outfile]
|
|
Print formatted output to STDOUT or outfile.
|
|
Warning: do not use the same file for both.
|
|
|
|
$scriptname -w sourcefile
|
|
Writes to the file 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)
|
|
{
|
|
print OUTPUT $line."\n";
|
|
}
|
|
close(OUTPUT);
|