sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field Calendar_sig.S.Period.period
val empty : [< Period.date_field ] Calendar_sig.S.Period.period
val add :
([< Period.date_field > `Day `Week ] as 'a) Calendar_sig.S.Period.period ->
'a Calendar_sig.S.Period.period -> 'a Calendar_sig.S.Period.period
val sub :
([< Period.date_field > `Day `Week ] as 'a) Calendar_sig.S.Period.period ->
'a Calendar_sig.S.Period.period -> 'a Calendar_sig.S.Period.period
val opp :
([< Period.date_field > `Day `Week ] as 'a) Calendar_sig.S.Period.period ->
'a Calendar_sig.S.Period.period
val equal :
[< Period.date_field ] Calendar_sig.S.Period.period ->
[< Period.date_field ] Calendar_sig.S.Period.period -> bool
val compare :
[< Period.date_field ] Calendar_sig.S.Period.period ->
[< Period.date_field ] Calendar_sig.S.Period.period -> int
val hash : [< Period.date_field ] Calendar_sig.S.Period.period -> int
val make :
int ->
int ->
int -> int -> int -> Calendar_sig.S.second -> Calendar_sig.S.Period.t
val lmake :
?year:int ->
?month:int ->
?day:int ->
?hour:int ->
?minute:int ->
?second:Calendar_sig.S.second -> unit -> Calendar_sig.S.Period.t
val year :
int -> [< Period.date_field > `Year ] Calendar_sig.S.Period.period
val month :
int -> [< Period.date_field > `Month `Year ] Calendar_sig.S.Period.period
val week :
int -> [< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val day :
int -> [< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val hour :
int -> [< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val minute :
int -> [< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val second :
Calendar_sig.S.second ->
[< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val from_date :
([< Period.date_field ] as 'a) Date.Period.period ->
'a Calendar_sig.S.Period.period
val from_time :
([< Period.date_field ] as 'a) Time.Period.period ->
'a Calendar_sig.S.Period.period
val to_date :
([< Date.field ] as 'a) Calendar_sig.S.Period.period ->
'a Date.Period.period
exception Not_computable
val to_time :
([< Period.date_field ] as 'a) Calendar_sig.S.Period.period ->
'a Time.Period.period
val safe_to_time :
([< `Day | `Week ] as 'a) Calendar_sig.S.Period.period ->
'a Time.Period.period
val ymds :
[< Period.date_field ] Calendar_sig.S.Period.period ->
int * int * int * Calendar_sig.S.second
end calendar-2.04/doc/type_Printer.DatePrinter.html 0000644 0002611 0003721 00000005475 12424135550 020422 0 ustar julien lsl
sig
type t = Date.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end calendar-2.04/doc/type_Time_sig.S.Period.html 0000644 0002611 0003721 00000016752 12424135550 017741 0 ustar julien lsl
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add : ([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub : ([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period -> [< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period -> [< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val length : [< Period.date_field ] period -> Time_sig.S.second
val mul : ([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val div : ([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val make : int -> int -> Time_sig.S.second -> [< Period.date_field ] period
val lmake :
?hour:int ->
?minute:int ->
?second:Time_sig.S.second -> unit -> [< Period.date_field ] period
val hour : int -> [< Period.date_field ] period
val minute : int -> [< Period.date_field ] period
val second : Time_sig.S.second -> [< Period.date_field ] period
val to_seconds : [< Period.date_field ] period -> Time_sig.S.second
val to_minutes : [< Period.date_field ] period -> float
val to_hours : [< Period.date_field ] period -> float
end calendar-2.04/doc/type_Ftime.html 0000644 0002611 0003721 00000034434 12424135550 015620 0 ustar julien lsl
sig
type t
type field = [ `Hour | `Minute | `Second ]
type second = float
module Second :
sig
type t = second
val from_int : int -> t
val from_float : float -> t
val to_int : t -> int
val to_float : t -> float
end
val make : int -> int -> second -> t
val lmake : ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val now : unit -> t
val midnight : unit -> t
val midday : unit -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val from_gmt : t -> t
val to_gmt : t -> t
val normalize : t -> t * int
val hour : t -> int
val minute : t -> int
val second : t -> second
val to_seconds : t -> second
val to_minutes : t -> float
val to_hours : t -> float
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_pm : t -> bool
val is_am : t -> bool
val from_seconds : second -> t
val from_minutes : float -> t
val from_hours : float -> t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period -> [< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val length : [< Period.date_field ] period -> second
val mul :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val div :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val make : int -> int -> second -> [< Period.date_field ] period
val lmake :
?hour:int ->
?minute:int ->
?second:second -> unit -> [< Period.date_field ] period
val hour : int -> [< Period.date_field ] period
val minute : int -> [< Period.date_field ] period
val second : second -> [< Period.date_field ] period
val to_seconds : [< Period.date_field ] period -> second
val to_minutes : [< Period.date_field ] period -> float
val to_hours : [< Period.date_field ] period -> float
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field ] Period.period
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end calendar-2.04/doc/type_Calendar_sig.S.Date.html 0000644 0002611 0003721 00000002770 12424135550 020202 0 ustar julien lsl
Date_sig.S calendar-2.04/doc/Utils.Comparable.html 0000644 0002611 0003721 00000007062 12424135550 016654 0 ustar julien lsl
module type Comparable =sig..end
Map.Make,
Set.Make or Hashtbl.Make.type
val equal : t -> t -> boolt.val compare : t -> t -> intt.
compare x y returns 0 iff equal x y = 0. If x and y are not
equal, it returns a negative integer iff x is lesser than y and a
positive integer otherwise.val hash : t -> intt.module Ftime:Swith type t = Ftime.t
%T.type
val fprint : string -> Format.formatter -> t -> unitfprint format formatter x outputs x on formatter according to
the specified format.Invalid_argument if the format is incorrect.val print : string -> t -> unitprint format is equivalent to fprint format Format.std_formatterval dprint : t -> unitprint d where d is the default format
(see the printer implementations).val sprint : string -> t -> stringsprint format date converts date to a string according to
format.val to_string : t -> stringsprint d where d is the default format
(see the printer implementations).val from_fstring : string -> string -> tfrom_fstring format s converts s to a date according to format.
Date padding (i.e. a special directive following '%') and
specifiers %e, %k and %l are not recognized. Specifiers
%a, %A, %j, %v, %w and %W are recognized but mainly ignored:
only the validity of the format is checked.
In order to recognize words (used by %a, %A, %b, %B and %p), a
regular expression is used which can be configured by
Printer.set_word_regexp. When the format has only two digits for the
year number, 1900 are added to this number (see examples).
Raises Invalid_argument if either the format is incorrect or the string
does not match the format or the event cannot be created (e.g. if you do
not specify a year for a date).
Examples:
from_fstring "the date is %B, the %dth %Y" "the date is May,
the 14th 2007" returns a date equivalent to Date.make 2007 5 14 (with
default internationalization).from_fstring "the date is %D" "the date is 01/06/03"
returns a date equivalent to Date.make 1903 1 6val from_string : string -> tfrom_fstring d where d is the default format.sig
type t = Date.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end calendar-2.04/doc/type_Printer.Precise_Calendar.html 0000644 0002611 0003721 00000005557 12424135550 021365 0 ustar julien lsl
sig
type t = Calendar.Precise.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end calendar-2.04/doc/Time_sig.Second.html 0000644 0002611 0003721 00000006234 12424135550 016462 0 ustar julien lsl
module type Second =sig..end
type
val from_int : int -> tval from_float : float -> tval to_int : t -> intfrom_int.val to_float : t -> floatfrom_float.sig
type t = Calendar.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end calendar-2.04/doc/index_modules.html 0000644 0002611 0003721 00000017155 12424135550 016353 0 ustar julien lsl
C | |
| Calendar [Printer] |
Calendar printer.
|
| Calendar |
Calendar implementation in which seconds are integer.
|
| CalendarPrinter [Printer] | |
| Calendar_builder |
Generic calendar implementation.
|
| Calendar_sig |
Calendar interface.
|
D | |
| Date [Printer] |
Date printer.
|
| Date [Calendar_sig.S] |
Date implementation used by this calendar.
|
| Date |
Date implementation.
|
| DatePrinter [Printer] | |
| Date_sig |
Date interface.
|
F | |
| Fcalendar [Printer] |
Fcalendar printer.
|
| Fcalendar |
Calendar implementation in which seconds are float.
|
| Float [Utils] |
Float implementation.
|
| Ftime [Printer] |
Ftime printer.
|
| Ftime |
Time implementation in which seconds are floats.
|
I | |
| Int [Utils] |
Integer implementation.
|
M | |
| Make [Calendar_builder] |
Implement a calendar from a date implementation and a time implementation.
|
| Make_Precise [Calendar_builder] |
Similar to
Calendar_builder.Make but results are more precise.
|
P | |
| Period [Calendar_sig.S] |
A period is the number of seconds between two calendars.
|
| Period [Date_sig.S] |
A period is the number of days between two dates.
|
| Period [Time_sig.S] |
A period is the number of seconds between two times.
|
| Period |
A period represents the time passed between two events (a date, a time...).
|
| Precise [Fcalendar] |
More precise implementation of calendar in which seconds are float.
|
| Precise [Calendar] |
More precise implementation of calendar in which seconds are integer.
|
| Precise_Calendar [Printer] |
Precise Calendar printer.
|
| Precise_Fcalendar [Printer] |
Precise Fcalendar printer.
|
| Printer |
Pretty printing and parsing from string.
|
S | |
| Second [Time_sig.S] |
Second implementation
|
T | |
| Time [Printer] |
Time printer.
|
| Time [Calendar_sig.S] |
Time implementation used by this calendar.
|
| Time |
Time implementation in which seconds are integers.
|
| TimePrinter [Printer] | |
| Time_Zone |
Time zone management.
|
| Time_sig |
Time interface.
|
U | |
| Utils |
Some utilities.
|
V | |
| Version |
Information about version of calendar.
|
module Period:sig..end
type +[< Date_sig.S.field ] p
include Period.S
val make : int -> int -> int -> Date_sig.S.tmake year month day makes a period of the specified length.val lmake : ?year:int -> ?month:int -> ?day:int -> unit -> Date_sig.S.tmake.
The default value of each argument is 0.val year : int -> [< Date_sig.S.field > `Year ] periodyear n makes a period of n years.val month : int -> [< Date_sig.S.field > `Month `Year ] periodmonth n makes a period of n months.val week : int -> [< Date_sig.S.field > `Day `Week ] periodweek n makes a period of n weeks.val day : int -> [< Date_sig.S.field > `Day `Week ] periodday n makes a period of n days.exception Not_computable
val nb_days : [< Date_sig.S.field ] period -> intDate_sig.S.Period.safe_nb_days insteadNot_computable if the number of days is not computable.nb_days (year 1) raises Not_computable because a year is
not a constant number of days.nb_days (day 6) returns 6val safe_nb_days : [< `Day | `Week ] period -> int
val ymd : [< Date_sig.S.field ] period -> int * int * intymd (make 1 2 3) returns 1, 2, 3.module Calendar:sig..end
This module uses float. Then results may be unprecise, especially
comparison of calendars which differ with few seconds.
In this case, consider to use module Precise.
include Calendar_sig.S
module Precise:Calendar_sig.Swith module Date = Date and module Time = Time
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field Period.S.period
val empty : [< Period.date_field ] Period.S.period
val add :
([< Period.date_field ] as 'a) Period.S.period ->
'a Period.S.period -> 'a Period.S.period
val sub :
([< Period.date_field ] as 'a) Period.S.period ->
'a Period.S.period -> 'a Period.S.period
val opp :
([< Period.date_field ] as 'a) Period.S.period -> 'a Period.S.period
val equal :
[< Period.date_field ] Period.S.period ->
[< Period.date_field ] Period.S.period -> bool
val compare :
[< Period.date_field ] Period.S.period ->
[< Period.date_field ] Period.S.period -> int
val hash : [< Period.date_field ] Period.S.period -> int
end calendar-2.04/doc/Printer.Time.html 0000644 0002611 0003721 00000015677 12424135550 016043 0 ustar julien lsl
module Time:Swith type t = Time.t
%T.type
val fprint : string -> Format.formatter -> t -> unitfprint format formatter x outputs x on formatter according to
the specified format.Invalid_argument if the format is incorrect.val print : string -> t -> unitprint format is equivalent to fprint format Format.std_formatterval dprint : t -> unitprint d where d is the default format
(see the printer implementations).val sprint : string -> t -> stringsprint format date converts date to a string according to
format.val to_string : t -> stringsprint d where d is the default format
(see the printer implementations).val from_fstring : string -> string -> tfrom_fstring format s converts s to a date according to format.
Date padding (i.e. a special directive following '%') and
specifiers %e, %k and %l are not recognized. Specifiers
%a, %A, %j, %v, %w and %W are recognized but mainly ignored:
only the validity of the format is checked.
In order to recognize words (used by %a, %A, %b, %B and %p), a
regular expression is used which can be configured by
Printer.set_word_regexp. When the format has only two digits for the
year number, 1900 are added to this number (see examples).
Raises Invalid_argument if either the format is incorrect or the string
does not match the format or the event cannot be created (e.g. if you do
not specify a year for a date).
Examples:
from_fstring "the date is %B, the %dth %Y" "the date is May,
the 14th 2007" returns a date equivalent to Date.make 2007 5 14 (with
default internationalization).from_fstring "the date is %D" "the date is 01/06/03"
returns a date equivalent to Date.make 1903 1 6val from_string : string -> tfrom_fstring d where d is the default format.functor (D : Date_sig.S) ->
functor (T : Time_sig.S) ->
sig
module Date :
sig
type field = Period.date_field
type -'a date = 'a D.date constraint 'a = [< field ]
type t = field date
type day = D.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
D.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = int
exception Out_of_bounds
exception Undefined
val make : year -> int -> int -> t
val lmake : year:year -> ?month:int -> ?day:int -> unit -> t
val make_year : int -> [< `Year ] date
val make_year_month : int -> int -> [< `Month | `Year ] date
val today : unit -> t
val from_jd : int -> t
val from_mjd : int -> t
val from_day_of_year : year -> int -> t
val days_in_month : [< field > `Month `Year ] date -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : [< field > `Month ] date -> month
val year : [< field > `Year ] date -> year
val to_jd : t -> int
val to_mjd : t -> int
val equal : [< field ] date -> [< field ] date -> bool
val compare : [< field ] date -> [< field ] date -> int
val hash : [< field ] date -> int
val is_valid_date : year -> int -> int -> bool
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val to_business : t -> year * int * day
val from_business : year -> int -> day -> t
val int_of_day : day -> int
val day_of_int : int -> day
val int_of_month : month -> int
val month_of_int : int -> month
module Period :
sig
type +'a p = 'a D.Period.p constraint 'a = [< field ]
type +'a period = 'a p constraint 'a = [< field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> t
val lmake : ?year:int -> ?month:int -> ?day:int -> unit -> t
val year : int -> [< field > `Year ] period
val month : int -> [< field > `Month `Year ] period
val week : int -> [< field > `Day `Week ] period
val day : int -> [< field > `Day `Week ] period
exception Not_computable
val nb_days : [< field ] period -> int
val safe_nb_days : [< `Day | `Week ] period -> int
val ymd : [< field ] period -> int * int * int
end
val add : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val sub :
([< field ] as 'a) date ->
'a date -> [< field > `Day `Week ] Period.period
val precise_sub : ([< field ] as 'a) date -> 'a date -> Period.t
val rem : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val next : ([< field ] as 'a) date -> 'a -> 'a date
val prev : ([< field ] as 'a) date -> 'a -> 'a date
val is_leap_year : year -> bool
val same_calendar : year -> year -> bool
val days_in_year : ?month:month -> year -> int
val weeks_in_year : year -> int
val week_first_last : int -> year -> t * t
val nth_weekday_of_month : year -> month -> day -> int -> t
val century : year -> int
val millenium : year -> int
val solar_number : year -> int
val indiction : year -> int
val golden_number : year -> int
val epact : year -> int
val easter : year -> t
val carnaval : year -> t
val mardi_gras : year -> t
val ash : year -> t
val palm : year -> t
val easter_friday : year -> t
val easter_saturday : year -> t
val easter_monday : year -> t
val ascension : year -> t
val withsunday : year -> t
val withmonday : year -> t
val corpus_christi : year -> t
end
module Time :
sig
type t = T.t
type field = [ `Hour | `Minute | `Second ]
type second = T.second
module Second :
sig
type t = second
val from_int : int -> t
val from_float : float -> t
val to_int : t -> int
val to_float : t -> float
end
val make : int -> int -> second -> t
val lmake : ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val now : unit -> t
val midnight : unit -> t
val midday : unit -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val from_gmt : t -> t
val to_gmt : t -> t
val normalize : t -> t * int
val hour : t -> int
val minute : t -> int
val second : t -> second
val to_seconds : t -> second
val to_minutes : t -> float
val to_hours : t -> float
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_pm : t -> bool
val is_am : t -> bool
val from_seconds : second -> t
val from_minutes : float -> t
val from_hours : float -> t
module Period :
sig
type +'a period = 'a T.Period.period
constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val length : [< Period.date_field ] period -> second
val mul :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val div :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val make :
int -> int -> second -> [< Period.date_field ] period
val lmake :
?hour:int ->
?minute:int ->
?second:second -> unit -> [< Period.date_field ] period
val hour : int -> [< Period.date_field ] period
val minute : int -> [< Period.date_field ] period
val second : second -> [< Period.date_field ] period
val to_seconds : [< Period.date_field ] period -> second
val to_minutes : [< Period.date_field ] period -> float
val to_hours : [< Period.date_field ] period -> float
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field ] Period.period
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end
type t
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = Date.year
type second = Time.second
type field =
[ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
year:int ->
?month:int ->
?day:int -> ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val create : Date.t -> Time.t -> t
val now : unit -> t
val from_jd : float -> t
val from_mjd : float -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val to_gmt : t -> t
val from_gmt : t -> t
val days_in_month : t -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : t -> month
val year : t -> int
val to_jd : t -> float
val to_mjd : t -> float
val hour : t -> int
val minute : t -> int
val second : t -> second
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val is_pm : t -> bool
val is_am : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val from_date : Date.t -> t
val to_date : t -> Date.t
val to_time : t -> Time.t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val opp :
([< Period.date_field > `Day `Week ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
?year:int ->
?month:int ->
?day:int ->
?hour:int -> ?minute:int -> ?second:second -> unit -> t
val year : int -> [< Period.date_field > `Year ] period
val month : int -> [< Period.date_field > `Month `Year ] period
val week : int -> [< Period.date_field > `Day `Week ] period
val day : int -> [< Period.date_field > `Day `Week ] period
val hour : int -> [< Period.date_field > `Day `Week ] period
val minute : int -> [< Period.date_field > `Day `Week ] period
val second : second -> [< Period.date_field > `Day `Week ] period
val from_date :
([< Period.date_field ] as 'a) Date.Period.period -> 'a period
val from_time :
([< Period.date_field ] as 'a) Time.Period.period -> 'a period
val to_date :
([< Date.field ] as 'a) period -> 'a Date.Period.period
exception Not_computable
val to_time :
([< Period.date_field ] as 'a) period -> 'a Time.Period.period
val safe_to_time :
([< `Day | `Week ] as 'a) period -> 'a Time.Period.period
val ymds :
[< Period.date_field ] period -> int * int * int * second
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field > `Day `Week ] Period.period
val precise_sub : t -> t -> Period.t
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end calendar-2.04/doc/Version.html 0000644 0002611 0003721 00000004545 12424135550 015140 0 ustar julien lsl
module Version:sig..end
val version : stringval date : stringmodule CalendarPrinter:Swith type t = Calendar.t
type
val fprint : string -> Format.formatter -> t -> unitfprint format formatter x outputs x on formatter according to
the specified format.Invalid_argument if the format is incorrect.val print : string -> t -> unitprint format is equivalent to fprint format Format.std_formatterval dprint : t -> unitprint d where d is the default format
(see the printer implementations).val sprint : string -> t -> stringsprint format date converts date to a string according to
format.val to_string : t -> stringsprint d where d is the default format
(see the printer implementations).val from_fstring : string -> string -> tfrom_fstring format s converts s to a date according to format.
Date padding (i.e. a special directive following '%') and
specifiers %e, %k and %l are not recognized. Specifiers
%a, %A, %j, %v, %w and %W are recognized but mainly ignored:
only the validity of the format is checked.
In order to recognize words (used by %a, %A, %b, %B and %p), a
regular expression is used which can be configured by
Printer.set_word_regexp. When the format has only two digits for the
year number, 1900 are added to this number (see examples).
Raises Invalid_argument if either the format is incorrect or the string
does not match the format or the event cannot be created (e.g. if you do
not specify a year for a date).
Examples:
from_fstring "the date is %B, the %dth %Y" "the date is May,
the 14th 2007" returns a date equivalent to Date.make 2007 5 14 (with
default internationalization).from_fstring "the date is %D" "the date is 01/06/03"
returns a date equivalent to Date.make 1903 1 6val from_string : string -> tfrom_fstring d where d is the default format.module Make_Precise:
Calendar_builder.Make but results are more precise. The counterpart is that
some operations are less efficient.| Parameters: |
|
module Date:Date_sig.S
module Time:Time_sig.S
type
typeday =Date.day=
| |
Sun |
|||
| |
Mon |
|||
| |
Tue |
|||
| |
Wed |
|||
| |
Thu |
|||
| |
Fri |
|||
| |
Sat |
(* | Days of the week. | *) |
typemonth =Date.month=
| |
Jan |
|||
| |
Feb |
|||
| |
Mar |
|||
| |
Apr |
|||
| |
May |
|||
| |
Jun |
|||
| |
Jul |
|||
| |
Aug |
|||
| |
Sep |
|||
| |
Oct |
|||
| |
Nov |
|||
| |
Dec |
(* | Months of the year. | *) |
typeyear =Date.year
typesecond =Time.second
typefield =[ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make : int -> int -> int -> int -> int -> second -> tmake year month day hour minute second makes the calendar
"year-month-day; hour-minute-second".D.Out_of_bounds when a date is outside the Julian period.D.Undefined when a date belongs to [October 5th, 1582; October
14th, 1582].val lmake : year:int ->
?month:int ->
?day:int ->
?hour:int ->
?minute:int -> ?second:second -> unit -> tmake.
The default value of month and day (resp. of hour, minute
and second) is 1 (resp. 0).D.Out_of_bounds when a date is outside the Julian period.D.Undefined when a date belongs to [October 5th, 1582; October
14th, 1582].val create : Date.t -> Time.t -> tcreate d t creates a calendar from the given date and time.val now : unit -> tnow () returns the current date and time (in the current time
zone).val from_jd : float -> tDate.from_jd: the fractional part represents the
time.val from_mjd : float -> tJulian day - 2 400 000.5 (more precise than Date.from_mjd).Time_sig.S.val convert : t -> Time_Zone.t -> Time_Zone.t -> tval to_gmt : t -> tval from_gmt : t -> tDate_sig.S.val days_in_month : t -> intval day_of_week : t -> dayval day_of_month : t -> intval day_of_year : t -> intval week : t -> intval month : t -> monthval year : t -> intto_jd and to_mjd are more precise than Date_sig.S.to_jd and
Date_sig.S.to_mjd.val to_jd : t -> floatval to_mjd : t -> floatTime_sig.S.val hour : t -> intval minute : t -> intval second : t -> secondval equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
Date_sig.S.val is_leap_day : t -> boolval is_gregorian : t -> boolval is_julian : t -> boolTime_sig.S.val is_pm : t -> boolval is_am : t -> boolval to_unixtm : t -> Unix.tmunix.tm type.
The field isdst is always false. More precise than
Date_sig.S.to_unixtm.val from_unixtm : Unix.tm -> tto_unixtm. Assumes the current time zone.
So, The following invariant holds:
hour (from_unixtm u) = u.Unix.tm_hour.val to_unixfloat : t -> floatto_unixfloat (make 1970 1 1 0 0 0) returns 0.0 at UTC.
So such a float is convertible with those of the module Unix.
More precise than Date_sig.S.to_unixfloat.val from_unixfloat : float -> tto_unixfloat. Assumes the current time zone.
So, the following invariant holds:
hour (from_unixfloat u) = (Unix.gmtime u).Unix.tm_hour.val from_date : Date.t -> tval to_date : t -> Date.tval to_time : t -> Time.tmodule Period:sig..end
Date_sig.S.val add : t ->
[< Period.date_field ] Period.period -> tval sub : t ->
t ->
[< Period.date_field > `Day `Week ] Period.periodval precise_sub : t -> t -> Period.t
val rem : t ->
[< Period.date_field ] Period.period -> tval next : t -> field -> tval prev : t -> field -> tsig
type t = int
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
end calendar-2.04/doc/type_Calendar.html 0000644 0002611 0003721 00000403601 12424135550 016261 0 ustar julien lsl
sig
module Date :
sig
type field = Period.date_field
type -'a date = 'a Date.date constraint 'a = [< field ]
type t = field date
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = int
exception Out_of_bounds
exception Undefined
val make : year -> int -> int -> t
val lmake : year:year -> ?month:int -> ?day:int -> unit -> t
val make_year : int -> [< `Year ] date
val make_year_month : int -> int -> [< `Month | `Year ] date
val today : unit -> t
val from_jd : int -> t
val from_mjd : int -> t
val from_day_of_year : year -> int -> t
val days_in_month : [< field > `Month `Year ] date -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : [< field > `Month ] date -> month
val year : [< field > `Year ] date -> year
val to_jd : t -> int
val to_mjd : t -> int
val equal : [< field ] date -> [< field ] date -> bool
val compare : [< field ] date -> [< field ] date -> int
val hash : [< field ] date -> int
val is_valid_date : year -> int -> int -> bool
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val to_business : t -> year * int * day
val from_business : year -> int -> day -> t
val int_of_day : day -> int
val day_of_int : int -> day
val int_of_month : month -> int
val month_of_int : int -> month
module Period :
sig
type +'a p = 'a Date.Period.p constraint 'a = [< field ]
type +'a period = 'a p constraint 'a = [< field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> t
val lmake : ?year:int -> ?month:int -> ?day:int -> unit -> t
val year : int -> [< field > `Year ] period
val month : int -> [< field > `Month `Year ] period
val week : int -> [< field > `Day `Week ] period
val day : int -> [< field > `Day `Week ] period
exception Not_computable
val nb_days : [< field ] period -> int
val safe_nb_days : [< `Day | `Week ] period -> int
val ymd : [< field ] period -> int * int * int
end
val add : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val sub :
([< field ] as 'a) date ->
'a date -> [< field > `Day `Week ] Period.period
val precise_sub : ([< field ] as 'a) date -> 'a date -> Period.t
val rem : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val next : ([< field ] as 'a) date -> 'a -> 'a date
val prev : ([< field ] as 'a) date -> 'a -> 'a date
val is_leap_year : year -> bool
val same_calendar : year -> year -> bool
val days_in_year : ?month:month -> year -> int
val weeks_in_year : year -> int
val week_first_last : int -> year -> t * t
val nth_weekday_of_month : year -> month -> day -> int -> t
val century : year -> int
val millenium : year -> int
val solar_number : year -> int
val indiction : year -> int
val golden_number : year -> int
val epact : year -> int
val easter : year -> t
val carnaval : year -> t
val mardi_gras : year -> t
val ash : year -> t
val palm : year -> t
val easter_friday : year -> t
val easter_saturday : year -> t
val easter_monday : year -> t
val ascension : year -> t
val withsunday : year -> t
val withmonday : year -> t
val corpus_christi : year -> t
end
module Time :
sig
type t = Time.t
type field = [ `Hour | `Minute | `Second ]
type second = int
module Second :
sig
type t = second
val from_int : int -> t
val from_float : float -> t
val to_int : t -> int
val to_float : t -> float
end
val make : int -> int -> second -> t
val lmake : ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val now : unit -> t
val midnight : unit -> t
val midday : unit -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val from_gmt : t -> t
val to_gmt : t -> t
val normalize : t -> t * int
val hour : t -> int
val minute : t -> int
val second : t -> second
val to_seconds : t -> second
val to_minutes : t -> float
val to_hours : t -> float
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_pm : t -> bool
val is_am : t -> bool
val from_seconds : second -> t
val from_minutes : float -> t
val from_hours : float -> t
module Period :
sig
type +'a period = 'a Time.Period.period
constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val length : [< Period.date_field ] period -> second
val mul :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val div :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val make : int -> int -> second -> [< Period.date_field ] period
val lmake :
?hour:int ->
?minute:int ->
?second:second -> unit -> [< Period.date_field ] period
val hour : int -> [< Period.date_field ] period
val minute : int -> [< Period.date_field ] period
val second : second -> [< Period.date_field ] period
val to_seconds : [< Period.date_field ] period -> second
val to_minutes : [< Period.date_field ] period -> float
val to_hours : [< Period.date_field ] period -> float
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field ] Period.period
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end
type t
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = Date.year
type second = Time.second
type field = [ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
year:int ->
?month:int ->
?day:int -> ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val create : Date.t -> Time.t -> t
val now : unit -> t
val from_jd : float -> t
val from_mjd : float -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val to_gmt : t -> t
val from_gmt : t -> t
val days_in_month : t -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : t -> month
val year : t -> int
val to_jd : t -> float
val to_mjd : t -> float
val hour : t -> int
val minute : t -> int
val second : t -> second
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val is_pm : t -> bool
val is_am : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val from_date : Date.t -> t
val to_date : t -> Date.t
val to_time : t -> Time.t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val opp :
([< Period.date_field > `Day `Week ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period -> [< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
?year:int ->
?month:int ->
?day:int -> ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val year : int -> [< Period.date_field > `Year ] period
val month : int -> [< Period.date_field > `Month `Year ] period
val week : int -> [< Period.date_field > `Day `Week ] period
val day : int -> [< Period.date_field > `Day `Week ] period
val hour : int -> [< Period.date_field > `Day `Week ] period
val minute : int -> [< Period.date_field > `Day `Week ] period
val second : second -> [< Period.date_field > `Day `Week ] period
val from_date :
([< Period.date_field ] as 'a) Date.Period.period -> 'a period
val from_time :
([< Period.date_field ] as 'a) Time.Period.period -> 'a period
val to_date : ([< Date.field ] as 'a) period -> 'a Date.Period.period
exception Not_computable
val to_time :
([< Period.date_field ] as 'a) period -> 'a Time.Period.period
val safe_to_time :
([< `Day | `Week ] as 'a) period -> 'a Time.Period.period
val ymds : [< Period.date_field ] period -> int * int * int * second
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field > `Day `Week ] Period.period
val precise_sub : t -> t -> Period.t
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
module Precise :
sig
module Date :
sig
type field = Period.date_field
type -'a date = 'a Date.date constraint 'a = [< field ]
type t = field date
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = int
exception Out_of_bounds
exception Undefined
val make : year -> int -> int -> t
val lmake : year:year -> ?month:int -> ?day:int -> unit -> t
val make_year : int -> [< `Year ] date
val make_year_month : int -> int -> [< `Month | `Year ] date
val today : unit -> t
val from_jd : int -> t
val from_mjd : int -> t
val from_day_of_year : year -> int -> t
val days_in_month : [< field > `Month `Year ] date -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : [< field > `Month ] date -> month
val year : [< field > `Year ] date -> year
val to_jd : t -> int
val to_mjd : t -> int
val equal : [< field ] date -> [< field ] date -> bool
val compare : [< field ] date -> [< field ] date -> int
val hash : [< field ] date -> int
val is_valid_date : year -> int -> int -> bool
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val to_business : t -> year * int * day
val from_business : year -> int -> day -> t
val int_of_day : day -> int
val day_of_int : int -> day
val int_of_month : month -> int
val month_of_int : int -> month
module Period :
sig
type +'a p = 'a Date.Period.p constraint 'a = [< field ]
type +'a period = 'a p constraint 'a = [< field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> t
val lmake : ?year:int -> ?month:int -> ?day:int -> unit -> t
val year : int -> [< field > `Year ] period
val month : int -> [< field > `Month `Year ] period
val week : int -> [< field > `Day `Week ] period
val day : int -> [< field > `Day `Week ] period
exception Not_computable
val nb_days : [< field ] period -> int
val safe_nb_days : [< `Day | `Week ] period -> int
val ymd : [< field ] period -> int * int * int
end
val add : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val sub :
([< field ] as 'a) date ->
'a date -> [< field > `Day `Week ] Period.period
val precise_sub : ([< field ] as 'a) date -> 'a date -> Period.t
val rem : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val next : ([< field ] as 'a) date -> 'a -> 'a date
val prev : ([< field ] as 'a) date -> 'a -> 'a date
val is_leap_year : year -> bool
val same_calendar : year -> year -> bool
val days_in_year : ?month:month -> year -> int
val weeks_in_year : year -> int
val week_first_last : int -> year -> t * t
val nth_weekday_of_month : year -> month -> day -> int -> t
val century : year -> int
val millenium : year -> int
val solar_number : year -> int
val indiction : year -> int
val golden_number : year -> int
val epact : year -> int
val easter : year -> t
val carnaval : year -> t
val mardi_gras : year -> t
val ash : year -> t
val palm : year -> t
val easter_friday : year -> t
val easter_saturday : year -> t
val easter_monday : year -> t
val ascension : year -> t
val withsunday : year -> t
val withmonday : year -> t
val corpus_christi : year -> t
end
module Time :
sig
type t = Time.t
type field = [ `Hour | `Minute | `Second ]
type second = int
module Second :
sig
type t = second
val from_int : int -> t
val from_float : float -> t
val to_int : t -> int
val to_float : t -> float
end
val make : int -> int -> second -> t
val lmake : ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val now : unit -> t
val midnight : unit -> t
val midday : unit -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val from_gmt : t -> t
val to_gmt : t -> t
val normalize : t -> t * int
val hour : t -> int
val minute : t -> int
val second : t -> second
val to_seconds : t -> second
val to_minutes : t -> float
val to_hours : t -> float
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_pm : t -> bool
val is_am : t -> bool
val from_seconds : second -> t
val from_minutes : float -> t
val from_hours : float -> t
module Period :
sig
type +'a period = 'a Time.Period.period
constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val length : [< Period.date_field ] period -> second
val mul :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val div :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val make :
int -> int -> second -> [< Period.date_field ] period
val lmake :
?hour:int ->
?minute:int ->
?second:second -> unit -> [< Period.date_field ] period
val hour : int -> [< Period.date_field ] period
val minute : int -> [< Period.date_field ] period
val second : second -> [< Period.date_field ] period
val to_seconds : [< Period.date_field ] period -> second
val to_minutes : [< Period.date_field ] period -> float
val to_hours : [< Period.date_field ] period -> float
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field ] Period.period
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end
type t
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = Date.year
type second = Time.second
type field =
[ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
year:int ->
?month:int ->
?day:int -> ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val create : Date.t -> Time.t -> t
val now : unit -> t
val from_jd : float -> t
val from_mjd : float -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val to_gmt : t -> t
val from_gmt : t -> t
val days_in_month : t -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : t -> month
val year : t -> int
val to_jd : t -> float
val to_mjd : t -> float
val hour : t -> int
val minute : t -> int
val second : t -> second
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val is_pm : t -> bool
val is_am : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val from_date : Date.t -> t
val to_date : t -> Date.t
val to_time : t -> Time.t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val opp :
([< Period.date_field > `Day `Week ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
?year:int ->
?month:int ->
?day:int ->
?hour:int -> ?minute:int -> ?second:second -> unit -> t
val year : int -> [< Period.date_field > `Year ] period
val month : int -> [< Period.date_field > `Month `Year ] period
val week : int -> [< Period.date_field > `Day `Week ] period
val day : int -> [< Period.date_field > `Day `Week ] period
val hour : int -> [< Period.date_field > `Day `Week ] period
val minute : int -> [< Period.date_field > `Day `Week ] period
val second : second -> [< Period.date_field > `Day `Week ] period
val from_date :
([< Period.date_field ] as 'a) Date.Period.period -> 'a period
val from_time :
([< Period.date_field ] as 'a) Time.Period.period -> 'a period
val to_date :
([< Date.field ] as 'a) period -> 'a Date.Period.period
exception Not_computable
val to_time :
([< Period.date_field ] as 'a) period -> 'a Time.Period.period
val safe_to_time :
([< `Day | `Week ] as 'a) period -> 'a Time.Period.period
val ymds :
[< Period.date_field ] period -> int * int * int * second
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field > `Day `Week ] Period.period
val precise_sub : t -> t -> Period.t
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end
end calendar-2.04/doc/Period.S.html 0000644 0002611 0003721 00000012606 12424135550 015133 0 ustar julien lsl
module type S =sig..end
type +[< Period.date_field ] period
typet =Period.date_field period
val empty : [< Period.date_field ] periodval add : ([< Period.date_field ] as 'a) period ->
'a period -> 'a periodval sub : ([< Period.date_field ] as 'a) period ->
'a period -> 'a periodval opp : ([< Period.date_field ] as 'a) period -> 'a periodval equal : [< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare : [< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
calendar-2.04/doc/Printer.Precise_Fcalendar.html 0000644 0002611 0003721 00000016046 12424135550 020465 0 ustar julien lsl
module Precise_Fcalendar:Swith type t = Fcalendar.Precise.t
%i %T.type
val fprint : string -> Format.formatter -> t -> unitfprint format formatter x outputs x on formatter according to
the specified format.Invalid_argument if the format is incorrect.val print : string -> t -> unitprint format is equivalent to fprint format Format.std_formatterval dprint : t -> unitprint d where d is the default format
(see the printer implementations).val sprint : string -> t -> stringsprint format date converts date to a string according to
format.val to_string : t -> stringsprint d where d is the default format
(see the printer implementations).val from_fstring : string -> string -> tfrom_fstring format s converts s to a date according to format.
Date padding (i.e. a special directive following '%') and
specifiers %e, %k and %l are not recognized. Specifiers
%a, %A, %j, %v, %w and %W are recognized but mainly ignored:
only the validity of the format is checked.
In order to recognize words (used by %a, %A, %b, %B and %p), a
regular expression is used which can be configured by
Printer.set_word_regexp. When the format has only two digits for the
year number, 1900 are added to this number (see examples).
Raises Invalid_argument if either the format is incorrect or the string
does not match the format or the event cannot be created (e.g. if you do
not specify a year for a date).
Examples:
from_fstring "the date is %B, the %dth %Y" "the date is May,
the 14th 2007" returns a date equivalent to Date.make 2007 5 14 (with
default internationalization).from_fstring "the date is %D" "the date is 01/06/03"
returns a date equivalent to Date.make 1903 1 6val from_string : string -> tfrom_fstring d where d is the default format.module Period:sig..end
type +[< Period.date_field ] period
typet =Period.date_field period
val empty : [< Period.date_field ] periodval add : ([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a periodval sub : ([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a periodval opp : ([< Period.date_field > `Day `Week ] as 'a) period ->
'a periodval equal : [< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare : [< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int ->
int -> int -> int -> int -> Calendar_sig.S.second -> tmake year month day hour minute second makes a period of the
specified length.val lmake : ?year:int ->
?month:int ->
?day:int ->
?hour:int ->
?minute:int ->
?second:Calendar_sig.S.second -> unit -> tmake.
The default value of each argument is 0.Date_sig.S.Period.val year : int -> [< Period.date_field > `Year ] periodval month : int -> [< Period.date_field > `Month `Year ] periodval week : int -> [< Period.date_field > `Day `Week ] periodval day : int -> [< Period.date_field > `Day `Week ] periodval hour : int -> [< Period.date_field > `Day `Week ] periodval minute : int -> [< Period.date_field > `Day `Week ] periodval second : Calendar_sig.S.second ->
[< Period.date_field > `Day `Week ] periodval from_date : ([< Period.date_field ] as 'a) Date.Period.period ->
'a periodval from_time : ([< Period.date_field ] as 'a) Time.Period.period ->
'a periodval to_date : ([< Date.field ] as 'a) period -> 'a Date.Period.periodto_date (hour 60) is equivalent to Date.Period.days 2.exception Not_computable
= Date.Period.Not_computable.val to_time : ([< Period.date_field ] as 'a) period ->
'a Time.Period.periodCalendar_sig.S.Period.safe_to_time insteadNot_computable if the time period is not computable.to_time (year 1) raises Not_computable because
a year is not a constant number of days.to_time (second 30) returns a time period of 30 secondsto_time (day 6) returns a time period of 24 * 3600 * 6 =
518400 secondsval safe_to_time : ([< `Day | `Week ] as 'a) period ->
'a Time.Period.period
val ymds : [< Period.date_field ] period ->
int * int * int * Calendar_sig.S.secondymds (make (-1) (-2) (-3) (-1) (-2) (-3) returns
-1, -2, -4, 82677.ymds (make 1 2 3 1 2 3) returns 1, 2, 3, 3723sig
type t = Time.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end calendar-2.04/doc/Printer.Precise_Calendar.html 0000644 0002611 0003721 00000015676 12424135550 020327 0 ustar julien lsl
module Precise_Calendar:Swith type t = Calendar.Precise.t
%i %T.type
val fprint : string -> Format.formatter -> t -> unitfprint format formatter x outputs x on formatter according to
the specified format.Invalid_argument if the format is incorrect.val print : string -> t -> unitprint format is equivalent to fprint format Format.std_formatterval dprint : t -> unitprint d where d is the default format
(see the printer implementations).val sprint : string -> t -> stringsprint format date converts date to a string according to
format.val to_string : t -> stringsprint d where d is the default format
(see the printer implementations).val from_fstring : string -> string -> tfrom_fstring format s converts s to a date according to format.
Date padding (i.e. a special directive following '%') and
specifiers %e, %k and %l are not recognized. Specifiers
%a, %A, %j, %v, %w and %W are recognized but mainly ignored:
only the validity of the format is checked.
In order to recognize words (used by %a, %A, %b, %B and %p), a
regular expression is used which can be configured by
Printer.set_word_regexp. When the format has only two digits for the
year number, 1900 are added to this number (see examples).
Raises Invalid_argument if either the format is incorrect or the string
does not match the format or the event cannot be created (e.g. if you do
not specify a year for a date).
Examples:
from_fstring "the date is %B, the %dth %Y" "the date is May,
the 14th 2007" returns a date equivalent to Date.make 2007 5 14 (with
default internationalization).from_fstring "the date is %D" "the date is 01/06/03"
returns a date equivalent to Date.make 1903 1 6val from_string : string -> tfrom_fstring d where d is the default format.sig
type t = Fcalendar.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end calendar-2.04/doc/Printer.DatePrinter.html 0000644 0002611 0003721 00000015646 12424135550 017362 0 ustar julien lsl
module DatePrinter:Swith type t = Date.t
type
val fprint : string -> Format.formatter -> t -> unitfprint format formatter x outputs x on formatter according to
the specified format.Invalid_argument if the format is incorrect.val print : string -> t -> unitprint format is equivalent to fprint format Format.std_formatterval dprint : t -> unitprint d where d is the default format
(see the printer implementations).val sprint : string -> t -> stringsprint format date converts date to a string according to
format.val to_string : t -> stringsprint d where d is the default format
(see the printer implementations).val from_fstring : string -> string -> tfrom_fstring format s converts s to a date according to format.
Date padding (i.e. a special directive following '%') and
specifiers %e, %k and %l are not recognized. Specifiers
%a, %A, %j, %v, %w and %W are recognized but mainly ignored:
only the validity of the format is checked.
In order to recognize words (used by %a, %A, %b, %B and %p), a
regular expression is used which can be configured by
Printer.set_word_regexp. When the format has only two digits for the
year number, 1900 are added to this number (see examples).
Raises Invalid_argument if either the format is incorrect or the string
does not match the format or the event cannot be created (e.g. if you do
not specify a year for a date).
Examples:
from_fstring "the date is %B, the %dth %Y" "the date is May,
the 14th 2007" returns a date equivalent to Date.make 2007 5 14 (with
default internationalization).from_fstring "the date is %D" "the date is 01/06/03"
returns a date equivalent to Date.make 1903 1 6val from_string : string -> tfrom_fstring d where d is the default format.sig
module Make :
functor (D : Date_sig.S) ->
functor (T : Time_sig.S) ->
sig
module Date :
sig
type field = Period.date_field
type -'a date = 'a D.date constraint 'a = [< field ]
type t = field date
type day = D.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
D.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = int
exception Out_of_bounds
exception Undefined
val make : year -> int -> int -> t
val lmake : year:year -> ?month:int -> ?day:int -> unit -> t
val make_year : int -> [< `Year ] date
val make_year_month : int -> int -> [< `Month | `Year ] date
val today : unit -> t
val from_jd : int -> t
val from_mjd : int -> t
val from_day_of_year : year -> int -> t
val days_in_month : [< field > `Month `Year ] date -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : [< field > `Month ] date -> month
val year : [< field > `Year ] date -> year
val to_jd : t -> int
val to_mjd : t -> int
val equal : [< field ] date -> [< field ] date -> bool
val compare : [< field ] date -> [< field ] date -> int
val hash : [< field ] date -> int
val is_valid_date : year -> int -> int -> bool
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val to_business : t -> year * int * day
val from_business : year -> int -> day -> t
val int_of_day : day -> int
val day_of_int : int -> day
val int_of_month : month -> int
val month_of_int : int -> month
module Period :
sig
type +'a p = 'a D.Period.p constraint 'a = [< field ]
type +'a period = 'a p constraint 'a = [< field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val opp :
([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> t
val lmake :
?year:int -> ?month:int -> ?day:int -> unit -> t
val year : int -> [< field > `Year ] period
val month : int -> [< field > `Month `Year ] period
val week : int -> [< field > `Day `Week ] period
val day : int -> [< field > `Day `Week ] period
exception Not_computable
val nb_days : [< field ] period -> int
val safe_nb_days : [< `Day | `Week ] period -> int
val ymd : [< field ] period -> int * int * int
end
val add :
([< field ] as 'a) date -> 'a Period.period -> 'a date
val sub :
([< field ] as 'a) date ->
'a date -> [< field > `Day `Week ] Period.period
val precise_sub :
([< field ] as 'a) date -> 'a date -> Period.t
val rem :
([< field ] as 'a) date -> 'a Period.period -> 'a date
val next : ([< field ] as 'a) date -> 'a -> 'a date
val prev : ([< field ] as 'a) date -> 'a -> 'a date
val is_leap_year : year -> bool
val same_calendar : year -> year -> bool
val days_in_year : ?month:month -> year -> int
val weeks_in_year : year -> int
val week_first_last : int -> year -> t * t
val nth_weekday_of_month : year -> month -> day -> int -> t
val century : year -> int
val millenium : year -> int
val solar_number : year -> int
val indiction : year -> int
val golden_number : year -> int
val epact : year -> int
val easter : year -> t
val carnaval : year -> t
val mardi_gras : year -> t
val ash : year -> t
val palm : year -> t
val easter_friday : year -> t
val easter_saturday : year -> t
val easter_monday : year -> t
val ascension : year -> t
val withsunday : year -> t
val withmonday : year -> t
val corpus_christi : year -> t
end
module Time :
sig
type t = T.t
type field = [ `Hour | `Minute | `Second ]
type second = T.second
module Second :
sig
type t = second
val from_int : int -> t
val from_float : float -> t
val to_int : t -> int
val to_float : t -> float
end
val make : int -> int -> second -> t
val lmake :
?hour:int -> ?minute:int -> ?second:second -> unit -> t
val now : unit -> t
val midnight : unit -> t
val midday : unit -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val from_gmt : t -> t
val to_gmt : t -> t
val normalize : t -> t * int
val hour : t -> int
val minute : t -> int
val second : t -> second
val to_seconds : t -> second
val to_minutes : t -> float
val to_hours : t -> float
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_pm : t -> bool
val is_am : t -> bool
val from_seconds : second -> t
val from_minutes : float -> t
val from_hours : float -> t
module Period :
sig
type +'a period = 'a T.Period.period
constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val opp :
([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val length : [< Period.date_field ] period -> second
val mul :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val div :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val make :
int -> int -> second -> [< Period.date_field ] period
val lmake :
?hour:int ->
?minute:int ->
?second:second -> unit -> [< Period.date_field ] period
val hour : int -> [< Period.date_field ] period
val minute : int -> [< Period.date_field ] period
val second : second -> [< Period.date_field ] period
val to_seconds : [< Period.date_field ] period -> second
val to_minutes : [< Period.date_field ] period -> float
val to_hours : [< Period.date_field ] period -> float
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field ] Period.period
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end
type t
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = Date.year
type second = Time.second
type field =
[ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
year:int ->
?month:int ->
?day:int ->
?hour:int -> ?minute:int -> ?second:second -> unit -> t
val create : Date.t -> Time.t -> t
val now : unit -> t
val from_jd : float -> t
val from_mjd : float -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val to_gmt : t -> t
val from_gmt : t -> t
val days_in_month : t -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : t -> month
val year : t -> int
val to_jd : t -> float
val to_mjd : t -> float
val hour : t -> int
val minute : t -> int
val second : t -> second
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val is_pm : t -> bool
val is_am : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val from_date : Date.t -> t
val to_date : t -> Date.t
val to_time : t -> Time.t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val opp :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
?year:int ->
?month:int ->
?day:int ->
?hour:int -> ?minute:int -> ?second:second -> unit -> t
val year : int -> [< Period.date_field > `Year ] period
val month : int -> [< Period.date_field > `Month `Year ] period
val week : int -> [< Period.date_field > `Day `Week ] period
val day : int -> [< Period.date_field > `Day `Week ] period
val hour : int -> [< Period.date_field > `Day `Week ] period
val minute : int -> [< Period.date_field > `Day `Week ] period
val second :
second -> [< Period.date_field > `Day `Week ] period
val from_date :
([< Period.date_field ] as 'a) Date.Period.period ->
'a period
val from_time :
([< Period.date_field ] as 'a) Time.Period.period ->
'a period
val to_date :
([< Date.field ] as 'a) period -> 'a Date.Period.period
exception Not_computable
val to_time :
([< Period.date_field ] as 'a) period ->
'a Time.Period.period
val safe_to_time :
([< `Day | `Week ] as 'a) period -> 'a Time.Period.period
val ymds :
[< Period.date_field ] period -> int * int * int * second
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub :
t -> t -> [< Period.date_field > `Day `Week ] Period.period
val precise_sub : t -> t -> Period.t
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end
module Make_Precise :
functor (D : Date_sig.S) ->
functor (T : Time_sig.S) ->
sig
module Date :
sig
type field = Period.date_field
type -'a date = 'a D.date constraint 'a = [< field ]
type t = field date
type day = D.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
D.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = int
exception Out_of_bounds
exception Undefined
val make : year -> int -> int -> t
val lmake : year:year -> ?month:int -> ?day:int -> unit -> t
val make_year : int -> [< `Year ] date
val make_year_month : int -> int -> [< `Month | `Year ] date
val today : unit -> t
val from_jd : int -> t
val from_mjd : int -> t
val from_day_of_year : year -> int -> t
val days_in_month : [< field > `Month `Year ] date -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : [< field > `Month ] date -> month
val year : [< field > `Year ] date -> year
val to_jd : t -> int
val to_mjd : t -> int
val equal : [< field ] date -> [< field ] date -> bool
val compare : [< field ] date -> [< field ] date -> int
val hash : [< field ] date -> int
val is_valid_date : year -> int -> int -> bool
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val to_business : t -> year * int * day
val from_business : year -> int -> day -> t
val int_of_day : day -> int
val day_of_int : int -> day
val int_of_month : month -> int
val month_of_int : int -> month
module Period :
sig
type +'a p = 'a D.Period.p constraint 'a = [< field ]
type +'a period = 'a p constraint 'a = [< field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val opp :
([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> t
val lmake :
?year:int -> ?month:int -> ?day:int -> unit -> t
val year : int -> [< field > `Year ] period
val month : int -> [< field > `Month `Year ] period
val week : int -> [< field > `Day `Week ] period
val day : int -> [< field > `Day `Week ] period
exception Not_computable
val nb_days : [< field ] period -> int
val safe_nb_days : [< `Day | `Week ] period -> int
val ymd : [< field ] period -> int * int * int
end
val add :
([< field ] as 'a) date -> 'a Period.period -> 'a date
val sub :
([< field ] as 'a) date ->
'a date -> [< field > `Day `Week ] Period.period
val precise_sub :
([< field ] as 'a) date -> 'a date -> Period.t
val rem :
([< field ] as 'a) date -> 'a Period.period -> 'a date
val next : ([< field ] as 'a) date -> 'a -> 'a date
val prev : ([< field ] as 'a) date -> 'a -> 'a date
val is_leap_year : year -> bool
val same_calendar : year -> year -> bool
val days_in_year : ?month:month -> year -> int
val weeks_in_year : year -> int
val week_first_last : int -> year -> t * t
val nth_weekday_of_month : year -> month -> day -> int -> t
val century : year -> int
val millenium : year -> int
val solar_number : year -> int
val indiction : year -> int
val golden_number : year -> int
val epact : year -> int
val easter : year -> t
val carnaval : year -> t
val mardi_gras : year -> t
val ash : year -> t
val palm : year -> t
val easter_friday : year -> t
val easter_saturday : year -> t
val easter_monday : year -> t
val ascension : year -> t
val withsunday : year -> t
val withmonday : year -> t
val corpus_christi : year -> t
end
module Time :
sig
type t = T.t
type field = [ `Hour | `Minute | `Second ]
type second = T.second
module Second :
sig
type t = second
val from_int : int -> t
val from_float : float -> t
val to_int : t -> int
val to_float : t -> float
end
val make : int -> int -> second -> t
val lmake :
?hour:int -> ?minute:int -> ?second:second -> unit -> t
val now : unit -> t
val midnight : unit -> t
val midday : unit -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val from_gmt : t -> t
val to_gmt : t -> t
val normalize : t -> t * int
val hour : t -> int
val minute : t -> int
val second : t -> second
val to_seconds : t -> second
val to_minutes : t -> float
val to_hours : t -> float
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_pm : t -> bool
val is_am : t -> bool
val from_seconds : second -> t
val from_minutes : float -> t
val from_hours : float -> t
module Period :
sig
type +'a period = 'a T.Period.period
constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val opp :
([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val length : [< Period.date_field ] period -> second
val mul :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val div :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val make :
int -> int -> second -> [< Period.date_field ] period
val lmake :
?hour:int ->
?minute:int ->
?second:second -> unit -> [< Period.date_field ] period
val hour : int -> [< Period.date_field ] period
val minute : int -> [< Period.date_field ] period
val second : second -> [< Period.date_field ] period
val to_seconds : [< Period.date_field ] period -> second
val to_minutes : [< Period.date_field ] period -> float
val to_hours : [< Period.date_field ] period -> float
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field ] Period.period
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end
type t
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = Date.year
type second = Time.second
type field =
[ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
year:int ->
?month:int ->
?day:int ->
?hour:int -> ?minute:int -> ?second:second -> unit -> t
val create : Date.t -> Time.t -> t
val now : unit -> t
val from_jd : float -> t
val from_mjd : float -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val to_gmt : t -> t
val from_gmt : t -> t
val days_in_month : t -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : t -> month
val year : t -> int
val to_jd : t -> float
val to_mjd : t -> float
val hour : t -> int
val minute : t -> int
val second : t -> second
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val is_pm : t -> bool
val is_am : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val from_date : Date.t -> t
val to_date : t -> Date.t
val to_time : t -> Time.t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val opp :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
?year:int ->
?month:int ->
?day:int ->
?hour:int -> ?minute:int -> ?second:second -> unit -> t
val year : int -> [< Period.date_field > `Year ] period
val month : int -> [< Period.date_field > `Month `Year ] period
val week : int -> [< Period.date_field > `Day `Week ] period
val day : int -> [< Period.date_field > `Day `Week ] period
val hour : int -> [< Period.date_field > `Day `Week ] period
val minute : int -> [< Period.date_field > `Day `Week ] period
val second :
second -> [< Period.date_field > `Day `Week ] period
val from_date :
([< Period.date_field ] as 'a) Date.Period.period ->
'a period
val from_time :
([< Period.date_field ] as 'a) Time.Period.period ->
'a period
val to_date :
([< Date.field ] as 'a) period -> 'a Date.Period.period
exception Not_computable
val to_time :
([< Period.date_field ] as 'a) period ->
'a Time.Period.period
val safe_to_time :
([< `Day | `Week ] as 'a) period -> 'a Time.Period.period
val ymds :
[< Period.date_field ] period -> int * int * int * second
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub :
t -> t -> [< Period.date_field > `Day `Week ] Period.period
val precise_sub : t -> t -> Period.t
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end
end calendar-2.04/doc/type_Calendar_sig.S.html 0000644 0002611 0003721 00000102535 12424135550 017326 0 ustar julien lsl
sig
module Date : Date_sig.S
module Time : Time_sig.S
type t
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = Date.year
type second = Time.second
type field = [ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make :
int ->
int -> int -> int -> int -> Calendar_sig.S.second -> Calendar_sig.S.t
val lmake :
year:int ->
?month:int ->
?day:int ->
?hour:int ->
?minute:int -> ?second:Calendar_sig.S.second -> unit -> Calendar_sig.S.t
val create : Date.t -> Time.t -> Calendar_sig.S.t
val now : unit -> Calendar_sig.S.t
val from_jd : float -> Calendar_sig.S.t
val from_mjd : float -> Calendar_sig.S.t
val convert :
Calendar_sig.S.t -> Time_Zone.t -> Time_Zone.t -> Calendar_sig.S.t
val to_gmt : Calendar_sig.S.t -> Calendar_sig.S.t
val from_gmt : Calendar_sig.S.t -> Calendar_sig.S.t
val days_in_month : Calendar_sig.S.t -> int
val day_of_week : Calendar_sig.S.t -> Calendar_sig.S.day
val day_of_month : Calendar_sig.S.t -> int
val day_of_year : Calendar_sig.S.t -> int
val week : Calendar_sig.S.t -> int
val month : Calendar_sig.S.t -> Calendar_sig.S.month
val year : Calendar_sig.S.t -> int
val to_jd : Calendar_sig.S.t -> float
val to_mjd : Calendar_sig.S.t -> float
val hour : Calendar_sig.S.t -> int
val minute : Calendar_sig.S.t -> int
val second : Calendar_sig.S.t -> Calendar_sig.S.second
val equal : Calendar_sig.S.t -> Calendar_sig.S.t -> bool
val compare : Calendar_sig.S.t -> Calendar_sig.S.t -> int
val hash : Calendar_sig.S.t -> int
val is_leap_day : Calendar_sig.S.t -> bool
val is_gregorian : Calendar_sig.S.t -> bool
val is_julian : Calendar_sig.S.t -> bool
val is_pm : Calendar_sig.S.t -> bool
val is_am : Calendar_sig.S.t -> bool
val to_unixtm : Calendar_sig.S.t -> Unix.tm
val from_unixtm : Unix.tm -> Calendar_sig.S.t
val to_unixfloat : Calendar_sig.S.t -> float
val from_unixfloat : float -> Calendar_sig.S.t
val from_date : Date.t -> Calendar_sig.S.t
val to_date : Calendar_sig.S.t -> Date.t
val to_time : Calendar_sig.S.t -> Time.t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field Calendar_sig.S.Period.period
val empty : [< Period.date_field ] Calendar_sig.S.Period.period
val add :
([< Period.date_field > `Day `Week ] as 'a)
Calendar_sig.S.Period.period ->
'a Calendar_sig.S.Period.period -> 'a Calendar_sig.S.Period.period
val sub :
([< Period.date_field > `Day `Week ] as 'a)
Calendar_sig.S.Period.period ->
'a Calendar_sig.S.Period.period -> 'a Calendar_sig.S.Period.period
val opp :
([< Period.date_field > `Day `Week ] as 'a)
Calendar_sig.S.Period.period -> 'a Calendar_sig.S.Period.period
val equal :
[< Period.date_field ] Calendar_sig.S.Period.period ->
[< Period.date_field ] Calendar_sig.S.Period.period -> bool
val compare :
[< Period.date_field ] Calendar_sig.S.Period.period ->
[< Period.date_field ] Calendar_sig.S.Period.period -> int
val hash : [< Period.date_field ] Calendar_sig.S.Period.period -> int
val make :
int ->
int ->
int -> int -> int -> Calendar_sig.S.second -> Calendar_sig.S.Period.t
val lmake :
?year:int ->
?month:int ->
?day:int ->
?hour:int ->
?minute:int ->
?second:Calendar_sig.S.second -> unit -> Calendar_sig.S.Period.t
val year :
int -> [< Period.date_field > `Year ] Calendar_sig.S.Period.period
val month :
int ->
[< Period.date_field > `Month `Year ] Calendar_sig.S.Period.period
val week :
int ->
[< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val day :
int ->
[< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val hour :
int ->
[< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val minute :
int ->
[< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val second :
Calendar_sig.S.second ->
[< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val from_date :
([< Period.date_field ] as 'a) Date.Period.period ->
'a Calendar_sig.S.Period.period
val from_time :
([< Period.date_field ] as 'a) Time.Period.period ->
'a Calendar_sig.S.Period.period
val to_date :
([< Date.field ] as 'a) Calendar_sig.S.Period.period ->
'a Date.Period.period
exception Not_computable
val to_time :
([< Period.date_field ] as 'a) Calendar_sig.S.Period.period ->
'a Time.Period.period
val safe_to_time :
([< `Day | `Week ] as 'a) Calendar_sig.S.Period.period ->
'a Time.Period.period
val ymds :
[< Period.date_field ] Calendar_sig.S.Period.period ->
int * int * int * Calendar_sig.S.second
end
val add :
Calendar_sig.S.t ->
[< Period.date_field ] Calendar_sig.S.Period.period -> Calendar_sig.S.t
val sub :
Calendar_sig.S.t ->
Calendar_sig.S.t ->
[< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val precise_sub :
Calendar_sig.S.t -> Calendar_sig.S.t -> Calendar_sig.S.Period.t
val rem :
Calendar_sig.S.t ->
[< Period.date_field ] Calendar_sig.S.Period.period -> Calendar_sig.S.t
val next : Calendar_sig.S.t -> Calendar_sig.S.field -> Calendar_sig.S.t
val prev : Calendar_sig.S.t -> Calendar_sig.S.field -> Calendar_sig.S.t
end calendar-2.04/doc/Printer.Fcalendar.html 0000644 0002611 0003721 00000015522 12424135550 017011 0 ustar julien lsl
module Fcalendar:Swith type t = Fcalendar.t
%i %T.type
val fprint : string -> Format.formatter -> t -> unitfprint format formatter x outputs x on formatter according to
the specified format.Invalid_argument if the format is incorrect.val print : string -> t -> unitprint format is equivalent to fprint format Format.std_formatterval dprint : t -> unitprint d where d is the default format
(see the printer implementations).val sprint : string -> t -> stringsprint format date converts date to a string according to
format.val to_string : t -> stringsprint d where d is the default format
(see the printer implementations).val from_fstring : string -> string -> tfrom_fstring format s converts s to a date according to format.
Date padding (i.e. a special directive following '%') and
specifiers %e, %k and %l are not recognized. Specifiers
%a, %A, %j, %v, %w and %W are recognized but mainly ignored:
only the validity of the format is checked.
In order to recognize words (used by %a, %A, %b, %B and %p), a
regular expression is used which can be configured by
Printer.set_word_regexp. When the format has only two digits for the
year number, 1900 are added to this number (see examples).
Raises Invalid_argument if either the format is incorrect or the string
does not match the format or the event cannot be created (e.g. if you do
not specify a year for a date).
Examples:
from_fstring "the date is %B, the %dth %Y" "the date is May,
the 14th 2007" returns a date equivalent to Date.make 2007 5 14 (with
default internationalization).from_fstring "the date is %D" "the date is 01/06/03"
returns a date equivalent to Date.make 1903 1 6val from_string : string -> tfrom_fstring d where d is the default format.sig
module type Comparable =
sig
type t
val equal : Utils.Comparable.t -> Utils.Comparable.t -> bool
val compare : Utils.Comparable.t -> Utils.Comparable.t -> int
val hash : Utils.Comparable.t -> int
end
module Int :
sig
type t = int
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
end
module Float :
sig
type t = float
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val set_precision : float -> unit
val round : t -> int
end
end calendar-2.04/doc/Printer.TimePrinter.html 0000644 0002611 0003721 00000015651 12424135550 017377 0 ustar julien lsl
module TimePrinter:Swith type t = Time.t
type
val fprint : string -> Format.formatter -> t -> unitfprint format formatter x outputs x on formatter according to
the specified format.Invalid_argument if the format is incorrect.val print : string -> t -> unitprint format is equivalent to fprint format Format.std_formatterval dprint : t -> unitprint d where d is the default format
(see the printer implementations).val sprint : string -> t -> stringsprint format date converts date to a string according to
format.val to_string : t -> stringsprint d where d is the default format
(see the printer implementations).val from_fstring : string -> string -> tfrom_fstring format s converts s to a date according to format.
Date padding (i.e. a special directive following '%') and
specifiers %e, %k and %l are not recognized. Specifiers
%a, %A, %j, %v, %w and %W are recognized but mainly ignored:
only the validity of the format is checked.
In order to recognize words (used by %a, %A, %b, %B and %p), a
regular expression is used which can be configured by
Printer.set_word_regexp. When the format has only two digits for the
year number, 1900 are added to this number (see examples).
Raises Invalid_argument if either the format is incorrect or the string
does not match the format or the event cannot be created (e.g. if you do
not specify a year for a date).
Examples:
from_fstring "the date is %B, the %dth %Y" "the date is May,
the 14th 2007" returns a date equivalent to Date.make 2007 5 14 (with
default internationalization).from_fstring "the date is %D" "the date is 01/06/03"
returns a date equivalent to Date.make 1903 1 6val from_string : string -> tfrom_fstring d where d is the default format.module Date:sig..end
include Date_sig.Scalendar-2.04/doc/Calendar_sig.S.html 0000644 0002611 0003721 00000062764 12424135550 016276 0 ustar julien lsl
module type S =sig..end
module Date:Date_sig.S
module Time:Time_sig.S
type
typeday =Date.day=
| |
Sun |
|||
| |
Mon |
|||
| |
Tue |
|||
| |
Wed |
|||
| |
Thu |
|||
| |
Fri |
|||
| |
Sat |
(* | Days of the week. | *) |
typemonth =Date.month=
| |
Jan |
|||
| |
Feb |
|||
| |
Mar |
|||
| |
Apr |
|||
| |
May |
|||
| |
Jun |
|||
| |
Jul |
|||
| |
Aug |
|||
| |
Sep |
|||
| |
Oct |
|||
| |
Nov |
|||
| |
Dec |
(* | Months of the year. | *) |
typeyear =Date.year
typesecond =Time.second
typefield =[ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make : int -> int -> int -> int -> int -> second -> tmake year month day hour minute second makes the calendar
"year-month-day; hour-minute-second".D.Out_of_bounds when a date is outside the Julian period.D.Undefined when a date belongs to [October 5th, 1582; October
14th, 1582].val lmake : year:int ->
?month:int ->
?day:int ->
?hour:int ->
?minute:int -> ?second:second -> unit -> tmake.
The default value of month and day (resp. of hour, minute
and second) is 1 (resp. 0).D.Out_of_bounds when a date is outside the Julian period.D.Undefined when a date belongs to [October 5th, 1582; October
14th, 1582].val create : Date.t -> Time.t -> tcreate d t creates a calendar from the given date and time.val now : unit -> tnow () returns the current date and time (in the current time
zone).val from_jd : float -> tDate.from_jd: the fractional part represents the
time.val from_mjd : float -> tJulian day - 2 400 000.5 (more precise than Date.from_mjd).Time_sig.S.val convert : t -> Time_Zone.t -> Time_Zone.t -> tval to_gmt : t -> tval from_gmt : t -> tDate_sig.S.val days_in_month : t -> intval day_of_week : t -> dayval day_of_month : t -> intval day_of_year : t -> intval week : t -> intval month : t -> monthval year : t -> intto_jd and to_mjd are more precise than Date_sig.S.to_jd and
Date_sig.S.to_mjd.val to_jd : t -> floatval to_mjd : t -> floatTime_sig.S.val hour : t -> intval minute : t -> intval second : t -> secondval equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
Date_sig.S.val is_leap_day : t -> boolval is_gregorian : t -> boolval is_julian : t -> boolTime_sig.S.val is_pm : t -> boolval is_am : t -> boolval to_unixtm : t -> Unix.tmunix.tm type.
The field isdst is always false. More precise than
Date_sig.S.to_unixtm.val from_unixtm : Unix.tm -> tto_unixtm. Assumes the current time zone.
So, The following invariant holds:
hour (from_unixtm u) = u.Unix.tm_hour.val to_unixfloat : t -> floatto_unixfloat (make 1970 1 1 0 0 0) returns 0.0 at UTC.
So such a float is convertible with those of the module Unix.
More precise than Date_sig.S.to_unixfloat.val from_unixfloat : float -> tto_unixfloat. Assumes the current time zone.
So, the following invariant holds:
hour (from_unixfloat u) = (Unix.gmtime u).Unix.tm_hour.val from_date : Date.t -> tval to_date : t -> Date.tval to_time : t -> Time.tmodule Period:sig..end
Date_sig.S.val add : t ->
[< Period.date_field ] Period.period -> tval sub : t ->
t ->
[< Period.date_field > `Day `Week ] Period.periodval precise_sub : t -> t -> Period.t
val rem : t ->
[< Period.date_field ] Period.period -> tval next : t -> field -> tval prev : t -> field -> tsig
type field = Period.date_field
type -'a date constraint 'a = [< field ]
type t = field date
type day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = int
exception Out_of_bounds
exception Undefined
val make : year -> int -> int -> t
val lmake : year:year -> ?month:int -> ?day:int -> unit -> t
val make_year : int -> [< `Year ] date
val make_year_month : int -> int -> [< `Month | `Year ] date
val today : unit -> t
val from_jd : int -> t
val from_mjd : int -> t
val from_day_of_year : year -> int -> t
val days_in_month : [< field > `Month `Year ] date -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : [< field > `Month ] date -> month
val year : [< field > `Year ] date -> year
val to_jd : t -> int
val to_mjd : t -> int
val equal : [< field ] date -> [< field ] date -> bool
val compare : [< field ] date -> [< field ] date -> int
val hash : [< field ] date -> int
val is_valid_date : year -> int -> int -> bool
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val to_business : t -> year * int * day
val from_business : year -> int -> day -> t
val int_of_day : day -> int
val day_of_int : int -> day
val int_of_month : month -> int
val month_of_int : int -> month
module Period :
sig
type +'a p constraint 'a = [< field ]
type +'a period = 'a p constraint 'a = [< field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period -> [< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> t
val lmake : ?year:int -> ?month:int -> ?day:int -> unit -> t
val year : int -> [< field > `Year ] period
val month : int -> [< field > `Month `Year ] period
val week : int -> [< field > `Day `Week ] period
val day : int -> [< field > `Day `Week ] period
exception Not_computable
val nb_days : [< field ] period -> int
val safe_nb_days : [< `Day | `Week ] period -> int
val ymd : [< field ] period -> int * int * int
end
val add : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val sub :
([< field ] as 'a) date ->
'a date -> [< field > `Day `Week ] Period.period
val precise_sub : ([< field ] as 'a) date -> 'a date -> Period.t
val rem : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val next : ([< field ] as 'a) date -> 'a -> 'a date
val prev : ([< field ] as 'a) date -> 'a -> 'a date
val is_leap_year : year -> bool
val same_calendar : year -> year -> bool
val days_in_year : ?month:month -> year -> int
val weeks_in_year : year -> int
val week_first_last : int -> year -> t * t
val nth_weekday_of_month : year -> month -> day -> int -> t
val century : year -> int
val millenium : year -> int
val solar_number : year -> int
val indiction : year -> int
val golden_number : year -> int
val epact : year -> int
val easter : year -> t
val carnaval : year -> t
val mardi_gras : year -> t
val ash : year -> t
val palm : year -> t
val easter_friday : year -> t
val easter_saturday : year -> t
val easter_monday : year -> t
val ascension : year -> t
val withsunday : year -> t
val withmonday : year -> t
val corpus_christi : year -> t
end calendar-2.04/doc/type_Time_sig.S.html 0000644 0002611 0003721 00000045064 12424135550 016516 0 ustar julien lsl
sig
type t
type field = [ `Hour | `Minute | `Second ]
type second
module Second :
sig
type t = second
val from_int : int -> t
val from_float : float -> t
val to_int : t -> int
val to_float : t -> float
end
val make : int -> int -> Time_sig.S.second -> Time_sig.S.t
val lmake :
?hour:int ->
?minute:int -> ?second:Time_sig.S.second -> unit -> Time_sig.S.t
val now : unit -> Time_sig.S.t
val midnight : unit -> Time_sig.S.t
val midday : unit -> Time_sig.S.t
val convert : Time_sig.S.t -> Time_Zone.t -> Time_Zone.t -> Time_sig.S.t
val from_gmt : Time_sig.S.t -> Time_sig.S.t
val to_gmt : Time_sig.S.t -> Time_sig.S.t
val normalize : Time_sig.S.t -> Time_sig.S.t * int
val hour : Time_sig.S.t -> int
val minute : Time_sig.S.t -> int
val second : Time_sig.S.t -> Time_sig.S.second
val to_seconds : Time_sig.S.t -> Time_sig.S.second
val to_minutes : Time_sig.S.t -> float
val to_hours : Time_sig.S.t -> float
val equal : Time_sig.S.t -> Time_sig.S.t -> bool
val compare : Time_sig.S.t -> Time_sig.S.t -> int
val hash : Time_sig.S.t -> int
val is_pm : Time_sig.S.t -> bool
val is_am : Time_sig.S.t -> bool
val from_seconds : Time_sig.S.second -> Time_sig.S.t
val from_minutes : float -> Time_sig.S.t
val from_hours : float -> Time_sig.S.t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period -> [< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val length : [< Period.date_field ] period -> Time_sig.S.second
val mul :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val div :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val make :
int -> int -> Time_sig.S.second -> [< Period.date_field ] period
val lmake :
?hour:int ->
?minute:int ->
?second:Time_sig.S.second -> unit -> [< Period.date_field ] period
val hour : int -> [< Period.date_field ] period
val minute : int -> [< Period.date_field ] period
val second : Time_sig.S.second -> [< Period.date_field ] period
val to_seconds : [< Period.date_field ] period -> Time_sig.S.second
val to_minutes : [< Period.date_field ] period -> float
val to_hours : [< Period.date_field ] period -> float
end
val add :
Time_sig.S.t ->
[< Period.date_field ] Time_sig.S.Period.period -> Time_sig.S.t
val sub :
Time_sig.S.t ->
Time_sig.S.t -> [< Period.date_field ] Time_sig.S.Period.period
val rem :
Time_sig.S.t ->
[< Period.date_field ] Time_sig.S.Period.period -> Time_sig.S.t
val next : Time_sig.S.t -> Time_sig.S.field -> Time_sig.S.t
val prev : Time_sig.S.t -> Time_sig.S.field -> Time_sig.S.t
end calendar-2.04/doc/index_values.html 0000644 0002611 0003721 00000136077 12424135550 016207 0 ustar julien lsl
A | |
| add [Calendar_sig.S.Period] |
Addition of periods.
|
| add [Calendar_sig.S] | |
| add [Date_sig.S] | add d p returns d + p.
|
| add [Time_sig.S] | app t p returns t + p.
|
| add [Period.S] |
Addition of periods.
|
| ascension [Date_sig.S] |
Ascension.
|
| ash [Date_sig.S] |
Ash Wednesday.
|
C | |
| carnaval [Date_sig.S] |
Carnaval Monday.
|
| century [Date_sig.S] |
Century of a year.
|
| change [Time_Zone] |
Change the current time zone by another one.
|
| compare [Calendar_sig.S.Period] |
Comparison function between two periods.
|
| compare [Calendar_sig.S] |
Comparison function between two calendars.
|
| compare [Date_sig.S] |
Comparison function between two dates.
|
| compare [Time_sig.S] |
Comparison function between two times.
|
| compare [Period.S] |
Comparison function between two periods.
|
| compare [Utils.Comparable] |
Comparison over
t.
|
| convert [Calendar_sig.S] | |
| convert [Time_sig.S] | convert t t1 t2 converts the time t expressed in the time zone t1
to the same time expressed in the time zone t2.
|
| corpus_christi [Date_sig.S] |
Feast of Corpus Christi.
|
| create [Calendar_sig.S] | create d t creates a calendar from the given date and time.
|
| current [Time_Zone] |
Return the current time zone.
|
D | |
| date [Version] |
Date of compilation.
|
| day [Calendar_sig.S.Period] | |
| day [Date_sig.S.Period] | day n makes a period of n days.
|
| day_name [Printer] |
String representation of a day.
|
| day_of_int [Date_sig.S] |
Inverse of
int_of_day.
|
| day_of_month [Calendar_sig.S] | |
| day_of_month [Date_sig.S] |
Day of the month.
|
| day_of_week [Calendar_sig.S] | |
| day_of_week [Date_sig.S] |
Day of the week.
|
| day_of_year [Calendar_sig.S] | |
| day_of_year [Date_sig.S] |
Day of the year.
|
| days_in_month [Calendar_sig.S] | |
| days_in_month [Date_sig.S] |
Number of days in the month of a date.
|
| days_in_year [Date_sig.S] |
Number of days in a year.
|
| div [Time_sig.S.Period] |
Division.
|
| dprint [Printer.S] |
Same as
print d where d is the default format
(see the printer implementations).
|
E | |
| easter [Date_sig.S] |
Easter Sunday.
|
| easter_friday [Date_sig.S] |
Easter Friday.
|
| easter_monday [Date_sig.S] |
Easter Monday.
|
| easter_saturday [Date_sig.S] |
Easter Saturday.
|
| empty [Calendar_sig.S.Period] |
The empty period.
|
| empty [Period.S] |
The empty period.
|
| epact [Date_sig.S] |
Epact.
|
| equal [Calendar_sig.S.Period] |
Equality function between two periods.
|
| equal [Calendar_sig.S] |
Equality function between two calendars.
|
| equal [Date_sig.S] |
Equality function between two dates.
|
| equal [Time_sig.S] |
Equality function between two times.
|
| equal [Period.S] |
Equality function between two periods.
|
| equal [Utils.Comparable] |
Equality over
t.
|
F | |
| fprint [Printer.S] | fprint format formatter x outputs x on formatter according to
the specified format.
|
| from_business [Date_sig.S] |
Inverse of
to_business respecting ISO-8601.
|
| from_date [Calendar_sig.S.Period] |
Convert a date period to a calendar period.
|
| from_date [Calendar_sig.S] |
Convert a date to a calendar.
|
| from_day_of_year [Date_sig.S] |
Make a date from a year and its day of the year.
|
| from_float [Time_sig.Second] |
Convert a float to an equivalent number of seconds.
|
| from_fstring [Printer.S] | from_fstring format s converts s to a date according to format.
|
| from_gmt [Calendar_sig.S] | |
| from_gmt [Time_sig.S] | from_gmt t is equivalent to
convert t Time_Zone.GMT (Time_Zone.current ()).
|
| from_gmt [Time_Zone] | from_gmt () is equivalent to gap UTC (current ()).
|
| from_hours [Time_sig.S] |
Inverse of
to_hours.
|
| from_int [Time_sig.Second] |
Convert an integer to an equivalent number of seconds.
|
| from_jd [Calendar_sig.S] |
Return the Julian day.
|
| from_jd [Date_sig.S] |
Make a date from its Julian day.
|
| from_minutes [Time_sig.S] |
Inverse of
to_minutes.
|
| from_mjd [Calendar_sig.S] |
Return the Modified Julian day.
|
| from_mjd [Date_sig.S] |
Make a date from its modified Julian day (i.e.
|
| from_seconds [Time_sig.S] |
Inverse of
to_seconds.
|
| from_string [Printer.S] |
Same as
from_fstring d where d is the default format.
|
| from_time [Calendar_sig.S.Period] |
Convert a time period to a calendar period.
|
| from_unixfloat [Calendar_sig.S] |
Inverse of
to_unixfloat.
|
| from_unixfloat [Date_sig.S] |
Inverse of
to_unixfloat.
|
| from_unixtm [Calendar_sig.S] |
Inverse of
to_unixtm.
|
| from_unixtm [Date_sig.S] |
Inverse of
to_unixtm.
|
G | |
| gap [Time_Zone] |
Return the gap between two time zone.
|
| golden_number [Date_sig.S] |
Golden number.
|
H | |
| hash [Calendar_sig.S.Period] |
Hash function for periods.
|
| hash [Calendar_sig.S] |
Hash function for calendars.
|
| hash [Date_sig.S] |
Hash function for dates.
|
| hash [Time_sig.S] |
Hash function for times.
|
| hash [Period.S] |
Hash function for periods.
|
| hash [Utils.Comparable] |
A hash function over
t.
|
| hour [Calendar_sig.S.Period] | |
| hour [Calendar_sig.S] | |
| hour [Time_sig.S.Period] | hour n makes a period of n hours.
|
| hour [Time_sig.S] |
Hour.
|
| hour_of_dst [Time_Zone] | hour_of_dst () returns 1 if is_dst () and 0 otherwise.
|
I | |
| indiction [Date_sig.S] |
Indiction.
|
| int_of_day [Date_sig.S] |
Convert a day to an integer respecting ISO-8601.
|
| int_of_month [Date_sig.S] |
Convert a month to an integer respecting ISO-8601.
|
| is_am [Calendar_sig.S] | |
| is_am [Time_sig.S] |
Return
true is the time is after midday in the current time zone;
false otherwise.
|
| is_dst [Time_Zone] | is_dst () checks if daylight saving time is in effect.
|
| is_gregorian [Calendar_sig.S] | |
| is_gregorian [Date_sig.S] |
Return
true if a date belongs to the Gregorian calendar;
false otherwise.
|
| is_julian [Calendar_sig.S] | |
| is_julian [Date_sig.S] |
Return
true iff a date belongs to the Julian calendar;
false otherwise.
|
| is_leap_day [Calendar_sig.S] | |
| is_leap_day [Date_sig.S] |
Return
true if a date is a leap day
(i.e.
|
| is_leap_year [Date_sig.S] |
Return
true if a year is a leap year; false otherwise.
|
| is_pm [Calendar_sig.S] | |
| is_pm [Time_sig.S] |
Return
true is the time is before midday in the current time zone;
false otherwise.
|
| is_valid_date [Date_sig.S] |
Check if a date is valid, that is the date has not been coerced to look
like a real date.
|
L | |
| length [Time_sig.S.Period] |
Number of seconds of a period.
|
| lmake [Calendar_sig.S.Period] |
Labelled version of
make.
|
| lmake [Calendar_sig.S] |
Labelled version of
make.
|
| lmake [Date_sig.S.Period] |
Labelled version of
make.
|
| lmake [Date_sig.S] |
Labelled version of
make.
|
| lmake [Time_sig.S.Period] |
Labelled version of
make.
|
| lmake [Time_sig.S] |
Labelled version of
make.
|
M | |
| make [Calendar_sig.S.Period] | make year month day hour minute second makes a period of the
specified length.
|
| make [Calendar_sig.S] | make year month day hour minute second makes the calendar
"year-month-day; hour-minute-second".
|
| make [Date_sig.S.Period] | make year month day makes a period of the specified length.
|
| make [Date_sig.S] | make year month day makes the date year-month-day.
|
| make [Time_sig.S.Period] | make hour minute second makes a period of the specified length.
|
| make [Time_sig.S] | make hour minute second makes the time hour-minute-second.
|
| make_year [Date_sig.S] | make_year y makes a date only represented by its year y.
|
| make_year_month [Date_sig.S] | make_year_month y m makes a date only represented by its year y and
its month m.
|
| mardi_gras [Date_sig.S] |
Mardi Gras.
|
| midday [Time_sig.S] | midday () is midday (expressed in the current time zone).
|
| midnight [Time_sig.S] | midnight () is midnight (expressed in the current time zone).
|
| millenium [Date_sig.S] |
Millenium of a year.
|
| minute [Calendar_sig.S.Period] | |
| minute [Calendar_sig.S] | |
| minute [Time_sig.S.Period] | minute n makes a period of n minutes.
|
| minute [Time_sig.S] |
Minute.
|
| month [Calendar_sig.S.Period] | |
| month [Calendar_sig.S] | |
| month [Date_sig.S.Period] | month n makes a period of n months.
|
| month [Date_sig.S] |
Month.
|
| month_name [Printer] |
String representation of a month.
|
| month_of_int [Date_sig.S] |
Inverse of
int_of_month.
|
| mul [Time_sig.S.Period] |
Multiplication.
|
N | |
| name_of_day [Printer] | name_of_day d is equivalent to !day_name d.
|
| name_of_month [Printer] | name_of_month m is equivalent to !day_month m.
|
| nb_days [Date_sig.S.Period] |
Number of days in a period.
|
| next [Calendar_sig.S] | |
| next [Date_sig.S] | next d f returns the date corresponding to the next specified field.
|
| next [Time_sig.S] | next t f returns the time corresponding to the next specified field.
|
| normalize [Time_sig.S] | normalize t returns t such that hour t belongs to [0; 24[.
|
| now [Calendar_sig.S] | now () returns the current date and time (in the current time
zone).
|
| now [Time_sig.S] |
The current time based on
Time_Zone.current ().
|
| nth_weekday_of_month [Date_sig.S] | nth_weekday_of_month y m d n returns the n-th day d in the month
m of the year y (for instance the 3rd Thursday of the month).
|
O | |
| on [Time_Zone] | on f tz x changes the time zone to tz, then computes f x, and
finally reset the time zone to the initial one and returns the result of
the computation.
|
| opp [Calendar_sig.S.Period] |
Opposite of a period.
|
| opp [Period.S] |
Opposite of a period.
|
P | |
| palm [Date_sig.S] |
Palm Sunday.
|
| precise_sub [Calendar_sig.S] | |
| precise_sub [Date_sig.S] | precise_sub d1 d2 returns the period between d1 and d2.
|
| prev [Calendar_sig.S] | |
| prev [Date_sig.S] | prev d f returns the date corresponding to the previous specified
field.
|
| prev [Time_sig.S] | prev t f returns the time corresponding to the previous specified
field.
|
| print [Printer.S] | print format is equivalent to fprint format Format.std_formatter
|
R | |
| rem [Calendar_sig.S] | |
| rem [Date_sig.S] | rem d p is equivalent to add d (Period.opp p).
|
| rem [Time_sig.S] | rem t p is equivalent to add t (Period.opp p).
|
| round [Utils.Float] |
Round a float to the nearest integer.
|
S | |
| safe_nb_days [Date_sig.S.Period] |
Equivalent to
Date_sig.S.Period.nb_days but never raises any exception.
|
| safe_to_time [Calendar_sig.S.Period] |
Equivalent to
Calendar_sig.S.Period.to_time but never raises any exception.
|
| same_calendar [Date_sig.S] |
Return
true if two years have the same calendar; false
otherwise.
|
| second [Calendar_sig.S.Period] | |
| second [Calendar_sig.S] | |
| second [Time_sig.S.Period] | second n makes a period of n seconds.
|
| second [Time_sig.S] |
Second.
|
| set_precision [Utils.Float] |
Set the precision of
equal and compare for float.
|
| set_word_regexp [Printer] |
Set the regular expression used to recognize words in
from_fstring.
|
| short_name_of_day [Printer] | short_name_of_day d returns the 3 first characters of name_of_day d.
|
| short_name_of_month [Printer] | short_name_of_month d returns the 3 first characters of
name_of_month d.
|
| solar_number [Date_sig.S] |
Solar number.
|
| sprint [Printer.S] | sprint format date converts date to a string according to
format.
|
| sub [Calendar_sig.S.Period] |
Substraction of periods.
|
| sub [Calendar_sig.S] | |
| sub [Date_sig.S] | sub d1 d2 returns the period between d1 and d2.
|
| sub [Time_sig.S] | sub t1 t2 returns the period between t1 and t2.
|
| sub [Period.S] |
Substraction of periods.
|
T | |
| to_business [Date_sig.S] |
Return the "business week" and the day in this week respecting ISO 8601.
|
| to_date [Calendar_sig.S.Period] |
Convert a calendar period to a date period.
|
| to_date [Calendar_sig.S] |
Convert a calendar to a date.
|
| to_float [Time_sig.Second] |
Inverse of
from_float.
|
| to_gmt [Calendar_sig.S] | |
| to_gmt [Time_sig.S] | to_gmt t is equivalent to
convert t (Time_Zone.current ()) Time_Zone.GMT.
|
| to_gmt [Time_Zone] | to_gmt () is equivalent to gap (current ()) UTC.
|
| to_hours [Time_sig.S.Period] |
Number of hours of a period.
|
| to_hours [Time_sig.S] |
Number of hours of a time.
|
| to_int [Time_sig.Second] |
Inverse of
from_int.
|
| to_jd [Calendar_sig.S] | |
| to_jd [Date_sig.S] |
Julian day.
|
| to_minutes [Time_sig.S.Period] |
Number of minutes of a period.
|
| to_minutes [Time_sig.S] |
Number of minutes of a time.
|
| to_mjd [Calendar_sig.S] | |
| to_mjd [Date_sig.S] |
Modified Julian day (i.e.
|
| to_seconds [Time_sig.S.Period] |
Number of seconds of a period.
|
| to_seconds [Time_sig.S] |
Number of seconds of a time.
|
| to_string [Printer.S] |
Same as
sprint d where d is the default format
(see the printer implementations).
|
| to_time [Calendar_sig.S.Period] |
Convert a calendar period to a date period.
|
| to_time [Calendar_sig.S] |
Convert a calendar to a time.
|
| to_unixfloat [Calendar_sig.S] |
Convert a calendar to a float such than
to_unixfloat (make 1970 1 1 0 0 0) returns 0.0 at UTC.
|
| to_unixfloat [Date_sig.S] |
Convert a date to a float such than
to_unixfloat (make 1970 1 1)
returns 0.0.
|
| to_unixtm [Calendar_sig.S] |
Convert a calendar into the
unix.tm type.
|
| to_unixtm [Date_sig.S] |
Convert a date into the
Unix.tm type.
|
| today [Date_sig.S] |
Date of the current day (based on
Time_Zone.current ()).
|
V | |
| version [Version] |
Name of this version.
|
W | |
| week [Calendar_sig.S.Period] | |
| week [Calendar_sig.S] | |
| week [Date_sig.S.Period] | week n makes a period of n weeks.
|
| week [Date_sig.S] |
Week.
|
| week_first_last [Date_sig.S] |
Return the first and last days of a week in a year.
|
| weeks_in_year [Date_sig.S] |
Number of weeks in a year.
|
| withmonday [Date_sig.S] |
Withmonday.
|
| withsunday [Date_sig.S] |
Withsunday.
|
Y | |
| year [Calendar_sig.S.Period] | |
| year [Calendar_sig.S] | |
| year [Date_sig.S.Period] | year n makes a period of n years.
|
| year [Date_sig.S] |
Year.
|
| ymd [Date_sig.S.Period] |
Number of years, months and days in a period.
|
| ymds [Calendar_sig.S.Period] |
Number of years, months, days and seconds in a period.
|
N | |
| Not_computable [Calendar_sig.S.Period] | = Date.Period.Not_computable.
|
| Not_computable [Date_sig.S.Period] | |
O | |
| Out_of_bounds [Date_sig.S] |
Raised when a date is outside the Julian period.
|
U | |
| Undefined [Date_sig.S] |
Raised when a date belongs to
[October 5th, 1582; October 14th, 1582].
|
module Time:Time_sig.S
type
typefield =[ `Hour | `Minute | `Second ]
type
module Second:Time_sig.Secondwith type t = second
val make : int -> int -> second -> tmake hour minute second makes the time hour-minute-second.val lmake : ?hour:int -> ?minute:int -> ?second:second -> unit -> tmake. The default value is 0 for each argument.val now : unit -> tTime_Zone.current ().val midnight : unit -> tmidnight () is midnight (expressed in the current time zone).
So, it has always the same behaviour as make 0 0 0.val midday : unit -> tmidday () is midday (expressed in the current time zone).
So, it has always the same behaviour as make 12 0 0.val convert : t -> Time_Zone.t -> Time_Zone.t -> tconvert t t1 t2 converts the time t expressed in the time zone t1
to the same time expressed in the time zone t2.convert (make 20 0 0) (Time_Zone.GMT_Plus 2)
(Time_Zone.GMT_Plus 4) returns the time 22-0-0.val from_gmt : t -> tfrom_gmt t is equivalent to
convert t Time_Zone.GMT (Time_Zone.current ()).val to_gmt : t -> tto_gmt t is equivalent to
convert t (Time_Zone.current ()) Time_Zone.GMT.val normalize : t -> t * intnormalize t returns t such that hour t belongs to [0; 24[. The
second component of the result is the number of days needed by the
modification.normalize (make 22 0 0) returns the time 22-0-0 and 0,
normalize (make 73 0 0) returns the time 1-0-0 and 3 and normalize
(make (-73) 0 0) returns the time 23-0-0 and (-4).val hour : t -> inthour (make 20 0 0) returns 20.val minute : t -> intminute (make 20 10 0) returns 10.val second : t -> secondsecond (make 20 10 5) returns 5.val to_seconds : t -> secondto_seconds (make 1 2 3) returns 3600 + 120 + 3 = 3723.val to_minutes : t -> floatto_minutes (make 1 2 3) returns 60+2+0.05 = 62.05.val to_hours : t -> floatto_hours (make 1 3 0) returns 1 + 0.05 = 1.05.val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_pm : t -> booltrue is the time is before midday in the current time zone;
false otherwise.is_pm (make 10 0 0) and is_pm (make 34 0 0) return
true.val is_am : t -> booltrue is the time is after midday in the current time zone;
false otherwise.is_am (make 20 0 0) and is_am (make 44 0 0) return
true.val from_seconds : second -> tto_seconds.val from_minutes : float -> tto_minutes.val from_hours : float -> tto_hours.module Period:sig..end
val add : t ->
[< Period.date_field ] Period.period -> tapp t p returns t + p.add (make 20 0 0) (Period.minute 70) returns the time
21:10:0.val sub : t ->
t -> [< Period.date_field ] Period.periodsub t1 t2 returns the period between t1 and t2.val rem : t ->
[< Period.date_field ] Period.period -> trem t p is equivalent to add t (Period.opp p).val next : t -> field -> tnext t f returns the time corresponding to the next specified field.next (make 20 3 31) `Minute returns the time 20:04:31.
(i.e. one minute later).val prev : t -> field -> tprev t f returns the time corresponding to the previous specified
field.prev (make 20 3 31) `Second returns the time 20:03:30
(i.e. one second ago).sig
type t = Calendar.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end calendar-2.04/doc/Fcalendar.html 0000644 0002611 0003721 00000005504 12424135550 015366 0 ustar julien lsl
module Fcalendar:sig..end
This module uses float. Then results may be very unprecise, especially
comparison of calendars which differ with few seconds.
In this case, consider to use module Precise.
Since 2.0
include Calendar_sig.S
module Precise:Calendar_sig.Swith module Date = Date and module Time = Ftime
module Time_sig:sig..end
If minutes and seconds do not belong to [0; 60[, they are coerced into
this interval.
Example: "30 hours, 60 minutes, 80 seconds" is coerced to "31 hours, 1
minute, 20 seconds".
Each time is interpreted in the current time zone (given by
Time_Zone.current ()). So, if you change the time zone (by
Time_Zone.change), each time consequently changes.
If you want to express a time in another time zone (and do not affect
others times), use the convert function.
module type Second =sig..end
module type S =sig..end
sig val version : string val date : string end calendar-2.04/doc/type_Utils.Comparable.html 0000644 0002611 0003721 00000004653 12424135550 017720 0 ustar julien lsl
sig
type t
val equal : Utils.Comparable.t -> Utils.Comparable.t -> bool
val compare : Utils.Comparable.t -> Utils.Comparable.t -> int
val hash : Utils.Comparable.t -> int
end calendar-2.04/doc/type_Utils.Float.html 0000644 0002611 0003721 00000004444 12424135550 016716 0 ustar julien lsl
sig
type t = float
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val set_precision : float -> unit
val round : t -> int
end calendar-2.04/doc/Printer.S.html 0000644 0002611 0003721 00000015064 12424135550 015335 0 ustar julien lsl
module type S =sig..end
type
val fprint : string -> Format.formatter -> t -> unitfprint format formatter x outputs x on formatter according to
the specified format.Invalid_argument if the format is incorrect.val print : string -> t -> unitprint format is equivalent to fprint format Format.std_formatterval dprint : t -> unitprint d where d is the default format
(see the printer implementations).val sprint : string -> t -> stringsprint format date converts date to a string according to
format.val to_string : t -> stringsprint d where d is the default format
(see the printer implementations).val from_fstring : string -> string -> tfrom_fstring format s converts s to a date according to format.
Date padding (i.e. a special directive following '%') and
specifiers %e, %k and %l are not recognized. Specifiers
%a, %A, %j, %v, %w and %W are recognized but mainly ignored:
only the validity of the format is checked.
In order to recognize words (used by %a, %A, %b, %B and %p), a
regular expression is used which can be configured by
Printer.set_word_regexp. When the format has only two digits for the
year number, 1900 are added to this number (see examples).
Raises Invalid_argument if either the format is incorrect or the string
does not match the format or the event cannot be created (e.g. if you do
not specify a year for a date).
Examples:
from_fstring "the date is %B, the %dth %Y" "the date is May,
the 14th 2007" returns a date equivalent to Date.make 2007 5 14 (with
default internationalization).from_fstring "the date is %D" "the date is 01/06/03"
returns a date equivalent to Date.make 1903 1 6val from_string : string -> tfrom_fstring d where d is the default format.module type S =sig..end
typefield =Period.date_field
type -[< field ] date
typet =field date
type
| |
Sun |
| |
Mon |
| |
Tue |
| |
Wed |
| |
Thu |
| |
Fri |
| |
Sat |
type
| |
Jan |
| |
Feb |
| |
Mar |
| |
Apr |
| |
May |
| |
Jun |
| |
Jul |
| |
Aug |
| |
Sep |
| |
Oct |
| |
Nov |
| |
Dec |
typeyear =int
int.exception Out_of_bounds
exception Undefined
[October 5th, 1582; October 14th, 1582].val make : year -> int -> int -> tmake year month day makes the date year-month-day. A BC year y
corresponds to the year -(y+1).Out_of_bounds when a date is outside the Julian period.Undefined when a date belongs to [October 5th, 1582; October
14th, 1582].val lmake : year:year -> ?month:int -> ?day:int -> unit -> tmake.
The default value of month and day is 1.Out_of_bounds when a date is outside the Julian period.Undefined when a date belongs to [October 5th, 1582; October
14th, 1582].val make_year : int -> [< `Year ] datemake_year y makes a date only represented by its year y. The month
and the day of such a date are not relevant.val make_year_month : int -> int -> [< `Month | `Year ] datemake_year_month y m makes a date only represented by its year y and
its month m. The day of such a date is not relevant.val today : unit -> tTime_Zone.current ()).val from_jd : int -> tfrom_jd 0 returns the date 4713 BC-1-1.val from_mjd : int -> tfrom_mjd 0 returns the date 1858-11-17.val from_day_of_year : year -> int -> tfrom_day_of_year 2008 39 returns the date 2008-2-8.val days_in_month : [< field > `Month `Year ] date -> intdays_in_month (make 2003 6 26) returns 30.val day_of_week : t -> dayday_of_week (make 2003 6 26) returns Thu.val day_of_month : t -> intday_of_month (make 2003 6 26) returns 26.val day_of_year : t -> intday_of_year (make 2003 12 28) returns 362.day_of_year (make 2003 1 5) returns 5val week : t -> intweek (make 2003 12 29) returns 1.week (make 2003 12 28) returns 52.week (make 2000 1 2) returns 52.week (make 2000 1 3) returns 1.val month : [< field > `Month ] date -> monthmonth (make 2003 6 26) returns Jun.val year : [< field > `Year ] date -> yearyear (make 2003 6 26) returns 2003.val to_jd : t -> intto_jd (make (-4712) 1 1) returns 0.val to_mjd : t -> intto_mjd (make 1858 11 17) returns 0.val equal : [< field ] date ->
[< field ] date -> bool
val compare : [< field ] date ->
[< field ] date -> int
val hash : [< field ] date -> int
val is_valid_date : year -> int -> int -> boolis_valid_date 2008 2 30 returns falseis_valid_date 2008 2 8 returns trueval is_leap_day : t -> booltrue if a date is a leap day
(i.e. February, 24th of a leap year); false otherwise.val is_gregorian : t -> booltrue if a date belongs to the Gregorian calendar;
false otherwise.val is_julian : t -> booltrue iff a date belongs to the Julian calendar;
false otherwise.val to_unixtm : t -> Unix.tmUnix.tm type.
The field is_isdst is always false. The fields Unix.tm_sec,
Unix.tm_min and Unix.tm_hour are irrelevant.val from_unixtm : Unix.tm -> tto_unixtm. Assume the current time zone.val to_unixfloat : t -> floatto_unixfloat (make 1970 1 1)
returns 0.0. So such a float is convertible with those of the Unix
module. The fractional part of the result is always 0.val from_unixfloat : float -> tto_unixfloat. Ignore the fractional part of the argument.
Assume the current time zone.val to_business : t -> year * int * dayto_business (make 2003 12 29) returns 2004, 1, Mon.to_business (make 2003 12 28) returns 2003, 52, Sunto_business (make 2000 1 2) returns 1999, 52, Sunto_business (make 2000 1 3) returns 2000, 1, Monval from_business : year -> int -> day -> tto_business respecting ISO-8601.
Notice that business weeks at the beginning and end of the year
can sometimes have year numbers which don't match the real year.Invalid_argument if the date is bad.val int_of_day : day -> intval day_of_int : int -> dayint_of_day.Invalid_argument if the argument does not belong to 1; 7.val int_of_month : month -> intval month_of_int : int -> monthint_of_month.Invalid_argument if the argument does not belong to 1; 12.module Period:sig..end
val add : ([< field ] as 'a) date ->
'a Period.period -> 'a dateadd d p returns d + p.Out_of_bounds when the resulting date is outside the Julian
period.Undefined when the resulting date belongs to [October 5th,
1582; October 14th, 1582].add (make 2003 12 31) (Period.month 2) returns the date
2004-3-2 (following the coercion rule describes in the introduction).add (make 2003 12 31) (Period.month 1) returns the date
2004-1-31val sub : ([< field ] as 'a) date ->
'a date ->
[< field > `Day `Week ] Period.periodsub d1 d2 returns the period between d1 and d2.val precise_sub : ([< field ] as 'a) date ->
'a date -> Period.tprecise_sub d1 d2 returns the period between d1 and d2.
It is equivalent to sub, but:val rem : ([< field ] as 'a) date ->
'a Period.period -> 'a daterem d p is equivalent to add d (Period.opp p).Out_of_bounds when the resulting date is outside the Julian
period.Undefined when the resulting date belongs to [October 5th,
1582; October 14th, 1582].val next : ([< field ] as 'a) date -> 'a -> 'a datenext d f returns the date corresponding to the next specified field.Out_of_bounds when the resulting date is outside the Julian
period.Undefined when the resulting date belongs to [October 5th,
1582; October 14th, 1582].next (make 2003 12 31) `Month returns the date 2004-1-31
(i.e. one month later).val prev : ([< field ] as 'a) date -> 'a -> 'a dateprev d f returns the date corresponding to the previous specified
field.Out_of_bounds when the resulting date is outside the Julian
period.Undefined when the resulting date belongs to [October 5th,
1582; October 14th, 1582].prev (make 2003 12 31) `Year returns the date 2002-12-31
(i.e. one year ago).val is_leap_year : year -> booltrue if a year is a leap year; false otherwise.val same_calendar : year -> year -> booltrue if two years have the same calendar; false
otherwise.val days_in_year : ?month:month -> year -> int
days_in_year ~month y returns the number of days in the year y up
to the end of the given month. Thus days_in_year ~month:Dec y is the
same as days_in_year y.
val weeks_in_year : year -> intval week_first_last : int -> year -> t * tval nth_weekday_of_month : year -> month -> day -> int -> tnth_weekday_of_month y m d n returns the n-th day d in the month
m of the year y (for instance the 3rd Thursday of the month).val century : year -> intcentury 2001 returns 21.century 2000 returns 20val millenium : year -> intmillenium 2001 returns 3.millenium 2000 returns 2val solar_number : year -> int
In the Julian calendar there is a one-to-one relationship between the
Solar number and the day on which a particular date falls.
val indiction : year -> intThe Indiction was used in the middle ages to specify the position of a year in a 15 year taxation cycle. It was introduced by emperor Constantine the Great on 1 September 312 and ceased to be used in 1806.
The Indiction has no astronomical significance.
val golden_number : year -> int
Considering that the relationship between the moon's phases and the
days of the year repeats itself every 19 years, it is natural to
associate a number between 1 and 19 with each year.
This number is the so-called Golden number.
val epact : year -> int
The Epact is a measure of the age of the moon (i.e. the number of days
that have passed since an "official" new moon) on a particular date.
val easter : year -> t
In the Christian world, Easter (and the days immediately preceding it)
is the celebration of the death and resurrection of Jesus in
(approximately) AD 30.
: year -> tcarnaval y is easter y - 48.val mardi_gras : year -> tmardi_gras y is easter y - 47.val ash : year -> tash y is easter y - 46.val palm : year -> tpalm y is easter y - 7.val easter_friday : year -> teaster_friday y is easter y - 2.val easter_saturday : year -> teaster_saturday y is easter y - 1.val easter_monday : year -> teaster_monday y is easter y + 1.val ascension : year -> tascension y is easter y + 39.val withsunday : year -> twithsunday y is easter y + 49.val withmonday : year -> twithmonday y is easter y + 50.val corpus_christi : year -> tcorpus_christi y is easter + 60.sig
type t
val from_int : int -> Time_sig.Second.t
val from_float : float -> Time_sig.Second.t
val to_int : Time_sig.Second.t -> int
val to_float : Time_sig.Second.t -> float
end calendar-2.04/doc/type_Time_Zone.html 0000644 0002611 0003721 00000006545 12424135550 016447 0 ustar julien lsl
sig
type t = UTC | Local | UTC_Plus of int
val current : unit -> Time_Zone.t
val change : Time_Zone.t -> unit
val gap : Time_Zone.t -> Time_Zone.t -> int
val from_gmt : unit -> int
val to_gmt : unit -> int
val is_dst : unit -> bool
val hour_of_dst : unit -> int
val on : ('a -> 'b) -> Time_Zone.t -> 'a -> 'b
end calendar-2.04/doc/type_Date_sig.html 0000644 0002611 0003721 00000110664 12424135550 016273 0 ustar julien lsl
sig
module type S =
sig
type field = Period.date_field
type -'a date constraint 'a = [< Date_sig.S.field ]
type t = Date_sig.S.field Date_sig.S.date
type day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = int
exception Out_of_bounds
exception Undefined
val make : Date_sig.S.year -> int -> int -> Date_sig.S.t
val lmake :
year:Date_sig.S.year ->
?month:int -> ?day:int -> unit -> Date_sig.S.t
val make_year : int -> [< `Year ] Date_sig.S.date
val make_year_month : int -> int -> [< `Month | `Year ] Date_sig.S.date
val today : unit -> Date_sig.S.t
val from_jd : int -> Date_sig.S.t
val from_mjd : int -> Date_sig.S.t
val from_day_of_year : Date_sig.S.year -> int -> Date_sig.S.t
val days_in_month :
[< Date_sig.S.field > `Month `Year ] Date_sig.S.date -> int
val day_of_week : Date_sig.S.t -> Date_sig.S.day
val day_of_month : Date_sig.S.t -> int
val day_of_year : Date_sig.S.t -> int
val week : Date_sig.S.t -> int
val month :
[< Date_sig.S.field > `Month ] Date_sig.S.date -> Date_sig.S.month
val year :
[< Date_sig.S.field > `Year ] Date_sig.S.date -> Date_sig.S.year
val to_jd : Date_sig.S.t -> int
val to_mjd : Date_sig.S.t -> int
val equal :
[< Date_sig.S.field ] Date_sig.S.date ->
[< Date_sig.S.field ] Date_sig.S.date -> bool
val compare :
[< Date_sig.S.field ] Date_sig.S.date ->
[< Date_sig.S.field ] Date_sig.S.date -> int
val hash : [< Date_sig.S.field ] Date_sig.S.date -> int
val is_valid_date : Date_sig.S.year -> int -> int -> bool
val is_leap_day : Date_sig.S.t -> bool
val is_gregorian : Date_sig.S.t -> bool
val is_julian : Date_sig.S.t -> bool
val to_unixtm : Date_sig.S.t -> Unix.tm
val from_unixtm : Unix.tm -> Date_sig.S.t
val to_unixfloat : Date_sig.S.t -> float
val from_unixfloat : float -> Date_sig.S.t
val to_business :
Date_sig.S.t -> Date_sig.S.year * int * Date_sig.S.day
val from_business :
Date_sig.S.year -> int -> Date_sig.S.day -> Date_sig.S.t
val int_of_day : Date_sig.S.day -> int
val day_of_int : int -> Date_sig.S.day
val int_of_month : Date_sig.S.month -> int
val month_of_int : int -> Date_sig.S.month
module Period :
sig
type +'a p constraint 'a = [< Date_sig.S.field ]
type +'a period = 'a p constraint 'a = [< field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> Date_sig.S.t
val lmake :
?year:int -> ?month:int -> ?day:int -> unit -> Date_sig.S.t
val year : int -> [< Date_sig.S.field > `Year ] period
val month : int -> [< Date_sig.S.field > `Month `Year ] period
val week : int -> [< Date_sig.S.field > `Day `Week ] period
val day : int -> [< Date_sig.S.field > `Day `Week ] period
exception Not_computable
val nb_days : [< Date_sig.S.field ] period -> int
val safe_nb_days : [< `Day | `Week ] period -> int
val ymd : [< Date_sig.S.field ] period -> int * int * int
end
val add :
([< Date_sig.S.field ] as 'a) Date_sig.S.date ->
'a Date_sig.S.Period.period -> 'a Date_sig.S.date
val sub :
([< Date_sig.S.field ] as 'a) Date_sig.S.date ->
'a Date_sig.S.date ->
[< Date_sig.S.field > `Day `Week ] Date_sig.S.Period.period
val precise_sub :
([< Date_sig.S.field ] as 'a) Date_sig.S.date ->
'a Date_sig.S.date -> Date_sig.S.Period.t
val rem :
([< Date_sig.S.field ] as 'a) Date_sig.S.date ->
'a Date_sig.S.Period.period -> 'a Date_sig.S.date
val next :
([< Date_sig.S.field ] as 'a) Date_sig.S.date ->
'a -> 'a Date_sig.S.date
val prev :
([< Date_sig.S.field ] as 'a) Date_sig.S.date ->
'a -> 'a Date_sig.S.date
val is_leap_year : Date_sig.S.year -> bool
val same_calendar : Date_sig.S.year -> Date_sig.S.year -> bool
val days_in_year : ?month:Date_sig.S.month -> Date_sig.S.year -> int
val weeks_in_year : Date_sig.S.year -> int
val week_first_last :
int -> Date_sig.S.year -> Date_sig.S.t * Date_sig.S.t
val nth_weekday_of_month :
Date_sig.S.year ->
Date_sig.S.month -> Date_sig.S.day -> int -> Date_sig.S.t
val century : Date_sig.S.year -> int
val millenium : Date_sig.S.year -> int
val solar_number : Date_sig.S.year -> int
val indiction : Date_sig.S.year -> int
val golden_number : Date_sig.S.year -> int
val epact : Date_sig.S.year -> int
val easter : Date_sig.S.year -> Date_sig.S.t
val carnaval : Date_sig.S.year -> Date_sig.S.t
val mardi_gras : Date_sig.S.year -> Date_sig.S.t
val ash : Date_sig.S.year -> Date_sig.S.t
val palm : Date_sig.S.year -> Date_sig.S.t
val easter_friday : Date_sig.S.year -> Date_sig.S.t
val easter_saturday : Date_sig.S.year -> Date_sig.S.t
val easter_monday : Date_sig.S.year -> Date_sig.S.t
val ascension : Date_sig.S.year -> Date_sig.S.t
val withsunday : Date_sig.S.year -> Date_sig.S.t
val withmonday : Date_sig.S.year -> Date_sig.S.t
val corpus_christi : Date_sig.S.year -> Date_sig.S.t
end
end calendar-2.04/doc/type_Time.html 0000644 0002611 0003721 00000034431 12424135550 015447 0 ustar julien lsl
sig
type t
type field = [ `Hour | `Minute | `Second ]
type second = int
module Second :
sig
type t = second
val from_int : int -> t
val from_float : float -> t
val to_int : t -> int
val to_float : t -> float
end
val make : int -> int -> second -> t
val lmake : ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val now : unit -> t
val midnight : unit -> t
val midday : unit -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val from_gmt : t -> t
val to_gmt : t -> t
val normalize : t -> t * int
val hour : t -> int
val minute : t -> int
val second : t -> second
val to_seconds : t -> second
val to_minutes : t -> float
val to_hours : t -> float
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_pm : t -> bool
val is_am : t -> bool
val from_seconds : second -> t
val from_minutes : float -> t
val from_hours : float -> t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period -> [< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val length : [< Period.date_field ] period -> second
val mul :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val div :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val make : int -> int -> second -> [< Period.date_field ] period
val lmake :
?hour:int ->
?minute:int ->
?second:second -> unit -> [< Period.date_field ] period
val hour : int -> [< Period.date_field ] period
val minute : int -> [< Period.date_field ] period
val second : second -> [< Period.date_field ] period
val to_seconds : [< Period.date_field ] period -> second
val to_minutes : [< Period.date_field ] period -> float
val to_hours : [< Period.date_field ] period -> float
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field ] Period.period
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end calendar-2.04/doc/Time_sig.S.Second.html 0000644 0002611 0003721 00000006222 12424135550 016660 0 ustar julien lsl
module Second:Time_sig.Secondwith type t = second
type
val from_int : int -> tval from_float : float -> tval to_int : t -> intfrom_int.val to_float : t -> floatfrom_float.module Make:
This module uses float. Then results may be very unprecise.
Since 2.0
| Parameters: |
|
module Date:Date_sig.S
module Time:Time_sig.S
type
typeday =Date.day=
| |
Sun |
|||
| |
Mon |
|||
| |
Tue |
|||
| |
Wed |
|||
| |
Thu |
|||
| |
Fri |
|||
| |
Sat |
(* | Days of the week. | *) |
typemonth =Date.month=
| |
Jan |
|||
| |
Feb |
|||
| |
Mar |
|||
| |
Apr |
|||
| |
May |
|||
| |
Jun |
|||
| |
Jul |
|||
| |
Aug |
|||
| |
Sep |
|||
| |
Oct |
|||
| |
Nov |
|||
| |
Dec |
(* | Months of the year. | *) |
typeyear =Date.year
typesecond =Time.second
typefield =[ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make : int -> int -> int -> int -> int -> second -> tmake year month day hour minute second makes the calendar
"year-month-day; hour-minute-second".D.Out_of_bounds when a date is outside the Julian period.D.Undefined when a date belongs to [October 5th, 1582; October
14th, 1582].val lmake : year:int ->
?month:int ->
?day:int ->
?hour:int ->
?minute:int -> ?second:second -> unit -> tmake.
The default value of month and day (resp. of hour, minute
and second) is 1 (resp. 0).D.Out_of_bounds when a date is outside the Julian period.D.Undefined when a date belongs to [October 5th, 1582; October
14th, 1582].val create : Date.t -> Time.t -> tcreate d t creates a calendar from the given date and time.val now : unit -> tnow () returns the current date and time (in the current time
zone).val from_jd : float -> tDate.from_jd: the fractional part represents the
time.val from_mjd : float -> tJulian day - 2 400 000.5 (more precise than Date.from_mjd).Time_sig.S.val convert : t -> Time_Zone.t -> Time_Zone.t -> tval to_gmt : t -> tval from_gmt : t -> tDate_sig.S.val days_in_month : t -> intval day_of_week : t -> dayval day_of_month : t -> intval day_of_year : t -> intval week : t -> intval month : t -> monthval year : t -> intto_jd and to_mjd are more precise than Date_sig.S.to_jd and
Date_sig.S.to_mjd.val to_jd : t -> floatval to_mjd : t -> floatTime_sig.S.val hour : t -> intval minute : t -> intval second : t -> secondval equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
Date_sig.S.val is_leap_day : t -> boolval is_gregorian : t -> boolval is_julian : t -> boolTime_sig.S.val is_pm : t -> boolval is_am : t -> boolval to_unixtm : t -> Unix.tmunix.tm type.
The field isdst is always false. More precise than
Date_sig.S.to_unixtm.val from_unixtm : Unix.tm -> tto_unixtm. Assumes the current time zone.
So, The following invariant holds:
hour (from_unixtm u) = u.Unix.tm_hour.val to_unixfloat : t -> floatto_unixfloat (make 1970 1 1 0 0 0) returns 0.0 at UTC.
So such a float is convertible with those of the module Unix.
More precise than Date_sig.S.to_unixfloat.val from_unixfloat : float -> tto_unixfloat. Assumes the current time zone.
So, the following invariant holds:
hour (from_unixfloat u) = (Unix.gmtime u).Unix.tm_hour.val from_date : Date.t -> tval to_date : t -> Date.tval to_time : t -> Time.tmodule Period:sig..end
Date_sig.S.val add : t ->
[< Period.date_field ] Period.period -> tval sub : t ->
t ->
[< Period.date_field > `Day `Week ] Period.periodval precise_sub : t -> t -> Period.t
val rem : t ->
[< Period.date_field ] Period.period -> tval next : t -> field -> tval prev : t -> field -> tmodule Ftime:sig..end
This module uses float. Then results may be very unprecise.
Since 2.0
include Time_sig.Scalendar-2.04/doc/style.css 0000644 0002611 0003721 00000005504 12424135550 014473 0 ustar julien lsl .keyword { font-weight : bold ; color : Red } .keywordsign { color : #C04600 } .superscript { font-size : 4 } .subscript { font-size : 4 } .comment { color : Green } .constructor { color : Blue } .type { color : #5C6585 } .string { color : Maroon } .warning { color : Red ; font-weight : bold } .info { margin-left : 3em; margin-right: 3em } .param_info { margin-top: 4px; margin-left : 3em; margin-right : 3em } .code { color : #465F91 ; } .typetable { border-style : hidden } .paramstable { border-style : hidden ; padding: 5pt 5pt} tr { background-color : White } td.typefieldcomment { background-color : #FFFFFF ; font-size: smaller ;} div.sig_block {margin-left: 2em} *:target { background: yellow; } body {font: 13px sans-serif; color: black; text-align: left; padding: 5px; margin: 0} h1 { font-size : 20pt ; text-align: center; } h2 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #90BDFF ;padding: 2px; } h3 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #90DDFF ;padding: 2px; } h4 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #90EDFF ;padding: 2px; } h5 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #90FDFF ;padding: 2px; } h6 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #90BDFF ; padding: 2px; } div.h7 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #E0FFFF ; padding: 2px; } div.h8 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #F0FFFF ; padding: 2px; } div.h9 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #FFFFFF ; padding: 2px; } a {color: #416DFF; text-decoration: none} a:hover {background-color: #ddd; text-decoration: underline} pre { margin-bottom: 4px; font-family: monospace; } pre.verbatim, pre.codepre { } .indextable {border: 1px #ddd solid; border-collapse: collapse} .indextable td, .indextable th {border: 1px #ddd solid; min-width: 80px} .indextable td.module {background-color: #eee ; padding-left: 2px; padding-right: 2px} .indextable td.module a {color: 4E6272; text-decoration: none; display: block; width: 100%} .indextable td.module a:hover {text-decoration: underline; background-color: transparent} .deprecated {color: #888; font-style: italic} .indextable tr td div.info { margin-left: 2px; margin-right: 2px } ul.indexlist { margin-left: 0; padding-left: 0;} ul.indexlist li { list-style-type: none ; margin-left: 0; padding-left: 0; } calendar-2.04/doc/Time_sig.S.html 0000644 0002611 0003721 00000037531 12424135550 015455 0 ustar julien lsl
module type S =sig..end
type
typefield =[ `Hour | `Minute | `Second ]
type
module Second:Time_sig.Secondwith type t = second
val make : int -> int -> second -> tmake hour minute second makes the time hour-minute-second.val lmake : ?hour:int -> ?minute:int -> ?second:second -> unit -> tmake. The default value is 0 for each argument.val now : unit -> tTime_Zone.current ().val midnight : unit -> tmidnight () is midnight (expressed in the current time zone).
So, it has always the same behaviour as make 0 0 0.val midday : unit -> tmidday () is midday (expressed in the current time zone).
So, it has always the same behaviour as make 12 0 0.val convert : t -> Time_Zone.t -> Time_Zone.t -> tconvert t t1 t2 converts the time t expressed in the time zone t1
to the same time expressed in the time zone t2.convert (make 20 0 0) (Time_Zone.GMT_Plus 2)
(Time_Zone.GMT_Plus 4) returns the time 22-0-0.val from_gmt : t -> tfrom_gmt t is equivalent to
convert t Time_Zone.GMT (Time_Zone.current ()).val to_gmt : t -> tto_gmt t is equivalent to
convert t (Time_Zone.current ()) Time_Zone.GMT.val normalize : t -> t * intnormalize t returns t such that hour t belongs to [0; 24[. The
second component of the result is the number of days needed by the
modification.normalize (make 22 0 0) returns the time 22-0-0 and 0,
normalize (make 73 0 0) returns the time 1-0-0 and 3 and normalize
(make (-73) 0 0) returns the time 23-0-0 and (-4).val hour : t -> inthour (make 20 0 0) returns 20.val minute : t -> intminute (make 20 10 0) returns 10.val second : t -> secondsecond (make 20 10 5) returns 5.val to_seconds : t -> secondto_seconds (make 1 2 3) returns 3600 + 120 + 3 = 3723.val to_minutes : t -> floatto_minutes (make 1 2 3) returns 60+2+0.05 = 62.05.val to_hours : t -> floatto_hours (make 1 3 0) returns 1 + 0.05 = 1.05.val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_pm : t -> booltrue is the time is before midday in the current time zone;
false otherwise.is_pm (make 10 0 0) and is_pm (make 34 0 0) return
true.val is_am : t -> booltrue is the time is after midday in the current time zone;
false otherwise.is_am (make 20 0 0) and is_am (make 44 0 0) return
true.val from_seconds : second -> tto_seconds.val from_minutes : float -> tto_minutes.val from_hours : float -> tto_hours.module Period:sig..end
val add : t ->
[< Period.date_field ] Period.period -> tapp t p returns t + p.add (make 20 0 0) (Period.minute 70) returns the time
21:10:0.val sub : t ->
t -> [< Period.date_field ] Period.periodsub t1 t2 returns the period between t1 and t2.val rem : t ->
[< Period.date_field ] Period.period -> trem t p is equivalent to add t (Period.opp p).val next : t -> field -> tnext t f returns the time corresponding to the next specified field.next (make 20 3 31) `Minute returns the time 20:04:31.
(i.e. one minute later).val prev : t -> field -> tprev t f returns the time corresponding to the previous specified
field.prev (make 20 3 31) `Second returns the time 20:03:30
(i.e. one second ago).module Float:sig..end
include Utils.Comparable
val set_precision : float -> unitequal and compare for float.
If the precision is p, then the floats x and y are equal iff
abs(x-y) < p. By default, the precision is 1e-3 (that is one
millisecond if floats represents seconds).val round : t -> intTime_sig.S calendar-2.04/doc/Time.html 0000644 0002611 0003721 00000004277 12424135550 014413 0 ustar julien lsl
module Time:sig..end
include Time_sig.Scalendar-2.04/doc/type_Calendar_sig.html 0000644 0002611 0003721 00000113451 12424135550 017124 0 ustar julien lsl
sig
module type S =
sig
module Date : Date_sig.S
module Time : Time_sig.S
type t
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = Date.year
type second = Time.second
type field =
[ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make :
int ->
int -> int -> int -> int -> Calendar_sig.S.second -> Calendar_sig.S.t
val lmake :
year:int ->
?month:int ->
?day:int ->
?hour:int ->
?minute:int ->
?second:Calendar_sig.S.second -> unit -> Calendar_sig.S.t
val create : Date.t -> Time.t -> Calendar_sig.S.t
val now : unit -> Calendar_sig.S.t
val from_jd : float -> Calendar_sig.S.t
val from_mjd : float -> Calendar_sig.S.t
val convert :
Calendar_sig.S.t -> Time_Zone.t -> Time_Zone.t -> Calendar_sig.S.t
val to_gmt : Calendar_sig.S.t -> Calendar_sig.S.t
val from_gmt : Calendar_sig.S.t -> Calendar_sig.S.t
val days_in_month : Calendar_sig.S.t -> int
val day_of_week : Calendar_sig.S.t -> Calendar_sig.S.day
val day_of_month : Calendar_sig.S.t -> int
val day_of_year : Calendar_sig.S.t -> int
val week : Calendar_sig.S.t -> int
val month : Calendar_sig.S.t -> Calendar_sig.S.month
val year : Calendar_sig.S.t -> int
val to_jd : Calendar_sig.S.t -> float
val to_mjd : Calendar_sig.S.t -> float
val hour : Calendar_sig.S.t -> int
val minute : Calendar_sig.S.t -> int
val second : Calendar_sig.S.t -> Calendar_sig.S.second
val equal : Calendar_sig.S.t -> Calendar_sig.S.t -> bool
val compare : Calendar_sig.S.t -> Calendar_sig.S.t -> int
val hash : Calendar_sig.S.t -> int
val is_leap_day : Calendar_sig.S.t -> bool
val is_gregorian : Calendar_sig.S.t -> bool
val is_julian : Calendar_sig.S.t -> bool
val is_pm : Calendar_sig.S.t -> bool
val is_am : Calendar_sig.S.t -> bool
val to_unixtm : Calendar_sig.S.t -> Unix.tm
val from_unixtm : Unix.tm -> Calendar_sig.S.t
val to_unixfloat : Calendar_sig.S.t -> float
val from_unixfloat : float -> Calendar_sig.S.t
val from_date : Date.t -> Calendar_sig.S.t
val to_date : Calendar_sig.S.t -> Date.t
val to_time : Calendar_sig.S.t -> Time.t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field Calendar_sig.S.Period.period
val empty : [< Period.date_field ] Calendar_sig.S.Period.period
val add :
([< Period.date_field > `Day `Week ] as 'a)
Calendar_sig.S.Period.period ->
'a Calendar_sig.S.Period.period ->
'a Calendar_sig.S.Period.period
val sub :
([< Period.date_field > `Day `Week ] as 'a)
Calendar_sig.S.Period.period ->
'a Calendar_sig.S.Period.period ->
'a Calendar_sig.S.Period.period
val opp :
([< Period.date_field > `Day `Week ] as 'a)
Calendar_sig.S.Period.period -> 'a Calendar_sig.S.Period.period
val equal :
[< Period.date_field ] Calendar_sig.S.Period.period ->
[< Period.date_field ] Calendar_sig.S.Period.period -> bool
val compare :
[< Period.date_field ] Calendar_sig.S.Period.period ->
[< Period.date_field ] Calendar_sig.S.Period.period -> int
val hash :
[< Period.date_field ] Calendar_sig.S.Period.period -> int
val make :
int ->
int ->
int ->
int -> int -> Calendar_sig.S.second -> Calendar_sig.S.Period.t
val lmake :
?year:int ->
?month:int ->
?day:int ->
?hour:int ->
?minute:int ->
?second:Calendar_sig.S.second -> unit -> Calendar_sig.S.Period.t
val year :
int ->
[< Period.date_field > `Year ] Calendar_sig.S.Period.period
val month :
int ->
[< Period.date_field > `Month `Year ]
Calendar_sig.S.Period.period
val week :
int ->
[< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val day :
int ->
[< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val hour :
int ->
[< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val minute :
int ->
[< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val second :
Calendar_sig.S.second ->
[< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val from_date :
([< Period.date_field ] as 'a) Date.Period.period ->
'a Calendar_sig.S.Period.period
val from_time :
([< Period.date_field ] as 'a) Time.Period.period ->
'a Calendar_sig.S.Period.period
val to_date :
([< Date.field ] as 'a) Calendar_sig.S.Period.period ->
'a Date.Period.period
exception Not_computable
val to_time :
([< Period.date_field ] as 'a) Calendar_sig.S.Period.period ->
'a Time.Period.period
val safe_to_time :
([< `Day | `Week ] as 'a) Calendar_sig.S.Period.period ->
'a Time.Period.period
val ymds :
[< Period.date_field ] Calendar_sig.S.Period.period ->
int * int * int * Calendar_sig.S.second
end
val add :
Calendar_sig.S.t ->
[< Period.date_field ] Calendar_sig.S.Period.period ->
Calendar_sig.S.t
val sub :
Calendar_sig.S.t ->
Calendar_sig.S.t ->
[< Period.date_field > `Day `Week ] Calendar_sig.S.Period.period
val precise_sub :
Calendar_sig.S.t -> Calendar_sig.S.t -> Calendar_sig.S.Period.t
val rem :
Calendar_sig.S.t ->
[< Period.date_field ] Calendar_sig.S.Period.period ->
Calendar_sig.S.t
val next : Calendar_sig.S.t -> Calendar_sig.S.field -> Calendar_sig.S.t
val prev : Calendar_sig.S.t -> Calendar_sig.S.field -> Calendar_sig.S.t
end
end calendar-2.04/doc/Time_Zone.html 0000644 0002611 0003721 00000015524 12424135550 015403 0 ustar julien lsl
module Time_Zone:sig..end
You can change the current time zone in your program by side effect.
type
| |
UTC |
(* | Greenwich Meridian Time | *) |
| |
Local |
(* | Local Time | *) |
| |
UTC_Plus of |
(* | Another time zone specified from UTC | *) |
val current : unit -> tUTC before any change.val change : t -> unitInvalid_argument if the specified time zone is UTC_Plus x with
x < -12 or x > 11val gap : t -> t -> intgap UTC (UTC_Plus 5) returns 5 and, at Paris in summer,
gap Local UTC returns -2.val from_gmt : unit -> intfrom_gmt () is equivalent to gap UTC (current ()).val to_gmt : unit -> intto_gmt () is equivalent to gap (current ()) UTC.val is_dst : unit -> boolis_dst () checks if daylight saving time is in effect.
Only relevant in local time.
Returns alway false in another time zone.val hour_of_dst : unit -> inthour_of_dst () returns 1 if is_dst () and 0 otherwise.val on : ('a -> 'b) -> t -> 'a -> 'bon f tz x changes the time zone to tz, then computes f x, and
finally reset the time zone to the initial one and returns the result of
the computation.module Period:sig..end
Time.Period, Date.Period and Calendar.Period).typedate_field =[ `Day | `Month | `Week | `Year ]
module type S =sig..end
sig
type t = Fcalendar.Precise.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end calendar-2.04/doc/type_Date_sig.S.Period.html 0000644 0002611 0003721 00000016766 12424135550 017725 0 ustar julien lsl
sig
type +'a p constraint 'a = [< Date_sig.S.field ]
type +'a period = 'a p constraint 'a = [< field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add : ([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub : ([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period -> [< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period -> [< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> Date_sig.S.t
val lmake : ?year:int -> ?month:int -> ?day:int -> unit -> Date_sig.S.t
val year : int -> [< Date_sig.S.field > `Year ] period
val month : int -> [< Date_sig.S.field > `Month `Year ] period
val week : int -> [< Date_sig.S.field > `Day `Week ] period
val day : int -> [< Date_sig.S.field > `Day `Week ] period
exception Not_computable
val nb_days : [< Date_sig.S.field ] period -> int
val safe_nb_days : [< `Day | `Week ] period -> int
val ymd : [< Date_sig.S.field ] period -> int * int * int
end calendar-2.04/doc/Utils.html 0000644 0002611 0003721 00000005530 12424135550 014606 0 ustar julien lsl
module Utils:sig..end
module type Comparable =sig..end
module Int:Comparablewith type t = int
module Float:sig..end
sig
module Date :
sig
type field = Period.date_field
type -'a date = 'a Date.date constraint 'a = [< field ]
type t = field date
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = int
exception Out_of_bounds
exception Undefined
val make : year -> int -> int -> t
val lmake : year:year -> ?month:int -> ?day:int -> unit -> t
val make_year : int -> [< `Year ] date
val make_year_month : int -> int -> [< `Month | `Year ] date
val today : unit -> t
val from_jd : int -> t
val from_mjd : int -> t
val from_day_of_year : year -> int -> t
val days_in_month : [< field > `Month `Year ] date -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : [< field > `Month ] date -> month
val year : [< field > `Year ] date -> year
val to_jd : t -> int
val to_mjd : t -> int
val equal : [< field ] date -> [< field ] date -> bool
val compare : [< field ] date -> [< field ] date -> int
val hash : [< field ] date -> int
val is_valid_date : year -> int -> int -> bool
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val to_business : t -> year * int * day
val from_business : year -> int -> day -> t
val int_of_day : day -> int
val day_of_int : int -> day
val int_of_month : month -> int
val month_of_int : int -> month
module Period :
sig
type +'a p = 'a Date.Period.p constraint 'a = [< field ]
type +'a period = 'a p constraint 'a = [< field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> t
val lmake : ?year:int -> ?month:int -> ?day:int -> unit -> t
val year : int -> [< field > `Year ] period
val month : int -> [< field > `Month `Year ] period
val week : int -> [< field > `Day `Week ] period
val day : int -> [< field > `Day `Week ] period
exception Not_computable
val nb_days : [< field ] period -> int
val safe_nb_days : [< `Day | `Week ] period -> int
val ymd : [< field ] period -> int * int * int
end
val add : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val sub :
([< field ] as 'a) date ->
'a date -> [< field > `Day `Week ] Period.period
val precise_sub : ([< field ] as 'a) date -> 'a date -> Period.t
val rem : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val next : ([< field ] as 'a) date -> 'a -> 'a date
val prev : ([< field ] as 'a) date -> 'a -> 'a date
val is_leap_year : year -> bool
val same_calendar : year -> year -> bool
val days_in_year : ?month:month -> year -> int
val weeks_in_year : year -> int
val week_first_last : int -> year -> t * t
val nth_weekday_of_month : year -> month -> day -> int -> t
val century : year -> int
val millenium : year -> int
val solar_number : year -> int
val indiction : year -> int
val golden_number : year -> int
val epact : year -> int
val easter : year -> t
val carnaval : year -> t
val mardi_gras : year -> t
val ash : year -> t
val palm : year -> t
val easter_friday : year -> t
val easter_saturday : year -> t
val easter_monday : year -> t
val ascension : year -> t
val withsunday : year -> t
val withmonday : year -> t
val corpus_christi : year -> t
end
module Time :
sig
type t = Ftime.t
type field = [ `Hour | `Minute | `Second ]
type second = float
module Second :
sig
type t = second
val from_int : int -> t
val from_float : float -> t
val to_int : t -> int
val to_float : t -> float
end
val make : int -> int -> second -> t
val lmake : ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val now : unit -> t
val midnight : unit -> t
val midday : unit -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val from_gmt : t -> t
val to_gmt : t -> t
val normalize : t -> t * int
val hour : t -> int
val minute : t -> int
val second : t -> second
val to_seconds : t -> second
val to_minutes : t -> float
val to_hours : t -> float
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_pm : t -> bool
val is_am : t -> bool
val from_seconds : second -> t
val from_minutes : float -> t
val from_hours : float -> t
module Period :
sig
type +'a period = 'a Ftime.Period.period
constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val length : [< Period.date_field ] period -> second
val mul :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val div :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val make : int -> int -> second -> [< Period.date_field ] period
val lmake :
?hour:int ->
?minute:int ->
?second:second -> unit -> [< Period.date_field ] period
val hour : int -> [< Period.date_field ] period
val minute : int -> [< Period.date_field ] period
val second : second -> [< Period.date_field ] period
val to_seconds : [< Period.date_field ] period -> second
val to_minutes : [< Period.date_field ] period -> float
val to_hours : [< Period.date_field ] period -> float
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field ] Period.period
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end
type t
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = Date.year
type second = Time.second
type field = [ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
year:int ->
?month:int ->
?day:int -> ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val create : Date.t -> Time.t -> t
val now : unit -> t
val from_jd : float -> t
val from_mjd : float -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val to_gmt : t -> t
val from_gmt : t -> t
val days_in_month : t -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : t -> month
val year : t -> int
val to_jd : t -> float
val to_mjd : t -> float
val hour : t -> int
val minute : t -> int
val second : t -> second
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val is_pm : t -> bool
val is_am : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val from_date : Date.t -> t
val to_date : t -> Date.t
val to_time : t -> Time.t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val opp :
([< Period.date_field > `Day `Week ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period -> [< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
?year:int ->
?month:int ->
?day:int -> ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val year : int -> [< Period.date_field > `Year ] period
val month : int -> [< Period.date_field > `Month `Year ] period
val week : int -> [< Period.date_field > `Day `Week ] period
val day : int -> [< Period.date_field > `Day `Week ] period
val hour : int -> [< Period.date_field > `Day `Week ] period
val minute : int -> [< Period.date_field > `Day `Week ] period
val second : second -> [< Period.date_field > `Day `Week ] period
val from_date :
([< Period.date_field ] as 'a) Date.Period.period -> 'a period
val from_time :
([< Period.date_field ] as 'a) Time.Period.period -> 'a period
val to_date : ([< Date.field ] as 'a) period -> 'a Date.Period.period
exception Not_computable
val to_time :
([< Period.date_field ] as 'a) period -> 'a Time.Period.period
val safe_to_time :
([< `Day | `Week ] as 'a) period -> 'a Time.Period.period
val ymds : [< Period.date_field ] period -> int * int * int * second
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field > `Day `Week ] Period.period
val precise_sub : t -> t -> Period.t
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end calendar-2.04/doc/index_classes.html 0000644 0002611 0003721 00000003030 12424135550 016323 0 ustar julien lsl
D | |
| date [Date_sig.S] |
Type of a date, without specifying any precision level.
|
| date_field [Period] | |
| day [Calendar_sig.S] | |
| day [Date_sig.S] |
Days of the week.
|
F | |
| field [Calendar_sig.S] |
The different fields of a calendar.
|
| field [Date_sig.S] |
The different fields of a date.
|
| field [Time_sig.S] |
The different fields of a time.
|
M | |
| month [Calendar_sig.S] | |
| month [Date_sig.S] |
Months of the year.
|
P | |
| p [Date_sig.S.Period] | |
| period [Calendar_sig.S.Period] | |
| period [Period.S] | |
S | |
| second [Calendar_sig.S] | |
| second [Time_sig.S] |
Type of a second.
|
T | |
| t [Printer.S] |
Generic type of a printer.
|
| t [Calendar_sig.S.Period] |
Type of a period.
|
| t [Calendar_sig.S] | |
| t [Date_sig.S] |
Type of a date.
|
| t [Time_sig.S] |
Type of a time.
|
| t [Time_sig.Second] |
Type of seconds.
|
| t [Period.S] |
Type of a period.
|
| t [Time_Zone] |
Type of a time zone.
|
| t [Utils.Comparable] | |
Y | |
| year [Calendar_sig.S] |
Year as an int
|
| year [Date_sig.S] |
Year as an
int.
|
module Calendar_sig:sig..end
If you only need operations on dates, you should better use a date
implementation (like module Date). But if you need to manage more precise
dates, use this module. The exact Julian period is now [January, 1st 4713
BC at midday GMT; January 22th, 3268 AC at midday GMT].
module type S =sig..end
sig
type t = Ftime.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end calendar-2.04/doc/Calendar_builder.html 0000644 0002611 0003721 00000010321 12424135550 016717 0 ustar julien lsl
module Calendar_builder:sig..end
module Make:
module Make_Precise:
Calendar_builder.Make but results are more precise.
C | |
| Comparable [Utils] |
Interface for comparable and hashable types.
|
S | |
| S [Printer] |
Generic signature of a printer-parser.
|
| S [Calendar_sig] |
Common operations for all calendar representations.
|
| S [Date_sig] |
Common operations for all date representations.
|
| S [Time_sig] |
Common operations for all time representations.
|
| S [Period] |
Common interface for all periods.
|
| Second [Time_sig] |
Interface for seconds.
|
sig
type t
val fprint : string -> Format.formatter -> Printer.S.t -> unit
val print : string -> Printer.S.t -> unit
val dprint : Printer.S.t -> unit
val sprint : string -> Printer.S.t -> string
val to_string : Printer.S.t -> string
val from_fstring : string -> string -> Printer.S.t
val from_string : string -> Printer.S.t
end calendar-2.04/doc/index_methods.html 0000644 0002611 0003721 00000003044 12424135550 016336 0 ustar julien lsl
sig
type t = second
val from_int : int -> t
val from_float : float -> t
val to_int : t -> int
val to_float : t -> float
end calendar-2.04/doc/Fcalendar.Precise.html 0000644 0002611 0003721 00000062674 12424135550 016772 0 ustar julien lsl
module Precise:Calendar_sig.Swith module Date = Date and module Time = Ftime
module Date:Date_sig.S
module Time:Time_sig.S
type
typeday =Date.day=
| |
Sun |
|||
| |
Mon |
|||
| |
Tue |
|||
| |
Wed |
|||
| |
Thu |
|||
| |
Fri |
|||
| |
Sat |
(* | Days of the week. | *) |
typemonth =Date.month=
| |
Jan |
|||
| |
Feb |
|||
| |
Mar |
|||
| |
Apr |
|||
| |
May |
|||
| |
Jun |
|||
| |
Jul |
|||
| |
Aug |
|||
| |
Sep |
|||
| |
Oct |
|||
| |
Nov |
|||
| |
Dec |
(* | Months of the year. | *) |
typeyear =Date.year
typesecond =Time.second
typefield =[ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make : int -> int -> int -> int -> int -> second -> tmake year month day hour minute second makes the calendar
"year-month-day; hour-minute-second".D.Out_of_bounds when a date is outside the Julian period.D.Undefined when a date belongs to [October 5th, 1582; October
14th, 1582].val lmake : year:int ->
?month:int ->
?day:int ->
?hour:int ->
?minute:int -> ?second:second -> unit -> tmake.
The default value of month and day (resp. of hour, minute
and second) is 1 (resp. 0).D.Out_of_bounds when a date is outside the Julian period.D.Undefined when a date belongs to [October 5th, 1582; October
14th, 1582].val create : Date.t -> Time.t -> tcreate d t creates a calendar from the given date and time.val now : unit -> tnow () returns the current date and time (in the current time
zone).val from_jd : float -> tDate.from_jd: the fractional part represents the
time.val from_mjd : float -> tJulian day - 2 400 000.5 (more precise than Date.from_mjd).Time_sig.S.val convert : t -> Time_Zone.t -> Time_Zone.t -> tval to_gmt : t -> tval from_gmt : t -> tDate_sig.S.val days_in_month : t -> intval day_of_week : t -> dayval day_of_month : t -> intval day_of_year : t -> intval week : t -> intval month : t -> monthval year : t -> intto_jd and to_mjd are more precise than Date_sig.S.to_jd and
Date_sig.S.to_mjd.val to_jd : t -> floatval to_mjd : t -> floatTime_sig.S.val hour : t -> intval minute : t -> intval second : t -> secondval equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
Date_sig.S.val is_leap_day : t -> boolval is_gregorian : t -> boolval is_julian : t -> boolTime_sig.S.val is_pm : t -> boolval is_am : t -> boolval to_unixtm : t -> Unix.tmunix.tm type.
The field isdst is always false. More precise than
Date_sig.S.to_unixtm.val from_unixtm : Unix.tm -> tto_unixtm. Assumes the current time zone.
So, The following invariant holds:
hour (from_unixtm u) = u.Unix.tm_hour.val to_unixfloat : t -> floatto_unixfloat (make 1970 1 1 0 0 0) returns 0.0 at UTC.
So such a float is convertible with those of the module Unix.
More precise than Date_sig.S.to_unixfloat.val from_unixfloat : float -> tto_unixfloat. Assumes the current time zone.
So, the following invariant holds:
hour (from_unixfloat u) = (Unix.gmtime u).Unix.tm_hour.val from_date : Date.t -> tval to_date : t -> Date.tval to_time : t -> Time.tmodule Period:sig..end
Date_sig.S.val add : t ->
[< Period.date_field ] Period.period -> tval sub : t ->
t ->
[< Period.date_field > `Day `Week ] Period.periodval precise_sub : t -> t -> Period.t
val rem : t ->
[< Period.date_field ] Period.period -> tval next : t -> field -> tval prev : t -> field -> tmodule Precise:Calendar_sig.Swith module Date = Date and module Time = Time
module Date:Date_sig.S
module Time:Time_sig.S
type
typeday =Date.day=
| |
Sun |
|||
| |
Mon |
|||
| |
Tue |
|||
| |
Wed |
|||
| |
Thu |
|||
| |
Fri |
|||
| |
Sat |
(* | Days of the week. | *) |
typemonth =Date.month=
| |
Jan |
|||
| |
Feb |
|||
| |
Mar |
|||
| |
Apr |
|||
| |
May |
|||
| |
Jun |
|||
| |
Jul |
|||
| |
Aug |
|||
| |
Sep |
|||
| |
Oct |
|||
| |
Nov |
|||
| |
Dec |
(* | Months of the year. | *) |
typeyear =Date.year
typesecond =Time.second
typefield =[ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make : int -> int -> int -> int -> int -> second -> tmake year month day hour minute second makes the calendar
"year-month-day; hour-minute-second".D.Out_of_bounds when a date is outside the Julian period.D.Undefined when a date belongs to [October 5th, 1582; October
14th, 1582].val lmake : year:int ->
?month:int ->
?day:int ->
?hour:int ->
?minute:int -> ?second:second -> unit -> tmake.
The default value of month and day (resp. of hour, minute
and second) is 1 (resp. 0).D.Out_of_bounds when a date is outside the Julian period.D.Undefined when a date belongs to [October 5th, 1582; October
14th, 1582].val create : Date.t -> Time.t -> tcreate d t creates a calendar from the given date and time.val now : unit -> tnow () returns the current date and time (in the current time
zone).val from_jd : float -> tDate.from_jd: the fractional part represents the
time.val from_mjd : float -> tJulian day - 2 400 000.5 (more precise than Date.from_mjd).Time_sig.S.val convert : t -> Time_Zone.t -> Time_Zone.t -> tval to_gmt : t -> tval from_gmt : t -> tDate_sig.S.val days_in_month : t -> intval day_of_week : t -> dayval day_of_month : t -> intval day_of_year : t -> intval week : t -> intval month : t -> monthval year : t -> intto_jd and to_mjd are more precise than Date_sig.S.to_jd and
Date_sig.S.to_mjd.val to_jd : t -> floatval to_mjd : t -> floatTime_sig.S.val hour : t -> intval minute : t -> intval second : t -> secondval equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
Date_sig.S.val is_leap_day : t -> boolval is_gregorian : t -> boolval is_julian : t -> boolTime_sig.S.val is_pm : t -> boolval is_am : t -> boolval to_unixtm : t -> Unix.tmunix.tm type.
The field isdst is always false. More precise than
Date_sig.S.to_unixtm.val from_unixtm : Unix.tm -> tto_unixtm. Assumes the current time zone.
So, The following invariant holds:
hour (from_unixtm u) = u.Unix.tm_hour.val to_unixfloat : t -> floatto_unixfloat (make 1970 1 1 0 0 0) returns 0.0 at UTC.
So such a float is convertible with those of the module Unix.
More precise than Date_sig.S.to_unixfloat.val from_unixfloat : float -> tto_unixfloat. Assumes the current time zone.
So, the following invariant holds:
hour (from_unixfloat u) = (Unix.gmtime u).Unix.tm_hour.val from_date : Date.t -> tval to_date : t -> Date.tval to_time : t -> Time.tmodule Period:sig..end
Date_sig.S.val add : t ->
[< Period.date_field ] Period.period -> tval sub : t ->
t ->
[< Period.date_field > `Day `Week ] Period.periodval precise_sub : t -> t -> Period.t
val rem : t ->
[< Period.date_field ] Period.period -> tval next : t -> field -> tval prev : t -> field -> tmodule Int:Comparablewith type t = int
type
val equal : t -> t -> boolt.val compare : t -> t -> intt.
compare x y returns 0 iff equal x y = 0. If x and y are not
equal, it returns a negative integer iff x is lesser than y and a
positive integer otherwise.val hash : t -> intt.sig
module Date :
sig
type field = Period.date_field
type -'a date = 'a Date.date constraint 'a = [< field ]
type t = field date
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = int
exception Out_of_bounds
exception Undefined
val make : year -> int -> int -> t
val lmake : year:year -> ?month:int -> ?day:int -> unit -> t
val make_year : int -> [< `Year ] date
val make_year_month : int -> int -> [< `Month | `Year ] date
val today : unit -> t
val from_jd : int -> t
val from_mjd : int -> t
val from_day_of_year : year -> int -> t
val days_in_month : [< field > `Month `Year ] date -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : [< field > `Month ] date -> month
val year : [< field > `Year ] date -> year
val to_jd : t -> int
val to_mjd : t -> int
val equal : [< field ] date -> [< field ] date -> bool
val compare : [< field ] date -> [< field ] date -> int
val hash : [< field ] date -> int
val is_valid_date : year -> int -> int -> bool
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val to_business : t -> year * int * day
val from_business : year -> int -> day -> t
val int_of_day : day -> int
val day_of_int : int -> day
val int_of_month : month -> int
val month_of_int : int -> month
module Period :
sig
type +'a p = 'a Date.Period.p constraint 'a = [< field ]
type +'a period = 'a p constraint 'a = [< field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> t
val lmake : ?year:int -> ?month:int -> ?day:int -> unit -> t
val year : int -> [< field > `Year ] period
val month : int -> [< field > `Month `Year ] period
val week : int -> [< field > `Day `Week ] period
val day : int -> [< field > `Day `Week ] period
exception Not_computable
val nb_days : [< field ] period -> int
val safe_nb_days : [< `Day | `Week ] period -> int
val ymd : [< field ] period -> int * int * int
end
val add : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val sub :
([< field ] as 'a) date ->
'a date -> [< field > `Day `Week ] Period.period
val precise_sub : ([< field ] as 'a) date -> 'a date -> Period.t
val rem : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val next : ([< field ] as 'a) date -> 'a -> 'a date
val prev : ([< field ] as 'a) date -> 'a -> 'a date
val is_leap_year : year -> bool
val same_calendar : year -> year -> bool
val days_in_year : ?month:month -> year -> int
val weeks_in_year : year -> int
val week_first_last : int -> year -> t * t
val nth_weekday_of_month : year -> month -> day -> int -> t
val century : year -> int
val millenium : year -> int
val solar_number : year -> int
val indiction : year -> int
val golden_number : year -> int
val epact : year -> int
val easter : year -> t
val carnaval : year -> t
val mardi_gras : year -> t
val ash : year -> t
val palm : year -> t
val easter_friday : year -> t
val easter_saturday : year -> t
val easter_monday : year -> t
val ascension : year -> t
val withsunday : year -> t
val withmonday : year -> t
val corpus_christi : year -> t
end
module Time :
sig
type t = Ftime.t
type field = [ `Hour | `Minute | `Second ]
type second = float
module Second :
sig
type t = second
val from_int : int -> t
val from_float : float -> t
val to_int : t -> int
val to_float : t -> float
end
val make : int -> int -> second -> t
val lmake : ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val now : unit -> t
val midnight : unit -> t
val midday : unit -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val from_gmt : t -> t
val to_gmt : t -> t
val normalize : t -> t * int
val hour : t -> int
val minute : t -> int
val second : t -> second
val to_seconds : t -> second
val to_minutes : t -> float
val to_hours : t -> float
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_pm : t -> bool
val is_am : t -> bool
val from_seconds : second -> t
val from_minutes : float -> t
val from_hours : float -> t
module Period :
sig
type +'a period = 'a Ftime.Period.period
constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val length : [< Period.date_field ] period -> second
val mul :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val div :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val make : int -> int -> second -> [< Period.date_field ] period
val lmake :
?hour:int ->
?minute:int ->
?second:second -> unit -> [< Period.date_field ] period
val hour : int -> [< Period.date_field ] period
val minute : int -> [< Period.date_field ] period
val second : second -> [< Period.date_field ] period
val to_seconds : [< Period.date_field ] period -> second
val to_minutes : [< Period.date_field ] period -> float
val to_hours : [< Period.date_field ] period -> float
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field ] Period.period
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end
type t
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = Date.year
type second = Time.second
type field = [ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
year:int ->
?month:int ->
?day:int -> ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val create : Date.t -> Time.t -> t
val now : unit -> t
val from_jd : float -> t
val from_mjd : float -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val to_gmt : t -> t
val from_gmt : t -> t
val days_in_month : t -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : t -> month
val year : t -> int
val to_jd : t -> float
val to_mjd : t -> float
val hour : t -> int
val minute : t -> int
val second : t -> second
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val is_pm : t -> bool
val is_am : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val from_date : Date.t -> t
val to_date : t -> Date.t
val to_time : t -> Time.t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val opp :
([< Period.date_field > `Day `Week ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period -> [< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
?year:int ->
?month:int ->
?day:int -> ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val year : int -> [< Period.date_field > `Year ] period
val month : int -> [< Period.date_field > `Month `Year ] period
val week : int -> [< Period.date_field > `Day `Week ] period
val day : int -> [< Period.date_field > `Day `Week ] period
val hour : int -> [< Period.date_field > `Day `Week ] period
val minute : int -> [< Period.date_field > `Day `Week ] period
val second : second -> [< Period.date_field > `Day `Week ] period
val from_date :
([< Period.date_field ] as 'a) Date.Period.period -> 'a period
val from_time :
([< Period.date_field ] as 'a) Time.Period.period -> 'a period
val to_date : ([< Date.field ] as 'a) period -> 'a Date.Period.period
exception Not_computable
val to_time :
([< Period.date_field ] as 'a) period -> 'a Time.Period.period
val safe_to_time :
([< `Day | `Week ] as 'a) period -> 'a Time.Period.period
val ymds : [< Period.date_field ] period -> int * int * int * second
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field > `Day `Week ] Period.period
val precise_sub : t -> t -> Period.t
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
module Precise :
sig
module Date :
sig
type field = Period.date_field
type -'a date = 'a Date.date constraint 'a = [< field ]
type t = field date
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = int
exception Out_of_bounds
exception Undefined
val make : year -> int -> int -> t
val lmake : year:year -> ?month:int -> ?day:int -> unit -> t
val make_year : int -> [< `Year ] date
val make_year_month : int -> int -> [< `Month | `Year ] date
val today : unit -> t
val from_jd : int -> t
val from_mjd : int -> t
val from_day_of_year : year -> int -> t
val days_in_month : [< field > `Month `Year ] date -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : [< field > `Month ] date -> month
val year : [< field > `Year ] date -> year
val to_jd : t -> int
val to_mjd : t -> int
val equal : [< field ] date -> [< field ] date -> bool
val compare : [< field ] date -> [< field ] date -> int
val hash : [< field ] date -> int
val is_valid_date : year -> int -> int -> bool
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val to_business : t -> year * int * day
val from_business : year -> int -> day -> t
val int_of_day : day -> int
val day_of_int : int -> day
val int_of_month : month -> int
val month_of_int : int -> month
module Period :
sig
type +'a p = 'a Date.Period.p constraint 'a = [< field ]
type +'a period = 'a p constraint 'a = [< field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> t
val lmake : ?year:int -> ?month:int -> ?day:int -> unit -> t
val year : int -> [< field > `Year ] period
val month : int -> [< field > `Month `Year ] period
val week : int -> [< field > `Day `Week ] period
val day : int -> [< field > `Day `Week ] period
exception Not_computable
val nb_days : [< field ] period -> int
val safe_nb_days : [< `Day | `Week ] period -> int
val ymd : [< field ] period -> int * int * int
end
val add : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val sub :
([< field ] as 'a) date ->
'a date -> [< field > `Day `Week ] Period.period
val precise_sub : ([< field ] as 'a) date -> 'a date -> Period.t
val rem : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val next : ([< field ] as 'a) date -> 'a -> 'a date
val prev : ([< field ] as 'a) date -> 'a -> 'a date
val is_leap_year : year -> bool
val same_calendar : year -> year -> bool
val days_in_year : ?month:month -> year -> int
val weeks_in_year : year -> int
val week_first_last : int -> year -> t * t
val nth_weekday_of_month : year -> month -> day -> int -> t
val century : year -> int
val millenium : year -> int
val solar_number : year -> int
val indiction : year -> int
val golden_number : year -> int
val epact : year -> int
val easter : year -> t
val carnaval : year -> t
val mardi_gras : year -> t
val ash : year -> t
val palm : year -> t
val easter_friday : year -> t
val easter_saturday : year -> t
val easter_monday : year -> t
val ascension : year -> t
val withsunday : year -> t
val withmonday : year -> t
val corpus_christi : year -> t
end
module Time :
sig
type t = Ftime.t
type field = [ `Hour | `Minute | `Second ]
type second = float
module Second :
sig
type t = second
val from_int : int -> t
val from_float : float -> t
val to_int : t -> int
val to_float : t -> float
end
val make : int -> int -> second -> t
val lmake : ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val now : unit -> t
val midnight : unit -> t
val midday : unit -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val from_gmt : t -> t
val to_gmt : t -> t
val normalize : t -> t * int
val hour : t -> int
val minute : t -> int
val second : t -> second
val to_seconds : t -> second
val to_minutes : t -> float
val to_hours : t -> float
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_pm : t -> bool
val is_am : t -> bool
val from_seconds : second -> t
val from_minutes : float -> t
val from_hours : float -> t
module Period :
sig
type +'a period = 'a Ftime.Period.period
constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val length : [< Period.date_field ] period -> second
val mul :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val div :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val make :
int -> int -> second -> [< Period.date_field ] period
val lmake :
?hour:int ->
?minute:int ->
?second:second -> unit -> [< Period.date_field ] period
val hour : int -> [< Period.date_field ] period
val minute : int -> [< Period.date_field ] period
val second : second -> [< Period.date_field ] period
val to_seconds : [< Period.date_field ] period -> second
val to_minutes : [< Period.date_field ] period -> float
val to_hours : [< Period.date_field ] period -> float
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field ] Period.period
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end
type t
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = Date.year
type second = Time.second
type field =
[ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
year:int ->
?month:int ->
?day:int -> ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val create : Date.t -> Time.t -> t
val now : unit -> t
val from_jd : float -> t
val from_mjd : float -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val to_gmt : t -> t
val from_gmt : t -> t
val days_in_month : t -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : t -> month
val year : t -> int
val to_jd : t -> float
val to_mjd : t -> float
val hour : t -> int
val minute : t -> int
val second : t -> second
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val is_pm : t -> bool
val is_am : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val from_date : Date.t -> t
val to_date : t -> Date.t
val to_time : t -> Time.t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val opp :
([< Period.date_field > `Day `Week ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
?year:int ->
?month:int ->
?day:int ->
?hour:int -> ?minute:int -> ?second:second -> unit -> t
val year : int -> [< Period.date_field > `Year ] period
val month : int -> [< Period.date_field > `Month `Year ] period
val week : int -> [< Period.date_field > `Day `Week ] period
val day : int -> [< Period.date_field > `Day `Week ] period
val hour : int -> [< Period.date_field > `Day `Week ] period
val minute : int -> [< Period.date_field > `Day `Week ] period
val second : second -> [< Period.date_field > `Day `Week ] period
val from_date :
([< Period.date_field ] as 'a) Date.Period.period -> 'a period
val from_time :
([< Period.date_field ] as 'a) Time.Period.period -> 'a period
val to_date :
([< Date.field ] as 'a) period -> 'a Date.Period.period
exception Not_computable
val to_time :
([< Period.date_field ] as 'a) period -> 'a Time.Period.period
val safe_to_time :
([< `Day | `Week ] as 'a) period -> 'a Time.Period.period
val ymds :
[< Period.date_field ] period -> int * int * int * second
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field > `Day `Week ] Period.period
val precise_sub : t -> t -> Period.t
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end
end calendar-2.04/doc/type_Calendar_builder.Make.html 0000644 0002611 0003721 00000214173 12424135550 020647 0 ustar julien lsl
functor (D : Date_sig.S) ->
functor (T : Time_sig.S) ->
sig
module Date :
sig
type field = Period.date_field
type -'a date = 'a D.date constraint 'a = [< field ]
type t = field date
type day = D.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
D.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = int
exception Out_of_bounds
exception Undefined
val make : year -> int -> int -> t
val lmake : year:year -> ?month:int -> ?day:int -> unit -> t
val make_year : int -> [< `Year ] date
val make_year_month : int -> int -> [< `Month | `Year ] date
val today : unit -> t
val from_jd : int -> t
val from_mjd : int -> t
val from_day_of_year : year -> int -> t
val days_in_month : [< field > `Month `Year ] date -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : [< field > `Month ] date -> month
val year : [< field > `Year ] date -> year
val to_jd : t -> int
val to_mjd : t -> int
val equal : [< field ] date -> [< field ] date -> bool
val compare : [< field ] date -> [< field ] date -> int
val hash : [< field ] date -> int
val is_valid_date : year -> int -> int -> bool
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val to_business : t -> year * int * day
val from_business : year -> int -> day -> t
val int_of_day : day -> int
val day_of_int : int -> day
val int_of_month : month -> int
val month_of_int : int -> month
module Period :
sig
type +'a p = 'a D.Period.p constraint 'a = [< field ]
type +'a period = 'a p constraint 'a = [< field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> t
val lmake : ?year:int -> ?month:int -> ?day:int -> unit -> t
val year : int -> [< field > `Year ] period
val month : int -> [< field > `Month `Year ] period
val week : int -> [< field > `Day `Week ] period
val day : int -> [< field > `Day `Week ] period
exception Not_computable
val nb_days : [< field ] period -> int
val safe_nb_days : [< `Day | `Week ] period -> int
val ymd : [< field ] period -> int * int * int
end
val add : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val sub :
([< field ] as 'a) date ->
'a date -> [< field > `Day `Week ] Period.period
val precise_sub : ([< field ] as 'a) date -> 'a date -> Period.t
val rem : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val next : ([< field ] as 'a) date -> 'a -> 'a date
val prev : ([< field ] as 'a) date -> 'a -> 'a date
val is_leap_year : year -> bool
val same_calendar : year -> year -> bool
val days_in_year : ?month:month -> year -> int
val weeks_in_year : year -> int
val week_first_last : int -> year -> t * t
val nth_weekday_of_month : year -> month -> day -> int -> t
val century : year -> int
val millenium : year -> int
val solar_number : year -> int
val indiction : year -> int
val golden_number : year -> int
val epact : year -> int
val easter : year -> t
val carnaval : year -> t
val mardi_gras : year -> t
val ash : year -> t
val palm : year -> t
val easter_friday : year -> t
val easter_saturday : year -> t
val easter_monday : year -> t
val ascension : year -> t
val withsunday : year -> t
val withmonday : year -> t
val corpus_christi : year -> t
end
module Time :
sig
type t = T.t
type field = [ `Hour | `Minute | `Second ]
type second = T.second
module Second :
sig
type t = second
val from_int : int -> t
val from_float : float -> t
val to_int : t -> int
val to_float : t -> float
end
val make : int -> int -> second -> t
val lmake : ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val now : unit -> t
val midnight : unit -> t
val midday : unit -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val from_gmt : t -> t
val to_gmt : t -> t
val normalize : t -> t * int
val hour : t -> int
val minute : t -> int
val second : t -> second
val to_seconds : t -> second
val to_minutes : t -> float
val to_hours : t -> float
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_pm : t -> bool
val is_am : t -> bool
val from_seconds : second -> t
val from_minutes : float -> t
val from_hours : float -> t
module Period :
sig
type +'a period = 'a T.Period.period
constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val length : [< Period.date_field ] period -> second
val mul :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val div :
([< Period.date_field ] as 'a) period ->
'a period -> 'a period
val make :
int -> int -> second -> [< Period.date_field ] period
val lmake :
?hour:int ->
?minute:int ->
?second:second -> unit -> [< Period.date_field ] period
val hour : int -> [< Period.date_field ] period
val minute : int -> [< Period.date_field ] period
val second : second -> [< Period.date_field ] period
val to_seconds : [< Period.date_field ] period -> second
val to_minutes : [< Period.date_field ] period -> float
val to_hours : [< Period.date_field ] period -> float
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field ] Period.period
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end
type t
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = Date.year
type second = Time.second
type field =
[ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
year:int ->
?month:int ->
?day:int -> ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val create : Date.t -> Time.t -> t
val now : unit -> t
val from_jd : float -> t
val from_mjd : float -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val to_gmt : t -> t
val from_gmt : t -> t
val days_in_month : t -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : t -> month
val year : t -> int
val to_jd : t -> float
val to_mjd : t -> float
val hour : t -> int
val minute : t -> int
val second : t -> second
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val is_pm : t -> bool
val is_am : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val from_date : Date.t -> t
val to_date : t -> Date.t
val to_time : t -> Time.t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val opp :
([< Period.date_field > `Day `Week ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
?year:int ->
?month:int ->
?day:int ->
?hour:int -> ?minute:int -> ?second:second -> unit -> t
val year : int -> [< Period.date_field > `Year ] period
val month : int -> [< Period.date_field > `Month `Year ] period
val week : int -> [< Period.date_field > `Day `Week ] period
val day : int -> [< Period.date_field > `Day `Week ] period
val hour : int -> [< Period.date_field > `Day `Week ] period
val minute : int -> [< Period.date_field > `Day `Week ] period
val second : second -> [< Period.date_field > `Day `Week ] period
val from_date :
([< Period.date_field ] as 'a) Date.Period.period -> 'a period
val from_time :
([< Period.date_field ] as 'a) Time.Period.period -> 'a period
val to_date :
([< Date.field ] as 'a) period -> 'a Date.Period.period
exception Not_computable
val to_time :
([< Period.date_field ] as 'a) period -> 'a Time.Period.period
val safe_to_time :
([< `Day | `Week ] as 'a) period -> 'a Time.Period.period
val ymds :
[< Period.date_field ] period -> int * int * int * second
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field > `Day `Week ] Period.period
val precise_sub : t -> t -> Period.t
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end calendar-2.04/doc/type_Printer.Time.html 0000644 0002611 0003721 00000005466 12424135550 017077 0 ustar julien lsl
sig
type t = Time.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end calendar-2.04/doc/type_Time_sig.html 0000644 0002611 0003721 00000054231 12424135550 016311 0 ustar julien lsl
sig
module type Second =
sig
type t
val from_int : int -> Time_sig.Second.t
val from_float : float -> Time_sig.Second.t
val to_int : Time_sig.Second.t -> int
val to_float : Time_sig.Second.t -> float
end
module type S =
sig
type t
type field = [ `Hour | `Minute | `Second ]
type second
module Second :
sig
type t = second
val from_int : int -> t
val from_float : float -> t
val to_int : t -> int
val to_float : t -> float
end
val make : int -> int -> Time_sig.S.second -> Time_sig.S.t
val lmake :
?hour:int ->
?minute:int -> ?second:Time_sig.S.second -> unit -> Time_sig.S.t
val now : unit -> Time_sig.S.t
val midnight : unit -> Time_sig.S.t
val midday : unit -> Time_sig.S.t
val convert :
Time_sig.S.t -> Time_Zone.t -> Time_Zone.t -> Time_sig.S.t
val from_gmt : Time_sig.S.t -> Time_sig.S.t
val to_gmt : Time_sig.S.t -> Time_sig.S.t
val normalize : Time_sig.S.t -> Time_sig.S.t * int
val hour : Time_sig.S.t -> int
val minute : Time_sig.S.t -> int
val second : Time_sig.S.t -> Time_sig.S.second
val to_seconds : Time_sig.S.t -> Time_sig.S.second
val to_minutes : Time_sig.S.t -> float
val to_hours : Time_sig.S.t -> float
val equal : Time_sig.S.t -> Time_sig.S.t -> bool
val compare : Time_sig.S.t -> Time_sig.S.t -> int
val hash : Time_sig.S.t -> int
val is_pm : Time_sig.S.t -> bool
val is_am : Time_sig.S.t -> bool
val from_seconds : Time_sig.S.second -> Time_sig.S.t
val from_minutes : float -> Time_sig.S.t
val from_hours : float -> Time_sig.S.t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val length : [< Period.date_field ] period -> Time_sig.S.second
val mul :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val div :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val make :
int -> int -> Time_sig.S.second -> [< Period.date_field ] period
val lmake :
?hour:int ->
?minute:int ->
?second:Time_sig.S.second ->
unit -> [< Period.date_field ] period
val hour : int -> [< Period.date_field ] period
val minute : int -> [< Period.date_field ] period
val second : Time_sig.S.second -> [< Period.date_field ] period
val to_seconds : [< Period.date_field ] period -> Time_sig.S.second
val to_minutes : [< Period.date_field ] period -> float
val to_hours : [< Period.date_field ] period -> float
end
val add :
Time_sig.S.t ->
[< Period.date_field ] Time_sig.S.Period.period -> Time_sig.S.t
val sub :
Time_sig.S.t ->
Time_sig.S.t -> [< Period.date_field ] Time_sig.S.Period.period
val rem :
Time_sig.S.t ->
[< Period.date_field ] Time_sig.S.Period.period -> Time_sig.S.t
val next : Time_sig.S.t -> Time_sig.S.field -> Time_sig.S.t
val prev : Time_sig.S.t -> Time_sig.S.field -> Time_sig.S.t
end
end calendar-2.04/doc/Time_sig.S.Period.html 0000644 0002611 0003721 00000014625 12424135550 016675 0 ustar julien lsl
module Period:sig..end
include Period.S
val length : [< Period.date_field ] period -> Time_sig.S.secondval mul : ([< Period.date_field ] as 'a) period -> 'a period -> 'a periodval div : ([< Period.date_field ] as 'a) period -> 'a period -> 'a periodval make : int -> int -> Time_sig.S.second -> [< Period.date_field ] periodmake hour minute second makes a period of the specified length.val lmake : ?hour:int ->
?minute:int ->
?second:Time_sig.S.second -> unit -> [< Period.date_field ] periodmake.
The default value is 0 for each argument.val hour : int -> [< Period.date_field ] periodhour n makes a period of n hours.val minute : int -> [< Period.date_field ] periodminute n makes a period of n minutes.val second : Time_sig.S.second -> [< Period.date_field ] periodsecond n makes a period of n seconds.val to_seconds : [< Period.date_field ] period -> Time_sig.S.secondto_seconds (make 1 2 3) returns 3600 + 120 + 3 = 3723.val to_minutes : [< Period.date_field ] period -> floatto_minutes (make 1 2 3) returns 60 + 2 + 0.05 = 62.05.val to_hours : [< Period.date_field ] period -> floatto_hours (make 1 3 0) returns 1 + 0.05 = 1.05.sig
type date_field = [ `Day | `Month | `Week | `Year ]
module type S =
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field Period.S.period
val empty : [< Period.date_field ] Period.S.period
val add :
([< Period.date_field ] as 'a) Period.S.period ->
'a Period.S.period -> 'a Period.S.period
val sub :
([< Period.date_field ] as 'a) Period.S.period ->
'a Period.S.period -> 'a Period.S.period
val opp :
([< Period.date_field ] as 'a) Period.S.period -> 'a Period.S.period
val equal :
[< Period.date_field ] Period.S.period ->
[< Period.date_field ] Period.S.period -> bool
val compare :
[< Period.date_field ] Period.S.period ->
[< Period.date_field ] Period.S.period -> int
val hash : [< Period.date_field ] Period.S.period -> int
end
end calendar-2.04/doc/Printer.Date.html 0000644 0002611 0003721 00000015420 12424135550 016004 0 ustar julien lsl
module Date:Swith type t = Date.t
%i.type
val fprint : string -> Format.formatter -> t -> unitfprint format formatter x outputs x on formatter according to
the specified format.Invalid_argument if the format is incorrect.val print : string -> t -> unitprint format is equivalent to fprint format Format.std_formatterval dprint : t -> unitprint d where d is the default format
(see the printer implementations).val sprint : string -> t -> stringsprint format date converts date to a string according to
format.val to_string : t -> stringsprint d where d is the default format
(see the printer implementations).val from_fstring : string -> string -> tfrom_fstring format s converts s to a date according to format.
Date padding (i.e. a special directive following '%') and
specifiers %e, %k and %l are not recognized. Specifiers
%a, %A, %j, %v, %w and %W are recognized but mainly ignored:
only the validity of the format is checked.
In order to recognize words (used by %a, %A, %b, %B and %p), a
regular expression is used which can be configured by
Printer.set_word_regexp. When the format has only two digits for the
year number, 1900 are added to this number (see examples).
Raises Invalid_argument if either the format is incorrect or the string
does not match the format or the event cannot be created (e.g. if you do
not specify a year for a date).
Examples:
from_fstring "the date is %B, the %dth %Y" "the date is May,
the 14th 2007" returns a date equivalent to Date.make 2007 5 14 (with
default internationalization).from_fstring "the date is %D" "the date is 01/06/03"
returns a date equivalent to Date.make 1903 1 6val from_string : string -> tfrom_fstring d where d is the default format.module Date_sig:sig..end
All the dates should belong to
[January, 1st 4713 BC; January 22th, 3268 AC] (called the Julian period).
An Out_of_bounds exception is raised if you attempt to create a date
outside the Julian period.
If a date d does not exists and if d_bef (resp. d_aft) is
the last (resp. first) existing date before (resp. after) d,
d is automatically coerced to d_aft + d - d_bef - 1.
For example, both dates "February 29th, 2003" and
"February 30th, 2003" do not exist and they are coerced respectively to the
date "Mars 1st, 2003" and "Mars 2nd, 2003".
This rule is called the coercion rule.
As an exception to the coercion rule, the date belonging to
[October 5th, 1582; October 14th, 1582] do not exist and an Undefined
exception is raised if you attempt to create such a date.
Those dropped days correspond to the change from the Julian to the Gregorian
calendar.
module type S =sig..end
| Utils |
Some utilities.
|
| Time_Zone |
Time zone management.
|
| Period |
A period represents the time passed between two events (a date, a time...).
|
| Time_sig |
Time interface.
|
| Time |
Time implementation in which seconds are integers.
|
| Ftime |
Time implementation in which seconds are floats.
|
| Date_sig |
Date interface.
|
| Date |
Date implementation.
|
| Calendar_sig |
Calendar interface.
|
| Calendar_builder |
Generic calendar implementation.
|
| Calendar |
Calendar implementation in which seconds are integer.
|
| Fcalendar |
Calendar implementation in which seconds are float.
|
| Printer |
Pretty printing and parsing from string.
|
| Version |
Information about version of calendar.
|
sig
val day_name : (Date.day -> string) Pervasives.ref
val name_of_day : Date.day -> string
val short_name_of_day : Date.day -> string
val month_name : (Date.month -> string) Pervasives.ref
val name_of_month : Date.month -> string
val short_name_of_month : Date.month -> string
val set_word_regexp : Str.regexp -> unit
module type S =
sig
type t
val fprint : string -> Format.formatter -> Printer.S.t -> unit
val print : string -> Printer.S.t -> unit
val dprint : Printer.S.t -> unit
val sprint : string -> Printer.S.t -> string
val to_string : Printer.S.t -> string
val from_fstring : string -> string -> Printer.S.t
val from_string : string -> Printer.S.t
end
module Date :
sig
type t = Date.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end
module DatePrinter :
sig
type t = Date.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end
module Time :
sig
type t = Time.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end
module TimePrinter :
sig
type t = Time.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end
module Ftime :
sig
type t = Ftime.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end
module Precise_Calendar :
sig
type t = Calendar.Precise.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end
module Calendar :
sig
type t = Calendar.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end
module CalendarPrinter :
sig
type t = Calendar.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end
module Precise_Fcalendar :
sig
type t = Fcalendar.Precise.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end
module Fcalendar :
sig
type t = Fcalendar.t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end
end calendar-2.04/doc/type_Calendar.Precise.html 0000644 0002611 0003721 00000173036 12424135550 017660 0 ustar julien lsl
sig
module Date :
sig
type field = Period.date_field
type -'a date = 'a Date.date constraint 'a = [< field ]
type t = field date
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = int
exception Out_of_bounds
exception Undefined
val make : year -> int -> int -> t
val lmake : year:year -> ?month:int -> ?day:int -> unit -> t
val make_year : int -> [< `Year ] date
val make_year_month : int -> int -> [< `Month | `Year ] date
val today : unit -> t
val from_jd : int -> t
val from_mjd : int -> t
val from_day_of_year : year -> int -> t
val days_in_month : [< field > `Month `Year ] date -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : [< field > `Month ] date -> month
val year : [< field > `Year ] date -> year
val to_jd : t -> int
val to_mjd : t -> int
val equal : [< field ] date -> [< field ] date -> bool
val compare : [< field ] date -> [< field ] date -> int
val hash : [< field ] date -> int
val is_valid_date : year -> int -> int -> bool
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val to_business : t -> year * int * day
val from_business : year -> int -> day -> t
val int_of_day : day -> int
val day_of_int : int -> day
val int_of_month : month -> int
val month_of_int : int -> month
module Period :
sig
type +'a p = 'a Date.Period.p constraint 'a = [< field ]
type +'a period = 'a p constraint 'a = [< field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> t
val lmake : ?year:int -> ?month:int -> ?day:int -> unit -> t
val year : int -> [< field > `Year ] period
val month : int -> [< field > `Month `Year ] period
val week : int -> [< field > `Day `Week ] period
val day : int -> [< field > `Day `Week ] period
exception Not_computable
val nb_days : [< field ] period -> int
val safe_nb_days : [< `Day | `Week ] period -> int
val ymd : [< field ] period -> int * int * int
end
val add : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val sub :
([< field ] as 'a) date ->
'a date -> [< field > `Day `Week ] Period.period
val precise_sub : ([< field ] as 'a) date -> 'a date -> Period.t
val rem : ([< field ] as 'a) date -> 'a Period.period -> 'a date
val next : ([< field ] as 'a) date -> 'a -> 'a date
val prev : ([< field ] as 'a) date -> 'a -> 'a date
val is_leap_year : year -> bool
val same_calendar : year -> year -> bool
val days_in_year : ?month:month -> year -> int
val weeks_in_year : year -> int
val week_first_last : int -> year -> t * t
val nth_weekday_of_month : year -> month -> day -> int -> t
val century : year -> int
val millenium : year -> int
val solar_number : year -> int
val indiction : year -> int
val golden_number : year -> int
val epact : year -> int
val easter : year -> t
val carnaval : year -> t
val mardi_gras : year -> t
val ash : year -> t
val palm : year -> t
val easter_friday : year -> t
val easter_saturday : year -> t
val easter_monday : year -> t
val ascension : year -> t
val withsunday : year -> t
val withmonday : year -> t
val corpus_christi : year -> t
end
module Time :
sig
type t = Time.t
type field = [ `Hour | `Minute | `Second ]
type second = int
module Second :
sig
type t = second
val from_int : int -> t
val from_float : float -> t
val to_int : t -> int
val to_float : t -> float
end
val make : int -> int -> second -> t
val lmake : ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val now : unit -> t
val midnight : unit -> t
val midday : unit -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val from_gmt : t -> t
val to_gmt : t -> t
val normalize : t -> t * int
val hour : t -> int
val minute : t -> int
val second : t -> second
val to_seconds : t -> second
val to_minutes : t -> float
val to_hours : t -> float
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_pm : t -> bool
val is_am : t -> bool
val from_seconds : second -> t
val from_minutes : float -> t
val from_hours : float -> t
module Period :
sig
type +'a period = 'a Time.Period.period
constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period ->
[< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val length : [< Period.date_field ] period -> second
val mul :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val div :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val make : int -> int -> second -> [< Period.date_field ] period
val lmake :
?hour:int ->
?minute:int ->
?second:second -> unit -> [< Period.date_field ] period
val hour : int -> [< Period.date_field ] period
val minute : int -> [< Period.date_field ] period
val second : second -> [< Period.date_field ] period
val to_seconds : [< Period.date_field ] period -> second
val to_minutes : [< Period.date_field ] period -> float
val to_hours : [< Period.date_field ] period -> float
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field ] Period.period
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end
type t
type day = Date.day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Date.month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = Date.year
type second = Time.second
type field = [ `Day | `Hour | `Minute | `Month | `Second | `Week | `Year ]
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
year:int ->
?month:int ->
?day:int -> ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val create : Date.t -> Time.t -> t
val now : unit -> t
val from_jd : float -> t
val from_mjd : float -> t
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
val to_gmt : t -> t
val from_gmt : t -> t
val days_in_month : t -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : t -> month
val year : t -> int
val to_jd : t -> float
val to_mjd : t -> float
val hour : t -> int
val minute : t -> int
val second : t -> second
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val is_pm : t -> bool
val is_am : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val from_date : Date.t -> t
val to_date : t -> Date.t
val to_time : t -> Time.t
module Period :
sig
type +'a period constraint 'a = [< Period.date_field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val sub :
([< Period.date_field > `Day `Week ] as 'a) period ->
'a period -> 'a period
val opp :
([< Period.date_field > `Day `Week ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period -> [< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> int -> int -> second -> t
val lmake :
?year:int ->
?month:int ->
?day:int -> ?hour:int -> ?minute:int -> ?second:second -> unit -> t
val year : int -> [< Period.date_field > `Year ] period
val month : int -> [< Period.date_field > `Month `Year ] period
val week : int -> [< Period.date_field > `Day `Week ] period
val day : int -> [< Period.date_field > `Day `Week ] period
val hour : int -> [< Period.date_field > `Day `Week ] period
val minute : int -> [< Period.date_field > `Day `Week ] period
val second : second -> [< Period.date_field > `Day `Week ] period
val from_date :
([< Period.date_field ] as 'a) Date.Period.period -> 'a period
val from_time :
([< Period.date_field ] as 'a) Time.Period.period -> 'a period
val to_date : ([< Date.field ] as 'a) period -> 'a Date.Period.period
exception Not_computable
val to_time :
([< Period.date_field ] as 'a) period -> 'a Time.Period.period
val safe_to_time :
([< `Day | `Week ] as 'a) period -> 'a Time.Period.period
val ymds : [< Period.date_field ] period -> int * int * int * second
end
val add : t -> [< Period.date_field ] Period.period -> t
val sub : t -> t -> [< Period.date_field > `Day `Week ] Period.period
val precise_sub : t -> t -> Period.t
val rem : t -> [< Period.date_field ] Period.period -> t
val next : t -> field -> t
val prev : t -> field -> t
end calendar-2.04/doc/Printer.Calendar.html 0000644 0002611 0003721 00000015640 12424135550 016644 0 ustar julien lsl
module Calendar:Swith type t = Calendar.t
%i %T.type
val fprint : string -> Format.formatter -> t -> unitfprint format formatter x outputs x on formatter according to
the specified format.Invalid_argument if the format is incorrect.val print : string -> t -> unitprint format is equivalent to fprint format Format.std_formatterval dprint : t -> unitprint d where d is the default format
(see the printer implementations).val sprint : string -> t -> stringsprint format date converts date to a string according to
format.val to_string : t -> stringsprint d where d is the default format
(see the printer implementations).val from_fstring : string -> string -> tfrom_fstring format s converts s to a date according to format.
Date padding (i.e. a special directive following '%') and
specifiers %e, %k and %l are not recognized. Specifiers
%a, %A, %j, %v, %w and %W are recognized but mainly ignored:
only the validity of the format is checked.
In order to recognize words (used by %a, %A, %b, %B and %p), a
regular expression is used which can be configured by
Printer.set_word_regexp. When the format has only two digits for the
year number, 1900 are added to this number (see examples).
Raises Invalid_argument if either the format is incorrect or the string
does not match the format or the event cannot be created (e.g. if you do
not specify a year for a date).
Examples:
from_fstring "the date is %B, the %dth %Y" "the date is May,
the 14th 2007" returns a date equivalent to Date.make 2007 5 14 (with
default internationalization).from_fstring "the date is %D" "the date is 01/06/03"
returns a date equivalent to Date.make 1903 1 6val from_string : string -> tfrom_fstring d where d is the default format.module Date:Date_sig.S
typefield =Period.date_field
type -[< field ] date
typet =field date
type
| |
Sun |
| |
Mon |
| |
Tue |
| |
Wed |
| |
Thu |
| |
Fri |
| |
Sat |
type
| |
Jan |
| |
Feb |
| |
Mar |
| |
Apr |
| |
May |
| |
Jun |
| |
Jul |
| |
Aug |
| |
Sep |
| |
Oct |
| |
Nov |
| |
Dec |
typeyear =int
int.exception Out_of_bounds
exception Undefined
[October 5th, 1582; October 14th, 1582].val make : year -> int -> int -> tmake year month day makes the date year-month-day. A BC year y
corresponds to the year -(y+1).Out_of_bounds when a date is outside the Julian period.Undefined when a date belongs to [October 5th, 1582; October
14th, 1582].val lmake : year:year -> ?month:int -> ?day:int -> unit -> tmake.
The default value of month and day is 1.Out_of_bounds when a date is outside the Julian period.Undefined when a date belongs to [October 5th, 1582; October
14th, 1582].val make_year : int -> [< `Year ] datemake_year y makes a date only represented by its year y. The month
and the day of such a date are not relevant.val make_year_month : int -> int -> [< `Month | `Year ] datemake_year_month y m makes a date only represented by its year y and
its month m. The day of such a date is not relevant.val today : unit -> tTime_Zone.current ()).val from_jd : int -> tfrom_jd 0 returns the date 4713 BC-1-1.val from_mjd : int -> tfrom_mjd 0 returns the date 1858-11-17.val from_day_of_year : year -> int -> tfrom_day_of_year 2008 39 returns the date 2008-2-8.val days_in_month : [< field > `Month `Year ] date -> intdays_in_month (make 2003 6 26) returns 30.val day_of_week : t -> dayday_of_week (make 2003 6 26) returns Thu.val day_of_month : t -> intday_of_month (make 2003 6 26) returns 26.val day_of_year : t -> intday_of_year (make 2003 12 28) returns 362.day_of_year (make 2003 1 5) returns 5val week : t -> intweek (make 2003 12 29) returns 1.week (make 2003 12 28) returns 52.week (make 2000 1 2) returns 52.week (make 2000 1 3) returns 1.val month : [< field > `Month ] date -> monthmonth (make 2003 6 26) returns Jun.val year : [< field > `Year ] date -> yearyear (make 2003 6 26) returns 2003.val to_jd : t -> intto_jd (make (-4712) 1 1) returns 0.val to_mjd : t -> intto_mjd (make 1858 11 17) returns 0.val equal : [< field ] date ->
[< field ] date -> bool
val compare : [< field ] date ->
[< field ] date -> int
val hash : [< field ] date -> int
val is_valid_date : year -> int -> int -> boolis_valid_date 2008 2 30 returns falseis_valid_date 2008 2 8 returns trueval is_leap_day : t -> booltrue if a date is a leap day
(i.e. February, 24th of a leap year); false otherwise.val is_gregorian : t -> booltrue if a date belongs to the Gregorian calendar;
false otherwise.val is_julian : t -> booltrue iff a date belongs to the Julian calendar;
false otherwise.val to_unixtm : t -> Unix.tmUnix.tm type.
The field is_isdst is always false. The fields Unix.tm_sec,
Unix.tm_min and Unix.tm_hour are irrelevant.val from_unixtm : Unix.tm -> tto_unixtm. Assume the current time zone.val to_unixfloat : t -> floatto_unixfloat (make 1970 1 1)
returns 0.0. So such a float is convertible with those of the Unix
module. The fractional part of the result is always 0.val from_unixfloat : float -> tto_unixfloat. Ignore the fractional part of the argument.
Assume the current time zone.val to_business : t -> year * int * dayto_business (make 2003 12 29) returns 2004, 1, Mon.to_business (make 2003 12 28) returns 2003, 52, Sunto_business (make 2000 1 2) returns 1999, 52, Sunto_business (make 2000 1 3) returns 2000, 1, Monval from_business : year -> int -> day -> tto_business respecting ISO-8601.
Notice that business weeks at the beginning and end of the year
can sometimes have year numbers which don't match the real year.Invalid_argument if the date is bad.val int_of_day : day -> intval day_of_int : int -> dayint_of_day.Invalid_argument if the argument does not belong to 1; 7.val int_of_month : month -> intval month_of_int : int -> monthint_of_month.Invalid_argument if the argument does not belong to 1; 12.module Period:sig..end
val add : ([< field ] as 'a) date ->
'a Period.period -> 'a dateadd d p returns d + p.Out_of_bounds when the resulting date is outside the Julian
period.Undefined when the resulting date belongs to [October 5th,
1582; October 14th, 1582].add (make 2003 12 31) (Period.month 2) returns the date
2004-3-2 (following the coercion rule describes in the introduction).add (make 2003 12 31) (Period.month 1) returns the date
2004-1-31val sub : ([< field ] as 'a) date ->
'a date ->
[< field > `Day `Week ] Period.periodsub d1 d2 returns the period between d1 and d2.val precise_sub : ([< field ] as 'a) date ->
'a date -> Period.tprecise_sub d1 d2 returns the period between d1 and d2.
It is equivalent to sub, but:val rem : ([< field ] as 'a) date ->
'a Period.period -> 'a daterem d p is equivalent to add d (Period.opp p).Out_of_bounds when the resulting date is outside the Julian
period.Undefined when the resulting date belongs to [October 5th,
1582; October 14th, 1582].val next : ([< field ] as 'a) date -> 'a -> 'a datenext d f returns the date corresponding to the next specified field.Out_of_bounds when the resulting date is outside the Julian
period.Undefined when the resulting date belongs to [October 5th,
1582; October 14th, 1582].next (make 2003 12 31) `Month returns the date 2004-1-31
(i.e. one month later).val prev : ([< field ] as 'a) date -> 'a -> 'a dateprev d f returns the date corresponding to the previous specified
field.Out_of_bounds when the resulting date is outside the Julian
period.Undefined when the resulting date belongs to [October 5th,
1582; October 14th, 1582].prev (make 2003 12 31) `Year returns the date 2002-12-31
(i.e. one year ago).val is_leap_year : year -> booltrue if a year is a leap year; false otherwise.val same_calendar : year -> year -> booltrue if two years have the same calendar; false
otherwise.val days_in_year : ?month:month -> year -> int
days_in_year ~month y returns the number of days in the year y up
to the end of the given month. Thus days_in_year ~month:Dec y is the
same as days_in_year y.
val weeks_in_year : year -> intval week_first_last : int -> year -> t * tval nth_weekday_of_month : year -> month -> day -> int -> tnth_weekday_of_month y m d n returns the n-th day d in the month
m of the year y (for instance the 3rd Thursday of the month).val century : year -> intcentury 2001 returns 21.century 2000 returns 20val millenium : year -> intmillenium 2001 returns 3.millenium 2000 returns 2val solar_number : year -> int
In the Julian calendar there is a one-to-one relationship between the
Solar number and the day on which a particular date falls.
val indiction : year -> intThe Indiction was used in the middle ages to specify the position of a year in a 15 year taxation cycle. It was introduced by emperor Constantine the Great on 1 September 312 and ceased to be used in 1806.
The Indiction has no astronomical significance.
val golden_number : year -> int
Considering that the relationship between the moon's phases and the
days of the year repeats itself every 19 years, it is natural to
associate a number between 1 and 19 with each year.
This number is the so-called Golden number.
val epact : year -> int
The Epact is a measure of the age of the moon (i.e. the number of days
that have passed since an "official" new moon) on a particular date.
val easter : year -> t
In the Christian world, Easter (and the days immediately preceding it)
is the celebration of the death and resurrection of Jesus in
(approximately) AD 30.
: year -> tcarnaval y is easter y - 48.val mardi_gras : year -> tmardi_gras y is easter y - 47.val ash : year -> tash y is easter y - 46.val palm : year -> tpalm y is easter y - 7.val easter_friday : year -> teaster_friday y is easter y - 2.val easter_saturday : year -> teaster_saturday y is easter y - 1.val easter_monday : year -> teaster_monday y is easter y + 1.val ascension : year -> tascension y is easter y + 39.val withsunday : year -> twithsunday y is easter y + 49.val withmonday : year -> twithmonday y is easter y + 50.val corpus_christi : year -> tcorpus_christi y is easter + 60.module Printer:sig..end
This module implements different printers: one for each kind of events.
The three printers have the same signature:
they mainly implement a fprint : string -> formatter -> t -> unit function
and a from_fstring : string -> string -> t function.
The first one prints an event according to a format string
(see below for a description of such a format).
The second one converts a string to an event according to a format string.
A format string follows the unix utility 'date' (with few modifications).
It is a string which contains two types of objects: plain characters and
conversion specifiers. Those specifiers are introduced by
a % character and their meanings are:
%%: a literal %%a: short day name (by using a short version of day_name)%A: day name (by using day_name)%b: short month name (by using a short version of month_name)%B: month name (by using month_name)%c: shortcut for %a %b %d %H:%M:%S %Y%C: century: as %Y without the two last digits (since version 2.01)%d: day of month (01..31)%D: shortcut for %m/%d/%y%e: same as %_d%F: shortcut for %Y-%m-%d: ISO-8601 notation (since version 2.01)%h: same as %b%H: hour (00..23)%I: hour (01..12)%i: same as %F; deprecated since 2.01%j: day of year (001..366)%k: same as %_H%l: same as %_I%m: month (01..12)%M: minute (00..59)%n: a newline (same as \n)%p: AM or PM%P: am or pm (same as %p in lowercase) (since version 2.01)%r: shortcut for %I:%M:%S %p%R: shortcut for %H:%M (since version 2.01)%s: number of seconds since 1970/1/1 (since version 2.01)%S: second (00..60)%t: a horizontal tab (same as \t)%T: shortcut for %H:%M:%S%V: week number of year (01..53)%w: day of week (1..7)%W: same as %V%y: last two digits of year (00..99)%Y: year (four digits)%z: time zone in the form +hhmm (e.g. -0400) (since version 2.01)%:z: time zone in the form +hh:mm (e.g. -04:00) (since version 2.01)%::z: time zone in the form +hh:mm:ss (e.g. -04:00:00)
(since version 2.01)%:::z: time zone in the form +hh (e.g. -04) (since version 2.01)`%' and a numeric directive are recognized:'-' (hyphen): do not pad the field'_' (underscore): pad the field with spaces'0' (zero): pad the field with zeroes (default) (since version 2.01)'^': use uppercase if possible (since version 2.01)
Padding is only available for printers, not for parsers.%c is Thu Sep 18 14:10:51 2003.the date is %B, the %-dth is
the date is January, the 6th is matched by ;%D is 01/06/03
You can manage the string representations of days and months.
By default, the English names are used but you can change their by
setting the references day_name and month_name.
val day_name : (Date.day -> string) Pervasives.refval name_of_day : Date.day -> stringname_of_day d is equivalent to !day_name d.
Used by the specifier %A.val short_name_of_day : Date.day -> stringshort_name_of_day d returns the 3 first characters of name_of_day d.
Used by the specifier %a.val month_name : (Date.month -> string) Pervasives.refval name_of_month : Date.month -> stringname_of_month m is equivalent to !day_month m.
Used by the specifier %B.val short_name_of_month : Date.month -> stringshort_name_of_month d returns the 3 first characters of
name_of_month d.
Used by the specifier %b.val set_word_regexp : Str.regexp -> unitfrom_fstring. Default is [a-zA-Z]*.
Printers also contain parsers which allow to build events from strings.
module type S =sig..end
module Date:Swith type t = Date.t
module DatePrinter:Swith type t = Date.t
module Time:Swith type t = Time.t
module TimePrinter:Swith type t = Time.t
module Ftime:Swith type t = Ftime.t
module Precise_Calendar:Swith type t = Calendar.Precise.t
module Calendar:Swith type t = Calendar.t
module CalendarPrinter:Swith type t = Calendar.t
module Precise_Fcalendar:Swith type t = Fcalendar.Precise.t
module Fcalendar:Swith type t = Fcalendar.t
sig
type field = Period.date_field
type -'a date constraint 'a = [< Date_sig.S.field ]
type t = Date_sig.S.field Date_sig.S.date
type day = Sun | Mon | Tue | Wed | Thu | Fri | Sat
type month =
Jan
| Feb
| Mar
| Apr
| May
| Jun
| Jul
| Aug
| Sep
| Oct
| Nov
| Dec
type year = int
exception Out_of_bounds
exception Undefined
val make : Date_sig.S.year -> int -> int -> Date_sig.S.t
val lmake :
year:Date_sig.S.year -> ?month:int -> ?day:int -> unit -> Date_sig.S.t
val make_year : int -> [< `Year ] Date_sig.S.date
val make_year_month : int -> int -> [< `Month | `Year ] Date_sig.S.date
val today : unit -> Date_sig.S.t
val from_jd : int -> Date_sig.S.t
val from_mjd : int -> Date_sig.S.t
val from_day_of_year : Date_sig.S.year -> int -> Date_sig.S.t
val days_in_month :
[< Date_sig.S.field > `Month `Year ] Date_sig.S.date -> int
val day_of_week : Date_sig.S.t -> Date_sig.S.day
val day_of_month : Date_sig.S.t -> int
val day_of_year : Date_sig.S.t -> int
val week : Date_sig.S.t -> int
val month :
[< Date_sig.S.field > `Month ] Date_sig.S.date -> Date_sig.S.month
val year : [< Date_sig.S.field > `Year ] Date_sig.S.date -> Date_sig.S.year
val to_jd : Date_sig.S.t -> int
val to_mjd : Date_sig.S.t -> int
val equal :
[< Date_sig.S.field ] Date_sig.S.date ->
[< Date_sig.S.field ] Date_sig.S.date -> bool
val compare :
[< Date_sig.S.field ] Date_sig.S.date ->
[< Date_sig.S.field ] Date_sig.S.date -> int
val hash : [< Date_sig.S.field ] Date_sig.S.date -> int
val is_valid_date : Date_sig.S.year -> int -> int -> bool
val is_leap_day : Date_sig.S.t -> bool
val is_gregorian : Date_sig.S.t -> bool
val is_julian : Date_sig.S.t -> bool
val to_unixtm : Date_sig.S.t -> Unix.tm
val from_unixtm : Unix.tm -> Date_sig.S.t
val to_unixfloat : Date_sig.S.t -> float
val from_unixfloat : float -> Date_sig.S.t
val to_business : Date_sig.S.t -> Date_sig.S.year * int * Date_sig.S.day
val from_business :
Date_sig.S.year -> int -> Date_sig.S.day -> Date_sig.S.t
val int_of_day : Date_sig.S.day -> int
val day_of_int : int -> Date_sig.S.day
val int_of_month : Date_sig.S.month -> int
val month_of_int : int -> Date_sig.S.month
module Period :
sig
type +'a p constraint 'a = [< Date_sig.S.field ]
type +'a period = 'a p constraint 'a = [< field ]
type t = Period.date_field period
val empty : [< Period.date_field ] period
val add :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val sub :
([< Period.date_field ] as 'a) period -> 'a period -> 'a period
val opp : ([< Period.date_field ] as 'a) period -> 'a period
val equal :
[< Period.date_field ] period ->
[< Period.date_field ] period -> bool
val compare :
[< Period.date_field ] period -> [< Period.date_field ] period -> int
val hash : [< Period.date_field ] period -> int
val make : int -> int -> int -> Date_sig.S.t
val lmake : ?year:int -> ?month:int -> ?day:int -> unit -> Date_sig.S.t
val year : int -> [< Date_sig.S.field > `Year ] period
val month : int -> [< Date_sig.S.field > `Month `Year ] period
val week : int -> [< Date_sig.S.field > `Day `Week ] period
val day : int -> [< Date_sig.S.field > `Day `Week ] period
exception Not_computable
val nb_days : [< Date_sig.S.field ] period -> int
val safe_nb_days : [< `Day | `Week ] period -> int
val ymd : [< Date_sig.S.field ] period -> int * int * int
end
val add :
([< Date_sig.S.field ] as 'a) Date_sig.S.date ->
'a Date_sig.S.Period.period -> 'a Date_sig.S.date
val sub :
([< Date_sig.S.field ] as 'a) Date_sig.S.date ->
'a Date_sig.S.date ->
[< Date_sig.S.field > `Day `Week ] Date_sig.S.Period.period
val precise_sub :
([< Date_sig.S.field ] as 'a) Date_sig.S.date ->
'a Date_sig.S.date -> Date_sig.S.Period.t
val rem :
([< Date_sig.S.field ] as 'a) Date_sig.S.date ->
'a Date_sig.S.Period.period -> 'a Date_sig.S.date
val next :
([< Date_sig.S.field ] as 'a) Date_sig.S.date -> 'a -> 'a Date_sig.S.date
val prev :
([< Date_sig.S.field ] as 'a) Date_sig.S.date -> 'a -> 'a Date_sig.S.date
val is_leap_year : Date_sig.S.year -> bool
val same_calendar : Date_sig.S.year -> Date_sig.S.year -> bool
val days_in_year : ?month:Date_sig.S.month -> Date_sig.S.year -> int
val weeks_in_year : Date_sig.S.year -> int
val week_first_last : int -> Date_sig.S.year -> Date_sig.S.t * Date_sig.S.t
val nth_weekday_of_month :
Date_sig.S.year ->
Date_sig.S.month -> Date_sig.S.day -> int -> Date_sig.S.t
val century : Date_sig.S.year -> int
val millenium : Date_sig.S.year -> int
val solar_number : Date_sig.S.year -> int
val indiction : Date_sig.S.year -> int
val golden_number : Date_sig.S.year -> int
val epact : Date_sig.S.year -> int
val easter : Date_sig.S.year -> Date_sig.S.t
val carnaval : Date_sig.S.year -> Date_sig.S.t
val mardi_gras : Date_sig.S.year -> Date_sig.S.t
val ash : Date_sig.S.year -> Date_sig.S.t
val palm : Date_sig.S.year -> Date_sig.S.t
val easter_friday : Date_sig.S.year -> Date_sig.S.t
val easter_saturday : Date_sig.S.year -> Date_sig.S.t
val easter_monday : Date_sig.S.year -> Date_sig.S.t
val ascension : Date_sig.S.year -> Date_sig.S.t
val withsunday : Date_sig.S.year -> Date_sig.S.t
val withmonday : Date_sig.S.year -> Date_sig.S.t
val corpus_christi : Date_sig.S.year -> Date_sig.S.t
end calendar-2.04/src/ 0000755 0002611 0003721 00000000000 12424135550 012637 5 ustar julien lsl calendar-2.04/src/calendar.mli 0000644 0002611 0003721 00000004067 12424135550 015122 0 ustar julien lsl (**************************************************************************)
(* *)
(* This file is part of Calendar. *)
(* *)
(* Copyright (C) 2003-2011 Julien Signoles *)
(* *)
(* you can redistribute it and/or modify it under the terms of the GNU *)
(* Lesser General Public License version 2.1 as published by the *)
(* Free Software Foundation, with a special linking exception (usual *)
(* for Objective Caml libraries). *)
(* *)
(* It is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR *)
(* *)
(* See the GNU Lesser General Public Licence version 2.1 for more *)
(* details (enclosed in the file LGPL). *)
(* *)
(* The special linking exception is detailled in the enclosed file *)
(* LICENSE. *)
(**************************************************************************)
(** Calendar implementation in which seconds are integer.
This module uses float. Then results may be unprecise, especially
comparison of calendars which differ with few seconds.
In this case, consider to use module [Precise]. *)
include Calendar_sig.S with module Date = Date and module Time = Time
(** More precise implementation of calendar in which seconds are integer.
@since 2.0 *)
module Precise: Calendar_sig.S with module Date = Date and module Time = Time
calendar-2.04/src/version.mli 0000644 0002611 0003721 00000003363 12424135550 015034 0 ustar julien lsl (**************************************************************************)
(* *)
(* This file is part of Calendar. *)
(* *)
(* Copyright (C) 2003-2011 Julien Signoles *)
(* *)
(* you can redistribute it and/or modify it under the terms of the GNU *)
(* Lesser General Public License version 2.1 as published by the *)
(* Free Software Foundation, with a special linking exception (usual *)
(* for Objective Caml libraries). *)
(* *)
(* It is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR *)
(* *)
(* See the GNU Lesser General Public Licence version 2.1 for more *)
(* details (enclosed in the file LGPL). *)
(* *)
(* The special linking exception is detailled in the enclosed file *)
(* LICENSE. *)
(**************************************************************************)
(** Information about version of calendar.
@since 2.0 *)
val version: string
(** Name of this version. *)
val date: string
(** Date of compilation. *)
calendar-2.04/src/time.mli 0000644 0002611 0003721 00000003267 12424135550 014310 0 ustar julien lsl (**************************************************************************)
(* *)
(* This file is part of Calendar. *)
(* *)
(* Copyright (C) 2003-2011 Julien Signoles *)
(* *)
(* you can redistribute it and/or modify it under the terms of the GNU *)
(* Lesser General Public License version 2.1 as published by the *)
(* Free Software Foundation, with a special linking exception (usual *)
(* for Objective Caml libraries). *)
(* *)
(* It is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR *)
(* *)
(* See the GNU Lesser General Public Licence version 2.1 for more *)
(* details (enclosed in the file LGPL). *)
(* *)
(* The special linking exception is detailled in the enclosed file *)
(* LICENSE. *)
(**************************************************************************)
(** Time implementation in which seconds are integers. *)
include Time_sig.S with type second = int
calendar-2.04/src/fcalendar.ml 0000644 0002611 0003721 00000003272 12424135550 015114 0 ustar julien lsl (**************************************************************************)
(* *)
(* This file is part of Calendar. *)
(* *)
(* Copyright (C) 2003-2011 Julien Signoles *)
(* *)
(* you can redistribute it and/or modify it under the terms of the GNU *)
(* Lesser General Public License version 2.1 as published by the *)
(* Free Software Foundation, with a special linking exception (usual *)
(* for Objective Caml libraries). *)
(* *)
(* It is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR *)
(* *)
(* See the GNU Lesser General Public Licence version 2.1 for more *)
(* details (enclosed in the file LGPL). *)
(* *)
(* The special linking exception is detailled in the enclosed file *)
(* LICENSE. *)
(**************************************************************************)
include Calendar_builder.Make(Date)(Ftime)
module Precise = Calendar_builder.Make_Precise(Date)(Ftime)
calendar-2.04/src/time_Zone.ml 0000644 0002611 0003721 00000005544 12424135550 015132 0 ustar julien lsl (**************************************************************************)
(* *)
(* This file is part of Calendar. *)
(* *)
(* Copyright (C) 2003-2011 Julien Signoles *)
(* *)
(* you can redistribute it and/or modify it under the terms of the GNU *)
(* Lesser General Public License version 2.1 as published by the *)
(* Free Software Foundation, with a special linking exception (usual *)
(* for Objective Caml libraries). *)
(* *)
(* It is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR *)
(* *)
(* See the GNU Lesser General Public Licence version 2.1 for more *)
(* details (enclosed in the file LGPL). *)
(* *)
(* The special linking exception is detailled in the enclosed file *)
(* LICENSE. *)
(**************************************************************************)
type t =
| UTC
| Local
| UTC_Plus of int
let tz = ref UTC
let out_of_bounds x = x < - 12 || x > 11
let in_bounds x = not (out_of_bounds x)
let make_in_bounds x =
let y = x mod 24 in
if y < -12 then y + 24
else if y > 11 then y - 24
else y
let gap_gmt_local =
let t = Unix.time () in
(Unix.localtime t).Unix.tm_hour - (Unix.gmtime t).Unix.tm_hour
let current () = !tz
let change = function
| UTC_Plus x when out_of_bounds x -> invalid_arg "Not a valid time zone"
| _ as t -> tz := t
let gap t1 t2 =
let aux t1 t2 =
assert (t1 < t2);
match t1, t2 with
| UTC, Local -> gap_gmt_local
| UTC, UTC_Plus x -> x
| Local, UTC_Plus x -> x - gap_gmt_local
| UTC_Plus x, UTC_Plus y -> y - x
| _ -> assert false
in
let res =
if t1 = t2 then 0
else if t1 < t2 then aux t1 t2
else - aux t2 t1
in
make_in_bounds res
let from_gmt () = gap UTC (current ())
let to_gmt () = gap (current ()) UTC
let is_dst () =
current () = Local && (Unix.localtime (Unix.time ())).Unix.tm_isdst
let hour_of_dst () = if is_dst () then 1 else 0
let on f tz x =
let old = current () in
change tz;
try
let res = f x in
change old;
res
with exn ->
change old;
raise exn
calendar-2.04/src/calendar.ml 0000644 0002611 0003721 00000003270 12424135550 014744 0 ustar julien lsl (**************************************************************************)
(* *)
(* This file is part of Calendar. *)
(* *)
(* Copyright (C) 2003-2011 Julien Signoles *)
(* *)
(* you can redistribute it and/or modify it under the terms of the GNU *)
(* Lesser General Public License version 2.1 as published by the *)
(* Free Software Foundation, with a special linking exception (usual *)
(* for Objective Caml libraries). *)
(* *)
(* It is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR *)
(* *)
(* See the GNU Lesser General Public Licence version 2.1 for more *)
(* details (enclosed in the file LGPL). *)
(* *)
(* The special linking exception is detailled in the enclosed file *)
(* LICENSE. *)
(**************************************************************************)
include Calendar_builder.Make(Date)(Time)
module Precise = Calendar_builder.Make_Precise(Date)(Time)
calendar-2.04/src/printer.ml 0000644 0002611 0003721 00000047241 12424135550 014664 0 ustar julien lsl (**************************************************************************)
(* *)
(* This file is part of Calendar. *)
(* *)
(* Copyright (C) 2003-2011 Julien Signoles *)
(* *)
(* you can redistribute it and/or modify it under the terms of the GNU *)
(* Lesser General Public License version 2.1 as published by the *)
(* Free Software Foundation, with a special linking exception (usual *)
(* for Objective Caml libraries). *)
(* *)
(* It is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR *)
(* *)
(* See the GNU Lesser General Public Licence version 2.1 for more *)
(* details (enclosed in the file LGPL). *)
(* *)
(* The special linking exception is detailled in the enclosed file *)
(* LICENSE. *)
(**************************************************************************)
module type S = sig
type t
val fprint : string -> Format.formatter -> t -> unit
val print : string -> t -> unit
val dprint : t -> unit
val sprint : string -> t -> string
val to_string : t -> string
val from_fstring : string -> string -> t
val from_string : string -> t
end
let day_name =
ref (function
| Date.Sun -> "Sunday"
| Date.Mon -> "Monday"
| Date.Tue -> "Tuesday"
| Date.Wed -> "Wednesday"
| Date.Thu -> "Thursday"
| Date.Fri -> "Friday"
| Date.Sat -> "Saturday")
let name_of_day d = !day_name d
let short_name_of_day d =
let d = name_of_day d in
try String.sub d 0 3 with Invalid_argument _ -> d
let month_name =
ref (function
| Date.Jan -> "January"
| Date.Feb -> "February"
| Date.Mar -> "March"
| Date.Apr -> "April"
| Date.May -> "May"
| Date.Jun -> "June"
| Date.Jul -> "July"
| Date.Aug -> "August"
| Date.Sep -> "September"
| Date.Oct -> "October"
| Date.Nov -> "November"
| Date.Dec -> "December")
let name_of_month m = !month_name m
let short_name_of_month m =
let m = name_of_month m in
try String.sub m 0 3 with Invalid_argument _ -> m
type pad =
| Zero
| Blank
| Empty
| Uppercase
(* [k] should be a power of 10. *)
let print_number fmt pad k n =
assert (k > 0);
let rec aux k n =
let fill fmt = function
| Zero -> Format.pp_print_int fmt 0
| Blank -> Format.pp_print_char fmt ' '
| Empty | Uppercase -> ()
in
if k = 1 then Format.pp_print_int fmt n
else begin
if n < k then fill fmt pad;
aux (k / 10) n
end
in
if n < 0 then Format.pp_print_char fmt '-';
aux k (abs n)
let bad_format s = raise (Invalid_argument ("bad format: " ^ s))
let not_match f s =
raise (Invalid_argument (s ^ " does not match the format " ^ f))
let gen_month_of_name f fmt name =
let rec aux i =
if i = 0 then not_match fmt name
else if f (Date.month_of_int i) = name then i
else aux (i-1)
in
aux 12
let month_of_name = gen_month_of_name name_of_month "%b"
let month_of_short_name = gen_month_of_name short_name_of_month "%B"
let gen_day_of_name f fmt name =
let rec aux i =
if i = 0 then not_match fmt name
else if f (Date.day_of_int i) = name then i
else aux (i-1)
in
aux 7
let day_of_name = gen_day_of_name name_of_day "%a"
let day_of_short_name = gen_day_of_name short_name_of_day "%A"
let word_regexp = ref (Str.regexp "[a-zA-Z]+")
let set_word_regexp r = word_regexp := r
type 'a second_builder =
| Int of (int -> int -> int -> int -> int -> int -> 'a)
| Float of (int -> int -> int -> int -> int -> float -> 'a)
(* [Make] creates a printer from a small set of functions. *)
module Make(X : sig
type t
val make : t second_builder
val from_business: Date.year -> int -> Date.day -> t
val default_format : string
val hour : t -> int
val minute : t -> int
val second : t -> int
val day_of_week : t -> Date.day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : t -> Date.month
val year : t -> int
val century: t -> int
val seconds_since_1970: t -> int
end) =
struct
type t = X.t
let short_interval h =
let h = Lazy.force h mod 12 in
if h = 0 then 12 else h
let fprint f fmt x =
let len = String.length f in
let weekday = lazy (name_of_day (X.day_of_week x)) in
let sweekday = lazy (short_name_of_day (X.day_of_week x)) in
let day_of_week = lazy (Date.int_of_day (X.day_of_week x)) in
let month_name = lazy (name_of_month (X.month x)) in
let smonth_name = lazy (short_name_of_month (X.month x)) in
let int_month = lazy (Date.int_of_month (X.month x)) in
let day_of_month = lazy (X.day_of_month x) in
let day_of_year = lazy (X.day_of_year x) in
let week = lazy (X.week x) in
let year = lazy (X.year x) in
let syear = (* work only if year in (0..9999) *)
lazy (Lazy.force year mod 100) in
let century = lazy (X.century x) in
let hour = lazy (X.hour x) in
let shour = lazy (short_interval hour) in
let minute = lazy (X.minute x) in
let second = lazy (X.second x) in
let apm = lazy (if Lazy.force hour mod 24 < 12 then "AM" else "PM") in
let tz = lazy (Time_Zone.from_gmt ()) in
let seconds_since_1970 = lazy (X.seconds_since_1970 x) in
let print_char c = Format.pp_print_char fmt c in
let print_int pad k n = print_number fmt pad k (Lazy.force n) in
let print_string pad s =
let pad s = match pad with
| Uppercase -> String.uppercase s
| Empty | Zero | Blank -> s
in
Format.pp_print_string fmt (pad (Lazy.force s))
in
let print_time pad h =
print_int pad 10 h;
print_char ':';
print_int pad 10 minute;
print_char ':';
print_int pad 10 second in
let rec parse_option i pad =
let parse_char c =
let jump = ref 0 in
begin match c with
| '%' -> print_char '%'
| 'a' -> print_string pad sweekday
| 'A' -> print_string pad weekday
| 'b' | 'h' -> print_string pad smonth_name
| 'B' -> print_string pad month_name
| 'c' ->
print_string pad sweekday;
print_char ' ';
print_string pad smonth_name;
print_char ' ';
print_int pad 10 day_of_month;
print_char ' ';
print_time pad hour;
print_char ' ';
print_int pad 1000 year
| 'C' -> print_int pad 10 century
| 'd' -> print_int pad 10 day_of_month
| 'D' ->
print_int pad 10 int_month;
print_char '/';
print_int pad 10 day_of_month;
print_char '/';
print_int pad 10 syear
| 'e' -> print_int Blank 10 day_of_month
| 'F' | 'i' ->
print_int pad 1000 year;
print_char '-';
print_int pad 10 int_month;
print_char '-';
print_int pad 10 day_of_month
| 'H' -> print_int pad 10 hour;
| 'I' -> print_number fmt pad 10 (short_interval hour)
| 'j' -> print_int pad 100 day_of_year
| 'k' -> print_int Blank 10 hour
| 'l' -> print_number fmt Blank 10 (short_interval hour)
| 'm' -> print_int pad 10 int_month
| 'M' -> print_int pad 10 minute
| 'n' -> print_char '\n'
| 'p' -> print_string pad apm
| 'P' ->
Format.pp_print_string fmt (String.lowercase (Lazy.force apm))
| 'r' ->
print_time pad shour;
print_char ' ';
print_string pad apm
| 's' -> print_int pad 1 seconds_since_1970
| 'R' ->
print_int pad 10 hour;
print_char ':';
print_int pad 10 minute
| 'S' -> print_int pad 10 second
| 't' -> print_char '\t'
| 'T' -> print_time pad hour
| 'V' | 'W' -> print_int pad 10 week
| 'w' -> print_int Empty 1 day_of_week
| 'y' -> print_int pad 10 syear
| 'Y' -> print_int pad 1000 year
| 'z' ->
if Lazy.force tz >= 0 then print_char '+';
print_int pad 10 tz;
print_number fmt Zero 10 0
| ':' ->
let idx =
try Str.search_forward (Str.regexp "z\\|:z\\|::z") f (i+1)
with Not_found -> bad_format f
in
let next = Str.matched_string f in
if idx <> i+1 then bad_format f;
if Lazy.force tz >= 0 then print_char '+';
print_int pad 10 tz;
let print_block () =
print_char ':';
print_number fmt Zero 10 0
in
jump := String.length next;
(match next with
| "z" -> print_block ()
| ":z" -> print_block (); print_block ()
| "::z" -> ()
| _ -> assert false);
| c -> bad_format ("%" ^ String.make 1 c)
end;
parse_format (i + 1 + !jump)
in
assert (i <= len);
if i = len then bad_format f;
(* else *)
let pad p =
if pad <> Zero then bad_format f;
(* else *) parse_option (i + 1) p
in
match f.[i] with
| '0' -> pad Zero
| '-' -> pad Empty
| '_' -> pad Blank
| '^' -> pad Uppercase
| c -> parse_char c
and parse_format i =
assert (i <= len);
if i = len then ()
else match f.[i] with
| '%' -> parse_option (i + 1) Zero
| c ->
Format.pp_print_char fmt c;
parse_format (i + 1)
in
parse_format 0;
Format.pp_print_flush fmt ()
let print f = fprint f Format.std_formatter
let dprint = print X.default_format
let sprint f d =
let buf = Buffer.create 15 in
let fmt = Format.formatter_of_buffer buf in
fprint f fmt d;
Buffer.contents buf
let to_string = sprint X.default_format
let from_fstring f s =
let delayed_computations = ref [] in
let day_of_week, week = ref min_int, ref min_int in
let year, month, day = ref min_int, ref min_int, ref min_int in
let hour, minute, second, pm =
ref min_int, ref min_int, ref (float min_int), ref 0
in
let tz = ref 0 in
let from_biz () =
if !week = -1 || !year = -1 then
bad_format (f ^ " (either week or year is not provided)");
let d = X.from_business !year !week (Date.day_of_int !day_of_week) in
year := X.year d;
month := Date.int_of_month (X.month d);
day := X.day_of_month d
in
let j = ref 0 in
let lenf = String.length f in
let lens = String.length s in
let read_char c =
if !j >= lens || s.[!j] != c then not_match f s;
incr j
in
let read_number n =
let jn = !j + n in
if jn > lens then not_match f s;
let res =
try int_of_string (String.sub s !j n)
with Failure _ -> not_match f s
in
j := jn;
res
in
let read_word ?(regexp=(!word_regexp)) () =
let jn =
try Str.search_forward regexp s !j with Not_found -> not_match f s
in
if jn <> !j then not_match f s;
let w = Str.matched_string s in
j := jn + String.length w;
w
in
let read_float =
let regexp = Str.regexp "[0-9][0-9]\\(\\.[0-9]*\\)?" in
fun () ->
try float_of_string (read_word ~regexp ())
with Failure _ -> not_match f s
in
let parse_a () = ignore (day_of_short_name (read_word ())) in
let parse_b () = month := month_of_short_name (read_word ()) in
let parse_d () = day := read_number 2 in
let parse_H () = hour := read_number 2 in
let parse_I () = hour := read_number 2 in
let parse_m () = month := read_number 2 in
let parse_M () = minute := read_number 2 in
let parse_p () =
match read_word () with
| "AM" -> pm := 0
| "PM" -> pm := 12
| s -> not_match "%p" ("\"" ^ s ^ "\"")
in
let parse_S () = match X.make with
| Int _ -> second := float (read_number 2)
| Float _ -> second := read_float ()
in
let parse_V fmt =
let n = read_number 2 in
if n < 1 || n > 53 then not_match fmt (string_of_int n);
week := n
in
let parse_y () = year := read_number 2 + 1900 in
let parse_Y () = year := read_number 4 in
let parse_tz () =
let sign = match read_word ~regexp:(Str.regexp "[\\+-]") () with
| "+" -> -1
| "-" -> 1
| _ -> assert false
in
let n = read_number 2 in
tz := sign * n;
in
let rec parse_option i =
assert (i <= lenf);
if i = lenf then bad_format f;
(* else *)
let jump = ref 0 in
(match f.[i] with
| '%' -> read_char '%'
| 'a' -> parse_a ()
| 'A' -> ignore (day_of_short_name (read_word ()))
| 'b' -> parse_b ()
| 'B' -> month := month_of_name (read_word ())
| 'c' ->
parse_a ();
read_char ' ';
parse_b ();
read_char ' ';
parse_d ();
read_char ' ';
parse_H ();
read_char ':';
parse_M ();
read_char ':';
parse_S ();
read_char ' ';
parse_Y ()
| 'C' -> ignore (read_number 2)
| 'd' -> parse_d ()
| 'D' ->
parse_m ();
read_char '/';
parse_d ();
read_char '/';
parse_y ()
| 'F' | 'i' ->
parse_Y ();
read_char '-';
parse_m ();
read_char '-';
parse_d ()
| 'h' -> parse_b ()
| 'H' -> parse_H ()
| 'I' -> parse_I ()
| 'j' ->
let n = read_number 3 in
if n < 1 || n > 366 then not_match "%j" (string_of_int n);
delayed_computations :=
(fun () ->
if !year = -1 then bad_format "%j (year not provided)";
let d = Date.from_day_of_year !year n in
month := Date.int_of_month (Date.month d);
day := Date.day_of_month d)
:: !delayed_computations
| 'm' -> parse_m ()
| 'M' -> parse_M ()
| 'n' -> read_char '\n'
| 'p' -> parse_p ()
| 'P' ->
(match read_word () with
| "am" -> pm := 0
| "pm" -> pm := 12
| s -> not_match "%P" ("\"" ^ s ^ "\""))
| 'r' ->
parse_I ();
read_char ':';
parse_M ();
read_char ':';
parse_S ();
read_char ' ';
parse_p ()
| 'R' ->
parse_H ();
read_char ':';
parse_M ()
| 'S' -> parse_S ()
| 't' -> read_char '\t'
| 'T' ->
parse_H ();
read_char ':';
parse_M ();
read_char ':';
parse_S ()
| 'V' -> parse_V "%V"
| 'w' ->
let n = read_number 1 in
if n < 1 || n > 7 then not_match "%w" (string_of_int n);
day_of_week := n;
delayed_computations := from_biz :: !delayed_computations;
| 'W' -> parse_V "%W"
| 'y' -> parse_y ()
| 'Y' -> parse_Y ()
| 'z' ->
parse_tz ();
ignore (read_number 2)
| ':' ->
let rec dot acc i = match f.[i] with
| ':' -> if acc = 3 then bad_format "%::::" else dot (acc+1) (i+1)
| 'z' -> acc
| c -> bad_format ("%:" ^ String.make 1 c)
in
let nb_dots = dot 1 (i+1) in
jump := nb_dots;
let next = String.make nb_dots ':' ^ "z" in
parse_tz ();
let read_block () = read_char ':'; ignore (read_number 2) in
(match next with
| ":z" -> read_block ()
| "::z" -> read_block (); read_block ()
| ":::z" -> () (* the only available precision is "hh" like "%z" *)
| _ -> assert false)
| c -> bad_format ("%" ^ String.make 1 c));
parse_format (i + 1 + !jump)
and parse_format i =
assert (i <= lenf);
if i = lenf then begin if !j != lens then not_match f s end
else match f.[i] with
| '%' -> parse_option (i + 1)
| c ->
read_char c;
parse_format (i + 1)
in
parse_format 0;
List.iter (fun f -> f ()) !delayed_computations;
let build mk = mk !year !month !day (!hour + !pm + !tz) !minute in
match X.make with
| Int f -> build f (Utils.Float.round !second)
| Float f -> build f !second
let from_string = from_fstring X.default_format
end
let cannot_create_event kind args =
if List.exists ((=) min_int) args then
raise (Invalid_argument ("Cannot create the " ^ kind))
module Date =
Make(struct
include Date
let make y m d _ _ _ =
cannot_create_event "date" [ y; m; d ];
make y m d
let make = Int make
let default_format = "%i"
let hour _ = bad_format "hour"
let minute _ = bad_format "minute"
let second _ = bad_format "second"
let century d = century (year d)
let seconds_since_1970 _ = bad_format "seconds_since_1970"
end)
module DatePrinter = Date
module Time =
Make(struct
include Time
let make _ _ _ h m s =
cannot_create_event "time" [ h; m; s ];
make h m s
let make = Int make
let default_format = "%T"
let from_business _ _ _ = bad_format "from_business"
let day_of_week _ = bad_format "day_of_week"
let day_of_month _ = bad_format "day_of_month"
let day_of_year _ = bad_format "day_of_year"
let week _ = bad_format "week"
let month _ = bad_format "month"
let int_month _ = bad_format "int_month"
let year _ = bad_format "year"
let century _ = bad_format "century"
let seconds_since_1970 _ = bad_format "seconds_since_1970"
end)
module TimePrinter = Time
module Ftime =
Make(struct
include Ftime
let make _ _ _ h m s =
cannot_create_event "time" [ h; m; Utils.Float.round s ];
make h m s
let make = Float make
let second x = Second.to_int (second x)
let default_format = "%T"
let from_business _ _ _ = bad_format "from_business"
let day_of_week _ = bad_format "day_of_week"
let day_of_month _ = bad_format "day_of_month"
let day_of_year _ = bad_format "day_of_year"
let week _ = bad_format "week"
let month _ = bad_format "month"
let int_month _ = bad_format "int_month"
let year _ = bad_format "year"
let century _ = bad_format "century"
let seconds_since_1970 _ = bad_format "seconds_since_1970"
end)
module Precise_Calendar =
Make(struct
include Calendar.Precise
let make y m d h mn s =
cannot_create_event "calendar" [ y; m; d; h; mn; s ];
make y m d h mn s
let from_business y w d = from_date (Date.from_business y w d)
let default_format = "%i %T"
let century c = Date.century (year c)
let seconds_since_1970 c =
let p = sub c (make 1970 1 1 0 0 0) in
Time.Second.to_int (Time.Period.to_seconds (Period.to_time p))
let make = Int make
end)
module Calendar =
Make(struct
include Calendar
let make y m d h mn s =
cannot_create_event "calendar" [ y; m; d; h; mn; s ];
make y m d h mn s
let from_business y w d = from_date (Date.from_business y w d)
let default_format = "%i %T"
let century c = Date.century (year c)
let seconds_since_1970 c =
let p = sub c (make 1970 1 1 0 0 0) in
Time.Second.to_int (Time.Period.to_seconds (Period.to_time p))
let make = Int make
end)
module CalendarPrinter = Calendar
module Precise_Fcalendar =
Make(struct
include Fcalendar.Precise
let make y m d h mn s =
cannot_create_event
"calendar" [ y; m; d; h; mn; Utils.Float.round s ];
make y m d h mn s
let from_business y w d = from_date (Date.from_business y w d)
let second s = Time.Second.to_int (second s)
let default_format = "%i %T"
let century c = Date.century (year c)
let seconds_since_1970 c =
let p = sub c (make 1970 1 1 0 0 0.) in
Time.Second.to_int (Time.Period.to_seconds (Period.to_time p))
let make = Float make
end)
module Fcalendar =
Make(struct
include Fcalendar
let make y m d h mn s =
cannot_create_event
"calendar" [ y; m; d; h; mn; Utils.Float.round s ];
make y m d h mn s
let from_business y w d = from_date (Date.from_business y w d)
let second s = Time.Second.to_int (second s)
let default_format = "%i %T"
let century c = Date.century (year c)
let seconds_since_1970 c =
let p = sub c (make 1970 1 1 0 0 0.) in
Time.Second.to_int (Time.Period.to_seconds (Period.to_time p))
let make = Float make
end)
calendar-2.04/src/time_Zone.mli 0000644 0002611 0003721 00000006113 12424135550 015274 0 ustar julien lsl (**************************************************************************)
(* *)
(* This file is part of Calendar. *)
(* *)
(* Copyright (C) 2003-2011 Julien Signoles *)
(* *)
(* you can redistribute it and/or modify it under the terms of the GNU *)
(* Lesser General Public License version 2.1 as published by the *)
(* Free Software Foundation, with a special linking exception (usual *)
(* for Objective Caml libraries). *)
(* *)
(* It is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR *)
(* *)
(* See the GNU Lesser General Public Licence version 2.1 for more *)
(* details (enclosed in the file LGPL). *)
(* *)
(* The special linking exception is detailled in the enclosed file *)
(* LICENSE. *)
(**************************************************************************)
(** Time zone management.
You can [change] the [current] time zone in your program by side effect. *)
(** Type of a time zone. *)
type t =
| UTC (** Greenwich Meridian Time *)
| Local (** Local Time *)
| UTC_Plus of int (** Another time zone specified from UTC *)
val current : unit -> t
(** Return the current time zone. It is [UTC] before any change. *)
val change : t -> unit
(** Change the current time zone by another one.
Raise [Invalid_argument] if the specified time zone is [UTC_Plus x] with
[x < -12] or [x > 11] *)
val gap : t -> t -> int
(** Return the gap between two time zone.
@example [gap UTC (UTC_Plus 5)] returns 5 and, at Paris in summer,
[gap Local UTC] returns -2. *)
val from_gmt : unit -> int
(** [from_gmt ()] is equivalent to [gap UTC (current ())]. *)
val to_gmt : unit -> int
(** [to_gmt ()] is equivalent to [gap (current ()) UTC]. *)
val is_dst : unit -> bool
(** [is_dst ()] checks if daylight saving time is in effect.
Only relevant in local time.
Returns alway [false] in another time zone.
@since 1.09.4 *)
val hour_of_dst : unit -> int
(** [hour_of_dst ()] returns [1] if [is_dst ()] and [0] otherwise.
@since 1.09.4 *)
val on: ('a -> 'b) -> t -> 'a -> 'b
(** [on f tz x] changes the time zone to [tz], then computes [f x], and
finally reset the time zone to the initial one and returns the result of
the computation.
@since 2.0 *)
calendar-2.04/src/fcalendar.mli 0000644 0002611 0003721 00000004111 12424135550 015256 0 ustar julien lsl (**************************************************************************)
(* *)
(* This file is part of Calendar. *)
(* *)
(* Copyright (C) 2003-2011 Julien Signoles *)
(* *)
(* you can redistribute it and/or modify it under the terms of the GNU *)
(* Lesser General Public License version 2.1 as published by the *)
(* Free Software Foundation, with a special linking exception (usual *)
(* for Objective Caml libraries). *)
(* *)
(* It is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR *)
(* *)
(* See the GNU Lesser General Public Licence version 2.1 for more *)
(* details (enclosed in the file LGPL). *)
(* *)
(* The special linking exception is detailled in the enclosed file *)
(* LICENSE. *)
(**************************************************************************)
(** Calendar implementation in which seconds are float.
This module uses float. Then results may be very unprecise, especially
comparison of calendars which differ with few seconds.
In this case, consider to use module [Precise].
@since 2.0 *)
include Calendar_sig.S with module Date = Date and module Time = Ftime
(** More precise implementation of calendar in which seconds are float.
@since 2.0 *)
module Precise: Calendar_sig.S with module Date = Date and module Time = Ftime
calendar-2.04/src/time.ml 0000644 0002611 0003721 00000010345 12424135550 014132 0 ustar julien lsl (**************************************************************************)
(* *)
(* This file is part of Calendar. *)
(* *)
(* Copyright (C) 2003-2011 Julien Signoles *)
(* *)
(* you can redistribute it and/or modify it under the terms of the GNU *)
(* Lesser General Public License version 2.1 as published by the *)
(* Free Software Foundation, with a special linking exception (usual *)
(* for Objective Caml libraries). *)
(* *)
(* It is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR *)
(* *)
(* See the GNU Lesser General Public Licence version 2.1 for more *)
(* details (enclosed in the file LGPL). *)
(* *)
(* The special linking exception is detailled in the enclosed file *)
(* LICENSE. *)
(**************************************************************************)
(*S Introduction.
A time is represents by a number of seconds in UTC.
Outside this module, a time is interpreted in the current time zone.
So, each operations have to coerce a given time according to the current
time zone. *)
(*S Datatypes. *)
include Utils.Int
type second = int
type field = [ `Hour | `Minute | `Second ]
(*S Conversions. *)
let one_day = 86400
let convert t t1 t2 = t + 3600 * Time_Zone.gap t1 t2
let from_gmt t = convert t Time_Zone.UTC (Time_Zone.current ())
let to_gmt t = convert t (Time_Zone.current ()) Time_Zone.UTC
(* Coerce [t] into the interval $[0; 86400[$ (i.e. a one day interval). *)
let normalize t =
let t = from_gmt t in
let t_mod, t_div = to_gmt (t mod one_day), t / one_day in
if t < 0 then t_mod + one_day, t_div - 1 else t_mod, t_div
(*S Constructors. *)
let make h m s = to_gmt (h * 3600 + m * 60 + s)
let lmake ?(hour = 0) ?(minute = 0) ?(second = 0) () = make hour minute second
let midnight () = to_gmt 0
let midday () = to_gmt 43200
let now () =
let now = Unix.gmtime (Unix.time ()) in
3600 * now.Unix.tm_hour + 60 * now.Unix.tm_min + now.Unix.tm_sec
(*S Getters. *)
let hour t = from_gmt t / 3600
let minute t = from_gmt t mod 3600 / 60
let second t = from_gmt t mod 60
let to_hours t = float (from_gmt t) /. 3600.
let to_minutes t = float (from_gmt t) /. 60.
let to_seconds t = from_gmt t
(*S Boolean operations. *)
let is_pm t =
let t, _ = normalize t in
let m, _ = normalize (midday ()) in
t < m
let is_am t =
let t, _ = normalize t in
let m, _ = normalize (midday ()) in
t >= m
(*S Coercions. *)
let from_hours t = to_gmt (int_of_float (t *. 3600.))
let from_minutes t = to_gmt (int_of_float (t *. 60.))
let from_seconds t = to_gmt t
(*S Seconds. *)
module Second = struct
type t = second
let from_int x = x
let to_int x = x
let from_float = Utils.Float.round
let to_float = float
end
(*S Period. *)
module Period = struct
type +'a period = int constraint 'a = [< Period.date_field ]
include Utils.Int
let make h m s = h * 3600 + m * 60 + s
let lmake ?(hour=0) ?(minute=0) ?(second=0) () = make hour minute second
let length x = x
let hour x = x * 3600
let minute x = x * 60
let second x = x
let empty = 0
let add = (+)
let sub = (-)
let mul = ( * )
let div = (/)
let opp x = - x
let to_seconds x = x
let to_minutes x = float x /. 60.
let to_hours x = float x /. 3600.
end
(*S Arithmetic operations on times and periods. *)
let add = (+)
let sub = (-)
let rem = (-)
let next x = function
| `Hour -> x + 3600
| `Minute -> x + 60
| `Second -> x + 1
let prev x = function
| `Hour -> x - 3600
| `Minute -> x - 60
| `Second -> x - 1
calendar-2.04/src/ftime.ml 0000644 0002611 0003721 00000010634 12424135550 014301 0 ustar julien lsl (**************************************************************************)
(* *)
(* This file is part of Calendar. *)
(* *)
(* Copyright (C) 2003-2011 Julien Signoles *)
(* *)
(* you can redistribute it and/or modify it under the terms of the GNU *)
(* Lesser General Public License version 2.1 as published by the *)
(* Free Software Foundation, with a special linking exception (usual *)
(* for Objective Caml libraries). *)
(* *)
(* It is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR *)
(* *)
(* See the GNU Lesser General Public Licence version 2.1 for more *)
(* details (enclosed in the file LGPL). *)
(* *)
(* The special linking exception is detailled in the enclosed file *)
(* LICENSE. *)
(**************************************************************************)
(*S Introduction.
A time is represents by a number of seconds in UTC.
Outside this module, a time is interpreted in the current time zone.
So, each operations have to coerce a given time according to the current
time zone. *)
(*S Datatypes. *)
include Utils.Float
type second = float
type field = [ `Hour | `Minute | `Second ]
(*S Conversions. *)
let one_day = 86400
let fone_day = 86400.
let convert t t1 t2 = t +. float (3600 * Time_Zone.gap t1 t2)
let from_gmt t = convert t Time_Zone.UTC (Time_Zone.current ())
let to_gmt t = convert t (Time_Zone.current ()) Time_Zone.UTC
(* Coerce [t] into the interval $[0; 86400[$ (i.e. a one day interval). *)
let normalize t =
let t = from_gmt t in
let t_mod, t_div = to_gmt (mod_float t fone_day), int_of_float t / one_day in
if t < 0. then t_mod +. fone_day, t_div - 1 else t_mod, t_div
(*S Constructors. *)
let make h m s = to_gmt (float (h * 3600 + m * 60) +. s)
let lmake ?(hour = 0) ?(minute = 0) ?(second = 0.) () = make hour minute second
let midnight () = to_gmt 0.
let midday () = to_gmt 43200.
let now () =
let now = Unix.gettimeofday () in
let gmnow = Unix.gmtime now in
let frac, _ = modf now in
float
(3600 * gmnow.Unix.tm_hour + 60 * gmnow.Unix.tm_min + gmnow.Unix.tm_sec)
+. frac
(*S Getters. *)
let hour t = int_of_float (from_gmt t) / 3600
let minute t = int_of_float (from_gmt t) mod 3600 / 60
let second t = mod_float (from_gmt t) 60.
let to_hours t = from_gmt t /. 3600.
let to_minutes t = from_gmt t /. 60.
let to_seconds t = from_gmt t
(*S Boolean operations. *)
let is_pm t =
let t, _ = normalize t in
let m, _ = normalize (midday ()) in
t < m
let is_am t =
let t, _ = normalize t in
let m, _ = normalize (midday ()) in
t >= m
(*S Coercions. *)
let from_hours t = to_gmt (t *. 3600.)
let from_minutes t = to_gmt (t *. 60.)
let from_seconds t = to_gmt t
(*S Seconds. *)
module Second = struct
type t = second
let from_int = float
let to_int = int_of_float
let from_float x = x
let to_float x = x
end
(*S Period. *)
module Period = struct
type +'a period = float constraint 'a = [< Period.date_field ]
include Utils.Float
let make h m s = float (h * 3600 + m * 60) +. s
let lmake ?(hour=0) ?(minute=0) ?(second=0.) () = make hour minute second
let length x = x
let hour x = float (x * 3600)
let minute x = float (x * 60)
let second x = x
let empty = 0.
let add = (+.)
let sub = (-.)
let mul = ( *. )
let div = (/.)
let opp x = -. x
let to_seconds x = x
let to_minutes x = x /. 60.
let to_hours x = x /. 3600.
end
(*S Arithmetic operations on times and periods. *)
let add = (+.)
let sub = (-.)
let rem = (-.)
let next x = function
| `Hour -> x +. 3600.
| `Minute -> x +. 60.
| `Second -> x +. 1.
let prev x = function
| `Hour -> x -. 3600.
| `Minute -> x -. 60.
| `Second -> x -. 1.
calendar-2.04/src/ftime.mli 0000644 0002611 0003721 00000003407 12424135550 014452 0 ustar julien lsl (**************************************************************************)
(* *)
(* This file is part of Calendar. *)
(* *)
(* Copyright (C) 2003-2011 Julien Signoles *)
(* *)
(* you can redistribute it and/or modify it under the terms of the GNU *)
(* Lesser General Public License version 2.1 as published by the *)
(* Free Software Foundation, with a special linking exception (usual *)
(* for Objective Caml libraries). *)
(* *)
(* It is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR *)
(* *)
(* See the GNU Lesser General Public Licence version 2.1 for more *)
(* details (enclosed in the file LGPL). *)
(* *)
(* The special linking exception is detailled in the enclosed file *)
(* LICENSE. *)
(**************************************************************************)
(** Time implementation in which seconds are floats.
This module uses float. Then results may be very unprecise.
@since 2.0 *)
include Time_sig.S with type second = float
calendar-2.04/src/time_sig.mli 0000644 0002611 0003721 00000021771 12424135550 015152 0 ustar julien lsl (**************************************************************************)
(* *)
(* This file is part of Calendar. *)
(* *)
(* Copyright (C) 2003-2011 Julien Signoles *)
(* *)
(* you can redistribute it and/or modify it under the terms of the GNU *)
(* Lesser General Public License version 2.1 as published by the *)
(* Free Software Foundation, with a special linking exception (usual *)
(* for Objective Caml libraries). *)
(* *)
(* It is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR *)
(* *)
(* See the GNU Lesser General Public Licence version 2.1 for more *)
(* details (enclosed in the file LGPL). *)
(* *)
(* The special linking exception is detailled in the enclosed file *)
(* LICENSE. *)
(**************************************************************************)
(** Time interface. A time may be seen as a triple (hour, minute, second).
If minutes and seconds do not belong to [\[0; 60\[], they are coerced into
this interval.
@example "30 hours, 60 minutes, 80 seconds" is coerced to "31 hours, 1
minute, 20 seconds".
Each time is interpreted in the current time zone (given by
[Time_Zone.current ()]). So, if you change the time zone (by
{!Time_Zone.change}), each time consequently changes.
If you want to express a time in another time zone (and do not affect
others times), use the [convert] function. *)
(** Interface for seconds.
@since 2.0 *)
module type Second = sig
type t
(** Type of seconds. *)
val from_int: int -> t
(** Convert an integer to an equivalent number of seconds. *)
val from_float: float -> t
(** Convert a float to an equivalent number of seconds. *)
val to_int: t -> int
(** Inverse of [from_int]. *)
val to_float: t -> float
(** Inverse of [from_float]. *)
end
(** Common operations for all time representations.
@since 2.0 (this signature was before inlined in interface of Time). *)
module type S = sig
(** {2 Datatypes} *)
type t
(** Type of a time. *)
type field = [ `Hour | `Minute | `Second ]
(** The different fields of a time. *)
(** {2 Second} *)
type second
(** Type of a second.
@since 2.0 (was an integer in previous versions). *)
(** Second implementation
@since 2.0 *)
module Second: Second with type t = second
(** {2 Constructors} *)
val make : int -> int -> second -> t
(** [make hour minute second] makes the time hour-minute-second. *)
val lmake : ?hour:int -> ?minute:int -> ?second:second -> unit -> t
(** Labelled version of [make]. The default value is [0] for each argument.
@since 1.05 *)
val now : unit -> t
(** The current time based on [Time_Zone.current ()]. *)
val midnight : unit -> t
(** [midnight ()] is midnight (expressed in the current time zone).
So, it has always the same behaviour as [make 0 0 0]. *)
val midday : unit -> t
(** [midday ()] is midday (expressed in the current time zone).
So, it has always the same behaviour as [make 12 0 0]. *)
(** {2 Conversions} *)
val convert : t -> Time_Zone.t -> Time_Zone.t -> t
(** [convert t t1 t2] converts the time [t] expressed in the time zone [t1]
to the same time expressed in the time zone [t2].
@example [convert (make 20 0 0) (Time_Zone.GMT_Plus 2)
(Time_Zone.GMT_Plus 4)] returns the time 22-0-0. *)
val from_gmt : t -> t
(** [from_gmt t] is equivalent to
[convert t Time_Zone.GMT (Time_Zone.current ())]. *)
val to_gmt : t -> t
(** [to_gmt t] is equivalent to
[convert t (Time_Zone.current ()) Time_Zone.GMT]. *)
val normalize : t -> t * int
(** [normalize t] returns [t] such that [hour t] belongs to [\[0; 24\[]. The
second component of the result is the number of days needed by the
modification.
@example [normalize (make 22 0 0)] returns the time 22-0-0 and 0,
[normalize (make 73 0 0)] returns the time 1-0-0 and 3 and [normalize
(make (-73) 0 0)] returns the time 23-0-0 and (-4). *)
(** {2 Getters} *)
val hour : t -> int
(** Hour.
@example [hour (make 20 0 0)] returns 20. *)
val minute : t -> int
(** Minute.
@example [minute (make 20 10 0)] returns 10. *)
val second : t -> second
(** Second.
@example [second (make 20 10 5)] returns 5. *)
val to_seconds : t -> second
(** Number of seconds of a time.
@example [to_seconds (make 1 2 3)] returns [3600 + 120 + 3 = 3723]. *)
val to_minutes : t -> float
(** Number of minutes of a time. The resulting fractional part represents
seconds.
@example [to_minutes (make 1 2 3)] returns [60+2+0.05 = 62.05]. *)
val to_hours : t -> float
(** Number of hours of a time. The resulting fractional part represents
minutes and seconds.
@example [to_hours (make 1 3 0)] returns [1 + 0.05 = 1.05]. *)
(** {2 Times are comparable} *)
val equal: t -> t -> bool
(** Equality function between two times.
@see