Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Numbers/generic_complex_numbers_io.adb, Revision 1.1.1.1
1.1 maekawa 1: package body Generic_Complex_Numbers_io is
2:
3: use Ring_io; use Ring_io.Ring;
4:
5: procedure get ( x : in out Complex_Number ) is
6: begin
7: get(Standard_Input,x);
8: end get;
9:
10: procedure get ( file : in file_type; x : in out Complex_Number ) is
11:
12: xre,xim : number;
13:
14: begin
15: get(file,xre); get(file,xim);
16: c := Create(xre,xim);
17: Clear(xre); Clear(xim);
18: end get;
19:
20: procedure put ( x : in Complex_Number ) is
21: begin
22: put(Standard_Output,x);
23: end put;
24:
25: procedure put ( file : in file_type; x : in Complex_Number ) is
26: begin
27: put(file,REAL_PART(x));
28: put(file," ");
29: put(file,IMAG_PART(x));
30: end put;
31:
32: end Generic_Complex_Numbers_io;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>