gcc/ada/a-tienio.ads

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                         GNAT RUN-TIME COMPONENTS                         --
   4 --                                                                          --
   5 --           A D A . T E X T _ I O . E N U M E R A T I O N _ 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.Enumeration_IO is a subpackage of
  17 --  Text_IO. This is for compatibility with Ada 83. In GNAT we make it a
  18 --  child package to avoid loading the necessary code if Enumeration_IO is
  19 --  not instantiated. See routine Rtsfind.Check_Text_IO_Special_Unit for a
  20 --  description of how we patch up the difference in semantics so that it
  21 --  is invisible to the Ada programmer.
  22
  23 private generic
  24    type Enum is (<>);
  25
  26 package Ada.Text_IO.Enumeration_IO is
  27
  28    Default_Width : Field := 0;
  29    Default_Setting : Type_Set := Upper_Case;
  30
  31    procedure Get (File : File_Type; Item : out Enum);
  32    procedure Get (Item : out Enum);
  33
  34    procedure Put
  35      (File  : File_Type;
  36       Item  : Enum;
  37       Width : Field := Default_Width;
  38       Set   : Type_Set := Default_Setting);
  39
  40    procedure Put
  41      (Item  : Enum;
  42       Width : Field := Default_Width;
  43       Set   : Type_Set := Default_Setting);
  44
  45    procedure Get
  46      (From : String;
  47       Item : out Enum;
  48       Last : out Positive);
  49
  50    procedure Put
  51      (To   : out String;
  52       Item : Enum;
  53       Set  : Type_Set := Default_Setting);
  54
  55 end Ada.Text_IO.Enumeration_IO;