--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/vera/rules/L002.tcl	Fri Dec 16 13:59:55 2016 +0100
@@ -0,0 +1,14 @@
+#!/usr/bin/tclsh
+# Don't use tab characters
+
+foreach f [getSourceFileNames] {
+    set lineNumber 1
+    foreach line [getAllLines $f] {
+
+        if [regexp {\t} $line] {
+            report $f $lineNumber "horizontal tab used"
+        }
+
+        incr lineNumber
+    }
+}