gnatprove_13.2.1_28fc3583/libexec/spark/lib/gcc/x86_64-pc-linux-gnu/13.2.0/adainclude/a-catizo.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
------------------------------------------------------------------------------
--                                                                          --
--                         GNAT RUN-TIME COMPONENTS                         --
--                                                                          --
--              A D A . C A L E N D A R . T I M E _ Z O N E S               --
--                                                                          --
--                                 S p e c                                  --
--                                                                          --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT.  In accordance with the copyright of that document, you can freely --
-- copy and modify this specification,  provided that if you redistribute a --
-- modified version,  any changes that you have made are clearly indicated. --
--                                                                          --
------------------------------------------------------------------------------

--  This package provides routines to determine the offset of dates to GMT.
--  It is defined in the Ada 2005 RM (9.6.1).

package Ada.Calendar.Time_Zones is

   --  Time zone manipulation

   type Time_Offset is range -(28 * 60) .. 28 * 60;
   --  Offset in minutes

   Unknown_Zone_Error : exception;

   function Local_Time_Offset (Date : Time := Clock) return Time_Offset;
   function UTC_Time_Offset (Date : Time := Clock) return Time_Offset
     renames Local_Time_Offset;
   --  Returns (in minutes), the difference between the implementation-defined
   --  time zone of Calendar, and UTC time, at the time Date. If the time zone
   --  of the Calendar implementation is unknown, raises Unknown_Zone_Error.

end Ada.Calendar.Time_Zones;