.........................

static int forLua_xx_test(lua_State* L)    //  Ваша функция ---
{

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

extern "C" LUALIB_API int luaopen_Имя_dll>(lua_State *L) {   // !!!  luaopen_<Имя пакета>
   lua_newtable(L);
   luaL_setfuncs(L, ls_lib, 0);
   lua_pushvalue(L, -1);
   lua_setglobal(L, "Имя_пакета_dll");  // !!!  lua_setglobal(L, "<Имя пакета>");
   return 0;
}
 

require('Имя_dll')

message("result=" .. tostring(Имя_пакета_dll.xx_test("message('hello world!!',3)")))

static int xx_test(lua_State *L)
{

   const char* buffer = luaL_checkstring(L, 1);

   if (luaL_loadbuffer(L, buffer, strlen(buffer), "test") == LUA_OK)
      MessageBox(0, "loadbuffer ok", "", MB_OK);
   else
   {
      MessageBox(0, "loadbuffer error", "", MB_OK);
   }
   
   if (lua_pcall(L, 0, 0, 0) == LUA_OK)
   {
      MessageBox(0, "pcall ok", "", MB_OK);
      lua_pushnil(L);
   }
   else
   {
      MessageBox(0, "pcall error", "", MB_OK);
   }



   return 1;
}