/branches/matreshka-0.1.x/source/league/matreshka-internals-strings-configuration__x86_64.ads

http://github.com/landgraf/matreshka · Ada · 60 lines · 8 code · 5 blank · 47 comment · 0 complexity · 18092d9978d9bfb83838beec50aba224 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. --  This is x86_64 specific version of the package.
    45. 

  45. ------------------------------------------------------------------------------
    46. 

  46. with Matreshka.Internals.Strings.Handlers.X86_64;
    47. 

  47. 

  48. package Matreshka.Internals.Strings.Configuration is
    49. 

  49. 

  50.    pragma Preelaborate;
    51. 

  51. 

  52.    String_Handler : not null access
    53. 

  53.      Matreshka.Internals.Strings.Handlers.Abstract_String_Handler'Class
    54. 

  54.        := Matreshka.Internals.Strings.Handlers.X86_64.Handler'Access;
    55. 

  55.    --  Platform dependent strings handler to be used for operations on strings.
    56. 

  56. 

  57.    procedure Initialize is null;
    58. 

  58.    --  Setup most optimal string handler.
    59. 

  59. 

  60. end Matreshka.Internals.Strings.Configuration;
    61.