New Language: Ada

From-SVN: r45953

1 files changed, 62 insertions, 0 deletions

diff --git a/gcc/ada/a-wtinio.ads b/gcc/ada/a-wtinio.ads
new file mode 100644
index 00000000000..61ea591db14
--- /dev/null
+++ b/gcc/ada/a-wtinio.ads
@@ -0,0 +1,62 @@
+------------------------------------------------------------------------------
+--                                                                          --
+--                         GNAT RUNTIME COMPONENTS                          --
+--                                                                          --
+--           A D A . W I D E _ T E X T _ I O . I N T E G E R _ I O          --
+--                                                                          --
+--                                 S p e c                                  --
+--                                                                          --
+--                            $Revision: 1.2 $                              --
+--                                                                          --
+-- 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. --
+--                                                                          --
+------------------------------------------------------------------------------
+
+--  In Ada 95, the package Ada.Wide_Text_IO.Integer_IO is a subpackage
+--  of Wide_Text_IO. In GNAT we make it a child package to avoid loading
+--  the necessary code if Integer_IO is not instantiated. See the routine
+--  Rtsfind.Text_IO_Kludge for a description of how we patch up the
+--  difference in semantics so that it is invisible to the Ada programmer.
+
+private generic
+   type Num is range <>;
+
+package Ada.Wide_Text_IO.Integer_IO is
+
+   Default_Width : Field := Num'Width;
+   Default_Base  : Number_Base := 10;
+
+   procedure Get
+     (File  : in File_Type;
+      Item  : out Num;
+      Width : in Field := 0);
+
+   procedure Get
+     (Item  : out Num;
+      Width : in Field := 0);
+
+   procedure Put
+     (File  : in File_Type;
+      Item  : in Num;
+      Width : in Field := Default_Width;
+      Base  : in Number_Base := Default_Base);
+
+   procedure Put
+     (Item  : in Num;
+      Width : in Field := Default_Width;
+      Base  : in Number_Base := Default_Base);
+
+   procedure Get
+     (From : in Wide_String;
+      Item : out Num;
+      Last : out Positive);
+
+   procedure Put
+     (To   : out Wide_String;
+      Item : in Num;
+      Base : in Number_Base := Default_Base);
+
+end Ada.Wide_Text_IO.Integer_IO;