ex25.6.lua

local Counters = {}
local Names = {}

local function hook ()
  local f = debug.getinfo(2, "f").func
  local count = Counters[f]
  if count == nil then
    -- first time 'f' is called?
    Counters[f] = 1
    Names[f] = debug.getinfo(2, "Sn")
  else
    -- only increment the counter
    Counters[f] = count + 1
  end
end

local f = assert(loadfile(arg[1]))
debug.sethook(hook, "c") -- turn on the hook for calls
f() -- run the main program
debug.sethook() -- turn off the hook

local function getname (func)
  local n = Names[func]
  if n.what == "C" then
    return n.name
  end
  local lc = string.format("[%s]:%d", n.short_src, n.linedefined)
  if n.what ~= "main" and n.namewhat ~= "" then
    return string.format("%s (%s)", lc, n.name)
  else
    return lc
  end
end


local sort_list = {}
for k, v in pairs(Counters) do
  table.insert(sort_list, {func = k, count = v})
end

table.sort(sort_list, function (lhs, rhs)
             return lhs.count < rhs.count
end)


for _, pair in pairs(sort_list) do
  print(getname(pair.func), pair.count)
end