164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
|
# Returns the contents of a directory as a sorted list of full file paths.
proc DirContents {dir} {
if {$::tcl_platform(platform) eq "windows"} {
# .-files are not treated specially on windows. * is enough to get all
set files [glob -directory $dir -nocomplain *]
} else {
set files [glob -directory $dir -nocomplain * {.[a-zA-Z]*}]
}
if {$::Pref(dir,onlyrev)} {
# FIXA: move to rev and make general for other systems
set entries [file join $dir CVS Entries]
if {[file exists $entries]} {
set ch [open $entries r]
|
|
>
>
>
>
>
>
>
|
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
|
# Returns the contents of a directory as a sorted list of full file paths.
proc DirContents {dir} {
if {$::tcl_platform(platform) eq "windows"} {
# .-files are not treated specially on windows. * is enough to get all
set files [glob -directory $dir -nocomplain *]
} else {
set files [glob -directory $dir -nocomplain *]
# Handle .-files and make sure no duplicates are generated
set files2 [glob -directory $dir -nocomplain {.[a-zA-Z]*}]
foreach file $files2 {
if {$file ni $files} {
lappend files $file
}
}
}
if {$::Pref(dir,onlyrev)} {
# FIXA: move to rev and make general for other systems
set entries [file join $dir CVS Entries]
if {[file exists $entries]} {
set ch [open $entries r]
|