36 static b_uint andaux (lua_State *L) {  in andaux()  argument
37   int i, n = lua_gettop(L);  in andaux()
40     r &= luaL_checkunsigned(L, i);  in andaux()
45 static int b_and (lua_State *L) {  in b_and()  argument
46   b_uint r = andaux(L);  in b_and()
47   lua_pushunsigned(L, r);  in b_and()
52 static int b_test (lua_State *L) {  in b_test()  argument
53   b_uint r = andaux(L);  in b_test()
54   lua_pushboolean(L, r != 0);  in b_test()
59 static int b_or (lua_State *L) {  in b_or()  argument
60   int i, n = lua_gettop(L);  in b_or()
63     r |= luaL_checkunsigned(L, i);  in b_or()
64   lua_pushunsigned(L, trim(r));  in b_or()
69 static int b_xor (lua_State *L) {  in b_xor()  argument
70   int i, n = lua_gettop(L);  in b_xor()
73     r ^= luaL_checkunsigned(L, i);  in b_xor()
74   lua_pushunsigned(L, trim(r));  in b_xor()
79 static int b_not (lua_State *L) {  in b_not()  argument
80   b_uint r = ~luaL_checkunsigned(L, 1);  in b_not()
81   lua_pushunsigned(L, trim(r));  in b_not()
86 static int b_shift (lua_State *L, b_uint r, int i) {  in b_shift()  argument
98   lua_pushunsigned(L, r);  in b_shift()
103 static int b_lshift (lua_State *L) {  in b_lshift()  argument
104   return b_shift(L, luaL_checkunsigned(L, 1), luaL_checkint(L, 2));  in b_lshift()
108 static int b_rshift (lua_State *L) {  in b_rshift()  argument
109   return b_shift(L, luaL_checkunsigned(L, 1), -luaL_checkint(L, 2));  in b_rshift()
113 static int b_arshift (lua_State *L) {  in b_arshift()  argument
114   b_uint r = luaL_checkunsigned(L, 1);  in b_arshift()
115   int i = luaL_checkint(L, 2);  in b_arshift()
117     return b_shift(L, r, -i);  in b_arshift()
122     lua_pushunsigned(L, r);  in b_arshift()
128 static int b_rot (lua_State *L, int i) {  in b_rot()  argument
129   b_uint r = luaL_checkunsigned(L, 1);  in b_rot()
134   lua_pushunsigned(L, trim(r));  in b_rot()
139 static int b_lrot (lua_State *L) {  in b_lrot()  argument
140   return b_rot(L, luaL_checkint(L, 2));  in b_lrot()
144 static int b_rrot (lua_State *L) {  in b_rrot()  argument
145   return b_rot(L, -luaL_checkint(L, 2));  in b_rrot()
155 static int fieldargs (lua_State *L, int farg, int *width) {  in fieldargs()  argument
156   int f = luaL_checkint(L, farg);  in fieldargs()
157   int w = luaL_optint(L, farg + 1, 1);  in fieldargs()
158   luaL_argcheck(L, 0 <= f, farg, "field cannot be negative");  in fieldargs()
159   luaL_argcheck(L, 0 < w, farg + 1, "width must be positive");  in fieldargs()
161     luaL_error(L, "trying to access non-existent bits");  in fieldargs()
167 static int b_extract (lua_State *L) {  in b_extract()  argument
169   b_uint r = luaL_checkunsigned(L, 1);  in b_extract()
170   int f = fieldargs(L, 2, &w);  in b_extract()
172   lua_pushunsigned(L, r);  in b_extract()
177 static int b_replace (lua_State *L) {  in b_replace()  argument
179   b_uint r = luaL_checkunsigned(L, 1);  in b_replace()
180   b_uint v = luaL_checkunsigned(L, 2);  in b_replace()
181   int f = fieldargs(L, 3, &w);  in b_replace()
185   lua_pushunsigned(L, r);  in b_replace()
208 LUAMOD_API int luaopen_bit32 (lua_State *L) {  in luaopen_bit32()  argument
209   luaL_newlib(L, bitlib);  in luaopen_bit32()