1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
/* This file is part of the Spring engine (GPL v2 or later), see LICENSE.html */
#include "System/mmgr.h"
#include "LuaBitOps.h"
#include "LuaInclude.h"
#include "LuaUtils.h"
const int mask = 0x00FFFFFF; // 2^24
/******************************************************************************/
/******************************************************************************/
bool LuaBitOps::PushEntries(lua_State* L)
{
LuaPushNamedCFunc(L, "bit_or", bit_or);
LuaPushNamedCFunc(L, "bit_and", bit_and);
LuaPushNamedCFunc(L, "bit_xor", bit_xor);
LuaPushNamedCFunc(L, "bit_inv", bit_inv);
LuaPushNamedCFunc(L, "bit_bits", bit_bits);
return true;
}
/******************************************************************************/
/******************************************************************************/
static inline unsigned int luaL_checkuint(lua_State* L, int index)
{
return (unsigned int)luaL_checkint(L, index);
}
int LuaBitOps::bit_or(lua_State* L)
{
unsigned int result = 0x00000000;
for (int i = 1; !lua_isnone(L, i); i++) {
result = result | luaL_checkuint(L, i);
}
lua_pushnumber(L, result & mask);
return 1;
}
int LuaBitOps::bit_and(lua_State* L)
{
unsigned int result = 0xFFFFFFFF;
for (int i = 1; !lua_isnone(L, i); i++) {
result = result & luaL_checkuint(L, i);
}
lua_pushnumber(L, result & mask);
return 1;
}
int LuaBitOps::bit_xor(lua_State* L)
{
unsigned int result = 0x00000000;
for (int i = 1; !lua_isnone(L, i); i++) {
result = result ^ luaL_checkuint(L, i);
}
lua_pushnumber(L, result & mask);
return 1;
}
int LuaBitOps::bit_inv(lua_State* L)
{
const unsigned int result = ~luaL_checkuint(L, 1);
lua_pushnumber(L, result & mask);
return 1;
}
int LuaBitOps::bit_bits(lua_State* L)
{
unsigned int result = 0x00000000;
for (int i = 1; !lua_isnone(L, i); i++) {
const int bit = (unsigned int)luaL_checkint(L, i);
result = result | (1 << bit);
}
lua_pushnumber(L, result & mask);
return 1;
}
/******************************************************************************/
/******************************************************************************/
|
