My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(** Minimal date module required by Syndic. *)
2
3(** A date with time. *)
4type t = Ptime.t
5
6val epoch : t
7(** The POSIX time, i.e. Thursday, 1 January 1970 00:00:00 (UTC). *)
8
9val compare : t -> t -> int
10(** Compare dates in increasing order. *)
11
12val max : t -> t -> t
13(** [max d1 d2] return the maximum (i.e. more recent) of the dates [d1] and
14 [d2]. *)
15
16val min : t -> t -> t
17(** [min d1 d2] return the minimum (i.e. less recent) of the dates [d1] and
18 [d2]. *)
19
20val of_rfc822 : string -> t
21val to_rfc822 : t -> string
22val of_rfc3339 : string -> t
23val to_rfc3339 : t -> string
24
25(** Month of the year. *)
26type month =
27 | Jan
28 | Feb
29 | Mar
30 | Apr
31 | May
32 | Jun
33 | Jul
34 | Aug
35 | Sep
36 | Oct
37 | Nov
38 | Dec
39
40val string_of_month : month -> string
41(** Return the 3 letters identifying the month in English. *)
42
43val year : t -> int
44(** Return the 4 digit year of the date. *)
45
46val month : t -> month
47(** Return the month of the date. *)
48
49val day : t -> int
50(** Return the day of the month (1..31). *)
51
52val hour : t -> int
53val minute : t -> int
54val second : t -> float