2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
|
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
|
-
+
|
}
}
if {$count == 0} then {
set pattern [file join $scriptPath [appendArgs \
$scriptRootName .settings.* $scriptExtension]]
foreach fileName [glob -nocomplain -- $pattern] {
foreach fileName [lsort [glob -nocomplain -- $pattern]] {
#
# BUGFIX: Do not consider any settings script file
# that may have already been evaluated via
# the above list(s) of script prefixes.
#
set fileNameOnly [file tail $fileName]
|