Differences

This shows you the differences between two versions of the page.

--- useful_programs [2019/07/31 12:56] – [Bit functions] emozolyak
+++ useful_programs [2020/01/13 10:17] – [Debug printing] emozolyak
@@ Line 47: / Line 47: @@
 end
-function outbit(condition, x, b) -- output bool conditoin as 0 /1 into a bit
+function outbit(condition, x, b) -- output bool condition as 0 /1 into a bit
      if condition then
          return hasbit(x, b) and x or x + bw(b)
@@ Line 53: / Line 53: @@
          return hasbit(x, b) and x - bw(b) or x
      end
+end
+function outBit(condition, alias, b) -- output bool condition as 0 /1 into a bit of a internal register
+     local new_value = outbit(condition, R(alias), b)
+     W(alias, new_value)
 end
@@ Line 135: / Line 140: @@
 <code lua>
-function DBG ( ... )
+function DBG(...)
-            -- ... means variable number of arguments in lua, passed in the 'arg' table
+local tc = tabToStr
-if ENABLE_DEBUG then -- should be global in the calling script
+local function align2s(s1, s2) -- appends space to smaller string
+    local d, s = (#s1 - #s2), ' '
+    if (d ~= 0) then return (((d > 0) and {s1, s2 .. s:rep(d)}) or ({s1 .. s:rep(math.abs(d)), s2}))
+    else
+        return {s1, s2}
+    end
+end
+    if ENABLE_DEBUG then
+        local arg_str = tc(arg)
+        local t_s_pos = string.find(arg_str, "|")
-    local s = ""            -- string buffer to concatenate all arguments
+        if not t_s_pos then
-        for i = 1 , #arg do
+            INFO(arg_str)  -- Just printing single line
-        -- glue all and add spaces, use tostring to protect from nil argument
+        else
-            s = s .. tostring ( arg [i]  ) .. ' '
+            local h_row, v_row = {}, {}
-        end
+            -- header
-    DEBUG ( s )
+            for w in string.gmatch(arg[1], "%S+") do
-end -- if
+                h_row[#h_row + 1] = w
+            end
+            -- values
+            for i = 3, #arg do
+                v_row[#v_row + 1] = tostring(arg[i])
+            end
+            if (#h_row ~= #v_row) then
+                ERROR("Inconsistent header and value rows in DBGnew!")
+                return
+            else
+                for g = 1, #h_row do
+                    h_row[g], v_row[g] = unpack(align2s(h_row[g], v_row[g]))
+                end
+            end
+            INFO(tc(h_row)) ; INFO(tc(v_row))
+        end
+    end
+end
+function tabToStr(t)  -- glue all and add spaces, use tostring to protect from nil and bool argument
+    local s = ""
+    for i = 1, #t do
+        local e = t[i] ; if (e == nil) then e = 'nil' end
+        s = s .. tostring(e) .. ' '
+    end -- for
+    return s
+end
-end -- DBG
 </code>
+Then the print output can be enhanced like this:
+{{ :dbg_table_out.png?direct&600 |}}
 The //ENABLE_DEBUG// flag should be global boolean variable in the calling script. You may just to set it when needed and save the script.
@@ Line 223: / Line 266: @@
 <code lua>
- function Timer (bool_input, onDelay, offDelay, tmrAlias)
+function Timer (bool_input, onDelay, offDelay, tmrAlias)
 --                bool      sec to ON  sec to OFF  string alias
+local now , nowString, curTimeStamp, curTmrState =
+os.time(), os.date("%c", now), R(tmrAlias), TRUE(tmrAlias .."_out")
-local now , nowString, curTimeStamp, curTmrState =  os.time(),
+    DBG("Timer State Stamp", "|", tmrAlias, curTmrState, os.date("%c", curTimeStamp))
-                                                    os.date("%c", now),
-                                                    R(tmrAlias),
-                                                    TRUE(tmrAlias .."_out")
-DEBUG("curTimeStamp - ", os.date("%c", curTimeStamp) )
-DEBUG ("cur "..tmrAlias.." State =  "..tostring(curTmrState))
 -- protects from malfunctions on very first run
 if curTimeStamp == 0 then
-    DEBUG("curTimeStamp was zero in this timer!")
+    DBG("curTimeStamp was zero in this timer!")
     WriteReg(tmrAlias, now)
     return nil, 0 -- countdown
 end
     -- in and output are equal
-    if (bool_input == curTmrState) then
-        WriteReg(tmrAlias, now)                           DEBUG("timer input match state ")
+if (bool_input == curTmrState) then
+        WriteReg(tmrAlias, now) ; DBG("timer inputs match")
         return curTmrState, 0   -- as bool
-    -- TON
+                            -- TON
-    elseif bool_input then
+elseif bool_input then
-         if ((now - GetReg(tmrAlias)) > onDelay) then
+         if ((now - curTimeStamp) > onDelay) then
-             WriteReg(tmrAlias .."_out", 1)
+             SET(tmrAlias .."_out") ; WriteReg(tmrAlias, now) ; DBG("detected ON state after delay")
-                                                        DEBUG("detected ON state after delay (input, now, tmr, onDelay ):", bool_input, nowString, onDelay)
              return true, 0
         else
-            local countDown = onDelay - (now - curTimeStamp)
+            local countDown = onDelay - (now - curTimeStamp) ; DBG("countdown to On in ", countDown)
-            DEBUG("countdown to On in " .. tmrAlias .. " ".. countDown)
             return curTmrState, countDown
         end
+                            -- TOFF
+elseif not bool_input then
-    -- TOFF
+        if ((now - curTimeStamp) > offDelay) then
-    elseif not bool_input then
+            RESET(tmrAlias .."_out") ; WriteReg (tmrAlias, now) ; DBG("detected OFF state after delay")
-        if (now - GetReg ( tmrAlias ) > offDelay) then
+            return false, 0
-            WriteReg (tmrAlias .."_out", 0)
-            DEBUG("detected OFF state after delay (input, now, tmr, offDelay ):", bool_input, nowString, offDelay)
-            return false
         else
-            local countDown = offDelay - (now - curTimeStamp)
+            local countDown = offDelay - (now - curTimeStamp) ; DBG("countdown to OFF in ", countDown)
-            DEBUG ("countdown to OFF in " .. tmrAlias .." ".. countDown)
             return curTmrState, countDown
         end