111
|
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
|
|
22 with Ada.Strings.Unbounded;
|
|
23 with Ada.Strings.Unbounded.Text_IO;
|
|
24
|
|
25 package 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
|
|
61 end Ada.Text_IO.Unbounded_IO;
|