git-svn-id: svn://svn.code.sf.net/p/chibios/svn/trunk@12795 27425a3e-05d8-49a3-a47f-9c15f0e5edd8

tools/simplecheck.pl

@@ -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: $!";