Changeset 29692 for trunk/base


Ignore:
Timestamp:
Oct 5, 2007, 7:41:37 PM (12 years ago)
Author:
jmpp@…
Message:

Whitespace cleanups.

File:
1 edited

Legend:

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

    r29669 r29692  
    13091309    ui_debug "Synchronizing ports tree(s)"
    13101310    foreach source $sources {
    1311     set flags [lrange $source 1 end]
    1312     set source [lindex $source 0]
    1313     if {[lsearch -exact $flags nosync] != -1} {
    1314         ui_debug "Skipping $source"
    1315         continue
    1316     }
    1317     ui_info "Synchronizing from $source"
    1318     switch -regexp -- [macports::getprotocol $source] {
    1319         {^file$} {
    1320         set portdir [macports::getportdir $source]
    1321         if {[file exists $portdir/.svn]} {
    1322             set svn_commandline "[macports::findBinary svn ${macports::autoconf::svn_path}] update --non-interactive ${portdir}"
    1323             ui_debug $svn_commandline
    1324             if {[catch {
    1325             set euid [geteuid]
    1326             set egid [getegid]
    1327             ui_debug "changing euid/egid - current euid: $euid - current egid: $egid"
    1328             setegid [name_to_gid [file attributes $portdir -group]]
    1329             seteuid [name_to_uid [file attributes $portdir -owner]]
    1330             system $svn_commandline
    1331             seteuid $euid
    1332             setegid $egid
    1333             }]} {
    1334             ui_debug "$::errorInfo"
    1335             return -code error "sync failed doing svn update"
    1336             }
    1337         }
    1338         }
    1339         {^mports$} {
    1340         macports::index::sync $macports::portdbpath $source
    1341         }
    1342         {^rsync$} {
    1343         # Where to, boss?
    1344         set destdir [file dirname [macports::getindex $source]]
    1345 
    1346         file mkdir $destdir
    1347        
    1348         # Keep rsync happy with a trailing slash
    1349         if {[string index $source end] != "/"} {
    1350             set source "${source}/"
    1351         }
    1352 
    1353         # Do rsync fetch
    1354         set rsync_commandline "${macports::autoconf::rsync_path} ${rsync_options} ${source} ${destdir}"
    1355         ui_debug $rsync_commandline
    1356         if {[catch {system $rsync_commandline}]} {
    1357             return -code error "sync failed doing rsync"
    1358         }
    1359         if {[catch {system "chmod -R a+r \"$destdir\""}]} {
    1360             ui_warn "Setting world read permissions on parts of the ports tree failed, need root?"
    1361         }
    1362         }
    1363         {^https?$|^ftp$} {
    1364         set indexfile [macports::getindex $source]
    1365         file mkdir [file dirname $indexfile]
    1366         exec curl -L -s -S -o $indexfile $source/PortIndex
    1367         }
    1368         default {
    1369         ui_warn "Unknown protocol for $source"
    1370         }
    1371     }
     1311        set flags [lrange $source 1 end]
     1312        set source [lindex $source 0]
     1313        if {[lsearch -exact $flags nosync] != -1} {
     1314            ui_debug "Skipping $source"
     1315            continue
     1316        }
     1317        ui_info "Synchronizing from $source"
     1318        switch -regexp -- [macports::getprotocol $source] {
     1319            {^file$} {
     1320                set portdir [macports::getportdir $source]
     1321                if {[file exists $portdir/.svn]} {
     1322                    set svn_commandline "[macports::findBinary svn ${macports::autoconf::svn_path}] update --non-interactive ${portdir}"
     1323                    ui_debug $svn_commandline
     1324                    if {
     1325                        [catch {
     1326                            set euid [geteuid]
     1327                            set egid [getegid]
     1328                            ui_debug "changing euid/egid - current euid: $euid - current egid: $egid"
     1329                            setegid [name_to_gid [file attributes $portdir -group]]
     1330                            seteuid [name_to_uid [file attributes $portdir -owner]]
     1331                            system $svn_commandline
     1332                            seteuid $euid
     1333                            setegid $egid
     1334                        }]
     1335                    } {
     1336                        ui_debug "$::errorInfo"
     1337                        return -code error "sync failed doing svn update"
     1338                    }
     1339                }
     1340            }
     1341            {^mports$} {
     1342                macports::index::sync $macports::portdbpath $source
     1343            }
     1344            {^rsync$} {
     1345                # Where to, boss?
     1346                set destdir [file dirname [macports::getindex $source]]
     1347                file mkdir $destdir
     1348                # Keep rsync happy with a trailing slash
     1349                if {[string index $source end] != "/"} {
     1350                    set source "${source}/"
     1351                }
     1352                # Do rsync fetch
     1353                set rsync_commandline "${macports::autoconf::rsync_path} ${rsync_options} ${source} ${destdir}"
     1354                ui_debug $rsync_commandline
     1355                if {[catch {system $rsync_commandline}]} {
     1356                    return -code error "sync failed doing rsync"
     1357                }
     1358                if {[catch {system "chmod -R a+r \"$destdir\""}]} {
     1359                    ui_warn "Setting world read permissions on parts of the ports tree failed, need root?"
     1360                }
     1361            }
     1362            {^https?$|^ftp$} {
     1363                set indexfile [macports::getindex $source]
     1364                file mkdir [file dirname $indexfile]
     1365                exec curl -L -s -S -o $indexfile $source/PortIndex
     1366            }
     1367            default {
     1368                ui_warn "Unknown protocol for $source"
     1369            }
     1370        }
    13721371    }
    13731372}
Note: See TracChangeset for help on using the changeset viewer.