Return to multprec_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/multprec_complex_numbers_io.adb, Revision 1.1.1.1

1.1       maekawa     1: with Multprec_Floating_Numbers;          use Multprec_Floating_Numbers;
                      2: with Multprec_Floating_Numbers_io;       use Multprec_Floating_Numbers_io;
                      3:
                      4: package body Multprec_Complex_Numbers_io is
                      5:
                      6:   procedure get ( x : in out Complex_Number ) is
                      7:   begin
                      8:     get(Standard_Input,x);
                      9:   end get;
                     10:
                     11:   procedure get ( file : in file_type; x : in out Complex_Number ) is
                     12:
                     13:     xre,xim : Floating_Number;
                     14:
                     15:   begin
                     16:     get(file,xre);
                     17:        get(file,xim);
                     18:     x := Create(xre,xim);
                     19:     Clear(xre); Clear(xim);
                     20:   end get;
                     21:
                     22:   procedure put ( x : in Complex_Number ) is
                     23:   begin
                     24:     put(Standard_Output,x);
                     25:   end put;
                     26:
                     27:   procedure put ( file : in file_type; x : in Complex_Number ) is
                     28:   begin
                     29:     put(file,REAL_PART(x));
                     30:     put(file,"  ");
                     31:     put(file,IMAG_PART(x));
                     32:   end put;
                     33:
                     34:   procedure put ( c : in Complex_Number; fore,aft,exp : in natural ) is
                     35:   begin
                     36:     put(Standard_Output,c,fore,aft,exp);
                     37:   end put;
                     38:
                     39:   procedure put ( file : in file_type;
                     40:                   c : in Complex_Number; fore,aft,exp : in natural ) is
                     41:   begin
                     42:     put(file,REAL_PART(c),fore,aft,exp);
                     43:     put(file,"  ");
                     44:     put(file,IMAG_PART(c),fore,aft,exp);
                     45:   end put;
                     46:
                     47:   procedure put ( c : in Complex_Number; dp : in natural ) is
                     48:   begin
                     49:     put(c,dp,dp,dp);
                     50:   end put;
                     51:
                     52:   procedure put ( file : in file_type;
                     53:                   c : in Complex_Number; dp : in natural ) is
                     54:   begin
                     55:     put(file,c,dp,dp,dp);
                     56:   end put;
                     57:
                     58: end Multprec_Complex_Numbers_io;