package pkcs11

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

Source file p11_rsa_pkcs_mgf_type.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
47
48
49
50
51
52
53
type t = P11_ulong.t
[@@deriving ord]

let (!) x  = Unsigned.ULong.of_string (Int64.to_string x)

let _CKG_MGF1_SHA1: t   = ! 0x00000001L
let _CKG_MGF1_SHA256: t = ! 0x00000002L
let _CKG_MGF1_SHA384: t = ! 0x00000003L
let _CKG_MGF1_SHA512: t = ! 0x00000004L
let _CKG_MGF1_SHA224: t = ! 0x00000005L

let to_string ul =
  if ul == _CKG_MGF1_SHA1 then
    "CKG_MGF1_SHA1"
  else if ul == _CKG_MGF1_SHA256 then
    "CKG_MGF1_SHA256"
  else if ul == _CKG_MGF1_SHA384 then
    "CKG_MGF1_SHA384"
  else if ul == _CKG_MGF1_SHA512 then
    "CKG_MGF1_SHA512"
  else if ul == _CKG_MGF1_SHA224 then
    "CKG_MGF1_SHA224"
  else
    Unsigned.ULong.to_string ul

let of_string =
  function
  | "CKG_MGF1_SHA1" ->
    _CKG_MGF1_SHA1
  | "CKG_MGF1_SHA256" ->
    _CKG_MGF1_SHA256
  | "CKG_MGF1_SHA384" ->
    _CKG_MGF1_SHA384
  | "CKG_MGF1_SHA512" ->
    _CKG_MGF1_SHA512
  | "CKG_MGF1_SHA224" ->
    _CKG_MGF1_SHA224
  | s ->
    ( try
        Unsigned.ULong.of_string s
      with
      | Sys.Break as e -> raise e
      | _ -> invalid_arg "CK_RSA_PKCS_MGF_TYPE.of_string"
    )

let to_json key_type =
  try
    `String (to_string key_type)
  with Invalid_argument _ ->
    `Null

let to_yojson = to_json
let of_yojson = P11_helpers.of_json_string ~typename:"MGF type" of_string