Changeset 196


Ignore:
Timestamp:
Aug 18, 2002, 12:30:51 PM (18 years ago)
Author:
landonf (Landon Fuller)
Message:

working file regex testing for libraries, etc

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/Tcl/port1.0/portutil.tcl

    r191 r196  
    6666
    6767proc swdep_resolve {name chain} {
    68     global $name env
     68    global $name env sysportpath
    6969    if {![info exists $name]} {
    7070        return 0
     
    103103    }
    104104    foreach path $search_path {
    105         # XXX XXX XXX XXX Broken XXX XXX XXX XXX
    106         # Always executes. need to fix regex path checking
    107105        if {![file isdirectory $path]} {
    108106                continue
    109107        }
    110         if {![file isfile $path/$depregex]} {
    111                 global sysportpath
    112                 build $sysportpath/software/$portname build make
    113                 return 0
    114         }
    115     }
     108        foreach filename [readdir $path] {
     109                if {[regexp $depregex $filename] == 1} {
     110                        puts "GOLDEN: $path $filename $depregex"
     111                        return 0
     112                }
     113        }
     114    }
     115    build $sysportpath/software/$portname build make
    116116    return 0
    117117}
Note: See TracChangeset for help on using the changeset viewer.