| ------------------------------------------------------------------------------ |
| -- -- |
| -- GNAT RUNTIME COMPONENTS -- |
| -- -- |
| -- A D A . W I D E _ T E X T _ IO . C O M P L E X _ I O -- |
| -- -- |
| -- S p e c -- |
| -- -- |
| -- This specification is adapted from the Ada Reference Manual for use with -- |
| -- GNAT. In accordance with the copyright of that document, you can freely -- |
| -- copy and modify this specification, provided that if you redistribute a -- |
| -- modified version, any changes that you have made are clearly indicated. -- |
| -- -- |
| ------------------------------------------------------------------------------ |
| |
| with Ada.Numerics.Generic_Complex_Types; |
| |
| generic |
| with package Complex_Types is new Ada.Numerics.Generic_Complex_Types (<>); |
| |
| package Ada.Wide_Text_IO.Complex_IO is |
| |
| use Complex_Types; |
| |
| Default_Fore : Field := 2; |
| Default_Aft : Field := Real'Digits - 1; |
| Default_Exp : Field := 3; |
| |
| procedure Get |
| (File : in File_Type; |
| Item : out Complex; |
| Width : in Field := 0); |
| |
| procedure Get |
| (Item : out Complex; |
| Width : in Field := 0); |
| |
| procedure Put |
| (File : in File_Type; |
| Item : in Complex; |
| Fore : in Field := Default_Fore; |
| Aft : in Field := Default_Aft; |
| Exp : in Field := Default_Exp); |
| |
| procedure Put |
| (Item : in Complex; |
| Fore : in Field := Default_Fore; |
| Aft : in Field := Default_Aft; |
| Exp : in Field := Default_Exp); |
| |
| procedure Get |
| (From : in Wide_String; |
| Item : out Complex; |
| Last : out Positive); |
| |
| procedure Put |
| (To : out Wide_String; |
| Item : in Complex; |
| Aft : in Field := Default_Aft; |
| Exp : in Field := Default_Exp); |
| |
| end Ada.Wide_Text_IO.Complex_IO; |