<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-base.
</pre>
<p><a href="https://github.com/macports/macports-base/commit/d64637edc38a83eb1207fd0ffabac438fba39267">https://github.com/macports/macports-base/commit/d64637edc38a83eb1207fd0ffabac438fba39267</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'> new d64637edc port.tcl: use list constructor
</span>d64637edc is described below
<span style='display:block; white-space:pre;color:#808000;'>commit d64637edc38a83eb1207fd0ffabac438fba39267
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Wed Nov 22 04:48:33 2023 +1100
<span style='display:block; white-space:pre;color:#404040;'> port.tcl: use list constructor
</span>---
src/port/port.tcl | 132 +++++++++++++++++++++++++++---------------------------
1 file changed, 66 insertions(+), 66 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port/port.tcl b/src/port/port.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index d8b44e7e2..591cd2af4 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -127,8 +127,8 @@ proc composite_version {version variations {emptyVersionOkay 0}} {
</span> # Form a composite version out of the version and variations
# Select the variations into positive and negative
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set pos {}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- set neg {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set pos [list]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set neg [list]
</span> foreach { key val } $variations {
if {$val eq "+"} {
lappend pos $key
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -158,7 +158,7 @@ proc composite_version {version variations {emptyVersionOkay 0}} {
</span>
set port_split_variants_re {([-+])([[:alpha:]_]+[\w\.]*)}
proc split_variants {variants} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set result {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set result [list]
</span> set l [regexp -all -inline -- $::port_split_variants_re $variants]
foreach { match sign variant } $l {
lappend result $variant $sign
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -428,7 +428,7 @@ proc portlist_sortdependents { portlist } {
</span> }
array unset pvals
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set ret {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set ret [list]
</span> foreach p $portlist {
portlist_sortdependents_helper $p entries dependents seen ret
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -497,7 +497,7 @@ proc wrap {string maxlen {indent ""} {indentfirstline 1}} {
</span> set maxlen $env(COLUMNS)
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set splitstring {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set splitstring [list]
</span> set indentline $indentfirstline
foreach line [split $string "\n"] {
lappend splitstring [wrapline $line $maxlen $indent $indentline]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -574,7 +574,7 @@ proc wraplabel {label string maxlen {indent ""}} {
</span> # Port selection
##########################################
proc unique_results_to_portlist {infos} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set result {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set result [list]
</span> array unset unique
foreach {name info} $infos {
array unset portinfo
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -636,14 +636,14 @@ proc get_current_port {} {
</span> return [list]
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set results {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set results [list]
</span> add_to_portlist results [list url $url name $portname]
return $results
}
proc get_installed_ports { {ignore_active yes} {active yes} } {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set ilist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set ilist [list]
</span> if { [catch {set ilist [registry::installed]} result] } {
if {$result ne "Registry error: No ports registered as installed."} {
ui_debug $::errorInfo
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -651,7 +651,7 @@ proc get_installed_ports { {ignore_active yes} {active yes} } {
</span> }
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set results {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set results [list]
</span> foreach i $ilist {
set iname [lindex $i 0]
set iversion [lindex $i 1]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -689,7 +689,7 @@ proc get_inactive_ports {} {
</span> proc get_actinact_ports {} {
set inactive_ports [get_inactive_ports]
set active_ports [get_active_ports]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set results {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set results [list]
</span>
foreach port $inactive_ports {
array set portspec $port
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -717,7 +717,7 @@ proc get_actinact_ports {} {
</span>
proc get_outdated_ports {} {
# Get the list of installed ports
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set ilist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set ilist [list]
</span> if { [catch {set ilist [registry::installed]} result] } {
if {$result ne "Registry error: No ports registered as installed."} {
ui_debug $::errorInfo
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -726,7 +726,7 @@ proc get_outdated_ports {} {
</span> }
# Now process the list, keeping only those ports that are outdated
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set results {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set results [list]
</span> if { [llength $ilist] > 0 } {
foreach i $ilist {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -811,7 +811,7 @@ proc get_outdated_ports {} {
</span>
proc get_obsolete_ports {} {
set ilist [get_installed_ports]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set results {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set results [list]
</span>
foreach i $ilist {
array set port $i
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -832,7 +832,7 @@ proc get_obsolete_ports {} {
</span>
# return ports that have registry property $propname set to $propval
proc get_ports_with_prop {propname propval} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set ilist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set ilist [list]
</span> if { [catch {set ilist [registry::installed]} result] } {
if {$result ne "Registry error: No ports registered as installed."} {
ui_debug $::errorInfo
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -840,7 +840,7 @@ proc get_ports_with_prop {propname propval} {
</span> }
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set results {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set results [list]
</span> foreach i $ilist {
set iname [lindex $i 0]
set iversion [lindex $i 1]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -866,7 +866,7 @@ proc get_unrequested_ports {} {
</span> }
proc get_leaves_ports {} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set ilist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set ilist [list]
</span> if { [catch {set ilist [registry::installed]} result] } {
if {$result ne "Registry error: No ports registered as installed."} {
ui_debug $::errorInfo
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -874,7 +874,7 @@ proc get_leaves_ports {} {
</span> }
}
registry::open_dep_map
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set results {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set results [list]
</span> foreach i $ilist {
set iname [lindex $i 0]
if {[registry::list_dependents $iname] eq ""} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -893,7 +893,7 @@ proc get_rleaves_ports {} {
</span> }
registry::open_dep_map
set requested [get_requested_ports]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set results {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set results [list]
</span> foreach i $ilist {
set iname [lindex $i 9]
set deplist [get_dependent_ports $iname 1]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -908,7 +908,7 @@ proc get_dependent_ports {portname recursive} {
</span> registry::open_dep_map
set deplist [registry::list_dependents $portname]
# could return specific versions here using registry2.0 features
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set results {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set results [list]
</span> foreach dep $deplist {
add_to_portlist results [list name [lindex $dep 2]]
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -916,8 +916,8 @@ proc get_dependent_ports {portname recursive} {
</span> # actually do this iteratively to avoid hitting Tcl's recursion limit
if {$recursive} {
while 1 {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set rportlist {}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- set newlist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set rportlist [list]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set newlist [list]
</span> foreach dep $deplist {
set depname [lindex $dep 2]
if {![info exists seen($depname)]} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -960,7 +960,7 @@ proc get_rdepends_ports {portname} {
</span> }
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set results {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set results [list]
</span> set portList [list [string tolower $portname]]
while {[llength $portList] > 0} {
set aPort [lindex $portList 0]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1023,7 +1023,7 @@ proc get_dep_ports {portname recursive} {
</span> set results [list]
set deptypes [list depends_fetch depends_extract depends_patch depends_build depends_lib depends_run depends_test]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set deplist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set deplist [list]
</span> foreach type $deptypes {
if {[info exists portinfo($type)]} {
foreach dep $portinfo($type) {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1036,8 +1036,8 @@ proc get_dep_ports {portname recursive} {
</span> # actually do this iteratively to avoid hitting Tcl's recursion limit
if {$recursive} {
while 1 {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set rportlist {}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- set newlist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set rportlist [list]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set newlist [list]
</span> foreach dep $deplist {
set depname [lindex [split $dep :] end]
if {![info exists seen($depname)]} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1067,7 +1067,7 @@ proc get_dep_ports {portname recursive} {
</span> mportclose $mport
# collect its deps
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set rdeplist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set rdeplist [list]
</span> foreach type $deptypes {
if {[info exists portinfo($type)]} {
foreach rdep $portinfo($type) {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1135,7 +1135,7 @@ proc get_subports {portname} {
</span> mportclose $mport
# gather its subports
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set results {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set results [list]
</span>
if {[info exists portinfo(subports)]} {
foreach subport $portinfo(subports) {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1171,7 +1171,7 @@ proc seqExpr { resname } {
</span> _EOF_ { break }
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set blist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set blist [list]
</span> set result [orExpr blist]
if {$result} {
# Calculate the union of result and b
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1191,7 +1191,7 @@ proc orExpr { resname } {
</span> switch -- [lookahead] {
or {
advance
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set blist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set blist [list]
</span> if {![andExpr blist]} {
return 0
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1218,7 +1218,7 @@ proc andExpr { resname } {
</span> and {
advance
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set blist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set blist [list]
</span> set b [unaryExpr blist]
if {!$b} {
return 0
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1245,7 +1245,7 @@ proc unaryExpr { resname } {
</span> ! -
not {
advance
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set blist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set blist [list]
</span> set result [unaryExpr blist]
if {$result} {
set all [get_all_ports]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1490,7 +1490,7 @@ proc unique_entries { entries } {
</span> # Form the list of all the unique elements in the list a,
# considering only the port fullname, and taking the first
# found element first
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set result {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set result [list]
</span> array unset unique
foreach item $entries {
array set port $item
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1509,7 +1509,7 @@ proc opUnion { a b } {
</span>
proc opIntersection { a b } {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set result {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set result [list]
</span>
# Rules we follow in performing the intersection of two port lists:
#
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1562,7 +1562,7 @@ proc opIntersection { a b } {
</span>
proc opComplement { a b } {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set result {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set result [list]
</span>
# Return all elements of a not matching elements in b
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1850,7 +1850,7 @@ proc action_help { action portlist opts } {
</span> set pagepath ${macports::prefix}/share/man/$page
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if {$pagepath != ""} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if {$pagepath ne ""} {
</span> ui_debug "Opening man page '$pagepath'"
# Restore our entire environment from start time.
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2159,20 +2159,20 @@ proc action_info { action portlist opts } {
</span> }
# Spin through action options, emitting information for any found
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set fields {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set fields [list]
</span>
# This contains all parameters in order given on command line
set opts_action $global_options(options_${action}_order)
# Get the display fields in order provided on command line
# ::struct::set intersect does not keep order of items
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set opts_todo {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set opts_todo [list]
</span> foreach elem $opts_action {
if {[info exists options($elem)]} {
lappend opts_todo $elem
}
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set fields_tried {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set fields_tried [list]
</span> if {![llength $opts_todo]} {
set opts_todo {ports_info_heading
ports_info_replaced_by
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2248,7 +2248,7 @@ proc action_info { action portlist opts } {
</span>
# Add "(" "or" ")" "and" for human-readable output
if {$pretty_print && $ropt eq "license"} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set infresult {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set infresult [list]
</span> foreach {e} $inf {
if {[llength $e] > 1} {
if {[llength $infresult] > 0} { lappend infresult " and " }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2263,9 +2263,9 @@ proc action_info { action portlist opts } {
</span>
# Format list of maintainers
if {$ropt eq "maintainers"} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set infresult {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set infresult [list]
</span> foreach serialized [macports::unobscure_maintainers $inf] {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set parts {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set parts [list]
</span> array set maintainer $serialized
if {[info exists maintainer(email)]} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2305,7 +2305,7 @@ proc action_info { action portlist opts } {
</span> }
set pi_vars $inf
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set inf {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set inf [list]
</span> foreach v [lsort $pi_vars] {
set varmodifier ""
if {[info exists variations($v)]} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2330,7 +2330,7 @@ proc action_info { action portlist opts } {
</span> if {[string match "depend*" $ropt]
&& ![macports::ui_isset ports_verbose]} {
set pi_deps $inf
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set inf {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set inf [list]
</span> foreach d $pi_deps {
lappend inf [lindex [split $d :] end]
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2921,7 +2921,7 @@ proc action_dependents { action portlist opts } {
</span> if {[require_portlist portlist]} {
return 1
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set ilist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set ilist [list]
</span>
registry::open_dep_map
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2956,7 +2956,7 @@ proc action_dependents { action portlist opts } {
</span> if {$action eq "rdependents"} {
set toplist $deplist
while 1 {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set newlist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set newlist [list]
</span> foreach dep $deplist {
set depname [lindex $dep 2]
if {![info exists seen($depname)]} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3114,10 +3114,10 @@ proc action_deps { action portlist opts } {
</span> }
set portname $portinfo(name)
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set deplist {}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- set deps_output {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set deplist [list]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set deps_output [list]
</span> set ndeps 0
<span style='display:block; white-space:pre;background:#ffe0e0;'>- array set labeldict {depends_fetch Fetch depends_extract Extract depends_patch Patch depends_build Build depends_lib Library depends_run Runtime depends_test Test}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ array set labeldict [list depends_fetch Fetch depends_extract Extract depends_patch Patch depends_build Build depends_lib Library depends_run Runtime depends_test Test]
</span> # get list of direct deps
foreach type $deptypes {
if {[info exists portinfo($type)]} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3134,7 +3134,7 @@ proc action_deps { action portlist opts } {
</span> set label "$labeldict($type) Dependencies"
lappend deps_output [wraplabel $label [join $deplist ", "] 0 [string repeat " " 22]]
incr ndeps [llength $deplist]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set deplist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set deplist [list]
</span> }
}
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3162,7 +3162,7 @@ proc action_deps { action portlist opts } {
</span> set toplist $deplist
# gather all the deps
while 1 {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set newlist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set newlist [list]
</span> foreach dep $deplist {
set depname [lindex [split $dep :] end]
if {![info exists seen($depname)]} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3193,7 +3193,7 @@ proc action_deps { action portlist opts } {
</span> }
# get list of the dep's deps
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set rdeplist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set rdeplist [list]
</span> foreach type $deptypes {
if {[info exists portinfo($type)]} {
foreach rdep $portinfo($type) {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3316,7 +3316,7 @@ proc action_installed { action portlist opts } {
</span> global private_options
set status 0
set restrictedList 0
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set ilist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set ilist [list]
</span>
if { [llength $portlist] || (![info exists private_options(ports_no_args)] || $private_options(ports_no_args) eq "no")} {
set restrictedList 1
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3388,7 +3388,7 @@ proc action_outdated { action portlist opts } {
</span> set status 0
# If port names were supplied, limit ourselves to those ports, else check all installed ports
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set ilist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set ilist [list]
</span> set restrictedList 0
if { [llength $portlist] || (![info exists private_options(ports_no_args)] || $private_options(ports_no_args) eq "no")} {
set restrictedList 1
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3614,7 +3614,7 @@ proc action_space {action portlist opts} {
</span> }
if {![info exists options(ports_space_total)] || $options(ports_space_total) ne "yes"} {
set msg "[bytesize $space $units] $portname"
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if { $portversion != {} } {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if { $portversion ne {} } {
</span> append msg " @$portversion"
}
puts $msg
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3828,7 +3828,7 @@ proc action_search { action portlist opts } {
</span> set matchstyle glob
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set res {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set res [list]
</span> set portfound 0
foreach { opt } [array names filters] {
# Map from friendly name
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3839,7 +3839,7 @@ proc action_search { action portlist opts } {
</span> break_softcontinue "search for name $portname failed: $result" 1 status
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set tmp {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set tmp [list]
</span> foreach {name info} $matches {
add_to_portlist tmp [concat [list name $name] $info]
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3963,7 +3963,7 @@ proc action_echo { action portlist opts } {
</span> # Simply echo back the port specs given to this command
foreachport $portlist {
if {![macports::ui_isset ports_quiet]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set opts {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set opts [list]
</span> foreach { key value } [array get options] {
if {![info exists global_options($key)]} {
lappend opts "$key=$value"
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -4560,10 +4560,10 @@ proc cmd_option_matches {action option} {
</span> # but that's only available as of Tcl 8.5
if {![info exists cmd_opts_array($action)]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- return {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return [list]
</span> }
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set result {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set result [list]
</span>
foreach item $cmd_opts_array($action) {
if {[llength $item] == 1} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -4616,7 +4616,7 @@ proc parse_options { action ui_options_name global_options_name } {
</span> if {[llength $kopts] == 0} {
return -code error "${action} does not accept --${key}"
} elseif {[llength $kopts] > 1} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set errlst {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set errlst [list]
</span> foreach e $kopts {
lappend errlst "--[lindex $e 0]"
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -4628,7 +4628,7 @@ proc parse_options { action ui_options_name global_options_name } {
</span> set global_options(ports_${action}_${key}) yes
lappend options_order(${action}) ports_${action}_${key}
} else {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set args {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set args [list]
</span> while {[moreargs] && $kargc > 0} {
advance
lappend args [lookahead]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -4848,7 +4848,7 @@ proc process_cmd { argv } {
</span> # Parse action arguments, setting a special flag if there were none
# We otherwise can't tell the difference between arguments that evaluate
# to the empty set, and the empty set itself.
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set portlist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set portlist [list]
</span> switch -- [lookahead] {
; -
_EOF_ {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -4899,7 +4899,7 @@ proc complete_portname { text state } {
</span>
if {$state == 0} {
set complete_position 0
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set complete_choices {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set complete_choices [list]
</span>
# Build a list of ports with text as their prefix
if {[catch {set res [mportsearch "${text}*" false glob]} result]} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -5680,12 +5680,12 @@ namespace eval portclient::questions {
</span> signal -restart error {TERM INT}
# check if input is non-empty and otherwise fine
if {$input eq ""} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- return []
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return [list]
</span> }
if {[string equal -nocase $input "all"]} {
set count 0
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set options_seq []
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set options_seq [list]
</span> foreach port $ports {
lappend options_seq $count
incr count
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -5698,7 +5698,7 @@ namespace eval portclient::questions {
</span> continue
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set selected_opt []
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set selected_opt [list]
</span>
set err_flag 1
set range_re {(\d+)-(\d+)}
</pre><pre style='margin:0'>
</pre>