lua 中的 bit extend 库 （可能仅对非负数有效）

-- bit operation

bit = bit or {}

bit.data32 = {}

for i=1,32 do

    bit.data32[i]=2^(32-i)

end

function bit._b2d(arg)

    local nr=0

    for i=1,32 do

        if arg[i] ==1 then

            nr=nr+bit.data32[i]

        end

    end

    return  nr

end

function bit._d2b(arg)

    arg = arg >= 0 and arg or (0xFFFFFFFF + arg + 1)

    local tr={}

    for i=1,32 do

        if arg >= bit.data32[i] then

            tr[i]=1

            arg=arg-bit.data32[i]

        else

            tr[i]=0

        end

    end

    return   tr

end

function    bit._and(a,b)

    local op1=bit._d2b(a)

    local op2=bit._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  bit._b2d(r)

end

function  bit._xor(a,b)

    local op1 = bit._d2b(a)

    local op2 = bit._d2b(b)

    local r={}

    for i = 1,32 do

        if op1[i] == 0 then

            r[i] = op2[i]

        else

            if op2[i] == 0 then

                r[i] = 1

            else

                r[i] = 0

            end

        end

    end

    return bit._b2d(r)

end

function    bit._rshift(a,n)

    local op1=bit._d2b(a)

    n = n <= 32 and n or 32

    n = n >= 0 and n or 0

    for i=32, n+1, -1 do

        op1[i] = op1[i-n]

    end

    for i=1, n do

        op1[i] = 0

    end

    return  bit._b2d(op1)

end

function bit._lshift(a,n)

    local op1 =bit._d2b(a)

    n = n <= 32 and n or 32

    n = n >= 0 and n or 0

    for i = 1, 32 - n do

        op1[i] = op1[i + n]

    end

    for i = 32 - n + 1, 32 do

        op1[i] = 0

    end

    return bit_b2d(op1)

end

function bit._not(a)

    local op1=bit._d2b(a)

    local r={}

    for i=1,32 do

        if  op1[i]==1   then

            r[i]=0

        else

            r[i]=1

        end

    end

    return bit._b2d(r)

end

function bit._or(a,b)

    local op1=bit._d2b(a)

    local op2=bit._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 bit._b2d(r)

end

bit.band   = bit.band or bit._and

bit.rshift = bit.rshift or bit._rshift

bit.bnot   = bit.bnot or bit._not

bit.lshift = bit.lshift or bit._lshift

bit.xor = bit.xor or bit._xor