55 lines
1,016 B
OCaml
55 lines
1,016 B
OCaml
|
module Relative : sig
|
||
|
|
type t
|
||
|
|
|
||
|
|
val forever : t
|
||
|
|
val zero : t
|
||
|
|
val compare : t -> t -> int
|
||
|
|
val min : t -> t -> t
|
||
|
|
val max : t -> t -> t
|
||
|
|
val add : t -> t -> t
|
||
|
|
val sub : t -> t -> t
|
||
|
|
val of_s : int64 -> t
|
||
|
|
|
||
|
|
(* - *)
|
||
|
|
val bin : t Bin.t
|
||
|
|
val bin_nbo : t Bin.t
|
||
|
|
val caqti : t Caqti_type.t
|
||
|
|
val jsont : t Jsont.t
|
||
|
|
end
|
||
|
|
|
||
|
|
module Absolute : sig
|
||
|
|
type t
|
||
|
|
|
||
|
|
val never : t
|
||
|
|
val zero : t
|
||
|
|
val compare : t -> t -> int
|
||
|
|
val min : t -> t -> t
|
||
|
|
val max : t -> t -> t
|
||
|
|
val diff : t -> t -> Relative.t
|
||
|
|
val add : t -> Relative.t -> t
|
||
|
|
val sub : t -> Relative.t -> t
|
||
|
|
val of_s : int64 -> t
|
||
|
|
val of_ptime : Ptime.t -> t
|
||
|
|
end
|
||
|
|
|
||
|
|
module Timestamp : sig
|
||
|
|
type t
|
||
|
|
|
||
|
|
val never : t
|
||
|
|
val zero : t
|
||
|
|
val compare : t -> t -> int
|
||
|
|
val diff : t -> t -> Relative.t
|
||
|
|
val of_s : int64 -> t
|
||
|
|
|
||
|
|
(* none if t = never *)
|
||
|
|
val to_s : t -> int64 option
|
||
|
|
val of_absolute : Absolute.t -> t
|
||
|
|
val of_ptime : Ptime.t -> t
|
||
|
|
|
||
|
|
(* - *)
|
||
|
|
val bin : t Bin.t
|
||
|
|
val bin_nbo : t Bin.t
|
||
|
|
val caqti : t Caqti_type.t
|
||
|
|
val jsont : t Jsont.t
|
||
|
|
end
|