diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2006-02-15 10:34:21 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-02-15 10:34:21 +0100 |
| commit | e1458816e144304839f515e2c324763615f71020 (patch) | |
| tree | 07fea6d78eec6306b0ae738e2edc259ec50a550b /gcc/ada/a-wwboio.ads | |
| parent | 31d7a8bd3d322870543d960e7f8e7b909d7e4950 (diff) | |
| download | gcc-e1458816e144304839f515e2c324763615f71020.zip gcc-e1458816e144304839f515e2c324763615f71020.tar.gz gcc-e1458816e144304839f515e2c324763615f71020.tar.bz2 | |
a-tiboio.adb, [...]: New files.
2006-02-13 Hristian Kirtchev <kirtchev@adacore.com>
* a-tiboio.adb, a-tiboio.ads, a-wwboio.adb,
a-wwboio.ads, a-zzboio.adb, a-zzboio.ads: New files.
* impunit.adb, Makefile.rtl: Added new Ada 2005 units.
From-SVN: r111041
Diffstat (limited to 'gcc/ada/a-wwboio.ads')
| -rw-r--r-- | gcc/ada/a-wwboio.ads | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/gcc/ada/a-wwboio.ads b/gcc/ada/a-wwboio.ads new file mode 100644 index 0000000..634a265 --- /dev/null +++ b/gcc/ada/a-wwboio.ads @@ -0,0 +1,52 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT RUN-TIME COMPONENTS -- +-- -- +-- 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 -- +-- -- +-- S p e c -- +-- -- +-- Copyright (C) 1997-2005, Free Software Foundation, Inc. -- +-- -- +-- This specification is adapted from the Ada Reference Manual for use with -- +-- GNAT. In accordance with the copyright of that document, you can freely -- +-- copy and modify this specification, provided that if you redistribute a -- +-- modified version, any changes that you have made are clearly indicated. -- +-- -- +------------------------------------------------------------------------------ + +with Ada.Strings.Wide_Bounded; + +generic + with package Wide_Bounded is + new Ada.Strings.Wide_Bounded.Generic_Bounded_Length (<>); + +package Ada.Wide_Text_IO.Wide_Bounded_IO is + + function Get_Line return Wide_Bounded.Bounded_Wide_String; + + function Get_Line + (File : File_Type) return Wide_Bounded.Bounded_Wide_String; + + procedure Get_Line + (Item : out Wide_Bounded.Bounded_Wide_String); + + procedure Get_Line + (File : File_Type; + Item : out Wide_Bounded.Bounded_Wide_String); + + procedure Put + (Item : Wide_Bounded.Bounded_Wide_String); + + procedure Put + (File : File_Type; + Item : Wide_Bounded.Bounded_Wide_String); + + procedure Put_Line + (Item : Wide_Bounded.Bounded_Wide_String); + + procedure Put_Line + (File : File_Type; + Item : Wide_Bounded.Bounded_Wide_String); + +end Ada.Wide_Text_IO.Wide_Bounded_IO; |