57 static UBits barg(lua_State *L, int idx)  in barg()  argument
62   bn.n = lua_tonumber(L, idx);  in barg()
64   bn.n = luaL_checknumber(L, idx);  in barg()
86   if (b == 0 && !lua_isnumber(L, idx)) {  in barg()
87     luaL_typerror(L, idx, "number");  in barg()
94 #define BRET(b)  lua_pushnumber(L, (lua_Number)(SBits)(b)); return 1;
96 static int bit_tobit(lua_State *L) { BRET(barg(L, 1)) }  in bit_tobit()  argument
97 static int bit_bnot(lua_State *L) { BRET(~barg(L, 1)) }  in bit_bnot()  argument
100   static int func(lua_State *L) { int i; UBits b = barg(L, 1); \
101     for (i = lua_gettop(L); i > 1; i--) b opr barg(L, i); BRET(b) }
112   static int func(lua_State *L) { \
113     UBits b = barg(L, 1); UBits n = barg(L, 2) & 31; BRET(fn(b, n)) }
120 static int bit_bswap(lua_State *L)  in BIT_SH()
122   UBits b = barg(L, 1);  in BIT_SH()
127 static int bit_tohex(lua_State *L)  in bit_tohex()  argument
129   UBits b = barg(L, 1);  in bit_tohex()
130   SBits n = lua_isnone(L, 2) ? 8 : (SBits)barg(L, 2);  in bit_tohex()
137   lua_pushlstring(L, buf, (size_t)n);  in bit_tohex()
163 LUALIB_API int luaopen_bit(lua_State *L)  in luaopen_bit()  argument
166   lua_pushnumber(L, (lua_Number)1437217655L);  in luaopen_bit()
167   b = barg(L, -1);  in luaopen_bit()
180     luaL_error(L, "bit library self-test failed (%s)", msg);  in luaopen_bit()
183   luaL_register(L, "bit", bit_funcs);  in luaopen_bit()
185   luaL_newlib(L, bit_funcs);  in luaopen_bit()