2018-10-23 23:10:35 +00:00
|
|
|
(* (c) 2018 Hannes Mehnert, all rights reserved *)
|
|
|
|
|
2018-10-25 14:02:04 +00:00
|
|
|
type 'a t
|
2018-10-23 23:10:35 +00:00
|
|
|
|
2018-10-25 14:02:04 +00:00
|
|
|
val create : ?size:int -> 'a -> unit -> 'a t
|
2018-10-23 23:10:35 +00:00
|
|
|
|
2018-10-25 14:02:04 +00:00
|
|
|
val write : 'a t -> Ptime.t * 'a -> unit
|
2019-10-29 18:42:55 +00:00
|
|
|
|
|
|
|
val read_last : 'a t -> ?tst:('a -> bool) -> int -> (Ptime.t * 'a) list
|
|
|
|
val read_history : 'a t -> ?tst:('a -> bool) -> Ptime.t -> (Ptime.t * 'a) list
|