83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
set currpkginfo(name) $name
set currpkginfo(vers) $vers
}
"META" {
set var [string tolower [lindex $line 1]]
set val [lrange $line 2 end]
lappend currpkginfo($var) $val
}
}
}
set pkginfo([list $currpkginfo(name) $currpkginfo(vers) $currpkginfo(platform)]) [array get currpkginfo]
}
|
>
>
>
>
>
|
>
|
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
set currpkginfo(name) $name
set currpkginfo(vers) $vers
}
"META" {
set var [string tolower [lindex $line 1]]
set val [lrange $line 2 end]
if {![info exists currpkginfo($var)]} {
set currpkginfo($var) ""
}
if {[lsearch -exact $currpkginfo($var) $val] == -1} {
lappend currpkginfo($var) $val
}
}
}
}
set pkginfo([list $currpkginfo(name) $currpkginfo(vers) $currpkginfo(platform)]) [array get currpkginfo]
}
|