1------------------------------------------------------------------------------
2--                                                                          --
3--                         GNAT RUN-TIME COMPONENTS                         --
4--                                                                          --
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     --
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--  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.
22
23with Ada.Wide_Wide_Text_IO.Float_Aux;
24
25private generic
26
27   type Num is digits <>;
28
29   with package Aux is new Ada.Wide_Wide_Text_IO.Float_Aux (Num, <>);
30
31package Ada.Wide_Wide_Text_IO.Complex_Aux is
32
33   procedure Get
34     (File  : File_Type;
35      ItemR : out Num;
36      ItemI : out Num;
37      Width : Field);
38
39   procedure Put
40     (File  : File_Type;
41      ItemR : Num;
42      ItemI : Num;
43      Fore  : Field;
44      Aft   : Field;
45      Exp   : Field);
46
47   procedure Gets
48     (From  : String;
49      ItemR : out Num;
50      ItemI : out Num;
51      Last  : out Positive);
52
53   procedure Puts
54     (To    : out String;
55      ItemR : Num;
56      ItemI : Num;
57      Aft   : Field;
58      Exp   : Field);
59
60end Ada.Wide_Wide_Text_IO.Complex_Aux;
61