1 ------------------------------------------------------------------------------
3 -- GNAT RUN-TIME COMPONENTS --
5 -- A D A . C A L E N D A R --
10 -- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
12 -- This specification is derived from the Ada Reference Manual for use with --
13 -- GNAT. The copyright notice above, and the license provisions that follow --
14 -- apply solely to the contents of the part following the private keyword. --
16 -- GNAT is free software; you can redistribute it and/or modify it under --
17 -- terms of the GNU General Public License as published by the Free Soft- --
18 -- ware Foundation; either version 2, or (at your option) any later ver- --
19 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
20 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
21 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
22 -- for more details. You should have received a copy of the GNU General --
23 -- Public License distributed with GNAT; see file COPYING. If not, write --
24 -- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
25 -- MA 02111-1307, USA. --
27 -- As a special exception, if other files instantiate generics from this --
28 -- unit, or you link this unit with other files to produce an executable, --
29 -- this unit does not by itself cause the resulting executable to be --
30 -- covered by the GNU General Public License. This exception does not --
31 -- however invalidate any other reasons why the executable file might be --
32 -- covered by the GNU Public License. --
34 -- GNAT was originally developed by the GNAT team at New York University. --
35 -- Extensive contributions were provided by Ada Core Technologies Inc. --
37 ------------------------------------------------------------------------------
39 package Ada
.Calendar
is
43 -- Declarations representing limits of allowed local time values. Note that
44 -- these do NOT constrain the possible stored values of time which may well
45 -- permit a larger range of times (this is explicitly allowed in Ada 95).
47 subtype Year_Number
is Integer range 1901 .. 2099;
48 subtype Month_Number
is Integer range 1 .. 12;
49 subtype Day_Number
is Integer range 1 .. 31;
51 subtype Day_Duration
is Duration range 0.0 .. 86_400
.0
;
53 function Clock
return Time
;
55 function Year
(Date
: Time
) return Year_Number
;
56 function Month
(Date
: Time
) return Month_Number
;
57 function Day
(Date
: Time
) return Day_Number
;
58 function Seconds
(Date
: Time
) return Day_Duration
;
62 Year
: out Year_Number
;
63 Month
: out Month_Number
;
65 Seconds
: out Day_Duration
);
71 Seconds
: Day_Duration
:= 0.0)
74 function "+" (Left
: Time
; Right
: Duration) return Time
;
75 function "+" (Left
: Duration; Right
: Time
) return Time
;
76 function "-" (Left
: Time
; Right
: Duration) return Time
;
77 function "-" (Left
: Time
; Right
: Time
) return Duration;
79 function "<" (Left
, Right
: Time
) return Boolean;
80 function "<=" (Left
, Right
: Time
) return Boolean;
81 function ">" (Left
, Right
: Time
) return Boolean;
82 function ">=" (Left
, Right
: Time
) return Boolean;
84 Time_Error
: exception;
87 pragma Inline
(Clock
);
90 pragma Inline
(Month
);
101 -- Time is represented as a signed duration from the base point which is
102 -- what Unix calls the EPOCH (i.e. 12 midnight (24:00:00), Dec 31st, 1969,
103 -- or if you prefer 0:00:00 on Jan 1st, 1970). Since Ada allows dates
104 -- before this EPOCH value, the stored duration value may be negative.
106 -- The time value stored is typically a GMT value, as provided in standard
107 -- Unix environments. If this is the case then Split and Time_Of perform
108 -- required conversions to and from local times. The range of times that
109 -- can be stored in Time values depends on the declaration of the type
110 -- Duration, which must at least cover the required Ada range represented
111 -- by the declaration of Year_Number, but may be larger (we take full
112 -- advantage of the new permission in Ada 95 to store time values outside
113 -- the range that would be acceptable to Split). The Duration type is a
114 -- real value representing a time interval in seconds.
116 type Time
is new Duration;