From c32baba220f109f4afd3eaba74fbadfeeb6b0280 Mon Sep 17 00:00:00 2001 From: Xavier Delaruelle Date: Sun, 13 Jul 2025 18:14:42 +0200 Subject: [PATCH] Get all modules in getModules if provided-aliases are included Get all existing modules in getModules if provided-aliases are included to then be able to filter on search query. Provided-aliases matching query will be found this way. Signed-off-by: Xavier Delaruelle --- tcl/modfind.tcl.in | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/tcl/modfind.tcl.in b/tcl/modfind.tcl.in index 225fb338..12d2b23a 100644 --- a/tcl/modfind.tcl.in +++ b/tcl/modfind.tcl.in @@ -3050,7 +3050,10 @@ proc getModules {dir {mod {}} {fetch_mtime 0} {search {}} {filter {}}} { set hasmoddir [expr {$moddir ne {.}}] set modroot [getModuleRootFromVersSpec $mod] - set earlyfilter [expr {!$contains && !$wild && $modroot eq [string\ + # get all in case of contains search or if provided-aliases are included + set find_all [expr {$contains || [isEltInReport provided-alias 0]}] + + set earlyfilter [expr {!$find_all && !$wild && $modroot eq [string\ map {* {} ? {}} $modroot]}] # are result entries gathered in a resolution context ? @@ -3068,7 +3071,7 @@ proc getModules {dir {mod {}} {fetch_mtime 0} {search {}} {filter {}}} { # find modules by searching mod root name in order to catch all module # related entries to correctly computed auto symbols afterward - if {$contains} { + if {$find_all} { set findmod * } else { set findmod $modroot