Merge branch 'master' of https://github.com/LuaLanes/lanes

1 files changed, 29 insertions, 13 deletions

diff --git a/src/compat.cpp b/src/compat.cpp
index 47fe37e..73d0f6b 100644
--- a/src/compat.cpp
+++ b/src/compat.cpp
@@ -1,6 +1,6 @@
 /*
  * ###############################################################################################
- * ######################################### Lua 5.1/5.2 #########################################
+ * ####################################### Lua 5.1/5.2/5.3 #######################################
  * ###############################################################################################
  */
 #include "compat.h"
@@ -9,8 +9,13 @@
 /*
 ** Copied from Lua 5.2 loadlib.c
 */
+// ################################################################################################
+// ################################################################################################
 #if LUA_VERSION_NUM == 501
-static int luaL_getsubtable (lua_State *L, int idx, const char *fname)
+// ################################################################################################
+// ################################################################################################
+
+static int luaL_getsubtable(lua_State* L, int idx, const char* fname)
 {
     lua_getfield(L, idx, fname);
     if (lua_istable(L, -1))
@@ -26,7 +31,9 @@ static int luaL_getsubtable (lua_State *L, int idx, const char *fname)
     }
 }
 
-void luaL_requiref (lua_State *L, const char *modname, lua_CFunction openf, int glb)
+// ################################################################################################
+
+void luaL_requiref(lua_State *L, const char *modname, lua_CFunction openf, int glb)
 {
     lua_pushcfunction(L, openf);
     lua_pushstring(L, modname);  /* argument to open function */
@@ -43,24 +50,30 @@ void luaL_requiref (lua_State *L, const char *modname, lua_CFunction openf, int
 }
 #endif // LUA_VERSION_NUM
 
+// ################################################################################################
+// ################################################################################################
 #if LUA_VERSION_NUM < 504
+// ################################################################################################
+// ################################################################################################
 
 void* lua_newuserdatauv( lua_State* L, size_t sz, int nuvalue)
 {
     ASSERT_L( nuvalue <= 1);
-    return lua_newuserdata( L, sz);
+    return lua_newuserdata(L, sz);
 }
 
+// ################################################################################################
+
 // push on stack uservalue #n of full userdata at idx
 int lua_getiuservalue(lua_State* L, int idx, int n)
 {
     // full userdata can have only 1 uservalue before 5.4
     if( n > 1)
     {
-        lua_pushnil( L);
+        lua_pushnil(L);
         return LUA_TNONE;
     }
-    lua_getuservalue( L, idx);
+    lua_getuservalue(L, idx);
 
 #if LUA_VERSION_NUM == 501
     /* default environment is not a nil (see lua_getfenv) */
@@ -68,30 +81,33 @@ int lua_getiuservalue(lua_State* L, int idx, int n)
     if (lua_rawequal(L, -2, -1) || lua_rawequal(L, -2, LUA_GLOBALSINDEX))
     {
         lua_pop(L, 2);
-        lua_pushnil( L);
+        lua_pushnil(L);
 
         return LUA_TNONE;
     }
     lua_pop(L, 1);      /* remove package */
 #endif
 
-    return lua_type( L, -1);
+    return lua_type(L, -1);
 }
 
-// pop stack top, sets it a uservalue #n of full userdata at idx
-int lua_setiuservalue( lua_State* L, int idx, int n)
+// ################################################################################################
+
+// Pops a value from the stack and sets it as the new n-th user value associated to the full userdata at the given index.
+// Returns 0 if the userdata does not have that value.
+int lua_setiuservalue(lua_State* L, int idx, int n)
 {
     if( n > 1
 #if LUA_VERSION_NUM == 501
-        || lua_type( L, -1) != LUA_TTABLE
+        || lua_type(L, -1) != LUA_TTABLE
 #endif
         )
     {
-        lua_pop( L, 1);
+        lua_pop(L, 1);
         return 0;
     }
 
-    (void) lua_setuservalue( L, idx);
+    lua_setuservalue(L, idx);
     return 1; // I guess anything non-0 is ok
 }