Mirrors/winamp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Initial community commit

Browse source
This commit is contained in:
Jef 2024-09-24 14:54:57 +02:00
parent 537bcbc862
commit fc06254474
16440 changed files with 4239995 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

134
Src/external_dependencies/openmpt-trunk/include/premake/contrib/luashim/lua.txt vendored Normal file
View file

@ -0,0 +1,134 @@
lua_State* (lua_newstate) (lua_Alloc f, void* ud);
void (lua_close) (lua_State* L);
lua_State* (lua_newthread) (lua_State* L);
lua_CFunction (lua_atpanic) (lua_State* L, lua_CFunction panicf);
const lua_Number* (lua_version) (lua_State* L);
int (lua_absindex) (lua_State* L, int idx);
int (lua_gettop) (lua_State* L);
void (lua_settop) (lua_State* L, int idx);
void (lua_pushvalue) (lua_State* L, int idx);
void (lua_rotate) (lua_State* L, int idx, int n);
void (lua_copy) (lua_State* L, int fromidx, int toidx);
int (lua_checkstack) (lua_State* L, int n);
void (lua_xmove) (lua_State* from, lua_State* to, int n);
int (lua_isnumber) (lua_State* L, int idx);
int (lua_isstring) (lua_State* L, int idx);
int (lua_iscfunction) (lua_State* L, int idx);
int (lua_isinteger) (lua_State* L, int idx);
int (lua_isuserdata) (lua_State* L, int idx);
int (lua_type) (lua_State* L, int idx);
const char* (lua_typename) (lua_State* L, int tp);
lua_Number (lua_tonumberx) (lua_State* L, int idx, int* isnum);
lua_Integer (lua_tointegerx) (lua_State* L, int idx, int* isnum);
int (lua_toboolean) (lua_State* L, int idx);
const char* (lua_tolstring) (lua_State* L, int idx, size_t* len);
size_t (lua_rawlen) (lua_State* L, int idx);
lua_CFunction (lua_tocfunction) (lua_State* L, int idx);
void* (lua_touserdata) (lua_State* L, int idx);
lua_State* (lua_tothread) (lua_State* L, int idx);
const void* (lua_topointer) (lua_State* L, int idx);
void (lua_arith) (lua_State* L, int op);
int (lua_rawequal) (lua_State* L, int idx1, int idx2);
int (lua_compare) (lua_State* L, int idx1, int idx2, int op);
void (lua_pushnil) (lua_State* L);
void (lua_pushnumber) (lua_State* L, lua_Number n);
void (lua_pushinteger) (lua_State* L, lua_Integer n);
const char* (lua_pushlstring) (lua_State* L, const char* s, size_t len);
const char* (lua_pushstring) (lua_State* L, const char* s);
const char* (lua_pushvfstring) (lua_State* L, const char* fmt, va_list argp);
const char* (lua_pushfstring) (lua_State* L, const char* fmt, ...);
void (lua_pushcclosure) (lua_State* L, lua_CFunction fn, int n);
void (lua_pushboolean) (lua_State* L, int b);
void (lua_pushlightuserdata) (lua_State* L, void* p);
int (lua_pushthread) (lua_State* L);
int (lua_getglobal) (lua_State* L, const char* name);
int (lua_gettable) (lua_State* L, int idx);
int (lua_getfield) (lua_State* L, int idx, const char* k);
int (lua_geti) (lua_State* L, int idx, lua_Integer n);
int (lua_rawget) (lua_State* L, int idx);
int (lua_rawgeti) (lua_State* L, int idx, lua_Integer n);
int (lua_rawgetp) (lua_State* L, int idx, const void* p);
void (lua_createtable) (lua_State* L, int narr, int nrec);
void* (lua_newuserdata) (lua_State* L, size_t sz);
int (lua_getmetatable) (lua_State* L, int objindex);
int (lua_getuservalue) (lua_State* L, int idx);
void (lua_setglobal) (lua_State* L, const char* name);
void (lua_settable) (lua_State* L, int idx);
void (lua_setfield) (lua_State* L, int idx, const char* k);
void (lua_seti) (lua_State* L, int idx, lua_Integer n);
void (lua_rawset) (lua_State* L, int idx);
void (lua_rawseti) (lua_State* L, int idx, lua_Integer n);
void (lua_rawsetp) (lua_State* L, int idx, const void* p);
int (lua_setmetatable) (lua_State* L, int objindex);
void (lua_setuservalue) (lua_State* L, int idx);
void (lua_callk) (lua_State* L, int nargs, int nresults,lua_KContext ctx, lua_KFunction k);
int (lua_pcallk) (lua_State* L, int nargs, int nresults, int errfunc,lua_KContext ctx, lua_KFunction k);
int (lua_load) (lua_State* L, lua_Reader reader, void* dt,const char* chunkname, const char* mode);
int (lua_dump) (lua_State* L, lua_Writer writer, void* data, int strip);
int (lua_yieldk) (lua_State* L, int nresults, lua_KContext ctx,lua_KFunction k);
int (lua_resume) (lua_State* L, lua_State* from, int narg);
int (lua_status) (lua_State* L);
int (lua_isyieldable) (lua_State* L);
int (lua_gc) (lua_State* L, int what, int data);
int (lua_error) (lua_State* L);
int (lua_next) (lua_State* L, int idx);
void (lua_concat) (lua_State* L, int n);
void (lua_len) (lua_State* L, int idx);
size_t (lua_stringtonumber) (lua_State* L, const char* s);
lua_Alloc (lua_getallocf) (lua_State* L, void** ud);
void (lua_setallocf) (lua_State* L, lua_Alloc f, void* ud);
int (lua_getstack) (lua_State* L, int level, lua_Debug* ar);
int (lua_getinfo) (lua_State* L, const char* what, lua_Debug* ar);
const char* (lua_getlocal) (lua_State* L, const lua_Debug* ar, int n);
const char* (lua_setlocal) (lua_State* L, const lua_Debug* ar, int n);
const char* (lua_getupvalue) (lua_State* L, int funcindex, int n);
const char* (lua_setupvalue) (lua_State* L, int funcindex, int n);
void* (lua_upvalueid) (lua_State* L, int fidx, int n);
void (lua_upvaluejoin) (lua_State* L, int fidx1, int n1,int fidx2, int n2);
void (lua_sethook) (lua_State* L, lua_Hook func, int mask, int count);
lua_Hook (lua_gethook) (lua_State* L);
int (lua_gethookmask) (lua_State* L);
int (lua_gethookcount) (lua_State* L);
void (luaL_checkversion_) (lua_State* L, lua_Number ver, size_t sz);
int (luaL_getmetafield) (lua_State* L, int obj, const char* e);
int (luaL_callmeta) (lua_State* L, int obj, const char* e);
const char* (luaL_tolstring) (lua_State* L, int idx, size_t* len);
int (luaL_argerror) (lua_State* L, int arg, const char* extramsg);
const char* (luaL_checklstring) (lua_State* L, int arg,size_t* l);
const char* (luaL_optlstring) (lua_State* L, int arg,const char* def, size_t* l);
lua_Number (luaL_checknumber) (lua_State* L, int arg);
lua_Number (luaL_optnumber) (lua_State* L, int arg, lua_Number def);
lua_Integer (luaL_checkinteger) (lua_State* L, int arg);
lua_Integer (luaL_optinteger) (lua_State* L, int arg,lua_Integer def);
void (luaL_checkstack) (lua_State* L, int sz, const char* msg);
void (luaL_checktype) (lua_State* L, int arg, int t);
void (luaL_checkany) (lua_State* L, int arg);
int (luaL_newmetatable) (lua_State* L, const char* tname);
void (luaL_setmetatable) (lua_State* L, const char* tname);
void* (luaL_testudata) (lua_State* L, int ud, const char* tname);
void* (luaL_checkudata) (lua_State* L, int ud, const char* tname);
void (luaL_where) (lua_State* L, int lvl);
int (luaL_error) (lua_State* L, const char* fmt, ...);
int (luaL_checkoption) (lua_State* L, int arg, const char* def,const char* const lst[]);
int (luaL_fileresult) (lua_State* L, int stat, const char* fname);
int (luaL_execresult) (lua_State* L, int stat);
int (luaL_ref) (lua_State* L, int t);
void (luaL_unref) (lua_State* L, int t, int ref);
int (luaL_loadfilex) (lua_State* L, const char* filename,const char* mode);
int (luaL_loadbufferx) (lua_State* L, const char* buff, size_t sz,const char* name, const char* mode);
int (luaL_loadstring) (lua_State* L, const char* s);
lua_State* (luaL_newstate) ();
lua_Integer (luaL_len) (lua_State* L, int idx);
const char* (luaL_gsub) (lua_State* L, const char* s, const char* p,const char* r);
void (luaL_setfuncs) (lua_State* L, const luaL_Reg* l, int nup);
int (luaL_getsubtable) (lua_State* L, int idx, const char* fname);
void (luaL_traceback) (lua_State* L, lua_State* L1,const char* msg, int level);
void (luaL_requiref) (lua_State* L, const char* modname,lua_CFunction openf, int glb);
void (luaL_buffinit) (lua_State* L, luaL_Buffer* B);
char* (luaL_prepbuffsize) (luaL_Buffer* B, size_t sz);
void (luaL_addlstring) (luaL_Buffer* B, const char* s, size_t l);
void (luaL_addstring) (luaL_Buffer* B, const char* s);
void (luaL_addvalue) (luaL_Buffer* B);
void (luaL_pushresult) (luaL_Buffer* B);
void (luaL_pushresultsize) (luaL_Buffer* B, size_t sz);
char* (luaL_buffinitsize) (lua_State* L, luaL_Buffer* B, size_t sz);

