Add provided-alias to {avail,spider}_output config

Add "provided-alias" item to avail_output and spider_output
configuration options. When set, it activates *extra match search* to
evaluate modulefiles and get module alias defined within them.

When "provided-alias" item is set, it implies "alias" item.

Signed-off-by: Xavier Delaruelle <[email protected]>

Author: xdelaruelle

tcl/init.tcl.in

@@ -80,11 +80,11 @@ array set g_config_defs [list\
    auto_handling {MODULES_AUTO_HANDLING @autohandling@ 0 b {0 1}}\
    avail_indepth {MODULES_AVAIL_INDEPTH @availindepth@ 0 b {0 1}}\
    avail_output {MODULES_AVAIL_OUTPUT {@availoutput@} 0 l {modulepath alias\
-      dirwsym indesym sym tag key hidden variant variantifspec via} {} {}\
-      eltlist}\
+      provided-alias dirwsym indesym sym tag key hidden variant variantifspec\
+      via} {} {} eltlist}\
    avail_terse_output {MODULES_AVAIL_TERSE_OUTPUT {@availterseoutput@} 0 l\
-      {modulepath alias dirwsym indesym sym tag key hidden variant\
-      variantifspec} {} {} eltlist}\
+      {modulepath alias provided-alias dirwsym indesym sym tag key hidden\
+      variant variantifspec} {} {} eltlist}\
    cache_buffer_bytes {MODULES_CACHE_BUFFER_BYTES 32768 0 i {4096 1000000} {}\
       {} intbe}\
    cache_expiry_secs {MODULES_CACHE_EXPIRY_SECS 0 0 i {0 31536000} {} {}\
@@ -137,11 +137,11 @@ array set g_config_defs [list\
    siteconfig {{} {@etcdir@/siteconfig.tcl} 0 s}\
    spider_indepth {MODULES_SPIDER_INDEPTH @spiderindepth@ 0 b {0 1}}\
    spider_output {MODULES_SPIDER_OUTPUT {@spideroutput@} 0 l {modulepath\
-      alias dirwsym indesym sym tag key hidden variant variantifspec via} {}\
-      {} eltlist}\
+      alias provided-alias dirwsym indesym sym tag key hidden variant\
+      variantifspec via} {} {} eltlist}\
    spider_terse_output {MODULES_SPIDER_TERSE_OUTPUT {@spiderterseoutput@} 0 l\
-      {modulepath alias dirwsym indesym sym tag key hidden variant\
-      variantifspec} {} {} eltlist}\
+      {modulepath alias provided-alias dirwsym indesym sym tag key hidden\
+      variant variantifspec} {} {} eltlist}\
    source_cache {MODULES_SOURCE_CACHE @sourcecache@ 0 b {0 1}}\
    sticky_purge {MODULES_STICKY_PURGE {@stickypurge@} 0 s {error warning\
       silent}}\

tcl/modscan.tcl

@@ -357,11 +357,12 @@ proc getModMatchingExtraSpec {modpath pxtlist} {
 # determine if current module search requires an extra match search
 proc isExtraMatchSearchRequired {mod} {
    # an extra match search is required if not currently inhibited and:
-   # * variant should be reported in output
+   # * variant or provided-alias should be reported in output
    # * mod specification contains variant during avail/paths/whatis
    # * mod specification contains extra specifier during avail/paths/whatis
    return [expr {![getState inhibit_ems 0] && ([isEltInReport variant 0] ||\
-      (([llength [getVariantListFromVersSpec $mod]] || [llength\
+      [isEltInReport provided-alias 0] || (([llength\
+      [getVariantListFromVersSpec $mod]] || [llength\
       [getExtraListFromVersSpec $mod]]) && [currentState commandname] in\
       {avail paths whatis spider}))}]
 }
@@ -379,7 +380,7 @@ proc filterExtraMatchSearch {modpath mod res_arrname versmod_arrname} {
    set check_extra [llength $spec_xt_list]
    set check_tag [llength $spec_tag_list]
    set scan_eval [expr {$check_variant || $check_extra || [isEltInReport\
-      variant 0]}]
+      variant 0] || [isEltInReport provided-alias 0]}]
    set filter_res [expr {$check_variant || $check_extra || $check_tag}]
 
    if {$scan_eval} {

tcl/report.tcl.in

@@ -1448,7 +1448,8 @@ proc reportModules {search_queries header hsgrkey hstyle show_mtime show_idx\
       set report_sym [isEltInReport sym]
    }
    set report_tag [isEltInReport tag]
-   set report_alias [isEltInReport alias]
+   set report_alias [expr {[isEltInReport alias] || [isEltInReport\
+      provided-alias]}]
    # enable variant report if variantifspec configured and some variant is
    # specified in query or variant configured for report or list sub-command
    # json output

tcl/subcmd.tcl.in

@@ -39,7 +39,8 @@ proc cmdModuleList {show_oneperline show_mtime search_match args} {
    }
 
    set report_indesym [isEltInReport indesym 0]
-   set report_alias [isEltInReport alias 0]
+   set report_alias [expr {[isEltInReport alias 0] || [isEltInReport\
+      provided-alias 0]}]
 
    # build list of loaded modules and symbolics and aliases if reported
    set loadedmodlist [list]