I've got the following piece of tcl script :
+++ script start +++
proc filesys dirPath {
try {
foreach filePath [glob -directory ${dirPath} *] {
ui_msg "[file size ${filePath}] :: ${filePath}"
if { [file isdirectory ${filePath}] } {
filesys ${filePath}
}
}
} finally {
}
}
filesys "${filespath}/install"
+++ script end +++
What I'm trying to do, is walk recursively through a file system and
make some action based upon wheher the /filePath/ is a dir or a normal
file. It works perfectly - untill it reaches an empty dir and I get this
error :
Error: Unable to open port: no files matched glob pattern "*"
What's bugging me is why the /try/ doesn't catch the error and ignores
it. I've tried moving the /[glob ...]/ outside the /foreach/ and create
a list that I then pass into the /foreach/, but that doesn't work either.
Do I really have to have a dummy file in all of my dirs ??
:-) Happy Hacking :-)
--
Bjarne D Mathiesen
København N ; Danmark ; Europa
----------------------------------------------------------------------
denne besked er skrevet i et totalt M$-frit miljø
MacOS X 10.7.3 Lion ; 2.8GHz Intel Core i7 ; 16GB 1067MHz DDR3
_______________________________________________
macports-users mailing list
[email protected]
http://lists.macosforge.org/mailman/listinfo.cgi/macports-users
