31 lines
560 B
OCaml
31 lines
560 B
OCaml
type sign =
|
|
| Sign_plus
|
|
| Sign_minus
|
|
|
|
type t = private {
|
|
sign: sign option;
|
|
currency: string;
|
|
value: Int64.t;
|
|
fraction: Int32.t;
|
|
}
|
|
|
|
val make :
|
|
sign:sign option ->
|
|
currency:string ->
|
|
value:Int64.t ->
|
|
fraction:Int32.t ->
|
|
(t, string) result
|
|
|
|
val pp : Format.formatter -> t -> unit
|
|
val to_string : t -> string
|
|
val of_string : string -> (t, string) result
|
|
val currency_len : int
|
|
val jsont : t Jsont.t
|
|
|
|
(* only for encoding *)
|
|
val bin : t Bin.t
|
|
val bin_nbo : t Bin.t
|
|
|
|
(* TODO
|
|
dummy value to use as placeholder for WIP *)
|
|
val dummy_value : t
|