Update add-property to define tag with "value" arg

Update "add-property" modulefile command to use its *value* argument to
define tag on currently loading module.

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

Author: xdelaruelle

tcl/interp.tcl.in

@@ -102,7 +102,7 @@ proc initModfileModeAliases {mode auto aliasesVN aliasesPassArgVN\
          scan}
       ##nagelfar ignore #46 Too long line
       array set g_modfilePerModeAliases {
-add-property   {nop            nop            nop            nop            nop            nop            nop          nop         }
+add-property   {add-property   nop            reportCmd      nop            nop            nop            nop          nop}
 always-load    {always-load    nop            reportCmd      nop            nop            nop            nop          always-load-sc}
 append-path    {append-path    append-path-un append-path    append-path    append-path    edit-path-wh   nop          edit-path-sc}
 chdir          {chdir          nop            reportCmd      nop            nop            nop            nop          chdir-sc    }

tcl/mfcmd.tcl

@@ -2314,6 +2314,15 @@ proc getModuleHelpLines {} {
    }
 }
 
+# convert property value as module tag (property name is ignored)
+proc add-property {name value} {
+   set tag_list [split $value :]
+   set mod [currentState modulename]
+   foreach tag $tag_list {
+      module-tag $tag $mod
+   }
+}
+
 # ;;; Local Variables: ***
 # ;;; mode:tcl ***
 # ;;; End: ***