1------------------------------------------------------------------------------
2--                                                                          --
3--                         GNAT RUN-TIME COMPONENTS                         --
4--                                                                          --
5--               A D A . T E X T _ I O . 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.Bounded;
17
18generic
19   with package Bounded is
20     new Ada.Strings.Bounded.Generic_Bounded_Length (<>);
21
22package Ada.Text_IO.Bounded_IO is
23
24   function Get_Line return Bounded.Bounded_String;
25
26   function Get_Line
27     (File : File_Type) return Bounded.Bounded_String;
28
29   procedure Get_Line
30     (Item : out Bounded.Bounded_String);
31
32   procedure Get_Line
33     (File : File_Type;
34      Item : out Bounded.Bounded_String);
35
36   procedure Put
37     (Item : Bounded.Bounded_String);
38
39   procedure Put
40     (File : File_Type;
41      Item : Bounded.Bounded_String);
42
43   procedure Put_Line
44     (Item : Bounded.Bounded_String);
45
46   procedure Put_Line
47     (File : File_Type;
48      Item : Bounded.Bounded_String);
49
50end Ada.Text_IO.Bounded_IO;
51