Debug function name

local run = true

function main()
   local t = debug.getinfo(1)
   message('main name is ' .. (t.name or 'nil'))
   while run do
      sleep(100)
   end
end

function OnStop()
   local t = debug.getinfo(1)
   message('OnStop name is ' .. (t.name or 'nil'))
   local function inner()
      local t = debug.getinfo(1)
      message('OnStop::inner name is ' .. (t.name or 'nil'))
   end
   inner()
   run = false
end

local run = true

function comparator(lhs, rhs)
   local t = debug.getinfo(1)
   message('comparator name is ' .. (t.name or 'nil'))
   return true
end

local function local_comparator(lhs, rhs)
   local t = debug.getinfo(1)
   message('local_comparator name is ' .. (t.name or 'nil'))
   return true
end

function main()
   while run do
      sleep(100)
   end
end

function OnStop()
   local function very_local_comparator(lhs, rhs)
      local t = debug.getinfo(1)
      message('very_local_comparator name is ' .. (t.name or 'nil'))
      return true
   end
   comparator(1, 2) -- MSG: comparator
   local_comparator(1, 2) -- MSG: local_comparator
   very_local_comparator(1, 2) -- MSG: very_local_comparator
   SearchItems('all_trades', 0, 1, comparator) -- MSG: nil
   SearchItems('all_trades', 0, 1, local_comparator) -- MSG: nil
   SearchItems('all_trades', 0, 1, very_local_comparator) -- MSG: nil
   run = false
end

local function local_comparator(lhs, rhs)
   local t = debug.getinfo(1)
   message('local_comparator name is ' .. (t.name or 'nil'))
   return true
end

function f(arg) arg() end

f(local_comparator) -- MSG: local_comparator name is arg