1------------------------------------------------------------------------------
2--                                                                          --
3--                         GNAT RUN-TIME COMPONENTS                         --
4--                                                                          --
5--               ADA.WIDE_WIDE_TEXT_IO.WIDE_WIDE_UNBOUNDED_IO               --
6--                                                                          --
7--                                 S p e c                                  --
8--                                                                          --
9-- This specification is derived 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. --
13--                                                                          --
14------------------------------------------------------------------------------
15
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.
21
22with Ada.Strings.Wide_Wide_Unbounded;
23with Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO;
24
25package Ada.Wide_Wide_Text_IO.Wide_Wide_Unbounded_IO is
26
27   procedure Put
28     (File : File_Type;
29      Item : Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
30   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Put;
31
32   procedure Put
33     (Item : Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
34   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Put;
35
36   procedure Put_Line
37     (File : Wide_Wide_Text_IO.File_Type;
38      Item : Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
39   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Put_Line;
40
41   procedure Put_Line
42     (Item : Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
43   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Put_Line;
44
45   function Get_Line
46     (File : File_Type)
47      return Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String
48   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Get_Line;
49
50   function Get_Line
51     return Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String
52   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Get_Line;
53
54   procedure Get_Line
55      (File : File_Type;
56       Item : out Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
57   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Get_Line;
58
59   procedure Get_Line
60     (Item : out Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
61   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Get_Line;
62
63end Ada.Wide_Wide_Text_IO.Wide_Wide_Unbounded_IO;
64