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

#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;
}