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 _ 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
16with Ada.Strings.Wide_Bounded;
17
18generic
19   with package Wide_Bounded is
20     new Ada.Strings.Wide_Bounded.Generic_Bounded_Length (<>);
21
22package Ada.Wide_Text_IO.Wide_Bounded_IO is
23
24   function Get_Line return Wide_Bounded.Bounded_Wide_String;
25
26   function Get_Line
27     (File : File_Type) return Wide_Bounded.Bounded_Wide_String;
28
29   procedure Get_Line
30     (Item : out Wide_Bounded.Bounded_Wide_String);
31
32   procedure Get_Line
33     (File : File_Type;
34      Item : out Wide_Bounded.Bounded_Wide_String);
35
36   procedure Put
37     (Item : Wide_Bounded.Bounded_Wide_String);
38
39   procedure Put
40     (File : File_Type;
41      Item : Wide_Bounded.Bounded_Wide_String);
42
43   procedure Put_Line
44     (Item : Wide_Bounded.Bounded_Wide_String);
45
46   procedure Put_Line
47     (File : File_Type;
48      Item : Wide_Bounded.Bounded_Wide_String);
49
50end Ada.Wide_Text_IO.Wide_Bounded_IO;
51