410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
|
foreach modules $args {
foreach module $modules {
# If the module is given as an absolute path, ignore the path
# and process just as we would if the name were given alone
# This may be wrong, but otherwise dependency matching would
# be harder
if {[string index $module 0] == "/" && [file exists $module]} {
set module [file rootname [file tail]]
}
for {set try 0} {$try < 100} {incr try} {
if {![info exists alias2module($module)]} {
# If no exact match found, process wildcard entries
set found_wildcard_match 0
foreach alias [array name alias2module_wildcards] {
|
|
|
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
|
foreach modules $args {
foreach module $modules {
# If the module is given as an absolute path, ignore the path
# and process just as we would if the name were given alone
# This may be wrong, but otherwise dependency matching would
# be harder
if {[string index $module 0] == "/" && [file exists $module]} {
set module [file rootname [file tail $module]]
}
for {set try 0} {$try < 100} {incr try} {
if {![info exists alias2module($module)]} {
# If no exact match found, process wildcard entries
set found_wildcard_match 0
foreach alias [array name alias2module_wildcards] {
|