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 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73
|
(*
* Copyright (c) 2012-2019 Anil Madhavapeddy <anil@recoil.org>
* Copyright (c) 2019 Romain Calascibetta <romain.calascibetta@gmail.com>
*
* Permission to use, copy, modify, and distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*)
include (Cstruct : module type of Cstruct with type t := Cstruct.t)
type 'a rd = < rd: unit; .. > as 'a
type 'a wr = < wr: unit; .. > as 'a
type 'a t = Cstruct.t
type rdwr = < rd: unit; wr: unit; >
type ro = < rd: unit; >
type wo = < wr: unit; >
external ro : 'a rd t -> ro t = "%identity"
external wo : 'a wr t -> wo t = "%identity"
let of_string = Cstruct.of_string ?allocator:None
let of_bytes = Cstruct.of_bytes ?allocator:None
let pp ppf t = Cstruct.hexdump_pp ppf t
let length = Cstruct.length
let blit src ~src_off dst ~dst_off ~len =
Cstruct.blit src src_off dst dst_off len
[@@inline]
let blit_from_string src ~src_off dst ~dst_off ~len =
Cstruct.blit_from_string src src_off dst dst_off len
[@@inline]
let blit_from_bytes src ~src_off dst ~dst_off ~len =
Cstruct.blit_from_bytes src src_off dst dst_off len
[@@inline]
let blit_to_bytes src ~src_off dst ~dst_off ~len =
Cstruct.blit_to_bytes src src_off dst dst_off len
[@@inline]
let sub t ~off ~len =
Cstruct.sub t off len
[@@inline]
let sub_copy t ~off ~len =
Cstruct.sub_copy t off len
[@@inline]
let unsafe_to_bigarray = Cstruct.to_bigarray
let concat vss =
let res = create_unsafe (Cstruct.sum_lengths ~caller:"Cstruct.Cap.concat" vss) in
let go off v =
let len = Cstruct.length v in
Cstruct.blit v 0 res off len ;
off + len in
let len = List.fold_left go 0 vss in
assert (len = Cstruct.length res) ;
res
|