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;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>