1------------------------------------------------------------------------------
2--                                                                          --
3--                         GNAT RUN-TIME COMPONENTS                         --
4--                                                                          --
5--                 A D A . T E X T _ I O . F I X E D _ 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.Text_IO.Fixed_IO is a subpackage of Text_IO.
17--  This is for compatibility with Ada 83. In GNAT we make it a child package
18--  to avoid loading the necessary code if Fixed_IO is not instantiated. See
19--  routine Rtsfind.Check_Text_IO_Special_Unit for a description of how we
20--  patch up the difference in semantics so that it is invisible to the Ada
21--  programmer.
22
23private generic
24   type Num is delta <>;
25
26package Ada.Text_IO.Fixed_IO is
27
28   Default_Fore : Field := Num'Fore;
29   Default_Aft  : Field := Num'Aft;
30   Default_Exp  : Field := 0;
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      Fore : Field := Default_Fore;
45      Aft  : Field := Default_Aft;
46      Exp  : Field := Default_Exp);
47
48   procedure Put
49     (Item : Num;
50      Fore : Field := Default_Fore;
51      Aft  : Field := Default_Aft;
52      Exp  : Field := Default_Exp);
53
54   procedure Get
55     (From : String;
56      Item : out Num;
57      Last : out Positive);
58
59   procedure Put
60     (To   : out String;
61      Item : Num;
62      Aft  : Field := Default_Aft;
63      Exp  : Field := Default_Exp);
64
65private
66   pragma Inline (Get);
67   pragma Inline (Put);
68
69end Ada.Text_IO.Fixed_IO;
70