1------------------------------------------------------------------------------
2--                                                                          --
3--                         GNAT RUN-TIME COMPONENTS                         --
4--                                                                          --
5--   A D A . W I D E _ T E X T _ I O . W I D E _ U N B O U N D E D _ I O    --
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_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_String.
21
22with Ada.Strings.Wide_Unbounded;
23with Ada.Strings.Wide_Unbounded.Wide_Text_IO;
24
25package Ada.Wide_Text_IO.Wide_Unbounded_IO is
26
27   procedure Put
28     (File : File_Type;
29      Item : Strings.Wide_Unbounded.Unbounded_Wide_String)
30   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Put;
31
32   procedure Put
33     (Item : Strings.Wide_Unbounded.Unbounded_Wide_String)
34   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Put;
35
36   procedure Put_Line
37     (File : Wide_Text_IO.File_Type;
38      Item : Strings.Wide_Unbounded.Unbounded_Wide_String)
39   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Put_Line;
40
41   procedure Put_Line
42     (Item : Strings.Wide_Unbounded.Unbounded_Wide_String)
43   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Put_Line;
44
45   function Get_Line
46     (File : File_Type) return Strings.Wide_Unbounded.Unbounded_Wide_String
47   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Get_Line;
48
49   function Get_Line return Strings.Wide_Unbounded.Unbounded_Wide_String
50   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Get_Line;
51
52   procedure Get_Line
53      (File : File_Type;
54       Item : out Strings.Wide_Unbounded.Unbounded_Wide_String)
55   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Get_Line;
56
57   procedure Get_Line
58     (Item : out Strings.Wide_Unbounded.Unbounded_Wide_String)
59   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Get_Line;
60
61end Ada.Wide_Text_IO.Wide_Unbounded_IO;
62