blob: ac73a24fa22abcd2d5e56530c6fef182bbb30c86 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
#!/usr/bin/perl -w
use Getopt::Std;
our ($opt_n);
getopts('n');
my $dry_run = $opt_n;
my $any_bad = 0;
my @files = @ARGV;
undef $/;
unless (@files)
{
@files = (grep /\.(cc|h)$/, split /\n/, `git ls-files`);
}
for $f (@files)
{
open F, "<", $f or die "Can't read $f\n";
my $old = $_ = <F>;
close F;
# Aaaw, due to the support code, this beautiful one-liner is one no longer :(
# Should have told you to:
# for x in *.cc *.h;do unbrace <"$x" >aa && mv aa "$x";done
# like I always did before...
# Eliminate braces around one-line blocks.
s&^( +(?:if|while|for|do|else)\b[^\n]*)\n +{\n( *[^/ }][^\n]*)\n +}$&$1\n$2&msg;
# return is not a function, eliminate totally enclosing parentheses.
# This part handles parenthese-less payloads.
while (/^( *)return \(([^()]+)\);/sm)
{
# Done this roundabout way to properly unindent multiline blocks.
my $prev = "$`$1return ";
my $next = ";$'";
my $cur = $2;
$cur =~ s/\n /\n/sg;
$_ = "$prev$cur$next";
}
# return (x) where x contains parentheses.
# Looks like no one told Larry Wall properties of regular expression,
# including the part where they can't do arbitrarily nested parentheses.
while (/^(\s*)return\s+
\((
(?: [^()]*+
(\( (?: [^()]++ | (?3) )* \))
)+
[^()]*+
)\);/sxm)
{
my $prev = "$`$1return ";
my $next = ";$'";
my $cur = "$2";
$cur =~ s/\n /\n/sg;
$_ = "$prev$cur$next";
}
if ($old ne $_)
{
print "$f\n";
$any_bad = 1;
if (!$dry_run)
{
open F, ">", $f or die "Can't write $f\n";
print F;
close F;
}
}
}
exit 1 if ($dry_run and $any_bad);
|