1 ------------------------------------------------------------------------------
3 -- GNAT RUNTIME COMPONENTS --
5 -- ADA.WIDE_WIDE_TEXT_IO.WIDE_WIDE_UNBOUNDED_IO --
9 -- This specification is adapted from the Ada Reference Manual for use with --
10 -- GNAT. In accordance with the copyright of that document, you can freely --
11 -- copy and modify this specification, provided that if you redistribute a --
12 -- modified version, any changes that you have made are clearly indicated. --
14 ------------------------------------------------------------------------------
16 -- Note: historically GNAT provided these subprograms as a child of the
17 -- package Ada.Strings.Wide_Wide_Unbounded. So we implement this new Ada 2005
18 -- package by renaming the subprograms in that child. This is a more
19 -- straightforward implementation anyway, since we need access to the
20 -- internal representation of Unbounded_Wide_Wide_String.
23 with Ada.Strings.Wide_Wide_Unbounded;
24 with Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO;
26 package Ada.Wide_Wide_Text_IO.Wide_Wide_Unbounded_IO is
30 Item : Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
31 renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Put;
34 (Item : Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
35 renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Put;
38 (File : Wide_Wide_Text_IO.File_Type;
39 Item : Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
40 renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Put_Line;
43 (Item : Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
44 renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Put_Line;
48 return Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String
49 renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Get_Line;
52 return Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String
53 renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Get_Line;
57 Item : out Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
58 renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Get_Line;
61 (Item : out Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
62 renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Get_Line;
64 end Ada.Wide_Wide_Text_IO.Wide_Wide_Unbounded_IO;