1 ------------------------------------------------------------------------------
3 -- GNAT ncurses Binding --
5 -- Terminal_Interface.Curses.Text_IO.Complex_IO --
11 -- The ncurses Ada95 binding is copyrighted 1996 by --
12 -- Juergen Pfeifer, Email: Juergen.Pfeifer@T-Online.de --
14 -- Permission is hereby granted to reproduce and distribute this --
15 -- binding by any means and for any fee, whether alone or as part --
16 -- of a larger distribution, in source or in binary form, PROVIDED --
17 -- this notice is included with any such distribution, and is not --
18 -- removed from any of its header files. Mention of ncurses and the --
19 -- author of this binding in any applications linked with it is --
20 -- highly appreciated. --
22 -- This binding comes AS IS with no warranty, implied or expressed. --
23 ------------------------------------------------------------------------------
26 ------------------------------------------------------------------------------
27 with Ada.Numerics.Generic_Complex_Types;
30 with package Complex_Types is new Ada.Numerics.Generic_Complex_Types (<>);
32 package Terminal_Interface.Curses.Text_IO.Complex_IO is
36 Default_Fore : Field := 2;
37 Default_Aft : Field := Real'Digits - 1;
38 Default_Exp : Field := 3;
43 Fore : in Field := Default_Fore;
44 Aft : in Field := Default_Aft;
45 Exp : in Field := Default_Exp);
49 Fore : in Field := Default_Fore;
50 Aft : in Field := Default_Aft;
51 Exp : in Field := Default_Exp);
56 end Terminal_Interface.Curses.Text_IO.Complex_IO;