#include <windows.h>

//=== Необходимые для Lua константы ============================================================================//
#define LUA_LIB
#define LUA_BUILD_AS_DLL

//=== Заголовочные файлы LUA ===================================================================================//
extern "C" {
#include "Lua\lauxlib.h"
#include "Lua\lua.h"
}

//=== Стандартная точка входа для DLL ==========================================================================//
BOOL APIENTRY DllMain(HANDLE hModule, DWORD  fdwReason, LPVOID lpReserved)
{
//Каждому событию соответствует свое значение аргумента fdwReason, передаваемого функции DllMain при его возникновении   
switch (fdwReason)
{
case DLL_PROCESS_ATTACH: // Подключение DLL          
break;
case DLL_PROCESS_DETACH: // Отключение DLL
break;
case DLL_THREAD_ATTACH:  // Создание нового потока
break;
case DLL_THREAD_DETACH:  // Завершение потока
break;
}
return TRUE;
}

//=== Реализация функций, вызываемых из LUA ====================================================================//
static int forLua_TestFunc(lua_State *L)// Возвращает заданный текст
{
lua_pushstring(L, "Привет из C/C++");
return(1);
}


//=== Регистрация реализованных в dll функций, чтобы они стали "видимы" для Lua ================================//
static struct luaL_Reg ls_lib[] = {
{ "TestFunc", forLua_TestFunc },
{ NULL, NULL }
};

//=== Регистрация названия библиотеки, видимого в скрипте Lua ==================================================//
extern "C" LUALIB_API int luaopen_mylib(lua_State *L) {
lua_newtable(L);
luaL_setfuncs(L, ls_lib, 0);
lua_pushvalue(L, -1);
lua_setglobal(L, "mylib");

return 0;
}

   function   threadfunc ( .. .)
     while   not  CuttentThreadTerminated  do 
         --  
     end 
 end 

thread  =  CreateThread(threadfunc,  .. .)
 thread.TerminateThread ()
 thread.Join ()
thread  =   nil 
collectgarbage()
  

function threadfunc(...)
    while not CuttentThreadTerminated do
        -- 
    end
end

thread = CreateThread(threadfunc, ...)
thread.TerminateThread()
thread.Join()
thread = nil
collectgarbage()

void myfunc(void)
{
    std::string str("abracadabra");
    Sleep(INFINITE);
}

void myfunc(void)
{
    Sleep(INFINITE);
}

tlib = require "mylib"

function threadfunc(astr)
    message(astr, 1);
    while true do
        -- 
    end
end

function main()
    thread = tlib.CreateThread(threadfunc, "hello, world from thread")
    while true do
        --
    end
end