package pkcs11

  1. Overview
  2. Docs
package pkcs11
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file p11_hex_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
46
type t = string
[@@deriving eq,ord,show]

let normalize s =
  if s = "" then
    ""
  else
    (* Remove leading zeros. *)
    let len = String.length s in
    let rec first_non_zero i =
      if i >= len then
        (* Keep at least one 0. *)
        len - 1
      else if s.[i] = '\000' then
        first_non_zero (i + 1)
      else
        i
    in
    let first_non_zero = first_non_zero 0 in
    String.sub s first_non_zero (len - first_non_zero)

let to_yojson data =
  let `Hex h = Hex.of_string data in
  `String ("0x" ^ h)

exception Invalid_hex

let of_yojson =
  let err msg =
    Error ("P11_hex_data: " ^ msg)
  in
  function
    | `String s when s.[0] = '0' && s.[1] = 'x' ->
        let data = Str.string_after s 2 in
        begin
          try
            String.iter (function
                | '0'..'9' | 'a'..'f' | 'A'..'F' -> ()
                | _ -> raise Invalid_hex
              ) data;
            Ok (Hex.to_string @@ `Hex data)
          with Invalid_hex ->
            err "not valid hex-encoded data"
        end
    | `String _ -> err "string does not start with \"0x\""
    | _ -> err "not a string"