with text_io;                            use text_io;
with Abstract_Ring_io;
with Abstract_Ring.Field;
with Generic_Complex_Numbers;

generic

  with package Field is new Abstract_Ring.Field(<>);
  with package Ring_io is new Abstract_Ring_io(Field.Ring);
  with package Complex_Numbers is
         new Generic_Complex_Numbers(Ring_io.Ring,Field);

package Generic_Complex_Numbers_io is

-- DESCRIPTION :
--   This package provides io-routines for complex numbers.
--   A complex number is displayed as two floating numbers, representing
--   respectively the real and imaginary part of the complex number.

  use Complex_Numbers;

  procedure get ( x : in out Complex_Number );
  procedure get ( file : in file_type; x : in out Complex_Number );

  procedure put ( x : in Complex_Number );
  procedure put ( file : in file_type; x : in Complex_Number );

end Generic_Complex_Numbers_io;