home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-bin / lib / gcc-lib / m68k-amigaos / 2.7.2.1 / adainclude / a-wtcoio.ads < prev    next >
Encoding:
Text File  |  1995-10-17  |  2.7 KB  |  71 lines
  1. ------------------------------------------------------------------------------
  2. --                                                                          --
  3. --                         GNAT RUNTIME COMPONENTS                          --
  4. --                                                                          --
  5. --   A D A . T E X T _ I O . 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. --                            $Revision: 1.1 $                              --
  10. --                                                                          --
  11. -- This specification is adapted from the Ada Reference Manual for use with --
  12. -- GNAT.  In accordance with the copyright of that document, you can freely --
  13. -- copy and modify this specification,  provided that if you redistribute a --
  14. -- modified version,  any changes that you have made are clearly indicated. --
  15. --                                                                          --
  16. ------------------------------------------------------------------------------
  17.  
  18. --  This is the RM package Ada.Wide_Text_IO.Complex_IO. Since in GNAT the
  19. --  parent Ada.Wide_Text_IO is a child of Ada.Text_IO, this package must be
  20. --  a child of Ada.Text_IO.Wide_Text_IO. The library level renaming of the
  21. --  package Ada.Text_IO.Wide_Text_IO as Ada.Wide_Text_IO will automatically
  22. --  make this package visible as Ada.Wide_Text_IO.Complex_IO.
  23.  
  24. with Ada.Numerics.Generic_Complex_Types;
  25.  
  26. generic
  27.    with package Complex_Types is new Ada.Numerics.Generic_Complex_Types (<>);
  28.  
  29. package Ada.Text_IO.Wide_Text_IO.Complex_IO is
  30.  
  31.    use Complex_Types;
  32.  
  33.    Default_Fore : Field := 2;
  34.    Default_Aft  : Field := Real'Digits - 1;
  35.    Default_Exp  : Field := 3;
  36.  
  37.    procedure Get
  38.      (File  : in  File_Type;
  39.       Item  : out Complex;
  40.       Width : in  Field := 0);
  41.  
  42.    procedure Get
  43.      (Item  : out Complex;
  44.       Width : in  Field := 0);
  45.  
  46.    procedure Put
  47.      (File : in File_Type;
  48.       Item : in Complex;
  49.       Fore : in Field := Default_Fore;
  50.       Aft  : in Field := Default_Aft;
  51.       Exp  : in Field := Default_Exp);
  52.  
  53.    procedure Put
  54.      (Item : in Complex;
  55.       Fore : in Field := Default_Fore;
  56.       Aft  : in Field := Default_Aft;
  57.       Exp  : in Field := Default_Exp);
  58.  
  59.    procedure Get
  60.      (From : in  Wide_String;
  61.       Item : out Complex;
  62.       Last : out Positive);
  63.  
  64.    procedure Put
  65.      (To   : out Wide_String;
  66.       Item : in  Complex;
  67.       Aft  : in  Field := Default_Aft;
  68.       Exp  : in  Field := Default_Exp);
  69.  
  70. end Ada.Text_IO.Wide_Text_IO.Complex_IO;
  71.