1 ------------------------------------------------------------------------------
3 -- GNAT RUN-TIME COMPONENTS --
5 -- A D A . W I D E _ W I D E _ T E X T _ I O . M O D U L A R _ I O --
9 -- This specification is derived from the Ada Reference Manual for use with --
10 -- GNAT. In accordance with the copyright of that document, you can freely --
11 -- copy and modify this specification, provided that if you redistribute a --
12 -- modified version, any changes that you have made are clearly indicated. --
14 ------------------------------------------------------------------------------
16 -- In Ada 95, the package Ada.Wide_Wide_Text_IO.Modular_IO is a subpackage
17 -- of Wide_Wide_Text_IO. In GNAT we make it a child package to avoid loading
18 -- the necessary code if Modular_IO is not instantiated. See the routine
19 -- Rtsfind.Check_Text_IO_Special_Unit for a description of how we patch up
20 -- the difference in semantics so that it is invisible to the Ada programmer.
25 package Ada.Wide_Wide_Text_IO.Modular_IO is
27 Default_Width : Field := Num'Width;
28 Default_Base : Number_Base := 10;
42 Width : Field := Default_Width;
43 Base : Number_Base := Default_Base);
47 Width : Field := Default_Width;
48 Base : Number_Base := Default_Base);
51 (From : Wide_Wide_String;
56 (To : out Wide_Wide_String;
58 Base : Number_Base := Default_Base);
60 end Ada.Wide_Wide_Text_IO.Modular_IO;