add devices.ml; denom.ml

src/denom.ml

@@ -0,0 +1,66 @@
+open Types
+
+type t = {
+  section_name: string;
+  value: Amount.t;
+  stamp_start: Ptime.t;
+  stamp_expire_withdraw: Ptime.t;
+  stamp_expire_deposit: Ptime.t;
+  stamp_expire_legal: Ptime.t;
+  fee_withdraw: Amount.t;
+  fee_deposit: Amount.t;
+  fee_refresh: Amount.t;
+  fee_refund: Amount.t;
+  pub: RsaPublicKey.t;
+  sign: string -> RsaSignature.t;
+}
+
+let hash_pub _pub =
+  (* todo public key converted to Crockford Base32 *)
+  assert false
+
+let make
+    ({
+       section_name;
+       value;
+       duration_withdraw;
+       duration_spend;
+       duration_legal;
+       fee_withdraw;
+       fee_deposit;
+       fee_refresh;
+       fee_refund;
+       cipher;
+       rsa_keysize;
+       age_restricted= _;
+     } :
+      Config_types.Coin.t) =
+  assert (cipher = `RSA);
+
+  let stamp_start = Ptime_clock.now () in
+  let stamp_expire_withdraw =
+    Util.ptime_add_span_exn stamp_start duration_withdraw
+  in
+  let stamp_expire_deposit =
+    Util.ptime_add_span_exn stamp_start duration_spend
+  in
+  let stamp_expire_legal = Util.ptime_add_span_exn stamp_start duration_legal in
+
+  let open Mirage_crypto_pk.Rsa in
+  let priv = generate ~bits:rsa_keysize () in
+  let pub = pub_of_priv priv in
+  let sign = RsaSignature.sign ~key:priv in
+  {
+    section_name;
+    value;
+    stamp_start;
+    stamp_expire_withdraw;
+    stamp_expire_deposit;
+    stamp_expire_legal;
+    fee_withdraw;
+    fee_deposit;
+    fee_refresh;
+    fee_refund;
+    pub;
+    sign;
+  }