Changeset 29522 for trunk/base


Ignore:
Timestamp:
Sep 26, 2007, 6:48:27 PM (12 years ago)
Author:
jmpp@…
Message:

Whitespace cleanups.

File:
1 edited

Legend:

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

    r29506 r29522  
    991991    set found 0
    992992    foreach path $search_path {
    993     if {![file isdirectory $path]} {
    994         continue
    995     }
    996 
    997     if {[catch {set filelist [readdir $path]} result]} {
    998         return -code error "$result ($path)"
    999         set filelist ""
    1000     }
    1001 
    1002     foreach filename $filelist {
    1003         if {[regexp $depregex $filename] &&
    1004             (($executable == 0) || [file executable [file join $path $filename]])} {
    1005         ui_debug "Found Dependency: path: $path filename: $filename regex: $depregex"
    1006         set found 1
    1007         break
    1008         }
    1009     }
     993        if {![file isdirectory $path]} {
     994            continue
     995        }
     996
     997        if {[catch {set filelist [readdir $path]} result]} {
     998            return -code error "$result ($path)"
     999            set filelist ""
     1000        }
     1001
     1002        foreach filename $filelist {
     1003            if {[regexp $depregex $filename] &&
     1004              (($executable == 0) || [file executable [file join $path $filename]])} {
     1005                ui_debug "Found Dependency: path: $path filename: $filename regex: $depregex"
     1006                set found 1
     1007                break
     1008            }
     1009        }
    10101010    }
    10111011    return $found
     
    13881388    set found 0
    13891389    foreach source $sources {
    1390             set flags [lrange $source 1 end]
    1391             set source [lindex $source 0]
     1390        set flags [lrange $source 1 end]
     1391        set source [lindex $source 0]
    13921392        if {[macports::getprotocol $source] == "mports"} {
    13931393            array set attrs [list name $pattern]
     
    13991399            } else {
    14001400                try {
    1401                 incr found 1
    1402                 while {[gets $fd line] >= 0} {
    1403                     array unset portinfo
    1404                     set name [lindex $line 0]
     1401                    incr found 1
     1402                    while {[gets $fd line] >= 0} {
     1403                        array unset portinfo
     1404                        set name [lindex $line 0]
    14051405                        set len [lindex $line 1]
    14061406                        set line [read $fd $len]
    1407 
     1407                       
    14081408                        if {$easy} {
    14091409                            set target $name
     
    14131413                            set target $portinfo($field)
    14141414                        }
    1415 
    1416                     switch $matchstyle {
    1417                     exact { set matchres [expr 0 == ( {$case_sensitive == "yes"} ? [string compare $pattern $target] : [string compare -nocase $pattern $target] )] }
    1418                     glob { set matchres [expr {$case_sensitive == "yes"} ? [string match $pattern $target] : [string match -nocase $pattern $target]] }
    1419                     regexp -
    1420                     default { set matchres [expr {$case_sensitive == "yes"} ? [regexp -- $pattern $target] : [regexp -nocase -- $pattern $target]] }
    1421                     }
    1422 
    1423                     if {$matchres == 1} {
    1424                     if {$easy} {
    1425                         array set portinfo $line
    1426                     }
    1427                     switch -regexp -- [macports::getprotocol ${source}] {
    1428                         {^rsync$} {
    1429                         # Rsync files are local
    1430                         set source_url "file://[macports::getsourcepath $source]"
     1415                       
     1416                        switch $matchstyle {
     1417                            exact {
     1418                                set matchres [expr 0 == ( {$case_sensitive == "yes"} ? [string compare $pattern $target] : [string compare -nocase $pattern $target] )]
     1419                            }
     1420                            glob {
     1421                                set matchres [expr {$case_sensitive == "yes"} ? [string match $pattern $target] : [string match -nocase $pattern $target]]
     1422                            }
     1423                            regexp -
     1424                            default {
     1425                                set matchres [expr {$case_sensitive == "yes"} ? [regexp -- $pattern $target] : [regexp -nocase -- $pattern $target]]
     1426                            }
    14311427                        }
    1432                         default {
    1433                         set source_url $source
     1428                       
     1429                        if {$matchres == 1} {
     1430                            if {$easy} {
     1431                                array set portinfo $line
     1432                            }
     1433                            switch -regexp -- [macports::getprotocol ${source}] {
     1434                                {^rsync$} {
     1435                                    # Rsync files are local
     1436                                    set source_url "file://[macports::getsourcepath $source]"
     1437                                }
     1438                                default {
     1439                                    set source_url $source
     1440                                }
     1441                            }
     1442                            if {[info exists portinfo(portarchive)]} {
     1443                                set porturl ${source_url}/$portinfo(portarchive)
     1444                            } elseif {[info exists portinfo(portdir)]} {
     1445                                set porturl ${source_url}/$portinfo(portdir)
     1446                            }
     1447                            if {[info exists porturl]} {
     1448                                lappend line porturl $porturl
     1449                                ui_debug "Found port in $porturl"
     1450                            } else {
     1451                                ui_debug "Found port info: $line"
     1452                            }
     1453                            lappend matches $name
     1454                            lappend matches $line
    14341455                        }
    14351456                    }
    1436                     if {[info exists portinfo(portarchive)]} {
    1437                         set porturl ${source_url}/$portinfo(portarchive)
    1438                     } elseif {[info exists portinfo(portdir)]} {
    1439                         set porturl ${source_url}/$portinfo(portdir)
    1440                     }
    1441                     if {[info exists porturl]} {
    1442                         lappend line porturl $porturl
    1443                         ui_debug "Found port in $porturl"
    1444                     } else {
    1445                         ui_debug "Found port info: $line"
    1446                     }
    1447                     lappend matches $name
    1448                     lappend matches $line
    1449                     }
    1450                 }
    14511457                } catch {*} {
    1452                 ui_warn "It looks like your PortIndex file may be corrupt."
    1453                 throw
     1458                    ui_warn "It looks like your PortIndex file may be corrupt."
     1459                    throw
    14541460                } finally {
    1455                 close $fd
     1461                    close $fd
    14561462                }
    14571463            }
     
    16781684        set owner root
    16791685        set group admin
    1680             set portprog [file join $prefix bin port]
     1686        set portprog [file join $prefix bin port]
    16811687        if {[file exists $portprog ]} {
    16821688            # set owner
     
    17241730proc macports::version {} {
    17251731    global macports::rsync_server macports::rsync_dir
    1726         global macports::autoconf::macports_conf_path
     1732    global macports::autoconf::macports_conf_path
    17271733   
    17281734    set mp_version_path [file join ${macports_conf_path} mp_version]
     
    17311737        set fd [open $mp_version_path r]
    17321738        gets $fd retval
    1733             close $fd
     1739        close $fd
    17341740        return $retval
    17351741    } else {
Note: See TracChangeset for help on using the changeset viewer.