ncurses 5.3

[ncurses.git] / Ada95 / gen / terminal_interface-curses-forms.ads.m4

diff --git a/Ada95/gen/terminal_interface-curses-forms.ads.m4 b/Ada95/gen/terminal_interface-curses-forms.ads.m4
index 998fdba1036efe7563d18f41627a39e73b6c9881..9123f9d97261ce41afcc7aa36aa6b74bb8b7e406 100644 (file)
--- a/Ada95/gen/terminal_interface-curses-forms.ads.m4
+++ b/Ada95/gen/terminal_interface-curses-forms.ads.m4
@@ -1,5 +1,5 @@
 --  -*- ada -*-
 --  -*- ada -*-

-define(`HTMLNAME',`terminal_interface-curses-forms_s.html')dnl
+define(`HTMLNAME',`terminal_interface-curses-forms__ads.htm')dnl

 include(M4MACRO)dnl
 ------------------------------------------------------------------------------
 --                                                                          --
 include(M4MACRO)dnl
 ------------------------------------------------------------------------------
 --                                                                          --


@@ -9,67 +9,90 @@ include(M4MACRO)dnl
 --                                                                          --
 --                                 S P E C                                  --
 --                                                                          --
 --                                                                          --
 --                                 S P E C                                  --
 --                                                                          --

---  Version 00.92                                                           --
+------------------------------------------------------------------------------
+-- 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 ncurses Ada95 binding is copyrighted 1996 by                        --
---  Juergen Pfeifer, Email: Juergen.Pfeifer@T-Online.de                     --
+-- The above copyright notice and this permission notice shall be included  --
+-- in all copies or substantial portions of the Software.                   --

 --                                                                          --
 --                                                                          --

---  Permission is hereby granted to reproduce and distribute this           --
---  binding by any means and for any fee, whether alone or as part          --
---  of a larger distribution, in source or in binary form, PROVIDED         --
---  this notice is included with any such distribution, and is not          --
---  removed from any of its header files. Mention of ncurses and the        --
---  author of this binding in any applications linked with it is            --
---  highly appreciated.                                                     --
+-- 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.                               --

 --                                                                          --
 --                                                                          --

---  This binding comes AS IS with no warranty, implied or expressed.        --
+-- 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, 1996
+--  Contact: http://www.familiepfeifer.de/Contact.aspx?Lang=en

 --  Version Control:
 --  Version Control:

---  $Revision: 1.9 $
+--  $Revision: 1.26 $
+--  Binding Version 01.00

 ------------------------------------------------------------------------------
 include(`Form_Base_Defs')
 with System;
 ------------------------------------------------------------------------------
 include(`Form_Base_Defs')
 with System;

-with Ada.Tags; use Ada.Tags;

 with Ada.Characters.Latin_1;
 with Ada.Characters.Latin_1;

-with Interfaces.C;
-with Interfaces.C.Strings;

 
 package Terminal_Interface.Curses.Forms is
 
 package Terminal_Interface.Curses.Forms is

-
-include(`Form_Linker_Options')
-
+   pragma Preelaborate (Terminal_Interface.Curses.Forms);
+include(`Form_Linker_Options')dnl
+include(`Linker_Options')

    Space : Character renames Ada.Characters.Latin_1.Space;
 
    type Field        is private;
    type Form         is private;
    Space : Character renames Ada.Characters.Latin_1.Space;
 
    type Field        is private;
    type Form         is private;

-   type C_Field_Type is private;

 
    Null_Field        : constant Field;
    Null_Form         : constant Form;
 
    Null_Field        : constant Field;
    Null_Form         : constant Form;

-   Null_Field_Type   : constant C_Field_Type;
-

 
    type Field_Justification is (None,
                                 Left,
                                 Center,
                                 Right);
 
 
    type Field_Justification is (None,
                                 Left,
                                 Center,
                                 Right);
 

-include(`Field_Rep')
+   pragma Warnings (Off);
+include(`Field_Rep')Dnl
+
+   pragma Warnings (On);

 
 

-   Default_Field_Options : Field_Option_Set;
+   function Default_Field_Options return Field_Option_Set;

    --  The initial defaults for the field options.
    --  The initial defaults for the field options.

+   pragma Inline (Default_Field_Options);

 
 

-include(`Form_Opt_Rep')
+   pragma Warnings (Off);
+include(`Form_Opt_Rep')Dnl

 
 

-   Default_Form_Options : Form_Option_Set;
+   pragma Warnings (On);
+
+   function Default_Form_Options return Form_Option_Set;

    --  The initial defaults for the form options.
    --  The initial defaults for the form options.

+   pragma Inline (Default_Form_Options);

 
    type Buffer_Number is new Natural;
 
    type Field_Array is array (Positive range <>) of aliased Field;
    pragma Convention (C, Field_Array);
 
 
    type Buffer_Number is new Natural;
 
    type Field_Array is array (Positive range <>) of aliased Field;
    pragma Convention (C, Field_Array);
 

-   type Field_Array_Access is access all Field_Array;
+   type Field_Array_Access is access Field_Array;
+
+   procedure Free (FA          : in out Field_Array_Access;
+                   Free_Fields : in Boolean := False);
+   --  Release the memory for an allocated field array
+   --  If Free_Fields is True, call Delete() for all the fields in
+   --  the array.

 
    subtype Form_Request_Code is Key_Code range (Key_Max + 1) .. (Key_Max + 57);
 
 
    subtype Form_Request_Code is Key_Code range (Key_Max + 1) .. (Key_Max + 57);
 


@@ -209,6 +232,10 @@ include(`Form_Opt_Rep')
    procedure Request_Name (Key  : in Form_Request_Code;
                            Name : out String);
 
    procedure Request_Name (Key  : in Form_Request_Code;
                            Name : out String);
 

+   function  Request_Name (Key : Form_Request_Code) return String;
+   --  Same as function
+   pragma Inline (Request_Name);
+

    ------------------
    --  Exceptions  --
    ------------------
    ------------------
    --  Exceptions  --
    ------------------


@@ -225,6 +252,7 @@ include(`Form_Opt_Rep')
                     More_Buffers : Buffer_Number := Buffer_Number'First)
                     return Field;
    --  AKA
                     More_Buffers : Buffer_Number := Buffer_Number'First)
                     return Field;
    --  AKA

+   --  An overloaded Create is defined later. Pragma Inline appears there.

 
    --  ANCHOR(`new_field()',`New_Field')
    function New_Field (Height       : Line_Count;
 
    --  ANCHOR(`new_field()',`New_Field')
    function New_Field (Height       : Line_Count;


@@ -235,23 +263,27 @@ include(`Form_Opt_Rep')
                        More_Buffers : Buffer_Number := Buffer_Number'First)
                        return Field renames Create;
    --  AKA
                        More_Buffers : Buffer_Number := Buffer_Number'First)
                        return Field renames Create;
    --  AKA

+   pragma Inline (New_Field);

 
    --  ANCHOR(`free_field()',`Delete')
    procedure Delete (Fld : in out Field);
    --  AKA
    --  Reset Fld to Null_Field
 
    --  ANCHOR(`free_field()',`Delete')
    procedure Delete (Fld : in out Field);
    --  AKA
    --  Reset Fld to Null_Field

+   --  An overloaded Delete is defined later. Pragma Inline appears there.

 
    --  ANCHOR(`dup_field()',`Duplicate')
    function Duplicate (Fld  : Field;
                        Top  : Line_Position;
                        Left : Column_Position) return Field;
    --  AKA
 
    --  ANCHOR(`dup_field()',`Duplicate')
    function Duplicate (Fld  : Field;
                        Top  : Line_Position;
                        Left : Column_Position) return Field;
    --  AKA

+   pragma Inline (Duplicate);

 
    --  ANCHOR(`link_field()',`Link')
    function Link (Fld  : Field;
                   Top  : Line_Position;
                   Left : Column_Position) return Field;
    --  AKA
 
    --  ANCHOR(`link_field()',`Link')
    function Link (Fld  : Field;
                   Top  : Line_Position;
                   Left : Column_Position) return Field;
    --  AKA

+   pragma Inline (Link);

 
    --  MANPAGE(`form_field_just.3x')
 
 
    --  MANPAGE(`form_field_just.3x')
 


@@ -259,10 +291,12 @@ include(`Form_Opt_Rep')
    procedure Set_Justification (Fld  : in Field;
                                 Just : in Field_Justification := None);
    --  AKA
    procedure Set_Justification (Fld  : in Field;
                                 Just : in Field_Justification := None);
    --  AKA

+   pragma Inline (Set_Justification);

 
    --  ANCHOR(`field_just()',`Get_Justification')
    function Get_Justification (Fld : Field) return Field_Justification;
    --  AKA
 
    --  ANCHOR(`field_just()',`Get_Justification')
    function Get_Justification (Fld : Field) return Field_Justification;
    --  AKA

+   pragma Inline (Get_Justification);

 
    --  MANPAGE(`form_field_buffer.3x')
 
 
    --  MANPAGE(`form_field_buffer.3x')
 


@@ -272,6 +306,7 @@ include(`Form_Opt_Rep')
       Buffer : in Buffer_Number := Buffer_Number'First;
       Str    : in String);
    --  AKA
       Buffer : in Buffer_Number := Buffer_Number'First;
       Str    : in String);
    --  AKA

+   --  Not inlined

 
    --  ANCHOR(`field_buffer()',`Get_Buffer')
    procedure Get_Buffer
 
    --  ANCHOR(`field_buffer()',`Get_Buffer')
    procedure Get_Buffer


@@ -280,19 +315,29 @@ include(`Form_Opt_Rep')
       Str    : out String);
    --  AKA
 
       Str    : out String);
    --  AKA
 

+   function Get_Buffer
+     (Fld    : in Field;
+      Buffer : in Buffer_Number := Buffer_Number'First) return String;
+   --  AKA
+   --  Same but as function
+   pragma Inline (Get_Buffer);
+

    --  ANCHOR(`set_field_status()',`Set_Status')
    procedure Set_Status (Fld    : in Field;
                          Status : in Boolean := True);
    --  AKA
    --  ANCHOR(`set_field_status()',`Set_Status')
    procedure Set_Status (Fld    : in Field;
                          Status : in Boolean := True);
    --  AKA

+   pragma Inline (Set_Status);

 
    --  ANCHOR(`field_status()',`Changed')
    function Changed (Fld : Field) return Boolean;
    --  AKA
 
    --  ANCHOR(`field_status()',`Changed')
    function Changed (Fld : Field) return Boolean;
    --  AKA

+   pragma Inline (Changed);

 
    --  ANCHOR(`set_field_max()',`Set_Maximum_Size')
    procedure Set_Maximum_Size (Fld : in Field;
                                Max : in Natural := 0);
    --  AKA
 
    --  ANCHOR(`set_field_max()',`Set_Maximum_Size')
    procedure Set_Maximum_Size (Fld : in Field;
                                Max : in Natural := 0);
    --  AKA

+   pragma Inline (Set_Maximum_Size);

 
    --  MANPAGE(`form_field_opts.3x')
 
 
    --  MANPAGE(`form_field_opts.3x')
 


@@ -300,6 +345,7 @@ include(`Form_Opt_Rep')
    procedure Set_Options (Fld     : in Field;
                           Options : in Field_Option_Set);
    --  AKA
    procedure Set_Options (Fld     : in Field;
                           Options : in Field_Option_Set);
    --  AKA

+   --  An overloaded version is defined later. Pragma Inline appears there

 
    --  ANCHOR(`field_opts_on()',`Switch_Options')
    procedure Switch_Options (Fld     : in Field;
 
    --  ANCHOR(`field_opts_on()',`Switch_Options')
    procedure Switch_Options (Fld     : in Field;


@@ -307,6 +353,7 @@ include(`Form_Opt_Rep')
                              On      : Boolean := True);
    --  AKA
    --  ALIAS(`field_opts_off()')
                              On      : Boolean := True);
    --  AKA
    --  ALIAS(`field_opts_off()')

+   --  An overloaded version is defined later. Pragma Inline appears there

 
    --  ANCHOR(`field_opts()',`Get_Options')
    procedure Get_Options (Fld     : in  Field;
 
    --  ANCHOR(`field_opts()',`Get_Options')
    procedure Get_Options (Fld     : in  Field;


@@ -317,6 +364,7 @@ include(`Form_Opt_Rep')
    function Get_Options (Fld : Field := Null_Field)
                          return Field_Option_Set;
    --  AKA
    function Get_Options (Fld : Field := Null_Field)
                          return Field_Option_Set;
    --  AKA

+   --  An overloaded version is defined later. Pragma Inline appears there

 
    --  MANPAGE(`form_field_attributes.3x')
 
 
    --  MANPAGE(`form_field_attributes.3x')
 


@@ -326,6 +374,7 @@ include(`Form_Opt_Rep')
       Fore  : in Character_Attribute_Set := Normal_Video;
       Color : in Color_Pair := Color_Pair'First);
    --  AKA
       Fore  : in Character_Attribute_Set := Normal_Video;
       Color : in Color_Pair := Color_Pair'First);
    --  AKA

+   pragma Inline (Set_Foreground);

 
    --  ANCHOR(`field_fore()',`Foreground')
    procedure Foreground (Fld  : in  Field;
 
    --  ANCHOR(`field_fore()',`Foreground')
    procedure Foreground (Fld  : in  Field;


@@ -337,6 +386,7 @@ include(`Form_Opt_Rep')
                          Fore  : out Character_Attribute_Set;
                          Color : out Color_Pair);
    --  AKA
                          Fore  : out Character_Attribute_Set;
                          Color : out Color_Pair);
    --  AKA

+   pragma Inline (Foreground);

 
    --  ANCHOR(`set_field_back()',`Set_Background')
    procedure Set_Background
 
    --  ANCHOR(`set_field_back()',`Set_Background')
    procedure Set_Background


@@ -344,6 +394,7 @@ include(`Form_Opt_Rep')
       Back  : in Character_Attribute_Set := Normal_Video;
       Color : in Color_Pair := Color_Pair'First);
    --  AKA
       Back  : in Character_Attribute_Set := Normal_Video;
       Color : in Color_Pair := Color_Pair'First);
    --  AKA

+   pragma Inline (Set_Background);

 
    --  ANCHOR(`field_back()',`Background')
    procedure Background (Fld  : in  Field;
 
    --  ANCHOR(`field_back()',`Background')
    procedure Background (Fld  : in  Field;


@@ -355,16 +406,19 @@ include(`Form_Opt_Rep')
                          Back  : out Character_Attribute_Set;
                          Color : out Color_Pair);
    --  AKA
                          Back  : out Character_Attribute_Set;
                          Color : out Color_Pair);
    --  AKA

+   pragma Inline (Background);

 
    --  ANCHOR(`set_field_pad()',`Set_Pad_Character')
    procedure Set_Pad_Character (Fld : in Field;
                                 Pad : in Character := Space);
    --  AKA
 
    --  ANCHOR(`set_field_pad()',`Set_Pad_Character')
    procedure Set_Pad_Character (Fld : in Field;
                                 Pad : in Character := Space);
    --  AKA

+   pragma Inline (Set_Pad_Character);

 
    --  ANCHOR(`field_pad()',`Pad_Character')
    procedure Pad_Character (Fld : in  Field;
                             Pad : out Character);
    --  AKA
 
    --  ANCHOR(`field_pad()',`Pad_Character')
    procedure Pad_Character (Fld : in  Field;
                             Pad : out Character);
    --  AKA

+   pragma Inline (Pad_Character);

 
    --  MANPAGE(`form_field_info.3x')
 
 
    --  MANPAGE(`form_field_info.3x')
 


@@ -377,6 +431,7 @@ include(`Form_Opt_Rep')
                    Off_Screen         : out Natural;
                    Additional_Buffers : out Buffer_Number);
    --  AKA
                    Off_Screen         : out Natural;
                    Additional_Buffers : out Buffer_Number);
    --  AKA

+   pragma Inline (Info);

 
    --  ANCHOR(`dynamic_field_info()',`Dynamic_Info')
    procedure Dynamic_Info (Fld     : in Field;
 
    --  ANCHOR(`dynamic_field_info()',`Dynamic_Info')
    procedure Dynamic_Info (Fld     : in Field;


@@ -384,6 +439,7 @@ include(`Form_Opt_Rep')
                            Columns : out Column_Count;
                            Max     : out Natural);
    --  AKA
                            Columns : out Column_Count;
                            Max     : out Natural);
    --  AKA

+   pragma Inline (Dynamic_Info);

 
    --  MANPAGE(`form_win.3x')
 
 
    --  MANPAGE(`form_win.3x')
 


@@ -391,25 +447,30 @@ include(`Form_Opt_Rep')
    procedure Set_Window (Frm : in Form;
                          Win : in Window);
    --  AKA
    procedure Set_Window (Frm : in Form;
                          Win : in Window);
    --  AKA

+   pragma Inline (Set_Window);

 
    --  ANCHOR(`form_win()',`Get_Window')
    function Get_Window (Frm : Form) return Window;
    --  AKA
 
    --  ANCHOR(`form_win()',`Get_Window')
    function Get_Window (Frm : Form) return Window;
    --  AKA

+   pragma Inline (Get_Window);

 
    --  ANCHOR(`set_form_sub()',`Set_Sub_Window')
    procedure Set_Sub_Window (Frm : in Form;
                              Win : in Window);
    --  AKA
 
    --  ANCHOR(`set_form_sub()',`Set_Sub_Window')
    procedure Set_Sub_Window (Frm : in Form;
                              Win : in Window);
    --  AKA

+   pragma Inline (Set_Sub_Window);

 
    --  ANCHOR(`form_sub()',`Get_Sub_Window')
    function Get_Sub_Window (Frm : Form) return Window;
    --  AKA
 
    --  ANCHOR(`form_sub()',`Get_Sub_Window')
    function Get_Sub_Window (Frm : Form) return Window;
    --  AKA

+   pragma Inline (Get_Sub_Window);

 
    --  ANCHOR(`scale_form()',`Scale')
    procedure Scale (Frm     : in Form;
                     Lines   : out Line_Count;
                     Columns : out Column_Count);
    --  AKA
 
    --  ANCHOR(`scale_form()',`Scale')
    procedure Scale (Frm     : in Form;
                     Lines   : out Line_Count;
                     Columns : out Column_Count);
    --  AKA

+   pragma Inline (Scale);

 
    --  MANPAGE(`form_hook.3x')
 
 
    --  MANPAGE(`form_hook.3x')
 


@@ -420,21 +481,25 @@ include(`Form_Opt_Rep')
    procedure Set_Field_Init_Hook (Frm  : in Form;
                                   Proc : in Form_Hook_Function);
    --  AKA
    procedure Set_Field_Init_Hook (Frm  : in Form;
                                   Proc : in Form_Hook_Function);
    --  AKA

+   pragma Inline (Set_Field_Init_Hook);

 
    --  ANCHOR(`set_field_term()',`Set_Field_Term_Hook')
    procedure Set_Field_Term_Hook (Frm  : in Form;
                                   Proc : in Form_Hook_Function);
    --  AKA
 
    --  ANCHOR(`set_field_term()',`Set_Field_Term_Hook')
    procedure Set_Field_Term_Hook (Frm  : in Form;
                                   Proc : in Form_Hook_Function);
    --  AKA

+   pragma Inline (Set_Field_Term_Hook);

 
    --  ANCHOR(`set_form_init()',`Set_Form_Init_Hook')
    procedure Set_Form_Init_Hook (Frm  : in Form;
                                  Proc : in Form_Hook_Function);
    --  AKA
 
    --  ANCHOR(`set_form_init()',`Set_Form_Init_Hook')
    procedure Set_Form_Init_Hook (Frm  : in Form;
                                  Proc : in Form_Hook_Function);
    --  AKA

+   pragma Inline (Set_Form_Init_Hook);

 
    --  ANCHOR(`set_form_term()',`Set_Form_Term_Hook')
    procedure Set_Form_Term_Hook (Frm  : in Form;
                                  Proc : in Form_Hook_Function);
    --  AKA
 
    --  ANCHOR(`set_form_term()',`Set_Form_Term_Hook')
    procedure Set_Form_Term_Hook (Frm  : in Form;
                                  Proc : in Form_Hook_Function);
    --  AKA

+   pragma Inline (Set_Form_Term_Hook);

 
    --  ANCHOR(`field_init()',`Get_Field_Init_Hook')
    function Get_Field_Init_Hook (Frm : Form) return Form_Hook_Function;
 
    --  ANCHOR(`field_init()',`Get_Field_Init_Hook')
    function Get_Field_Init_Hook (Frm : Form) return Form_Hook_Function;


@@ -460,44 +525,52 @@ include(`Form_Opt_Rep')
 
    --  ANCHOR(`set_form_fields()',`Redefine')
    procedure Redefine (Frm  : in Form;
 
    --  ANCHOR(`set_form_fields()',`Redefine')
    procedure Redefine (Frm  : in Form;

-                       Flds : in Field_Array);
+                       Flds : in Field_Array_Access);

    --  AKA
    --  AKA

-   --  With a bit more comfort. You don´t need to terminate the Field_Array
-   --  with a null entry. This is handled internally in the binding.
+   pragma Inline (Redefine);

 
    --  ANCHOR(`set_form_fields()',`Set_Fields')
    procedure Set_Fields (Frm  : in Form;
 
    --  ANCHOR(`set_form_fields()',`Set_Fields')
    procedure Set_Fields (Frm  : in Form;

-                         Flds : in Field_Array) renames Redefine;
+                         Flds : in Field_Array_Access) renames Redefine;

    --  AKA
    --  AKA

+   pragma Inline (Set_Fields);

 
    --  ANCHOR(`form_fields()',`Fields')
 
    --  ANCHOR(`form_fields()',`Fields')

-   function Fields (Frm : Form) return Field_Array_Access;
+   function Fields (Frm   : Form;
+                    Index : Positive) return Field;

    --  AKA
    --  AKA

+   pragma Inline (Fields);

 
    --  ANCHOR(`field_count()',`Field_Count')
    function Field_Count (Frm : Form) return Natural;
    --  AKA
 
    --  ANCHOR(`field_count()',`Field_Count')
    function Field_Count (Frm : Form) return Natural;
    --  AKA

+   pragma Inline (Field_Count);

 
    --  ANCHOR(`move_field()',`Move')
    procedure Move (Fld    : in Field;
                    Line   : in Line_Position;
                    Column : in Column_Position);
    --  AKA
 
    --  ANCHOR(`move_field()',`Move')
    procedure Move (Fld    : in Field;
                    Line   : in Line_Position;
                    Column : in Column_Position);
    --  AKA

+   pragma Inline (Move);

 
    --  MANPAGE(`form_new.3x')
 
    --  ANCHOR(`new_form()',`Create')
 
    --  MANPAGE(`form_new.3x')
 
    --  ANCHOR(`new_form()',`Create')

-   function Create (Fields : Field_Array) return Form;
+   function Create (Fields : Field_Array_Access) return Form;

    --  AKA
    --  AKA

+   pragma Inline (Create);

 
    --  ANCHOR(`new_form()',`New_Form')
 
    --  ANCHOR(`new_form()',`New_Form')

-   function New_Form (Fields : Field_Array) return Form renames Create;
+   function New_Form (Fields : Field_Array_Access) return Form
+     renames Create;

    --  AKA
    --  AKA

+   pragma Inline (New_Form);

 
    --  ANCHOR(`free_form()',`Delete')
    procedure Delete (Frm : in out Form);
    --  AKA
    --  Reset Frm to Null_Form
 
    --  ANCHOR(`free_form()',`Delete')
    procedure Delete (Frm : in out Form);
    --  AKA
    --  Reset Frm to Null_Form

+   pragma Inline (Delete);

 
    --  MANPAGE(`form_opts.3x')
 
 
    --  MANPAGE(`form_opts.3x')
 


@@ -505,6 +578,7 @@ include(`Form_Opt_Rep')
    procedure Set_Options (Frm     : in Form;
                           Options : in Form_Option_Set);
    --  AKA
    procedure Set_Options (Frm     : in Form;
                           Options : in Form_Option_Set);
    --  AKA

+   pragma Inline (Set_Options);

 
    --  ANCHOR(`form_opts_on()',`Switch_Options')
    procedure Switch_Options (Frm     : in Form;
 
    --  ANCHOR(`form_opts_on()',`Switch_Options')
    procedure Switch_Options (Frm     : in Form;


@@ -512,6 +586,7 @@ include(`Form_Opt_Rep')
                              On      : Boolean := True);
    --  AKA
    --  ALIAS(`form_opts_off()')
                              On      : Boolean := True);
    --  AKA
    --  ALIAS(`form_opts_off()')

+   pragma Inline (Switch_Options);

 
    --  ANCHOR(`form_opts()',`Get_Options')
    procedure Get_Options (Frm     : in  Form;
 
    --  ANCHOR(`form_opts()',`Get_Options')
    procedure Get_Options (Frm     : in  Form;


@@ -521,6 +596,7 @@ include(`Form_Opt_Rep')
    --  ANCHOR(`form_opts()',`Get_Options')
    function Get_Options (Frm : Form := Null_Form) return Form_Option_Set;
    --  AKA
    --  ANCHOR(`form_opts()',`Get_Options')
    function Get_Options (Frm : Form := Null_Form) return Form_Option_Set;
    --  AKA

+   pragma Inline (Get_Options);

 
    --  MANPAGE(`form_post.3x')
 
 
    --  MANPAGE(`form_post.3x')
 


@@ -529,22 +605,26 @@ include(`Form_Opt_Rep')
                    Post : in Boolean := True);
    --  AKA
    --  ALIAS(`unpost_form()')
                    Post : in Boolean := True);
    --  AKA
    --  ALIAS(`unpost_form()')

+   pragma Inline (Post);

 
    --  MANPAGE(`form_cursor.3x')
 
    --  ANCHOR(`pos_form_cursor()',`Position_Cursor')
    procedure Position_Cursor (Frm : Form);
    --  AKA
 
    --  MANPAGE(`form_cursor.3x')
 
    --  ANCHOR(`pos_form_cursor()',`Position_Cursor')
    procedure Position_Cursor (Frm : Form);
    --  AKA

+   pragma Inline (Position_Cursor);

 
    --  MANPAGE(`form_data.3x')
 
    --  ANCHOR(`data_ahead()',`Data_Ahead')
    function Data_Ahead (Frm : Form) return Boolean;
    --  AKA
 
    --  MANPAGE(`form_data.3x')
 
    --  ANCHOR(`data_ahead()',`Data_Ahead')
    function Data_Ahead (Frm : Form) return Boolean;
    --  AKA

+   pragma Inline (Data_Ahead);

 
    --  ANCHOR(`data_behind()',`Data_Behind')
    function Data_Behind (Frm : Form) return Boolean;
    --  AKA
 
    --  ANCHOR(`data_behind()',`Data_Behind')
    function Data_Behind (Frm : Form) return Boolean;
    --  AKA

+   pragma Inline (Data_Behind);

 
    --  MANPAGE(`form_driver.3x')
 
 
    --  MANPAGE(`form_driver.3x')
 


@@ -557,6 +637,7 @@ include(`Form_Opt_Rep')
    function Driver (Frm : Form;
                     Key : Key_Code) return Driver_Result;
    --  AKA
    function Driver (Frm : Form;
                     Key : Key_Code) return Driver_Result;
    --  AKA

+   --  Driver not inlined

 
    --  MANPAGE(`form_page.3x')
 
 
    --  MANPAGE(`form_page.3x')
 


@@ -566,19 +647,23 @@ include(`Form_Opt_Rep')
    procedure Set_Current (Frm : in Form;
                           Fld : in Field);
    --  AKA
    procedure Set_Current (Frm : in Form;
                           Fld : in Field);
    --  AKA

+   pragma Inline (Set_Current);

 
    --  ANCHOR(`current_field()',`Current')
    function Current (Frm : in Form) return Field;
    --  AKA
 
    --  ANCHOR(`current_field()',`Current')
    function Current (Frm : in Form) return Field;
    --  AKA

+   pragma Inline (Current);

 
    --  ANCHOR(`set_form_page()',`Set_Page')
    procedure Set_Page (Frm  : in Form;
                        Page : in Page_Number := Page_Number'First);
    --  AKA
 
    --  ANCHOR(`set_form_page()',`Set_Page')
    procedure Set_Page (Frm  : in Form;
                        Page : in Page_Number := Page_Number'First);
    --  AKA

+   pragma Inline (Set_Page);

 
    --  ANCHOR(`form_page()',`Page')
    function Page (Frm : Form) return Page_Number;
    --  AKA
 
    --  ANCHOR(`form_page()',`Page')
    function Page (Frm : Form) return Page_Number;
    --  AKA

+   pragma Inline (Page);

 
    --  ANCHOR(`field_index()',`Get_Index')
    function Get_Index (Fld : Field) return Positive;
 
    --  ANCHOR(`field_index()',`Get_Index')
    function Get_Index (Fld : Field) return Positive;


@@ -586,6 +671,7 @@ include(`Form_Opt_Rep')
    --  Please note that in this binding we start the numbering of fields
    --  with 1. So this is number is one more than you get from the low
    --  level call.
    --  Please note that in this binding we start the numbering of fields
    --  with 1. So this is number is one more than you get from the low
    --  level call.

+   pragma Inline (Get_Index);

 
    --  MANPAGE(`form_new_page.3x')
 
 
    --  MANPAGE(`form_new_page.3x')
 


@@ -593,220 +679,22 @@ include(`Form_Opt_Rep')
    procedure Set_New_Page (Fld      : in Field;
                            New_Page : in Boolean := True);
    --  AKA
    procedure Set_New_Page (Fld      : in Field;
                            New_Page : in Boolean := True);
    --  AKA

+   pragma Inline (Set_New_Page);

 
    --  ANCHOR(`new_page()',`Is_New_Page')
    function Is_New_Page (Fld : Field) return Boolean;
    --  AKA
 
    --  ANCHOR(`new_page()',`Is_New_Page')
    function Is_New_Page (Fld : Field) return Boolean;
    --  AKA

+   pragma Inline (Is_New_Page);

 
 

-   --  MANPAGE(`form_fieldtype.3x')
-
-   type Field_Type is abstract tagged null record;
-   type Field_Type_Access is access all Field_Type'Class;
-
-   function Native_Type (Ftype : Field_Type)
-                         return C_Field_Type is abstract;
-   --  This function returns the C libraries handle to the field type.
-   --  May be you need this if you want to interface to lower level
-   --  routines in the form library.
-
-   --  ANCHOR(`set_field_type()',`Set_Type')
-   procedure Set_Type (Fld      : in Field;
-                       Fld_Type : in Field_Type) is abstract;
-   --  AKA
-   --  But: we hide the vararg mechanism of the C interface. You always
-   --       have to pass a single Field_Type parameter.
-
-   type C_Defined_Field_Type is abstract new Field_Type with null record;
-   --  This is the root of all field typed defined in C, i.e. this are
-   --  the predefined field types in the form library.
-
-   type Alpha_Field is new C_Defined_Field_Type
-      with record
-         Minimum_Field_Width : Natural := 0;
-      end record;
-   procedure Set_Type (Fld      : in Field;
-                       Fld_Type : in Alpha_Field);
-   function Native_Type (Ftype : Alpha_Field)
-                         return C_Field_Type;
-
-   type Alpha_Numeric_Field is new C_Defined_Field_Type with
-      record
-         Minimum_Field_Width : Natural := 0;
-      end record;
-   procedure Set_Type (Fld      : in Field;
-                       Fld_Type : in Alpha_Numeric_Field);
-   function Native_Type (Ftype : Alpha_Numeric_Field)
-                         return C_Field_Type;
-
-   type Integer_Field is new C_Defined_Field_Type with
-      record
-         Precision   : Natural;
-         Lower_Limit : Integer;
-         Upper_Limit : Integer;
-      end record;
-   procedure Set_Type (Fld      : in Field;
-                       Fld_Type : in Integer_Field);
-   function Native_Type (Ftype : Integer_Field)
-                         return C_Field_Type;
-
-   type Numeric_Field is new C_Defined_Field_Type with
-      record
-         Precision   : Natural;
-         Lower_Limit : Float;
-         Upper_Limit : Float;
-      end record;
-   procedure Set_Type (Fld      : in Field;
-                       Fld_Type : in Numeric_Field);
-   function Native_Type (Ftype : Numeric_Field)
-                         return C_Field_Type;
-
-   type String_Access is access String;
-
-   type Regular_Expression_Field is new C_Defined_Field_Type with
-      record
-         Regular_Expression : String_Access;
-      end record;
-   procedure Set_Type (Fld      : in Field;
-                       Fld_Type : in Regular_Expression_Field);
-   function Native_Type (Ftype : Regular_Expression_Field)
-                         return C_Field_Type;
-
-   type Enum_Array is array (Positive range <>)
-      of String_Access;
-
-   type Enumeration_Info (C : Positive) is
-      record
-         Names                : Enum_Array (1 .. C);
-         Case_Sensitive       : Boolean := False;
-         Match_Must_Be_Unique : Boolean := False;
-      end record;
-
-   type Enumeration_Field is new C_Defined_Field_Type with private;
-
-   function Create (Info : Enumeration_Info;
-                    Auto_Release_Names : Boolean := False)
-                    return Enumeration_Field;
-   --  Make an fieldtype from the info. Enumerations are special, because
-   --  they normally don't copy the enum values into a private store, so
-   --  we have to care for the lifetime of the info we provide.
-   --  The Auto_Release_Names flag may be used to automatically releases
-   --  the strings in the Names array of the Enumeration_Info.
-
-   function Make_Enumeration_Type (Info : Enumeration_Info;
-                                   Auto_Release_Names : Boolean := False)
-                                   return Enumeration_Field renames Create;
-
-   procedure Release (Enum : in out Enumeration_Field);
-   --  But we may want to release the field to release the memory allocated
-   --  by it internally. After that the Enumeration field is no longer usable.
-
-   procedure Set_Type (Fld      : in Field;
-                       Fld_Type : in Enumeration_Field);
-   function Native_Type (Ftype : Enumeration_Field)
-                         return C_Field_Type;
-
-   --  The next type defintions are all ncurses extensions. They are typically
-   --  not available in other curses implementations.
-
-   type Internet_V4_Address_Field is new C_Defined_Field_Type
-     with null record;
-   procedure Set_Type (Fld      : in Field;
-                       Fld_Type : in Internet_V4_Address_Field);
-   function Native_Type (Ftype : Internet_V4_Address_Field)
-                         return C_Field_Type;
-
-
-   type Ada_Defined_Field_Type is abstract new Field_Type with null record;
-   --  This is the root of the mechanism we use to create field types in
-   --  Ada95. You don't have to redefine the Set_Field_Type and
-   --  Native_Field_Type methods, because they work generically on this
-   --  class.
-
-   procedure Set_Type (Fld      : Field;
-                       Fld_Type : Ada_Defined_Field_Type);
-
-   function Native_Type (Ftype : Ada_Defined_Field_Type)
-                         return C_Field_Type;
-
-   --  MANPAGE(`form_field_validation.3x')
-
-   --  ANCHOR(`field_type()',`Get_Type')
-   function Get_Type (Fld : in Field) return Field_Type_Access;
-   --  AKA
-   --  ALIAS(`field_arg()')
-   --  In Ada95 we can combine these
+   --  MANPAGE(`form_requestname.3x')
+   --  Not Implemented: form_request_name, form_request_by_name

 
 ------------------------------------------------------------------------------
 private
 
 ------------------------------------------------------------------------------
 private

+   type Field is new System.Storage_Elements.Integer_Address;
+   type Form  is new System.Storage_Elements.Integer_Address;

 
 

-   type Field        is new System.Address;
-   type Form         is new System.Address;
-   type C_Field_Type is new System.Address;
-
-   Null_Field        : constant Field        := Field (System.Null_Address);
-   Null_Form         : constant Form         := Form  (System.Null_Address);
-   Null_Field_Type   : constant C_Field_Type :=
-     C_Field_Type (System.Null_Address);
-
-   type CPA_Access is access Interfaces.C.Strings.chars_ptr_array;
-
-   type Enumeration_Field is new C_Defined_Field_Type with
-      record
-         Case_Sensitive       : Boolean := False;
-         Match_Must_Be_Unique : Boolean := False;
-         Arr                  : CPA_Access := null;
-      end record;
-
-   --  In our binding we use the fields user pointer as hook to maintain
-   --  our own info structure about the field type. To be able to still
-   --  provide a user pointer, we use this wrapper.
-   --
-   type Field_User_Wrapper is
-      record
-         U : System.Address;    --  the hook we provide for the user
-         T : Field_Type_Access; --  may be null
-         N : Natural;           --  use counter
-      end record;
-   pragma Convention (C, Field_User_Wrapper);
-   type Field_User_Wrapper_Access is access all Field_User_Wrapper;
-   pragma Controlled (Field_User_Wrapper_Access);
-
-   function Set_Field_Userptr (Fld : Field;
-                               Wrp : Field_User_Wrapper_Access)
-                               return Interfaces.C.int;
-   pragma Import (C, Set_Field_Userptr, "set_field_userptr");
-
-   function Field_Userptr (Fld : Field) return Field_User_Wrapper_Access;
-   pragma Import (C, Field_Userptr, "field_userptr");
-
-   --  In our binding we use the forms user pointer as hook to maintain
-   --  our own info structure about the field association. To be able to still
-   --  provide a user pointer, we use this wrapper.
-   --
-   type Form_User_Wrapper is
-      record
-         U : System.Address;      --  the hook we provide for the user
-         I : Field_Array_Access;
-      end record;
-   pragma Convention (C, Form_User_Wrapper);
-   type Form_User_Wrapper_Access is access all Form_User_Wrapper;
-   pragma Controlled (Form_User_Wrapper_Access);
-
-   function Set_Form_Userptr (Frm : Form;
-                              Wrp : Form_User_Wrapper_Access)
-                              return Interfaces.C.int;
-   pragma Import (C, Set_Form_Userptr, "set_form_userptr");
-
-   function Form_Userptr (Frm : Form) return Form_User_Wrapper_Access;
-   pragma Import (C, Form_Userptr, "form_userptr");
-
-   procedure Register_Type   (T   : in Ada_Defined_Field_Type'Class;
-                              Cft : in C_Field_Type);
-   procedure Unregister_Type (T   : in Ada_Defined_Field_Type'Class);
-   function  Search_Type (T : Ada_Defined_Field_Type'Class)
-                          return C_Field_Type;
-
-   Generation_Bit_Order : constant System.Bit_Order := System.M4_BIT_ORDER;
-   --  This constant may be different on your system.
+   Null_Field : constant Field := 0;
+   Null_Form  : constant Form  := 0;

 
 end Terminal_Interface.Curses.Forms;
 
 end Terminal_Interface.Curses.Forms;