*update

1 files changed, 91 insertions, 0 deletions

diff --git a/src/lua/bit/luaopen_bit.cpp b/src/lua/bit/luaopen_bit.cpp
new file mode 100644
index 0000000..fc3c188
--- /dev/null
+++ b/src/lua/bit/luaopen_bit.cpp
@@ -0,0 +1,91 @@
+#include "lua/luax.h"
+#include "libjin/jin.h"
+
+namespace jin
+{
+namespace lua
+{
+
+    static int l_and(lua_State* L)
+    {
+        int a = luax_checkinteger(L, 1);
+        int b = luax_checkinteger(L, 2);
+        luax_pushinteger(L, a & b);
+        return 1;
+    }
+
+    static int l_or(lua_State* L)
+    {
+        int a = luax_checkinteger(L, 1);
+        int b = luax_checkinteger(L, 2);
+        luax_pushinteger(L, a | b);
+        return 1;
+    }
+
+    static int l_xor(lua_State* L)
+    {
+        int a = luax_checkinteger(L, 1);
+        int b = luax_checkinteger(L, 2);
+        luax_pushinteger(L, a ^ b);
+        return 1;
+    }
+
+    static int l_not(lua_State* L)
+    {
+        int n = luax_checkinteger(L, 1);
+        luax_pushinteger(L, ~n);
+        return 1;
+    }
+
+    static int l_lshift(lua_State* L)
+    {
+        int a = luax_checkinteger(L, 1);
+        int b = luax_checkinteger(L, 2);
+        luax_pushinteger(L, a << b);
+        return 1;
+    }
+
+    static int l_rshift(lua_State* L)
+    {
+        int a = luax_checkinteger(L, 1);
+        int b = luax_checkinteger(L, 2);
+        luax_pushinteger(L, a >> b);
+        return 1;
+    }
+
+    static int l_include(lua_State* L)
+    {
+        int a = luax_checkinteger(L, 1);
+        int b = luax_checkinteger(L, 2);
+        luax_pushboolean(L, (a & b) == b);
+        return 1;
+    }
+
+    // return buffer, size
+    static int l_write(lua_State* L)
+    {
+
+    }
+
+    static const luaL_Reg f[] = {
+        { "AND", l_and },
+        { "OR" , l_or },
+        { "XOR", l_xor },
+        { "NOT", l_not },
+        { "LS", l_lshift },
+        { "RS", l_rshift },
+        { "INC", l_include },
+
+        { "write", l_write}, 
+
+        { 0, 0 }
+    };
+
+    int luaopen_bit(lua_State* L)
+    {
+        luax_newlib(L, f);
+        return 1;
+    }
+
+}
+}
\ No newline at end of file