add devices.ml; denom.ml

src/devices.ml

@@ -0,0 +1,11 @@
+let signkey = Secmod_keys.make ~name:"signkey"
+let exchange_key = Secmod_keys.make ~name:"exchange_key"
+let denom_key = Secmod_keys.make ~name:"denom_key"
+
+let denominations =
+  let finally _key = () in
+  Vif.Device.v ~name:"denom" ~finally [] @@ fun () ->
+  let rsa_l = List.map Denom.make Config.coins in
+  rsa_l
+
+let v = Vif.Devices.[ signkey; exchange_key; denom_key; denominations ]