Переделка кода на Lua

--========== Common Utils start ====================

local function RAW(id) --есть более эффективный вариант, но пока и так сойдет
  return id:byte(1) * 0x1000000 + 
         id:byte(2) * 0x10000 + 
         id:byte(3) * 0x100 +
         id:byte(4)
end

local function ehandler( err )
  print( "ERROR:", err )
end

--========== Common Utils end ====================

--========= Libraries start ==============

local Libraries = {libs = {}}

function Libraries:Init()
  print("Libraries Init")
  for id,lib in ipairs(self.libs) do
    if (lib.Init) then
      print("Pre Init "..lib.name)
--      lib:Init()
      xpcall(function() lib:Init() end,ehandler)
      print("Post Init "..lib.name)
    else
      print("Skip Init "..lib.name)
    end
  end
  for id,lib in ipairs(self.libs) do
    if (lib.Final) then
      print("Pre Final "..lib.name)
--    lib:Final()
      xpcall(function() lib:Final() end,ehandler)
      print("Post Final "..lib.name)
    else
      print("Skip Final "..lib.name)
    end
  end
end

function Libraries:new(name,dep)
  local lib = {}
  lib.name = name
  lib.dep = dep
  table.insert( self.libs, lib )
  self[name] = lib
  return lib
end

--========= Libraries end ==============

--============ CustomDataLibrary start ============

local DataStorage = Libraries:new("DataStorage",{})
function DataStorage:Reset(h)
  print("data reset "..h)
  self[x] = {}
  return self[x]
end
function DataStorage:Purge(h)
  print("data purge "..h)
  self[h] = nil
end
function DataStorage:new (o)
  o = o or {}
  o.Reset = DataStorage.Reset
  o.Purge = DataStorage.Purge
  setmetatable(o, DataStorage)
  DataStorage.__index = function (table, key) table[key] = {} return table[key] end
  return o
end

local HandleData
local ProtoData

function DataStorage:Init()
    HandleData = DataStorage:new()
    ProtoData = DataStorage:new()
end

function DataStorage:Final()
  local clean = Libraries.CleanUp
  table.insert( clean.DeathHandlers,function(u,h) HandleData:Purge(h) end)
  table.insert( clean.RemoveHandlers,function(u,h) HandleData:Purge(h) end)
end

--============ CustomDataLibrary end ==============

--============ CleanUpLib start ===============

local CleanUp =  Libraries:new("CleanUp",{})
CleanUp.DeathHandlers={}
CleanUp.RemoveHandlers={}
CleanUp.RemoveUnitBase=nil

function CleanUp.OnDeath()
  local unit u = GetTriggerUnit()
  local id = GetHandleId(u)
  for n,h in ipairs(CleanUp.DeathHandlers) do h(u,id) end
end

function CleanUp.OnRemove(u)
  local id = GetHandleId(u)
  for n,h in ipairs(CleanUp.RemoveHandlers) do h(u,id) end
  return CleanUp.RemoveUnitBase(u)
end

function CleanUp:Init()
  local trig = CreateTrigger()
  TriggerRegisterAnyUnitEventBJ( trig, EVENT_PLAYER_UNIT_DEATH )
  TriggerAddAction( trig, CleanUp.OnDeath )

  self.RemoveUnitBase=RemoveUnit
  RemoveUnit = self.OnRemove
end

function CleanUp:Final()
  table.insert( self.DeathHandlers,function(u,h) print("Final Unit Death Handler "..GetUnitName(u)) end)
  table.insert( self.RemoveHandlers,function(u,h) print("Final Unit Remove Handler "..GetUnitName(u)) end)
end

--============ CleanUpLib end ===============

--============ TestLib start ===============

local TestLib = Libraries:new("TestLib",{})

function TestLib.TestGroup(g)
  print("group test start")
  xpcall(function()
    local a = 42
    local i = 0
    ForGroup(g, function()
      xpcall(function()
        local u = GetEnumUnit()
        print('i='..i..' a='..a.." "..GetHandleId(u).." "..GetUnitName(u))
        i = i +1
      end,ehandler)
    end)
  end,ehandler)
  print("group test end")
end

TestLib.TimerCounter=0
function TestLib.TestTimers()
  local t1 = CreateTimer()
  local i = 0
  local a = 42
  local x = TestLib.TimerCounter
  print('start timer '..x)
  TimerStart(t1, 1, true, function()
    print('timer '..x..' tick '..i..' a='..a)
    i = i +1
  end)
  TestLib.TimerCounter = TestLib.TimerCounter+1
end

function TestLib.TestUnit(u)
  print("unit test start")
  print(u)
  local h = GetHandleId(u)
  print("handle "..h)
  local data = HandleData[h]
  if (data.num==nil)then
    data.num=0
  end
  data.num = data.num+1
  BlzSetUnitRealField(u, UNIT_RF_DEFENSE, data.num)

  print("unit test end")
end

--============ TestLib end ===============