adding unload state to tracing

Author: Robert McLay

README.new

@@ -5,3 +5,4 @@ Lmod 7.8+
             issue #380: Change DependencyCk mode from load to dependencyCk,
 	    sType and tcl_mode remain load.
    (7.8.3)  Fixed problem with unbound variable __lmod_sh_dbg in module shell function definition
+   (7.8.4)  Add unload state to tracing.

src/Master.lua

@@ -449,18 +449,7 @@ function M.unload(self,mA)
       local fullName = mname:fullName()
       local sn       = mname:sn()
       local fn       = mname:fn()
-      if (tracing == "yes") then
-         local stackDepth = frameStk:stackDepth()
-         local indent     = ("  "):rep(stackDepth+1)
-         local b          = {}
-         b[#b + 1]        = indent
-         b[#b + 1]        = "Unloading: "
-         b[#b + 1]        = userName
-         b[#b + 1]        = " (fn: "
-         b[#b + 1]        = fn or "nil"
-         b[#b + 1]        = ")\n"
-         shell:echo(concatTbl(b,""))
-      end
+      local state    = ""
 
       dbg.print{"Trying to unload: ", userName, " sn: ", sn,"\n"}
 
@@ -469,6 +458,7 @@ function M.unload(self,mA)
          mt:remove(sn)
          registerUnloaded(mt:fullName(sn), mt:fn(sn))
          a[#a + 1] = true
+         state     = "inactive"
       elseif (mt:have(sn,"active")) then
 
          dbg.print{"Master:unload: \"",userName,"\" from file: \"",fn,"\"\n"}
@@ -488,8 +478,24 @@ function M.unload(self,mA)
          hook.apply("unload",{fn = mname:fn(), modFullName = mname:fullName()})
          frameStk:pop()
          a[#a+1] = true
+         state     = "active"
       else
          a[#a+1] = false
+         state     = "non-existant"
+      end
+      if (tracing == "yes") then
+         local stackDepth = frameStk:stackDepth()
+         local indent     = ("  "):rep(stackDepth+1)
+         local b          = {}
+         b[#b + 1]        = indent
+         b[#b + 1]        = "Unloading: "
+         b[#b + 1]        = userName
+         b[#b + 1]        = " (state: "
+         b[#b + 1]        = state
+         b[#b + 1]        = ") (fn: "
+         b[#b + 1]        = fn or "nil"
+         b[#b + 1]        = ")\n"
+         shell:echo(concatTbl(b,""))
       end
    end