* arm.c (FL_WBUF): Define.
[official-gcc.git] / gcc / ada / a-tiunio.ads
blob43406af1c46434d0a198b0930d08be92e764fda2
1 ------------------------------------------------------------------------------
2 -- --
3 -- GNAT RUNTIME 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 adapted 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 ------------------------------------------------------------------------------
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.
23 with Ada.Strings.Unbounded;
24 with Ada.Strings.Unbounded.Text_IO;
26 package Ada.Text_IO.Unbounded_IO is
28 procedure Put
29 (File : File_Type;
30 Item : Strings.Unbounded.Unbounded_String)
31 renames Ada.Strings.Unbounded.Text_IO.Put;
33 procedure Put
34 (Item : Strings.Unbounded.Unbounded_String)
35 renames Ada.Strings.Unbounded.Text_IO.Put;
37 procedure Put_Line
38 (File : Text_IO.File_Type;
39 Item : Strings.Unbounded.Unbounded_String)
40 renames Ada.Strings.Unbounded.Text_IO.Put_Line;
42 procedure Put_Line
43 (Item : Strings.Unbounded.Unbounded_String)
44 renames Ada.Strings.Unbounded.Text_IO.Put_Line;
46 function Get_Line
47 (File : File_Type) return Strings.Unbounded.Unbounded_String
48 renames Ada.Strings.Unbounded.Text_IO.Get_Line;
50 function Get_Line return Strings.Unbounded.Unbounded_String
51 renames Ada.Strings.Unbounded.Text_IO.Get_Line;
53 procedure Get_Line
54 (File : File_Type;
55 Item : out Strings.Unbounded.Unbounded_String)
56 renames Ada.Strings.Unbounded.Text_IO.Get_Line;
58 procedure Get_Line
59 (Item : out Strings.Unbounded.Unbounded_String)
60 renames Ada.Strings.Unbounded.Text_IO.Get_Line;
62 end Ada.Text_IO.Unbounded_IO;