Return to generic_complex_numbers_io.ads CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Numbers

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;