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 --
10 -- This specification is adapted from the Ada Reference Manual for use with --
11 -- GNAT. In accordance with the copyright of that document, you can freely --
12 -- copy and modify this specification, provided that if you redistribute a --
13 -- modified version, any changes that you have made are clearly indicated. --
15 ------------------------------------------------------------------------------
17 -- In Ada 95, the package Ada.Wide_Text_IO.Integer_IO is a subpackage
18 -- of Wide_Text_IO. In GNAT we make it a child package to avoid loading
19 -- the necessary code if Integer_IO is not instantiated. See the routine
20 -- Rtsfind.Text_IO_Kludge for a description of how we patch up the
21 -- difference in semantics so that it is invisible to the Ada programmer.
26 package Ada
.Wide_Text_IO
.Integer_IO
is
28 Default_Width
: Field
:= Num
'Width;
29 Default_Base
: Number_Base
:= 10;
34 Width
: in Field
:= 0);
38 Width
: in Field
:= 0);
43 Width
: in Field
:= Default_Width
;
44 Base
: in Number_Base
:= Default_Base
);
48 Width
: in Field
:= Default_Width
;
49 Base
: in Number_Base
:= Default_Base
);
52 (From
: in Wide_String;
57 (To
: out Wide_String;
59 Base
: in Number_Base
:= Default_Base
);
61 end Ada
.Wide_Text_IO
.Integer_IO
;