basic PortIndex lint script

lintportindex.tcl

#!/usr/bin/env port-tclsh
# check a PortIndex for duplicate portnames and malformed portinfo
set fd [open [lindex $argv 0]]
array set counts {}
while {[gets $fd line] >= 0} {
    set name [string tolower [lindex $line 0]]
    incr counts($name) 
    if {$counts($name) > 1} {
        puts stderr "Warning: $counts($name) occurrences of $name"
    }
    array unset portinfo
    set len [lindex $line 1]
    set infoline [read $fd $len]
    if {[catch {array set portinfo $infoline} result]} {
        puts stderr "Warning: failed to parse info for ${name}: $result"
        puts stderr "Info line for ${name}: $infoline"
    }
}
close $fd
#foreach {n c} [array get counts] {
#    puts "$n $c"
#}