Sorry for the post earlier, but it seems that there's a small error in it..
Here are the 3 fixed bitwise shift operators (shiftLeft (<<), shiftRight
(>>) and shiftRightZero (>>>)).. Basically there are some integer
combinations that would make the other formulas fail and sometimes the
shiftRightZero would return a negative integer (which is impossible).. So
here are the three corrected functions:
function bitwiseShiftLeft p1, p2
local tP1Neg
put (p2 MOD 32) into p2
if (p1 < 0) then put TRUE into tP1Neg
if (p2 = 0) then return p1
put baseConvert(p1, 10, 2) into p1
repeat p2
put 0 after p1
end repeat
if (tP1Neg) then return 0 - baseConvert(char -32 to -1 of p1, 2, 10)
else return baseConvert(char -32 to -1 of p1, 2, 10)
end bitwiseShiftLeft
function bitwiseShiftRight p1, p2
local tP1Neg, tPad
put (p2 MOD 32) into p2
if (p2 = 0) then return p1
if (p1 > 0) then return trunc(p1 / (2 ^ p2))
if (abs(p1) = (2^p2)) then return trunc(p1 / (2^ p2))
else return trunc(p1 / (2 ^ p2)) -1
end bitwiseShiftRight
function bitwiseShiftRightZero p1, p2
put (p2 MOD 32) into p2
if (p1 > 0) then return trunc(p1 / (2 ^ p2))
#if (p2 = 0) then return p1
if (p1 < 0) then
put baseConvert(bitNot abs(p1) +1, 10, 2) into p1
repeat p2
delete char -1 of p1
put 0 before p1
end repeat
return abs(baseConvert(p1, 2, 10))
end if
end bitwiseShiftRightZero
_________________________________________________________________
On the road to retirement? Check out MSN Life Events for advice on how to
get there! http://lifeevents.msn.com/category.aspx?cid=Retirement
_______________________________________________
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
