/branches/matreshka-0.1.x/source/league/matreshka-internals-calendars.ads

http://github.com/landgraf/matreshka · Ada · 82 lines · 11 code · 11 blank · 60 comment · 1 complexity · 63e224f16571744d0b2e2ee7c099fdd4 MD5 · raw file 

    

  1. ------------------------------------------------------------------------------
    2. 

  2. --                                                                          --
    3. 

  3. --                            Matreshka Project                             --
    4. 

  4. --                                                                          --
    5. 

  5. --         Localization, Internationalization, Globalization for Ada        --
    6. 

  6. --                                                                          --
    7. 

  7. --                        Runtime Library Component                         --
    8. 

  8. --                                                                          --
    9. 

  9. ------------------------------------------------------------------------------
    10. 

  10. --                                                                          --
    11. 

  11. -- Copyright Š 2011, Vadim Godunko <vgodunko@gmail.com>                     --
    12. 

  12. -- All rights reserved.                                                     --
    13. 

  13. --                                                                          --
    14. 

  14. -- Redistribution and use in source and binary forms, with or without       --
    15. 

  15. -- modification, are permitted provided that the following conditions       --
    16. 

  16. -- are met:                                                                 --
    17. 

  17. --                                                                          --
    18. 

  18. --  * Redistributions of source code must retain the above copyright        --
    19. 

  19. --    notice, this list of conditions and the following disclaimer.         --
    20. 

  20. --                                                                          --
    21. 

  21. --  * Redistributions in binary form must reproduce the above copyright     --
    22. 

  22. --    notice, this list of conditions and the following disclaimer in the   --
    23. 

  23. --    documentation and/or other materials provided with the distribution.  --
    24. 

  24. --                                                                          --
    25. 

  25. --  * Neither the name of the Vadim Godunko, IE nor the names of its        --
    26. 

  26. --    contributors may be used to endorse or promote products derived from  --
    27. 

  27. --    this software without specific prior written permission.              --
    28. 

  28. --                                                                          --
    29. 

  29. -- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS      --
    30. 

  30. -- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT        --
    31. 

  31. -- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR    --
    32. 

  32. -- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT     --
    33. 

  33. -- HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,   --
    34. 

  34. -- SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED --
    35. 

  35. -- TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR   --
    36. 

  36. -- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF   --
    37. 

  37. -- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING     --
    38. 

  38. -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS       --
    39. 

  39. -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.             --
    40. 

  40. --                                                                          --
    41. 

  41. ------------------------------------------------------------------------------
    42. 

  42. --  $Revision$ $Date$
    43. 

  43. ------------------------------------------------------------------------------
    44. 

  44. with Interfaces;
    45. 

  45. 

  46. package Matreshka.Internals.Calendars is
    47. 

  47. 

  48.    pragma Preelaborate;
    49. 

  49. 

  50.    --  Universal Time Coordinated (UTC) representation from the X/Open DCE Time
    51. 

  51.    --  Service is used as internal representation. It is defined as follows:
    52. 

  52.    --
    53. 

  53.    --     Time units          100 nanoseconds (10-7 seconds)
    54. 

  54.    --
    55. 

  55.    --     Base time           15 October 1582 00:00:00.
    56. 

  56.    --
    57. 

  57.    --     Approximate range   AD 30,000
    58. 

  58.    --
    59. 

  59.    --  UTC time in this implementation always refers to time in Greenwich Time
    60. 

  60.    --  Zone.
    61. 

  61. 

  62.    type Absolute_Time is new Interfaces.Integer_64;
    63. 

  63. 

  64.    --  The corresponding internal representations of relative time is the same
    65. 

  65.    --  one as for absolute time, and hence with similar characteristics:
    66. 

  66.    --
    67. 

  67.    --     Time units          100 nanoseconds (10-7 seconds)
    68. 

  68.    --
    69. 

  69.    --     Approximate range   +/- 30,000 years
    70. 

  70. 

  71.    type Relative_Time is new Interfaces.Integer_64;
    72. 

  72. 

  73.    type Julian_Day_Number is new Interfaces.Integer_32;
    74. 

  74. 

  75.    type Internal_Time_Zone is null record;
    76. 

  76. 

  77.    type Time_Zone_Access is access all Internal_Time_Zone;
    78. 

  78.    for Time_Zone_Access'Storage_Size use 0;
    79. 

    80. 

  80.    UTC_Time_Zone : aliased Internal_Time_Zone;
    81. 

  81. 

  82. end Matreshka.Internals.Calendars;
    83.