ncurses 5.0

[ncurses.git] / Ada95 / ada_include / terminal_interface-curses-aux.ads

diff --git a/Ada95/ada_include/terminal_interface-curses-aux.ads b/Ada95/ada_include/terminal_interface-curses-aux.ads
deleted file mode 100644 (file)
index 1221b2e..0000000
--- a/Ada95/ada_include/terminal_interface-curses-aux.ads
+++ /dev/null
@@ -1,108 +0,0 @@
-------------------------------------------------------------------------------
---                                                                          --
---                           GNAT ncurses Binding                           --
---                                                                          --
---                       Terminal_Interface.Curses.Aux                      --
---                                                                          --
---                                 S P E C                                  --
---                                                                          --
-------------------------------------------------------------------------------
--- Copyright (c) 1998 Free Software Foundation, Inc.                        --
---                                                                          --
--- Permission is hereby granted, free of charge, to any person obtaining a  --
--- copy of this software and associated documentation files (the            --
--- "Software"), to deal in the Software without restriction, including      --
--- without limitation the rights to use, copy, modify, merge, publish,      --
--- distribute, distribute with modifications, sublicense, and/or sell       --
--- copies of the Software, and to permit persons to whom the Software is    --
--- furnished to do so, subject to the following conditions:                 --
---                                                                          --
--- The above copyright notice and this permission notice shall be included  --
--- in all copies or substantial portions of the Software.                   --
---                                                                          --
--- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  --
--- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               --
--- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   --
--- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   --
--- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    --
--- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    --
--- THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               --
---                                                                          --
--- Except as contained in this notice, the name(s) of the above copyright   --
--- holders shall not be used in advertising or otherwise to promote the     --
--- sale, use or other dealings in this Software without prior written       --
--- authorization.                                                           --
-------------------------------------------------------------------------------
---  Author: Juergen Pfeifer <Juergen.Pfeifer@T-Online.de> 1996
---  Version Control:
---  $Revision: 1.8 $
---  Binding Version 00.93
-------------------------------------------------------------------------------
-with System;
-with Interfaces.C;
-with Interfaces.C.Strings; use Interfaces.C.Strings;
-with Unchecked_Conversion;
-
-package Terminal_Interface.Curses.Aux is
-   pragma Preelaborate (Aux);
-
-   use type Interfaces.C.Int;
-
-   subtype C_Int      is Interfaces.C.Int;
-   subtype C_Short    is Interfaces.C.Short;
-   subtype C_Long_Int is Interfaces.C.Long;
-   subtype C_Size_T   is Interfaces.C.Size_T;
-   subtype C_Char_Ptr is Interfaces.C.Strings.Chars_Ptr;
-   type    C_Void_Ptr is new System.Address;
-
-   --  This is how those constants are defined in ncurses. I see them also
-   --  exactly like this in all ETI implementations I ever tested. So it
-   --  could be that this is quite general, but please check with your curses.
-   --  This is critical, because curses sometime mixes boolean returns with
-   --  returning an error status.
-   Curses_Ok    : constant C_Int :=  0;
-   Curses_Err   : constant C_Int := -1;
-
-   Curses_True  : constant C_Int := 1;
-   Curses_False : constant C_Int := 0;
-
-   subtype Eti_Error is C_Int range -14 .. 0;
-   --  Type for error codes returned by the menu and forms subsystem
-
-   E_Ok              : constant Eti_Error := 0;
-   E_System_Error    : constant Eti_Error := -1;
-   E_Bad_Argument    : constant Eti_Error := -2;
-   E_Posted          : constant Eti_Error := -3;
-   E_Connected       : constant Eti_Error := -4;
-   E_Bad_State       : constant Eti_Error := -5;
-   E_No_Room         : constant Eti_Error := -6;
-   E_Not_Posted      : constant Eti_Error := -7;
-   E_Unknown_Command : constant Eti_Error := -8;
-   E_No_Match        : constant Eti_Error := -9;
-   E_Not_Selectable  : constant Eti_Error := -10;
-   E_Not_Connected   : constant Eti_Error := -11;
-   E_Request_Denied  : constant Eti_Error := -12;
-   E_Invalid_Field   : constant Eti_Error := -13;
-   E_Current         : constant Eti_Error := -14;
-
-   procedure Eti_Exception (Code : Eti_Error);
-   --  Dispatch the error code and raise the appropriate exception
-   --
-   --
-   --  Some helpers
-   function CInt_To_Chtype is new
-     Unchecked_Conversion (Source => C_Int,
-                           Target => Attributed_Character);
-   function Chtype_To_CInt is new
-     Unchecked_Conversion (Source => Attributed_Character,
-                           Target => C_Int);
-
-   procedure Fill_String (Cp  : in  chars_ptr;
-                          Str : out String);
-   --  Fill the Str parameter with the string denoted by the chars_ptr
-   --  C-Style string.
-
-   function Fill_String (Cp : chars_ptr) return String;
-   --  Same but as function.
-
-end Terminal_Interface.Curses.Aux;