This package contains the routines for Ada.Text_IO.Complex_IO that are shared among separate instantiations of this package. The routines in this package are identical semantically to those in Complex_IO itself, except that the generic parameter Complex has been replaced by separate real and imaginary values of type Long_Long_Float, and default parameters have been removed because they are supplied explicitly by the calls from within the generic template.

package Ada.Text_IO.Complex_Aux is

procedure Get
  (File  : in  File_Type;
   ItemR : out Long_Long_Float;
   ItemI : out Long_Long_Float;
   Width : Field);

procedure Put
  (File  : File_Type;
   ItemR : Long_Long_Float;
   ItemI : Long_Long_Float;
   Fore  : Field;
   Aft   : Field;
   Exp   : Field);

procedure Gets
  (From  : String;
   ItemR : out Long_Long_Float;
   ItemI : out Long_Long_Float;
   Last  : out Positive);

procedure Puts
  (To    : out String;
   ItemR : Long_Long_Float;
   ItemI : Long_Long_Float;
   Aft   : Field;
   Exp   : Field);

end Ada.Text_IO.Complex_Aux;