Up

module Binary_packing

: sig

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
end