153 lines
9.6 KiB
C
153 lines
9.6 KiB
C
|
/**
|
||
|
|
* \file luashim.h
|
||
|
|
* \brief Lua shim for premake binary modules.
|
||
|
|
* \author Copyright (c) 2017 Tom van Dijck and the Premake project
|
||
|
|
*/
|
||
|
|
#ifndef HEADER_luashim_H
|
||
|
|
#define HEADER_luashim_H
|
||
|
|
|
||
|
|
#include "lua.h"
|
||
|
|
#include "lauxlib.h"
|
||
|
|
|
||
|
|
// premake specific helper methods.
|
||
|
|
void luaL_register(lua_State *L, const char *libname, const luaL_Reg *l);
|
||
|
|
void shimInitialize(lua_State* L);
|
||
|
|
|
||
|
|
typedef struct {
|
||
|
|
void (*shimL_register)(lua_State *L, const char *libname, const luaL_Reg *l);
|
||
|
|
lua_State* (*shim_newstate)(lua_Alloc f, void* ud);
|
||
|
|
void (*shim_close)(lua_State* L);
|
||
|
|
lua_State* (*shim_newthread)(lua_State* L);
|
||
|
|
lua_CFunction (*shim_atpanic)(lua_State* L, lua_CFunction panicf);
|
||
|
|
const lua_Number* (*shim_version)(lua_State* L);
|
||
|
|
int (*shim_absindex)(lua_State* L, int idx);
|
||
|
|
int (*shim_gettop)(lua_State* L);
|
||
|
|
void (*shim_settop)(lua_State* L, int idx);
|
||
|
|
void (*shim_pushvalue)(lua_State* L, int idx);
|
||
|
|
void (*shim_rotate)(lua_State* L, int idx, int n);
|
||
|
|
void (*shim_copy)(lua_State* L, int fromidx, int toidx);
|
||
|
|
int (*shim_checkstack)(lua_State* L, int n);
|
||
|
|
void (*shim_xmove)(lua_State* from, lua_State* to, int n);
|
||
|
|
int (*shim_isnumber)(lua_State* L, int idx);
|
||
|
|
int (*shim_isstring)(lua_State* L, int idx);
|
||
|
|
int (*shim_iscfunction)(lua_State* L, int idx);
|
||
|
|
int (*shim_isinteger)(lua_State* L, int idx);
|
||
|
|
int (*shim_isuserdata)(lua_State* L, int idx);
|
||
|
|
int (*shim_type)(lua_State* L, int idx);
|
||
|
|
const char* (*shim_typename)(lua_State* L, int tp);
|
||
|
|
lua_Number (*shim_tonumberx)(lua_State* L, int idx, int* isnum);
|
||
|
|
lua_Integer (*shim_tointegerx)(lua_State* L, int idx, int* isnum);
|
||
|
|
int (*shim_toboolean)(lua_State* L, int idx);
|
||
|
|
const char* (*shim_tolstring)(lua_State* L, int idx, size_t* len);
|
||
|
|
size_t (*shim_rawlen)(lua_State* L, int idx);
|
||
|
|
lua_CFunction (*shim_tocfunction)(lua_State* L, int idx);
|
||
|
|
void* (*shim_touserdata)(lua_State* L, int idx);
|
||
|
|
lua_State* (*shim_tothread)(lua_State* L, int idx);
|
||
|
|
const void* (*shim_topointer)(lua_State* L, int idx);
|
||
|
|
void (*shim_arith)(lua_State* L, int op);
|
||
|
|
int (*shim_rawequal)(lua_State* L, int idx1, int idx2);
|
||
|
|
int (*shim_compare)(lua_State* L, int idx1, int idx2, int op);
|
||
|
|
void (*shim_pushnil)(lua_State* L);
|
||
|
|
void (*shim_pushnumber)(lua_State* L, lua_Number n);
|
||
|
|
void (*shim_pushinteger)(lua_State* L, lua_Integer n);
|
||
|
|
const char* (*shim_pushlstring)(lua_State* L, const char* s, size_t len);
|
||
|
|
const char* (*shim_pushstring)(lua_State* L, const char* s);
|
||
|
|
const char* (*shim_pushvfstring)(lua_State* L, const char* fmt, va_list argp);
|
||
|
|
void (*shim_pushcclosure)(lua_State* L, lua_CFunction fn, int n);
|
||
|
|
void (*shim_pushboolean)(lua_State* L, int b);
|
||
|
|
void (*shim_pushlightuserdata)(lua_State* L, void* p);
|
||
|
|
int (*shim_pushthread)(lua_State* L);
|
||
|
|
int (*shim_getglobal)(lua_State* L, const char* name);
|
||
|
|
int (*shim_gettable)(lua_State* L, int idx);
|
||
|
|
int (*shim_getfield)(lua_State* L, int idx, const char* k);
|
||
|
|
int (*shim_geti)(lua_State* L, int idx, lua_Integer n);
|
||
|
|
int (*shim_rawget)(lua_State* L, int idx);
|
||
|
|
int (*shim_rawgeti)(lua_State* L, int idx, lua_Integer n);
|
||
|
|
int (*shim_rawgetp)(lua_State* L, int idx, const void* p);
|
||
|
|
void (*shim_createtable)(lua_State* L, int narr, int nrec);
|
||
|
|
void* (*shim_newuserdata)(lua_State* L, size_t sz);
|
||
|
|
int (*shim_getmetatable)(lua_State* L, int objindex);
|
||
|
|
int (*shim_getuservalue)(lua_State* L, int idx);
|
||
|
|
void (*shim_setglobal)(lua_State* L, const char* name);
|
||
|
|
void (*shim_settable)(lua_State* L, int idx);
|
||
|
|
void (*shim_setfield)(lua_State* L, int idx, const char* k);
|
||
|
|
void (*shim_seti)(lua_State* L, int idx, lua_Integer n);
|
||
|
|
void (*shim_rawset)(lua_State* L, int idx);
|
||
|
|
void (*shim_rawseti)(lua_State* L, int idx, lua_Integer n);
|
||
|
|
void (*shim_rawsetp)(lua_State* L, int idx, const void* p);
|
||
|
|
int (*shim_setmetatable)(lua_State* L, int objindex);
|
||
|
|
void (*shim_setuservalue)(lua_State* L, int idx);
|
||
|
|
void (*shim_callk)(lua_State* L, int nargs, int nresults, lua_KContext ctx, lua_KFunction k);
|
||
|
|
int (*shim_pcallk)(lua_State* L, int nargs, int nresults, int errfunc, lua_KContext ctx, lua_KFunction k);
|
||
|
|
int (*shim_load)(lua_State* L, lua_Reader reader, void* dt, const char* chunkname, const char* mode);
|
||
|
|
int (*shim_dump)(lua_State* L, lua_Writer writer, void* data, int strip);
|
||
|
|
int (*shim_yieldk)(lua_State* L, int nresults, lua_KContext ctx, lua_KFunction k);
|
||
|
|
int (*shim_resume)(lua_State* L, lua_State* from, int narg);
|
||
|
|
int (*shim_status)(lua_State* L);
|
||
|
|
int (*shim_isyieldable)(lua_State* L);
|
||
|
|
int (*shim_gc)(lua_State* L, int what, int data);
|
||
|
|
int (*shim_error)(lua_State* L);
|
||
|
|
int (*shim_next)(lua_State* L, int idx);
|
||
|
|
void (*shim_concat)(lua_State* L, int n);
|
||
|
|
void (*shim_len)(lua_State* L, int idx);
|
||
|
|
size_t (*shim_stringtonumber)(lua_State* L, const char* s);
|
||
|
|
lua_Alloc (*shim_getallocf)(lua_State* L, void** ud);
|
||
|
|
void (*shim_setallocf)(lua_State* L, lua_Alloc f, void* ud);
|
||
|
|
int (*shim_getstack)(lua_State* L, int level, lua_Debug* ar);
|
||
|
|
int (*shim_getinfo)(lua_State* L, const char* what, lua_Debug* ar);
|
||
|
|
const char* (*shim_getlocal)(lua_State* L, const lua_Debug* ar, int n);
|
||
|
|
const char* (*shim_setlocal)(lua_State* L, const lua_Debug* ar, int n);
|
||
|
|
const char* (*shim_getupvalue)(lua_State* L, int funcindex, int n);
|
||
|
|
const char* (*shim_setupvalue)(lua_State* L, int funcindex, int n);
|
||
|
|
void* (*shim_upvalueid)(lua_State* L, int fidx, int n);
|
||
|
|
void (*shim_upvaluejoin)(lua_State* L, int fidx1, int n1, int fidx2, int n2);
|
||
|
|
void (*shim_sethook)(lua_State* L, lua_Hook func, int mask, int count);
|
||
|
|
lua_Hook (*shim_gethook)(lua_State* L);
|
||
|
|
int (*shim_gethookmask)(lua_State* L);
|
||
|
|
int (*shim_gethookcount)(lua_State* L);
|
||
|
|
void (*shimL_checkversion_)(lua_State* L, lua_Number ver, size_t sz);
|
||
|
|
int (*shimL_getmetafield)(lua_State* L, int obj, const char* e);
|
||
|
|
int (*shimL_callmeta)(lua_State* L, int obj, const char* e);
|
||
|
|
const char* (*shimL_tolstring)(lua_State* L, int idx, size_t* len);
|
||
|
|
int (*shimL_argerror)(lua_State* L, int arg, const char* extramsg);
|
||
|
|
const char* (*shimL_checklstring)(lua_State* L, int arg, size_t* l);
|
||
|
|
const char* (*shimL_optlstring)(lua_State* L, int arg, const char* def, size_t* l);
|
||
|
|
lua_Number (*shimL_checknumber)(lua_State* L, int arg);
|
||
|
|
lua_Number (*shimL_optnumber)(lua_State* L, int arg, lua_Number def);
|
||
|
|
lua_Integer (*shimL_checkinteger)(lua_State* L, int arg);
|
||
|
|
lua_Integer (*shimL_optinteger)(lua_State* L, int arg, lua_Integer def);
|
||
|
|
void (*shimL_checkstack)(lua_State* L, int sz, const char* msg);
|
||
|
|
void (*shimL_checktype)(lua_State* L, int arg, int t);
|
||
|
|
void (*shimL_checkany)(lua_State* L, int arg);
|
||
|
|
int (*shimL_newmetatable)(lua_State* L, const char* tname);
|
||
|
|
void (*shimL_setmetatable)(lua_State* L, const char* tname);
|
||
|
|
void* (*shimL_testudata)(lua_State* L, int ud, const char* tname);
|
||
|
|
void* (*shimL_checkudata)(lua_State* L, int ud, const char* tname);
|
||
|
|
void (*shimL_where)(lua_State* L, int lvl);
|
||
|
|
int (*shimL_checkoption)(lua_State* L, int arg, const char* def, const char* const lst[]);
|
||
|
|
int (*shimL_fileresult)(lua_State* L, int stat, const char* fname);
|
||
|
|
int (*shimL_execresult)(lua_State* L, int stat);
|
||
|
|
int (*shimL_ref)(lua_State* L, int t);
|
||
|
|
void (*shimL_unref)(lua_State* L, int t, int ref);
|
||
|
|
int (*shimL_loadfilex)(lua_State* L, const char* filename, const char* mode);
|
||
|
|
int (*shimL_loadbufferx)(lua_State* L, const char* buff, size_t sz, const char* name, const char* mode);
|
||
|
|
int (*shimL_loadstring)(lua_State* L, const char* s);
|
||
|
|
lua_State* (*shimL_newstate)();
|
||
|
|
lua_Integer (*shimL_len)(lua_State* L, int idx);
|
||
|
|
const char* (*shimL_gsub)(lua_State* L, const char* s, const char* p, const char* r);
|
||
|
|
void (*shimL_setfuncs)(lua_State* L, const luaL_Reg* l, int nup);
|
||
|
|
int (*shimL_getsubtable)(lua_State* L, int idx, const char* fname);
|
||
|
|
void (*shimL_traceback)(lua_State* L, lua_State* L1, const char* msg, int level);
|
||
|
|
void (*shimL_requiref)(lua_State* L, const char* modname, lua_CFunction openf, int glb);
|
||
|
|
void (*shimL_buffinit)(lua_State* L, luaL_Buffer* B);
|
||
|
|
char* (*shimL_prepbuffsize)(luaL_Buffer* B, size_t sz);
|
||
|
|
void (*shimL_addlstring)(luaL_Buffer* B, const char* s, size_t l);
|
||
|
|
void (*shimL_addstring)(luaL_Buffer* B, const char* s);
|
||
|
|
void (*shimL_addvalue)(luaL_Buffer* B);
|
||
|
|
void (*shimL_pushresult)(luaL_Buffer* B);
|
||
|
|
void (*shimL_pushresultsize)(luaL_Buffer* B, size_t sz);
|
||
|
|
char* (*shimL_buffinitsize)(lua_State* L, luaL_Buffer* B, size_t sz);
|
||
|
|
} LuaFunctionTable_t;
|
||
|
|
|
||
|
|
#endif
|