Convert int endian

[HezkoreParticipant]

I’m trying to read some older file formats, but I need to be able convert my integers (which I get via PeekInt from a DataBuffer) from Big Endian to Little Endian and vice versa.

Are there any functions for this?

I’m so bad at searching the docs, I can’t even find a function for displaying values as binary.
BlitzMax had Bin() I believe.

[Mark SiblyKeymaster]

DataBuffer has a ByteOrder property, which can even be set from the ctor, eg:

Monkey

Local buf:=New DataBuffer( 1024,ByteOrder.BigEndian ) 'create a big endian databuffer. buf.ByteOrder=ByteOrder.LittleEndian 'changed my mind!

1 2	Local buf:=New DataBuffer( 1024,ByteOrder.BigEndian )  'create a big endian databuffer. buf.ByteOrder=ByteOrder.LittleEndian 'changed my mind!

Kind of untested as I’ve never used them in real code yet. I will probably add some general purpose endian functions to byteorder.monkey2 one of these days too..

I can’t even find a function for displaying values as binary.

Try ULongToString and StringToULong. I will probably add Hex, Bin etc on day too as I find these hard to rember myself.

[TomToadParticipant]

A class for swapping big/little endian from/to native format.  Just create an instance of the class and call endian.swapEndian(n:int, original:Int) where n is the number to convert and original is the byte order you are converting from/to.  Nice thing is, the same method is used in each case. pass the int you wish to save followed by the ByteOrder value you are saving to, or pass the value you just read followed by the stored  ByteOrder .

Monkey

#Import "<std>" Using std.. Class Endian Field endian:Int Method New() Local a:Int = $AABBCCDD If UByte Ptr(Varptr a)[0] = $AA endian = ByteOrder.BigEndian Else endian = ByteOrder.LittleEndian End End Method swapEndian:Int(n:Int, original:Int) If endian = original Then Return n Return ((n & $FF000000) Shr 24) | ((n & $FF0000) Shr 8) | ((n & $FF00) Shl 8) | ((n & $FF) Shl 24) End End Function Main() Local endian := New Endian Local a:Int = $AABBCCDD 'Load a with a value Print "Value of a = "+Hex(a) Local be:String = Hex(endian.swapEndian(a,ByteOrder.BigEndian)) 'save a as big endian Local le:String = Hex(endian.swapEndian(a,ByteOrder.LittleEndian)) 'save a as little endian Print "be = "+be+"~nle = "+le 'print the contents of be and le Local b:Int = endian.swapEndian(FromHex(be),ByteOrder.BigEndian) 'load from big endian Local c:Int = endian.swapEndian(FromHex(le),ByteOrder.LittleEndian) 'load from little endian Print "~nb = "+Hex(b)+"~nc = "+Hex(c) 'both should be the same end

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

#Import "<std>" Using std..   Class Endian Field endian:Int Method New() Local a:Int = $AABBCCDD If UByte Ptr(Varptr a)[0] = $AA endian = ByteOrder.BigEndian Else endian = ByteOrder.LittleEndian End End Method swapEndian:Int(n:Int, original:Int) If endian = original Then Return n Return ((n & $FF000000) Shr 24) | ((n & $FF0000) Shr 8) | ((n & $FF00) Shl 8) | ((n & $FF) Shl 24) End End   Function Main() Local endian := New Endian Local a:Int = $AABBCCDD 'Load a with a value Print "Value of a = "+Hex(a)   Local be:String = Hex(endian.swapEndian(a,ByteOrder.BigEndian)) 'save a as big endian Local le:String = Hex(endian.swapEndian(a,ByteOrder.LittleEndian)) 'save a as little endian Print "be = "+be+"~nle = "+le 'print the contents of be and le Local b:Int = endian.swapEndian(FromHex(be),ByteOrder.BigEndian) 'load from big endian Local c:Int = endian.swapEndian(FromHex(le),ByteOrder.LittleEndian) 'load from little endian Print "~nb = "+Hex(b)+"~nc = "+Hex(c) 'both should be the same   end

[HezkoreParticipant]

Wow TomToad, you went full on with that!

Big thanks everyone.

[Author]

Posts