git-svn-id: svn://svn.code.sf.net/p/chibios/svn/trunk@12795 27425a3e-05d8-49a3-a47f-9c15f0e5edd8
This commit is contained in:
Giovanni Di Sirio
parent
6699452158
commit
eb2a676d73
|
|
@ -0,0 +1,172 @@
|
||||||
|
#!/usr/bin/perl
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
use File::Basename;
|
||||||
|
|
||||||
|
# Desired indentation.
|
||||||
|
my $indentation = 2;
|
||||||
|
|
||||||
|
if ($#ARGV != 0) {
|
||||||
|
print "\nUsage: simplecheck.pl source\n";
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
my $source = $ARGV[0];
|
||||||
|
|
||||||
|
open(my $in, "<", $source) or die "Can't open source: $!";
|
||||||
|
|
||||||
|
my $lineno = 0;
|
||||||
|
my @c_source = <$in>;
|
||||||
|
my $filename = $source;
|
||||||
|
$filename =~ y/\\/\//;
|
||||||
|
$filename = basename($filename);
|
||||||
|
|
||||||
|
my $cr = "\r";
|
||||||
|
my $lf = "\n";
|
||||||
|
my $tab = "\t";
|
||||||
|
my $c_comment = "";
|
||||||
|
my $state = "start";
|
||||||
|
|
||||||
|
sub style {
|
||||||
|
my $desc = shift;
|
||||||
|
|
||||||
|
print("style: $desc at line $lineno in \"$filename\"\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
sub error {
|
||||||
|
my $desc = shift;
|
||||||
|
|
||||||
|
print("error: $desc at line $lineno in \"$filename\"\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
my $emptycnt = 0;
|
||||||
|
foreach my $line (@c_source) {
|
||||||
|
|
||||||
|
$lineno += 1;
|
||||||
|
|
||||||
|
#****************************************************************************
|
||||||
|
# Check on EOL.
|
||||||
|
if (not ($line =~ /$cr$lf$/)) {
|
||||||
|
error "detected malformed EOL";
|
||||||
|
}
|
||||||
|
$line =~ s/$cr//;
|
||||||
|
$line =~ s/$lf//;
|
||||||
|
|
||||||
|
#****************************************************************************
|
||||||
|
# Check on trailing spaces.
|
||||||
|
if ($line =~ /\s$/) {
|
||||||
|
style "detected trailing spaces";
|
||||||
|
}
|
||||||
|
|
||||||
|
#****************************************************************************
|
||||||
|
# Check on TABs.
|
||||||
|
if ($line =~ /$tab/) {
|
||||||
|
style "detected TAB";
|
||||||
|
$line =~ s/$tab/ /;
|
||||||
|
}
|
||||||
|
|
||||||
|
#****************************************************************************
|
||||||
|
# Check on empty lines.
|
||||||
|
my $tmp = $line;
|
||||||
|
$tmp =~ s/\s//;
|
||||||
|
if (length($tmp) == 0) {
|
||||||
|
$emptycnt = $emptycnt + 1;
|
||||||
|
if ($emptycnt == 2) {
|
||||||
|
style "detected multiple empty lines"
|
||||||
|
}
|
||||||
|
next;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
$emptycnt = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
#******************************************************************************
|
||||||
|
# State machine handling.
|
||||||
|
if ($state eq "start") {
|
||||||
|
|
||||||
|
#******************************************************************************
|
||||||
|
# Comment start matching.
|
||||||
|
if ("$line" =~ /^\s*\/\*/) {
|
||||||
|
if ("$line" =~ /\*\//) {
|
||||||
|
# Special case of single line comments.
|
||||||
|
$line =~ /^\s*(\/\*.*\*\/)/;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
# Start of multi-line comment.
|
||||||
|
$line =~ /(\/\*.*)/;
|
||||||
|
$c_comment = $1 . " ";
|
||||||
|
$state = "incomment";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
#****************************************************************************
|
||||||
|
# Check on loose semicolons.
|
||||||
|
if ($line =~ /\s;/) {
|
||||||
|
style "detected loose semicolon";
|
||||||
|
}
|
||||||
|
|
||||||
|
#****************************************************************************
|
||||||
|
# Check on glued keywords.
|
||||||
|
if ($line =~ /if\(/) {
|
||||||
|
style "detected glued \"if\"";
|
||||||
|
}
|
||||||
|
if ($line =~ /for\(/) {
|
||||||
|
style "detected glued \"for\"";
|
||||||
|
}
|
||||||
|
if ($line =~ /while\(/) {
|
||||||
|
style "detected glued \"while\"";
|
||||||
|
}
|
||||||
|
if ($line =~ /switch\(/) {
|
||||||
|
style "detected glued \"switch\"";
|
||||||
|
}
|
||||||
|
if ($line =~ /do\{/) {
|
||||||
|
style "detected glued \"do\"";
|
||||||
|
}
|
||||||
|
|
||||||
|
#****************************************************************************
|
||||||
|
# Check on loose parenthesis.
|
||||||
|
if ($line =~ /\(\s+/) {
|
||||||
|
style "detected loose \"(\"";
|
||||||
|
}
|
||||||
|
if ($line =~ /\s+\)/) {
|
||||||
|
style "detected loose \")\"";
|
||||||
|
}
|
||||||
|
|
||||||
|
#****************************************************************************
|
||||||
|
# Check on glued braces.
|
||||||
|
if ($line =~ /\)\{/) {
|
||||||
|
style "detected glued left brace";
|
||||||
|
}
|
||||||
|
if ($line =~ /\w\{/) {
|
||||||
|
style "detected glued left brace";
|
||||||
|
}
|
||||||
|
if ($line =~ /\}\w/) {
|
||||||
|
style "detected glued right brace";
|
||||||
|
}
|
||||||
|
|
||||||
|
#****************************************************************************
|
||||||
|
# Check function-call-like returns.
|
||||||
|
if ($line =~ /return\s*\(/) {
|
||||||
|
style "detected function-call-like return";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
#******************************************************************************
|
||||||
|
# Scanning for comment end.
|
||||||
|
elsif ($state eq "incomment") {
|
||||||
|
if ("$line" =~ /\*\/\s*$/) {
|
||||||
|
# End of mult-line comment.
|
||||||
|
$line =~ /(.*\*\/)/;
|
||||||
|
$c_comment .= $1;
|
||||||
|
|
||||||
|
$state = "start";
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
# Add the whole line.
|
||||||
|
$c_comment .= $line . " ";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
close $in or die "$in: $!";
|
||||||
Loading…
Reference in New Issue