1 ------------------------------------------------------------------------------
3 -- GNAT RUN-TIME COMPONENTS --
5 -- S Y S T E M . I M G _ W C H A R --
9 -- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
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 2, 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. See the GNU General Public License --
17 -- for more details. You should have received a copy of the GNU General --
18 -- Public License distributed with GNAT; see file COPYING. If not, write --
19 -- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
20 -- MA 02111-1307, USA. --
22 -- As a special exception, if other files instantiate generics from this --
23 -- unit, or you link this unit with other files to produce an executable, --
24 -- this unit does not by itself cause the resulting executable to be --
25 -- covered by the GNU General Public License. This exception does not --
26 -- however invalidate any other reasons why the executable file might be --
27 -- covered by the GNU Public License. --
29 -- GNAT was originally developed by the GNAT team at New York University. --
30 -- Extensive contributions were provided by Ada Core Technologies Inc. --
32 ------------------------------------------------------------------------------
34 with System
.Img_Char
; use System
.Img_Char
;
35 with System
.WCh_Con
; use System
.WCh_Con
;
36 with System
.WCh_WtS
; use System
.WCh_WtS
;
38 package body System
.Img_WChar
is
40 --------------------------
41 -- Image_Wide_Character --
42 --------------------------
44 function Image_Wide_Character
46 EM
: WC_Encoding_Method
) return String
48 Val
: constant Natural := Wide_Character'Pos (V
);
49 WS
: Wide_String (1 .. 3);
52 -- If in range of standard character, use standard character routine
55 or else (Val
<= 16#FF#
56 and then EM
not in WC_Upper_Half_Encoding_Method
)
58 return Image_Character
(Character'Val (Val
));
60 -- if the value is one of the last two characters in the type, use
61 -- their language-defined names (3.5.2(3)).
63 elsif Val
= 16#FFFE#
then
66 elsif Val
= 16#FFFF#
then
69 -- Otherwise return an appropriate escape sequence (i.e. one matching
70 -- the convention implemented by Scn.Wide_Char). The easiest thing is
71 -- to build a wide string for the result, and then use the Wide_Value
72 -- function to build the resulting String.
79 return Wide_String_To_String
(WS
, EM
);
81 end Image_Wide_Character
;
83 -------------------------------
84 -- Image_Wide_Wide_Character --
85 -------------------------------
87 function Image_Wide_Wide_Character
88 (V
: Wide_Wide_Character
;
89 EM
: WC_Encoding_Method
) return String
91 Val
: constant Natural := Wide_Wide_Character
'Pos (V
);
92 WS
: Wide_Wide_String
(1 .. 3);
95 -- If in range of standard Wide_Character, then we use the
96 -- Wide_Character routine
98 if Val
<= 16#FFFF#
then
99 return Image_Wide_Character
(Wide_Character'Val (Val
), EM
);
101 -- Otherwise return an appropriate escape sequence (i.e. one matching
102 -- the convention implemented by Scn.Wide_Wide_Char). The easiest thing
103 -- is to build a wide string for the result, and then use the
104 -- Wide_Wide_Value function to build the resulting String.
111 return Wide_Wide_String_To_String
(WS
, EM
);
113 end Image_Wide_Wide_Character
;
115 end System
.Img_WChar
;