package pkcs11-driver

  1. Overview
  2. Docs
Bindings to the PKCS#11 cryptographic API

Install 

dune-project
 Dependency

github.com Readme Changelog BSD-2-Clause License Edit opam file Versions (3)

Authors

  1. C
    Cryptosense <opensource@cryptosense.com>

Maintainers

  1. C
    Cryptosense <opensource@cryptosense.com>

Sources

pkcs11-v1.0.1.tbz
sha256=db6bed28e4a75cb3787d0b6feca954a91c9e52e678b8cc73c1058975b1846946
sha512=f764b356cac3dd7718003a158f2a4dad7b8caae981930ab9cfa674a08ebcf3583c531bfcca9ddbb593d0c8e5a64b52381f8c9c702c3a0d0d44000727b095c47a

doc/src/pkcs11-driver/pkcs11_CK_SLOT_INFO.ml.html

Source file pkcs11_CK_SLOT_INFO.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
open Ctypes
open Ctypes_helpers

type _t

type t = _t structure

let ck_slot_info : t typ = structure "CK_SLOT_INFO"

let ( -: ) ty label = smart_field ck_slot_info label ty

let slotDescription = array 64 Pkcs11_CK_UTF8CHAR.typ -: "slotDescription"

let manufacturerID = array 32 Pkcs11_CK_UTF8CHAR.typ -: "manufacturerID"

let flags = Pkcs11_CK_FLAGS.typ -: "flags"

let hardwareVersion = Pkcs11_CK_VERSION.ck_version -: "hardwareVersion"

let firmwareVersion = Pkcs11_CK_VERSION.ck_version -: "firmwareVersion"

let () = seal ck_slot_info

let view c =
  let open P11_slot_info in
  { slotDescription = string_from_carray (getf c slotDescription)
  ; manufacturerID = string_from_carray (getf c manufacturerID)
  ; flags = getf c flags
  ; hardwareVersion = Pkcs11_CK_VERSION.view (getf c hardwareVersion)
  ; firmwareVersion = Pkcs11_CK_VERSION.view (getf c firmwareVersion) }

let make u =
  let open P11_slot_info in
  let t = Ctypes.make ck_slot_info in
  setf t slotDescription
    (carray_from_string (blank_padded ~length:64 u.slotDescription));
  setf t manufacturerID
    (carray_from_string (blank_padded ~length:32 u.manufacturerID));
  setf t flags u.flags;
  setf t hardwareVersion (Pkcs11_CK_VERSION.make u.hardwareVersion);
  setf t firmwareVersion (Pkcs11_CK_VERSION.make u.firmwareVersion);
  t