gcc/ada/a-wtcoio.ads

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                         GNAT RUNTIME COMPONENTS                          --
   4 --                                                                          --
   5 --           A D A . W I D E _ T E X T _ IO . C O M P L E X _ I O           --
   6 --                                                                          --
   7 --                                 S p e c                                  --
   8 --                                                                          --
   9 -- This specification is adapted 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 with Ada.Numerics.Generic_Complex_Types;
  17
  18 generic
  19    with package Complex_Types is new Ada.Numerics.Generic_Complex_Types (<>);
  20
  21 package Ada.Wide_Text_IO.Complex_IO is
  22
  23    use Complex_Types;
  24
  25    Default_Fore : Field := 2;
  26    Default_Aft  : Field := Real'Digits - 1;
  27    Default_Exp  : Field := 3;
  28
  29    procedure Get
  30      (File  : File_Type;
  31       Item  : out Complex;
  32       Width : Field := 0);
  33
  34    procedure Get
  35      (Item  : out Complex;
  36       Width : Field := 0);
  37
  38    procedure Put
  39      (File : File_Type;
  40       Item : Complex;
  41       Fore : Field := Default_Fore;
  42       Aft  : Field := Default_Aft;
  43       Exp  : Field := Default_Exp);
  44
  45    procedure Put
  46      (Item : Complex;
  47       Fore : Field := Default_Fore;
  48       Aft  : Field := Default_Aft;
  49       Exp  : Field := Default_Exp);
  50
  51    procedure Get
  52      (From : Wide_String;
  53       Item : out Complex;
  54       Last : out Positive);
  55
  56    procedure Put
  57      (To   : out Wide_String;
  58       Item : Complex;
  59       Aft  : Field := Default_Aft;
  60       Exp  : Field := Default_Exp);
  61
  62 end Ada.Wide_Text_IO.Complex_IO;