1------------------------------------------------------------------------------
2--                                                                          --
3--                         GNAT RUN-TIME COMPONENTS                         --
4--                                                                          --
5--           A D A . 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--          Copyright (C) 1992-2018, Free Software Foundation, Inc.         --
10--                                                                          --
11-- This specification is derived 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. --
15--                                                                          --
16------------------------------------------------------------------------------
17
18--  In Ada 95, the package Ada.Wide_Text_IO.Modular_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 Modular_IO is not instantiated. See the routine
21--  Rtsfind.Check_Text_IO_Special_Unit for a description of how we patch up
22--  the difference in semantics so that it is invisible to the Ada programmer.
23
24private generic
25   type Num is mod <>;
26
27package Ada.Wide_Text_IO.Modular_IO is
28
29   Default_Width : Field := Num'Width;
30   Default_Base  : Number_Base := 10;
31
32   procedure Get
33     (File  : File_Type;
34      Item  : out Num;
35      Width : Field := 0);
36
37   procedure Get
38     (Item  : out Num;
39      Width : Field := 0);
40
41   procedure Put
42     (File  : File_Type;
43      Item  : Num;
44      Width : Field := Default_Width;
45      Base  : Number_Base := Default_Base);
46
47   procedure Put
48     (Item  : Num;
49      Width : Field := Default_Width;
50      Base  : Number_Base := Default_Base);
51
52   procedure Get
53     (From : Wide_String;
54      Item : out Num;
55      Last : out Positive);
56
57   procedure Put
58     (To   : out Wide_String;
59      Item : Num;
60      Base : Number_Base := Default_Base);
61
62end Ada.Wide_Text_IO.Modular_IO;
63