Changeset 196 for trunk/base

Timestamp:

Aug 18, 2002, 12:30:51 PM (22 years ago)

Author:

landonf (Landon Fuller)

Message:

working file regex testing for libraries, etc

File:

• trunk/base/Tcl/port1.0/portutil.tcl (modified) (2 diffs)

trunk/base/Tcl/port1.0/portutil.tcl

@@ -66 +66 @@
 
 proc swdep_resolve {name chain} {
-    global $name env
+    global $name env sysportpath
     if {![info exists $name]} {
         return 0
@@ -103 +103 @@
     }
     foreach path $search_path {
-        # XXX XXX XXX XXX Broken XXX XXX XXX XXX
-        # Always executes. need to fix regex path checking
         if {![file isdirectory $path]} {
                 continue
         }
-        if {![file isfile $path/$depregex]} {
-                global sysportpath
-                build $sysportpath/software/$portname build make
-                return 0
-        }
-    }
+        foreach filename [readdir $path] {
+                if {[regexp $depregex $filename] == 1} {
+                        puts "GOLDEN: $path $filename $depregex"
+                        return 0
+                }
+        }
+    }
+    build $sysportpath/software/$portname build make
     return 0
 }