diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:34:21 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:34:21 +0000 |
| commit | a58fd09712d0254f960331d84da75fad098b2561 (patch) | |
| tree | 07fea6d78eec6306b0ae738e2edc259ec50a550b /gcc/ada/a-wwboio.ads | |
| parent | da8f64329b736b79c673d9e383286df9383271b6 (diff) | |
| download | gcc-a58fd09712d0254f960331d84da75fad098b2561.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111041 138bc75d-0d04-0410-961f-82ee72b054a4
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 00000000000..634a265facf --- /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; |