envmodules/modules
1
0
Fork 0
mirror of https://github.com/envmodules/modules.git synced 2026-05-30 00:12:31 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Get all modules in getModules if provided-aliases are included

Browse Source 
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 <xavier.delaruelle@cea.fr>
This commit is contained in:
Xavier Delaruelle
2025-07-13 18:14:42 +02:00
parent 8277bdf3f3
commit c32baba220
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
tcl/modfind.tcl.in
View File

@@ -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