File : a-chacon.ads


   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                         GNAT RUN-TIME COMPONENTS                         --
   4 --                                                                          --
   5 --           A D A . C H A R A C T E R S . C O N V E R S I O N S            --
   6 --                                                                          --
   7 --                                 S p e c                                  --
   8 --                                                                          --
   9 --          Copyright (C) 2005-2009, Free Software Foundation, Inc.         --
  10 --                                                                          --
  11 -- This specification is derived from the Ada Reference Manual for use with --
  12 -- GNAT. The copyright notice above, and the license provisions that follow --
  13 -- apply solely to the  contents of the part following the private keyword. --
  14 --                                                                          --
  15 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  16 -- terms of the  GNU General Public License as published  by the Free Soft- --
  17 -- ware  Foundation;  either version 3,  or (at your option) any later ver- --
  18 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  19 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  20 -- or FITNESS FOR A PARTICULAR PURPOSE.                                     --
  21 --                                                                          --
  22 --                                                                          --
  23 --                                                                          --
  24 --                                                                          --
  25 --                                                                          --
  26 -- You should have received a copy of the GNU General Public License and    --
  27 -- a copy of the GCC Runtime Library Exception along with this program;     --
  28 -- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
  29 -- <http://www.gnu.org/licenses/>.                                          --
  30 --                                                                          --
  31 -- GNAT was originally developed  by the GNAT team at  New York University. --
  32 -- Extensive contributions were provided by Ada Core Technologies Inc.      --
  33 --                                                                          --
  34 ------------------------------------------------------------------------------
  35 
  36 package Ada.Characters.Conversions is
  37    pragma Pure;
  38 
  39    function Is_Character (Item : Wide_Character)      return Boolean;
  40    function Is_String    (Item : Wide_String)         return Boolean;
  41    function Is_Character (Item : Wide_Wide_Character) return Boolean;
  42    function Is_String    (Item : Wide_Wide_String)    return Boolean;
  43 
  44    function Is_Wide_Character (Item : Wide_Wide_Character) return Boolean;
  45    function Is_Wide_String    (Item : Wide_Wide_String)    return Boolean;
  46 
  47    function To_Wide_Character (Item : Character) return Wide_Character;
  48    function To_Wide_String    (Item : String)    return Wide_String;
  49 
  50    function To_Wide_Wide_Character
  51      (Item : Character) return Wide_Wide_Character;
  52 
  53    function To_Wide_Wide_String
  54      (Item : String) return Wide_Wide_String;
  55 
  56    function To_Wide_Wide_Character
  57      (Item : Wide_Character) return Wide_Wide_Character;
  58 
  59    function To_Wide_Wide_String
  60      (Item : Wide_String) return Wide_Wide_String;
  61 
  62    function To_Character
  63      (Item       : Wide_Character;
  64       Substitute : Character := ' ') return Character;
  65 
  66    function To_String
  67      (Item       : Wide_String;
  68       Substitute : Character := ' ') return String;
  69 
  70    function To_Character
  71      (Item       : Wide_Wide_Character;
  72       Substitute : Character := ' ') return Character;
  73 
  74    function To_String
  75      (Item       : Wide_Wide_String;
  76       Substitute : Character := ' ') return String;
  77 
  78    function To_Wide_Character
  79      (Item       : Wide_Wide_Character;
  80       Substitute : Wide_Character := ' ') return Wide_Character;
  81 
  82    function To_Wide_String
  83      (Item       : Wide_Wide_String;
  84       Substitute : Wide_Character := ' ') return Wide_String;
  85 
  86 end Ada.Characters.Conversions;