From a6b5a6bdd138a5ccc6827bcc73580df1e9218820 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Fri, 24 Nov 2017 09:22:24 +0100 Subject: Moved all the code to src directory --- src/date.mli | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100755 src/date.mli (limited to 'src/date.mli') diff --git a/src/date.mli b/src/date.mli new file mode 100755 index 0000000..dd24124 --- /dev/null +++ b/src/date.mli @@ -0,0 +1,38 @@ +module type CALCULABLE = sig + + type t + + val add: t -> t -> t + + val sub: t -> t -> t + + val mult: t -> t -> t + + val div: t -> t -> t + + val floor: t -> t + + val of_int: int -> t + + val to_int: t -> int + + val to_float: t -> float + +end + +module Make(C:CALCULABLE): sig + + (** Create a date from a year month day *) + val get_julian_day : int -> int -> int -> C.t + + (** Return the year, month and day from a date *) + val date_from_julian_day : C.t -> int * int * int + + val time_from_julian_day : C.t -> int * int * C.t + + val from_string: string -> C.t + + (** Print out the date *) + val to_string: C.t -> string + +end -- cgit v1.2.3