Add "provide" modulefile command

Add "provide" modulefile command that defines module aliases provided by
currently evaluating module.

"extensions" modulefile command is now an alias of "provide" command.

Fixes #539

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

Author: xdelaruelle

tcl/interp.tcl.in

@@ -100,7 +100,7 @@ proc initModfileModeAliases {mode auto aliasesVN aliasesPassArgVN\
       # the evaluation mode
       set ::g_modfileEvalModes {load unload display help test whatis refresh\
          scan}
-      ##nagelfar ignore #48 Too long line
+      ##nagelfar ignore #49 Too long line
       array set g_modfilePerModeAliases {
 add-property   {add-property   nop            reportCmd      nop            nop            nop            nop          nop}
 always-load    {always-load    nop            reportCmd      nop            nop            nop            nop          always-load-sc}
@@ -110,7 +110,7 @@ complete       {complete       complete-un    reportCmd      nop            nop
 conflict       {conflict       nop            reportCmd      nop            nop            nop            nop          conflict-sc }
 depends-on     {prereqAllModfileCmd  nop      reportCmd      nop            nop            nop            nop          prereq-all-sc}
 depends-on-any {prereqAnyModfileCmd  nop      reportCmd      nop            nop            nop            nop          prereq-sc   }
-extensions     {nop            nop            nop            nop            nop            nop            nop          nop         }
+extensions     {provide        nop            reportCmd      nop            nop            nop            nop          nop         }
 family         {family         family-un      reportCmd      nop            nop            nop            nop          family-sc   }
 haveDynamicMPATH {nop          nop            nop            nop            nop            nop            nop          nop         }
 hide-modulefile {hide-modulefile hide-modulefile hide-modulefile hide-modulefile hide-modulefile hide-modulefile nop   nop         }
@@ -133,6 +133,7 @@ prepend-path   {prepend-path   prepend-path-un prepend-path  prepend-path   prep
 prereq-all     {prereqAllModfileCmd  nop      reportCmd      nop            nop            nop            nop          prereq-all-sc}
 prereq-any     {prereqAnyModfileCmd  nop      reportCmd      nop            nop            nop            nop          prereq-sc   }
 prereq         {prereqAnyModfileCmd  nop      reportCmd      nop            nop            nop            nop          prereq-sc   }
+provide        {provide        nop            reportCmd      nop            nop            nop            nop          nop         }
 pushenv        {pushenv        pushenv-un     pushenv        pushenv        pushenv        pushenv-wh     nop          pushenv-sc  }
 remove-path    {remove-path    remove-path-un remove-path    remove-path    remove-path    edit-path-wh   nop          edit-path-sc}
 remove-property {nop           nop            nop            nop            nop            nop            nop          nop         }

tcl/mfcmd.tcl

@@ -2372,6 +2372,16 @@ proc module-warn {args} {
    }
 }
 
+proc provide {args} {
+   if {![llength $args]} {
+      knerror {No module specified in argument}
+   }
+   set current_mod [currentState modulename]
+   foreach alias $args {
+      setLoadedAltname $current_mod [list al $alias]
+   }
+}
+
 # ;;; Local Variables: ***
 # ;;; mode:tcl ***
 # ;;; End: ***