|
111
|
1 ------------------------------------------------------------------------------
|
|
|
2 -- --
|
|
|
3 -- GNAT RUN-TIME COMPONENTS --
|
|
|
4 -- --
|
|
|
5 -- A D A . W I D E _ T E X T _ IO . C O M P L E X _ I O --
|
|
|
6 -- --
|
|
|
7 -- S p e c --
|
|
|
8 -- --
|
|
|
9 -- This specification is derived from the Ada Reference Manual for use with --
|
|
|
10 -- GNAT. In accordance with the copyright of that document, you can freely --
|
|
|
11 -- copy and modify this specification, provided that if you redistribute a --
|
|
|
12 -- modified version, any changes that you have made are clearly indicated. --
|
|
|
13 -- --
|
|
|
14 ------------------------------------------------------------------------------
|
|
|
15
|
|
|
16 with Ada.Numerics.Generic_Complex_Types;
|
|
|
17
|
|
|
18 generic
|
|
|
19 with package Complex_Types is new Ada.Numerics.Generic_Complex_Types (<>);
|
|
|
20
|
|
|
21 package Ada.Wide_Text_IO.Complex_IO is
|
|
|
22
|
|
|
23 use Complex_Types;
|
|
|
24
|
|
|
25 Default_Fore : Field := 2;
|
|
|
26 Default_Aft : Field := Real'Digits - 1;
|
|
|
27 Default_Exp : Field := 3;
|
|
|
28
|
|
|
29 procedure Get
|
|
|
30 (File : File_Type;
|
|
|
31 Item : out Complex;
|
|
|
32 Width : Field := 0);
|
|
|
33
|
|
|
34 procedure Get
|
|
|
35 (Item : out Complex;
|
|
|
36 Width : Field := 0);
|
|
|
37
|
|
|
38 procedure Put
|
|
|
39 (File : File_Type;
|
|
|
40 Item : Complex;
|
|
|
41 Fore : Field := Default_Fore;
|
|
|
42 Aft : Field := Default_Aft;
|
|
|
43 Exp : Field := Default_Exp);
|
|
|
44
|
|
|
45 procedure Put
|
|
|
46 (Item : Complex;
|
|
|
47 Fore : Field := Default_Fore;
|
|
|
48 Aft : Field := Default_Aft;
|
|
|
49 Exp : Field := Default_Exp);
|
|
|
50
|
|
|
51 procedure Get
|
|
|
52 (From : Wide_String;
|
|
|
53 Item : out Complex;
|
|
|
54 Last : out Positive);
|
|
|
55
|
|
|
56 procedure Put
|
|
|
57 (To : out Wide_String;
|
|
|
58 Item : Complex;
|
|
|
59 Aft : Field := Default_Aft;
|
|
|
60 Exp : Field := Default_Exp);
|
|
|
61
|
|
|
62 end Ada.Wide_Text_IO.Complex_IO;
|
