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
16with Ada.Numerics.Generic_Complex_Types;
17
18generic
19   with package Complex_Types is new Ada.Numerics.Generic_Complex_Types (<>);
20
21package Ada.Wide_Text_IO.Complex_IO is
22
23   Default_Fore : Field := 2;
24   Default_Aft  : Field := Complex_Types.Real'Digits - 1;
25   Default_Exp  : Field := 3;
26
27   procedure Get
28     (File  : File_Type;
29      Item  : out Complex_Types.Complex;
30      Width : Field := 0);
31
32   procedure Get
33     (Item  : out Complex_Types.Complex;
34      Width : Field := 0);
35
36   procedure Put
37     (File : File_Type;
38      Item : Complex_Types.Complex;
39      Fore : Field := Default_Fore;
40      Aft  : Field := Default_Aft;
41      Exp  : Field := Default_Exp);
42
43   procedure Put
44     (Item : Complex_Types.Complex;
45      Fore : Field := Default_Fore;
46      Aft  : Field := Default_Aft;
47      Exp  : Field := Default_Exp);
48
49   procedure Get
50     (From : Wide_String;
51      Item : out Complex_Types.Complex;
52      Last : out Positive);
53
54   procedure Put
55     (To   : out Wide_String;
56      Item : Complex_Types.Complex;
57      Aft  : Field := Default_Aft;
58      Exp  : Field := Default_Exp);
59
60end Ada.Wide_Text_IO.Complex_IO;
61