Module Binary_packing

module Binary_packing: sig .. end
Packs and unpacks various types of integers into and from strings.

Functions ending in _int should not be used on 32 bit programs because native ocaml ints will not be big enough.

pos arguments refer to the location in the buf string.

We support big and little endian ints. Note that for an 8 bit (1 byte) integer, there is no difference because endian-ness only changes the order of bytes, not bits.


type endian = [ `Big_endian | `Little_endian ] 
val unpack_signed_8 : buf:string -> pos:int -> int
val pack_signed_8 : buf:string -> pos:int -> int -> unit
val unpack_unsigned_8 : buf:string -> pos:int -> int
val pack_unsigned_8 : buf:string -> pos:int -> int -> unit
val unpack_signed_16 : byte_order:endian -> buf:string -> pos:int -> int
The functions ending with _big_endian or _little_endian are faster than the ones with explicit byte_order argument:

                                Name | Run time | S. dev. | Warnings
  ---------------------------------- | -------- | ------- | --------
        pack_signed_16_little_endian |     4 ns |    0 ns |
      unpack_signed_16_little_endian |     5 ns |    0 ns |
                  pack_signed_32_int |    12 ns |    0 ns |
                unpack_signed_32_int |    12 ns |    0 ns |
    pack_signed_32_int_little_endian |     4 ns |    0 ns |
  unpack_signed_32_int_little_endian |     5 ns |    0 ns |        M
                  pack_signed_64_int |    21 ns |    0 ns |        M
                unpack_signed_64_int |    21 ns |    0 ns |        M
        pack_signed_64_little_endian |     8 ns |    0 ns |
      unpack_signed_64_little_endian |     9 ns |    0 ns |        M


val pack_signed_16 : byte_order:endian -> buf:string -> pos:int -> int -> unit
val unpack_unsigned_16_big_endian : buf:string -> pos:int -> int
val unpack_unsigned_16_little_endian : buf:string -> pos:int -> int
val pack_unsigned_16_big_endian : buf:string -> pos:int -> int -> unit
val pack_unsigned_16_little_endian : buf:string -> pos:int -> int -> unit
val unpack_signed_16_big_endian : buf:string -> pos:int -> int
val unpack_signed_16_little_endian : buf:string -> pos:int -> int
val pack_signed_16_big_endian : buf:string -> pos:int -> int -> unit
val pack_signed_16_little_endian : buf:string -> pos:int -> int -> unit
val unpack_unsigned_16 : byte_order:endian -> buf:string -> pos:int -> int
val pack_unsigned_16 : byte_order:endian -> buf:string -> pos:int -> int -> unit
val unpack_signed_32 : byte_order:endian -> buf:string -> pos:int -> int32
val unpack_signed_32_int : byte_order:endian -> buf:string -> pos:int -> int
val pack_signed_32 : byte_order:endian -> buf:string -> pos:int -> Int32.t -> unit
val pack_signed_32_int : byte_order:endian -> buf:string -> pos:int -> int -> unit
val unpack_unsigned_32_int_big_endian : buf:string -> pos:int -> int
val unpack_unsigned_32_int_little_endian : buf:string -> pos:int -> int
val pack_unsigned_32_int_big_endian : buf:string -> pos:int -> int -> unit
val pack_unsigned_32_int_little_endian : buf:string -> pos:int -> int -> unit
val unpack_signed_32_int_big_endian : buf:string -> pos:int -> int
val unpack_signed_32_int_little_endian : buf:string -> pos:int -> int
val pack_signed_32_int_big_endian : buf:string -> pos:int -> int -> unit
val pack_signed_32_int_little_endian : buf:string -> pos:int -> int -> unit
val unpack_unsigned_32_int : byte_order:endian -> buf:string -> pos:int -> int
val pack_unsigned_32_int : byte_order:endian -> buf:string -> pos:int -> int -> unit
val unpack_signed_64 : byte_order:endian -> buf:string -> pos:int -> int64
val unpack_signed_64_int : byte_order:endian -> buf:string -> pos:int -> int
val pack_signed_64 : byte_order:endian -> buf:string -> pos:int -> Int64.t -> unit
val pack_signed_64_int : byte_order:endian -> buf:string -> pos:int -> int -> unit
val unpack_signed_64_int_little_endian : buf:string -> pos:int -> int
val pack_signed_64_int_little_endian : buf:string -> pos:int -> int -> unit
val unpack_signed_64_int_big_endian : buf:string -> pos:int -> int
val pack_signed_64_int_big_endian : buf:string -> pos:int -> int -> unit
val unpack_signed_64_big_endian : buf:string -> pos:int -> int64
val unpack_signed_64_little_endian : buf:string -> pos:int -> int64
val pack_signed_64_big_endian : buf:string -> pos:int -> int64 -> unit
val pack_signed_64_little_endian : buf:string -> pos:int -> int64 -> unit
val unpack_float : byte_order:endian -> buf:string -> pos:int -> float
As with integers, floats can be be packed big endian or little endian, depending on the order in which the bytes of the float are layed out. There is nothing interesting going on computationally from a floating-point perspective; just laying out eight bytes in one order or the other.
val pack_float : byte_order:endian -> buf:string -> pos:int -> float -> unit

The following functions operate on "fixed length padded strings", by which is meant a string possibly followed by some padding, such that the length of the string plus the length of the padding equals the fixed length.
val unpack_padded_fixed_string : ?padding:char -> buf:string -> pos:int -> len:int -> unit -> string
Decode the fixed length padded string having length len from buf starting at pos. Return a string containing only the non-padding characters. The default padding is '\x00'.
val pack_padded_fixed_string : ?padding:char -> buf:string -> pos:int -> len:int -> string -> unit
Encode and pack the given string as a padded fixed length string having length len. Place it in buf starting at position pos. If the length of the string is less then len pad it with the padding characters until its length is equal to len. If the string is longer than len raise Invalid_argument. The default padding is '\x00'.
val test : unit -> unit