diff options
author | Pixel <pixel@nobis-crew.org> | 2009-11-04 11:56:41 -0800 |
---|---|---|
committer | Pixel <pixel@nobis-crew.org> | 2009-11-04 11:59:33 -0800 |
commit | d577d991b97ae2b5ee1af23641bcffc3f83af5b2 (patch) | |
tree | 590639d50205d1bcfaff2a7d2dc6ebf3f373c7ed /iup/srclua5/il_olecontrol.c |
Initial import. Contains the im, cd and iup librairies, and a "working" Makefile for them under linux.
Diffstat (limited to 'iup/srclua5/il_olecontrol.c')
-rwxr-xr-x | iup/srclua5/il_olecontrol.c | 77 |
1 files changed, 77 insertions, 0 deletions
diff --git a/iup/srclua5/il_olecontrol.c b/iup/srclua5/il_olecontrol.c new file mode 100755 index 0000000..955b5da --- /dev/null +++ b/iup/srclua5/il_olecontrol.c @@ -0,0 +1,77 @@ +/****************************************************************************** + * Automatically generated file (iuplua5). Please don't change anything. * + *****************************************************************************/ + +#include <stdlib.h> + +#include <lua.h> +#include <lauxlib.h> + +#include "iup.h" +#include "iuplua.h" +#include "iupole.h" +#include "il.h" + + +static int OleControl(lua_State *L) +{ + Ihandle *ih = IupOleControl((char *) luaL_checkstring(L, 1)); + iuplua_plugstate(L, ih); + iuplua_pushihandle_raw(L, ih); + return 1; +} + +int iupolecontrollua_open(lua_State * L) +{ + iuplua_register(L, OleControl, "OleControl"); + + +#ifdef IUPLUA_USELOH +#ifdef TEC_BIGENDIAN +#ifdef TEC_64 +#include "loh/olecontrol_be64.loh" +#else +#include "loh/olecontrol_be32.loh" +#endif +#else +#ifdef TEC_64 +#ifdef WIN64 +#include "loh/olecontrol_le64w.loh" +#else +#include "loh/olecontrol_le64.loh" +#endif +#else +#include "loh/olecontrol.loh" +#endif +#endif +#else + iuplua_dofile(L, "olecontrol.lua"); +#endif + + return 0; +} + + +int iupolelua_open(lua_State* L) +{ + if (iuplua_opencall_internal(L)) + IupOleControlOpen(); + + iuplua_changeEnv(L); + iupolecontrollua_open(L); + iuplua_returnEnv(L); + return 0; +} + +/* obligatory to use require"iupluaole" */ +int luaopen_iupluaole(lua_State* L) +{ + return iupolelua_open(L); +} + +/* obligatory to use require"iupluaole51" */ +int luaopen_iupluaole51(lua_State* L) +{ + return iupolelua_open(L); +} + |