--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/vera/rules/L001.tcl	Fri Dec 16 13:59:55 2016 +0100
@@ -0,0 +1,24 @@
+#!/usr/bin/tclsh
+# No trailing whitespace
+
+set strictMode [getParameter "strict-trailing-space" 0]
+
+foreach f [getSourceFileNames] {
+    set lineNumber 1
+    set previousIndent ""
+    foreach line [getAllLines $f] {
+
+        if [regexp {^.*\r$} $line] {
+          report $f $lineNumber "CRLF line ending"
+          set line [string range $line 0 end-1]
+        }
+        if [regexp {^.*[[:space:]]+$} $line] {
+            if {$strictMode || [string trim $line] != "" || $line != $previousIndent} {
+                report $f $lineNumber "trailing whitespace"
+            }
+        }
+
+        regexp {^([[:space:]]*).*$} $line dummy previousIndent
+        incr lineNumber
+    }
+}