swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add devices.ml; denom.ml

Browse source
This commit is contained in:
swrup 2025-10-18 18:09:04 +02:00
parent 4611c1e057
commit 85ddb8194f
5 changed files with 22 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/management.ml
View file

@ -8,7 +8,7 @@ open Api_types
is it hash'ed then base32'ed in xxxP?
... *)
let mk_future_denom denom_secmod_sign_f
let mk_future_denom denom_key_signf
({
section_name;
value;
@ -23,7 +23,7 @@ let mk_future_denom denom_secmod_sign_f
pub;
sign= _;
} :
Secmod_denom.rsa_denom) =
Denom.t) =
let denom_pub =
DenominationKey.Rsa RsaDenominationKey.{ age_mask= 0; rsa_pub= pub }
in
@ -46,7 +46,7 @@ let mk_future_denom denom_secmod_sign_f
DenominationKeyAnnouncementPS.
{ h_denom_pub; h_section_name; anchor_time; duration_withdraw }
in
ps |> Bin.to_string DenominationKeyAnnouncementPS.bin |> denom_secmod_sign_f
ps |> Bin.to_string DenominationKeyAnnouncementPS.bin |> denom_key_signf
in
FutureDenom.
{
@ -64,7 +64,7 @@ let mk_future_denom denom_secmod_sign_f
denom_secmod_sig;
}
let mk_future_sign_key signkey_secmod_sign_f
let mk_future_sign_key signkey_signf
({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Secmod_keys.t) =
let signkey_secmod_sig =
let open Binary_formats in
@ -81,7 +81,7 @@ let mk_future_sign_key signkey_secmod_sign_f
TimeRelativeNBO.{ v }
in
let ps = SigningKeyAnnouncementPS.{ exchange_pub; anchor_time; duration } in
ps |> Bin.to_string SigningKeyAnnouncementPS.bin |> signkey_secmod_sign_f
ps |> Bin.to_string SigningKeyAnnouncementPS.bin |> signkey_signf
in
FutureSignKey.
{