Module Pa_ppx_utils.Pack

type length_pack_spec_t = [
  1. | `INTELINT
  2. | `NETINT
  3. | `SCHAR
  4. | `SINTELSHORT
  5. | `SNETSHORT
  6. | `UCHAR
  7. | `UINTELSHORT
  8. | `UNETSHORT
]
type pack_spec_t = [
  1. | `HEXBESTRING of string
  2. | `HEXBESUBSTRING of string * int * int
  3. | `HEXLESTRING of string
  4. | `INTELINT of int
  5. | `INTELINT32 of int32
  6. | `INTELINT64 of int64
  7. | `NETINT of int
  8. | `NETINT32 of int32
  9. | `NETINT64 of int64
  10. | `SCHAR of int
  11. | `SINTELSHORT of int
  12. | `SIZED_STRING of length_pack_spec_t * string
  13. | `SIZED_SUBSTRING of length_pack_spec_t * string * int * int
  14. | `SNETSHORT of int
  15. | `STRING of string
  16. | `SUBSTRING of string * int * int
  17. | `UCHAR of int
  18. | `UINTELSHORT of int
  19. | `UNETSHORT of int
]
type unpack_spec_t = [
  1. | `HEXBESTRING of int
  2. | `HEXLESTRING of int
  3. | `INTELINT of int
  4. | `INTELINT32 of int
  5. | `INTELINT64 of int
  6. | `NETINT of int
  7. | `NETINT32 of int
  8. | `NETINT64 of int
  9. | `SCHAR of int
  10. | `SINTELSHORT of int
  11. | `SIZED_STRING of length_pack_spec_t
  12. | `SNETSHORT of int
  13. | `STRING of int
  14. | `UCHAR of int
  15. | `UINTELSHORT of int
  16. | `UNETSHORT of int
]
type unpack_result_t = [
  1. | `HEXBESTRING of string
  2. | `HEXLESTRING of string
  3. | `INTELINT of int list
  4. | `INTELINT32 of int32 list
  5. | `INTELINT64 of int64 list
  6. | `NETINT of int list
  7. | `NETINT32 of int32 list
  8. | `NETINT64 of int64 list
  9. | `SCHAR of int list
  10. | `SINTELSHORT of int list
  11. | `SNETSHORT of int list
  12. | `STRING of string
  13. | `UCHAR of int list
  14. | `UINTELSHORT of int list
  15. | `UNETSHORT of int list
]
val pack_substring : bytes -> int -> pack_spec_t list -> int
val pack : pack_spec_t list -> bytes
val unpack_substring0 : string -> int -> unpack_spec_t list -> int * unpack_result_t list
val unpack_substring : string -> int -> unpack_spec_t list -> unpack_result_t list