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