Record requirement modulepath spec in environment

When a requirement is defined with a specific modulepath set, record
this spec in the user environment. This information is stored in
__MODULES_LMPREREQPATH environment variable.

Author: xdelaruelle

.hunspell.en.dic

@@ -1187,3 +1187,4 @@ B2
 A2
 C2
 stdin
+LMPREREQPATH

tcl/mfcmd.tcl

@@ -1177,6 +1177,10 @@ proc prereqAnyModfileCmd {tryload auto args} {
       }
       lappend record_list {*}$args
       setLoadedPrereq $currentModule $record_list
+
+      if {[llength $modulepath_list]} {
+         setLoadedPrereqPath $currentModule $record_list $modulepath_list
+      }
    }
 
    if {$auto} {

tcl/modeval.tcl

@@ -604,7 +604,8 @@ proc pushSettings {} {
       g_moduleNPODepend g_dependNPOHash g_prereqViolation\
       g_prereqNPOViolation g_conflictViolation g_moduleUnmetDep\
       g_unmetDepHash g_moduleEval g_moduleHiddenEval g_scanModuleVariant\
-      g_savedLoReqOfReloadMod g_savedLoReqOfUnloadMod} {
+      g_savedLoReqOfReloadMod g_savedLoReqOfUnloadMod\
+      g_loadedModulePrereqPath} {
       ##nagelfar ignore Suspicious variable name
       lappend ::g_SAVE_$var [array get ::$var]
    }
@@ -633,7 +634,8 @@ proc popSettings {} {
       g_moduleNPODepend g_dependNPOHash g_prereqViolation\
       g_prereqNPOViolation g_conflictViolation g_moduleUnmetDep\
       g_unmetDepHash g_moduleEval g_moduleHiddenEval g_scanModuleVariant\
-      g_savedLoReqOfReloadMod g_savedLoReqOfUnloadMod g_uReqUnFromDepReList} {
+      g_savedLoReqOfReloadMod g_savedLoReqOfUnloadMod g_uReqUnFromDepReList\
+      g_loadedModulePrereqPath} {
       ##nagelfar ignore Suspicious variable name
       set ::g_SAVE_$var [lrange [set ::g_SAVE_$var] 0 end-1]
    }
@@ -650,7 +652,8 @@ proc restoreSettings {} {
       g_moduleNPODepend g_dependNPOHash g_prereqViolation\
       g_prereqNPOViolation g_conflictViolation g_moduleUnmetDep\
       g_unmetDepHash g_moduleEval g_moduleHiddenEval g_scanModuleVariant\
-      g_savedLoReqOfReloadMod g_savedLoReqOfUnloadMod} {
+      g_savedLoReqOfReloadMod g_savedLoReqOfUnloadMod\
+      g_loadedModulePrereqPath} {
       # clear current $var arrays
       ##nagelfar ignore #5 Suspicious variable name
       if {[info exists ::$var]} {

tcl/modfind.tcl.in

@@ -1687,6 +1687,29 @@ proc getLoadedPrereq {mod} {
    }
 }
 
+proc setLoadedPrereqPath {mod args} {
+   appendNoDupToList ::g_loadedModulePrereqPath($mod) {*}$args
+}
+
+proc unsetLoadedPrereqPath {mod} {
+   if {[info exists ::g_loadedModulePrereqPath($mod)]} {
+      unset ::g_loadedModulePrereqPath($mod)
+   }
+}
+
+proc getLoadedPrereqPath {mod {prereq {}}} {
+   if {[info exists ::g_loadedModulePrereqPath($mod)]} {
+      if {![string length $prereq]} {
+         return $::g_loadedModulePrereqPath($mod)
+      }
+      # return specific entry for given prereq
+      array set prereq_path_arr $::g_loadedModulePrereqPath($mod)
+      if {[info exists prereq_path_arr($prereq)]} {
+         return $prereq_path_arr($prereq)
+      }
+   }
+}
+
 proc setLoadedAltname {mod args} {
    foreach arg $args {
       switch -- [lindex $arg 0] {
@@ -1846,7 +1869,7 @@ proc getEnvLoadedModulePropertyStructDepth {prop} {
       conflict - extratag - tag {
          return 1Lvl
       }
-      altname - prereq - sourcesh - stickyrule - variant {
+      altname - prereq - prereqpath - sourcesh - stickyrule - variant {
          return 2Lvl
       }
    }
@@ -2399,6 +2422,10 @@ proc cacheCurrentModules {{exitonerr 1}} {
             }
             setLoadedPrereq {*}$modpre
          }
+         foreach modpre_path [getEnvLoadedModulePropertyParsedList\
+            prereqpath] {
+            setLoadedPrereqPath {*}$modpre_path
+         }
 
          foreach mod $modlist {
             # get all tags also recorded on mod and vr designation

tcl/subcmd.tcl.in

@@ -1299,6 +1299,8 @@ proc cmdModuleLoad {context uasked tryload loadany tag_list modulepath_list\
          # declare the prereq of this module
          setEnvLoadedModuleProperty $modname prereq [getLoadedPrereq\
             $modname]
+         setEnvLoadedModuleProperty $modname prereqpath [getLoadedPrereqPath\
+            $modname]
 
          # declare the alternative names of this module
          setEnvLoadedModuleProperty $modname altname [getLoadedAltname\
@@ -1674,6 +1676,8 @@ proc cmdModuleUnload {context match auto force onlyureq args} {
          # unset prereq declared for this module
          unsetEnvLoadedModuleProperty $modname prereq
          unsetLoadedPrereq $modname
+         unsetEnvLoadedModuleProperty $modname prereqpath
+         unsetLoadedPrereqPath $modname
 
          # unset alternative names declared for this module
          unsetEnvLoadedModuleProperty $modname altname