1 ------------------------------------------------------------------------------
3 -- GNAT RUN-TIME COMPONENTS --
5 -- A D A . W I D E _ W I D E _ T E X T _ I O . C O M P L E X _ A U X --
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. --
14 ------------------------------------------------------------------------------
16 -- This package contains the routines for Ada.Wide_Wide_Text_IO.Complex_IO
17 -- that are shared among separate instantiations of this package. The routines
18 -- in this package are identical semantically to those in Complex_IO, except
19 -- that the generic parameter Complex has been replaced by separate real and
20 -- imaginary parameters, and default parameters have been removed because they
21 -- are supplied explicitly by the calls from within the generic template.
23 with Ada
.Wide_Wide_Text_IO
.Float_Aux
;
27 type Num
is digits <>;
29 with package Aux
is new Ada
.Wide_Wide_Text_IO
.Float_Aux
(Num
, others => <>);
31 package Ada
.Wide_Wide_Text_IO
.Complex_Aux
is
60 end Ada
.Wide_Wide_Text_IO
.Complex_Aux
;