861
Src/external_dependencies/openmpt-trunk/include/premake/contrib/luashim/luashim.c vendored Normal file
View file

@ -0,0 +1,861 @@
/**
* \file luashim.c
* \brief Lua shim for premake binary modules.
* \author Copyright (c) 2017 Tom van Dijck and the Premake project
*/
#include "luashim.h"
#include <assert.h>
#include "lstate.h"
static const LuaFunctionTable_t* g_shimTable;
void luaL_register(lua_State *L, const char *libname, const luaL_Reg *l)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_register(L, libname, l);
}
lua_State* lua_newstate(lua_Alloc f, void* ud)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_newstate(f, ud);
}
void lua_close(lua_State* L)
{
assert(g_shimTable != NULL);
g_shimTable->shim_close(L);
}
lua_State* lua_newthread(lua_State* L)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_newthread(L);
}
lua_CFunction lua_atpanic(lua_State* L, lua_CFunction panicf)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_atpanic(L, panicf);
}
const lua_Number* lua_version(lua_State* L)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_version(L);
}
int lua_absindex(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_absindex(L, idx);
}
int lua_gettop(lua_State* L)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_gettop(L);
}
void lua_settop(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
g_shimTable->shim_settop(L, idx);
}
void lua_pushvalue(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
g_shimTable->shim_pushvalue(L, idx);
}
void lua_rotate(lua_State* L, int idx, int n)
{
assert(g_shimTable != NULL);
g_shimTable->shim_rotate(L, idx, n);
}
void lua_copy(lua_State* L, int fromidx, int toidx)
{
assert(g_shimTable != NULL);
g_shimTable->shim_copy(L, fromidx, toidx);
}
int lua_checkstack(lua_State* L, int n)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_checkstack(L, n);
}
void lua_xmove(lua_State* from, lua_State* to, int n)
{
assert(g_shimTable != NULL);
g_shimTable->shim_xmove(from, to, n);
}
int lua_isnumber(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_isnumber(L, idx);
}
int lua_isstring(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_isstring(L, idx);
}
int lua_iscfunction(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_iscfunction(L, idx);
}
int lua_isinteger(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_isinteger(L, idx);
}
int lua_isuserdata(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_isuserdata(L, idx);
}
int lua_type(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_type(L, idx);
}
const char* lua_typename(lua_State* L, int tp)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_typename(L, tp);
}
lua_Number lua_tonumberx(lua_State* L, int idx, int* isnum)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_tonumberx(L, idx, isnum);
}
lua_Integer lua_tointegerx(lua_State* L, int idx, int* isnum)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_tointegerx(L, idx, isnum);
}
int lua_toboolean(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_toboolean(L, idx);
}
const char* lua_tolstring(lua_State* L, int idx, size_t* len)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_tolstring(L, idx, len);
}
size_t lua_rawlen(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_rawlen(L, idx);
}
lua_CFunction lua_tocfunction(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_tocfunction(L, idx);
}
void* lua_touserdata(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_touserdata(L, idx);
}
lua_State* lua_tothread(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_tothread(L, idx);
}
const void* lua_topointer(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_topointer(L, idx);
}
void lua_arith(lua_State* L, int op)
{
assert(g_shimTable != NULL);
g_shimTable->shim_arith(L, op);
}
int lua_rawequal(lua_State* L, int idx1, int idx2)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_rawequal(L, idx1, idx2);
}
int lua_compare(lua_State* L, int idx1, int idx2, int op)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_compare(L, idx1, idx2, op);
}
void lua_pushnil(lua_State* L)
{
assert(g_shimTable != NULL);
g_shimTable->shim_pushnil(L);
}
void lua_pushnumber(lua_State* L, lua_Number n)
{
assert(g_shimTable != NULL);
g_shimTable->shim_pushnumber(L, n);
}
void lua_pushinteger(lua_State* L, lua_Integer n)
{
assert(g_shimTable != NULL);
g_shimTable->shim_pushinteger(L, n);
}
const char* lua_pushlstring(lua_State* L, const char* s, size_t len)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_pushlstring(L, s, len);
}
const char* lua_pushstring(lua_State* L, const char* s)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_pushstring(L, s);
}
const char* lua_pushvfstring(lua_State* L, const char* fmt, va_list argp)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_pushvfstring(L, fmt, argp);
}
const char* lua_pushfstring(lua_State* L, const char* fmt, ...)
{
const char* ret;
va_list argp;
va_start(argp, fmt);
ret = lua_pushvfstring(L, fmt, argp);
va_end(argp);
return ret;
}
void lua_pushcclosure(lua_State* L, lua_CFunction fn, int n)
{
assert(g_shimTable != NULL);
g_shimTable->shim_pushcclosure(L, fn, n);
}
void lua_pushboolean(lua_State* L, int b)
{
assert(g_shimTable != NULL);
g_shimTable->shim_pushboolean(L, b);
}
void lua_pushlightuserdata(lua_State* L, void* p)
{
assert(g_shimTable != NULL);
g_shimTable->shim_pushlightuserdata(L, p);
}
int lua_pushthread(lua_State* L)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_pushthread(L);
}
int lua_getglobal(lua_State* L, const char* name)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_getglobal(L, name);
}
int lua_gettable(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_gettable(L, idx);
}
int lua_getfield(lua_State* L, int idx, const char* k)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_getfield(L, idx, k);
}
int lua_geti(lua_State* L, int idx, lua_Integer n)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_geti(L, idx, n);
}
int lua_rawget(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_rawget(L, idx);
}
int lua_rawgeti(lua_State* L, int idx, lua_Integer n)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_rawgeti(L, idx, n);
}
int lua_rawgetp(lua_State* L, int idx, const void* p)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_rawgetp(L, idx, p);
}
void lua_createtable(lua_State* L, int narr, int nrec)
{
assert(g_shimTable != NULL);
g_shimTable->shim_createtable(L, narr, nrec);
}
void* lua_newuserdata(lua_State* L, size_t sz)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_newuserdata(L, sz);
}
int lua_getmetatable(lua_State* L, int objindex)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_getmetatable(L, objindex);
}
int lua_getuservalue(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_getuservalue(L, idx);
}
void lua_setglobal(lua_State* L, const char* name)
{
assert(g_shimTable != NULL);
g_shimTable->shim_setglobal(L, name);
}
void lua_settable(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
g_shimTable->shim_settable(L, idx);
}
void lua_setfield(lua_State* L, int idx, const char* k)
{
assert(g_shimTable != NULL);
g_shimTable->shim_setfield(L, idx, k);
}
void lua_seti(lua_State* L, int idx, lua_Integer n)
{
assert(g_shimTable != NULL);
g_shimTable->shim_seti(L, idx, n);
}
void lua_rawset(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
g_shimTable->shim_rawset(L, idx);
}
void lua_rawseti(lua_State* L, int idx, lua_Integer n)
{
assert(g_shimTable != NULL);
g_shimTable->shim_rawseti(L, idx, n);
}
void lua_rawsetp(lua_State* L, int idx, const void* p)
{
assert(g_shimTable != NULL);
g_shimTable->shim_rawsetp(L, idx, p);
}
int lua_setmetatable(lua_State* L, int objindex)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_setmetatable(L, objindex);
}
void lua_setuservalue(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
g_shimTable->shim_setuservalue(L, idx);
}
void lua_callk(lua_State* L, int nargs, int nresults, lua_KContext ctx, lua_KFunction k)
{
assert(g_shimTable != NULL);
g_shimTable->shim_callk(L, nargs, nresults, ctx, k);
}
int lua_pcallk(lua_State* L, int nargs, int nresults, int errfunc, lua_KContext ctx, lua_KFunction k)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_pcallk(L, nargs, nresults, errfunc, ctx, k);
}
int lua_load(lua_State* L, lua_Reader reader, void* dt, const char* chunkname, const char* mode)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_load(L, reader, dt, chunkname, mode);
}
int lua_dump(lua_State* L, lua_Writer writer, void* data, int strip)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_dump(L, writer, data, strip);
}
int lua_yieldk(lua_State* L, int nresults, lua_KContext ctx, lua_KFunction k)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_yieldk(L, nresults, ctx, k);
}
int lua_resume(lua_State* L, lua_State* from, int narg)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_resume(L, from, narg);
}
int lua_status(lua_State* L)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_status(L);
}
int lua_isyieldable(lua_State* L)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_isyieldable(L);
}
int lua_gc(lua_State* L, int what, int data)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_gc(L, what, data);
}
int lua_error(lua_State* L)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_error(L);
}
int lua_next(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_next(L, idx);
}
void lua_concat(lua_State* L, int n)
{
assert(g_shimTable != NULL);
g_shimTable->shim_concat(L, n);
}
void lua_len(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
g_shimTable->shim_len(L, idx);
}
size_t lua_stringtonumber(lua_State* L, const char* s)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_stringtonumber(L, s);
}
lua_Alloc lua_getallocf(lua_State* L, void** ud)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_getallocf(L, ud);
}
void lua_setallocf(lua_State* L, lua_Alloc f, void* ud)
{
assert(g_shimTable != NULL);
g_shimTable->shim_setallocf(L, f, ud);
}
int lua_getstack(lua_State* L, int level, lua_Debug* ar)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_getstack(L, level, ar);
}
int lua_getinfo(lua_State* L, const char* what, lua_Debug* ar)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_getinfo(L, what, ar);
}
const char* lua_getlocal(lua_State* L, const lua_Debug* ar, int n)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_getlocal(L, ar, n);
}
const char* lua_setlocal(lua_State* L, const lua_Debug* ar, int n)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_setlocal(L, ar, n);
}
const char* lua_getupvalue(lua_State* L, int funcindex, int n)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_getupvalue(L, funcindex, n);
}
const char* lua_setupvalue(lua_State* L, int funcindex, int n)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_setupvalue(L, funcindex, n);
}
void* lua_upvalueid(lua_State* L, int fidx, int n)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_upvalueid(L, fidx, n);
}
void lua_upvaluejoin(lua_State* L, int fidx1, int n1, int fidx2, int n2)
{
assert(g_shimTable != NULL);
g_shimTable->shim_upvaluejoin(L, fidx1, n1, fidx2, n2);
}
void lua_sethook(lua_State* L, lua_Hook func, int mask, int count)
{
assert(g_shimTable != NULL);
g_shimTable->shim_sethook(L, func, mask, count);
}
lua_Hook lua_gethook(lua_State* L)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_gethook(L);
}
int lua_gethookmask(lua_State* L)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_gethookmask(L);
}
int lua_gethookcount(lua_State* L)
{
assert(g_shimTable != NULL);
return g_shimTable->shim_gethookcount(L);
}
void luaL_checkversion_(lua_State* L, lua_Number ver, size_t sz)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_checkversion_(L, ver, sz);
}
int luaL_getmetafield(lua_State* L, int obj, const char* e)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_getmetafield(L, obj, e);
}
int luaL_callmeta(lua_State* L, int obj, const char* e)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_callmeta(L, obj, e);
}
const char* luaL_tolstring(lua_State* L, int idx, size_t* len)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_tolstring(L, idx, len);
}
int luaL_argerror(lua_State* L, int arg, const char* extramsg)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_argerror(L, arg, extramsg);
}
const char* luaL_checklstring(lua_State* L, int arg, size_t* l)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_checklstring(L, arg, l);
}
const char* luaL_optlstring(lua_State* L, int arg, const char* def, size_t* l)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_optlstring(L, arg, def, l);
}
lua_Number luaL_checknumber(lua_State* L, int arg)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_checknumber(L, arg);
}
lua_Number luaL_optnumber(lua_State* L, int arg, lua_Number def)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_optnumber(L, arg, def);
}
lua_Integer luaL_checkinteger(lua_State* L, int arg)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_checkinteger(L, arg);
}
lua_Integer luaL_optinteger(lua_State* L, int arg, lua_Integer def)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_optinteger(L, arg, def);
}
void luaL_checkstack(lua_State* L, int sz, const char* msg)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_checkstack(L, sz, msg);
}
void luaL_checktype(lua_State* L, int arg, int t)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_checktype(L, arg, t);
}
void luaL_checkany(lua_State* L, int arg)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_checkany(L, arg);
}
int luaL_newmetatable(lua_State* L, const char* tname)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_newmetatable(L, tname);
}
void luaL_setmetatable(lua_State* L, const char* tname)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_setmetatable(L, tname);
}
void* luaL_testudata(lua_State* L, int ud, const char* tname)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_testudata(L, ud, tname);
}
void* luaL_checkudata(lua_State* L, int ud, const char* tname)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_checkudata(L, ud, tname);
}
void luaL_where(lua_State* L, int lvl)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_where(L, lvl);
}
int luaL_error(lua_State* L, const char* fmt, ...)
{
va_list argp;
va_start(argp, fmt);
luaL_where(L, 1);
lua_pushvfstring(L, fmt, argp);
va_end(argp);
lua_concat(L, 2);
return lua_error(L);
}
int luaL_checkoption(lua_State* L, int arg, const char* def, const char* const lst[])
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_checkoption(L, arg, def, lst);
}
int luaL_fileresult(lua_State* L, int stat, const char* fname)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_fileresult(L, stat, fname);
}
int luaL_execresult(lua_State* L, int stat)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_execresult(L, stat);
}
int luaL_ref(lua_State* L, int t)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_ref(L, t);
}
void luaL_unref(lua_State* L, int t, int ref)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_unref(L, t, ref);
}
int luaL_loadfilex(lua_State* L, const char* filename, const char* mode)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_loadfilex(L, filename, mode);
}
int luaL_loadbufferx(lua_State* L, const char* buff, size_t sz, const char* name, const char* mode)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_loadbufferx(L, buff, sz, name, mode);
}
int luaL_loadstring(lua_State* L, const char* s)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_loadstring(L, s);
}
lua_State* luaL_newstate()
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_newstate();
}
lua_Integer luaL_len(lua_State* L, int idx)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_len(L, idx);
}
const char* luaL_gsub(lua_State* L, const char* s, const char* p, const char* r)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_gsub(L, s, p, r);
}
void luaL_setfuncs(lua_State* L, const luaL_Reg* l, int nup)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_setfuncs(L, l, nup);
}
int luaL_getsubtable(lua_State* L, int idx, const char* fname)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_getsubtable(L, idx, fname);
}
void luaL_traceback(lua_State* L, lua_State* L1, const char* msg, int level)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_traceback(L, L1, msg, level);
}
void luaL_requiref(lua_State* L, const char* modname, lua_CFunction openf, int glb)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_requiref(L, modname, openf, glb);
}
void luaL_buffinit(lua_State* L, luaL_Buffer* B)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_buffinit(L, B);
}
char* luaL_prepbuffsize(luaL_Buffer* B, size_t sz)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_prepbuffsize(B, sz);
}
void luaL_addlstring(luaL_Buffer* B, const char* s, size_t l)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_addlstring(B, s, l);
}
void luaL_addstring(luaL_Buffer* B, const char* s)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_addstring(B, s);
}
void luaL_addvalue(luaL_Buffer* B)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_addvalue(B);
}
void luaL_pushresult(luaL_Buffer* B)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_pushresult(B);
}
void luaL_pushresultsize(luaL_Buffer* B, size_t sz)
{
assert(g_shimTable != NULL);
g_shimTable->shimL_pushresultsize(B, sz);
}
char* luaL_buffinitsize(lua_State* L, luaL_Buffer* B, size_t sz)
{
assert(g_shimTable != NULL);
return g_shimTable->shimL_buffinitsize(L, B, sz);
}
static const Node* hashpow2(const Table* t, int n) {
int i = lmod(n, sizenode(t));
return &t->node[i];
}
static const Node* findNode(const Table* t, int key) {
const Node* n = hashpow2(t, key);
while (n->i_key.tvk.value_.i != key)
{
int nx = n->i_key.nk.next;
if (nx == 0)
return NULL;
n += nx;
}
return n;
}
void shimInitialize(lua_State* L)
{
lua_lock(L);
// Find the 'SHIM' entry in the registry.
const Table* reg = hvalue(&G(L)->l_registry);
const Node* n = findNode(reg, 0x5348494D); // equal to 'SHIM'
assert(n != NULL);
g_shimTable = (const LuaFunctionTable_t*)n->i_val.value_.p;
assert(g_shimTable != NULL);
lua_unlock(L);
}

152
Src/external_dependencies/openmpt-trunk/include/premake/contrib/luashim/luashim.h vendored Normal file
View file

@ -0,0 +1,152 @@
/**
* \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

20
Src/external_dependencies/openmpt-trunk/include/premake/contrib/luashim/premake5.lua vendored Normal file
View file

@ -0,0 +1,20 @@
project "luashim-lib"
language "C"
kind "StaticLib"
warnings "extra"
pic "on"
includedirs { "../lua/src" }
files
{
"*.c",
"*.h",
"*.lua"
}
filter "system:linux or bsd or hurd or aix or haiku"
defines { "LUA_USE_POSIX", "LUA_USE_DLOPEN" }
filter "system:macosx"
defines { "LUA_USE_MACOSX" }