Anton (Все сообщения пользователя)

function OnStop()
  is_run = false
end

function OnParam()
end

function main()
  is_run = true
  a = 0
  while is_run do
    a = a + 1
  end
end

local run = true
local nshow = 0

function OnAllTrade()
   if nshow < 10 then
      PrintDbgStr('OnAllTrade')
      nshow = nshow + 1
   end
end

function dummy(i)
   local a = math.sqrt(math.sqrt(1.0 * i) * math.sqrt(2.0 * i))
end

function main()
   PrintDbgStr('Before loop')
   for i = 0, 10000000 do
      dummy(i)
   end
   PrintDbgStr('After loop')
end

local run = true
local nshow = 0

function OnAllTrade()
   if nshow < 100 then
      message('OnAllTrade')
      nshow = nshow + 1
   end
end

function dummy(i)
   local a = math.sqrt(1.0)
end

function main()
   message('Before loop')
   for i = 0, 10000000 do
      dummy(i)
   end
   message('After loop')
end

-- compilation arguments
local srcname = getScriptPath() .. '\\test.lua'
local dstname = getScriptPath() .. '\\test.out'
local strip_debug_info = false

-- the compiler itself
function main()
   local chunk, err = loadfile(srcname, 't')
   if nil == chunk then
      error('Compilation error:\n' .. err)
   end
   local bin = string.dump(chunk, strip_debug_info)
   local f = io.open(dstname, 'wb')
   if nil == f then
      error('Unable to create the destination file')
   end
   f:write(bin)
   f:flush()
   f:close()
end

LUA_API size_t luaI_gccount(lua_State * s)
{
   size_t result = 0;
   lua_lock(s);
   if(s && s->l_G) // ++
      result = (s->l_G->totalbytes + s->l_G->GCdebt) >> 10;
   lua_unlock(s);
   return result;
}

static int getVersionFromLuaState(lua_State * s)
{
   struct helper
   {
      struct extradata
      {
         lua_State * pstate;
         int luaver;
      };
      typedef const extradata ** (* pfn_getextradata)(lua_State *);
      static const extradata ** getextradata_default(lua_State *)
      {
         static const extradata ed = { 0 };
         static const extradata * ped = &ed;
         return &ped;
      }
      static pfn_getextradata init_getextradata(HMODULE hmod)
      {
         if(hmod)
         {
            FARPROC pfn = ::GetProcAddress(hmod, "luaI_getextraspace");
            if(pfn)
               return reinterpret_cast<pfn_getextradata>(pfn);
         }
         return getextradata_default;
      }
      static int extract_version(const extradata ** pped, lua_State * s)
      {
         if(pped)
         {
            const extradata * ped = *pped;
            if(ped)
            {
               if(s == ped->pstate)
                  return ped->luaver;
            }
         }
         return 0;
      }
      static int try51(lua_State * s)
      {
         static pfn_getextradata getextradata = init_getextradata(::GetModuleHandleW(L"lua5.1.dll"));
         return extract_version(getextradata(s), s);
      }
      static int try53(lua_State * s)
      {
         static pfn_getextradata getextradata = init_getextradata(::GetModuleHandleW(L"lua53.dll"));
         return extract_version(getextradata(s), s);
      }
      static int try54(lua_State * s)
      {
         static pfn_getextradata getextradata = init_getextradata(::GetModuleHandleW(L"lua54.dll"));
         return extract_version(getextradata(s), s);
      }
   };
   int result = helper::try54(s);
   if(!result)
   {
      result = helper::try53(s);
      if(!result)
         result = helper::try51(s);
   }
   return result;
}

<CLRSupport>true</CLRSupport>