1 ------------------------------------------------------------------------------
3 -- GNAT RUN-TIME COMPONENTS --
5 -- ADA.WIDE_WIDE_TEXT_IO.WIDE_WIDE_BOUNDED_IO --
9 -- Copyright (C) 1997-2005, Free Software Foundation, Inc. --
11 -- This specification is adapted from the Ada Reference Manual for use with --
12 -- GNAT. In accordance with the copyright of that document, you can freely --
13 -- copy and modify this specification, provided that if you redistribute a --
14 -- modified version, any changes that you have made are clearly indicated. --
16 ------------------------------------------------------------------------------
18 with Ada
.Strings
.Wide_Wide_Bounded
;
21 with package Wide_Wide_Bounded
is
22 new Ada
.Strings
.Wide_Wide_Bounded
.Generic_Bounded_Length
(<>);
24 package Ada
.Wide_Wide_Text_IO
.Wide_Wide_Bounded_IO
is
26 function Get_Line
return Wide_Wide_Bounded
.Bounded_Wide_Wide_String
;
29 (File
: File_Type
) return Wide_Wide_Bounded
.Bounded_Wide_Wide_String
;
32 (Item
: out Wide_Wide_Bounded
.Bounded_Wide_Wide_String
);
36 Item
: out Wide_Wide_Bounded
.Bounded_Wide_Wide_String
);
39 (Item
: Wide_Wide_Bounded
.Bounded_Wide_Wide_String
);
43 Item
: Wide_Wide_Bounded
.Bounded_Wide_Wide_String
);
46 (Item
: Wide_Wide_Bounded
.Bounded_Wide_Wide_String
);
50 Item
: Wide_Wide_Bounded
.Bounded_Wide_Wide_String
);
52 end Ada
.Wide_Wide_Text_IO
.Wide_Wide_Bounded_IO
;