gcc/ada/a-tifiio.ads

   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
  23 private generic
  24    type Num is delta <>;
  25
  26 package 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
  65 private
  66    pragma Inline (Get);
  67    pragma Inline (Put);
  68
  69 end Ada.Text_IO.Fixed_IO;