X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-aux__ads.htm;h=3022236c5a9c8890c0c29bfaccd67b017bbff7a8;hp=932ebf147068e46718c1531dd1a8afdb32a0685a;hb=a90dd7b66fa711acd24d8181ea20e4f57d4b36cd;hpb=761e4f0825b330e970558e82a4bd638383914429
diff --git a/doc/html/ada/terminal_interface-curses-aux__ads.htm b/doc/html/ada/terminal_interface-curses-aux__ads.htm
index 932ebf14..3022236c 100644
--- a/doc/html/ada/terminal_interface-curses-aux__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-aux__ads.htm
@@ -24,7 +24,8 @@
-
+
+
@@ -52,91 +53,84 @@
-
+
-
-
-
-
with System;
-with Interfaces.C;
-with Interfaces.C.Strings; use Interfaces.C.Strings;
-with Unchecked_Conversion;
+with Interfaces.C;
+with Interfaces.C.Strings; use Interfaces.C.Strings;
-package Terminal_Interface.Curses.Aux is
- pragma Preelaborate (Terminal_Interface.Curses.Aux);
+package Terminal_Interface.Curses.Aux is
+ pragma Preelaborate (Terminal_Interface.Curses.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_UInt is Interfaces.C.unsigned;
- subtype C_ULong is Interfaces.C.unsigned_long;
- subtype C_Char_Ptr is Interfaces.C.Strings.chars_ptr;
- type C_Void_Ptr is new System.Address;
- type C_Chtype is new C_UInt;
- type C_AttrType is new C_UInt;
+ 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_UInt is Interfaces.C.unsigned;
+ subtype C_ULong is Interfaces.C.unsigned_long;
+ subtype C_Char_Ptr is Interfaces.C.Strings.chars_ptr;
+ type C_Void_Ptr is new System.Address;
- Curses_Ok : constant C_Int := 0;
- Curses_Err : constant C_Int := -1;
+ Curses_Ok : constant C_Int := Curses_Constants.OK;
+ Curses_Err : constant C_Int := Curses_Constants.ERR;
- Curses_True : constant C_Int := 1;
- Curses_False : constant C_Int := 0;
+ Curses_True : constant C_Int := Curses_Constants.TRUE;
+ Curses_False : constant C_Int := Curses_Constants.FALSE;
- subtype Eti_Error is C_Int range -14 .. 0;
-
- 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);
-
-
-
-
- function Chtype_To_AttrChar is new
- Unchecked_Conversion (Source => C_Chtype,
- Target => Attributed_Character);
- function AttrChar_To_Chtype is new
- Unchecked_Conversion (Source => Attributed_Character,
- Target => C_Chtype);
-
- function AttrChar_To_AttrType is new
- Unchecked_Conversion (Source => Attributed_Character,
- Target => C_AttrType);
+ type Eti_Error is
+ (E_Current,
+ E_Invalid_Field,
+ E_Request_Denied,
+ E_Not_Connected,
+ E_Not_Selectable,
+ E_No_Match,
+ E_Unknown_Command,
+ E_Not_Posted,
+ E_No_Room,
+ E_Bad_State,
+ E_Connected,
+ E_Posted,
+ E_Bad_Argument,
+ E_System_Error,
+ E_Ok);
- function AttrType_To_AttrChar is new
- Unchecked_Conversion (Source => C_AttrType,
- Target => Attributed_Character);
+ procedure Eti_Exception (Code : Eti_Error);
+
+
- procedure Fill_String (Cp : chars_ptr;
- Str : out String);
+ procedure Fill_String (Cp : chars_ptr;
+ Str : out String);
- function Fill_String (Cp : chars_ptr) return String;
+ function Fill_String (Cp : chars_ptr) return String;
-end Terminal_Interface.Curses.Aux;
+private
+ for Eti_Error'Size use C_Int'Size;
+ pragma Convention (C, Eti_Error);
+ for Eti_Error use
+ (E_Current => Curses_Constants.E_CURRENT,
+ E_Invalid_Field => Curses_Constants.E_INVALID_FIELD,
+ E_Request_Denied => Curses_Constants.E_REQUEST_DENIED,
+ E_Not_Connected => Curses_Constants.E_NOT_CONNECTED,
+ E_Not_Selectable => Curses_Constants.E_NOT_SELECTABLE,
+ E_No_Match => Curses_Constants.E_NO_MATCH,
+ E_Unknown_Command => Curses_Constants.E_UNKNOWN_COMMAND,
+ E_Not_Posted => Curses_Constants.E_NOT_POSTED,
+ E_No_Room => Curses_Constants.E_NO_ROOM,
+ E_Bad_State => Curses_Constants.E_BAD_STATE,
+ E_Connected => Curses_Constants.E_CONNECTED,
+ E_Posted => Curses_Constants.E_POSTED,
+ E_Bad_Argument => Curses_Constants.E_BAD_ARGUMENT,
+ E_System_Error => Curses_Constants.E_SYSTEM_ERROR,
+ E_Ok => Curses_Constants.E_OK);
+end Terminal_Interface.Curses.Aux;