Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Numbers/generic_complex_numbers_io.ads, Revision 1.1
1.1 ! maekawa 1: with text_io; use text_io;
! 2: with Abstract_Ring_io;
! 3: with Abstract_Ring.Field;
! 4: with Generic_Complex_Numbers;
! 5:
! 6: generic
! 7:
! 8: with package Field is new Abstract_Ring.Field(<>);
! 9: with package Ring_io is new Abstract_Ring_io(Field.Ring);
! 10: with package Complex_Numbers is
! 11: new Generic_Complex_Numbers(Ring_io.Ring,Field);
! 12:
! 13: package Generic_Complex_Numbers_io is
! 14:
! 15: -- DESCRIPTION :
! 16: -- This package provides io-routines for complex numbers.
! 17: -- A complex number is displayed as two floating numbers, representing
! 18: -- respectively the real and imaginary part of the complex number.
! 19:
! 20: use Complex_Numbers;
! 21:
! 22: procedure get ( x : in out Complex_Number );
! 23: procedure get ( file : in file_type; x : in out Complex_Number );
! 24:
! 25: procedure put ( x : in Complex_Number );
! 26: procedure put ( file : in file_type; x : in Complex_Number );
! 27:
! 28: end Generic_Complex_Numbers_io;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>