[手游项目2]-3- lua位操作

--[[{2147483648,1073741824,536870912,268435456,134217728,67108864,33554432,16777216,
8388608,4194304,2097152,1048576,524288,262144,131072,65536,
32768,16384,8192,4096,2048,1024,512,256,128,64,32,16,8,4,2,1}
]]


bit={data32={}}
for i=1,32 do
	bit.data32[i]=2^(32-i)
end

--整数转换成位
function bit:d2b(arg)
	local tr={}
	for i=1,32 do
		if arg >= self.data32[i] then
			tr[i]=1
			arg=arg-self.data32[i]
		else
			tr[i]=0
		end
	end
	return tr
end


--位转换成整数
function bit:b2d(arg)
	local nr=0
	for i=1,32 do
		if arg[i] ==1 then
			nr=nr+2^(32-i)
		end
	end
	return nr
end

--异或运算
function bit:_xor(a,b)
	local op1=self:d2b(a)
	local op2=self:d2b(b)
	local r={}
	for i=1,32 do
		if op1[i]==op2[i] then
			r[i]=0
		else
			r[i]=1
		end
	end
	return self:b2d(r)
end


--与运算
function bit:_and(a,b)
	local op1=self:d2b(a)
	local op2=self:d2b(b)
	local r={}
	for i=1,32 do
		if op1[i]==1 and op2[i]==1 then
			r[i]=1
		else
			r[i]=0
		end
	end
	return self:b2d(r)
end


--或运算
function bit:_or(a,b)
	local op1=self:d2b(a)
	local op2=self:d2b(b)
	local r={}
	for i=1,32 do
		if op1[i]==1 or op2[i]==1 then
			r[i]=1
		else
			r[i]=0
		end
	end
	return self:b2d(r)
end

--取反
function bit:_not(a)
	local op1=self:d2b(a)
	local r={}
	for i=1,32 do
		if op1[i]==1 then
			r[i]=0
		else
			r[i]=1
		end
	end
	return self:b2d(r)
end

--右移
function bit:_rshift(a,n)
	local op1=self:d2b(a)
	local r=self:d2b(0)
	if n < 32 and n > 0 then
		for i=1,n do
			for i=31,1,-1 do
				op1[i+1]=op1[i]
			end
			op1[1]=0
		end
		r=op1
	end
	return self:b2d(r)
end

--左移
function bit:_lshift(a,n)
	local op1=self:d2b(a)
	local r=self:d2b(0)
	if n < 32 and n > 0 then
		for i=1,n do
			for i=1,31 do
				op1[i]=op1[i+1]
			end
			op1[32]=0
		end
		r=op1
	end
	return self:b2d(r)
end


--打印位
function bit:print(ta)
	local sr=""
	for i=1,32 do
		sr=sr..ta[i]
	end
	print(sr)
end


--获得某一位的值0或1
function bit:getb(a,n)
	if(n < 1 or 32< n)then
		return 0
	end
	if(0 < bit:_and(a,self.data32[33-n]))then
		return 1
	end
	return 0
end


--设置某一位的值为1
function bit:setb_1(a,n)
	if(n < 1 or 32< n)then
		return 0
	end
	return bit:_or(a,self.data32[33-n])
end


--设置某一位的值为0
function bit:setb_0(a,n)
	if(n < 1 or 32< n)then
		return 0
	end
	return bit:_and(a, bit:_not(self.data32[33-n]))
end

--[[
bs=bit:d2b(7)
bit:print(bs)
-->00000000000000000000000000000111
bit:print(bit:d2b(bit:_not(7)))
-->11111111111111111111111111111000
bit:print(bit:d2b(bit:_rshift(7,2)))
-->00000000000000000000000000000001
bit:print(bit:d2b(bit:_lshift(7,2)))
-->00000000000000000000000000011100
print(bit:b2d(bs))      --> 7
print(bit:_xor(7,2))     --> 5
print(bit:_and(7,4))     --> 4
print(bit:_or(5,2))     --> 7
print(bit:getb(7,3))
print(bit:setb_0(5,3))
]]
--end of bit.lua