[21585] trunk/base/src/darwinports1.0/darwinports_fastload.tcl.in

[source_changes at macosforge.org]

Revision: 21585
          http://trac.macosforge.org/projects/macports/changeset/21585
Author:   eridius at macports.org
Date:     2007-01-29 14:39:37 -0800 (Mon, 29 Jan 2007)

Log Message:
-----------
Iterate in darwinports_fastload using glob instead of hardcoding the library names

Modified Paths:
--------------
    trunk/base/src/darwinports1.0/darwinports_fastload.tcl.in

Modified: trunk/base/src/darwinports1.0/darwinports_fastload.tcl.in
===================================================================
--- trunk/base/src/darwinports1.0/darwinports_fastload.tcl.in	2007-01-29 21:57:30 UTC (rev 21584)
+++ trunk/base/src/darwinports1.0/darwinports_fastload.tcl.in	2007-01-29 22:39:37 UTC (rev 21585)
@@ -73,16 +73,9 @@
 set dir [file join "@TCL_PACKAGE_DIR@" darwinports1.0]
 catch {source [file join $dir pkgIndex.tcl]}
 
-# I could iterate on the directory, but the only way I know in Tcl involves a
-# native function we provide in pextlib.
-set dir [file join "@prefix_expanded@" share darwinports Tcl port1.0]
-catch {source [file join $dir pkgIndex.tcl]}
-set dir [file join "@prefix_expanded@" share darwinports Tcl package1.0]
-catch {source [file join $dir pkgIndex.tcl]}
-set dir [file join "@prefix_expanded@" share darwinports Tcl pextlib1.0]
-catch {source [file join $dir pkgIndex.tcl]}
-set dir [file join "@prefix_expanded@" share darwinports Tcl registry1.0]
-catch {source [file join $dir pkgIndex.tcl]}
+foreach dir [glob -directory "@prefix_expanded@" -join share darwinports Tcl *] {
+	catch {source [file join $dir pkgIndex.tcl]}
+}
 
 if { "@SQLITE3_DIR@" != "" } {
 	set dir "@SQLITE3_DIR@"

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070129/4a3b49be/attachment.html