Skip to content

K
Kernel

openeuler / Kernel
接近 2 年 前同步成功

通知 8
Star 0
Fork 0
K
Kernel
切换分支/标签
  1. 26 1月, 2013 1 次提交
  3. 18 1月, 2013 1 次提交
  5. 17 8月, 2012 1 次提交
  7. 14 5月, 2012 1 次提交
  9. 03 2月, 2012 1 次提交
  11. 11 10月, 2011 2 次提交
  13. 21 9月, 2011 2 次提交
  15. 17 9月, 2011 1 次提交
  17. 07 9月, 2011 1 次提交
  19. 30 8月, 2011 2 次提交
  21. 26 8月, 2011 5 次提交
  23. 18 5月, 2011 12 次提交
  25. 26 4月, 2011 1 次提交
    • J
      staging: Remove unnecessary semicolons when switch (foo) {...}; · 95cd17c9
      由 Joe Perches 提交于 
      Done via perl script:

$ cat remove_semi_switch.pl
my $match_balanced_parentheses = qr/(\((?:[^\(\)]++|(?-1))*\))/;
my $match_balanced_braces      = qr/(\{(?:[^\{\}]++|(?-1))*\})/;

foreach my $file (@ARGV) {
    my $f;
    my $text;
    my $oldtext;

    next if ((-d $file));

    open($f, '<', $file)
	or die "$P: Can't open $file for read\n";
    $oldtext = do { local($/) ; <$f> };
    close($f);

    next if ($oldtext eq "");

    $text = $oldtext;

    my $count = 0;
    do {
	$count = 0;
	$count += $text =~ s@\b(switch\s*${match_balanced_parentheses}\s*)${match_balanced_braces}\s*;@"$1$3"@egx;
    } while ($count > 0);

    if ($text ne $oldtext) {
	my $newfile = $file;

	open($f, '>', $newfile)
	    or die "$P: Can't open $newfile for write\n";
	print $f $text;
	close($f);
    }
}

$
Signed-off-by: NJoe Perches <joe@perches.com>
Signed-off-by: NGreg Kroah-Hartman <gregkh@suse.de>
      95cd17c9
  27. 05 4月, 2011 2 次提交
  29. 31 3月, 2011 1 次提交
  31. 19 2月, 2011 1 次提交
  33. 01 2月, 2011 1 次提交
  35. 21 1月, 2011 2 次提交
  37. 17 12月, 2010 1 次提交
  39. 10 11月, 2010 1 次提交