Return to generic_complex_numbers_io.adb 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.adb, Revision 1.1

1.1     ! maekawa     1: package body Generic_Complex_Numbers_io is
        !             2:
        !             3:   use Ring_io;  use Ring_io.Ring;
        !             4:
        !             5:   procedure get ( x : in out Complex_Number ) is
        !             6:   begin
        !             7:     get(Standard_Input,x);
        !             8:   end get;
        !             9:
        !            10:   procedure get ( file : in file_type; x : in out Complex_Number ) is
        !            11:
        !            12:     xre,xim : number;
        !            13:
        !            14:   begin
        !            15:     get(file,xre); get(file,xim);
        !            16:     c := Create(xre,xim);
        !            17:     Clear(xre); Clear(xim);
        !            18:   end get;
        !            19:
        !            20:   procedure put ( x : in Complex_Number ) is
        !            21:   begin
        !            22:     put(Standard_Output,x);
        !            23:   end put;
        !            24:
        !            25:   procedure put ( file : in file_type; x : in Complex_Number ) is
        !            26:   begin
        !            27:     put(file,REAL_PART(x));
        !            28:     put(file,"  ");
        !            29:     put(file,IMAG_PART(x));
        !            30:   end put;
        !            31:
        !            32: end Generic_Complex_Numbers_io;