ci/vera++/rules/L004: add warning support

jia200x · jia200x · commit f3a934a169ab · 2021-01-06T13:02:09.000+01:00
Signed-off-by: Jose Alamos &lt;jose@alamos.cc&gt;
diff --git a/dist/tools/vera++/scripts/rules/L004.tcl b/dist/tools/vera++/scripts/rules/L004.tcl
@@ -3,11 +3,17 @@
 
 set maxLength [getParameter "max-line-length" 100]
 
+#MOD: We add here a line length thershold for line length
+set maxLengthWarn [getParameter "max-line-length-warn" 80]
+
 foreach f [getSourceFileNames] {
     set lineNumber 1
     foreach line [getAllLines $f] {
         if {[string length $line] > $maxLength} {
             report $f $lineNumber "line is longer than ${maxLength} characters"
+        } elseif {[string length $line] > $maxLengthWarn} {
+            # puts won't make vera++ return error code when invoked with --error
+            puts "$f:$lineNumber: warning: line is longer than $maxLengthWarn characters"
         }
         incr lineNumber
     }
