Hrm, nobody has responded. I guess nobody cares? If I don't hear anything back in the next few days, I'll go ahead and commit the change. On Jan 12, 2007, at 2:27 PM, Kevin Ballard wrote:
I was just poking around and in darwinports_fastload.tcl.in I discovered the following:
# 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]}
It's actually rather trivial to do this iteration - that block can be replaced with:
foreach dir [glob -directory "@prefix_expanded@" -join share darwinports Tcl *] { catch {source [file join $dir pkgIndex.tcl]} }
Should I go ahead and commit this change?
Incidentally, this will source darwintrace1.0/pkgIndex.tcl (which the manual sourcing doesn't), but I looked in that file and it's just comments, so it won't make a difference. I am curious as to what darwintrace1.0 is for, since it doesn't provide any packages in pkgIndex.tcl.
-- Kevin Ballard http://kevin.sb.org eridius@macports.org http://www.tildesoft.com