Source file `pkcs11_data.ml`

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
open Ctypes
open Ctypes_helpers

type t =
  { length : ulong ptr
  ; mutable content : Pkcs11_CK_BYTE.t ptr
  }

let get_length t =
  assert (not (is_null t.length));
  !@ (t.length)

let get_content t =
  t.content

let get_length_addr (t:t) : P11_ulong.t ptr =
  t.length

let string_from_ptr ~length x =
  string_from_ptr ~length (from_voidp char (to_voidp x))

let string_of_raw data len =
  let length = Unsigned.ULong.to_int len in
  let s = string_from_ptr ~length data in
  s

let to_string (t:t) : string =
  string_of_raw (get_content t) (get_length t)

let of_string (s:string) : t =
  let len = String.length s in
  let content = allocate_n char ~count:len in
  String.iteri (fun i c -> (content +@ i) <-@ c) s;
  { length = allocate ulong (Unsigned.ULong.of_int len)
  ; content
  }

let create () : t =
  { length = allocate ulong (Unsigned.ULong.of_int 0)
  ; content = from_voidp Pkcs11_CK_BYTE.typ null
  }

let allocate (t:t) : unit =
  let n = get_length t |> Unsigned.ULong.to_int in
  t.content <- allocate_n Pkcs11_CK_BYTE.typ ~count:n