tests/capi: support bitop 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 to
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,13 @@ message BinaryOperator {
 
         /* Arithmetic operators (5.3+). */
         uint32 idiv = 16;
+
+        /* Bitwise operators (5.3+). */
+        uint32 band = 17;
+        uint32 bor = 18;
+        uint32 bxor = 19;
+        uint32 shl = 20;
+        uint32 shr = 21;
     }
 }
 
@@ -395,6 +402,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

@@ -76,6 +76,27 @@ local __idiv = load([[
     local v1, v2 = ...
     return always_number(v1) // always_number(v2)
 ]])
+local __band = load([[
+    local v1, v2 = ...
+    return always_number(v1) & always_number(v2)
+]])
+local __bor = load([[
+    local v1, v2 = ...
+    return always_number(v1) | always_number(v2)
+]])
+local __bxor = load([[
+    local v1, v2 = ...
+    return always_number(v1) ~ always_number(v2)
+]])
+local __bnot = load("return ~always_number(v)")
+local __shl = load([[
+    local v1, v2 = ...
+    return always_number(v1) << always_number(v2)
+]])
+local __shr = load([[
+    local v1, v2 = ...
+    return always_number(v1) >> always_number(v2)
+]])
 
 _G.always_number = always_number
 
@@ -91,6 +112,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 ";