local run = true
local tid = nil

local gcrunner = {}
setmetatable(gcrunner, { __gc = function()
  if tid then DestroyTable(tid) end
  message('__gc', 2)
end })

function OnInit(script_path)
  file = io.open(script_path .. ".log", "w")
  file:write("OnInit\n")
  message("OnInit")
end

function main()
  message("main")
  tid = AllocTable()
  AddColumn(tid, 1, '1', true, QTABLE_INT_TYPE, 1)
  CreateWindow(tid)
  collectgarbage()
  while run do sleep(300) end
end

function OnStop()
  run = nil
end

file:write("OnInit\n")

local gcrunner = (function()
  local t = {}
  setmetatable(t, { __gc = function()
    local t = tid
    tid = nil
    if t then DestroyTable(t) end
   message('file type is ' .. io.type(file))
   file:write("__gc\n")
   file:close()
  end })
  return t
end)()

   local  run  =   true 
 local  tid  =   nil 
 local  file

 local  gcrunner  =  ( function ()
   local  t  =  {}
  setmetatable(t, { __gc  =   function ()
     local  t  =  tid
    tid  =   nil 
     if  t  then   DestroyTable (t)  end 
    file:write( "__gc\n" )
    file:close()
   end  })
   return  t
 end )()

 function   OnInit (script_path)
  file  =   io.open (script_path  ..   ".log" ,  "w" )
  file:write( "OnInit\n" )
 end 

 function   main ()
  file:write( "main\n" )
  tid  =   AllocTable ()
   AddColumn (tid,  1 ,  '1' ,  true , QTABLE_INT_TYPE,  1 )
   CreateWindow (tid)
   while  run  do   sleep ( 300 )  end 
  file:write( "main stopped\n" )
 end 

 function   OnStop ()
  run  =   nil 
  file:write( "OnStop\n" )
 end   

local run = true
local tid = nil
local file

local gcrunner = (function()
  local t = {}
  setmetatable(t, { __gc = function()
    local t = tid
    tid = nil
    if t then DestroyTable(t) end
    file:write("__gc\n")
    file:close()
  end })
  return t
end)()

function OnInit(script_path)
  file = io.open(script_path .. ".log", "w")
  file:write("OnInit\n")
end

function main()
  file:write("main\n")
  tid = AllocTable()
  AddColumn(tid, 1, '1', true, QTABLE_INT_TYPE, 1)
  CreateWindow(tid)
  while run do sleep(300) end
  file:write("main stopped\n")
end

function OnStop()
  run = nil
  file:write("OnStop\n")
end

local run = true
local tid = nil
local gcrunner = (function()
   local t = {}
   setmetatable(t, { __gc = function()
      local t = tid
      tid = nil
      if t then DestroyTable(t) end
   end })
   return t
end)()

function main()
   tid = AllocTable()
   AddColumn(tid, 1, '1', true, QTABLE_INT_TYPE, 1)
   CreateWindow(tid)
...