1 ------------------------------------------------------------------------------
3 -- GNAT RUNTIME COMPONENTS --
5 -- A D A . W I D E _ T E X T _ I O . I N T E G E R _ I O --
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 -- In Ada 95, the package Ada.Wide_Text_IO.Integer_IO is a subpackage
19 -- of Wide_Text_IO. In GNAT we make it a child package to avoid loading
20 -- the necessary code if Integer_IO is not instantiated. See the routine
21 -- Rtsfind.Text_IO_Kludge for a description of how we patch up the
22 -- difference in semantics so that it is invisible to the Ada programmer.
27 package Ada.Wide_Text_IO.Integer_IO is
29 Default_Width : Field := Num'Width;
30 Default_Base : Number_Base := 10;
35 Width : in Field := 0);
39 Width : in Field := 0);
44 Width : in Field := Default_Width;
45 Base : in Number_Base := Default_Base);
49 Width : in Field := Default_Width;
50 Base : in Number_Base := Default_Base);
53 (From : in Wide_String;
58 (To : out Wide_String;
60 Base : in Number_Base := Default_Base);
62 end Ada.Wide_Text_IO.Integer_IO;