1------------------------------------------------------------------------------
2--                                                                          --
3--                         GNAT RUN-TIME COMPONENTS                         --
4--                                                                          --
5--              A D A . T E X T _ I O . 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.Unbounded. So we implement this new Ada 2005 package
18--  by renaming the subprograms in that child. This is a more straightforward
19--  implementation anyway, since we need access to the internal representation
20--  of Ada.Strings.Unbounded.Unbounded_String.
21
22with Ada.Strings.Unbounded;
23with Ada.Strings.Unbounded.Text_IO;
24
25package Ada.Text_IO.Unbounded_IO is
26
27   procedure Put
28     (File : File_Type;
29      Item : Strings.Unbounded.Unbounded_String)
30   renames Ada.Strings.Unbounded.Text_IO.Put;
31
32   procedure Put
33     (Item : Strings.Unbounded.Unbounded_String)
34   renames Ada.Strings.Unbounded.Text_IO.Put;
35
36   procedure Put_Line
37     (File : Text_IO.File_Type;
38      Item : Strings.Unbounded.Unbounded_String)
39   renames Ada.Strings.Unbounded.Text_IO.Put_Line;
40
41   procedure Put_Line
42     (Item : Strings.Unbounded.Unbounded_String)
43   renames Ada.Strings.Unbounded.Text_IO.Put_Line;
44
45   function Get_Line
46     (File : File_Type) return Strings.Unbounded.Unbounded_String
47   renames Ada.Strings.Unbounded.Text_IO.Get_Line;
48
49   function Get_Line return Strings.Unbounded.Unbounded_String
50   renames Ada.Strings.Unbounded.Text_IO.Get_Line;
51
52   procedure Get_Line
53      (File : File_Type;
54       Item : out Strings.Unbounded.Unbounded_String)
55   renames Ada.Strings.Unbounded.Text_IO.Get_Line;
56
57   procedure Get_Line
58     (Item : out Strings.Unbounded.Unbounded_String)
59   renames Ada.Strings.Unbounded.Text_IO.Get_Line;
60
61end Ada.Text_IO.Unbounded_IO;
62