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

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;