Changeset 138099 for trunk/base


Ignore:
Timestamp:
Jun 28, 2015, 7:25:25 AM (5 years ago)
Author:
jmr@…
Message:

use in or ni operators where possible, rather than comparing the return value of lsearch with -1

Location:
trunk/base/src
Files:
9 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/macports1.0/macports.tcl

    r137302 r138099  
    691691            while {[gets $fd line] >= 0} {
    692692                if {[regexp {^(\w+)([ \t]+(.*))?$} $line match option ignore val] == 1} {
    693                     if {[lsearch -exact $bootstrap_options $option] >= 0} {
     693                    if {$option in $bootstrap_options} {
    694694                        set macports::$option [string trim $val]
    695695                        global macports::$option
     
    707707        while {[gets $fd line] >= 0} {
    708708            if {[regexp {^(\w+)([ \t]+(.*))?$} $line match option ignore val] == 1} {
    709                 if {[lsearch -exact $user_options $option] >= 0} {
     709                if {$option in $user_options} {
    710710                    set macports::$option $val
    711711                    global macports::$option
     
    726726                set flags [split $flags ,]
    727727                foreach flag $flags {
    728                     if {[lsearch -exact [list nosync default] $flag] == -1} {
     728                    if {$flag ni [list nosync default]} {
    729729                        ui_warn "$sources_conf source '$line' specifies invalid flag '$flag'"
    730730                    }
     
    10811081    set env_names [array names env]
    10821082    foreach envkey $env_names {
    1083         if {[lsearch -exact $keepenvkeys $envkey] == -1} {
     1083        if {$envkey ni $keepenvkeys} {
    10841084            unset env($envkey)
    10851085        }
     
    10891089    if {$macosx_version eq "10.5"} {
    10901090        foreach envkey $env_names {
    1091             if {[lsearch -exact $keepenvkeys $envkey] == -1} {
     1091            if {$envkey ni $keepenvkeys} {
    10921092                unsetenv $envkey
    10931093            }
     
    22072207                    }
    22082208                    if {[llength $missing] > 0} {
    2209                         if {[info exists dep_portinfo(variants)] && [lsearch -exact $dep_portinfo(variants) universal] != -1} {
     2209                        if {[info exists dep_portinfo(variants)] && "universal" in $dep_portinfo(variants)} {
    22102210                            # dep offers a universal variant
    22112211                            if {[llength $active_archs] == 1} {
     
    22132213                                set missing {}
    22142214                                foreach arch $required_archs {
    2215                                     if {[lsearch -exact $macports::universal_archs $arch] == -1} {
     2215                                    if {$arch ni $macports::universal_archs} {
    22162216                                        lappend missing $arch
    22172217                                    }
     
    24232423        set flags [lrange $source 1 end]
    24242424        set source [lindex $source 0]
    2425         if {[lsearch -exact $flags nosync] != -1} {
     2425        if {"nosync" in $flags} {
    24262426            ui_debug "Skipping $source"
    24272427            continue
     
    33423342    }
    33433343    foreach arch $required_archs {
    3344         if {[lsearch -exact $provided_archs $arch] == -1} {
     3344        if {$arch ni $provided_archs} {
    33453345            return 0
    33463346        }
     
    33983398        set ss [expr {[llength $supported_archs] == 1 ? "" : "s"}]
    33993399        foreach arch $required_archs {
    3400             if {[lsearch -exact $supported_archs $arch] == -1} {
     3400            if {$arch ni $supported_archs} {
    34013401                ui_error "its dependency $dep only supports the arch${ss} '$supported_archs'."
    34023402                return
     
    34063406    if {$has_universal} {
    34073407        foreach arch $required_archs {
    3408             if {[lsearch -exact $universal_archs $arch] == -1} {
     3408            if {$arch ni $universal_archs} {
    34093409                ui_error "its dependency $dep does not build for the required arch${s} by default"
    34103410                ui_error "and the configured universal_archs '$universal_archs' are not sufficient."
     
    50895089            while {[gets $fd line] >= 0} {
    50905090                if {[regexp {^(\w+)([ \t]+(.*))?$} $line match option ignore val] == 1} {
    5091                     if {[lsearch -exact $conf_options $option] >= 0} {
     5091                    if {$option in $conf_options} {
    50925092                        if {$option eq "name"} {
    50935093                            set cur_name $val
  • trunk/base/src/macports1.0/macports_dlist.tcl

    r134509 r138099  
    416416        } else {
    417417                set x [lindex [array get $ditem $key] 1]
    418                 if {[llength $x] > 0 && [lsearch -exact $x [lindex $args 0]] != -1} {
     418                if {[llength $x] > 0 && [lindex $args 0] in $x} {
    419419                        return 1
    420420                } else {
  • trunk/base/src/port1.0/portchecksum.tcl

    r117049 r138099  
    8585        && [expr {$nb_checksum % 2}] == 0
    8686        && [expr {$nb_checksum / 2}] <= $checksum_types_count
    87         && [lsearch -exact $checksum_types [lindex $checksums_str 0]] >= 0} {
     87        && [lindex $checksums_str 0] in $checksum_types} {
    8888        # Convert to format #2
    8989        set checksums_str [linsert $checksums_str 0 [lindex $all_dist_files 0]]
     
    114114            while {1} {
    115115                set checksum_type [lindex $checksums_str $ix_checksum]
    116                 if {[lsearch -exact $checksum_types $checksum_type] >= 0} {
     116                if {$checksum_type in $checksum_types} {
    117117                    # append the type and the value.
    118118                    incr ix_checksum
  • trunk/base/src/port1.0/portconfigure.tcl

    r136965 r138099  
    326326    set ret {}
    327327    foreach arch $archs {
    328         if {[lsearch -exact $supported_archs $arch] != -1} {
     328        if {$arch in $supported_archs} {
    329329            set add_arch $arch
    330         } elseif {$arch eq "x86_64" && [lsearch -exact $supported_archs "i386"] != -1} {
     330        } elseif {$arch eq "x86_64" && "i386" in $supported_archs} {
    331331            set add_arch "i386"
    332         } elseif {$arch eq "ppc64" && [lsearch -exact $supported_archs "ppc"] != -1} {
     332        } elseif {$arch eq "ppc64" && "ppc" in $supported_archs} {
    333333            set add_arch "ppc"
    334334        } else {
    335335            continue
    336336        }
    337         if {[lsearch -exact $ret $add_arch] == -1} {
     337        if {$add_arch ni $ret} {
    338338            lappend ret $add_arch
    339339        }
  • trunk/base/src/port1.0/portdestroot.tcl

    r119595 r138099  
    342342                            continue
    343343                        }
    344                         if {[lsearch -exact $prefixPaths $pfile] == -1} {
     344                        if {$pfile ni $prefixPaths} {
    345345                            ui_warn "violation by [file join $dfile $pfile]"
    346346                            set mtree_violation "yes"
  • trunk/base/src/port1.0/portlint.tcl

    r135918 r138099  
    404404    if {[info exists platforms]} {
    405405        foreach platform $platforms {
    406             if {[lsearch -exact $lint_platforms $platform] == -1} {
     406            if {$platform ni $lint_platforms} {
    407407                ui_error "Unknown platform: $platform"
    408408                incr errors
     
    451451            if {![info exists variantdesc] || $variantdesc eq ""} {
    452452                # don't warn about missing descriptions for global variants
    453                 if {[lsearch -exact $local_variants $variantname] != -1 &&
     453                if {$variantname in $local_variants &&
    454454                    [variant_desc $porturl $variantname] eq ""} {
    455455                    ui_warn "Variant $variantname does not have a description"
  • trunk/base/src/port1.0/portlivecheck.tcl

    r127797 r138099  
    131131        }
    132132    }
    133     if {[lsearch -exact [split $available_types "|"] ${livecheck.type}] != -1} {
     133    if {${livecheck.type} in [split $available_types "|"]} {
    134134        # Load the defaults from _resources/port1.0/livecheck/${livecheck.type}.tcl.
    135135        set defaults_file "$types_dir/${livecheck.type}.tcl"
  • trunk/base/src/port1.0/portutil.tcl

    r138097 r138099  
    703703proc variant_exists {name} {
    704704    global PortInfo
    705     if {[info exists PortInfo(variants)] &&
    706       [lsearch -exact $PortInfo(variants) $name] >= 0} {
     705    if {[info exists PortInfo(variants)] && $name in $PortInfo(variants)} {
    707706        return 1
    708707    }
     
    815814    global subport name PortInfo
    816815    if {$subport eq $name && $subname ne $name &&
    817         (![info exists PortInfo(subports)] || [lsearch -exact $PortInfo(subports) $subname] == -1)} {
     816        (![info exists PortInfo(subports)] || $subname ni $PortInfo(subports))} {
    818817        lappend PortInfo(subports) $subname
    819818    }
     
    13961395
    13971396            # Of course, if this is a dry run, don't do the task:
    1398             if {[tbool ports_dryrun] && [lsearch -exact $dryrun_allow_targets $targetname] == -1} {
     1397            if {[tbool ports_dryrun] && $targetname ni $dryrun_allow_targets} {
    13991398                # only one message per portname
    14001399                if {$portname != $ports_dry_last_skipped} {
     
    14901489                        # If portname is empty, the dependency is already satisfied by other means,
    14911490                        # for example a bin: dependency on a file not installed by MacPorts
    1492                         if {$name ne ""} {
    1493                             if {[lsearch -exact $deplist $name] == -1} {
    1494                                 lappend deplist $name
    1495                                 set deplist [recursive_collect_deps $name $deplist]
    1496                             }
     1491                        if {$name ne "" && $name ni $deplist} {
     1492                            lappend deplist $name
     1493                            set deplist [recursive_collect_deps $name $deplist]
    14971494                        }
    14981495                    }
     
    16301627    foreach item $deplist {
    16311628        set name [lindex $item 0]
    1632         if {[lsearch -exact $depsfound $name] == -1} {
     1629        if {$name ni $depsfound} {
    16331630            lappend depsfound $name
    16341631            set depsfound [recursive_collect_deps $name $depsfound]
     
    20492046    foreach key [array names upvariations *] {
    20502047        if {![info exists PortInfo(variants)] ||
    2051             [lsearch $PortInfo(variants) $key] == -1} {
     2048            $key ni $PortInfo(variants)} {
    20522049            ui_debug "Requested variant $upvariations($key)$key is not provided by port $portname."
    20532050            array unset upvariations $key
  • trunk/base/src/registry2.0/portimage.tcl

    r124243 r138099  
    535535                # directories.
    536536                set directory [::file dirname $file]
    537                 while { [lsearch -exact $files $directory] == -1 } {
     537                while {$directory ni $files} {
    538538                    lappend files $directory
    539539                    set directory [::file dirname $directory]
     
    689689            # Split out the filename's subpaths and add them to the image list
    690690            # as well.
    691             while { [lsearch -exact $files $directory] == -1 } {
     691            while {$directory ni $files} {
    692692                lappend files $directory
    693693                set directory [::file dirname $directory]
Note: See TracChangeset for help on using the changeset viewer.