1------------------------------------------------------------------------------
2--                                                                          --
3--                         GNAT RUN-TIME COMPONENTS                         --
4--                                                                          --
5--         A D A . W I D E _ C H A R A C T E R S . H A N D L I N G          --
6--                                                                          --
7--                                 B o d y                                  --
8--                                                                          --
9--          Copyright (C) 2010-2018, Free Software Foundation, Inc.         --
10--                                                                          --
11-- GNAT is free software;  you can  redistribute it  and/or modify it under --
12-- terms of the  GNU General Public License as published  by the Free Soft- --
13-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
14-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
15-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
16-- or FITNESS FOR A PARTICULAR PURPOSE.                                     --
17--                                                                          --
18-- As a special exception under Section 7 of GPL version 3, you are granted --
19-- additional permissions described in the GCC Runtime Library Exception,   --
20-- version 3.1, as published by the Free Software Foundation.               --
21--                                                                          --
22-- You should have received a copy of the GNU General Public License and    --
23-- a copy of the GCC Runtime Library Exception along with this program;     --
24-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
25-- <http://www.gnu.org/licenses/>.                                          --
26--                                                                          --
27-- GNAT was originally developed  by the GNAT team at  New York University. --
28-- Extensive contributions were provided by Ada Core Technologies Inc.      --
29--                                                                          --
30------------------------------------------------------------------------------
31
32with Ada.Wide_Characters.Unicode; use Ada.Wide_Characters.Unicode;
33
34package body Ada.Wide_Characters.Handling is
35
36   ---------------------------
37   -- Character_Set_Version --
38   ---------------------------
39
40   function Character_Set_Version return String is
41   begin
42      return "Unicode 4.0";
43   end Character_Set_Version;
44
45   ---------------------
46   -- Is_Alphanumeric --
47   ---------------------
48
49   function Is_Alphanumeric (Item : Wide_Character) return Boolean is
50   begin
51      return Is_Letter (Item) or else Is_Digit (Item);
52   end Is_Alphanumeric;
53
54   ----------------
55   -- Is_Control --
56   ----------------
57
58   function Is_Control (Item : Wide_Character) return Boolean is
59   begin
60      return Get_Category (Item) = Cc;
61   end Is_Control;
62
63   --------------
64   -- Is_Digit --
65   --------------
66
67   function Is_Digit (Item : Wide_Character) return Boolean
68     renames Ada.Wide_Characters.Unicode.Is_Digit;
69
70   ----------------
71   -- Is_Graphic --
72   ----------------
73
74   function Is_Graphic (Item : Wide_Character) return Boolean is
75   begin
76      return not Is_Non_Graphic (Item);
77   end Is_Graphic;
78
79   --------------------------
80   -- Is_Hexadecimal_Digit --
81   --------------------------
82
83   function Is_Hexadecimal_Digit (Item : Wide_Character) return Boolean is
84   begin
85      return Is_Digit (Item)
86        or else Item in 'A' .. 'F'
87        or else Item in 'a' .. 'f';
88   end Is_Hexadecimal_Digit;
89
90   ---------------
91   -- Is_Letter --
92   ---------------
93
94   function Is_Letter (Item : Wide_Character) return Boolean
95     renames Ada.Wide_Characters.Unicode.Is_Letter;
96
97   ------------------------
98   -- Is_Line_Terminator --
99   ------------------------
100
101   function Is_Line_Terminator (Item : Wide_Character) return Boolean
102     renames Ada.Wide_Characters.Unicode.Is_Line_Terminator;
103
104   --------------
105   -- Is_Lower --
106   --------------
107
108   function Is_Lower (Item : Wide_Character) return Boolean is
109   begin
110      return Get_Category (Item) = Ll;
111   end Is_Lower;
112
113   -------------
114   -- Is_Mark --
115   -------------
116
117   function Is_Mark (Item : Wide_Character) return Boolean
118     renames Ada.Wide_Characters.Unicode.Is_Mark;
119
120   ---------------------
121   -- Is_Other_Format --
122   ---------------------
123
124   function Is_Other_Format (Item : Wide_Character) return Boolean
125     renames Ada.Wide_Characters.Unicode.Is_Other;
126
127   ------------------------------
128   -- Is_Punctuation_Connector --
129   ------------------------------
130
131   function Is_Punctuation_Connector (Item : Wide_Character) return Boolean
132     renames Ada.Wide_Characters.Unicode.Is_Punctuation;
133
134   --------------
135   -- Is_Space --
136   --------------
137
138   function Is_Space (Item : Wide_Character) return Boolean
139     renames Ada.Wide_Characters.Unicode.Is_Space;
140
141   ----------------
142   -- Is_Special --
143   ----------------
144
145   function Is_Special (Item : Wide_Character) return Boolean is
146   begin
147      return Is_Graphic (Item) and then not Is_Alphanumeric (Item);
148   end Is_Special;
149
150   --------------
151   -- Is_Upper --
152   --------------
153
154   function Is_Upper (Item : Wide_Character) return Boolean is
155   begin
156      return Get_Category (Item) = Lu;
157   end Is_Upper;
158
159   --------------
160   -- To_Lower --
161   --------------
162
163   function To_Lower (Item : Wide_Character) return Wide_Character
164     renames Ada.Wide_Characters.Unicode.To_Lower_Case;
165
166   function To_Lower (Item : Wide_String) return Wide_String is
167      Result : Wide_String (Item'Range);
168
169   begin
170      for J in Result'Range loop
171         Result (J) := To_Lower (Item (J));
172      end loop;
173
174      return Result;
175   end To_Lower;
176
177   --------------
178   -- To_Upper --
179   --------------
180
181   function To_Upper (Item : Wide_Character) return Wide_Character
182     renames Ada.Wide_Characters.Unicode.To_Upper_Case;
183
184   function To_Upper (Item : Wide_String) return Wide_String is
185      Result : Wide_String (Item'Range);
186
187   begin
188      for J in Result'Range loop
189         Result (J) := To_Upper (Item (J));
190      end loop;
191
192      return Result;
193   end To_Upper;
194
195end Ada.Wide_Characters.Handling;
196