tests/capi: support bitwise operations in luaL_loadbuffer_proto

The `bit32` library has been deprecated in PUC Rio Lua 5.3 [1].
Missed bitwise functions have been replaced by appropriate bitwise
operations [2]. The patch adds support of bitwise operations in
the test `luaL_loadbuffer_proto`.

1. https://www.lua.org/manual/5.3/manual.html#8.2
2. https://www.lua.org/manual/5.3/manual.html#3.4.2

Author: ligurio

tests/capi/luaL_loadbuffer_proto/lua_grammar.proto

@@ -383,6 +383,17 @@ message BinaryOperator {
         uint32 notEqual = 13;
         uint32 and = 14;
         uint32 or = 15;
+
+        /* Arithmetic operators (5.3+). */
+        uint32 idiv = 16;
+
+        /* Bitwise operators (5.3+). */
+        uint32 bor = 17;
+        uint32 band = 18;
+        uint32 bxor = 19;
+        uint32 bnot = 20;
+        uint32 shl = 21;
+        uint32 shr = 22;
     }
 }
 
@@ -392,6 +403,9 @@ message UnaryOperator {
         uint32 negate = 1;
         uint32 not = 2;
         uint32 length = 3;
+
+        /* Bitwise operators (5.3+). */
+        uint32 bnot = 4;
     }
 }
 

tests/capi/luaL_loadbuffer_proto/preamble.lua

@@ -70,6 +70,27 @@ end
 local __unm = function(v)
     return - always_number(v)
 end
+local __idiv = function(v1, v2)
+    return
+end
+local __band = function(v1, v2)
+    return
+end
+local __bor = function(v1, v2)
+    return
+end
+local __bxor = function(v1, v2)
+    return
+end
+local __bnot = function(v1, v2)
+    return
+end
+local __shl = function(v1, v2)
+    return
+end
+local __shr = function(v1, v2)
+    return
+end
 
 debug.setmetatable('string', {
     __add = __add,
@@ -82,6 +103,13 @@ debug.setmetatable('string', {
     __pow = __pow,
     __sub = __sub,
     __unm = __unm,
+    __idiv = __idiv,
+    __band = __band,
+    __bor= __bor,
+    __bxor = __bxor,
+    __bnot = __bnot,
+    __shl = __shl,
+    __shr = __shr,
 })
 debug.setmetatable(0, {
     __add = __add,

tests/capi/luaL_loadbuffer_proto/serializer.cc

@@ -1157,6 +1157,10 @@ PROTO_TOSTRING(BinaryOperator, op)
 		return "*";
 	case BinopType::kDiv:
 		return "/";
+#if LUA_VERSION_NUM >= 503
+	case BinopType::kIDiv:
+		return "//";
+#endif
 	case BinopType::kExp:
 		return "^";
 	case BinopType::kMod:
@@ -1181,6 +1185,19 @@ PROTO_TOSTRING(BinaryOperator, op)
 		return "and";
 	case BinopType::kOr:
 		return "or";
+
+#if LUA_VERSION_NUM >= 503
+	case BinopType::kBAnd:
+		return "&";
+	case BinopType::kBOr:
+		return "|";
+	case BinopType::kBXor:
+		return "~";
+	case BinopType::kBShl:
+		return "<<";
+	case BinopType::kBShr:
+		return ">>";
+#endif
 	default:
 		/* Works in most cases. */
 		return "==";
@@ -1197,6 +1214,10 @@ PROTO_TOSTRING(UnaryOperator, op)
 		return "not ";
 	case UnaryopType::kLength:
 		return "#";
+#if LUA_VERSION_NUM >= 503
+	case UnaryopType::kBNot:
+		return "~";
+#endif
 	default:
 		/* Works in most cases. */
 		return "not ";