X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms__adb.htm;fp=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms__adb.htm;h=8909b3e6b2eec081aba5fa2865990cfc936a09eb;hp=dd3a47cec1094daaf7e4d659f0f67da3710d9099;hb=cb4427a16794d98049b4d790b810d62217501f9f;hpb=cdaf29481becd3e1c21baa574ac1ab88ea5f3d38 diff --git a/doc/html/ada/terminal_interface-curses-forms__adb.htm b/doc/html/ada/terminal_interface-curses-forms__adb.htm index dd3a47ce..8909b3e6 100644 --- a/doc/html/ada/terminal_interface-curses-forms__adb.htm +++ b/doc/html/ada/terminal_interface-curses-forms__adb.htm @@ -81,18 +81,18 @@ procedure Request_Name (Key : Form_Request_Code; Name : out String) is - function Form_Request_Name (Key : C_Int) return chars_ptr; + function Form_Request_Name (Key : C_Int) return chars_ptr; pragma Import (C, Form_Request_Name, "form_request_name"); begin - Fill_String (Form_Request_Name (C_Int (Key)), Name); + Fill_String (Form_Request_Name (C_Int (Key)), Name); end Request_Name; function Request_Name (Key : Form_Request_Code) return String is - function Form_Request_Name (Key : C_Int) return chars_ptr; + function Form_Request_Name (Key : C_Int) return chars_ptr; pragma Import (C, Form_Request_Name, "form_request_name"); begin - return Fill_String (Form_Request_Name (C_Int (Key))); + return Fill_String (Form_Request_Name (C_Int (Key))); end Request_Name; ------------------------------------------------------------------------------ -- | @@ -113,12 +113,12 @@ More_Buffers : Buffer_Number := Buffer_Number'First) return Field is - function Newfield (H, W, T, L, O, M : C_Int) return Field; + function Newfield (H, W, T, L, O, M : C_Int) return Field; pragma Import (C, Newfield, "new_field"); - Fld : constant Field := Newfield (C_Int (Height), C_Int (Width), - C_Int (Top), C_Int (Left), - C_Int (Off_Screen), - C_Int (More_Buffers)); + Fld : constant Field := Newfield (C_Int (Height), C_Int (Width), + C_Int (Top), C_Int (Left), + C_Int (Off_Screen), + C_Int (More_Buffers)); begin if Fld = Null_Field then raise Form_Exception; @@ -130,11 +130,11 @@ -- | procedure Delete (Fld : in out Field) is - function Free_Field (Fld : Field) return Eti_Error; + function Free_Field (Fld : Field) return Eti_Error; pragma Import (C, Free_Field, "free_field"); begin - Eti_Exception (Free_Field (Fld)); + Eti_Exception (Free_Field (Fld)); Fld := Null_Field; end Delete; -- | @@ -145,13 +145,13 @@ Left : Column_Position) return Field is function Dup_Field (Fld : Field; - Top : C_Int; - Left : C_Int) return Field; + Top : C_Int; + Left : C_Int) return Field; pragma Import (C, Dup_Field, "dup_field"); F : constant Field := Dup_Field (Fld, - C_Int (Top), - C_Int (Left)); + C_Int (Top), + C_Int (Left)); begin if F = Null_Field then raise Form_Exception; @@ -166,13 +166,13 @@ Left : Column_Position) return Field is function Lnk_Field (Fld : Field; - Top : C_Int; - Left : C_Int) return Field; + Top : C_Int; + Left : C_Int) return Field; pragma Import (C, Lnk_Field, "link_field"); F : constant Field := Lnk_Field (Fld, - C_Int (Top), - C_Int (Left)); + C_Int (Top), + C_Int (Left)); begin if F = Null_Field then raise Form_Exception; @@ -190,19 +190,19 @@ Just : Field_Justification := None) is function Set_Field_Just (Fld : Field; - Just : C_Int) return Eti_Error; + Just : C_Int) return Eti_Error; pragma Import (C, Set_Field_Just, "set_field_just"); begin - Eti_Exception (Set_Field_Just (Fld, - C_Int (Field_Justification'Pos (Just)))); + Eti_Exception (Set_Field_Just (Fld, + C_Int (Field_Justification'Pos (Just)))); end Set_Justification; -- | -- | -- | function Get_Justification (Fld : Field) return Field_Justification is - function Field_Just (Fld : Field) return C_Int; + function Field_Just (Fld : Field) return C_Int; pragma Import (C, Field_Just, "field_just"); begin return Field_Justification'Val (Field_Just (Fld)); @@ -220,13 +220,13 @@ Str : String) is function Set_Fld_Buffer (Fld : Field; - Bufnum : C_Int; + Bufnum : C_Int; S : char_array) - return Eti_Error; + return Eti_Error; pragma Import (C, Set_Fld_Buffer, "set_field_buffer"); begin - Eti_Exception (Set_Fld_Buffer (Fld, C_Int (Buffer), To_C (Str))); + Eti_Exception (Set_Fld_Buffer (Fld, C_Int (Buffer), To_C (Str))); end Set_Buffer; -- | -- | @@ -237,10 +237,10 @@ Str : out String) is function Field_Buffer (Fld : Field; - B : C_Int) return chars_ptr; + B : C_Int) return chars_ptr; pragma Import (C, Field_Buffer, "field_buffer"); begin - Fill_String (Field_Buffer (Fld, C_Int (Buffer)), Str); + Fill_String (Field_Buffer (Fld, C_Int (Buffer)), Str); end Get_Buffer; function Get_Buffer @@ -248,10 +248,10 @@ Buffer : Buffer_Number := Buffer_Number'First) return String is function Field_Buffer (Fld : Field; - B : C_Int) return chars_ptr; + B : C_Int) return chars_ptr; pragma Import (C, Field_Buffer, "field_buffer"); begin - return Fill_String (Field_Buffer (Fld, C_Int (Buffer))); + return Fill_String (Field_Buffer (Fld, C_Int (Buffer))); end Get_Buffer; -- | -- | @@ -260,11 +260,11 @@ Status : Boolean := True) is function Set_Fld_Status (Fld : Field; - St : C_Int) return Eti_Error; + St : C_Int) return Eti_Error; pragma Import (C, Set_Fld_Status, "set_field_status"); begin - if Set_Fld_Status (Fld, Boolean'Pos (Status)) /= E_Ok then + if Set_Fld_Status (Fld, Boolean'Pos (Status)) /= E_Ok then raise Form_Exception; end if; end Set_Status; @@ -273,12 +273,12 @@ -- | function Changed (Fld : Field) return Boolean is - function Field_Status (Fld : Field) return C_Int; + function Field_Status (Fld : Field) return C_Int; pragma Import (C, Field_Status, "field_status"); - Res : constant C_Int := Field_Status (Fld); + Res : constant C_Int := Field_Status (Fld); begin - if Res = Curses_False then + if Res = Curses_False then return False; else return True; @@ -291,11 +291,11 @@ Max : Natural := 0) is function Set_Field_Max (Fld : Field; - M : C_Int) return Eti_Error; + M : C_Int) return Eti_Error; pragma Import (C, Set_Field_Max, "set_max_field"); begin - Eti_Exception (Set_Field_Max (Fld, C_Int (Max))); + Eti_Exception (Set_Field_Max (Fld, C_Int (Max))); end Set_Maximum_Size; -- | -- |===================================================================== @@ -308,11 +308,11 @@ Options : Field_Option_Set) is function Set_Field_Opts (Fld : Field; - Opt : Field_Option_Set) return Eti_Error; + Opt : Field_Option_Set) return Eti_Error; pragma Import (C, Set_Field_Opts, "set_field_opts"); begin - Eti_Exception (Set_Field_Opts (Fld, Options)); + Eti_Exception (Set_Field_Opts (Fld, Options)); end Set_Options; -- | -- | @@ -322,17 +322,17 @@ On : Boolean := True) is function Field_Opts_On (Fld : Field; - Opt : Field_Option_Set) return Eti_Error; + Opt : Field_Option_Set) return Eti_Error; pragma Import (C, Field_Opts_On, "field_opts_on"); function Field_Opts_Off (Fld : Field; - Opt : Field_Option_Set) return Eti_Error; + Opt : Field_Option_Set) return Eti_Error; pragma Import (C, Field_Opts_Off, "field_opts_off"); begin if On then - Eti_Exception (Field_Opts_On (Fld, Options)); + Eti_Exception (Field_Opts_On (Fld, Options)); else - Eti_Exception (Field_Opts_Off (Fld, Options)); + Eti_Exception (Field_Opts_Off (Fld, Options)); end if; end Switch_Options; -- | @@ -371,11 +371,11 @@ Color : Color_Pair := Color_Pair'First) is function Set_Field_Fore (Fld : Field; - Attr : Attributed_Character) return Eti_Error; + Attr : Attributed_Character) return Eti_Error; pragma Import (C, Set_Field_Fore, "set_field_fore"); begin - Eti_Exception (Set_Field_Fore (Fld, (Ch => Character'First, + Eti_Exception (Set_Field_Fore (Fld, (Ch => Character'First, Color => Color, Attr => Fore))); end Set_Foreground; @@ -410,11 +410,11 @@ Color : Color_Pair := Color_Pair'First) is function Set_Field_Back (Fld : Field; - Attr : Attributed_Character) return Eti_Error; + Attr : Attributed_Character) return Eti_Error; pragma Import (C, Set_Field_Back, "set_field_back"); begin - Eti_Exception (Set_Field_Back (Fld, (Ch => Character'First, + Eti_Exception (Set_Field_Back (Fld, (Ch => Character'First, Color => Color, Attr => Back))); end Set_Background; @@ -447,12 +447,12 @@ Pad : Character := Space) is function Set_Field_Pad (Fld : Field; - Ch : C_Int) return Eti_Error; + Ch : C_Int) return Eti_Error; pragma Import (C, Set_Field_Pad, "set_field_pad"); begin - Eti_Exception (Set_Field_Pad (Fld, - C_Int (Character'Pos (Pad)))); + Eti_Exception (Set_Field_Pad (Fld, + C_Int (Character'Pos (Pad)))); end Set_Pad_Character; -- | -- | @@ -460,7 +460,7 @@ procedure Pad_Character (Fld : Field; Pad : out Character) is - function Field_Pad (Fld : Field) return C_Int; + function Field_Pad (Fld : Field) return C_Int; pragma Import (C, Field_Pad, "field_pad"); begin Pad := Character'Val (Field_Pad (Fld)); @@ -480,15 +480,15 @@ Off_Screen : out Natural; Additional_Buffers : out Buffer_Number) is - type C_Int_Access is access all C_Int; + type C_Int_Access is access all C_Int; function Fld_Info (Fld : Field; L, C, Fr, Fc, Os, Ab : C_Int_Access) - return Eti_Error; + return Eti_Error; pragma Import (C, Fld_Info, "field_info"); - L, C, Fr, Fc, Os, Ab : aliased C_Int; + L, C, Fr, Fc, Os, Ab : aliased C_Int; begin - Eti_Exception (Fld_Info (Fld, + Eti_Exception (Fld_Info (Fld, L'Access, C'Access, Fr'Access, Fc'Access, Os'Access, Ab'Access)); @@ -507,13 +507,13 @@ Columns : out Column_Count; Max : out Natural) is - type C_Int_Access is access all C_Int; - function Dyn_Info (Fld : Field; L, C, M : C_Int_Access) return Eti_Error; + type C_Int_Access is access all C_Int; + function Dyn_Info (Fld : Field; L, C, M : C_Int_Access) return Eti_Error; pragma Import (C, Dyn_Info, "dynamic_field_info"); - L, C, M : aliased C_Int; + L, C, M : aliased C_Int; begin - Eti_Exception (Dyn_Info (Fld, + Eti_Exception (Dyn_Info (Fld, L'Access, C'Access, M'Access)); Lines := Line_Count (L); @@ -531,11 +531,11 @@ Win : Window) is function Set_Form_Win (Frm : Form; - Win : Window) return Eti_Error; + Win : Window) return Eti_Error; pragma Import (C, Set_Form_Win, "set_form_win"); begin - Eti_Exception (Set_Form_Win (Frm, Win)); + Eti_Exception (Set_Form_Win (Frm, Win)); end Set_Window; -- | -- | @@ -556,11 +556,11 @@ Win : Window) is function Set_Form_Sub (Frm : Form; - Win : Window) return Eti_Error; + Win : Window) return Eti_Error; pragma Import (C, Set_Form_Sub, "set_form_sub"); begin - Eti_Exception (Set_Form_Sub (Frm, Win)); + Eti_Exception (Set_Form_Sub (Frm, Win)); end Set_Sub_Window; -- | -- | @@ -581,13 +581,13 @@ Lines : out Line_Count; Columns : out Column_Count) is - type C_Int_Access is access all C_Int; - function M_Scale (Frm : Form; Yp, Xp : C_Int_Access) return Eti_Error; + type C_Int_Access is access all C_Int; + function M_Scale (Frm : Form; Yp, Xp : C_Int_Access) return Eti_Error; pragma Import (C, M_Scale, "scale_form"); - X, Y : aliased C_Int; + X, Y : aliased C_Int; begin - Eti_Exception (M_Scale (Frm, Y'Access, X'Access)); + Eti_Exception (M_Scale (Frm, Y'Access, X'Access)); Lines := Line_Count (Y); Columns := Column_Count (X); end Scale; @@ -602,11 +602,11 @@ Proc : Form_Hook_Function) is function Set_Field_Init (Frm : Form; - Proc : Form_Hook_Function) return Eti_Error; + Proc : Form_Hook_Function) return Eti_Error; pragma Import (C, Set_Field_Init, "set_field_init"); begin - Eti_Exception (Set_Field_Init (Frm, Proc)); + Eti_Exception (Set_Field_Init (Frm, Proc)); end Set_Field_Init_Hook; -- | -- | @@ -615,11 +615,11 @@ Proc : Form_Hook_Function) is function Set_Field_Term (Frm : Form; - Proc : Form_Hook_Function) return Eti_Error; + Proc : Form_Hook_Function) return Eti_Error; pragma Import (C, Set_Field_Term, "set_field_term"); begin - Eti_Exception (Set_Field_Term (Frm, Proc)); + Eti_Exception (Set_Field_Term (Frm, Proc)); end Set_Field_Term_Hook; -- | -- | @@ -628,11 +628,11 @@ Proc : Form_Hook_Function) is function Set_Form_Init (Frm : Form; - Proc : Form_Hook_Function) return Eti_Error; + Proc : Form_Hook_Function) return Eti_Error; pragma Import (C, Set_Form_Init, "set_form_init"); begin - Eti_Exception (Set_Form_Init (Frm, Proc)); + Eti_Exception (Set_Form_Init (Frm, Proc)); end Set_Form_Init_Hook; -- | -- | @@ -641,11 +641,11 @@ Proc : Form_Hook_Function) is function Set_Form_Term (Frm : Form; - Proc : Form_Hook_Function) return Eti_Error; + Proc : Form_Hook_Function) return Eti_Error; pragma Import (C, Set_Form_Term, "set_form_term"); begin - Eti_Exception (Set_Form_Term (Frm, Proc)); + Eti_Exception (Set_Form_Term (Frm, Proc)); end Set_Form_Term_Hook; -- | -- |===================================================================== @@ -658,7 +658,7 @@ Flds : Field_Array_Access) is function Set_Frm_Fields (Frm : Form; - Items : System.Address) return Eti_Error; + Items : System.Address) return Eti_Error; pragma Import (C, Set_Frm_Fields, "set_form_fields"); begin @@ -666,7 +666,7 @@ if Flds.all (Flds'Last) /= Null_Field then raise Form_Exception; else - Eti_Exception (Set_Frm_Fields (Frm, Flds.all (Flds'First)'Address)); + Eti_Exception (Set_Frm_Fields (Frm, Flds.all (Flds'First)'Address)); end if; end Redefine; -- | @@ -685,7 +685,7 @@ if P = null or else Index > Field_Count (Frm) then raise Form_Exception; else - P := P + ptrdiff_t (C_Int (Index) - 1); + P := P + ptrdiff_t (C_Int (Index) - 1); return P.all; end if; end Fields; @@ -694,7 +694,7 @@ -- | function Field_Count (Frm : Form) return Natural is - function Count (Frm : Form) return C_Int; + function Count (Frm : Form) return C_Int; pragma Import (C, Count, "field_count"); begin return Natural (Count (Frm)); @@ -706,11 +706,11 @@ Line : Line_Position; Column : Column_Position) is - function Move (Fld : Field; L, C : C_Int) return Eti_Error; + function Move (Fld : Field; L, C : C_Int) return Eti_Error; pragma Import (C, Move, "move_field"); begin - Eti_Exception (Move (Fld, C_Int (Line), C_Int (Column))); + Eti_Exception (Move (Fld, C_Int (Line), C_Int (Column))); end Move; -- | -- |===================================================================== @@ -742,11 +742,11 @@ -- | procedure Delete (Frm : in out Form) is - function Free (Frm : Form) return Eti_Error; + function Free (Frm : Form) return Eti_Error; pragma Import (C, Free, "free_form"); begin - Eti_Exception (Free (Frm)); + Eti_Exception (Free (Frm)); Frm := Null_Form; end Delete; -- | @@ -760,11 +760,11 @@ Options : Form_Option_Set) is function Set_Form_Opts (Frm : Form; - Opt : Form_Option_Set) return Eti_Error; + Opt : Form_Option_Set) return Eti_Error; pragma Import (C, Set_Form_Opts, "set_form_opts"); begin - Eti_Exception (Set_Form_Opts (Frm, Options)); + Eti_Exception (Set_Form_Opts (Frm, Options)); end Set_Options; -- | -- | @@ -774,17 +774,17 @@ On : Boolean := True) is function Form_Opts_On (Frm : Form; - Opt : Form_Option_Set) return Eti_Error; + Opt : Form_Option_Set) return Eti_Error; pragma Import (C, Form_Opts_On, "form_opts_on"); function Form_Opts_Off (Frm : Form; - Opt : Form_Option_Set) return Eti_Error; + Opt : Form_Option_Set) return Eti_Error; pragma Import (C, Form_Opts_Off, "form_opts_off"); begin if On then - Eti_Exception (Form_Opts_On (Frm, Options)); + Eti_Exception (Form_Opts_On (Frm, Options)); else - Eti_Exception (Form_Opts_Off (Frm, Options)); + Eti_Exception (Form_Opts_Off (Frm, Options)); end if; end Switch_Options; -- | @@ -819,16 +819,16 @@ procedure Post (Frm : Form; Post : Boolean := True) is - function M_Post (Frm : Form) return Eti_Error; + function M_Post (Frm : Form) return Eti_Error; pragma Import (C, M_Post, "post_form"); - function M_Unpost (Frm : Form) return Eti_Error; + function M_Unpost (Frm : Form) return Eti_Error; pragma Import (C, M_Unpost, "unpost_form"); begin if Post then - Eti_Exception (M_Post (Frm)); + Eti_Exception (M_Post (Frm)); else - Eti_Exception (M_Unpost (Frm)); + Eti_Exception (M_Unpost (Frm)); end if; end Post; -- | @@ -840,11 +840,11 @@ -- | procedure Position_Cursor (Frm : Form) is - function Pos_Form_Cursor (Frm : Form) return Eti_Error; + function Pos_Form_Cursor (Frm : Form) return Eti_Error; pragma Import (C, Pos_Form_Cursor, "pos_form_cursor"); begin - Eti_Exception (Pos_Form_Cursor (Frm)); + Eti_Exception (Pos_Form_Cursor (Frm)); end Position_Cursor; -- | -- |===================================================================== @@ -855,12 +855,12 @@ -- | function Data_Ahead (Frm : Form) return Boolean is - function Ahead (Frm : Form) return C_Int; + function Ahead (Frm : Form) return C_Int; pragma Import (C, Ahead, "data_ahead"); - Res : constant C_Int := Ahead (Frm); + Res : constant C_Int := Ahead (Frm); begin - if Res = Curses_False then + if Res = Curses_False then return False; else return True; @@ -871,12 +871,12 @@ -- | function Data_Behind (Frm : Form) return Boolean is - function Behind (Frm : Form) return C_Int; + function Behind (Frm : Form) return C_Int; pragma Import (C, Behind, "data_behind"); - Res : constant C_Int := Behind (Frm); + Res : constant C_Int := Behind (Frm); begin - if Res = Curses_False then + if Res = Curses_False then return False; else return True; @@ -892,20 +892,20 @@ function Driver (Frm : Form; Key : Key_Code) return Driver_Result is - function Frm_Driver (Frm : Form; Key : C_Int) return Eti_Error; + function Frm_Driver (Frm : Form; Key : C_Int) return Eti_Error; pragma Import (C, Frm_Driver, "form_driver"); - R : constant Eti_Error := Frm_Driver (Frm, C_Int (Key)); + R : constant Eti_Error := Frm_Driver (Frm, C_Int (Key)); begin case R is - when E_Unknown_Command => + when E_Unknown_Command => return Unknown_Request; - when E_Invalid_Field => + when E_Invalid_Field => return Invalid_Field; - when E_Request_Denied => + when E_Request_Denied => return Request_Denied; when others => - Eti_Exception (R); + Eti_Exception (R); return Form_Ok; end case; end Driver; @@ -919,11 +919,11 @@ procedure Set_Current (Frm : Form; Fld : Field) is - function Set_Current_Fld (Frm : Form; Fld : Field) return Eti_Error; + function Set_Current_Fld (Frm : Form; Fld : Field) return Eti_Error; pragma Import (C, Set_Current_Fld, "set_current_field"); begin - Eti_Exception (Set_Current_Fld (Frm, Fld)); + Eti_Exception (Set_Current_Fld (Frm, Fld)); end Set_Current; -- | -- | @@ -946,21 +946,21 @@ procedure Set_Page (Frm : Form; Page : Page_Number := Page_Number'First) is - function Set_Frm_Page (Frm : Form; Pg : C_Int) return Eti_Error; + function Set_Frm_Page (Frm : Form; Pg : C_Int) return Eti_Error; pragma Import (C, Set_Frm_Page, "set_form_page"); begin - Eti_Exception (Set_Frm_Page (Frm, C_Int (Page))); + Eti_Exception (Set_Frm_Page (Frm, C_Int (Page))); end Set_Page; -- | -- | -- | function Page (Frm : Form) return Page_Number is - function Get_Page (Frm : Form) return C_Int; + function Get_Page (Frm : Form) return C_Int; pragma Import (C, Get_Page, "form_page"); - P : constant C_Int := Get_Page (Frm); + P : constant C_Int := Get_Page (Frm); begin if P < 0 then raise Form_Exception; @@ -971,12 +971,12 @@ function Get_Index (Fld : Field) return Positive is - function Get_Fieldindex (Fld : Field) return C_Int; + function Get_Fieldindex (Fld : Field) return C_Int; pragma Import (C, Get_Fieldindex, "field_index"); - Res : constant C_Int := Get_Fieldindex (Fld); + Res : constant C_Int := Get_Fieldindex (Fld); begin - if Res = Curses_Err then + if Res = Curses_Err then raise Form_Exception; end if; return Positive (Natural (Res) + Positive'First); @@ -992,23 +992,23 @@ procedure Set_New_Page (Fld : Field; New_Page : Boolean := True) is - function Set_Page (Fld : Field; Flg : C_Int) return Eti_Error; + function Set_Page (Fld : Field; Flg : C_Int) return Eti_Error; pragma Import (C, Set_Page, "set_new_page"); begin - Eti_Exception (Set_Page (Fld, Boolean'Pos (New_Page))); + Eti_Exception (Set_Page (Fld, Boolean'Pos (New_Page))); end Set_New_Page; -- | -- | -- | function Is_New_Page (Fld : Field) return Boolean is - function Is_New (Fld : Field) return C_Int; + function Is_New (Fld : Field) return C_Int; pragma Import (C, Is_New, "new_page"); - Res : constant C_Int := Is_New (Fld); + Res : constant C_Int := Is_New (Fld); begin - if Res = Curses_False then + if Res = Curses_False then return False; else return True;