Ticket #14799: portlint.tcl.blank-lines.diff

portlint.tcl

@@ -159 +159 @@
     ui_debug "$portfile"
 
     set topline_number 1
-    set require_blank false
-    set require_after ""
     set seen_portsystem false
     set seen_portgroup false
     set in_description false
@@ -190 +188 @@
             incr errors
         }
 
-        if {[string equal "PortSystem" $require_after] && \
-            [string match "PortGroup*" $line]} {
-            set require_blank false
-        }
-
-        if {$require_blank && ($line != "")} {
-            ui_warn "Line $lineno should be a newline (after $require_after)"
-            incr warnings
-        }
-        set require_blank false
-
         if {[regexp {\S[ \t]+$} $line]} {
             # allow indented blank lines between blocks of code and such
             ui_warn "Line $lineno has trailing whitespace before newline"
@@ -216 +203 @@
             incr warnings
         } elseif {($lineno == $topline_number)} {
             ui_info "OK: Line $lineno has RCS tag (\$Id\$)"
-            set require_blank true
-            set require_after "RCS tag"
         }
 
         if {[string match "PortSystem*" $line]} {
@@ -231 +216 @@
                  incr errors
             }
             set seen_portsystem true
-            set require_blank true
-            set require_after "PortSystem"
         }
         if {[string match "PortGroup*" $line]} {
             if {$seen_portgroup} {
@@ -245 +228 @@
                  incr errors
             }
             set seen_portgroup true
-            set require_blank true
-            set require_after "PortGroup"
         }
 
         # TODO: check for repeated variable definitions
@@ -258 +239 @@
         }
         if {$in_description && ([string range $line end end] != "\\")} {
             set in_description false
-            #set require_blank true
-            #set require_after "long_description"
-        } elseif {$in_description} {
-            set require_blank false
         }
 
         if {[string match "variant*" $line]} {