compat.c

#include <lua.h>
#include "compat.h"

/****************************************************************************/

#if LUA_VERSION_NUM==502 || LUA_VERSION_NUM==503

int typeerror(lua_State* L, int narg, const char* tname)
{
    // Create a Lua string with the error message and put it on the stack
    // luaL_typename returns the name of the type of value at the given index
	const char* msg = lua_pushfstring(L, "%s expected, got %s", tname, luaL_typename(L, narg));
	// raises the error of the typeof message:
	// bad argument #arg to 'funcname' (extramsg)
	return luaL_argerror(L, narg, msg);
}

#endif

/****************************************************************************/

#if LUA_VERSION_NUM==501

void setfuncs(lua_State* L, const luaL_Reg* l, int nup)
{
	luaL_checkstack(L, nup, "too many upvalues");
	for (; l->name; ++l) /* fill the table with given functions */
	{
		int i;
		for (i = 0; i < nup; ++i) /* copy upvalues to the top */
			lua_pushvalue(L, -nup);
		lua_pushcclosure(L, l->func, nup); /* closure with those upvalues */
		lua_setfield(L, -(nup + 2), l->name);
	}
	lua_pop(L, nup); /* remove upvalues */
}

#endif