1------------------------------------------------------------------------------
2--                                                                          --
3--                         GNAT RUN-TIME COMPONENTS                         --
4--                                                                          --
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     --
6--                                                                          --
7--                                 S p e c                                  --
8--                                                                          --
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. --
13--                                                                          --
14------------------------------------------------------------------------------
15
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.
21
22private generic
23   type Num is mod <>;
24
25package Ada.Wide_Wide_Text_IO.Modular_IO is
26
27   Default_Width : Field := Num'Width;
28   Default_Base  : Number_Base := 10;
29
30   procedure Get
31     (File  : File_Type;
32      Item  : out Num;
33      Width : Field := 0);
34
35   procedure Get
36     (Item  : out Num;
37      Width : Field := 0);
38
39   procedure Put
40     (File  : File_Type;
41      Item  : Num;
42      Width : Field := Default_Width;
43      Base  : Number_Base := Default_Base);
44
45   procedure Put
46     (Item  : Num;
47      Width : Field := Default_Width;
48      Base  : Number_Base := Default_Base);
49
50   procedure Get
51     (From : Wide_Wide_String;
52      Item : out Num;
53      Last : out Positive);
54
55   procedure Put
56     (To   : out Wide_Wide_String;
57      Item : Num;
58      Base : Number_Base := Default_Base);
59
60end Ada.Wide_Wide_Text_IO.Modular_IO;
61