Mercurial > ecos
diff host/libcdl/interp.cxx @ 2592:f4ceaa469de9
* interp.cxx: Ignore file and directory names with a leading period.
| author | jld |
|---|---|
| date | Mon, 10 Nov 2008 12:22:26 +0000 |
| parents | 33cc410733a0 |
| children | 74dbf4c3f2e1 |
line wrap: on
line diff
--- a/host/libcdl/interp.cxx +++ b/host/libcdl/interp.cxx @@ -10,7 +10,7 @@ //####COPYRIGHTBEGIN#### // // ---------------------------------------------------------------------------- -// Copyright (C) 2004 eCosCentric Limited +// Copyright (C) 2004, 2005, 2008 eCosCentric Limited // Copyright (C) 2002 Bart Veer // Copyright (C) 1999, 2000, 2001 Red Hat, Inc. // @@ -1179,7 +1179,8 @@ set result {} foreach entry [glob -nocomplain -- $pattern] { \n\ if ([file isdirectory $entry]) { \n\ set entry [file tail $entry] \n\ - if {($entry != \"CVS\") && ($entry != \"cvs\")} { \n\ + if {($entry != \"CVS\") && ($entry != \"cvs\") && \ + ([string index $entry 0] != \".\")} { \n\ lappend result $entry \n\ } \n\ } \n\ @@ -1250,7 +1251,10 @@ foreach entry [glob -nocomplain -- $patt if ([file isdirectory $entry]) { \n\ continue \n\ } \n\ - lappend result [file tail $entry] \n\ + set entry [file tail $entry] \n\ + if {[string index $entry 0] != \".\"} { \n\ + lappend result $entry \n\ + } \n\ } \n\ return $result \n\ ";