gcc/ada/a-ztcoau.ads

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                         GNAT RUN-TIME COMPONENTS                         --
   4 --                                                                          --
   5 --    A D A . W I D E _ W I D E _ T E X T _ I O . C O M P L E X _ A U X     --
   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 --  This package contains the routines for Ada.Wide_Wide_Text_IO.Complex_IO
  17 --  that are shared among separate instantiations of this package. The routines
  18 --  in this package are identical semantically to those in Complex_IO itself,
  19 --  except that the generic parameter Complex has been replaced by separate
  20 --  real and imaginary values of type Long_Long_Float, and default parameters
  21 --  have been removed because they are supplied explicitly by the calls from
  22 --  within the generic template.
  23
  24 package Ada.Wide_Wide_Text_IO.Complex_Aux is
  25
  26    procedure Get
  27      (File  : File_Type;
  28       ItemR : out Long_Long_Float;
  29       ItemI : out Long_Long_Float;
  30       Width : Field);
  31
  32    procedure Gets
  33      (From  : String;
  34       ItemR : out Long_Long_Float;
  35       ItemI : out Long_Long_Float;
  36       Last  : out Positive);
  37
  38    procedure Put
  39      (File  : File_Type;
  40       ItemR : Long_Long_Float;
  41       ItemI : Long_Long_Float;
  42       Fore  : Field;
  43       Aft   : Field;
  44       Exp   : Field);
  45
  46    procedure Puts
  47      (To    : out String;
  48       ItemR : Long_Long_Float;
  49       ItemI : Long_Long_Float;
  50       Aft   : Field;
  51       Exp   : Field);
  52
  53 end Ada.Wide_Wide_Text_IO.Complex_Aux;