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

@@ -386,6 +386,14 @@ message BinaryOperator {
 
         /* 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;
     }
 }
 
@@ -395,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

@@ -73,6 +73,24 @@ end
 local __idiv = function(v1, v2)
     return always_number(v1) // always_number(v2)
 end
+local __band = function(v1, v2)
+    return always_number(v1) & always_number(v2)
+end
+local __bor = function(v1, v2)
+    return always_number(v1) | always_number(v2)
+end
+local __bxor = function(v1, v2)
+    return always_number(v1) ~ always_number(v2)
+end
+local __bnot = function(v)
+    return ~always_number(v)
+end
+local __shl = function(v1, v2)
+    return always_number(v1) << always_number(v2)
+end
+local __shr = function(v1, v2)
+    return always_number(v1) >> always_number(v2)
+end
 
 debug.setmetatable('string', {
     __add = __add,
@@ -86,6 +104,12 @@ debug.setmetatable('string', {
     __pow = __pow,
     __sub = __sub,
     __unm = __unm,
+    __band = __band,
+    __bor= __bor,
+    __bxor = __bxor,
+    __bnot = __bnot,
+    __shl = __shl,
+    __shr = __shr,
 })
 debug.setmetatable(0, {
     __add = __add,

tests/capi/luaL_loadbuffer_proto/serializer.cc

@@ -1185,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 "==";
@@ -1201,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 ";