+ config

src/config.ml

@@ -191,6 +191,22 @@ module Exchange_secmod_rsa = struct
   let duration = get "duration" |> duration
   let key_dir = get "key_dir"
   let sm_priv_key = get "sm_priv_key"
+
+  (* only support one rsa_keysize *)
+  let rsa_keysize =
+    Coin.all_coins
+    |> List.map (fun coin -> coin.Coin.rsa_keysize)
+    |> List.sort_uniq Int.compare
+    |> function
+    | [] -> fail "no coin section found"
+    | a :: b :: _ ->
+        fail
+          "coins with different rsa_keysize are not supported, found \
+           rsa_keysize = %d and %d"
+          a b
+    | n :: [] -> n
+
+  let sections = Coin.all_coins |> List.map (fun coin -> coin.Coin.section_name)
 end
 
 module Exchange_secmod_eddsa = struct