envmodules/modules
1
0
Fork 0
mirror of https://github.com/envmodules/modules.git synced 2026-06-14 00:42:43 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Adapt getExportTagList proc for full path module

Browse Source 
Update getExportTagList to pass full path module designation to the
underlying getTagList call. Full path module is not set and querying tag
information of an already loaded module.
This commit is contained in:
Xavier Delaruelle
2023-05-23 06:50:56 +02:00
parent b7c6347509
commit 17081335ce
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tcl/modfind.tcl.in
View File

@@ -695,7 +695,7 @@ proc getTagList {mod {fpmod {}} {sort 1}} {
}
# return tags applying to mod that can be exported
proc getExportTagList {mod {serialized 0}} {
proc getExportTagList {mod {serialized 0} {fpmod {}}} {
# remove loaded/hidden tags from the list to register
lassign [getDiffBetweenList [getTagList $mod $fpmod 0] [list loaded\
hidden]] ret

4
tcl/subcmd.tcl.in
View File

@@ -1315,7 +1315,7 @@ proc cmdModuleLoad {context uasked tryload loadany tag_list args} {
}
# declare the tags of this module
if {[set modtag [getExportTagList $modnamevr 1]] ne {}} {
if {[set modtag [getExportTagList $modnamevr 1 $modfile]] ne {}} {
append-path __MODULES_LMTAG $modtag
}
if {[set modtag [getExtraTagList $modnamevr 1]] ne {}} {
@@ -1339,7 +1339,7 @@ proc cmdModuleLoad {context uasked tryload loadany tag_list args} {
# record module title (name, variants and tags)
registerModuleDesignation $msgrecid $modname [getVariantList\
$modname 7] [getExportTagList $modname]
$modname 7] [getExportTagList $modname 0 $modfile]
# consider evaluation hidden if hidden loaded module is auto loaded
# and no specific messages are recorded for this evaluation