Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Numbers/generic_complex_numbers_io.ads, Revision 1.1.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>