Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Numbers/standard_complex_numbers_io.adb, Revision 1.1.1.1
1.1 maekawa 1: with Standard_Floating_Numbers; use Standard_Floating_Numbers;
2: with Standard_Floating_Numbers_io; use Standard_Floating_Numbers_io;
3:
4: package body Standard_Complex_Numbers_io is
5:
6: procedure get ( c : in out Complex_Number ) is
7: begin
8: get(Standard_Input,c);
9: end get;
10:
11: procedure get ( file : in file_type; c : in out Complex_Number ) is
12:
13: x,y : double_float;
14:
15: begin
16: get(file,x); get(file,y);
17: c := Create(x,y);
18: end get;
19:
20: procedure put ( c : in Complex_Number ) is
21: begin
22: put(Standard_Output,c);
23: end put;
24:
25: procedure put ( file : in file_type; c : in Complex_Number ) is
26: begin
27: put(file,REAL_PART(c));
28: put(file," ");
29: put(file,IMAG_PART(c));
30: end put;
31:
32: procedure put ( c : in Complex_Number; fore,aft,exp : in natural ) is
33: begin
34: put(Standard_Output,c,fore,aft,exp);
35: end put;
36:
37: procedure put ( file : in file_type;
38: c : in Complex_Number; fore,aft,exp : in natural ) is
39: begin
40: put(file,REAL_PART(c),fore,aft,exp);
41: put(file," ");
42: put(file,IMAG_PART(c),fore,aft,exp);
43: end put;
44:
45: procedure put ( c : in Complex_Number; dp : in natural ) is
46: begin
47: put(c,dp,dp,dp);
48: end put;
49:
50: procedure put ( file : in file_type;
51: c : in Complex_Number; dp : in natural ) is
52: begin
53: put(file,c,dp,dp,dp);
54: end put;
55:
56: end Standard_Complex_Numbers_io;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>