Changeset 985


Ignore:
Timestamp:
Apr 15, 2010 2:13:56 PM (11 years ago)
Author:
toby
Message:

look for svn in fink and MacPorts? locations

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    r983 r985  
    31983198    if {[auto_execok svn] != ""} {return 1}
    31993199    # add a locally supplied svn version, if not in the path already
    3200     set localsvn [file join $scriptdir svn bin]
    3201     if {[file exists $localsvn]} {
    3202         if {$::tcl_platform(platform) == "windows"} {
    3203             set localsvn [file nativename $localsvn]
    3204             set sep {;}
    3205         } else {
    3206             set sep {:}
    3207         }
    3208         if {[lsearch [split $::env(PATH) $sep] $localsvn] == -1} {
    3209             append ::env(PATH) $sep $localsvn
    3210             auto_reset
    3211             if {[auto_execok svn] != ""} {return 1}
     3200    set pathlist "[file join $scriptdir svn bin]"
     3201    lappend pathlist "/sw/bin/"
     3202    lappend pathlist "/opt/local/bin/"
     3203    catch {lappend pathlist $::expgui(pathlist)}
     3204    foreach localsvn $pathlist {
     3205        if {[file exists $localsvn]} {
     3206            if {$::tcl_platform(platform) == "windows"} {
     3207                set localsvn [file nativename $localsvn]
     3208                set sep {;}
     3209            } else {
     3210                set sep {:}
     3211            }
     3212            if {[lsearch [split $::env(PATH) $sep] $localsvn] == -1} {
     3213                append ::env(PATH) $sep $localsvn
     3214                auto_reset
     3215                if {[auto_execok svn] != ""} {return 1}
     3216            }
    32123217        }
    32133218    }
Note: See TracChangeset for help on using the changeset viewer.