~ Bin_rsa

src/bin_sig.ml

@@ -1,7 +1,5 @@
-(* Packed Signature *)
-
-open Bin_type
 open Hash
+module Taler_signatures = Include.Taler_signatures
 
 module Aliases = struct
   module Timestamp = struct
@@ -64,6 +62,53 @@ end
 
 open Aliases
 
+let int32_size = 4
+let int64_size = 8
+
+module Bytes32 = struct
+  type t = string
+
+  let bin = Bin.bytes 32
+end
+
+module Bytes64 = struct
+  type t = string
+
+  let bin = Bin.bytes 64
+end
+
+module TransferSecretP = Bytes64
+module LinkSecretP = Bytes64
+module EncryptedLinkSecretP = Bytes64
+module BlindingMasterSeed = Bytes32
+module BlindingMasterSecret = Bytes32
+module WireTransferIdentifierRawP = Bytes32
+module PublicRefreshCoinNonceP = Bytes64
+module DenominationBlindingKeyP = Bytes32
+module RefreshCommitmentP = Bytes64
+
+module UUID = struct
+  type t = string
+
+  let size = 4 * int32_size
+  let bin = Bin.bytes size
+end
+
+module WadId = struct
+  type t = string
+
+  let size = 6 * int32_size
+  let bin = Bin.bytes size
+end
+
+module AgeMask = struct
+  type t = int32
+
+  let bin = Bin.beint32
+end
+
+(* --- *)
+
 (* EccSignaturePurpose *)
 module Purpose = struct
   type t = {
@@ -96,6 +141,8 @@ module Purpose = struct
   let field purpose = Bin.field bin (fun _t -> purpose)
 end
 
+(* --- Packed Signatures --- *)
+
 module MK (R : sig
   type r