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