khanat-opennel-code/code/ryzom/client/src/interface_v3/lua_dll.cpp

274 lines
7.9 KiB
C++
Raw Normal View History

2010-05-06 00:08:41 +00:00
// Ryzom - MMORPG Framework <http://dev.ryzom.com/projects/ryzom/>
// Copyright (C) 2010 Winch Gate Property Limited
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU Affero General Public License as
// published by the Free Software Foundation, either version 3 of the
// License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Affero General Public License for more details.
//
// You should have received a copy of the GNU Affero General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
#include "../stdpch.h"
extern "C"
{
// #include "lua_loadlib.h"
}
#include "nel/misc/dynloadlib.h"
#include "lua_dll.h"
// from lua.h
Tlua_open lua_open;
Tlua_close lua_close;
Tlua_newthread lua_newthread;
Tlua_atpanic lua_atpanic;
Tlua_gettop lua_gettop;
Tlua_settop lua_settop;
Tlua_pushvalue lua_pushvalue;
Tlua_remove lua_remove;
Tlua_insert lua_insert ;
Tlua_replace lua_replace;
Tlua_checkstack lua_checkstack;
Tlua_xmove lua_xmove;
Tlua_isnumber lua_isnumber;
Tlua_isstring lua_isstring;
Tlua_iscfunction lua_iscfunction;
Tlua_isuserdata lua_isuserdata;
Tlua_type lua_type;
Tlua_typename lua_typename;
Tlua_equal lua_equal;
Tlua_rawequal lua_rawequal;
Tlua_lessthan lua_lessthan;
Tlua_tonumber lua_tonumber;
Tlua_toboolean lua_toboolean;
Tlua_tostring lua_tostring;
Tlua_strlen lua_strlen;
Tlua_tocfunction lua_tocfunction;
Tlua_touserdata lua_touserdata;
Tlua_tothread lua_tothread;
Tlua_topointer lua_topointer;
Tlua_pushnil lua_pushnil;
Tlua_pushnumber lua_pushnumber;
Tlua_pushlstring lua_pushlstring;
Tlua_pushstring lua_pushstring;
Tlua_pushvfstring lua_pushvfstring;
Tlua_pushfstring lua_pushfstring;
Tlua_pushcclosure lua_pushcclosure;
Tlua_pushboolean lua_pushboolean;
Tlua_pushlightuserdata lua_pushlightuserdata;
Tlua_gettable lua_gettable;
Tlua_rawget lua_rawget;
Tlua_rawgeti lua_rawgeti;
Tlua_newtable lua_newtable;
Tlua_newuserdata lua_newuserdata;
Tlua_getmetatable lua_getmetatable;
Tlua_getfenv lua_getfenv;
Tlua_settable lua_settable;
Tlua_rawset lua_rawset;
Tlua_rawseti lua_rawseti;
Tlua_setmetatable lua_setmetatable;
Tlua_setfenv lua_setfenv;
Tlua_call lua_call;
Tlua_pcall lua_pcall;
Tlua_cpcall lua_cpcall;
Tlua_load lua_load;
Tlua_dump lua_dump;
Tlua_yield lua_yield;
Tlua_resume lua_resume;
Tlua_getgcthreshold lua_getgcthreshold;
Tlua_getgccount lua_getgccount;
Tlua_setgcthreshold lua_setgcthreshold;
Tlua_version lua_version;
Tlua_error lua_error;
Tlua_next lua_next;
Tlua_concat lua_concat;
Tlua_pushupvalues lua_pushupvalues;
Tlua_getstack lua_getstack;
Tlua_getinfo lua_getinfo;
Tlua_getlocal lua_getlocal;
Tlua_setlocal lua_setlocal;
Tlua_getupvalue lua_getupvalue;
Tlua_setupvalue lua_setupvalue;
Tlua_sethook lua_sethook;
Tlua_gethook lua_gethook;
Tlua_gethookmask lua_gethookmask;
Tlua_gethookcount lua_gethookcount;
// from lauxlib.h
TluaL_openlib luaL_openlib;
TluaL_getmetafield luaL_getmetafield;
TluaL_callmeta luaL_callmeta;
TluaL_typerror luaL_typerror;
TluaL_argerror luaL_argerror;
TluaL_checklstring luaL_checklstring;
TluaL_optlstring luaL_optlstring;
TluaL_checknumber luaL_checknumber;
TluaL_optnumber luaL_optnumber;
TluaL_checkstack luaL_checkstack;
TluaL_checktype luaL_checktype;
TluaL_checkany luaL_checkany;
TluaL_newmetatable luaL_newmetatable;
TluaL_getmetatable luaL_getmetatable;
TluaL_checkudata luaL_checkudata;
TluaL_where luaL_where;
TluaL_error luaL_error;
TluaL_findstring luaL_findstring;
TluaL_ref luaL_ref;
TluaL_unref luaL_unref;
TluaL_getn luaL_getn;
TluaL_setn luaL_setn;
TluaL_loadfile luaL_loadfile;
TluaL_loadbuffer luaL_loadbuffer;
TluaL_buffinit luaL_buffinit;
TluaL_prepbuffer luaL_prepbuffer;
TluaL_addlstring luaL_addlstring;
TluaL_addstring luaL_addstring;
TluaL_addvalue luaL_addvalue;
TluaL_pushresult luaL_pushresult;
Tlua_dofile lua_dofile;
Tlua_dostring lua_dostring;
Tlua_dobuffer lua_dobuffer;
// from lua lib.h
Tluaopen_base luaopen_base;
Tluaopen_table luaopen_table;
Tluaopen_io luaopen_io;
Tluaopen_string luaopen_string;
Tluaopen_math luaopen_math;
Tluaopen_debug luaopen_debug;
Tluaopen_loadlib luaopen_loadlib;
bool loadLuaDLL()
{
#ifdef NL_OS_WINDOWS
HMODULE libHandle = ::LoadLibrary("lua.dll");
if (!libHandle) return false;
#define GET_LUA_PROC(name) name = (T##name) ::GetProcAddress(libHandle, #name); if (!name) return false;
// from lua.h
GET_LUA_PROC(lua_open)
GET_LUA_PROC(lua_close)
GET_LUA_PROC(lua_newthread)
GET_LUA_PROC(lua_atpanic)
GET_LUA_PROC(lua_gettop)
GET_LUA_PROC(lua_settop)
GET_LUA_PROC(lua_pushvalue)
GET_LUA_PROC(lua_remove)
GET_LUA_PROC(lua_insert )
GET_LUA_PROC(lua_replace)
GET_LUA_PROC(lua_checkstack)
GET_LUA_PROC(lua_xmove)
GET_LUA_PROC(lua_isnumber)
GET_LUA_PROC(lua_isstring)
GET_LUA_PROC(lua_iscfunction)
GET_LUA_PROC(lua_isuserdata)
GET_LUA_PROC(lua_type)
GET_LUA_PROC(lua_typename)
GET_LUA_PROC(lua_equal)
GET_LUA_PROC(lua_rawequal)
GET_LUA_PROC(lua_lessthan)
GET_LUA_PROC(lua_tonumber)
GET_LUA_PROC(lua_toboolean)
GET_LUA_PROC(lua_tostring)
GET_LUA_PROC(lua_strlen)
GET_LUA_PROC(lua_tocfunction)
GET_LUA_PROC(lua_touserdata)
GET_LUA_PROC(lua_tothread)
GET_LUA_PROC(lua_topointer)
GET_LUA_PROC(lua_pushnil)
GET_LUA_PROC(lua_pushnumber)
GET_LUA_PROC(lua_pushlstring)
GET_LUA_PROC(lua_pushstring)
GET_LUA_PROC(lua_pushcclosure)
GET_LUA_PROC(lua_pushboolean)
GET_LUA_PROC(lua_pushlightuserdata)
GET_LUA_PROC(lua_gettable)
GET_LUA_PROC(lua_rawget)
GET_LUA_PROC(lua_rawgeti)
GET_LUA_PROC(lua_newtable)
GET_LUA_PROC(lua_newuserdata)
GET_LUA_PROC(lua_getmetatable)
GET_LUA_PROC(lua_getfenv)
GET_LUA_PROC(lua_settable)
GET_LUA_PROC(lua_rawset)
GET_LUA_PROC(lua_rawseti)
GET_LUA_PROC(lua_setmetatable)
GET_LUA_PROC(lua_setfenv)
GET_LUA_PROC(lua_call)
GET_LUA_PROC(lua_pcall)
GET_LUA_PROC(lua_cpcall)
GET_LUA_PROC(lua_load)
GET_LUA_PROC(lua_dump)
GET_LUA_PROC(lua_yield)
GET_LUA_PROC(lua_resume)
GET_LUA_PROC(lua_getgcthreshold)
GET_LUA_PROC(lua_getgccount)
GET_LUA_PROC(lua_setgcthreshold)
GET_LUA_PROC(lua_version)
GET_LUA_PROC(lua_error)
GET_LUA_PROC(lua_next)
GET_LUA_PROC(lua_concat)
GET_LUA_PROC(lua_pushupvalues)
GET_LUA_PROC(lua_getstack)
GET_LUA_PROC(lua_getinfo)
GET_LUA_PROC(lua_getlocal)
GET_LUA_PROC(lua_setlocal)
GET_LUA_PROC(lua_getupvalue)
GET_LUA_PROC(lua_setupvalue)
GET_LUA_PROC(lua_sethook)
GET_LUA_PROC(lua_gethook)
GET_LUA_PROC(lua_gethookmask)
GET_LUA_PROC(lua_gethookcount)
// from lauxlib.h
GET_LUA_PROC(luaL_openlib)
GET_LUA_PROC(luaL_getmetafield)
GET_LUA_PROC(luaL_callmeta)
GET_LUA_PROC(luaL_typerror)
GET_LUA_PROC(luaL_argerror)
GET_LUA_PROC(luaL_checklstring)
GET_LUA_PROC(luaL_optlstring)
GET_LUA_PROC(luaL_checknumber)
GET_LUA_PROC(luaL_optnumber)
GET_LUA_PROC(luaL_checkstack)
GET_LUA_PROC(luaL_checktype)
GET_LUA_PROC(luaL_checkany)
GET_LUA_PROC(luaL_newmetatable)
GET_LUA_PROC(luaL_getmetatable)
GET_LUA_PROC(luaL_checkudata)
GET_LUA_PROC(luaL_where)
GET_LUA_PROC(luaL_error)
GET_LUA_PROC(luaL_findstring)
GET_LUA_PROC(luaL_ref)
GET_LUA_PROC(luaL_unref)
GET_LUA_PROC(luaL_getn)
GET_LUA_PROC(luaL_setn)
GET_LUA_PROC(luaL_loadfile)
GET_LUA_PROC(luaL_loadbuffer)
GET_LUA_PROC(luaL_buffinit)
GET_LUA_PROC(luaL_prepbuffer)
GET_LUA_PROC(luaL_addlstring)
GET_LUA_PROC(luaL_addstring)
GET_LUA_PROC(luaL_addvalue)
GET_LUA_PROC(luaL_pushresult)
GET_LUA_PROC(lua_dofile)
GET_LUA_PROC(lua_dostring)
GET_LUA_PROC(lua_dobuffer)
// from lua lib.h
GET_LUA_PROC(luaopen_base)
GET_LUA_PROC(luaopen_table)
GET_LUA_PROC(luaopen_io)
GET_LUA_PROC(luaopen_string)
GET_LUA_PROC(luaopen_math)
GET_LUA_PROC(luaopen_debug)
GET_LUA_PROC(luaopen_loadlib)
return true;
#else
return false;
#endif
}