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