Changeset 137086


Ignore:
Timestamp:
Jun 4, 2015, 12:29:17 PM (5 years ago)
Author:
jmr@…
Message:

style cleanups, evaluate boolean variables directly rather than by string comparison with "yes", use agreed-upon quoting style for string literals in conditional expressions

File:
1 edited

Legend:

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

    r137085 r137086  
    116116proc macports::ui_isset {val} {
    117117    if {[info exists macports::ui_options($val)]} {
    118         if {$macports::ui_options($val) eq {yes}} {
    119             return 1
    120         }
     118        return [string is true -strict $macports::ui_options($val)]
    121119    }
    122120    return 0
     
    127125proc macports::global_option_isset {val} {
    128126    if {[info exists macports::global_options($val)]} {
    129         if {$macports::global_options($val) eq {yes}} {
    130             return 1
    131         }
     127        return [string is true -strict $macports::global_options($val)]
    132128    }
    133129    return 0
     
    213209    global macports::current_phase
    214210    set macports::current_phase $phase
    215     if {$phase ne {main}} {
     211    if {$phase ne "main"} {
    216212        set cur_time [clock format [clock seconds] -format  {%+}]
    217213        ui_debug "$phase phase started at $cur_time"
     
    228224       0 - 1 {}
    229225       2 {
    230            if {[lindex $args 0] ne {-nonewline}} {
     226           if {[lindex $args 0] ne "-nonewline"} {
    231227               set hint "error: when 5 arguments are given, 2nd last must be \"-newnewline\""
    232228               error "$hint\nusage: ui_message priority prefix phase ?-nonewline? string"
     
    240236
    241237    foreach chan $macports::channels($priority) {
    242         if {[info exists ::debuglog] && ($chan eq {debuglog})} {
     238        if {[info exists ::debuglog] && ($chan eq "debuglog")} {
    243239            set chan $::debuglog
    244240            if {[info exists macports::current_phase]} {
     
    246242            }
    247243            set strprefix ":${priority}:$phase "
    248             if {[lindex $args 0] eq {-nonewline}} {
     244            if {[lindex $args 0] eq "-nonewline"} {
    249245                puts -nonewline $chan $strprefix[lindex $args 1]
    250246            } else {
     
    253249
    254250        } else {
    255             if {[lindex $args 0] eq {-nonewline}} {
     251            if {[lindex $args 0] eq "-nonewline"} {
    256252                puts -nonewline $chan $prefix[lindex $args 1]
    257253            } else {
     
    367363# or in the PATH environment variable through macports::binaryInPath (fallback)
    368364proc macports::findBinary {prog {autoconf_hint {}}} {
    369     if {$autoconf_hint ne {} && [file executable $autoconf_hint]} {
     365    if {$autoconf_hint ne "" && [file executable $autoconf_hint]} {
    370366        return $autoconf_hint
    371367    } else {
     
    633629    # set up platform info variables
    634630    set os_arch $tcl_platform(machine)
    635     if {$os_arch eq {Power Macintosh}} {set os_arch "powerpc"}
    636     if {$os_arch eq {i586} || $os_arch eq {i686} || $os_arch eq {x86_64}} {set os_arch "i386"}
     631    if {$os_arch eq "Power Macintosh"} {set os_arch "powerpc"}
     632    if {$os_arch eq "i586" || $os_arch eq "i686" || $os_arch eq "x86_64"} {set os_arch "i386"}
    637633    set os_version $tcl_platform(osVersion)
    638634    set os_major [lindex [split $os_version .] 0]
     
    662658        set macports::user_home $env(HOME)
    663659        set macports::macports_user_dir [file normalize $macports::autoconf::macports_user_dir]
    664     } elseif {[info exists env(SUDO_USER)] && $os_platform eq {darwin}} {
     660    } elseif {[info exists env(SUDO_USER)] && $os_platform eq "darwin"} {
    665661        set macports::user_home [exec dscl -q . -read /Users/$env(SUDO_USER) NFSHomeDirectory | cut -d ' ' -f 2]
    666662        set macports::macports_user_dir [file join $macports::user_home [string range $macports::autoconf::macports_user_dir 2 end]]
    667     } elseif {[exec id -u] != 0 && $os_platform eq {darwin}} {
     663    } elseif {[exec id -u] != 0 && $os_platform eq "darwin"} {
    668664        set macports::user_home [exec dscl -q . -read /Users/[exec id -un] NFSHomeDirectory | cut -d ' ' -f 2]
    669665        set macports::macports_user_dir [file join $macports::user_home [string range $macports::autoconf::macports_user_dir 2 end]]
     
    733729                        ui_warn "$sources_conf source '$line' specifies invalid flag '$flag'"
    734730                    }
    735                     if {$flag eq {default}} {
     731                    if {$flag eq "default"} {
    736732                        if {[info exists sources_default]} {
    737733                            ui_warn "More than one default port source is defined."
     
    821817    # Format for receipts; currently only "sqlite" is allowed
    822818    # could previously be "flat", so we switch that to sqlite
    823     if {![info exists portdbformat] || $portdbformat eq {flat} || $portdbformat eq {sqlite}} {
     819    if {![info exists portdbformat] || $portdbformat eq "flat" || $portdbformat eq "sqlite"} {
    824820        set registry.format receipt_sqlite
    825821    } else {
     
    859855        && ![info exists macports::global_options(ports_source_only)]
    860856        && [info exists macports::buildfromsource]} {
    861         if {$macports::buildfromsource eq {never}} {
     857        if {$macports::buildfromsource eq "never"} {
    862858            set macports::global_options(ports_binary_only) yes
    863859            set temp_options(ports_binary_only) yes
    864         } elseif {$macports::buildfromsource eq {always}} {
     860        } elseif {$macports::buildfromsource eq "always"} {
    865861            set macports::global_options(ports_source_only) yes
    866862            set temp_options(ports_source_only) yes
    867         } elseif {$macports::buildfromsource ne {ifneeded}} {
     863        } elseif {$macports::buildfromsource ne "ifneeded"} {
    868864            ui_warn "'buildfromsource' set to unknown value '$macports::buildfromsource', using 'ifneeded' instead"
    869865        }
     
    987983    # Default arch to build for
    988984    if {![info exists macports::build_arch]} {
    989         if {$os_platform eq {darwin}} {
     985        if {$os_platform eq "darwin"} {
    990986            if {$os_major >= 10} {
    991987                if {[sysctl hw.cpu64bit_capable] == 1} {
     
    995991                }
    996992            } else {
    997                 if {$os_arch eq {powerpc}} {
     993                if {$os_arch eq "powerpc"} {
    998994                    set macports::build_arch ppc
    999995                } else {
     
    10771073    foreach var {TMP TMPDIR} {
    10781074        if {[info exists env($var)] && [file writable $env($var)] &&
    1079             ([getuid] != 0 || $macportsuser eq {root} ||
     1075            ([getuid] != 0 || $macportsuser eq "root" ||
    10801076             [file attributes $env($var) -owner] eq $macportsuser)} {
    10811077            lappend keepenvkeys $var
     
    10911087
    10921088    # unset environment an extra time, to work around bugs in Leopard Tcl
    1093     if {$macosx_version eq {10.5}} {
     1089    if {$macosx_version eq "10.5"} {
    10941090        foreach envkey $env_names {
    10951091            if {[lsearch -exact $keepenvkeys $envkey] == -1} {
     
    11061102
    11071103    if {![info exists developer_dir]} {
    1108         if {$os_platform eq {darwin}} {
     1104        if {$os_platform eq "darwin"} {
    11091105            trace add variable macports::developer_dir read macports::set_developer_dir
    11101106        } else {
     
    11121108        }
    11131109    } else {
    1114         if {$os_platform eq {darwin} && ![file isdirectory $developer_dir]} {
     1110        if {$os_platform eq "darwin" && ![file isdirectory $developer_dir]} {
    11151111            ui_warn "Your developer_dir setting in macports.conf points to a non-existing directory.\
    11161112                Since this is known to cause problems, please correct the setting or comment it and let\
     
    11191115    }
    11201116
    1121     if {[getuid] == 0 && $os_major >= 11 && $os_platform eq {darwin} &&
     1117    if {[getuid] == 0 && $os_major >= 11 && $os_platform eq "darwin" &&
    11221118            [file isfile "${macports::user_home}/Library/Preferences/com.apple.dt.Xcode.plist"]} {
    11231119        macports::copy_xcode_plist $env(HOME)
     
    11401136
    11411137    # Proxy handling (done this late since Pextlib is needed)
    1142     if {![info exists proxy_override_env]} {
     1138    if {![info exists proxy_override_env] || ![string is true -strict $proxy_override_env]} {
    11431139        set proxy_override_env no
    11441140    }
     
    11461142        return -code error "Unable to get proxy configuration from system: $result"
    11471143    }
    1148     if {![info exists env(http_proxy)] || $proxy_override_env eq {yes}} {
     1144    if {![info exists env(http_proxy)] || $proxy_override_env} {
    11491145        if {[info exists proxy_http]} {
    11501146            set env(http_proxy) $proxy_http
     
    11531149        }
    11541150    }
    1155     if {![info exists env(HTTPS_PROXY)] || $proxy_override_env eq {yes}} {
     1151    if {![info exists env(HTTPS_PROXY)] || $proxy_override_env} {
    11561152        if {[info exists proxy_https]} {
    11571153            set env(HTTPS_PROXY) $proxy_https
     
    11601156        }
    11611157    }
    1162     if {![info exists env(FTP_PROXY)] || $proxy_override_env eq {yes}} {
     1158    if {![info exists env(FTP_PROXY)] || $proxy_override_env} {
    11631159        if {[info exists proxy_ftp]} {
    11641160            set env(FTP_PROXY) $proxy_ftp
     
    11671163        }
    11681164    }
    1169     if {![info exists env(RSYNC_PROXY)] || $proxy_override_env eq {yes}} {
     1165    if {![info exists env(RSYNC_PROXY)] || $proxy_override_env} {
    11701166        if {[info exists proxy_rsync]} {
    11711167            set env(RSYNC_PROXY) $proxy_rsync
    11721168        }
    11731169    }
    1174     if {![info exists env(NO_PROXY)] || $proxy_override_env eq {yes}} {
     1170    if {![info exists env(NO_PROXY)] || $proxy_override_env} {
    11751171        if {[info exists proxy_skip]} {
    11761172            set env(NO_PROXY) $proxy_skip
     
    12061202    if {![info exists macports::ui_options(ports_no_old_index_warning)]} {
    12071203        set default_source_url [lindex $sources_default 0]
    1208         if {[macports::getprotocol $default_source_url] eq {file} || [macports::getprotocol $default_source_url] eq {rsync}} {
     1204        if {[macports::getprotocol $default_source_url] eq "file" || [macports::getprotocol $default_source_url] eq "rsync"} {
    12091205            set default_portindex [macports::getindex $default_source_url]
    12101206            if {[file exists $default_portindex] && [clock seconds] - [file mtime $default_portindex] > 1209600} {
     
    15051501        set fetchfile [file tail $url]
    15061502        set progressflag {}
    1507         if {$macports::portverbose eq {yes}} {
     1503        if {$macports::portverbose} {
    15081504            set progressflag "--progress builtin"
    15091505        } elseif {[info exists macports::ui_options(progress_download)]} {
     
    16551651    set proposedpath [file join $proposedpath _resources $path]
    16561652
    1657     if {$fallback eq {yes} && ![file exists $proposedpath]} {
     1653    if {$fallback && ![file exists $proposedpath]} {
    16581654        return [getdefaultportresourcepath $path]
    16591655    }
     
    16711667
    16721668    set default_source_url [lindex $sources_default 0]
    1673     if {[getprotocol $default_source_url] eq {file}} {
     1669    if {[getprotocol $default_source_url] eq "file"} {
    16741670        set proposedpath [getportdir $default_source_url]
    16751671    } else {
     
    17101706    # Look for an already-open MPort with the same URL.
    17111707    # if found, return the existing reference and bump the refcount.
    1712     if {$nocache ne {}} {
    1713         set mport {}
     1708    if {$nocache ne ""} {
     1709        set mport ""
    17141710    } else {
    17151711        set mport [dlist_match_multi $macports::open_mports [list porturl $porturl variations $variations options $options]]
    17161712    }
    1717     if {$mport ne {}} {
     1713    if {$mport ne ""} {
    17181714        # just in case more than one somehow matches
    17191715        set mport [lindex $mport 0]
     
    17891785        lappend pgdirlist [file join ${registry.path} registry portgroups [$pg sha256]-[$pg size]]
    17901786    }
    1791     if {$pgdirlist ne {}} {
     1787    if {$pgdirlist ne ""} {
    17921788        set options_array(_portgroup_search_dirs) [list $pgdirlist]
    17931789    }
     
    18181814        set pathToCategory [file join $root $category]
    18191815        # process the category dirs but not _resources
    1820         if {[file isdirectory $pathToCategory] && [string index [file tail $pathToCategory] 0] ne {_}} {
     1816        if {[file isdirectory $pathToCategory] && [string index [file tail $pathToCategory] 0] ne "_"} {
    18211817            # Iterate on port directories.
    18221818            foreach port [lsort -increasing -unique [readdir $pathToCategory]] {
     
    19951991        ![catch {$workername eval eval_targets $target} result] && $result == 0} {
    19961992        # If auto-clean mode, clean-up after dependency install
    1997         if {$macports::portautoclean eq {yes}} {
     1993        if {$macports::portautoclean} {
    19981994            # Make sure we are back in the port path before clean
    19991995            # otherwise if the current directory had been changed to
     
    20332029    }
    20342030    set portname [_mportkey $mport subport]
    2035     if {$target ne {clean}} {
     2031    if {$target ne "clean"} {
    20362032        macports::push_log $mport
    20372033    }
     
    21112107        registry::exclusive_unlock
    21122108
    2113         if {$result ne {}} {
     2109        if {$result ne ""} {
    21142110            ##
    21152111            # When this happens, the failing port usually already printed an
     
    21342130    } else {
    21352131        # No dependencies, but we still need to check for conflicts.
    2136         if {$target eq {} || $target eq {install} || $target eq {activate}} {
     2132        if {$target eq "" || $target eq "install" || $target eq "activate"} {
    21372133            _mporterrorifconflictsinstalled $mport
    21382134        }
     
    21402136
    21412137    set clean 0
    2142     if {$macports::portautoclean eq {yes} && ($target eq {install} || $target eq {activate})} {
     2138    if {$macports::portautoclean && ($target eq "install" || $target eq "activate")} {
    21432139        # If we're doing an install, check if we should clean after
    21442140        set clean 1
     
    21892185        foreach depspec $portinfo($deptype) {
    21902186            set dep_portname [$workername eval _get_dep_port $depspec]
    2191             if {$dep_portname ne {} && ![info exists depscache(port:$dep_portname)] && [$test $dep_portname]} {
     2187            if {$dep_portname ne "" && ![info exists depscache(port:$dep_portname)] && [$test $dep_portname]} {
    21922188                set variants {}
    21932189
     
    21952191                set active_archs [_get_registry_archs $dep_portname]
    21962192                if {$deptype ni {depends_fetch depends_extract} && $active_archs ni {{} noarch}
    2197                     && $required_archs ne {noarch} && $dep_portname ni $depends_skip_archcheck} {
     2193                    && $required_archs ne "noarch" && $dep_portname ni $depends_skip_archcheck} {
    21982194                    set missing {}
    21992195                    foreach arch $required_archs {
     
    23262322proc macports::getindex {source} {
    23272323    # Special case file:// sources
    2328     if {[macports::getprotocol $source] eq {file}} {
     2324    if {[macports::getprotocol $source] eq "file"} {
    23292325        return [file join [macports::getportdir $source] PortIndex]
    23302326    }
     
    24662462                } else {
    24672463                    # Keep rsync happy with a trailing slash
    2468                     if {[string index $source end] ne {/}} {
     2464                    if {[string index $source end] ne "/"} {
    24692465                        append source /
    24702466                    }
     
    26072603                }
    26082604
    2609                 if {(![info exists options(ports_force)] || $options(ports_force) ne {yes}) && $updated <= 0} {
     2605                if {(![info exists options(ports_force)] || !$options(ports_force)) && $updated <= 0} {
    26102606                    ui_info "No updates for $source"
    26112607                    continue
     
    26152611
    26162612                set progressflag {}
    2617                 if {$macports::portverbose eq {yes}} {
     2613                if {$macports::portverbose} {
    26182614                    set progressflag "--progress builtin"
    26192615                    set verboseflag "-v"
     
    27412737    global macports::sources
    27422738    set matches [list]
    2743     set easy [expr {$field eq {name}}]
     2739    set easy [expr {$field eq "name"}]
    27442740
    27452741    set found 0
     
    27702766                    switch -- $matchstyle {
    27712767                        exact {
    2772                             if {$case_sensitive eq "yes"} {
     2768                            if {$case_sensitive} {
    27732769                                set compres [string compare $pattern $target]
    27742770                            } else {
     
    27782774                        }
    27792775                        glob {
    2780                             if {$case_sensitive eq "yes"} {
     2776                            if {$case_sensitive} {
    27812777                                set matchres [string match $pattern $target]
    27822778                            } else {
     
    27852781                        }
    27862782                        regexp {
    2787                             if {$case_sensitive eq "yes"} {
     2783                            if {$case_sensitive} {
    27882784                                set matchres [regexp -- $pattern $target]
    27892785                            } else {
     
    31943190                foreach key $prev_seenkeys {
    31953191                    set key_archs [lrange [split $key ,] 1 end]
    3196                     if {$key_archs eq {noarch} || $required_archs eq {noarch} || [llength $key_archs] > $nrequired} {
     3192                    if {$key_archs eq "noarch" || $required_archs eq "noarch" || [llength $key_archs] > $nrequired} {
    31973193                        set seen 1
    31983194                        set seenkey $key
     
    32133209            set present [_mportispresent $mport $depspec]
    32143210
    3215             if {!$skipSatisfied && $dep_portname eq {}} {
     3211            if {!$skipSatisfied && $dep_portname eq ""} {
    32163212                set dep_portname [lindex [split $depspec :] end]
    32173213            }
    32183214
    32193215            set check_archs 0
    3220             if {$dep_portname ne {} && $deptype ni {depends_fetch depends_extract}
     3216            if {$dep_portname ne "" && $deptype ni {depends_fetch depends_extract}
    32213217                && $dep_portname ni $depends_skip_archcheck} {
    32223218                set check_archs 1
     
    32613257                    set depport [dlist_match_multi $macports::open_mports [list porturl $dep_portinfo(porturl) options $dep_options]]
    32623258
    3263                     if {$depport eq {}} {
     3259                    if {$depport eq ""} {
    32643260                        # We haven't opened this one yet.
    32653261                        set depport [mportopen $dep_portinfo(porturl) $dep_options $variations]
     
    32813277                    # a universal variant is offered
    32823278                    set has_universal 1
    3283                     if {![info exists variation_array(universal)] || $variation_array(universal) ne {+}} {
     3279                    if {![info exists variation_array(universal)] || $variation_array(universal) ne "+"} {
    32843280                        set variation_array(universal) +
    32853281                        # try again with +universal
     
    33073303                # record actual archs we ended up getting
    33083304                set port_seen(${dep_portname},[join [macports::_mport_archs $depport] ,]) $depport_provides
    3309             } elseif {$present && $dep_portname ne {}} {
     3305            } elseif {$present && $dep_portname ne ""} {
    33103306                # record actual installed archs
    33113307                set port_seen(${dep_portname},[join [macports::_active_archs $dep_portname] ,]) 0
     
    33203316            # Any of these may have been closed by a previous recursive call
    33213317            # and replaced by a universal version. This is fine, just skip.
    3322             if {[ditem_key $depport] ne {}} {
     3318            if {[ditem_key $depport] ne ""} {
    33233319                set res [mportdepends $depport {} $recurseDeps $skipSatisfied 1]
    33243320                if {$res != 0} {
     
    33343330# check if the given mport can support dependents with the given archs
    33353331proc macports::_mport_supports_archs {mport required_archs} {
    3336     if {$required_archs eq {noarch}} {
     3332    if {$required_archs eq "noarch"} {
    33373333        return 1
    33383334    }
    33393335    set provided_archs [_mport_archs $mport]
    3340     if {$provided_archs eq {noarch}} {
     3336    if {$provided_archs eq "noarch"} {
    33413337        return 1
    33423338    }
     
    33573353# check if the active version of a port supports the given archs
    33583354proc macports::_active_supports_archs {portname required_archs} {
    3359     if {$required_archs eq {noarch}} {
     3355    if {$required_archs eq "noarch"} {
    33603356        return 1
    33613357    }
     
    33643360    }
    33653361    set provided_archs [_active_archs $portname]
    3366     if {$provided_archs eq {noarch} || $provided_archs eq {} || $provided_archs == 0} {
     3362    if {$provided_archs eq "noarch" || $provided_archs eq "" || $provided_archs == 0} {
    33673363        return 1
    33683364    }
     
    33953391
    33963392    ui_error "Cannot install $port for the arch${s} '$required_archs' because"
    3397     if {$supported_archs ne {}} {
     3393    if {$supported_archs ne ""} {
    33983394        set ss [expr {[llength $supported_archs] == 1 ? "" : "s"}]
    33993395        foreach arch $required_archs {
     
    34233419    array set portinfo [mportinfo $mport]
    34243420    foreach type $deptypes {
    3425         if {[info exists portinfo($type)] && $portinfo($type) ne {}} {
     3421        if {[info exists portinfo($type)] && $portinfo($type) ne ""} {
    34263422            return 1
    34273423        }
     
    34983494
    34993495    # variable that indicates whether we actually updated base
    3500     if {$updatestatusvar ne {}} {
     3496    if {$updatestatusvar ne ""} {
    35013497        upvar $updatestatusvar updatestatus
    35023498        set updatestatus no
     
    35053501    # are we syncing a tarball? (implies detached signature)
    35063502    set is_tarball 0
    3507     if {[string range $rsync_dir end-3 end] eq {.tar}} {
     3503    if {[string range $rsync_dir end-3 end] eq ".tar"} {
    35083504        set is_tarball 1
    35093505        set mp_source_path [file join $portdbpath sources $rsync_server [file dirname $rsync_dir]]
    35103506    } else {
    3511         if {[string index $rsync_dir end] ne {/}} {
     3507        if {[string index $rsync_dir end] ne "/"} {
    35123508            append rsync_dir /
    35133509        }
     
    35683564    ui_msg "MacPorts base version $macports::autoconf::macports_version installed,"
    35693565
    3570     if {[info exists options(ports_force)] && $options(ports_force) eq {yes}} {
     3566    if {[info exists options(ports_force)] && $options(ports_force)} {
    35713567        set use_the_force_luke yes
    35723568        ui_debug "Forcing a rebuild and reinstallation of MacPorts"
     
    35933589
    35943590    # syncing ports tree.
    3595     if {![info exists options(ports_selfupdate_nosync)] || $options(ports_selfupdate_nosync) ne {yes}} {
     3591    if {![info exists options(ports_selfupdate_nosync)] || !$options(ports_selfupdate_nosync)} {
    35963592        if {$comp > 0} {
    35973593            # updated portfiles potentially need new base to parse - tell sync to try to
     
    36043600    }
    36053601
    3606     if {$use_the_force_luke eq {yes} || $comp > 0} {
    3607         if {[info exists options(ports_dryrun)] && $options(ports_dryrun) eq {yes}} {
     3602    if {$use_the_force_luke || $comp > 0} {
     3603        if {[info exists options(ports_dryrun)] && $options(ports_dryrun)} {
    36083604            ui_msg "$macports::ui_prefix MacPorts base is outdated, selfupdate would install $macports_version_new (dry run)"
    36093605        } else {
     
    36143610            set group [file attributes $prefix -group]
    36153611            set perms [string range [file attributes $prefix -permissions] end-3 end]
    3616             if {$tcl_platform(user) ne {root} && $tcl_platform(user) ne $owner} {
     3612            if {$tcl_platform(user) ne "root" && $tcl_platform(user) ne $owner} {
    36173613                return -code error "User $tcl_platform(user) does not own $prefix - try using sudo"
    36183614            }
     
    36213617            set configure_args "--prefix=[macports::shellescape $prefix] --with-install-user=[macports::shellescape $owner] --with-install-group=[macports::shellescape $group] --with-directory-mode=[macports::shellescape $perms]"
    36223618            # too many users have an incompatible readline in /usr/local, see ticket #10651
    3623             if {$tcl_platform(os) ne {Darwin} || $prefix eq {/usr/local}
    3624                 || ([glob -nocomplain /usr/local/lib/lib{readline,history}*] eq {} && [glob -nocomplain /usr/local/include/readline/*.h] eq {})} {
     3619            if {$tcl_platform(os) ne "Darwin" || $prefix eq "/usr/local"
     3620                || ([glob -nocomplain /usr/local/lib/lib{readline,history}*] eq "" && [glob -nocomplain /usr/local/include/readline/*.h] eq "")} {
    36253621                append configure_args " --enable-readline"
    36263622            } else {
     
    36283624            }
    36293625
    3630             if {$prefix eq {/usr/local} || $prefix eq {/usr}} {
     3626            if {$prefix eq "/usr/local" || $prefix eq "/usr"} {
    36313627                append configure_args " --with-unsupported-prefix"
    36323628            }
     
    36343630            # Choose a sane compiler
    36353631            set cc_arg {}
    3636             if {$::macports::os_platform eq {darwin}} {
     3632            if {$::macports::os_platform eq "darwin"} {
    36373633                set cc_arg "CC=/usr/bin/cc OBJC=/usr/bin/cc "
    36383634            }
     
    36603656    }
    36613657
    3662     if {![info exists options(ports_selfupdate_nosync)] || $options(ports_selfupdate_nosync) ne {yes}} {
     3658    if {![info exists options(ports_selfupdate_nosync)] || !$options(ports_selfupdate_nosync)} {
    36633659        if {[info exists needed_portindex]} {
    36643660            ui_msg "Not all sources could be fully synced using the old version of MacPorts."
     
    36853681        return 3
    36863682    }
    3687     if {$depscachename ne {}} {
     3683    if {$depscachename ne ""} {
    36883684        upvar $depscachename depscache
    36893685    } else {
     
    37123708    array set options $optionslist
    37133709
    3714     if {$depscachename ne {}} {
     3710    if {$depscachename ne ""} {
    37153711        upvar $depscachename depscache
    37163712    }
     
    37183714    # Is this a dry run?
    37193715    set is_dryrun no
    3720     if {[info exists options(ports_dryrun)] && $options(ports_dryrun) eq {yes}} {
     3716    if {[info exists options(ports_dryrun)] && $options(ports_dryrun)} {
    37213717        set is_dryrun yes
    37223718    }
     
    37463742    }
    37473743    # argh! port doesnt exist!
    3748     if {$result eq {}} {
     3744    if {$result eq ""} {
    37493745        ui_warn "No port $portname found in the index."
    37503746        return 2
     
    38413837        set revision [lindex $i 2]
    38423838        set epoch [lindex $i 5]
    3843         if {$version_installed eq {} || ($epoch > $epoch_installed && $version ne $version_installed) ||
     3839        if {$version_installed eq "" || ($epoch > $epoch_installed && $version ne $version_installed) ||
    38443840                ($epoch >= $epoch_installed && [vercmp $version $version_installed] > 0)
    38453841                || ($epoch >= $epoch_installed
     
    39383934            return 1
    39393935        }
    3940         if {$result eq {}} {
     3936        if {$result eq ""} {
    39413937            ui_error "No port $portinfo(replaced_by) found."
    39423938            return 1
     
    39903986            set build_override 1
    39913987            ui_debug "epoch override ... upgrading!"
    3992         } elseif {[info exists options(ports_upgrade_enforce-variants)] && $options(ports_upgrade_enforce-variants) eq {yes}
     3988        } elseif {[info exists options(ports_upgrade_enforce-variants)] && $options(ports_upgrade_enforce-variants)
    39933989                  && [info exists portinfo(canonical_active_variants)] && $portinfo(canonical_active_variants) ne $oldvariant} {
    39943990            ui_debug "variant override ... upgrading!"
    3995         } elseif {$os_platform_installed ne {} && $os_major_installed ne {} && $os_platform_installed != 0
     3991        } elseif {$os_platform_installed ne "" && $os_major_installed ne "" && $os_platform_installed != 0
    39963992                  && ([_mportkey $mport {{os.platform}}] ne $os_platform_installed
    39973993                  || [_mportkey $mport {{os.major}}] != $os_major_installed)} {
     
    41224118        set existing_epoch [lindex [registry::installed $newname ${version_in_tree}_${revision_in_tree}$portinfo(canonical_active_variants)] 0 5]
    41234119        set newregref [registry::open_entry $newname $version_in_tree $revision_in_tree $portinfo(canonical_active_variants) $existing_epoch]
    4124         if {$is_dryrun eq {yes}} {
     4120        if {$is_dryrun} {
    41254121            ui_msg "Skipping uninstall $newname @${version_in_tree}_${revision_in_tree}$portinfo(canonical_active_variants) (dry run)"
    41264122        } elseif {![registry::run_target $newregref uninstall [array get options]]
     
    41454141        set force_cur [info exists options(ports_force)]
    41464142        set options(ports_force) yes
    4147         if {$is_dryrun eq {yes}} {
     4143        if {$is_dryrun} {
    41484144            ui_msg "Skipping deactivate $portname @${version_active}_${revision_active}$variant_active (dry run)"
    41494145        } elseif {![catch {registry::active $portname}] &&
     
    41674163    }
    41684164
    4169     if {$is_dryrun eq {yes}} {
     4165    if {$is_dryrun} {
    41704166        if {$anyactive} {
    41714167            ui_msg "Skipping deactivate $portname @${version_active}_${revision_active}$variant_active (dry run)"
     
    42114207    }
    42124208
    4213     if {[info exists uninstall_later] && $uninstall_later eq "yes"} {
     4209    if {[info exists uninstall_later] && $uninstall_later} {
    42144210        foreach i $ilist {
    42154211            set version [lindex $i 1]
     
    42224218            ui_debug "Uninstalling $portname ${version}_${revision}$variant"
    42234219            set regref [registry::open_entry $portname $version $revision $variant $epoch]
    4224             if {$is_dryrun eq {yes}} {
     4220            if {$is_dryrun} {
    42254221                ui_msg "Skipping uninstall $portname @${version}_${revision}$variant (dry run)"
    42264222            } elseif {![registry::run_target $regref uninstall $optionslist]
     
    42784274                set d [$parentworker eval _get_dep_port $i]
    42794275                if {![llength [array get depscache port:$d]] && ![llength [array get depscache $i]]} {
    4280                     if {$d ne {}} {
     4276                    if {$d ne ""} {
    42814277                        set dspec port:$d
    42824278                    } else {
     
    43264322                # Only the file name corresponds to the version name.
    43274323                set v [file tail $v]
    4328                 if {$v eq {base} || $v eq {current}} {
     4324                if {$v eq "base" || $v eq "current"} {
    43294325                    continue
    43304326                }
     
    43454341        set {
    43464342            # Use ${conf_path}/$version to read in sources.
    4347             if {$version eq {} || $version eq {base} || $version eq {current}
     4343            if {$version eq "" || $version eq "base" || $version eq "current"
    43484344                    || [catch {set src_file [open "${conf_path}/$version"]} result]} {
    43494345                global errorInfo
     
    44334429proc macports::arch_runnable {arch} {
    44344430    global macports::os_major macports::os_arch macports::os_platform
    4435     if {$macports::os_platform eq {darwin}} {
     4431    if {$macports::os_platform eq "darwin"} {
    44364432        if {$macports::os_major >= 11 && [string first ppc $arch] == 0} {
    44374433            return no
    4438         } elseif {$macports::os_arch eq {i386} && $arch eq {ppc64}} {
     4434        } elseif {$macports::os_arch eq "i386" && $arch eq "ppc64"} {
    44394435            return no
    4440         } elseif {$macports::os_major <= 8 && $arch eq {x86_64}} {
     4436        } elseif {$macports::os_major <= 8 && $arch eq "x86_64"} {
    44414437            return no
    44424438        }
     
    45794575        ui_msg "$macports::ui_prefix Scanning binaries for linking errors"
    45804576        set handle [machista::create_handle]
    4581         if {$handle eq {NULL}} {
     4577        if {$handle eq "NULL"} {
    45824578            error "Error creating libmachista handle"
    45834579        }
     
    46204616
    46214617                set architecture [$result cget -mt_archs]
    4622                 while {$architecture ne {NULL}} {
    4623                     if {[info exists options(ports_rev-upgrade_id-loadcmd-check)] && $options(ports_rev-upgrade_id-loadcmd-check) eq {yes}} {
    4624                         if {[$architecture cget -mat_install_name] ne {NULL} && [$architecture cget -mat_install_name] ne {}} {
     4618                while {$architecture ne "NULL"} {
     4619                    if {[info exists options(ports_rev-upgrade_id-loadcmd-check)] && $options(ports_rev-upgrade_id-loadcmd-check)} {
     4620                        if {[$architecture cget -mat_install_name] ne "NULL" && [$architecture cget -mat_install_name] ne ""} {
    46254621                            # check if this lib's install name actually refers to this file itself
    46264622                            # if this is not the case software linking against this library might have erroneous load commands
    46274623                            if {0 == [catch {set idloadcmdpath [revupgrade_handle_special_paths $bpath [$architecture cget -mat_install_name]]}]} {
    4628                                 if {[string index $idloadcmdpath 0] ne {/}} {
     4624                                if {[string index $idloadcmdpath 0] ne "/"} {
    46294625                                    set port [registry::entry owner $bpath]
    4630                                     if {$port ne {}} {
     4626                                    if {$port ne ""} {
    46314627                                        set portname [$port name]
    46324628                                    } else {
     
    46394635                                } elseif {![file exists $idloadcmdpath]} {
    46404636                                    set port [registry::entry owner $bpath]
    4641                                     if {$port ne {}} {
     4637                                    if {$port ne ""} {
    46424638                                        set portname [$port name]
    46434639                                    } else {
     
    46554651                                    if {$hash_this ne $hash_idloadcmd} {
    46564652                                        set port [registry::entry owner $bpath]
    4657                                         if {$port ne {}} {
     4653                                        if {$port ne ""} {
    46584654                                            set portname [$port name]
    46594655                                        } else {
     
    46804676                    set loadcommand [$architecture cget -mat_loadcmds]
    46814677
    4682                     while {$loadcommand ne {NULL}} {
     4678                    while {$loadcommand ne "NULL"} {
    46834679                        if {0 != [catch {set filepath [revupgrade_handle_special_paths $bpath [$loadcommand cget -mlt_install_name]]}]} {
    46844680                            set loadcommand [$loadcommand cget -next]
     
    47114707                        set libarchitecture [$libresult cget -mt_archs]
    47124708                        set libarch_found false;
    4713                         while {$libarchitecture ne {NULL}} {
     4709                        while {$libarchitecture ne "NULL"} {
    47144710                            if {[$architecture cget -mat_arch] ne [$libarchitecture cget -mat_arch]} {
    47154711                                set libarchitecture [$libarchitecture cget -next]
     
    47304726                        }
    47314727
    4732                         if {$libarch_found eq "false"} {
     4728                        if {!$libarch_found} {
    47334729                            ui_debug "Missing architecture [machista::get_arch_name [$architecture cget -mat_arch]] in file $filepath"
    47344730                            if {[path_is_in_prefix $filepath]} {
     
    47704766        foreach file $broken_files {
    47714767            set port [registry::entry owner $file]
    4772             if {$port ne {}} {
     4768            if {$port ne ""} {
    47734769                lappend broken_ports $port
    47744770                lappend broken_files_by_port($port) $file
     
    47794775        set broken_ports [lsort -unique $broken_ports]
    47804776
    4781         if {$macports::revupgrade_mode eq {rebuild}} {
     4777        if {$macports::revupgrade_mode eq "rebuild"} {
    47824778            # don't try to rebuild ports that don't exist in the tree
    47834779            set temp_broken_ports {}
     
    48304826        set s [expr {$num_broken_ports == 1 ? "" : "s"}]
    48314827
    4832         if {$macports::revupgrade_mode ne {rebuild}} {
     4828        if {$macports::revupgrade_mode ne "rebuild"} {
    48334829            ui_msg "$macports::ui_prefix Found $num_broken_ports broken port${s}:"
    48344830            foreach port $broken_ports {
     
    49634959        }
    49644960
    4965         if {[info exists options(ports_dryrun)] && $options(ports_dryrun) eq {yes}} {
     4961        if {[info exists options(ports_dryrun)] && $options(ports_dryrun)} {
    49664962            ui_warn "If this was no dry run, rev-upgrade would now run the checks again to find unresolved and newly created problems"
    49674963            return 0
     
    50905086                if {[regexp {^(\w+)([ \t]+(.*))?$} $line match option ignore val] == 1} {
    50915087                    if {[lsearch -exact $conf_options $option] >= 0} {
    5092                         if {$option eq {name}} {
     5088                        if {$option eq "name"} {
    50935089                            set cur_name $val
    50945090                            lappend all_names $val
    50955091                        } elseif {[info exists cur_name]} {
    50965092                            set trimmedval [string trim $val]
    5097                             if {$option eq {urls}} {
     5093                            if {$option eq "urls"} {
    50985094                                set processed_urls {}
    50995095                                foreach url $trimmedval {
Note: See TracChangeset for help on using the changeset viewer.