learning about Lua's debug infrastructure

https://www.lua.org/pil/23.2.html

1 files changed, 21 insertions, 0 deletions

diff --git a/hanoi.lua b/hanoi.lua
index 78cf1c5..2284f7b 100644
--- a/hanoi.lua
+++ b/hanoi.lua
@@ -1,5 +1,18 @@
 curses = require "curses"
 
+count = {}
+function foo(event, line)
+  local s = debug.getinfo(2)
+--?   print(s.name)
+  if s.name ~= nil then
+    if count[s.name] == nil then
+      count[s.name] = 0
+    end
+    count[s.name] = count[s.name]+1
+  end
+end
+debug.sethook(foo, "c")
+
 window = curses.initscr()
 
 tower = {{6, 5, 4, 3, 2}, {}, {}}
@@ -54,6 +67,14 @@ function render_tower(window, line, col, tower_index, tower)
     window:attroff(curses.color_pair(7))
     line = line - 1
   end
+
+  window:mvaddstr(30, 0, "profile: ")
+  for k,v in pairs(count) do
+    window:addstr(k)
+    window:addstr(": ")
+    window:addstr(v)
+    window:addstr("; ")
+  end
 end
 
 function render(window)