blob: c5d7d5ca0308ef347344c5a8d71770bc4449b405 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(* @needs Value *)
(* The intent of this being an abstract type is to allow for switching
the implementation to one backed by a C array later on, which would
let us avoid copying when passing it through FFI boundaries. *)
type t = bytes
let blob_of_bytes (b : bytes) = b
let bytes_of_blob (b : t) = b
let create = Bytes.create
let set = Bytes.set
let set_int64_be = Bytes.set_int64_be
let blit_string = Bytes.blit_string
let length = Bytes.length
let get = Bytes.get
let sub_string = Bytes.sub_string
let get_int64_be = Bytes.get_int64_be
|
