Changeset 97367


Ignore:
Timestamp:
Sep 4, 2012, 9:14:26 AM (7 years ago)
Author:
ryandesign@…
Message:

portlint.tcl: adjust some lint messages; allow portgroups to have an underscore in their name

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portlint.tcl

    r97264 r97367  
    192192        if {[string match "PortSystem*" $line]} {
    193193            if {$seen_portsystem} {
    194                 ui_error "Line $lineno repeats PortSystem information"
     194                ui_error "Line $lineno repeats PortSystem declaration"
    195195                incr errors
    196196            }
     
    205205        }
    206206        if {[string match "PortGroup*" $line]} {
    207             regexp {PortGroup\s+([a-z0-9]+)\s+([0-9.]+)} $line -> portgroup portgroupversion
     207            regexp {PortGroup\s+([a-z0-9_]+)\s+([0-9.]+)} $line -> portgroup portgroupversion
    208208            if {![info exists portgroup]} {
    209209                ui_error "Line $lineno has unrecognized PortGroup"
     
    211211            }
    212212            if {[info exists portgroups($portgroup)]} {
    213                 ui_error "Line $lineno repeats PortGroup information"
     213                ui_error "Line $lineno repeats inclusion of PortGroup $portgroup"
    214214                incr errors
    215215            } else {
Note: See TracChangeset for help on using the changeset viewer.