unsigned right-bit shift operator

[ldci]

Could it be possible to add >>> operator (unsigned right-bit shift) ?

; >>> operator not supported by r3
bin: to integer! #{45444571}
print bin
sign: bin >>> 31
expo: bin << 1 >>> 24
mant: bin << 9 >>> 9
print (pick [1 -1] 1 + sign) * (2 ** (expo - 127)) * (mant / (2 ** 23) + 1)

[Oldes]

It looks that there is difference between R3 and Red.
In Red:

> ? "shift"
     <<              op!           Shift bits to the left.
     >>              op!           Shift bits to the right.
     >>>             op!           Shift bits to the right (unsigned).
     shift           native!       Perform a bit shift operation. Right shift (decreasing) by default.
     shift-left      routine!      Shift bits to the left.
     shift-logical   routine!      Shift bits to the right (unsigned).
     shift-right     routine!      Shift bits to the right.

While in Rebol:

>> ? "shift"
Found these related matches:
  shift           native!    Shifts an integer left or right by a number of bits.
  shift-left      native!    Shift bits to the left (unsigned).
  shift-right     native!    Shift bits to the right (unsigned).
  <<              op!        Shift bits to the left (unsigned).
  >>              op!        Shift bits to the right (unsigned).

So in Rebol >> is now equal to Red's >>>.

But you should not expect same result in Rebol like in Red, because Red has 32bit integers, while Rebol3 has them 64bit!

[ldci]

Thanks for this immediate response. The more I use your Rebol R3, the more I like it.

[Oldes]

In Rebol3 you can use this instead:

>> binary/read #{45444571} 'F32BE
== 3140.34008789062