Source file pkcs11_CK_ECMQV_DERIVE_PARAMS.ml

open Ctypes
open Ctypes_helpers

type _t
type t = _t structure
let t : t typ = structure "CK_ECMQV_DERIVE_PARAMS"

let (-:) typ label = smart_field t label typ
let kdf              = Pkcs11_CK_EC_KDF_TYPE.t -: "kdf"
let ulSharedDataLen  = ulong            -: "ulSharedDataLen"
let pSharedData      = Reachable_ptr.typ char -: "pSharedData"
let ulPublicDataLen  = ulong            -: "ulPublicDataLen"
let pPublicData      = Reachable_ptr.typ char         -: "pPublicData"
let ulPrivateDataLen = ulong            -: "ulPrivateDataLen"
let hPrivateData     = Pkcs11_CK_OBJECT_HANDLE.typ -: "hPrivateData"
let ulPublicDataLen2 = ulong            -: "ulPublicDataLen2"
let pPublicData2     = Reachable_ptr.typ char -: "pPublicData2"
let publicKey        = Pkcs11_CK_OBJECT_HANDLE.typ -: "publicKey"
let () = seal t

let make u =
  let open P11_ecmqv_derive_params in
  let p = Ctypes.make t in
  setf p kdf @@ Pkcs11_CK_EC_KDF_TYPE.make u.kdf;
  make_string_option u.shared_data p ulSharedDataLen pSharedData;
  make_string u.public_data p ulPublicDataLen pPublicData;
  setf p ulPrivateDataLen u.private_data_len;
  setf p hPrivateData u.private_data;
  make_string u.public_data2 p ulPublicDataLen2 pPublicData2;
  setf p publicKey u.public_key;
  p

let view p =
  let open P11_ecmqv_derive_params in
  { kdf = Pkcs11_CK_EC_KDF_TYPE.view @@ getf p kdf
  ; shared_data = view_string_option p ulSharedDataLen pSharedData
  ; public_data = view_string p ulPublicDataLen pPublicData
  ; private_data_len = getf p ulPrivateDataLen
  ; private_data = getf p hPrivateData
  ; public_data2 = view_string p ulPublicDataLen2 pPublicData2
  ; public_key = getf p publicKey
  }