28 lines
483 B
OCaml
28 lines
483 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
|