1 ------------------------------------------------------------------------------
3 -- GNAT RUNTIME COMPONENTS --
5 -- A D A . W I D E _ T E X T _ IO . C O M P L E X _ I O --
10 -- This specification is adapted from the Ada Reference Manual for use with --
11 -- GNAT. In accordance with the copyright of that document, you can freely --
12 -- copy and modify this specification, provided that if you redistribute a --
13 -- modified version, any changes that you have made are clearly indicated. --
15 ------------------------------------------------------------------------------
17 with Ada
.Numerics
.Generic_Complex_Types
;
20 with package Complex_Types
is new Ada
.Numerics
.Generic_Complex_Types
(<>);
22 package Ada
.Wide_Text_IO
.Complex_IO
is
26 Default_Fore
: Field
:= 2;
27 Default_Aft
: Field
:= Real
'Digits - 1;
28 Default_Exp
: Field
:= 3;
33 Width
: in Field
:= 0);
37 Width
: in Field
:= 0);
42 Fore
: in Field
:= Default_Fore
;
43 Aft
: in Field
:= Default_Aft
;
44 Exp
: in Field
:= Default_Exp
);
48 Fore
: in Field
:= Default_Fore
;
49 Aft
: in Field
:= Default_Aft
;
50 Exp
: in Field
:= Default_Exp
);
53 (From
: in Wide_String;
58 (To
: out Wide_String;
60 Aft
: in Field
:= Default_Aft
;
61 Exp
: in Field
:= Default_Exp
);
63 end Ada
.Wide_Text_IO
.Complex_IO
;