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