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     ! 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;