1 files changed, 26 insertions, 4 deletions

diff --git a/src/compat.h b/src/compat.h
index 998edef..eaa9f85 100644
--- a/src/compat.h
+++ b/src/compat.h
@@ -5,7 +5,8 @@
 #include "lualib.h"
 #include "lauxlib.h"
 
-// code is now preferring Lua 5.3 API
+// code is now preferring Lua 5.4 API
+
 // add some Lua 5.3-style API when building for Lua 5.1
 #if LUA_VERSION_NUM == 501
 #define lua501_equal lua_equal
@@ -18,7 +19,8 @@
 #define LUA_OK 0
 #define LUA_ERRGCMM 666 // doesn't exist in Lua 5.1, we don't care about the actual value
 void luaL_requiref (lua_State* L, const char* modname, lua_CFunction openf, int glb); // implementation copied from Lua 5.2 sources
-#define lua503_dump( L, writer, data, strip) lua_dump( L, writer, data)
+#define lua504_dump( L, writer, data, strip) lua_dump( L, writer, data)
+#define LUA_LOADED_TABLE "_LOADED" // // doesn't exist in Lua 5.1
 #endif // LUA_VERSION_NUM == 501
 
 // wrap Lua 5.2 calls under Lua 5.1 API when it is simpler that way
@@ -30,7 +32,8 @@ void luaL_requiref (lua_State* L, const char* modname, lua_CFunction openf, int
 #define lua_lessthan( L, a, b) lua_compare( L, a, b, LUA_OPLT)
 #endif // lua_lessthan
 #define luaG_registerlibfuncs( L, _funcs) luaL_setfuncs( L, _funcs, 0)
-#define lua503_dump( L, writer, data, strip) lua_dump( L, writer, data)
+#define lua504_dump( L, writer, data, strip) lua_dump( L, writer, data)
+#define LUA_LOADED_TABLE "_LOADED" // // doesn't exist in Lua 5.2
 #endif // LUA_VERSION_NUM == 502
 
 // wrap Lua 5.3 calls under Lua 5.1 API when it is simpler that way
@@ -42,8 +45,27 @@ void luaL_requiref (lua_State* L, const char* modname, lua_CFunction openf, int
 #define lua_lessthan( L, a, b) lua_compare( L, a, b, LUA_OPLT)
 #endif // lua_lessthan
 #define luaG_registerlibfuncs( L, _funcs) luaL_setfuncs( L, _funcs, 0)
-#define lua503_dump lua_dump
+#define lua504_dump lua_dump
 #define luaL_optint(L,n,d) ((int)luaL_optinteger(L, (n), (d)))
 #endif // LUA_VERSION_NUM == 503
 
+#if LUA_VERSION_NUM < 504
+void *lua_newuserdatauv( lua_State* L, size_t sz, int nuvalue);
+int lua_getiuservalue( lua_State* L, int idx, int n);
+int lua_setiuservalue( lua_State* L, int idx, int n);
+#endif // LUA_VERSION_NUM < 504
+
+// wrap Lua 5.4 calls under Lua 5.1 API when it is simpler that way
+#if LUA_VERSION_NUM == 504
+#ifndef lua501_equal // already defined when compatibility is active in luaconf.h
+#define lua501_equal( L, a, b) lua_compare( L, a, b, LUA_OPEQ)
+#endif // lua501_equal
+#ifndef lua_lessthan // already defined when compatibility is active in luaconf.h
+#define lua_lessthan( L, a, b) lua_compare( L, a, b, LUA_OPLT)
+#endif // lua_lessthan
+#define luaG_registerlibfuncs( L, _funcs) luaL_setfuncs( L, _funcs, 0)
+#define lua504_dump lua_dump
+#define luaL_optint(L,n,d) ((int)luaL_optinteger(L, (n), (d)))
+#endif // LUA_VERSION_NUM == 504
+
 #endif // __COMPAT_H__