diff options
Diffstat (limited to 'ncurses-5.3/doc/html/ada')
99 files changed, 16005 insertions, 0 deletions
diff --git a/ncurses-5.3/doc/html/ada/files.htm b/ncurses-5.3/doc/html/ada/files.htm new file mode 100644 index 0000000..682207c --- /dev/null +++ b/ncurses-5.3/doc/html/ada/files.htm @@ -0,0 +1,5 @@ +<HTML><HEAD><TITLE></TITLE></HEAD> +<BODY> +<H2 ALIGN=CENTER>Files</H2> +<A HREF="files/T.htm">[T]</A> +</BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/files/T.htm b/ncurses-5.3/doc/html/ada/files/T.htm new file mode 100644 index 0000000..8fcea4d --- /dev/null +++ b/ncurses-5.3/doc/html/ada/files/T.htm @@ -0,0 +1,77 @@ +<HTML><HEAD><TITLE>T</TITLE></HEAD> +<BODY> +<H2>Files - T</H2> +<A HREF="../files.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses-aux__adb.htm" TARGET="main">terminal_interface-curses-aux.adb</A> +<LI><A HREF="../terminal_interface-curses-aux__ads.htm" TARGET="main">terminal_interface-curses-aux.ads</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-alpha__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-alpha.adb</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-alpha__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-alpha.ads</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-alphanumeric__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-alphanumeric.adb</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-alphanumeric__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-alphanumeric.ads</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-enumeration-ada.adb</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-enumeration-ada.ads</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-enumeration.adb</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-enumeration.ads</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-intfield__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-intfield.adb</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-intfield__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-intfield.ads</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-ipv4_address__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-ipv4_address.adb</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-ipv4_address__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-ipv4_address.ads</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-numeric__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-numeric.adb</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-numeric__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-numeric.ads</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-regexp__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-regexp.adb</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-regexp__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-regexp.ads</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-user-choice.adb</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-user-choice.ads</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-user.adb</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-user.ads</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types.adb</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types.ads</A> +<LI><A HREF="../terminal_interface-curses-forms-field_user_data__adb.htm" TARGET="main">terminal_interface-curses-forms-field_user_data.adb</A> +<LI><A HREF="../terminal_interface-curses-forms-field_user_data__ads.htm" TARGET="main">terminal_interface-curses-forms-field_user_data.ads</A> +<LI><A HREF="../terminal_interface-curses-forms-form_user_data__adb.htm" TARGET="main">terminal_interface-curses-forms-form_user_data.adb</A> +<LI><A HREF="../terminal_interface-curses-forms-form_user_data__ads.htm" TARGET="main">terminal_interface-curses-forms-form_user_data.ads</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm" TARGET="main">terminal_interface-curses-forms.adb</A> +<LI><A HREF="../terminal_interface-curses-forms__ads.htm" TARGET="main">terminal_interface-curses-forms.ads</A> +<LI><A HREF="../terminal_interface-curses-menus-item_user_data__adb.htm" TARGET="main">terminal_interface-curses-menus-item_user_data.adb</A> +<LI><A HREF="../terminal_interface-curses-menus-item_user_data__ads.htm" TARGET="main">terminal_interface-curses-menus-item_user_data.ads</A> +<LI><A HREF="../terminal_interface-curses-menus-menu_user_data__adb.htm" TARGET="main">terminal_interface-curses-menus-menu_user_data.adb</A> +<LI><A HREF="../terminal_interface-curses-menus-menu_user_data__ads.htm" TARGET="main">terminal_interface-curses-menus-menu_user_data.ads</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm" TARGET="main">terminal_interface-curses-menus.adb</A> +<LI><A HREF="../terminal_interface-curses-menus__ads.htm" TARGET="main">terminal_interface-curses-menus.ads</A> +<LI><A HREF="../terminal_interface-curses-mouse__adb.htm" TARGET="main">terminal_interface-curses-mouse.adb</A> +<LI><A HREF="../terminal_interface-curses-mouse__ads.htm" TARGET="main">terminal_interface-curses-mouse.ads</A> +<LI><A HREF="../terminal_interface-curses-panels-user_data__adb.htm" TARGET="main">terminal_interface-curses-panels-user_data.adb</A> +<LI><A HREF="../terminal_interface-curses-panels-user_data__ads.htm" TARGET="main">terminal_interface-curses-panels-user_data.ads</A> +<LI><A HREF="../terminal_interface-curses-panels__adb.htm" TARGET="main">terminal_interface-curses-panels.adb</A> +<LI><A HREF="../terminal_interface-curses-panels__ads.htm" TARGET="main">terminal_interface-curses-panels.ads</A> +<LI><A HREF="../terminal_interface-curses-putwin__adb.htm" TARGET="main">terminal_interface-curses-putwin.adb</A> +<LI><A HREF="../terminal_interface-curses-putwin__ads.htm" TARGET="main">terminal_interface-curses-putwin.ads</A> +<LI><A HREF="../terminal_interface-curses-termcap__adb.htm" TARGET="main">terminal_interface-curses-termcap.adb</A> +<LI><A HREF="../terminal_interface-curses-termcap__ads.htm" TARGET="main">terminal_interface-curses-termcap.ads</A> +<LI><A HREF="../terminal_interface-curses-terminfo__adb.htm" TARGET="main">terminal_interface-curses-terminfo.adb</A> +<LI><A HREF="../terminal_interface-curses-terminfo__ads.htm" TARGET="main">terminal_interface-curses-terminfo.ads</A> +<LI><A HREF="../terminal_interface-curses-text_io-aux__adb.htm" TARGET="main">terminal_interface-curses-text_io-aux.adb</A> +<LI><A HREF="../terminal_interface-curses-text_io-aux__ads.htm" TARGET="main">terminal_interface-curses-text_io-aux.ads</A> +<LI><A HREF="../terminal_interface-curses-text_io-complex_io__adb.htm" TARGET="main">terminal_interface-curses-text_io-complex_io.adb</A> +<LI><A HREF="../terminal_interface-curses-text_io-complex_io__ads.htm" TARGET="main">terminal_interface-curses-text_io-complex_io.ads</A> +<LI><A HREF="../terminal_interface-curses-text_io-decimal_io__adb.htm" TARGET="main">terminal_interface-curses-text_io-decimal_io.adb</A> +<LI><A HREF="../terminal_interface-curses-text_io-decimal_io__ads.htm" TARGET="main">terminal_interface-curses-text_io-decimal_io.ads</A> +<LI><A HREF="../terminal_interface-curses-text_io-enumeration_io__adb.htm" TARGET="main">terminal_interface-curses-text_io-enumeration_io.adb</A> +<LI><A HREF="../terminal_interface-curses-text_io-enumeration_io__ads.htm" TARGET="main">terminal_interface-curses-text_io-enumeration_io.ads</A> +<LI><A HREF="../terminal_interface-curses-text_io-fixed_io__adb.htm" TARGET="main">terminal_interface-curses-text_io-fixed_io.adb</A> +<LI><A HREF="../terminal_interface-curses-text_io-fixed_io__ads.htm" TARGET="main">terminal_interface-curses-text_io-fixed_io.ads</A> +<LI><A HREF="../terminal_interface-curses-text_io-float_io__adb.htm" TARGET="main">terminal_interface-curses-text_io-float_io.adb</A> +<LI><A HREF="../terminal_interface-curses-text_io-float_io__ads.htm" TARGET="main">terminal_interface-curses-text_io-float_io.ads</A> +<LI><A HREF="../terminal_interface-curses-text_io-integer_io__adb.htm" TARGET="main">terminal_interface-curses-text_io-integer_io.adb</A> +<LI><A HREF="../terminal_interface-curses-text_io-integer_io__ads.htm" TARGET="main">terminal_interface-curses-text_io-integer_io.ads</A> +<LI><A HREF="../terminal_interface-curses-text_io-modular_io__adb.htm" TARGET="main">terminal_interface-curses-text_io-modular_io.adb</A> +<LI><A HREF="../terminal_interface-curses-text_io-modular_io__ads.htm" TARGET="main">terminal_interface-curses-text_io-modular_io.ads</A> +<LI><A HREF="../terminal_interface-curses-text_io__adb.htm" TARGET="main">terminal_interface-curses-text_io.adb</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm" TARGET="main">terminal_interface-curses-text_io.ads</A> +<LI><A HREF="../terminal_interface-curses-trace__adb.htm" TARGET="main">terminal_interface-curses-trace.adb</A> +<LI><A HREF="../terminal_interface-curses-trace__ads.htm" TARGET="main">terminal_interface-curses-trace.ads</A> +<LI><A HREF="../terminal_interface-curses__adb.htm" TARGET="main">terminal_interface-curses.adb</A> +<LI><A HREF="../terminal_interface-curses__ads.htm" TARGET="main">terminal_interface-curses.ads</A> +<LI><A HREF="../terminal_interface__ads.htm" TARGET="main">terminal_interface.ads</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs.htm b/ncurses-5.3/doc/html/ada/funcs.htm new file mode 100644 index 0000000..96e0b14 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs.htm @@ -0,0 +1,27 @@ +<HTML><HEAD><TITLE></TITLE></HEAD> +<BODY> +<H2 ALIGN=CENTER>Functions/Procedures</H2> +<A HREF="funcs/ .htm">[ ]</A> +<A HREF="funcs/A.htm">[A]</A> +<A HREF="funcs/B.htm">[B]</A> +<A HREF="funcs/C.htm">[C]</A> +<A HREF="funcs/D.htm">[D]</A> +<A HREF="funcs/E.htm">[E]</A> +<A HREF="funcs/F.htm">[F]</A> +<A HREF="funcs/G.htm">[G]</A> +<A HREF="funcs/H.htm">[H]</A> +<A HREF="funcs/I.htm">[I]</A> +<A HREF="funcs/K.htm">[K]</A> +<A HREF="funcs/L.htm">[L]</A> +<A HREF="funcs/M.htm">[M]</A> +<A HREF="funcs/N.htm">[N]</A> +<A HREF="funcs/O.htm">[O]</A> +<A HREF="funcs/P.htm">[P]</A> +<A HREF="funcs/Q.htm">[Q]</A> +<A HREF="funcs/R.htm">[R]</A> +<A HREF="funcs/S.htm">[S]</A> +<A HREF="funcs/T.htm">[T]</A> +<A HREF="funcs/U.htm">[U]</A> +<A HREF="funcs/V.htm">[V]</A> +<A HREF="funcs/W.htm">[W]</A> +</BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/A.htm b/ncurses-5.3/doc/html/ada/funcs/A.htm new file mode 100644 index 0000000..dd98d80 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/A.htm @@ -0,0 +1,19 @@ +<HTML><HEAD><TITLE>A</TITLE></HEAD> +<BODY> +<H2>Functions - A</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses-putwin__adb.htm#49_12" TARGET="main">ACS</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#959_16" TARGET="main">Ahead</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user__adb.htm#53_16" TARGET="main">Allocate_Arg</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-alpha__ads.htm#42_53" TARGET="main">Alpha</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#42_53" TARGET="main">AlphaNumeric</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#57_12" TARGET="main">ASF</A> +<LI><A HREF="../terminal_interface-curses-text_io-aux__ads.htm#42_51" TARGET="main">Aux - terminal_interface-curses-text_io-aux.ads:42</A> +<LI><A HREF="../terminal_interface-curses-text_io-float_io__adb.htm#47_12" TARGET="main">Aux - terminal_interface-curses-text_io-float_io.adb:47</A> +<LI><A HREF="../terminal_interface-curses-text_io-decimal_io__adb.htm#47_12" TARGET="main">Aux - terminal_interface-curses-text_io-decimal_io.adb:47</A> +<LI><A HREF="../terminal_interface-curses-text_io-enumeration_io__adb.htm#48_12" TARGET="main">Aux - terminal_interface-curses-text_io-enumeration_io.adb:48</A> +<LI><A HREF="../terminal_interface-curses-text_io-fixed_io__adb.htm#47_12" TARGET="main">Aux - terminal_interface-curses-text_io-fixed_io.adb:47</A> +<LI><A HREF="../terminal_interface-curses-text_io-integer_io__adb.htm#47_12" TARGET="main">Aux - terminal_interface-curses-text_io-integer_io.adb:47</A> +<LI><A HREF="../terminal_interface-curses-text_io-modular_io__adb.htm#47_12" TARGET="main">Aux - terminal_interface-curses-text_io-modular_io.adb:47</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/B.htm b/ncurses-5.3/doc/html/ada/funcs/B.htm new file mode 100644 index 0000000..cd263b7 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/B.htm @@ -0,0 +1,10 @@ +<HTML><HEAD><TITLE>B</TITLE></HEAD> +<BODY> +<H2>Functions - B</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses__adb.htm#2080_16" TARGET="main">Baud</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#804_16" TARGET="main">Beeper</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#975_16" TARGET="main">Behind</A> +<LI><A HREF="../terminal_interface-curses-panels__adb.htm#65_16" TARGET="main">Bottompanel</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/C.htm b/ncurses-5.3/doc/html/ada/funcs/C.htm new file mode 100644 index 0000000..e5ab81f --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/C.htm @@ -0,0 +1,36 @@ +<HTML><HEAD><TITLE>C</TITLE></HEAD> +<BODY> +<H2>Functions - C</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses__adb.htm#2240_16" TARGET="main">Canchangecolor</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#824_16" TARGET="main">Cbreak</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm#64_13" TARGET="main">Character_Check</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm#44_58" TARGET="main">Choice</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#69_13" TARGET="main">CInt_2_FOS</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#77_13" TARGET="main">CInt_2_FrmOS</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#72_13" TARGET="main">CInt_2_IOS</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#64_13" TARGET="main">CInt_2_MOS</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1018_16" TARGET="main">Clear_Ok</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#99_13" TARGET="main">Col - terminal_interface-curses-text_io.ads:99</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#100_13" TARGET="main">Col - terminal_interface-curses-text_io.ads:100</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2257_16" TARGET="main">Colorcontent</A> +<LI><A HREF="../terminal_interface-curses-text_io-complex_io__ads.htm#45_17" TARGET="main">Complex_Types</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1319_16" TARGET="main">Copywin</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#774_16" TARGET="main">Count - terminal_interface-curses-forms.adb:774</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#912_16" TARGET="main">Count - terminal_interface-curses-menus.adb:912</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#49_13" TARGET="main">Create - terminal_interface-curses-forms-field_types-enumeration-ada.ads:49</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__ads.htm#65_13" TARGET="main">Create - terminal_interface-curses-forms-field_types-enumeration.ads:65</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1040_16" TARGET="main">Current_Fld</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#300_16" TARGET="main">Curr_Item</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2470_16" TARGET="main">curses_versionC</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2344_16" TARGET="main">Curs_Set</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2456_16" TARGET="main">C_Assume_Default_Colors</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types__ads.htm#150_13" TARGET="main">C_Builtin_Router</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#72_15" TARGET="main">C_E_Array</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#757_16" TARGET="main">C_Fields</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm#81_13" TARGET="main">C_Generic_Choice</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm#82_13" TARGET="main">C_Generic_Type</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#923_16" TARGET="main">C_Mitems</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2444_16" TARGET="main">C_Use_Default_Colors</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/D.htm b/ncurses-5.3/doc/html/ada/funcs/D.htm new file mode 100644 index 0000000..705bd5c --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/D.htm @@ -0,0 +1,22 @@ +<HTML><HEAD><TITLE>D</TITLE></HEAD> +<BODY> +<H2>Functions - D</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses__adb.htm#2028_16" TARGET="main">Defkey</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2276_16" TARGET="main">Def_Prog_Mode</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2278_16" TARGET="main">Def_Shell_Mode</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2060_16" TARGET="main">Delayoutput</A> +<LI><A HREF="../terminal_interface-curses-panels__adb.htm#156_16" TARGET="main">Del_Panel</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#351_16" TARGET="main">Derwin</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#126_16" TARGET="main">Descname - terminal_interface-curses-menus.adb:126</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#270_16" TARGET="main">Descname - terminal_interface-curses-menus.adb:270</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#278_16" TARGET="main">Descname - terminal_interface-curses-menus.adb:278</A> +<LI><A HREF="../terminal_interface-curses-text_io-decimal_io__adb.htm#48_12" TARGET="main">DIO</A> +<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#129_14" TARGET="main">Dispatch_Event</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1111_16" TARGET="main">Do_Update</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#973_16" TARGET="main">Driver</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#374_16" TARGET="main">Dupwin</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#151_16" TARGET="main">Dup_Field</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#559_16" TARGET="main">Dyn_Info</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/E.htm b/ncurses-5.3/doc/html/ada/funcs/E.htm new file mode 100644 index 0000000..b927c7b --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/E.htm @@ -0,0 +1,11 @@ +<HTML><HEAD><TITLE>E</TITLE></HEAD> +<BODY> +<H2>Functions - E</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses__adb.htm#862_16" TARGET="main">Echo</A> +<LI><A HREF="../terminal_interface-curses-text_io-enumeration_io__adb.htm#49_12" TARGET="main">EIO</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#166_16" TARGET="main">Endwin</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__ads.htm#44_53" TARGET="main">Enumeration</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2088_16" TARGET="main">Erasechar</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/F.htm b/ncurses-5.3/doc/html/ada/funcs/F.htm new file mode 100644 index 0000000..21e6172 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/F.htm @@ -0,0 +1,46 @@ +<HTML><HEAD><TITLE>F</TITLE></HEAD> +<BODY> +<H2>Functions - F</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#468_16" TARGET="main">Field_Back - terminal_interface-curses-forms.adb:468</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#478_16" TARGET="main">Field_Back - terminal_interface-curses-forms.adb:478</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#255_16" TARGET="main">Field_Buffer - terminal_interface-curses-forms.adb:255</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#266_16" TARGET="main">Field_Buffer - terminal_interface-curses-forms.adb:266</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm#57_13" TARGET="main">Field_Check</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#424_16" TARGET="main">Field_Fore - terminal_interface-curses-forms.adb:424</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#434_16" TARGET="main">Field_Fore - terminal_interface-curses-forms.adb:434</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#213_16" TARGET="main">Field_Just</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#374_16" TARGET="main">Field_Opts</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#352_16" TARGET="main">Field_Opts_Off</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#349_16" TARGET="main">Field_Opts_On</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#507_16" TARGET="main">Field_Pad</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#293_16" TARGET="main">Field_Status</A> +<LI><A HREF="../terminal_interface-curses-forms-field_user_data__adb.htm#73_16" TARGET="main">Field_Userptr</A> +<LI><A HREF="../terminal_interface-curses-text_io-complex_io__adb.htm#46_12" TARGET="main">FIO - terminal_interface-curses-text_io-complex_io.adb:46</A> +<LI><A HREF="../terminal_interface-curses-text_io-float_io__adb.htm#48_12" TARGET="main">FIO - terminal_interface-curses-text_io-float_io.adb:48</A> +<LI><A HREF="../terminal_interface-curses-text_io-fixed_io__adb.htm#48_12" TARGET="main">FIXIO</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#814_16" TARGET="main">Flash</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#528_16" TARGET="main">Fld_Info</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#66_14" TARGET="main">Flush - terminal_interface-curses-text_io.ads:66</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#67_14" TARGET="main">Flush - terminal_interface-curses-text_io.ads:67</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2070_16" TARGET="main">Flushinp</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#889_16" TARGET="main">Form_Opts</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#867_16" TARGET="main">Form_Opts_Off</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#864_16" TARGET="main">Form_Opts_On</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#84_16" TARGET="main">Form_Request_Name - terminal_interface-curses-forms.adb:84</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#92_16" TARGET="main">Form_Request_Name - terminal_interface-curses-forms.adb:92</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#628_16" TARGET="main">Form_Sub</A> +<LI><A HREF="../terminal_interface-curses-forms-form_user_data__adb.htm#74_16" TARGET="main">Form_Userptr</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#600_16" TARGET="main">Form_Win</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#65_13" TARGET="main">FOS_2_CInt</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#825_16" TARGET="main">Free - terminal_interface-curses-forms.adb:825</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#958_16" TARGET="main">Free - terminal_interface-curses-menus.adb:958</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#123_17" TARGET="main">Freeargs</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#131_16" TARGET="main">Freeitem</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#133_16" TARGET="main">Free_Field</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#121_17" TARGET="main">Free_Type</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#73_13" TARGET="main">FrmOS_2_CInt</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#996_16" TARGET="main">Frm_Driver</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#56_12" TARGET="main">F_Array</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/G.htm b/ncurses-5.3/doc/html/ada/funcs/G.htm new file mode 100644 index 0000000..4b6367b --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/G.htm @@ -0,0 +1,32 @@ +<HTML><HEAD><TITLE>G</TITLE></HEAD> +<BODY> +<H2>Functions - G</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm#91_13" TARGET="main">Generic_Char_Check</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm#84_13" TARGET="main">Generic_Field_Check</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm#83_13" TARGET="main">Generic_Next</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm#90_13" TARGET="main">Generic_Prev</A> +<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#69_16" TARGET="main">Getmouse</A> +<LI><A HREF="../terminal_interface-curses-putwin__adb.htm#66_16" TARGET="main">getwin</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#62_13" TARGET="main">Get_Arg</A> +<LI><A HREF="../terminal_interface-curses-termcap__ads.htm#60_13" TARGET="main">Get_Entry</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1084_16" TARGET="main">Get_Fieldindex</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#59_13" TARGET="main">Get_Fieldtype</A> +<LI><A HREF="../terminal_interface-curses-termcap__ads.htm#64_13" TARGET="main">Get_Flag - terminal_interface-curses-termcap.ads:64</A> +<LI><A HREF="../terminal_interface-curses-terminfo__ads.htm#65_13" TARGET="main">Get_Flag - terminal_interface-curses-terminfo.ads:65</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#93_13" TARGET="main">Get_Flag - terminal_interface-curses.adb:93</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#340_16" TARGET="main">Get_Itemindex</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#532_16" TARGET="main">Get_Menu_Mark - terminal_interface-curses-menus.adb:532</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#540_16" TARGET="main">Get_Menu_Mark - terminal_interface-curses-menus.adb:540</A> +<LI><A HREF="../terminal_interface-curses-termcap__ads.htm#68_14" TARGET="main">Get_Number - terminal_interface-curses-termcap.ads:68</A> +<LI><A HREF="../terminal_interface-curses-terminfo__ads.htm#69_13" TARGET="main">Get_Number - terminal_interface-curses-terminfo.ads:69</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1070_16" TARGET="main">Get_Page</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#758_16" TARGET="main">Get_Pattern</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#713_16" TARGET="main">Get_Spacing</A> +<LI><A HREF="../terminal_interface-curses-termcap__ads.htm#74_14" TARGET="main">Get_String - terminal_interface-curses-termcap.ads:74</A> +<LI><A HREF="../terminal_interface-curses-termcap__ads.htm#77_13" TARGET="main">Get_String - terminal_interface-curses-termcap.ads:77</A> +<LI><A HREF="../terminal_interface-curses-terminfo__ads.htm#58_14" TARGET="main">Get_String - terminal_interface-curses-terminfo.ads:58</A> +<LI><A HREF="../terminal_interface-curses-putwin__ads.htm#49_13" TARGET="main">Get_Window - terminal_interface-curses-putwin.ads:49</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#63_13" TARGET="main">Get_Window - terminal_interface-curses-text_io.ads:63</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/H.htm b/ncurses-5.3/doc/html/ada/funcs/H.htm new file mode 100644 index 0000000..8dd6ecf --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/H.htm @@ -0,0 +1,13 @@ +<HTML><HEAD><TITLE>H</TITLE></HEAD> +<BODY> +<H2>Functions - H</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses__adb.htm#910_16" TARGET="main">Halfdelay</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2211_16" TARGET="main">Hascolors</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#600_16" TARGET="main">Haskey</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2104_16" TARGET="main">Has_Ic</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2116_16" TARGET="main">Has_Il</A> +<LI><A HREF="../terminal_interface-curses-terminfo__ads.htm#61_13" TARGET="main">Has_String</A> +<LI><A HREF="../terminal_interface-curses-panels__adb.htm#95_16" TARGET="main">Hidepanel</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/I.htm b/ncurses-5.3/doc/html/ada/funcs/I.htm new file mode 100644 index 0000000..1ed76f9 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/I.htm @@ -0,0 +1,33 @@ +<HTML><HEAD><TITLE>I</TITLE></HEAD> +<BODY> +<H2>Functions - I</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses-putwin__adb.htm#48_12" TARGET="main">ICS</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1042_16" TARGET="main">IDC_Ok</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1030_16" TARGET="main">IDL_Ok</A> +<LI><A HREF="../terminal_interface-curses-text_io-integer_io__adb.htm#48_12" TARGET="main">IIO</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1066_16" TARGET="main">Immedok</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2226_16" TARGET="main">Initcolor</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2172_16" TARGET="main">Initpair</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#153_16" TARGET="main">Initscr</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-intfield__ads.htm#42_53" TARGET="main">IntField</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#922_16" TARGET="main">Intrflush</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#68_13" TARGET="main">IOS_2_CInt</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#42_53" TARGET="main">IPV4_Address</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#176_16" TARGET="main">Isendwin</A> +<LI><A HREF="../terminal_interface-curses-terminfo__adb.htm#51_13" TARGET="main">Is_MinusOne_Pointer</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1119_16" TARGET="main">Is_New</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#128_16" TARGET="main">Itemname - terminal_interface-curses-menus.adb:128</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#253_16" TARGET="main">Itemname - terminal_interface-curses-menus.adb:253</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#261_16" TARGET="main">Itemname - terminal_interface-curses-menus.adb:261</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#860_16" TARGET="main">Item_Init</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#234_16" TARGET="main">Item_Opts</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#214_16" TARGET="main">Item_Opts_Off</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#211_16" TARGET="main">Item_Opts_On</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#868_16" TARGET="main">Item_Term</A> +<LI><A HREF="../terminal_interface-curses-menus-item_user_data__adb.htm#65_16" TARGET="main">Item_Userptr</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#168_16" TARGET="main">Item_Val</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#181_16" TARGET="main">Item_Vis</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#54_12" TARGET="main">I_Array</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/K.htm b/ncurses-5.3/doc/html/ada/funcs/K.htm new file mode 100644 index 0000000..0e8e47f --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/K.htm @@ -0,0 +1,10 @@ +<HTML><HEAD><TITLE>K</TITLE></HEAD> +<BODY> +<H2>Functions - K</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses__adb.htm#117_16" TARGET="main">Keyname</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2015_16" TARGET="main">Keyok</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#893_16" TARGET="main">Keypad</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2096_16" TARGET="main">Killchar</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/L.htm b/ncurses-5.3/doc/html/ada/funcs/L.htm new file mode 100644 index 0000000..4bf37da --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/L.htm @@ -0,0 +1,14 @@ +<HTML><HEAD><TITLE>L</TITLE></HEAD> +<BODY> +<H2>Functions - L</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses__adb.htm#1054_16" TARGET="main">Leave_Ok</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#102_13" TARGET="main">Line - terminal_interface-curses-text_io.ads:102</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#103_13" TARGET="main">Line - terminal_interface-curses-text_io.ads:103</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#78_13" TARGET="main">Line_Length - terminal_interface-curses-text_io.ads:78</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#79_13" TARGET="main">Line_Length - terminal_interface-curses-text_io.ads:79</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#172_16" TARGET="main">Lnk_Field</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2138_16" TARGET="main">Longname - terminal_interface-curses.adb:2138</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2146_16" TARGET="main">Longname - terminal_interface-curses.adb:2146</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/M.htm b/ncurses-5.3/doc/html/ada/funcs/M.htm new file mode 100644 index 0000000..dda9154 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/M.htm @@ -0,0 +1,44 @@ +<HTML><HEAD><TITLE>M</TITLE></HEAD> +<BODY> +<H2>Functions - M</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__ads.htm#74_13" TARGET="main">Make_Enumeration_Type</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#608_16" TARGET="main">Menu_Back - terminal_interface-curses-menus.adb:608</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#618_16" TARGET="main">Menu_Back - terminal_interface-curses-menus.adb:618</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#787_16" TARGET="main">Menu_Fmt</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#569_16" TARGET="main">Menu_Fore - terminal_interface-curses-menus.adb:569</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#579_16" TARGET="main">Menu_Fore - terminal_interface-curses-menus.adb:579</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#647_16" TARGET="main">Menu_Grey - terminal_interface-curses-menus.adb:647</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#657_16" TARGET="main">Menu_Grey - terminal_interface-curses-menus.adb:657</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#876_16" TARGET="main">Menu_Init</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#414_16" TARGET="main">Menu_Opts</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#394_16" TARGET="main">Menu_Opts_Off</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#391_16" TARGET="main">Menu_Opts_On</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#682_16" TARGET="main">Menu_Pad</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#470_16" TARGET="main">Menu_Sub</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#884_16" TARGET="main">Menu_Term</A> +<LI><A HREF="../terminal_interface-curses-menus-menu_user_data__adb.htm#64_16" TARGET="main">Menu_Userptr</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#446_16" TARGET="main">Menu_Win</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#882_16" TARGET="main">Meta</A> +<LI><A HREF="../terminal_interface-curses-text_io-modular_io__adb.htm#48_12" TARGET="main">MIO</A> +<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#113_16" TARGET="main">MMask</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#60_13" TARGET="main">MOS_2_CInt</A> +<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#209_16" TARGET="main">Mouseinterval</A> +<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#55_16" TARGET="main">Mouse_Avail</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#786_16" TARGET="main">Move - terminal_interface-curses-forms.adb:786</A> +<LI><A HREF="../terminal_interface-curses-panels__adb.htm#132_16" TARGET="main">Move - terminal_interface-curses-panels.adb:132</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#403_16" TARGET="main">Mvderwin</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#229_16" TARGET="main">mvwaddch</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1609_16" TARGET="main">Mvwdelch</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#389_16" TARGET="main">Mvwin</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1633_16" TARGET="main">Mvwinch</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1658_16" TARGET="main">Mvwinsch</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1697_16" TARGET="main">Mvwinsnstr</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#916_16" TARGET="main">M_Post - terminal_interface-curses-forms.adb:916</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#354_16" TARGET="main">M_Post - terminal_interface-curses-menus.adb:354</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#643_16" TARGET="main">M_Scale - terminal_interface-curses-forms.adb:643</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#483_16" TARGET="main">M_Scale - terminal_interface-curses-menus.adb:483</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#918_16" TARGET="main">M_Unpost - terminal_interface-curses-forms.adb:918</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#356_16" TARGET="main">M_Unpost - terminal_interface-curses-menus.adb:356</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/N.htm b/ncurses-5.3/doc/html/ada/funcs/N.htm new file mode 100644 index 0000000..ca30363 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/N.htm @@ -0,0 +1,28 @@ +<HTML><HEAD><TITLE>N</TITLE></HEAD> +<BODY> +<H2>Functions - N</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses__adb.htm#2357_16" TARGET="main">Napms</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#116_16" TARGET="main">Newfield</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#804_16" TARGET="main">NewForm</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#98_16" TARGET="main">Newitem</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#939_16" TARGET="main">Newmenu</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1456_16" TARGET="main">Newpad</A> +<LI><A HREF="../terminal_interface-curses-panels__adb.htm#51_16" TARGET="main">Newpanel</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#287_16" TARGET="main">Newwin</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#87_14" TARGET="main">New_Line - terminal_interface-curses-text_io.ads:87</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#88_14" TARGET="main">New_Line - terminal_interface-curses-text_io.ads:88</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#90_14" TARGET="main">New_Page - terminal_interface-curses-text_io.ads:90</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#91_14" TARGET="main">New_Page - terminal_interface-curses-text_io.ads:91</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm#61_13" TARGET="main">Next</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#997_16" TARGET="main">NL</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#826_16" TARGET="main">NoCbreak</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#950_16" TARGET="main">Nodelay</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#864_16" TARGET="main">NoEcho</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#999_16" TARGET="main">NoNL</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#845_16" TARGET="main">NoRaw</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#985_16" TARGET="main">Notimeout</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#936_17" TARGET="main">No_Qiflush</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-numeric__ads.htm#42_53" TARGET="main">Numeric</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/O.htm b/ncurses-5.3/doc/html/ada/funcs/O.htm new file mode 100644 index 0000000..ec2e133 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/O.htm @@ -0,0 +1,9 @@ +<HTML><HEAD><TITLE>O</TITLE></HEAD> +<BODY> +<H2>Functions - O</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses-text_io-aux__adb.htm#59_17" TARGET="main">Output</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1360_16" TARGET="main">Overlay</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1348_16" TARGET="main">Overwrite</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/P.htm b/ncurses-5.3/doc/html/ada/funcs/P.htm new file mode 100644 index 0000000..c0f4120 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/P.htm @@ -0,0 +1,44 @@ +<HTML><HEAD><TITLE>P</TITLE></HEAD> +<BODY> +<H2>Functions - P</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#81_13" TARGET="main">Page_Length - terminal_interface-curses-text_io.ads:81</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#82_13" TARGET="main">Page_Length - terminal_interface-curses-text_io.ads:82</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2194_16" TARGET="main">Paircontent</A> +<LI><A HREF="../terminal_interface-curses-panels__adb.htm#144_16" TARGET="main">Panel_Hidden</A> +<LI><A HREF="../terminal_interface-curses-panels-user_data__adb.htm#66_16" TARGET="main">Panel_Userptr</A> +<LI><A HREF="../terminal_interface-curses-panels__adb.htm#105_16" TARGET="main">Panel_Win</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1560_16" TARGET="main">Pechochar</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1535_16" TARGET="main">Pnoutrefresh</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#941_16" TARGET="main">Pos_Form_Cursor</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#499_16" TARGET="main">Pos_Menu_Cursor</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1505_16" TARGET="main">Prefresh</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm#68_13" TARGET="main">Previous</A> +<LI><A HREF="../terminal_interface-curses-text_io-complex_io__ads.htm#55_14" TARGET="main">Put - terminal_interface-curses-text_io-complex_io.ads:55</A> +<LI><A HREF="../terminal_interface-curses-text_io-complex_io__ads.htm#62_14" TARGET="main">Put - terminal_interface-curses-text_io-complex_io.ads:62</A> +<LI><A HREF="../terminal_interface-curses-text_io-decimal_io__ads.htm#51_14" TARGET="main">Put - terminal_interface-curses-text_io-decimal_io.ads:51</A> +<LI><A HREF="../terminal_interface-curses-text_io-decimal_io__ads.htm#58_14" TARGET="main">Put - terminal_interface-curses-text_io-decimal_io.ads:58</A> +<LI><A HREF="../terminal_interface-curses-text_io-enumeration_io__ads.htm#50_14" TARGET="main">Put - terminal_interface-curses-text_io-enumeration_io.ads:50</A> +<LI><A HREF="../terminal_interface-curses-text_io-enumeration_io__ads.htm#56_14" TARGET="main">Put - terminal_interface-curses-text_io-enumeration_io.ads:56</A> +<LI><A HREF="../terminal_interface-curses-text_io-fixed_io__ads.htm#51_14" TARGET="main">Put - terminal_interface-curses-text_io-fixed_io.ads:51</A> +<LI><A HREF="../terminal_interface-curses-text_io-fixed_io__ads.htm#58_14" TARGET="main">Put - terminal_interface-curses-text_io-fixed_io.ads:58</A> +<LI><A HREF="../terminal_interface-curses-text_io-float_io__ads.htm#51_14" TARGET="main">Put - terminal_interface-curses-text_io-float_io.ads:51</A> +<LI><A HREF="../terminal_interface-curses-text_io-float_io__ads.htm#58_14" TARGET="main">Put - terminal_interface-curses-text_io-float_io.ads:58</A> +<LI><A HREF="../terminal_interface-curses-text_io-integer_io__ads.htm#50_14" TARGET="main">Put - terminal_interface-curses-text_io-integer_io.ads:50</A> +<LI><A HREF="../terminal_interface-curses-text_io-integer_io__ads.htm#56_14" TARGET="main">Put - terminal_interface-curses-text_io-integer_io.ads:56</A> +<LI><A HREF="../terminal_interface-curses-text_io-modular_io__ads.htm#50_14" TARGET="main">Put - terminal_interface-curses-text_io-modular_io.ads:50</A> +<LI><A HREF="../terminal_interface-curses-text_io-modular_io__ads.htm#56_14" TARGET="main">Put - terminal_interface-curses-text_io-modular_io.ads:56</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#109_14" TARGET="main">Put - terminal_interface-curses-text_io.ads:109</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#110_14" TARGET="main">Put - terminal_interface-curses-text_io.ads:110</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#116_14" TARGET="main">Put - terminal_interface-curses-text_io.ads:116</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#117_14" TARGET="main">Put - terminal_interface-curses-text_io.ads:117</A> +<LI><A HREF="../terminal_interface-curses-terminfo__adb.htm#144_16" TARGET="main">putp</A> +<LI><A HREF="../terminal_interface-curses-putwin__ads.htm#44_35" TARGET="main">PutWin</A> +<LI><A HREF="../terminal_interface-curses-putwin__adb.htm#54_16" TARGET="main">putwin</A> +<LI><A HREF="../terminal_interface-curses-text_io-aux__ads.htm#48_14" TARGET="main">Put_Buf</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#119_14" TARGET="main">Put_Line - terminal_interface-curses-text_io.ads:119</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#123_14" TARGET="main">Put_Line - terminal_interface-curses-text_io.ads:123</A> +<LI><A HREF="../terminal_interface-curses-terminfo__ads.htm#77_14" TARGET="main">Put_String</A> +<LI><A HREF="../terminal_interface-curses-putwin__ads.htm#46_14" TARGET="main">Put_Window</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/Q.htm b/ncurses-5.3/doc/html/ada/funcs/Q.htm new file mode 100644 index 0000000..ae7d42c --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/Q.htm @@ -0,0 +1,7 @@ +<HTML><HEAD><TITLE>Q</TITLE></HEAD> +<BODY> +<H2>Functions - Q</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses__adb.htm#934_17" TARGET="main">Qiflush</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/R.htm b/ncurses-5.3/doc/html/ada/funcs/R.htm new file mode 100644 index 0000000..fd06682 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/R.htm @@ -0,0 +1,20 @@ +<HTML><HEAD><TITLE>R</TITLE></HEAD> +<BODY> +<H2>Functions - R</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses__adb.htm#843_16" TARGET="main">Raw</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1142_16" TARGET="main">Redrawwin</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-regexp__ads.htm#42_53" TARGET="main">RegExp</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__ads.htm#78_14" TARGET="main">Release - terminal_interface-curses-forms-field_types-enumeration.ads:78</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1134_17" TARGET="main">Release - terminal_interface-curses-forms.adb:1134</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#995_17" TARGET="main">Release - terminal_interface-curses-menus.adb:995</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__adb.htm#53_17" TARGET="main">Release_String</A> +<LI><A HREF="../terminal_interface-curses-panels__adb.htm#119_16" TARGET="main">Replace_Pan</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#80_16" TARGET="main">Request_Name - terminal_interface-curses-menus.adb:80</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#88_16" TARGET="main">Request_Name - terminal_interface-curses-menus.adb:88</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2322_16" TARGET="main">Resetty</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2294_16" TARGET="main">Reset_Prog_Mode</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2296_16" TARGET="main">Reset_Shell_Mode</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2333_16" TARGET="main">Ripoffline</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/S.htm b/ncurses-5.3/doc/html/ada/funcs/S.htm new file mode 100644 index 0000000..b9850c9 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/S.htm @@ -0,0 +1,97 @@ +<HTML><HEAD><TITLE>S</TITLE></HEAD> +<BODY> +<H2>Functions - S</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses__adb.htm#2312_16" TARGET="main">Savetty</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1078_16" TARGET="main">Scrollok</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2494_16" TARGET="main">scr_dump</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2520_16" TARGET="main">scr_init</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2507_16" TARGET="main">scr_restore</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2533_16" TARGET="main">scr_set</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#93_14" TARGET="main">Set_Col - terminal_interface-curses-text_io.ads:93</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#94_14" TARGET="main">Set_Col - terminal_interface-curses-text_io.ads:94</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1026_16" TARGET="main">Set_Current_Fld</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#287_16" TARGET="main">Set_Curr_Item</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#448_16" TARGET="main">Set_Field_Back</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#404_16" TARGET="main">Set_Field_Fore</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#665_16" TARGET="main">Set_Field_Init</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#196_16" TARGET="main">Set_Field_Just</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#310_16" TARGET="main">Set_Field_Max</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#330_16" TARGET="main">Set_Field_Opts</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#490_16" TARGET="main">Set_Field_Pad</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#681_16" TARGET="main">Set_Field_Term</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-alpha__ads.htm#50_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-alpha.ads:50</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#51_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-alphanumeric.ads:51</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__ads.htm#85_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-enumeration.ads:85</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-intfield__ads.htm#52_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-intfield.ads:52</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#48_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-ipv4_address.ads:48</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-numeric__ads.htm#52_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-numeric.ads:52</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-regexp__ads.htm#52_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-regexp.ads:52</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm#71_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-user.ads:71</A> +<LI><A HREF="../terminal_interface-curses-forms-field_user_data__adb.htm#58_16" TARGET="main">Set_Field_Userptr</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#231_16" TARGET="main">Set_Fld_Buffer</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#278_16" TARGET="main">Set_Fld_Status</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-alpha__adb.htm#55_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-alpha.adb:55</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#55_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-alphanumeric.adb:55</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__adb.htm#98_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-enumeration.adb:98</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-intfield__adb.htm#55_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-intfield.adb:55</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#55_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-ipv4_address.adb:55</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-numeric__adb.htm#57_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-numeric.adb:57</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user__adb.htm#56_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-user.adb:56</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#152_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types.adb:152</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#697_16" TARGET="main">Set_Form_Init</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#845_16" TARGET="main">Set_Form_Opts</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#613_16" TARGET="main">Set_Form_Sub</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#713_16" TARGET="main">Set_Form_Term</A> +<LI><A HREF="../terminal_interface-curses-forms-form_user_data__adb.htm#59_16" TARGET="main">Set_Form_Userptr</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#585_16" TARGET="main">Set_Form_Win</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#733_16" TARGET="main">Set_Frm_Fields</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1056_16" TARGET="main">Set_Frm_Page</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-regexp__adb.htm#55_16" TARGET="main">Set_Ftyp</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#893_16" TARGET="main">Set_Items</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#805_16" TARGET="main">Set_Item_Init</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#194_16" TARGET="main">Set_Item_Opts</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#819_16" TARGET="main">Set_Item_Term</A> +<LI><A HREF="../terminal_interface-curses-menus-item_user_data__adb.htm#52_16" TARGET="main">Set_Item_Userptr</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#155_16" TARGET="main">Set_Item_Val</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#96_14" TARGET="main">Set_Line - terminal_interface-curses-text_io.ads:96</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#97_14" TARGET="main">Set_Line - terminal_interface-curses-text_io.ads:97</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#514_16" TARGET="main">Set_Mark</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#591_16" TARGET="main">Set_Menu_Back</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#768_16" TARGET="main">Set_Menu_Fmt</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#552_16" TARGET="main">Set_Menu_Fore</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#629_16" TARGET="main">Set_Menu_Grey</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#833_16" TARGET="main">Set_Menu_Init</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#374_16" TARGET="main">Set_Menu_Opts</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#667_16" TARGET="main">Set_Menu_Pad</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#457_16" TARGET="main">Set_Menu_Sub</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#847_16" TARGET="main">Set_Menu_Term</A> +<LI><A HREF="../terminal_interface-curses-menus-menu_user_data__adb.htm#51_16" TARGET="main">Set_Menu_Userptr</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#433_16" TARGET="main">Set_Menu_Win</A> +<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1105_16" TARGET="main">Set_Page</A> +<LI><A HREF="../terminal_interface-curses-panels-user_data__adb.htm#55_16" TARGET="main">Set_Panel_Userptr</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#736_16" TARGET="main">Set_Pattern</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#693_16" TARGET="main">Set_Spacing</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#314_16" TARGET="main">Set_Toprow</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#60_14" TARGET="main">Set_Window</A> +<LI><A HREF="../terminal_interface-curses-panels__adb.htm#85_16" TARGET="main">Showpanel</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1983_16" TARGET="main">Slk_Attr - terminal_interface-curses.adb:1983</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1993_16" TARGET="main">Slk_Attr - terminal_interface-curses.adb:1993</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1947_16" TARGET="main">Slk_Attroff</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1945_16" TARGET="main">Slk_Attron</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1969_16" TARGET="main">Slk_Attrset</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1913_16" TARGET="main">Slk_Clear</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2003_16" TARGET="main">Slk_Color</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1847_16" TARGET="main">Slk_Init</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1897_16" TARGET="main">Slk_Label - terminal_interface-curses.adb:1897</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1905_16" TARGET="main">Slk_Label - terminal_interface-curses.adb:1905</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1886_16" TARGET="main">Slk_Noutrefresh</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1876_16" TARGET="main">Slk_Refresh</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1923_16" TARGET="main">Slk_Restore</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1859_16" TARGET="main">Slk_Set</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1933_16" TARGET="main">Slk_Touch</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1475_16" TARGET="main">Subpad</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#323_16" TARGET="main">Subwin</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#416_16" TARGET="main">Syncok</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/T.htm b/ncurses-5.3/doc/html/ada/funcs/T.htm new file mode 100644 index 0000000..a02ce1a --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/T.htm @@ -0,0 +1,34 @@ +<HTML><HEAD><TITLE>T</TITLE></HEAD> +<BODY> +<H2>Functions - T</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses__adb.htm#2128_16" TARGET="main">Termattrs</A> +<LI><A HREF="../terminal_interface-curses-termcap__ads.htm#43_35" TARGET="main">Termcap</A> +<LI><A HREF="../terminal_interface__ads.htm#42_9" TARGET="main">Terminal_Interface</A> +<LI><A HREF="../terminal_interface-curses-terminfo__ads.htm#45_35" TARGET="main">Terminfo</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2154_16" TARGET="main">Termname - terminal_interface-curses.adb:2154</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2162_16" TARGET="main">Termname - terminal_interface-curses.adb:2162</A> +<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#45_35" TARGET="main">Text_IO</A> +<LI><A HREF="../terminal_interface-curses-termcap__adb.htm#51_16" TARGET="main">tgetent</A> +<LI><A HREF="../terminal_interface-curses-termcap__adb.htm#71_16" TARGET="main">tgetflag</A> +<LI><A HREF="../terminal_interface-curses-termcap__adb.htm#89_16" TARGET="main">tgetnum</A> +<LI><A HREF="../terminal_interface-curses-termcap__adb.htm#108_16" TARGET="main">tgetstr - terminal_interface-curses-termcap.adb:108</A> +<LI><A HREF="../terminal_interface-curses-termcap__adb.htm#129_16" TARGET="main">tgetstr - terminal_interface-curses-termcap.adb:129</A> +<LI><A HREF="../terminal_interface-curses-termcap__ads.htm#54_13" TARGET="main">TGoto</A> +<LI><A HREF="../terminal_interface-curses-termcap__adb.htm#151_16" TARGET="main">tgoto</A> +<LI><A HREF="../terminal_interface-curses-terminfo__adb.htm#70_16" TARGET="main">tigetflag</A> +<LI><A HREF="../terminal_interface-curses-terminfo__adb.htm#88_16" TARGET="main">tigetstr - terminal_interface-curses-terminfo.adb:88</A> +<LI><A HREF="../terminal_interface-curses-terminfo__adb.htm#109_16" TARGET="main">tigetstr - terminal_interface-curses-terminfo.adb:109</A> +<LI><A HREF="../terminal_interface-curses-terminfo__adb.htm#128_16" TARGET="main">tigetstr - terminal_interface-curses-terminfo.adb:128</A> +<LI><A HREF="../terminal_interface-curses-panels__adb.htm#75_16" TARGET="main">Toppanel</A> +<LI><A HREF="../terminal_interface-curses-menus__adb.htm#327_16" TARGET="main">Toprow</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#107_16" TARGET="main">To_Access</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__adb.htm#50_13" TARGET="main">To_Argument_Access - terminal_interface-curses-forms-field_types-user-choice.adb:50</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user__adb.htm#81_13" TARGET="main">To_Argument_Access - terminal_interface-curses-forms-field_types-user.adb:81</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#56_13" TARGET="main">To_Argument_Access - terminal_interface-curses-forms-field_types.adb:56</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#76_16" TARGET="main">To_Pointer</A> +<LI><A HREF="../terminal_interface-curses-terminfo__adb.htm#56_16" TARGET="main">To_Weird</A> +<LI><A HREF="../terminal_interface-curses-terminfo__adb.htm#141_16" TARGET="main">tputs</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2421_16" TARGET="main">Transform</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/U.htm b/ncurses-5.3/doc/html/ada/funcs/U.htm new file mode 100644 index 0000000..1c66bf8 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/U.htm @@ -0,0 +1,12 @@ +<HTML><HEAD><TITLE>U</TITLE></HEAD> +<BODY> +<H2>Functions - U</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses__adb.htm#2044_16" TARGET="main">Unctrl - terminal_interface-curses.adb:2044</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2052_16" TARGET="main">Unctrl - terminal_interface-curses.adb:2052</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#590_16" TARGET="main">Ungetch</A> +<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#184_16" TARGET="main">Ungetmouse</A> +<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm#44_53" TARGET="main">User</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2479_16" TARGET="main">use_extended_namesC</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/V.htm b/ncurses-5.3/doc/html/ada/funcs/V.htm new file mode 100644 index 0000000..f30d751 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/V.htm @@ -0,0 +1,7 @@ +<HTML><HEAD><TITLE>V</TITLE></HEAD> +<BODY> +<H2>Functions - V</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#54_13" TARGET="main">Value</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/funcs/W.htm b/ncurses-5.3/doc/html/ada/funcs/W.htm new file mode 100644 index 0000000..01a72e1 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/funcs/W.htm @@ -0,0 +1,54 @@ +<HTML><HEAD><TITLE>W</TITLE></HEAD> +<BODY> +<H2>Functions - W</H2> +<A HREF="../funcs.htm" TARGET="_self">[index]</A> +<UL COMPACT TYPE=DISC> +<LI><A HREF="../terminal_interface-curses__adb.htm#204_16" TARGET="main">Waddch</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#460_16" TARGET="main">Waddchnstr</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#429_16" TARGET="main">Waddnstr</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#708_16" TARGET="main">Wattrget - terminal_interface-curses.adb:708</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#731_16" TARGET="main">Wattrget - terminal_interface-curses.adb:731</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#667_16" TARGET="main">Wattroff</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#664_16" TARGET="main">Wattron</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#692_16" TARGET="main">Wattrset</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1211_17" TARGET="main">WBackground</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#501_16" TARGET="main">Wborder</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1221_16" TARGET="main">WChangeBkgd</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#772_16" TARGET="main">Wchgat</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1179_16" TARGET="main">Wclear</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1189_16" TARGET="main">Wclearbot</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1199_16" TARGET="main">Wcleareol</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1596_16" TARGET="main">Wdelch</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#307_16" TARGET="main">Wdelwin</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#261_16" TARGET="main">Wechochar</A> +<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#195_16" TARGET="main">Wenclose</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1169_16" TARGET="main">Werase</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1232_16" TARGET="main">Wgetbkgd</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#576_16" TARGET="main">Wgetch</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1807_16" TARGET="main">Wgetnstr</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#543_16" TARGET="main">Whline</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1622_16" TARGET="main">Winch</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1760_16" TARGET="main">Winchnstr</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1718_16" TARGET="main">Winnstr</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1644_16" TARGET="main">Winsch</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1373_16" TARGET="main">Winsdelln</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1676_16" TARGET="main">Winsnstr</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1285_16" TARGET="main">WLineTouched</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#190_16" TARGET="main">Wmove</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1132_16" TARGET="main">Wnoutrefresh</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1155_16" TARGET="main">Wredrawln</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1121_16" TARGET="main">Wrefresh</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#2547_16" TARGET="main">wresize</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1584_16" TARGET="main">Wscrl</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1098_16" TARGET="main">Wsetscrreg</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#754_16" TARGET="main">Wset_Color</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#644_16" TARGET="main">wstandend</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#642_16" TARGET="main">wstandout</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#962_16" TARGET="main">Wtimeout</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1243_16" TARGET="main">Wtouchln</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#560_16" TARGET="main">Wvline</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#1298_16" TARGET="main">WWinTouched</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#91_13" TARGET="main">W_Get_Byte</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#89_13" TARGET="main">W_Get_Int</A> +<LI><A HREF="../terminal_interface-curses__adb.htm#90_13" TARGET="main">W_Get_Short</A> +</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/index.htm b/ncurses-5.3/doc/html/ada/index.htm new file mode 100644 index 0000000..79c9f4a --- /dev/null +++ b/ncurses-5.3/doc/html/ada/index.htm @@ -0,0 +1,41 @@ +<HTML> +<HEAD><TITLE>Source Browser</TITLE></HEAD> +<FRAMESET COLS='250,*'> +<NOFRAME> +<H2 ALIGN=CENTER>Files</H2> +<A HREF="files/T.htm">[T]</A> +</UL> +<HR> +<H2 ALIGN=CENTER>Functions/Procedures</H2> +<A HREF="funcs/ .htm">[ ]</A> +<A HREF="funcs/A.htm">[A]</A> +<A HREF="funcs/B.htm">[B]</A> +<A HREF="funcs/C.htm">[C]</A> +<A HREF="funcs/D.htm">[D]</A> +<A HREF="funcs/E.htm">[E]</A> +<A HREF="funcs/F.htm">[F]</A> +<A HREF="funcs/G.htm">[G]</A> +<A HREF="funcs/H.htm">[H]</A> +<A HREF="funcs/I.htm">[I]</A> +<A HREF="funcs/K.htm">[K]</A> +<A HREF="funcs/L.htm">[L]</A> +<A HREF="funcs/M.htm">[M]</A> +<A HREF="funcs/N.htm">[N]</A> +<A HREF="funcs/O.htm">[O]</A> +<A HREF="funcs/P.htm">[P]</A> +<A HREF="funcs/Q.htm">[Q]</A> +<A HREF="funcs/R.htm">[R]</A> +<A HREF="funcs/S.htm">[S]</A> +<A HREF="funcs/T.htm">[T]</A> +<A HREF="funcs/U.htm">[U]</A> +<A HREF="funcs/V.htm">[V]</A> +<A HREF="funcs/W.htm">[W]</A> +</UL> +</NOFRAME> +<FRAMESET ROWS='50%,50%'> +<FRAME NAME=files SRC=files.htm> +<FRAME NAME=funcs SRC=funcs.htm> +</FRAMESET> +<FRAME NAME=main SRC=main.htm> +</FRAMESET> +</HTML> diff --git a/ncurses-5.3/doc/html/ada/main.htm b/ncurses-5.3/doc/html/ada/main.htm new file mode 100644 index 0000000..464a4f8 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/main.htm @@ -0,0 +1,70 @@ +<HTML><HEAD><TITLE></TITLE></HEAD> +<BODY> +<P ALIGN=right><A HREF="main.htm" TARGET="_top">[No frame version is here]</A><P><H2 ALIGN=CENTER>Files</H2> +<A HREF="files/T.htm">[T]</A> +</UL> +<HR><H2 ALIGN=CENTER>Functions/Procedures</H2> +<A HREF="funcs/ .htm">[ ]</A> +<A HREF="funcs/A.htm">[A]</A> +<A HREF="funcs/B.htm">[B]</A> +<A HREF="funcs/C.htm">[C]</A> +<A HREF="funcs/D.htm">[D]</A> +<A HREF="funcs/E.htm">[E]</A> +<A HREF="funcs/F.htm">[F]</A> +<A HREF="funcs/G.htm">[G]</A> +<A HREF="funcs/H.htm">[H]</A> +<A HREF="funcs/I.htm">[I]</A> +<A HREF="funcs/K.htm">[K]</A> +<A HREF="funcs/L.htm">[L]</A> +<A HREF="funcs/M.htm">[M]</A> +<A HREF="funcs/N.htm">[N]</A> +<A HREF="funcs/O.htm">[O]</A> +<A HREF="funcs/P.htm">[P]</A> +<A HREF="funcs/Q.htm">[Q]</A> +<A HREF="funcs/R.htm">[R]</A> +<A HREF="funcs/S.htm">[S]</A> +<A HREF="funcs/T.htm">[T]</A> +<A HREF="funcs/U.htm">[U]</A> +<A HREF="funcs/V.htm">[V]</A> +<A HREF="funcs/W.htm">[W]</A> +</UL> +<HR> +You should start your browsing with one of these files: +<UL> +<LI><A HREF="terminal_interface-curses-aux__ads.htm">terminal_interface-curses-aux.ads</A> +<LI><A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm">terminal_interface-curses-forms-field_types-alpha.ads</A> +<LI><A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm">terminal_interface-curses-forms-field_types-alphanumeric.ads</A> +<LI><A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm">terminal_interface-curses-forms-field_types-enumeration-ada.ads</A> +<LI><A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm">terminal_interface-curses-forms-field_types-enumeration.ads</A> +<LI><A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm">terminal_interface-curses-forms-field_types-intfield.ads</A> +<LI><A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm">terminal_interface-curses-forms-field_types-ipv4_address.ads</A> +<LI><A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm">terminal_interface-curses-forms-field_types-numeric.ads</A> +<LI><A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm">terminal_interface-curses-forms-field_types-regexp.ads</A> +<LI><A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm">terminal_interface-curses-forms-field_types-user-choice.ads</A> +<LI><A HREF="terminal_interface-curses-forms-field_types-user__ads.htm">terminal_interface-curses-forms-field_types-user.ads</A> +<LI><A HREF="terminal_interface-curses-forms-field_types__ads.htm">terminal_interface-curses-forms-field_types.ads</A> +<LI><A HREF="terminal_interface-curses-forms-field_user_data__ads.htm">terminal_interface-curses-forms-field_user_data.ads</A> +<LI><A HREF="terminal_interface-curses-forms-form_user_data__ads.htm">terminal_interface-curses-forms-form_user_data.ads</A> +<LI><A HREF="terminal_interface-curses-forms__ads.htm">terminal_interface-curses-forms.ads</A> +<LI><A HREF="terminal_interface-curses-menus-item_user_data__ads.htm">terminal_interface-curses-menus-item_user_data.ads</A> +<LI><A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm">terminal_interface-curses-menus-menu_user_data.ads</A> +<LI><A HREF="terminal_interface-curses-menus__ads.htm">terminal_interface-curses-menus.ads</A> +<LI><A HREF="terminal_interface-curses-mouse__ads.htm">terminal_interface-curses-mouse.ads</A> +<LI><A HREF="terminal_interface-curses-panels-user_data__ads.htm">terminal_interface-curses-panels-user_data.ads</A> +<LI><A HREF="terminal_interface-curses-panels__ads.htm">terminal_interface-curses-panels.ads</A> +<LI><A HREF="terminal_interface-curses-putwin__ads.htm">terminal_interface-curses-putwin.ads</A> +<LI><A HREF="terminal_interface-curses-termcap__ads.htm">terminal_interface-curses-termcap.ads</A> +<LI><A HREF="terminal_interface-curses-terminfo__ads.htm">terminal_interface-curses-terminfo.ads</A> +<LI><A HREF="terminal_interface-curses-text_io-aux__ads.htm">terminal_interface-curses-text_io-aux.ads</A> +<LI><A HREF="terminal_interface-curses-text_io-complex_io__ads.htm">terminal_interface-curses-text_io-complex_io.ads</A> +<LI><A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm">terminal_interface-curses-text_io-decimal_io.ads</A> +<LI><A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm">terminal_interface-curses-text_io-enumeration_io.ads</A> +<LI><A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm">terminal_interface-curses-text_io-fixed_io.ads</A> +<LI><A HREF="terminal_interface-curses-text_io-float_io__ads.htm">terminal_interface-curses-text_io-float_io.ads</A> +<LI><A HREF="terminal_interface-curses-text_io-integer_io__ads.htm">terminal_interface-curses-text_io-integer_io.ads</A> +<LI><A HREF="terminal_interface-curses-text_io-modular_io__ads.htm">terminal_interface-curses-text_io-modular_io.ads</A> +<LI><A HREF="terminal_interface-curses-text_io__ads.htm">terminal_interface-curses-text_io.ads</A> +<LI><A HREF="terminal_interface-curses-trace__ads.htm">terminal_interface-curses-trace.ads</A> +<LI><A HREF="terminal_interface-curses__ads.htm">terminal_interface-curses.ads</A> +<LI><A HREF="terminal_interface__ads.htm">terminal_interface.ads</A> +</BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/table.html b/ncurses-5.3/doc/html/ada/table.html new file mode 100644 index 0000000..a71e143 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/table.html @@ -0,0 +1,339 @@ +<!DOCTYPE HTML +PUBLIC "-//IETF//DTD HTML 3.0//EN"> +<HTML> +<HEAD> +<TITLE>Correspondence between ncurses C and Ada functions</TITLE> +</HEAD> +<BODY> +<H1>Correspondence between ncurses C and Ada functions</H1> +<H2>Sorted by C function name</H2> +<TABLE ALIGN=CENTER BORDER> +<TR ALIGN=LEFT> +<TH>C name</TH><TH>Ada name</TH><TH>man page</TH></TR> +<TR><TD>_tracef()</TD><TD><A HREF="terminal_interface-curses-trace__ads.htm#AFU_2">Trace_Put</A></TD><TD><A HREF="../man/curs_trace.3x.html">curs_trace.3x</A></TD></TR> +<TR><TD>assume_default_colors()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_155">Assume_Default_Colors</A></TD><TD><A HREF="../man/dft_fgbg.3x.html">dft_fgbg.3x</A></TD></TR> +<TR><TD>baudrate()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_130">Baudrate</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> +<TR><TD>beep()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_39">Beep</A></TD><TD><A HREF="../man/curs_beep.3x.html">curs_beep.3x</A></TD></TR> +<TR><TD>bottom_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_3">Bottom</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>box()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_25">Box</A></TD><TD><A HREF="../man/curs_border.3x.html">curs_border.3x</A></TD></TR> +<TR><TD>can_change_color()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_145">Can_Change_Color</A></TD><TD><A HREF="../man/curs_color.3x.html">curs_color.3x</A></TD></TR> +<TR><TD>cbreak()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_41">Set_Cbreak_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> +<TR><TD>clearok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_53">Clear_On_Next_Update</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> +<TR><TD>color_content()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_146">Color_Content</A></TD><TD><A HREF="../man/curs_color.3x.html">curs_color.3x</A></TD></TR> +<TR><TD>copywin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_78">Copy</A></TD><TD><A HREF="../man/curs_overlay.3x.html">curs_overlay.3x</A></TD></TR> +<TR><TD>current_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_58">Current</A></TD><TD><A HREF="../man/form_page.3x.html">form_page.3x</A></TD></TR> +<TR><TD>current_item()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_14">Current</A></TD><TD><A HREF="../man/mitem_current.3x.html">mitem_current.3x</A></TD></TR> +<TR><TD>curs_set()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_152">Set_Cursor_Visibility</A></TD><TD><A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></TD></TR> +<TR><TD>curses_version()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_156">Curses_Version</A></TD><TD><A HREF="../man/curs_extend.3x.html">curs_extend.3x</A></TD></TR> +<TR><TD>data_ahead()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_54">Data_Ahead</A></TD><TD><A HREF="../man/form_data.3x.html">form_data.3x</A></TD></TR> +<TR><TD>data_behind()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_55">Data_Behind</A></TD><TD><A HREF="../man/form_data.3x.html">form_data.3x</A></TD></TR> +<TR><TD>def_prog_mode()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_147">Save_Curses_Mode</A></TD><TD><A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></TD></TR> +<TR><TD>define_key()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_123">Define_Key</A></TD><TD><A HREF="../man/define_key.3x.html">define_key.3x</A></TD></TR> +<TR><TD>del_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_15">Delete</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>delay_output()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_128">Delay_Output</A></TD><TD><A HREF="../man/curs_util.3x.html">curs_util.3x</A></TD></TR> +<TR><TD>delwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_11">Delete</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> +<TR><TD>derwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_13">Derived_Window</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> +<TR><TD>doupdate()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_60">Update_Screen</A></TD><TD><A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></TD></TR> +<TR><TD>dup_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_4">Duplicate</A></TD><TD><A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></TD></TR> +<TR><TD>dupwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_14">Duplicate</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> +<TR><TD>dynamic_field_info()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_26">Dynamic_Info</A></TD><TD><A HREF="../man/form_field_info.3x.html">form_field_info.3x</A></TD></TR> +<TR><TD>echo()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_43">Set_Echo_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> +<TR><TD>endwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_4">End_Windows</A></TD><TD><A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></TD></TR> +<TR><TD>erasechar()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_131">Erase_Character</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> +<TR><TD>field_back()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_21">Background</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> +<TR><TD>field_back()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_22">Background</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> +<TR><TD>field_buffer()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_9">Get_Buffer</A></TD><TD><A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></TD></TR> +<TR><TD>field_count()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_43">Field_Count</A></TD><TD><A HREF="../man/form_field.3x.html">form_field.3x</A></TD></TR> +<TR><TD>field_fore()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_18">Foreground</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> +<TR><TD>field_fore()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_19">Foreground</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> +<TR><TD>field_index()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_61">Get_Index</A></TD><TD><A HREF="../man/form_page.3x.html">form_page.3x</A></TD></TR> +<TR><TD>field_info()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_25">Info</A></TD><TD><A HREF="../man/form_field_info.3x.html">form_field_info.3x</A></TD></TR> +<TR><TD>field_init()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_36">Get_Field_Init_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> +<TR><TD>field_just()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_7">Get_Justification</A></TD><TD><A HREF="../man/form_field_just.3x.html">form_field_just.3x</A></TD></TR> +<TR><TD>field_opts()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_15">Get_Options</A></TD><TD><A HREF="../man/form_field_opts.3x.html">form_field_opts.3x</A></TD></TR> +<TR><TD>field_opts()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_16">Get_Options</A></TD><TD><A HREF="../man/form_field_opts.3x.html">form_field_opts.3x</A></TD></TR> +<TR><TD>field_opts_on()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_14">Switch_Options</A></TD><TD><A HREF="../man/form_field_opts.3x.html">form_field_opts.3x</A></TD></TR> +<TR><TD>field_pad()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_24">Pad_Character</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> +<TR><TD>field_status()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_11">Changed</A></TD><TD><A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></TD></TR> +<TR><TD>field_term()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_37">Get_Field_Term_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> +<TR><TD>field_type()</TD><TD><A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#AFU_2">Get_Type</A></TD><TD><A HREF="../man/form_field_validation.3x.html">form_field_validation.3x</A></TD></TR> +<TR><TD>field_userptr</TD><TD><A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#AFU_2">Get_User_Data</A></TD><TD><A HREF="../man/form_field_userptr.3x.html">form_field_userptr.3x</A></TD></TR> +<TR><TD>field_userptr</TD><TD><A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#AFU_3">Get_User_Data</A></TD><TD><A HREF="../man/form_field_userptr.3x.html">form_field_userptr.3x</A></TD></TR> +<TR><TD>flash()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_40">Flash_Screen</A></TD><TD><A HREF="../man/curs_beep.3x.html">curs_beep.3x</A></TD></TR> +<TR><TD>flushinp()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_129">Flush_Input</A></TD><TD><A HREF="../man/curs_util.3x.html">curs_util.3x</A></TD></TR> +<TR><TD>form_driver()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_56">Driver</A></TD><TD><A HREF="../man/form_driver.3x.html">form_driver.3x</A></TD></TR> +<TR><TD>form_fields()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_42">Fields</A></TD><TD><A HREF="../man/form_field.3x.html">form_field.3x</A></TD></TR> +<TR><TD>form_init()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_38">Get_Form_Init_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> +<TR><TD>form_opts()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_50">Get_Options</A></TD><TD><A HREF="../man/form_opts.3x.html">form_opts.3x</A></TD></TR> +<TR><TD>form_opts()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_51">Get_Options</A></TD><TD><A HREF="../man/form_opts.3x.html">form_opts.3x</A></TD></TR> +<TR><TD>form_opts_on()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_49">Switch_Options</A></TD><TD><A HREF="../man/form_opts.3x.html">form_opts.3x</A></TD></TR> +<TR><TD>form_page()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_60">Page</A></TD><TD><A HREF="../man/form_page.3x.html">form_page.3x</A></TD></TR> +<TR><TD>form_sub()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_30">Get_Sub_Window</A></TD><TD><A HREF="../man/form_win.3x.html">form_win.3x</A></TD></TR> +<TR><TD>form_term()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_39">Get_Form_Term_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> +<TR><TD>form_userptr</TD><TD><A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#AFU_2">Get_User_Data</A></TD><TD><A HREF="../man/form_userptr.3x.html">form_userptr.3x</A></TD></TR> +<TR><TD>form_userptr</TD><TD><A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#AFU_3">Get_User_Data</A></TD><TD><A HREF="../man/form_userptr.3x.html">form_userptr.3x</A></TD></TR> +<TR><TD>form_win()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_28">Get_Window</A></TD><TD><A HREF="../man/form_win.3x.html">form_win.3x</A></TD></TR> +<TR><TD>free_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_3">Delete</A></TD><TD><A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></TD></TR> +<TR><TD>free_form()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_47">Delete</A></TD><TD><A HREF="../man/form_new.3x.html">form_new.3x</A></TD></TR> +<TR><TD>free_item()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_3">Delete</A></TD><TD><A HREF="../man/mitem_new.3x.html">mitem_new.3x</A></TD></TR> +<TR><TD>free_menu()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_60">Delete</A></TD><TD><A HREF="../man/menu_new.3x.html">menu_new.3x</A></TD></TR> +<TR><TD>getbegyx()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_85">Get_Window_Position</A></TD><TD><A HREF="../man/curs_getyx.3x.html">curs_getyx.3x</A></TD></TR> +<TR><TD>getmaxyx()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_84">Get_Size</A></TD><TD><A HREF="../man/curs_getyx.3x.html">curs_getyx.3x</A></TD></TR> +<TR><TD>getmouse()</TD><TD><A HREF="terminal_interface-curses-mouse__ads.htm#AFU_2">Get_Mouse</A></TD><TD><A HREF="../man/curs_mouse.3x.html">curs_mouse.3x</A></TD></TR> +<TR><TD>getparyx()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_87">Get_Origin_Relative_To_Parent</A></TD><TD><A HREF="../man/curs_getyx.3x.html">curs_getyx.3x</A></TD></TR> +<TR><TD>getyx()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_86">Get_Cursor_Position</A></TD><TD><A HREF="../man/curs_getyx.3x.html">curs_getyx.3x</A></TD></TR> +<TR><TD>halfdelay()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_46">Half_Delay</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> +<TR><TD>has_colors()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_143">Has_Colors</A></TD><TD><A HREF="../man/curs_color.3x.html">curs_color.3x</A></TD></TR> +<TR><TD>has_ic()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_133">Has_Insert_Character</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> +<TR><TD>has_il()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_134">Has_Insert_Line</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> +<TR><TD>has_key()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_30">Has_Key</A></TD><TD><A HREF="../man/curs_getch.3x.html">curs_getch.3x</A></TD></TR> +<TR><TD>hide_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_7">Hide</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>idcok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_55">Use_Insert_Delete_Character</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> +<TR><TD>idlok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_54">Use_Insert_Delete_Line</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> +<TR><TD>immedok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_57">Immediate_Update_Mode</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> +<TR><TD>init_color()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_144">Init_Color</A></TD><TD><A HREF="../man/curs_color.3x.html">curs_color.3x</A></TD></TR> +<TR><TD>init_pair()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_141">Init_Pair</A></TD><TD><A HREF="../man/curs_color.3x.html">curs_color.3x</A></TD></TR> +<TR><TD>initscr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_2">Init_Screen</A></TD><TD><A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></TD></TR> +<TR><TD>initscr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_3">Init_Windows</A></TD><TD><A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></TD></TR> +<TR><TD>intrflush()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_47">Set_Flush_On_Interrupt_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> +<TR><TD>is_linetouched()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_76">Is_Touched</A></TD><TD><A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></TD></TR> +<TR><TD>is_wintouched()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_77">Is_Touched</A></TD><TD><A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></TD></TR> +<TR><TD>isendwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_5">Is_End_Window</A></TD><TD><A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></TD></TR> +<TR><TD>item_count()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_58">Item_Count</A></TD><TD><A HREF="../man/menu_items.3x.html">menu_items.3x</A></TD></TR> +<TR><TD>item_description();</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_12">Description</A></TD><TD><A HREF="../man/mitem_name.3x.html">mitem_name.3x</A></TD></TR> +<TR><TD>item_index()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_17">Get_Index</A></TD><TD><A HREF="../man/mitem_current.3x.html">mitem_current.3x</A></TD></TR> +<TR><TD>item_init()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_52">Get_Item_Init_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> +<TR><TD>item_name()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_11">Name</A></TD><TD><A HREF="../man/mitem_name.3x.html">mitem_name.3x</A></TD></TR> +<TR><TD>item_opts()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_10">Get_Options</A></TD><TD><A HREF="../man/mitem_opts.3x.html">mitem_opts.3x</A></TD></TR> +<TR><TD>item_opts()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_9">Get_Options</A></TD><TD><A HREF="../man/mitem_opts.3x.html">mitem_opts.3x</A></TD></TR> +<TR><TD>item_opts_on()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_8">Switch_Options</A></TD><TD><A HREF="../man/mitem_opts.3x.html">mitem_opts.3x</A></TD></TR> +<TR><TD>item_term()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_53">Get_Item_Term_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> +<TR><TD>item_userptr</TD><TD><A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#AFU_2">Get_User_Data</A></TD><TD><A HREF="../man/mitem_userptr.3x.html">mitem_userptr.3x</A></TD></TR> +<TR><TD>item_userptr</TD><TD><A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#AFU_3">Get_User_Data</A></TD><TD><A HREF="../man/mitem_userptr.3x.html">mitem_userptr.3x</A></TD></TR> +<TR><TD>item_value()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_5">Value</A></TD><TD><A HREF="../man/mitem_value.3x.html">mitem_value.3x</A></TD></TR> +<TR><TD>item_visible()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_6">Visible</A></TD><TD><A HREF="../man/mitem_visible.3x.html">mitem_visible.3x</A></TD></TR> +<TR><TD>keyname()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_124">Key_Name</A></TD><TD><A HREF="../man/curs_util.3x.html">curs_util.3x</A></TD></TR> +<TR><TD>keyname()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_125">Key_Name</A></TD><TD><A HREF="../man/curs_util.3x.html">curs_util.3x</A></TD></TR> +<TR><TD>keyok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_122">Enable_Key</A></TD><TD><A HREF="../man/keyok.3x.html">keyok.3x</A></TD></TR> +<TR><TD>keypad()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_45">Set_KeyPad_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> +<TR><TD>killchar()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_132">Kill_Character</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> +<TR><TD>leaveok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_56">Leave_Cursor_After_Update</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> +<TR><TD>link_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_5">Link</A></TD><TD><A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></TD></TR> +<TR><TD>longname()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_136">Long_Name</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> +<TR><TD>longname()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_137">Long_Name</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> +<TR><TD>menu_back()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_35">Background</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> +<TR><TD>menu_back()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_36">Background</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> +<TR><TD>menu_driver()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_61">Driver</A></TD><TD><A HREF="../man/menu_driver.3x.html">menu_driver.3x</A></TD></TR> +<TR><TD>menu_fore()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_32">Foreground</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> +<TR><TD>menu_fore()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_33">Foreground</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> +<TR><TD>menu_format()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_47">Format</A></TD><TD><A HREF="../man/menu_format.3x.html">menu_format.3x</A></TD></TR> +<TR><TD>menu_grey()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_38">Grey</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> +<TR><TD>menu_grey()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_39">Grey</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> +<TR><TD>menu_init()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_54">Get_Menu_Init_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> +<TR><TD>menu_items()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_57">Items</A></TD><TD><A HREF="../man/menu_items.3x.html">menu_items.3x</A></TD></TR> +<TR><TD>menu_mark()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_30">Mark</A></TD><TD><A HREF="../man/menu_mark.3x.html">menu_mark.3x</A></TD></TR> +<TR><TD>menu_opts()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_21">Get_Options</A></TD><TD><A HREF="../man/menu_opts.3x.html">menu_opts.3x</A></TD></TR> +<TR><TD>menu_opts()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_22">Get_Options</A></TD><TD><A HREF="../man/menu_opts.3x.html">menu_opts.3x</A></TD></TR> +<TR><TD>menu_opts_on()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_20">Switch_Options</A></TD><TD><A HREF="../man/menu_opts.3x.html">menu_opts.3x</A></TD></TR> +<TR><TD>menu_pad()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_41">Pad_Character</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> +<TR><TD>menu_pattern()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_45">Pattern</A></TD><TD><A HREF="../man/menu_pattern.3x.html">menu_pattern.3x</A></TD></TR> +<TR><TD>menu_requestname.3x</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_62"></A></TD><TD><A HREF="../man/menu_driver.3x.html">menu_driver.3x</A></TD></TR> +<TR><TD>menu_spacing()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_43">Spacing</A></TD><TD><A HREF="../man/menu_spacing.3x.html">menu_spacing.3x</A></TD></TR> +<TR><TD>menu_sub()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_26">Get_Sub_Window</A></TD><TD><A HREF="../man/menu_win.3x.html">menu_win.3x</A></TD></TR> +<TR><TD>menu_term()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_55">Get_Menu_Term_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> +<TR><TD>menu_userptr</TD><TD><A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#AFU_2">Get_User_Data</A></TD><TD><A HREF="../man/menu_userptr.3x.html">menu_userptr.3x</A></TD></TR> +<TR><TD>menu_userptr</TD><TD><A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#AFU_3">Get_User_Data</A></TD><TD><A HREF="../man/menu_userptr.3x.html">menu_userptr.3x</A></TD></TR> +<TR><TD>menu_win()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_24">Get_Window</A></TD><TD><A HREF="../man/menu_win.3x.html">menu_win.3x</A></TD></TR> +<TR><TD>meta()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_44">Set_Meta_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> +<TR><TD>mouseinterval()</TD><TD><A HREF="terminal_interface-curses-mouse__ads.htm#AFU_5">Mouse_Interval</A></TD><TD><A HREF="../man/curs_mouse.3x.html">curs_mouse.3x</A></TD></TR> +<TR><TD>mousemask()</TD><TD><A HREF="terminal_interface-curses-mouse__ads.htm#AFU_1">Start_Mouse</A></TD><TD><A HREF="../man/curs_mouse.3x.html">curs_mouse.3x</A></TD></TR> +<TR><TD>move_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_44">Move</A></TD><TD><A HREF="../man/form_field.3x.html">form_field.3x</A></TD></TR> +<TR><TD>move_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_11">Move</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>mvderwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_16">Move_Derived_Window</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> +<TR><TD>mvwaddch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_8">Add</A></TD><TD><A HREF="../man/curs_addch.3x.html">curs_addch.3x</A></TD></TR> +<TR><TD>mvwaddchnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_23">Add</A></TD><TD><A HREF="../man/curs_addchstr.3x.html">curs_addchstr.3x</A></TD></TR> +<TR><TD>mvwaddnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_21">Add</A></TD><TD><A HREF="../man/curs_addstr.3x.html">curs_addstr.3x</A></TD></TR> +<TR><TD>mvwchgat()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_38">Change_Attributes</A></TD><TD><A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></TD></TR> +<TR><TD>mvwdelch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_95">Delete_Character</A></TD><TD><A HREF="../man/curs_delch.3x.html">curs_delch.3x</A></TD></TR> +<TR><TD>mvwgetnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_107">Get</A></TD><TD><A HREF="../man/curs_getstr.3x.html">curs_getstr.3x</A></TD></TR> +<TR><TD>mvwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_15">Move_Window</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> +<TR><TD>mvwinch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_97">Peek</A></TD><TD><A HREF="../man/curs_inch.3x.html">curs_inch.3x</A></TD></TR> +<TR><TD>mvwinchnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_105">Peek</A></TD><TD><A HREF="../man/curs_inchstr.3x.html">curs_inchstr.3x</A></TD></TR> +<TR><TD>mvwinnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_103">Peek</A></TD><TD><A HREF="../man/curs_instr.3x.html">curs_instr.3x</A></TD></TR> +<TR><TD>mvwinsch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_99">Insert</A></TD><TD><A HREF="../man/curs_insch.3x.html">curs_insch.3x</A></TD></TR> +<TR><TD>mvwinsnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_101">Insert</A></TD><TD><A HREF="../man/curs_insstr.3x.html">curs_insstr.3x</A></TD></TR> +<TR><TD>napms()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_153">Nap_Milli_Seconds</A></TD><TD><A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></TD></TR> +<TR><TD>new_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_1">Create</A></TD><TD><A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></TD></TR> +<TR><TD>new_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_2">New_Field</A></TD><TD><A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></TD></TR> +<TR><TD>new_form()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_45">Create</A></TD><TD><A HREF="../man/form_new.3x.html">form_new.3x</A></TD></TR> +<TR><TD>new_form()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_46">New_Form</A></TD><TD><A HREF="../man/form_new.3x.html">form_new.3x</A></TD></TR> +<TR><TD>new_item()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_1">Create</A></TD><TD><A HREF="../man/mitem_new.3x.html">mitem_new.3x</A></TD></TR> +<TR><TD>new_item()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_2">New_Item</A></TD><TD><A HREF="../man/mitem_new.3x.html">mitem_new.3x</A></TD></TR> +<TR><TD>new_menu()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_59">Create</A></TD><TD><A HREF="../man/menu_new.3x.html">menu_new.3x</A></TD></TR> +<TR><TD>new_page()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_63">Is_New_Page</A></TD><TD><A HREF="../man/form_new_page.3x.html">form_new_page.3x</A></TD></TR> +<TR><TD>new_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_1">Create</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>new_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_2">New_Panel</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>newpad()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_88">New_Pad</A></TD><TD><A HREF="../man/curs_pad.3x.html">curs_pad.3x</A></TD></TR> +<TR><TD>newwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_10">Create</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> +<TR><TD>nl()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_52">Set_NL_Mode</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> +<TR><TD>nodelay()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_49">Set_NoDelay_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> +<TR><TD>notimeout()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_51">Set_Escape_Time_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> +<TR><TD>overlay()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_80">Overlay</A></TD><TD><A HREF="../man/curs_overlay.3x.html">curs_overlay.3x</A></TD></TR> +<TR><TD>overwrite()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_79">Overwrite</A></TD><TD><A HREF="../man/curs_overlay.3x.html">curs_overlay.3x</A></TD></TR> +<TR><TD>pair_content()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_142">Pair_Content</A></TD><TD><A HREF="../man/curs_color.3x.html">curs_color.3x</A></TD></TR> +<TR><TD>panel_above()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_13">Above</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>panel_below()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_14">Below</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>panel_hidden()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_12">Is_Hidden</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>panel_userptr</TD><TD><A HREF="terminal_interface-curses-panels-user_data__ads.htm#AFU_2">Get_User_Data</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>panel_userptr</TD><TD><A HREF="terminal_interface-curses-panels-user_data__ads.htm#AFU_3">Get_User_Data</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>panel_window()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_8">Get_Window</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>panel_window()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_9">Panel_Window</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>pechochar()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_92">Add_Character_To_Pad_And_Echo_It</A></TD><TD><A HREF="../man/curs_pad.3x.html">curs_pad.3x</A></TD></TR> +<TR><TD>pnoutrefresh()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_91">Refresh_Without_Update</A></TD><TD><A HREF="../man/curs_pad.3x.html">curs_pad.3x</A></TD></TR> +<TR><TD>pos_form_cursor()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_53">Position_Cursor</A></TD><TD><A HREF="../man/form_cursor.3x.html">form_cursor.3x</A></TD></TR> +<TR><TD>pos_menu_cursor()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_28">Position_Cursor</A></TD><TD><A HREF="../man/menu_cursor.3x.html">menu_cursor.3x</A></TD></TR> +<TR><TD>post_form()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_52">Post</A></TD><TD><A HREF="../man/form_post.3x.html">form_post.3x</A></TD></TR> +<TR><TD>post_menu()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_18">Post</A></TD><TD><A HREF="../man/menu_post.3x.html">menu_post.3x</A></TD></TR> +<TR><TD>prefresh()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_90">Refresh</A></TD><TD><A HREF="../man/curs_pad.3x.html">curs_pad.3x</A></TD></TR> +<TR><TD>qiflush()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_48">Set_Queue_Interrupt_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> +<TR><TD>raw()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_42">Set_Raw_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> +<TR><TD>redrawwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_63">Redraw</A></TD><TD><A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></TD></TR> +<TR><TD>replace_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_10">Replace</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>reset_prog_mode()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_148">Reset_Curses_Mode</A></TD><TD><A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></TD></TR> +<TR><TD>resetty();</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_150">Reset_Terminal_State</A></TD><TD><A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></TD></TR> +<TR><TD>ripoffline()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_151">Rip_Off_Lines</A></TD><TD><A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></TD></TR> +<TR><TD>savetty()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_149">Save_Terminal_State</A></TD><TD><A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></TD></TR> +<TR><TD>scale_form()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_31">Scale</A></TD><TD><A HREF="../man/form_win.3x.html">form_win.3x</A></TD></TR> +<TR><TD>scale_menu()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_27">Scale</A></TD><TD><A HREF="../man/menu_win.3x.html">menu_win.3x</A></TD></TR> +<TR><TD>scr_dump()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_158">Screen_Dump_To_File</A></TD><TD><A HREF="../man/curs_scr_dump.3x.html">curs_scr_dump.3x</A></TD></TR> +<TR><TD>scr_init()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_160">Screen_Init_From_File</A></TD><TD><A HREF="../man/curs_scr_dump.3x.html">curs_scr_dump.3x</A></TD></TR> +<TR><TD>scr_restore()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_159">Screen_Restore_From_File</A></TD><TD><A HREF="../man/curs_scr_dump.3x.html">curs_scr_dump.3x</A></TD></TR> +<TR><TD>scr_set()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_161">Screen_Set_File</A></TD><TD><A HREF="../man/curs_scr_dump.3x.html">curs_scr_dump.3x</A></TD></TR> +<TR><TD>scrollok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_58">Allow_Scrolling</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> +<TR><TD>set_current_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_57">Set_Current</A></TD><TD><A HREF="../man/form_page.3x.html">form_page.3x</A></TD></TR> +<TR><TD>set_current_item()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_13">Set_Current</A></TD><TD><A HREF="../man/mitem_current.3x.html">mitem_current.3x</A></TD></TR> +<TR><TD>set_field_back()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_20">Set_Background</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> +<TR><TD>set_field_buffer()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_8">Set_Buffer</A></TD><TD><A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></TD></TR> +<TR><TD>set_field_fore()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_17">Set_Foreground</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> +<TR><TD>set_field_init()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_32">Set_Field_Init_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> +<TR><TD>set_field_just()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_6">Set_Justification</A></TD><TD><A HREF="../man/form_field_just.3x.html">form_field_just.3x</A></TD></TR> +<TR><TD>set_field_max()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_12">Set_Maximum_Size</A></TD><TD><A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></TD></TR> +<TR><TD>set_field_opts()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_13">Set_Options</A></TD><TD><A HREF="../man/form_field_opts.3x.html">form_field_opts.3x</A></TD></TR> +<TR><TD>set_field_pad()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_23">Set_Pad_Character</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> +<TR><TD>set_field_status()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_10">Set_Status</A></TD><TD><A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></TD></TR> +<TR><TD>set_field_term()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_33">Set_Field_Term_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> +<TR><TD>set_field_type()</TD><TD><A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#AFU_1">Set_Type</A></TD><TD><A HREF="../man/form_fieldtype.3x.html">form_fieldtype.3x</A></TD></TR> +<TR><TD>set_field_userptr</TD><TD><A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#AFU_1">Set_User_Data</A></TD><TD><A HREF="../man/form_field_userptr.3x.html">form_field_userptr.3x</A></TD></TR> +<TR><TD>set_form_fields()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_40">Redefine</A></TD><TD><A HREF="../man/form_field.3x.html">form_field.3x</A></TD></TR> +<TR><TD>set_form_fields()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_41">Set_Fields</A></TD><TD><A HREF="../man/form_field.3x.html">form_field.3x</A></TD></TR> +<TR><TD>set_form_init()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_34">Set_Form_Init_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> +<TR><TD>set_form_opts()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_48">Set_Options</A></TD><TD><A HREF="../man/form_opts.3x.html">form_opts.3x</A></TD></TR> +<TR><TD>set_form_page()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_59">Set_Page</A></TD><TD><A HREF="../man/form_page.3x.html">form_page.3x</A></TD></TR> +<TR><TD>set_form_sub()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_29">Set_Sub_Window</A></TD><TD><A HREF="../man/form_win.3x.html">form_win.3x</A></TD></TR> +<TR><TD>set_form_term()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_35">Set_Form_Term_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> +<TR><TD>set_form_userptr</TD><TD><A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#AFU_1">Set_User_Data</A></TD><TD><A HREF="../man/form_userptr.3x.html">form_userptr.3x</A></TD></TR> +<TR><TD>set_form_win()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_27">Set_Window</A></TD><TD><A HREF="../man/form_win.3x.html">form_win.3x</A></TD></TR> +<TR><TD>set_item_init()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_48">Set_Item_Init_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> +<TR><TD>set_item_opts()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_7">Set_Options</A></TD><TD><A HREF="../man/mitem_opts.3x.html">mitem_opts.3x</A></TD></TR> +<TR><TD>set_item_term()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_49">Set_Item_Term_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> +<TR><TD>set_item_userptr</TD><TD><A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#AFU_1">Set_User_Data</A></TD><TD><A HREF="../man/mitem_userptr.3x.html">mitem_userptr.3x</A></TD></TR> +<TR><TD>set_item_value()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_4">Set_Value</A></TD><TD><A HREF="../man/mitem_value.3x.html">mitem_value.3x</A></TD></TR> +<TR><TD>set_menu_back()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_34">Set_Background</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> +<TR><TD>set_menu_fore()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_31">Set_Foreground</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> +<TR><TD>set_menu_format()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_46">Set_Format</A></TD><TD><A HREF="../man/menu_format.3x.html">menu_format.3x</A></TD></TR> +<TR><TD>set_menu_grey()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_37">Set_Grey</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> +<TR><TD>set_menu_init()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_50">Set_Menu_Init_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> +<TR><TD>set_menu_items()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_56">Redefine</A></TD><TD><A HREF="../man/menu_items.3x.html">menu_items.3x</A></TD></TR> +<TR><TD>set_menu_mark()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_29">Set_Mark</A></TD><TD><A HREF="../man/menu_mark.3x.html">menu_mark.3x</A></TD></TR> +<TR><TD>set_menu_opts()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_19">Set_Options</A></TD><TD><A HREF="../man/menu_opts.3x.html">menu_opts.3x</A></TD></TR> +<TR><TD>set_menu_pad()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_40">Set_Pad_Character</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> +<TR><TD>set_menu_pattern()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_44">Set_Pattern</A></TD><TD><A HREF="../man/menu_pattern.3x.html">menu_pattern.3x</A></TD></TR> +<TR><TD>set_menu_spacing()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_42">Set_Spacing</A></TD><TD><A HREF="../man/menu_spacing.3x.html">menu_spacing.3x</A></TD></TR> +<TR><TD>set_menu_sub()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_25">Set_Sub_Window</A></TD><TD><A HREF="../man/menu_win.3x.html">menu_win.3x</A></TD></TR> +<TR><TD>set_menu_term()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_51">Set_Menu_Term_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> +<TR><TD>set_menu_userptr</TD><TD><A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#AFU_1">Set_User_Data</A></TD><TD><A HREF="../man/menu_userptr.3x.html">menu_userptr.3x</A></TD></TR> +<TR><TD>set_menu_win()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_23">Set_Window</A></TD><TD><A HREF="../man/menu_win.3x.html">menu_win.3x</A></TD></TR> +<TR><TD>set_new_page()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_62">Set_New_Page</A></TD><TD><A HREF="../man/form_new_page.3x.html">form_new_page.3x</A></TD></TR> +<TR><TD>set_panel_userptr</TD><TD><A HREF="terminal_interface-curses-panels-user_data__ads.htm#AFU_1">Set_User_Data</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>set_top_row()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_15">Set_Top_Row</A></TD><TD><A HREF="../man/mitem_current.3x.html">mitem_current.3x</A></TD></TR> +<TR><TD>show_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_5">Show</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>slk_attr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_119">Get_Soft_Label_Key_Attributes</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> +<TR><TD>slk_attr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_120">Get_Soft_Label_Key_Attributes</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> +<TR><TD>slk_attron()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_117">Switch_Soft_Label_Key_Attributes</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> +<TR><TD>slk_attrset()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_118">Set_Soft_Label_Key_Attributes</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> +<TR><TD>slk_clear()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_114">Clear_Soft_Label_Keys</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> +<TR><TD>slk_color()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_121">Set_Soft_Label_Key_Color</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> +<TR><TD>slk_init()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_108">Init_Soft_Label_Keys</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> +<TR><TD>slk_label()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_112">Get_Soft_Label_Key</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> +<TR><TD>slk_label()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_113">Get_Soft_Label_Key</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> +<TR><TD>slk_noutrefresh()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_111">Refresh_Soft_Label_Keys_Without_Update</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> +<TR><TD>slk_refresh()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_110">Refresh_Soft_Label_Key</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> +<TR><TD>slk_restore()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_115">Restore_Soft_Label_Keys</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> +<TR><TD>slk_set()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_109">Set_Soft_Label_Key</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> +<TR><TD>slk_touch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_116">Touch_Soft_Label_Keys</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> +<TR><TD>standout()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_31">Standout</A></TD><TD><A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></TD></TR> +<TR><TD>start_color()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_140">Start_Color</A></TD><TD><A HREF="../man/curs_color.3x.html">curs_color.3x</A></TD></TR> +<TR><TD>stdscr</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_1">Standard_Window</A></TD><TD><A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></TD></TR> +<TR><TD>subpad()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_89">Sub_Pad</A></TD><TD><A HREF="../man/curs_pad.3x.html">curs_pad.3x</A></TD></TR> +<TR><TD>subwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_12">Sub_Window</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> +<TR><TD>syncok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_19">Set_Synch_Mode</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> +<TR><TD>termattrs()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_135">Supported_Attributes</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> +<TR><TD>termname()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_138">Terminal_Name</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> +<TR><TD>termname()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_139">Terminal_Name</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> +<TR><TD>top_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_4">Top</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>top_row()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_16">Top_Row</A></TD><TD><A HREF="../man/mitem_current.3x.html">mitem_current.3x</A></TD></TR> +<TR><TD>touchline()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_74">Touch</A></TD><TD><A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></TD></TR> +<TR><TD>touchwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_73">Touch</A></TD><TD><A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></TD></TR> +<TR><TD>trace()</TD><TD><A HREF="terminal_interface-curses-trace__ads.htm#AFU_1">Trace_on</A></TD><TD><A HREF="../man/curs_trace.3x.html">curs_trace.3x</A></TD></TR> +<TR><TD>unctrl()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_126">Un_Control</A></TD><TD><A HREF="../man/curs_util.3x.html">curs_util.3x</A></TD></TR> +<TR><TD>unctrl()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_127">Un_Control</A></TD><TD><A HREF="../man/curs_util.3x.html">curs_util.3x</A></TD></TR> +<TR><TD>ungetch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_29">Undo_Keystroke</A></TD><TD><A HREF="../man/curs_getch.3x.html">curs_getch.3x</A></TD></TR> +<TR><TD>ungetmouse()</TD><TD><A HREF="terminal_interface-curses-mouse__ads.htm#AFU_3">Unget_Mouse</A></TD><TD><A HREF="../man/curs_mouse.3x.html">curs_mouse.3x</A></TD></TR> +<TR><TD>untouchwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_72">Untouch</A></TD><TD><A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></TD></TR> +<TR><TD>update_panels()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_6">Update_Panels</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> +<TR><TD>use_default_colors()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_154">Use_Default_Colors</A></TD><TD><A HREF="../man/dft_fgbg.3x.html">dft_fgbg.3x</A></TD></TR> +<TR><TD>use_extended_names()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_157">Use_Extended_Names</A></TD><TD><A HREF="../man/curs_extend.3x.html">curs_extend.3x</A></TD></TR> +<TR><TD>waddch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_7">Add</A></TD><TD><A HREF="../man/curs_addch.3x.html">curs_addch.3x</A></TD></TR> +<TR><TD>waddchnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_22">Add</A></TD><TD><A HREF="../man/curs_addchstr.3x.html">curs_addchstr.3x</A></TD></TR> +<TR><TD>waddnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_20">Add</A></TD><TD><A HREF="../man/curs_addstr.3x.html">curs_addstr.3x</A></TD></TR> +<TR><TD>wattr_get()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_34">Get_Character_Attributes</A></TD><TD><A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></TD></TR> +<TR><TD>wattr_get()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_35">Get_Character_Attribute</A></TD><TD><A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></TD></TR> +<TR><TD>wattron()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_32">Switch_Character_Attribute</A></TD><TD><A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></TD></TR> +<TR><TD>wattrset()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_33">Set_Character_Attributes</A></TD><TD><A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></TD></TR> +<TR><TD>wbkgd()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_70">Change_Background</A></TD><TD><A HREF="../man/curs_bkgd.3x.html">curs_bkgd.3x</A></TD></TR> +<TR><TD>wbkgdget()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_71">Get_Background</A></TD><TD><A HREF="../man/curs_bkgd.3x.html">curs_bkgd.3x</A></TD></TR> +<TR><TD>wbkgdset()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_69">Set_Background</A></TD><TD><A HREF="../man/curs_bkgd.3x.html">curs_bkgd.3x</A></TD></TR> +<TR><TD>wborder()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_24">Border</A></TD><TD><A HREF="../man/curs_border.3x.html">curs_border.3x</A></TD></TR> +<TR><TD>wchgat()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_37">Change_Attributes</A></TD><TD><A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></TD></TR> +<TR><TD>wclear()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_66">Clear</A></TD><TD><A HREF="../man/curs_clear.3x.html">curs_clear.3x</A></TD></TR> +<TR><TD>wclrtobot()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_67">Clear_To_End_Of_Screen</A></TD><TD><A HREF="../man/curs_clear.3x.html">curs_clear.3x</A></TD></TR> +<TR><TD>wclrtoeol()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_68">Clear_To_End_Of_Line</A></TD><TD><A HREF="../man/curs_clear.3x.html">curs_clear.3x</A></TD></TR> +<TR><TD>wcolor_set()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_36">Set_Color</A></TD><TD><A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></TD></TR> +<TR><TD>wdelch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_94">Delete_Character</A></TD><TD><A HREF="../man/curs_delch.3x.html">curs_delch.3x</A></TD></TR> +<TR><TD>wdeleteln()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_82">Delete_Line</A></TD><TD><A HREF="../man/curs_deleteln.3x.html">curs_deleteln.3x</A></TD></TR> +<TR><TD>wechochar()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_9">Add_With_Immediate_Echo</A></TD><TD><A HREF="../man/curs_addch.3x.html">curs_addch.3x</A></TD></TR> +<TR><TD>wenclose()</TD><TD><A HREF="terminal_interface-curses-mouse__ads.htm#AFU_4">Enclosed_In_Window</A></TD><TD><A HREF="../man/curs_mouse.3x.html">curs_mouse.3x</A></TD></TR> +<TR><TD>werase()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_65">Erase</A></TD><TD><A HREF="../man/curs_clear.3x.html">curs_clear.3x</A></TD></TR> +<TR><TD>wgetch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_28">Get_Keystroke</A></TD><TD><A HREF="../man/curs_getch.3x.html">curs_getch.3x</A></TD></TR> +<TR><TD>wgetnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_106">Get</A></TD><TD><A HREF="../man/curs_getstr.3x.html">curs_getstr.3x</A></TD></TR> +<TR><TD>whline()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_26">Horizontal_Line</A></TD><TD><A HREF="../man/curs_border.3x.html">curs_border.3x</A></TD></TR> +<TR><TD>winch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_96">Peek</A></TD><TD><A HREF="../man/curs_inch.3x.html">curs_inch.3x</A></TD></TR> +<TR><TD>winchnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_104">Peek</A></TD><TD><A HREF="../man/curs_inchstr.3x.html">curs_inchstr.3x</A></TD></TR> +<TR><TD>winnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_102">Peek</A></TD><TD><A HREF="../man/curs_instr.3x.html">curs_instr.3x</A></TD></TR> +<TR><TD>winsch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_98">Insert</A></TD><TD><A HREF="../man/curs_insch.3x.html">curs_insch.3x</A></TD></TR> +<TR><TD>winsdelln()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_81">Insert_Delete_Lines</A></TD><TD><A HREF="../man/curs_deleteln.3x.html">curs_deleteln.3x</A></TD></TR> +<TR><TD>winsertln()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_83">Insert_Line</A></TD><TD><A HREF="../man/curs_deleteln.3x.html">curs_deleteln.3x</A></TD></TR> +<TR><TD>winsnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_100">Insert</A></TD><TD><A HREF="../man/curs_insstr.3x.html">curs_insstr.3x</A></TD></TR> +<TR><TD>wmove()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_6">Move_Cursor</A></TD><TD><A HREF="../man/curs_move.3x.html">curs_move.3x</A></TD></TR> +<TR><TD>wnoutrefresh()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_62">Refresh_Without_Update</A></TD><TD><A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></TD></TR> +<TR><TD>wredrawln()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_64">Redraw</A></TD><TD><A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></TD></TR> +<TR><TD>wrefresh()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_61">Refresh</A></TD><TD><A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></TD></TR> +<TR><TD>wresize()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_162">Resize</A></TD><TD><A HREF="../man/wresize.3x.html">wresize.3x</A></TD></TR> +<TR><TD>wscrl()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_93">Scroll</A></TD><TD><A HREF="../man/curs_scroll.3x.html">curs_scroll.3x</A></TD></TR> +<TR><TD>wsetscrreg()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_59">Set_Scroll_Region</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> +<TR><TD>wsyncdown()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_18">Synchronize_Downwards</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> +<TR><TD>wsyncup()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_17">Synchronize_Upwards</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> +<TR><TD>wtimeout()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_50">Set_Timeout_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> +<TR><TD>wtouchln()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_75">Change_Line_Status</A></TD><TD><A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></TD></TR> +<TR><TD>wvline()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_27">Vertical_Line</A></TD><TD><A HREF="../man/curs_border.3x.html">curs_border.3x</A></TD></TR> +</TABLE></BODY></HTML> diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-aux__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-aux__adb.htm new file mode 100644 index 0000000..7481020 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-aux__adb.htm @@ -0,0 +1,122 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-aux.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-aux.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Aux --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A><FONT COLOR=red><A NAME="42_40"></A></FONT> <b>is</b> + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=green><EM>-- Some helpers</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-aux__ads.htm#117_14">Fill_String</A><FONT COLOR=red><A NAME="45_14"></A></FONT> (<A HREF="terminal_interface-curses-aux__ads.htm#117_27">Cp</A> : <b>in</b> chars_ptr; + <A HREF="terminal_interface-curses-aux__ads.htm#118_27">Str</A> : <b>out</b> String) + <b>is</b> + <FONT COLOR=green><EM>-- Fill the string with the characters referenced by the</EM></FONT> + <FONT COLOR=green><EM>-- chars_ptr.</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=red><A NAME="51_7">Len</A></FONT> : Natural; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-aux__ads.htm#117_27">Cp</A> /= Null_Ptr <b>then</b> + <A HREF="terminal_interface-curses-aux__adb.htm#51_7">Len</A> := Natural (Strlen (<A HREF="terminal_interface-curses-aux__ads.htm#117_27">Cp</A>)); + <b>if</b> <A HREF="terminal_interface-curses-aux__ads.htm#118_27">Str</A>'Length < <A HREF="terminal_interface-curses-aux__adb.htm#51_7">Len</A> <b>then</b> + <b>raise</b> Constraint_Error; + <b>end</b> <b>if</b>; + <b>declare</b> + <FONT COLOR=red><A NAME="59_13">S</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-aux__adb.htm#51_7">Len</A>); + <b>begin</b> + <A HREF="terminal_interface-curses-aux__adb.htm#59_13">S</A> := Value (<A HREF="terminal_interface-curses-aux__ads.htm#117_27">Cp</A>); + <A HREF="terminal_interface-curses-aux__ads.htm#118_27">Str</A> (<A HREF="terminal_interface-curses-aux__ads.htm#118_27">Str</A>'First .. (<A HREF="terminal_interface-curses-aux__ads.htm#118_27">Str</A>'First + <A HREF="terminal_interface-curses-aux__adb.htm#51_7">Len</A> - 1)) := <A HREF="terminal_interface-curses-aux__adb.htm#59_13">S</A> (<A HREF="terminal_interface-curses-aux__adb.htm#59_13">S</A>'<b>Range</b>); + <b>end</b>; + <b>else</b> + <A HREF="terminal_interface-curses-aux__adb.htm#51_7">Len</A> := 0; + <b>end</b> <b>if</b>; + + <b>if</b> <A HREF="terminal_interface-curses-aux__adb.htm#51_7">Len</A> < <A HREF="terminal_interface-curses-aux__ads.htm#118_27">Str</A>'Length <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#118_27">Str</A> ((<A HREF="terminal_interface-curses-aux__ads.htm#118_27">Str</A>'First + <A HREF="terminal_interface-curses-aux__adb.htm#51_7">Len</A>) .. <A HREF="terminal_interface-curses-aux__ads.htm#118_27">Str</A>'Last) := (<b>others</b> => ' '); + <b>end</b> <b>if</b>; + + <b>end</b> Fill_String; + + <b>function</b> <A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A><FONT COLOR=red><A NAME="74_13"></A></FONT> (<A HREF="terminal_interface-curses-aux__ads.htm#122_26">Cp</A> : chars_ptr) <b>return</b> String + <b>is</b> + <FONT COLOR=red><A NAME="76_7">Len</A></FONT> : Natural; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-aux__ads.htm#122_26">Cp</A> /= Null_Ptr <b>then</b> + <A HREF="terminal_interface-curses-aux__adb.htm#76_7">Len</A> := Natural (Strlen (<A HREF="terminal_interface-curses-aux__ads.htm#122_26">Cp</A>)); + <b>if</b> <A HREF="terminal_interface-curses-aux__adb.htm#76_7">Len</A> = 0 <b>then</b> + <b>return</b> ""; + <b>else</b> + <b>declare</b> + <FONT COLOR=red><A NAME="84_16">S</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-aux__adb.htm#76_7">Len</A>); + <b>begin</b> + <A HREF="terminal_interface-curses-aux__ads.htm#117_14">Fill_String</A> (<A HREF="terminal_interface-curses-aux__ads.htm#122_26">Cp</A>, <A HREF="terminal_interface-curses-aux__adb.htm#84_16">S</A>); + <b>return</b> <A HREF="terminal_interface-curses-aux__adb.htm#84_16">S</A>; + <b>end</b>; + <b>end</b> <b>if</b>; + <b>else</b> + <b>return</b> ""; + <b>end</b> <b>if</b>; + <b>end</b> Fill_String; + + <b>procedure</b> <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A><FONT COLOR=red><A NAME="95_14"></A></FONT> (<A HREF="terminal_interface-curses-aux__ads.htm#97_29">Code</A> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>) + <b>is</b> + <b>begin</b> + <b>case</b> <A HREF="terminal_interface-curses-aux__ads.htm#97_29">Code</A> <b>is</b> + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> => <b>null</b>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#82_4">E_System_Error</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#389_4">Eti_System_Error</A>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#83_4">E_Bad_Argument</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#390_4">Eti_Bad_Argument</A>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#84_4">E_Posted</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#391_4">Eti_Posted</A>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#85_4">E_Connected</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#392_4">Eti_Connected</A>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#86_4">E_Bad_State</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#393_4">Eti_Bad_State</A>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#87_4">E_No_Room</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#394_4">Eti_No_Room</A>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#88_4">E_Not_Posted</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#395_4">Eti_Not_Posted</A>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#89_4">E_Unknown_Command</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#396_4">Eti_Unknown_Command</A>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#90_4">E_No_Match</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#397_4">Eti_No_Match</A>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#91_4">E_Not_Selectable</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#398_4">Eti_Not_Selectable</A>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#92_4">E_Not_Connected</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#399_4">Eti_Not_Connected</A>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#93_4">E_Request_Denied</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#400_4">Eti_Request_Denied</A>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#94_4">E_Invalid_Field</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#401_4">Eti_Invalid_Field</A>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#95_4">E_Current</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#402_4">Eti_Current</A>; + <b>end</b> <b>case</b>; + <b>end</b> Eti_Exception; + +<b>end</b> Terminal_Interface.Curses.Aux; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-aux__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-aux__ads.htm new file mode 100644 index 0000000..ab71121 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-aux__ads.htm @@ -0,0 +1,131 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-aux.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-aux.ads </H1></DIV><HR> +<PRE> + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Aux --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.14 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- curses binding.</EM></FONT> +<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT> +<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT> +<FONT COLOR=green><EM>-- |</EM></FONT> +<b>with</b> <A HREF="interfac__ads.htm#23_9">System</A>; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="unchconv__ads.htm#22_10">Interfaces</A>.C.Strings; <b>use</b> Interfaces.C.Strings; +<b>with</b> Unchecked_Conversion; + +<b>package</b> Terminal_Interface.Curses.Aux <b>is</b> + <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Aux); + + <b>use</b> <b>type</b> Interfaces.C.int; + + <b>subtype</b> <FONT COLOR=red><A NAME="57_12">C_Int</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + <b>subtype</b> <FONT COLOR=red><A NAME="58_12">C_Short</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.short; + <b>subtype</b> <FONT COLOR=red><A NAME="59_12">C_Long_Int</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.long; + <b>subtype</b> <FONT COLOR=red><A NAME="60_12">C_Size_T</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.size_t; + <b>subtype</b> <FONT COLOR=red><A NAME="61_12">C_UInt</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.unsigned; + <b>subtype</b> <FONT COLOR=red><A NAME="62_12">C_ULong</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.unsigned_long; + <b>subtype</b> <FONT COLOR=red><A NAME="63_12">C_Char_Ptr</A></FONT> <b>is</b> Interfaces.C.Strings.chars_ptr; + <b>type</b> <FONT COLOR=red><A NAME="64_12">C_Void_Ptr</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-aux__ads.htm#61_12">System</A>.Address; + <b>type</b> <FONT COLOR=red><A NAME="65_12">C_Chtype</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-aux__ads.htm#61_12">C_ULong</A>; + <b>type</b> C_AttrType <b>is</b> <b>new</b> C_ULong; + + <FONT COLOR=green><EM>-- This is how those constants are defined in ncurses. I see them also</EM></FONT> + <FONT COLOR=green><EM>-- exactly like this in all ETI implementations I ever tested. So it</EM></FONT> + <FONT COLOR=green><EM>-- could be that this is quite general, but please check with your curses.</EM></FONT> + <FONT COLOR=green><EM>-- This is critical, because curses sometime mixes boolean returns with</EM></FONT> + <FONT COLOR=green><EM>-- returning an error status.</EM></FONT> + <FONT COLOR=red><A NAME="73_4">Curses_Ok</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := 0; + Curses_Err : <b>constant</b> C_Int := -1; + + <FONT COLOR=red><A NAME="76_4">Curses_True</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := 1; + Curses_False : <b>constant</b> C_Int := 0; + + <FONT COLOR=green><EM>-- Eti_Error: type for error codes returned by the menu and form subsystem</EM></FONT> + <b>subtype</b> Eti_Error <b>is</b> C_Int <b>range</b> -14 .. 0; + + <FONT COLOR=red><A NAME="82_4">E_Ok</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := 0; + <FONT COLOR=red><A NAME="83_4">E_System_Error</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -1; + <FONT COLOR=red><A NAME="84_4">E_Bad_Argument</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -2; + <FONT COLOR=red><A NAME="85_4">E_Posted</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -3; + <FONT COLOR=red><A NAME="86_4">E_Connected</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -4; + <FONT COLOR=red><A NAME="87_4">E_Bad_State</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -5; + <FONT COLOR=red><A NAME="88_4">E_No_Room</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -6; + <FONT COLOR=red><A NAME="89_4">E_Not_Posted</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -7; + <FONT COLOR=red><A NAME="90_4">E_Unknown_Command</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -8; + <FONT COLOR=red><A NAME="91_4">E_No_Match</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -9; + <FONT COLOR=red><A NAME="92_4">E_Not_Selectable</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -10; + <FONT COLOR=red><A NAME="93_4">E_Not_Connected</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -11; + <FONT COLOR=red><A NAME="94_4">E_Request_Denied</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -12; + <FONT COLOR=red><A NAME="95_4">E_Invalid_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -13; + E_Current : <b>constant</b> Eti_Error := -14; + + <b>procedure</b> Eti_Exception (Code : Eti_Error); + <FONT COLOR=green><EM>-- Dispatch the error code and raise the appropriate exception</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=green><EM>-- Some helpers</EM></FONT> + <b>function</b> Chtype_To_AttrChar <b>is</b> <b>new</b> + Unchecked_Conversion (Source => <A HREF="terminal_interface-curses__ads.htm#352_9">C_Chtype</A>, + <FONT COLOR=red><A NAME="105_13"> </A></FONT> Target => Attributed_Character); + <b>function</b> AttrChar_To_Chtype <b>is</b> <b>new</b> + Unchecked_Conversion (Source => <A HREF="terminal_interface-curses-aux__ads.htm#64_12">Attributed_Character</A>, + Target => C_Chtype); + + <b>function</b> AttrChar_To_AttrType <b>is</b> <b>new</b> + Unchecked_Conversion (Source => <A HREF="terminal_interface-curses-aux__ads.htm#65_12">Attributed_Character</A>, + Target => C_AttrType); + + <b>function</b> AttrType_To_AttrChar <b>is</b> <b>new</b> + Unchecked_Conversion (Source => <A HREF="terminal_interface-curses__ads.htm#352_9">C_AttrType</A>, + Target => Attributed_Character); + + <b>procedure</b> Fill_String (<FONT COLOR=red><A NAME="118_27">Cp</A></FONT> : <b>in</b> chars_ptr; + Str : <b>out</b> String); + <FONT COLOR=green><EM>-- Fill the Str parameter with the string denoted by the chars_ptr</EM></FONT> + <FONT COLOR=green><EM>-- C-Style string.</EM></FONT> + + <b>function</b> Fill_String (Cp : chars_ptr) <b>return</b> String; + <FONT COLOR=green><EM>-- Same but as function.</EM></FONT> + +<b>end</b> Terminal_Interface.Curses.Aux; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__adb.htm new file mode 100644 index 0000000..a43d751 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__adb.htm @@ -0,0 +1,74 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-alpha.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-alpha.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Alpha --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.7 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#42_53">Alpha</A><FONT COLOR=red><A NAME="45_58"></A></FONT> <b>is</b> + + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#50_14">Set_Field_Type</A><FONT COLOR=red><A NAME="49_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#50_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#51_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#45_9">Alpha_Field</A>) + <b>is</b> + <FONT COLOR=red><A NAME="52_7">C_Alpha_Field_Type</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#52_7">C_Alpha_Field_Type</A>, "TYPE_ALPHA"); + + <b>function</b> <FONT COLOR=red><A NAME="55_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="55_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#50_30">Fld</A>; + <FONT COLOR=red><A NAME="56_30">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#52_7">C_Alpha_Field_Type</A>; + <FONT COLOR=red><A NAME="57_30">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#55_16">Set_Fld_Type</A>, "set_field_type"); + + <FONT COLOR=red><A NAME="60_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#60_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#55_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#57_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#51_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#47_9">Minimum_Field_Width</A>)); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#60_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#60_7">Res</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#152_14">Wrap_Builtin</A> (<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#50_30">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#51_30">Typ</A>); + <b>end</b> Set_Field_Type; + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Alpha; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__ads.htm new file mode 100644 index 0000000..521c5fd --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__ads.htm @@ -0,0 +1,59 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-alpha.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-alpha.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Alpha --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#45_58">Alpha</A><FONT COLOR=red><A NAME="42_53"></A></FONT> <b>is</b> + <b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#42_53">Alpha</A>); + + <b>type</b> <FONT COLOR=red><A NAME="45_9">Alpha_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#53_9">Field_Type</A> + <b>with</b> <b>record</b> + <FONT COLOR=red><A NAME="47_9">Minimum_Field_Width</A></FONT> : Natural := 0; + <b>end</b> <b>record</b>; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#49_14">Set_Field_Type</A><FONT COLOR=red><A NAME="50_14"></A></FONT> (<FONT COLOR=red><A NAME="50_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="51_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#45_9">Alpha_Field</A>); + <b>pragma</b> Inline (Set_Field_Type); + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Alpha; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__adb.htm new file mode 100644 index 0000000..727d1ee --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__adb.htm @@ -0,0 +1,74 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-alphanumeric.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-alphanumeric.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.7 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#42_53">AlphaNumeric</A><FONT COLOR=red><A NAME="45_58"></A></FONT> <b>is</b> + + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#51_14">Set_Field_Type</A><FONT COLOR=red><A NAME="49_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#51_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#52_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#46_9">AlphaNumeric_Field</A>) + <b>is</b> + <FONT COLOR=red><A NAME="52_7">C_AlphaNumeric_Field_Type</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#52_7">C_AlphaNumeric_Field_Type</A>, "TYPE_ALNUM"); + + <b>function</b> <FONT COLOR=red><A NAME="55_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="55_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#51_30">Fld</A>; + <FONT COLOR=red><A NAME="56_30">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#52_7">C_AlphaNumeric_Field_Type</A>; + <FONT COLOR=red><A NAME="57_30">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#55_16">Set_Fld_Type</A>, "set_field_type"); + + <FONT COLOR=red><A NAME="60_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#60_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#55_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#57_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#48_9">Minimum_Field_Width</A>)); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#60_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#60_7">Res</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#152_14">Wrap_Builtin</A> (<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#51_30">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#52_30">Typ</A>); + <b>end</b> Set_Field_Type; + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__ads.htm new file mode 100644 index 0000000..98ce0d6 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__ads.htm @@ -0,0 +1,60 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-alphanumeric.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-alphanumeric.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#45_58">AlphaNumeric</A><FONT COLOR=red><A NAME="42_53"></A></FONT> <b>is</b> + <b>pragma</b> Preelaborate + (<A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#42_53">AlphaNumeric</A>); + + <b>type</b> <FONT COLOR=red><A NAME="46_9">AlphaNumeric_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#53_9">Field_Type</A> + <b>with</b> <b>record</b> + <FONT COLOR=red><A NAME="48_9">Minimum_Field_Width</A></FONT> : Natural := 0; + <b>end</b> <b>record</b>; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#49_14">Set_Field_Type</A><FONT COLOR=red><A NAME="51_14"></A></FONT> (<FONT COLOR=red><A NAME="51_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="52_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#46_9">AlphaNumeric_Field</A>); + <b>pragma</b> Inline (Set_Field_Type); + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm new file mode 100644 index 0000000..d65b81d --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm @@ -0,0 +1,86 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-enumeration-ada.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-enumeration-ada.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.6 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> Ada.Characters.Handling; <b>use</b> Ada.Characters.Handling; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#44_53">Enumeration</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#45_65">Ada</A> <b>is</b> + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#49_13">Create</A><FONT COLOR=red><A NAME="46_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#49_21">Set</A> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#51_9">Type_Set</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#51_46">Mixed_Case</A>; + <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#50_21">Case_Sensitive</A> : Boolean := False; + <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#51_21">Must_Be_Unique</A> : Boolean := False) + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#63_9">Enumeration_Field</A> + <b>is</b> + <FONT COLOR=red><A NAME="51_7">I</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#56_9">Enumeration_Info</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#43_9">T</A>'Pos (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#43_9">T</A>'Last) - <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#43_9">T</A>'Pos (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#43_9">T</A>'First) + 1); + <FONT COLOR=red><A NAME="52_7">J</A></FONT> : Positive := 1; + <b>begin</b> + <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">I</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">Case_Sensitive</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#50_21">Case_Sensitive</A>; + <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">I</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">Match_Must_Be_Unique</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#51_21">Must_Be_Unique</A>; + + <b>for</b> <FONT COLOR=red><A NAME="57_11">E</A></FONT> <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#43_9">T</A>'<b>Range</b> <b>loop</b> + <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">I</A>.Names (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#52_7">J</A>) := <b>new</b> String'(<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#43_9">T</A>'Image (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#43_9">T</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#57_11">E</A>))); + <FONT COLOR=green><EM>-- The Image attribute defaults to upper case, so we have to handle</EM></FONT> + <FONT COLOR=green><EM>-- only the other ones...</EM></FONT> + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#49_21">Set</A> /= <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#51_34">Upper_Case</A> <b>then</b> + <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">I</A>.Names (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#52_7">J</A>).<b>all</b> := To_Lower (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">I</A>.Names (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#52_7">J</A>).<b>all</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#49_21">Set</A> = <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#51_46">Mixed_Case</A> <b>then</b> + <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">I</A>.Names (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#52_7">J</A>)(<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">I</A>.Names (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#52_7">J</A>).<b>all</b>'First) := + To_Upper (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">I</A>.Names (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#52_7">J</A>)(<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">I</A>.Names (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#52_7">J</A>).<b>all</b>'First)); + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#52_7">J</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#52_7">J</A> + 1; + <b>end</b> <b>loop</b>; + + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#65_13">Create</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">I</A>, True); + <b>end</b> Create; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#54_13">Value</A><FONT COLOR=red><A NAME="74_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#54_20">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#55_20">Buf</A> : <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Buffer_Number</A>'First) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#43_9">T</A> + <b>is</b> + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#43_9">T</A>'Value (<A HREF="terminal_interface-curses-forms__ads.htm#371_13">Get_Buffer</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#54_20">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#55_20">Buf</A>)); + <b>end</b> Value; + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm new file mode 100644 index 0000000..c102826 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm @@ -0,0 +1,65 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-enumeration-ada.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-enumeration-ada.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>generic</b> + <b>type</b> <FONT COLOR=red><A NAME="43_9">T</A></FONT> <b>is</b> (<>); + +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#44_53">Enumeration</A>.<FONT COLOR=red><A NAME="45_65">Ada</A></FONT> <b>is</b> + <b>pragma</b> Preelaborate + (<A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#44_53">Enumeration</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#45_65">Ada</A>); + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#46_13">Create</A><FONT COLOR=red><A NAME="49_13"></A></FONT> (<FONT COLOR=red><A NAME="49_21">Set</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#51_9">Type_Set</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#51_46">Mixed_Case</A>; + <FONT COLOR=red><A NAME="50_21">Case_Sensitive</A></FONT> : Boolean := False; + <FONT COLOR=red><A NAME="51_21">Must_Be_Unique</A></FONT> : Boolean := False) + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#63_9">Enumeration_Field</A>; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#74_13">Value</A><FONT COLOR=red><A NAME="54_13"></A></FONT> (<FONT COLOR=red><A NAME="54_20">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="55_20">Buf</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Buffer_Number</A>'First) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#43_9">T</A>; + <FONT COLOR=green><EM>-- Translate the content of the fields buffer - indicated by the</EM></FONT> + <FONT COLOR=green><EM>-- buffer number - into an enumeration value. If the buffer is empty</EM></FONT> + <FONT COLOR=green><EM>-- or the content is invalid, a Constraint_Error is raises.</EM></FONT> + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__adb.htm new file mode 100644 index 0000000..c737619 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__adb.htm @@ -0,0 +1,125 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-enumeration.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-enumeration.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.6 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> Ada.Unchecked_Deallocation; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#44_53">Enumeration</A><FONT COLOR=red><A NAME="47_58"></A></FONT> <b>is</b> + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#65_13">Create</A><FONT COLOR=red><A NAME="49_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#65_21">Info</A> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#56_9">Enumeration_Info</A>; + <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#66_21">Auto_Release_Names</A> : Boolean := False) + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#63_9">Enumeration_Field</A> + <b>is</b> + <b>procedure</b> <FONT COLOR=red><A NAME="53_17">Release_String</A></FONT> <b>is</b> + <b>new</b> Ada.Unchecked_Deallocation (String, + <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#48_9">String_Access</A>); + <FONT COLOR=red><A NAME="56_7">E</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#63_9">Enumeration_Field</A>; + <FONT COLOR=red><A NAME="57_7">L</A></FONT> : <b>constant</b> size_t := 1 + size_t (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#65_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#56_27">C</A>); + <FONT COLOR=red><A NAME="58_7">S</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#48_9">String_Access</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#56_7">E</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#56_7">Case_Sensitive</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#65_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#59_10">Case_Sensitive</A>; + <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#56_7">E</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#56_7">Match_Must_Be_Unique</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#65_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#60_10">Match_Must_Be_Unique</A>; + <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#56_7">E</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#56_7">Arr</A> := <b>new</b> chars_ptr_array (size_t (1) .. <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#57_7">L</A>); + <b>for</b> <FONT COLOR=red><A NAME="63_11">I</A></FONT> <b>in</b> 1 .. Positive (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#57_7">L</A> - 1) <b>loop</b> + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#65_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#58_10">Names</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#63_11">I</A>) = <b>null</b> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#56_7">E</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#96_10">Arr</A> (size_t (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#63_11">I</A>)) := New_String (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#65_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#58_10">Names</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#63_11">I</A>).<b>all</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#66_21">Auto_Release_Names</A> <b>then</b> + <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#58_7">S</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#65_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#58_10">Names</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#63_11">I</A>); + <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#53_17">Release_String</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#58_7">S</A>); + <b>end</b> <b>if</b>; + <b>end</b> <b>loop</b>; + <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#56_7">E</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#96_10">Arr</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#57_7">L</A>) := Null_Ptr; + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#56_7">E</A>; + <b>end</b> Create; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#78_14">Release</A><FONT COLOR=red><A NAME="77_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#78_23">Enum</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#63_9">Enumeration_Field</A>) + <b>is</b> + <FONT COLOR=red><A NAME="79_7">I</A></FONT> : size_t := 0; + <FONT COLOR=red><A NAME="80_7">P</A></FONT> : chars_ptr; + <b>begin</b> + <b>loop</b> + <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#80_7">P</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#78_23">Enum</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#96_10">Arr</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#79_7">I</A>); + <b>exit</b> <b>when</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#80_7">P</A> = Null_Ptr; + Free (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#80_7">P</A>); + <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#78_23">Enum</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#96_10">Arr</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#79_7">I</A>) := Null_Ptr; + <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#79_7">I</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#79_7">I</A> + 1; + <b>end</b> <b>loop</b>; + <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#78_23">Enum</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#96_10">Arr</A> := <b>null</b>; + <b>end</b> Release; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#85_14">Set_Field_Type</A><FONT COLOR=red><A NAME="92_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#85_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#86_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#63_9">Enumeration_Field</A>) + <b>is</b> + <FONT COLOR=red><A NAME="95_7">C_Enum_Type</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#95_7">C_Enum_Type</A>, "TYPE_ENUM"); + + <b>function</b> <FONT COLOR=red><A NAME="98_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="98_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#85_30">Fld</A>; + <FONT COLOR=red><A NAME="99_30">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#95_7">C_Enum_Type</A>; + <FONT COLOR=red><A NAME="100_30">Arg1</A></FONT> : chars_ptr_array; + <FONT COLOR=red><A NAME="101_30">Arg2</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A>; + <FONT COLOR=red><A NAME="102_30">Arg3</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#98_16">Set_Fld_Type</A>, "set_field_type"); + + <FONT COLOR=red><A NAME="105_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#86_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#96_10">Arr</A> = <b>null</b> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#105_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#98_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#100_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#86_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#96_10">Arr</A>.<b>all</b>, + <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#101_30">Arg2</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#86_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#94_10">Case_Sensitive</A>)), + <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#102_30">Arg3</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A> (Boolean'Pos + (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#86_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#95_10">Match_Must_Be_Unique</A>))); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#105_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#105_7">Res</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#152_14">Wrap_Builtin</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#85_30">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#86_30">Typ</A>, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#150_13">C_Choice_Router</A>); + <b>end</b> Set_Field_Type; + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Enumeration; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__ads.htm new file mode 100644 index 0000000..c7d2901 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__ads.htm @@ -0,0 +1,104 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-enumeration.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-enumeration.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; + +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#47_58">Enumeration</A><FONT COLOR=red><A NAME="44_53"></A></FONT> <b>is</b> + <b>pragma</b> Preelaborate + (<A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#44_53">Enumeration</A>); + + <b>type</b> <FONT COLOR=red><A NAME="48_9">String_Access</A></FONT> <b>is</b> <b>access</b> String; + + <FONT COLOR=green><EM>-- Type_Set is used by the child package Ada</EM></FONT> + <b>type</b> <FONT COLOR=red><A NAME="51_9">Type_Set</A></FONT> <b>is</b> (<FONT COLOR=red><A NAME="51_22">Lower_Case</A></FONT>, <FONT COLOR=red><A NAME="51_34">Upper_Case</A></FONT>, <FONT COLOR=red><A NAME="51_46">Mixed_Case</A></FONT>); + + <b>type</b> <FONT COLOR=red><A NAME="53_9">Enum_Array</A></FONT> <b>is</b> <b>array</b> (Positive <b>range</b> <>) + <b>of</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#48_9">String_Access</A>; + + <b>type</b> <FONT COLOR=red><A NAME="56_9">Enumeration_Info</A></FONT> (<FONT COLOR=red><A NAME="56_27">C</A></FONT> : Positive) <b>is</b> + <b>record</b> + <FONT COLOR=red><A NAME="58_10">Names</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#53_9">Enum_Array</A> (1 .. <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#56_27">C</A>); + <FONT COLOR=red><A NAME="59_10">Case_Sensitive</A></FONT> : Boolean := False; + <FONT COLOR=red><A NAME="60_10">Match_Must_Be_Unique</A></FONT> : Boolean := False; + <b>end</b> <b>record</b>; + + <b>type</b> <FONT COLOR=red><A NAME="63_9">Enumeration_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#53_9">Field_Type</A> <b>with</b> <b>private</b>; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#49_13">Create</A><FONT COLOR=red><A NAME="65_13"></A></FONT> (<FONT COLOR=red><A NAME="65_21">Info</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#56_9">Enumeration_Info</A>; + <FONT COLOR=red><A NAME="66_21">Auto_Release_Names</A></FONT> : Boolean := False) + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#63_9">Enumeration_Field</A>; + <FONT COLOR=green><EM>-- Make an fieldtype from the info. Enumerations are special, because</EM></FONT> + <FONT COLOR=green><EM>-- they normally don't copy the enum values into a private store, so</EM></FONT> + <FONT COLOR=green><EM>-- we have to care for the lifetime of the info we provide.</EM></FONT> + <FONT COLOR=green><EM>-- The Auto_Release_Names flag may be used to automatically releases</EM></FONT> + <FONT COLOR=green><EM>-- the strings in the Names array of the Enumeration_Info.</EM></FONT> + + <b>function</b> <FONT COLOR=red><A NAME="74_13">Make_Enumeration_Type</A></FONT> (<FONT COLOR=red><A NAME="74_36">Info</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#56_9">Enumeration_Info</A>; + <FONT COLOR=red><A NAME="75_36">Auto_Release_Names</A></FONT> : Boolean := False) + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#63_9">Enumeration_Field</A> <b>renames</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#65_13">Create</A>; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#77_14">Release</A><FONT COLOR=red><A NAME="78_14"></A></FONT> (<FONT COLOR=red><A NAME="78_23">Enum</A></FONT> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#63_9">Enumeration_Field</A>); + <FONT COLOR=green><EM>-- But we may want to release the field to release the memory allocated</EM></FONT> + <FONT COLOR=green><EM>-- by it internally. After that the Enumeration field is no longer usable.</EM></FONT> + + <FONT COLOR=green><EM>-- The next type defintions are all ncurses extensions. They are typically</EM></FONT> + <FONT COLOR=green><EM>-- not available in other curses implementations.</EM></FONT> + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#92_14">Set_Field_Type</A><FONT COLOR=red><A NAME="85_14"></A></FONT> (<FONT COLOR=red><A NAME="85_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="86_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#63_9">Enumeration_Field</A>); + <b>pragma</b> Inline (Set_Field_Type); + +<b>private</b> + <b>type</b> <FONT COLOR=red><A NAME="90_9">CPA_Access</A></FONT> <b>is</b> <b>access</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings.chars_ptr_array; + + <b>type</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#63_9">Enumeration_Field</A> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#53_9">Field_Type</A> <b>with</b> + <b>record</b> + <FONT COLOR=red><A NAME="94_10">Case_Sensitive</A></FONT> : Boolean := False; + <FONT COLOR=red><A NAME="95_10">Match_Must_Be_Unique</A></FONT> : Boolean := False; + <FONT COLOR=red><A NAME="96_10">Arr</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#90_9">CPA_Access</A> := <b>null</b>; + <b>end</b> <b>record</b>; + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Enumeration; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-intfield__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-intfield__adb.htm new file mode 100644 index 0000000..19df103 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-intfield__adb.htm @@ -0,0 +1,78 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-intfield.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-intfield.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IntField --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.7 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#42_53">IntField</A><FONT COLOR=red><A NAME="45_58"></A></FONT> <b>is</b> + + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#52_14">Set_Field_Type</A><FONT COLOR=red><A NAME="49_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#52_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#53_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#45_9">Integer_Field</A>) + <b>is</b> + <FONT COLOR=red><A NAME="52_7">C_Integer_Field_Type</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#52_7">C_Integer_Field_Type</A>, "TYPE_INTEGER"); + + <b>function</b> <FONT COLOR=red><A NAME="55_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="55_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#52_30">Fld</A>; + <FONT COLOR=red><A NAME="56_30">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#52_7">C_Integer_Field_Type</A>; + <FONT COLOR=red><A NAME="57_30">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A>; + <FONT COLOR=red><A NAME="58_30">Arg2</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#58_12">C_Long_Int</A>; + <FONT COLOR=red><A NAME="59_30">Arg3</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#58_12">C_Long_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#55_16">Set_Fld_Type</A>, "set_field_type"); + + <FONT COLOR=red><A NAME="62_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#62_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#55_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#57_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#53_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#47_10">Precision</A>), + <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#58_30">Arg2</A> => <A HREF="terminal_interface-curses-aux__ads.htm#58_12">C_Long_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#53_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#48_10">Lower_Limit</A>), + <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#59_30">Arg3</A> => <A HREF="terminal_interface-curses-aux__ads.htm#58_12">C_Long_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#53_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#49_10">Upper_Limit</A>)); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#62_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#62_7">Res</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#152_14">Wrap_Builtin</A> (<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#52_30">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#53_30">Typ</A>); + <b>end</b> Set_Field_Type; + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.IntField; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-intfield__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-intfield__ads.htm new file mode 100644 index 0000000..fa224d7 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-intfield__ads.htm @@ -0,0 +1,61 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-intfield.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-intfield.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IntField --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#45_58">IntField</A><FONT COLOR=red><A NAME="42_53"></A></FONT> <b>is</b> + <b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#42_53">IntField</A>); + + <b>type</b> <FONT COLOR=red><A NAME="45_9">Integer_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#53_9">Field_Type</A> <b>with</b> + <b>record</b> + <FONT COLOR=red><A NAME="47_10">Precision</A></FONT> : Natural; + <FONT COLOR=red><A NAME="48_10">Lower_Limit</A></FONT> : Integer; + <FONT COLOR=red><A NAME="49_10">Upper_Limit</A></FONT> : Integer; + <b>end</b> <b>record</b>; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#49_14">Set_Field_Type</A><FONT COLOR=red><A NAME="52_14"></A></FONT> (<FONT COLOR=red><A NAME="52_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="53_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#45_9">Integer_Field</A>); + <b>pragma</b> Inline (Set_Field_Type); + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.IntField; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-ipv4_address__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-ipv4_address__adb.htm new file mode 100644 index 0000000..aa09c51 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-ipv4_address__adb.htm @@ -0,0 +1,74 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-ipv4_address.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-ipv4_address.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IPV4_Address --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.7 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#42_53">IPV4_Address</A><FONT COLOR=red><A NAME="45_58"></A></FONT> <b>is</b> + + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#48_14">Set_Field_Type</A><FONT COLOR=red><A NAME="49_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#48_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#49_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#46_9">Internet_V4_Address_Field</A>) + <b>is</b> + <FONT COLOR=red><A NAME="52_7">C_IPV4_Field_Type</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#52_7">C_IPV4_Field_Type</A>, "TYPE_IPV4"); + + <b>function</b> <FONT COLOR=red><A NAME="55_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="55_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#48_30">Fld</A>; + <FONT COLOR=red><A NAME="56_30">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#52_7">C_IPV4_Field_Type</A>) + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#55_16">Set_Fld_Type</A>, "set_field_type"); + + <FONT COLOR=red><A NAME="60_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#60_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#55_16">Set_Fld_Type</A>; + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#60_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#60_7">Res</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#152_14">Wrap_Builtin</A> (<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#48_30">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#49_30">Typ</A>); + <b>end</b> Set_Field_Type; + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.IPV4_Address; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-ipv4_address__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-ipv4_address__ads.htm new file mode 100644 index 0000000..04f89d7 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-ipv4_address__ads.htm @@ -0,0 +1,57 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-ipv4_address.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-ipv4_address.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IPV4_Address --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#45_58">IPV4_Address</A><FONT COLOR=red><A NAME="42_53"></A></FONT> <b>is</b> + <b>pragma</b> Preelaborate + (<A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#42_53">IPV4_Address</A>); + + <b>type</b> <FONT COLOR=red><A NAME="46_9">Internet_V4_Address_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#53_9">Field_Type</A> <b>with</b> <b>null</b> <b>record</b>; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#49_14">Set_Field_Type</A><FONT COLOR=red><A NAME="48_14"></A></FONT> (<FONT COLOR=red><A NAME="48_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="49_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#46_9">Internet_V4_Address_Field</A>); + <b>pragma</b> Inline (Set_Field_Type); + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.IPV4_Address; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-numeric__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-numeric__adb.htm new file mode 100644 index 0000000..d3671e5 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-numeric__adb.htm @@ -0,0 +1,80 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-numeric.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-numeric.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Numeric --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.8 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#42_53">Numeric</A><FONT COLOR=red><A NAME="45_58"></A></FONT> <b>is</b> + + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#52_14">Set_Field_Type</A><FONT COLOR=red><A NAME="49_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#52_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#53_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#45_9">Numeric_Field</A>) + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="52_12">Double</A></FONT> <b>is</b> <b>new</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.double; + + <FONT COLOR=red><A NAME="54_7">C_Numeric_Field_Type</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#54_7">C_Numeric_Field_Type</A>, "TYPE_NUMERIC"); + + <b>function</b> <FONT COLOR=red><A NAME="57_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="57_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#52_30">Fld</A>; + <FONT COLOR=red><A NAME="58_30">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#54_7">C_Numeric_Field_Type</A>; + <FONT COLOR=red><A NAME="59_30">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A>; + <FONT COLOR=red><A NAME="60_30">Arg2</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#52_12">Double</A>; + <FONT COLOR=red><A NAME="61_30">Arg3</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#52_12">Double</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#57_16">Set_Fld_Type</A>, "set_field_type"); + + <FONT COLOR=red><A NAME="64_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#64_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#57_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#59_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#53_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#47_10">Precision</A>), + <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#60_30">Arg2</A> => <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#52_12">Double</A> (<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#53_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#48_10">Lower_Limit</A>), + <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#61_30">Arg3</A> => <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#52_12">Double</A> (<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#53_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#49_10">Upper_Limit</A>)); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#64_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#64_7">Res</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#152_14">Wrap_Builtin</A> (<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#52_30">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#53_30">Typ</A>); + <b>end</b> Set_Field_Type; + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Numeric; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-numeric__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-numeric__ads.htm new file mode 100644 index 0000000..f44d8c7 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-numeric__ads.htm @@ -0,0 +1,61 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-numeric.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-numeric.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Numeric --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#45_58">Numeric</A><FONT COLOR=red><A NAME="42_53"></A></FONT> <b>is</b> + <b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#42_53">Numeric</A>); + + <b>type</b> <FONT COLOR=red><A NAME="45_9">Numeric_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#53_9">Field_Type</A> <b>with</b> + <b>record</b> + <FONT COLOR=red><A NAME="47_10">Precision</A></FONT> : Natural; + <FONT COLOR=red><A NAME="48_10">Lower_Limit</A></FONT> : Float; + <FONT COLOR=red><A NAME="49_10">Upper_Limit</A></FONT> : Float; + <b>end</b> <b>record</b>; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#49_14">Set_Field_Type</A><FONT COLOR=red><A NAME="52_14"></A></FONT> (<FONT COLOR=red><A NAME="52_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="53_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#45_9">Numeric_Field</A>); + <b>pragma</b> Inline (Set_Field_Type); + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Numeric; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-regexp__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-regexp__adb.htm new file mode 100644 index 0000000..2f39185 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-regexp__adb.htm @@ -0,0 +1,77 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-regexp.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-regexp.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.RegExp --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.7 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#42_53">RegExp</A><FONT COLOR=red><A NAME="45_58"></A></FONT> <b>is</b> + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#52_14">Set_Field_Type</A><FONT COLOR=red><A NAME="47_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#52_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#53_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#47_9">Regular_Expression_Field</A>) + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="50_12">Char_Ptr</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char; + + <FONT COLOR=red><A NAME="52_7">C_Regexp_Field_Type</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#52_7">C_Regexp_Field_Type</A>, "TYPE_REGEXP"); + + <b>function</b> <FONT COLOR=red><A NAME="55_16">Set_Ftyp</A></FONT> (<FONT COLOR=red><A NAME="55_26">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#52_30">Fld</A>; + <FONT COLOR=red><A NAME="56_26">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#52_7">C_Regexp_Field_Type</A>; + <FONT COLOR=red><A NAME="57_26">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#50_12">Char_Ptr</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#55_16">Set_Ftyp</A>, "set_field_type"); + + <FONT COLOR=red><A NAME="60_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#53_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#49_10">Regular_Expression</A>.<b>all</b>'Length); + <FONT COLOR=red><A NAME="61_7">Len</A></FONT> : size_t; + <FONT COLOR=red><A NAME="62_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#53_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#49_10">Regular_Expression</A>.<b>all</b>, <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#60_7">Txt</A>, <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#61_7">Len</A>); + <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#62_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#55_16">Set_Ftyp</A> (<A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#57_26">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#60_7">Txt</A> (<A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#60_7">Txt</A>'First)'<b>Access</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#62_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#62_7">Res</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#152_14">Wrap_Builtin</A> (<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#52_30">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#53_30">Typ</A>); + <b>end</b> Set_Field_Type; + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.RegExp; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-regexp__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-regexp__ads.htm new file mode 100644 index 0000000..41829d9 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-regexp__ads.htm @@ -0,0 +1,61 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-regexp.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-regexp.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.RegExp --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#45_58">RegExp</A><FONT COLOR=red><A NAME="42_53"></A></FONT> <b>is</b> + <b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#42_53">RegExp</A>); + + <b>type</b> <FONT COLOR=red><A NAME="45_9">String_Access</A></FONT> <b>is</b> <b>access</b> String; + + <b>type</b> <FONT COLOR=red><A NAME="47_9">Regular_Expression_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#53_9">Field_Type</A> <b>with</b> + <b>record</b> + <FONT COLOR=red><A NAME="49_10">Regular_Expression</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#45_9">String_Access</A>; + <b>end</b> <b>record</b>; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#47_14">Set_Field_Type</A><FONT COLOR=red><A NAME="52_14"></A></FONT> (<FONT COLOR=red><A NAME="52_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="53_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#47_9">Regular_Expression_Field</A>); + <b>pragma</b> Inline (Set_Field_Type); + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.RegExp; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__adb.htm new file mode 100644 index 0000000..7b00744 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__adb.htm @@ -0,0 +1,116 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-user-choice.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-user-choice.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User.Choice --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> Ada.Unchecked_Conversion; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#44_53">User</A>.<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#44_58">Choice</A><FONT COLOR=red><A NAME="46_63"></A></FONT> <b>is</b> + + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>function</b> <FONT COLOR=red><A NAME="50_13">To_Argument_Access</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Conversion + (System.Address, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#217_9">Argument_Access</A>); + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#83_13">Generic_Next</A><FONT COLOR=red><A NAME="53_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#83_27">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#84_27">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#49_12">C_Int</A> + <b>is</b> + <FONT COLOR=red><A NAME="56_7">Result</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="57_7">Udf</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#58_9">User_Defined_Field_Type_With_Choice_Access</A> := + <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#58_9">User_Defined_Field_Type_With_Choice_Access</A> + (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#50_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#84_27">Usr</A>).<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Typ</A>); + <b>begin</b> + <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#56_7">Result</A> := <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#61_13">Next</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#83_27">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#57_7">Udf</A>.<b>all</b>); + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#49_12">C_Int</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#56_7">Result</A>)); + <b>end</b> Generic_Next; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#90_13">Generic_Prev</A><FONT COLOR=red><A NAME="65_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#90_27">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#91_27">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#49_12">C_Int</A> + <b>is</b> + <FONT COLOR=red><A NAME="68_7">Result</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="69_7">Udf</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#58_9">User_Defined_Field_Type_With_Choice_Access</A> := + <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#58_9">User_Defined_Field_Type_With_Choice_Access</A> + (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#50_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#91_27">Usr</A>).<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Typ</A>); + <b>begin</b> + <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#68_7">Result</A> := <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#68_13">Previous</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#90_27">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#69_7">Udf</A>.<b>all</b>); + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#49_12">C_Int</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#68_7">Result</A>)); + <b>end</b> Generic_Prev; + + <FONT COLOR=green><EM>-- -----------------------------------------------------------------------</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#81_13">C_Generic_Choice</A><FONT COLOR=red><A NAME="79_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> + <b>is</b> + <FONT COLOR=red><A NAME="81_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <FONT COLOR=red><A NAME="82_7">T</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#143_4">M_Generic_Choice</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A> <b>then</b> + <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#82_7">T</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#223_13">New_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#84_13">Generic_Field_Check</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#91_13">Generic_Char_Check</A>'<b>Access</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#82_7">T</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#81_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#228_13">Set_Fieldtype_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#82_7">T</A>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#163_13">Make_Arg</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#168_13">Copy_Arg</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#173_14">Free_Arg</A>'<b>Access</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#81_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#81_7">Res</A>); + <b>end</b> <b>if</b>; + + <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#81_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#235_13">Set_Fieldtype_Choice</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#82_7">T</A>, + <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#83_13">Generic_Next</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#90_13">Generic_Prev</A>'<b>Access</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#81_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#81_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#143_4">M_Generic_Choice</A> := <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#82_7">T</A>; + <b>end</b> <b>if</b>; + <b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#143_4">M_Generic_Choice</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A>); + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#143_4">M_Generic_Choice</A>; + <b>end</b> C_Generic_Choice; + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.User.Choice; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__ads.htm new file mode 100644 index 0000000..081d8c6 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__ads.htm @@ -0,0 +1,102 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-user-choice.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-user-choice.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User.Choice --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; + +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#44_53">User</A>.<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#46_63">Choice</A><FONT COLOR=red><A NAME="44_58"></A></FONT> <b>is</b> + <b>pragma</b> Preelaborate + (<A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#44_53">User</A>.<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#44_58">Choice</A>); + + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + <b>subtype</b> <FONT COLOR=red><A NAME="49_12">C_Int</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>type</b> <FONT COLOR=red><A NAME="51_9">User_Defined_Field_Type_With_Choice</A></FONT> <b>is</b> <b>abstract</b> <b>new</b> + <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#49_9">User_Defined_Field_Type</A> <b>with</b> <b>null</b> <b>record</b>; + <FONT COLOR=green><EM>-- This is the root of the mechanism we use to create field types in</EM></FONT> + <FONT COLOR=green><EM>-- Ada95 that allow the prev/next mechanism. You should your own type</EM></FONT> + <FONT COLOR=green><EM>-- derive from this one and implement the Field_Check, Character_Check</EM></FONT> + <FONT COLOR=green><EM>-- Next and Previous functions for your own type.</EM></FONT> + + <b>type</b> <FONT COLOR=red><A NAME="58_9">User_Defined_Field_Type_With_Choice_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b> + <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#51_9">User_Defined_Field_Type_With_Choice</A>'Class; + + <b>function</b> <FONT COLOR=red><A NAME="61_13">Next</A></FONT> + (<FONT COLOR=red><A NAME="62_7">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="63_7">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#51_9">User_Defined_Field_Type_With_Choice</A>) <b>return</b> Boolean + <b>is</b> <b>abstract</b>; + <FONT COLOR=green><EM>-- If True is returned, the function successfully generated a next</EM></FONT> + <FONT COLOR=green><EM>-- value into the fields buffer.</EM></FONT> + + <b>function</b> <FONT COLOR=red><A NAME="68_13">Previous</A></FONT> + (<FONT COLOR=red><A NAME="69_7">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="70_7">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#51_9">User_Defined_Field_Type_With_Choice</A>) <b>return</b> Boolean + <b>is</b> <b>abstract</b>; + <FONT COLOR=green><EM>-- If True is returned, the function successfully generated a previous</EM></FONT> + <FONT COLOR=green><EM>-- value into the fields buffer.</EM></FONT> + + <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT> + <FONT COLOR=green><EM>-- | Private Part.</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> +<b>private</b> + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#79_13">C_Generic_Choice</A><FONT COLOR=red><A NAME="81_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#53_13">Generic_Next</A><FONT COLOR=red><A NAME="83_13"></A></FONT> (<FONT COLOR=red><A NAME="83_27">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="84_27">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#49_12">C_Int</A>; + <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#83_13">Generic_Next</A>); + <FONT COLOR=green><EM>-- This is the generic next Choice_Function for the low-level fieldtype</EM></FONT> + <FONT COLOR=green><EM>-- representing all the User_Defined_Field_Type derivates. It routes</EM></FONT> + <FONT COLOR=green><EM>-- the call to the Next implementation for the type.</EM></FONT> + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#65_13">Generic_Prev</A><FONT COLOR=red><A NAME="90_13"></A></FONT> (<FONT COLOR=red><A NAME="90_27">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="91_27">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#49_12">C_Int</A>; + <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#90_13">Generic_Prev</A>); + <FONT COLOR=green><EM>-- This is the generic prev Choice_Function for the low-level fieldtype</EM></FONT> + <FONT COLOR=green><EM>-- representing all the User_Defined_Field_Type derivates. It routes</EM></FONT> + <FONT COLOR=green><EM>-- the call to the Previous implementation for the type.</EM></FONT> + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.User.Choice; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-user__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-user__adb.htm new file mode 100644 index 0000000..bbc6e1f --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-user__adb.htm @@ -0,0 +1,138 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-user.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-user.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> Ada.Unchecked_Conversion; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#44_53">User</A><FONT COLOR=red><A NAME="46_58"></A></FONT> <b>is</b> + + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#71_14">Set_Field_Type</A><FONT COLOR=red><A NAME="50_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#71_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#72_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#49_9">User_Defined_Field_Type</A>) + <b>is</b> + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#64_16">Allocate_Arg</A><FONT COLOR=red><A NAME="53_16"></A></FONT> (<FONT COLOR=red><A NAME="53_30">T</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#49_9">User_Defined_Field_Type</A>'Class) + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#217_9">Argument_Access</A>; + + <b>function</b> <FONT COLOR=red><A NAME="56_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="56_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#71_30">Fld</A>; + <FONT COLOR=red><A NAME="57_30">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#82_13">C_Generic_Type</A>; + <FONT COLOR=red><A NAME="58_30">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#217_9">Argument_Access</A>) + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#47_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#56_16">Set_Fld_Type</A>, "set_field_type"); + + <FONT COLOR=red><A NAME="62_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#53_16">Allocate_Arg</A><FONT COLOR=red><A NAME="64_16"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#53_30">T</A> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#49_9">User_Defined_Field_Type</A>'Class) + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#217_9">Argument_Access</A> + <b>is</b> + <FONT COLOR=red><A NAME="67_10">Ptr</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#64_9">Field_Type_Access</A> := <b>new</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#49_9">User_Defined_Field_Type</A>'Class'(<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#53_30">T</A>); + <b>begin</b> + <b>return</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#212_9">Argument</A>'(Usr => System.Null_Address, + Typ => <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#67_10">Ptr</A>, + Cft => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A>); + <b>end</b> Allocate_Arg; + + <b>begin</b> + <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#62_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#56_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#58_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#53_16">Allocate_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#72_30">Typ</A>)); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#62_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#62_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Field_Type; + + <b>function</b> <FONT COLOR=red><A NAME="81_13">To_Argument_Access</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Conversion + (System.Address, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#217_9">Argument_Access</A>); + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#84_13">Generic_Field_Check</A><FONT COLOR=red><A NAME="84_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#84_34">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#85_34">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#47_12">C_Int</A> + <b>is</b> + <FONT COLOR=red><A NAME="87_7">Result</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="88_7">Udf</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#54_9">User_Defined_Field_Type_Access</A> := + <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#54_9">User_Defined_Field_Type_Access</A> (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#81_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#85_34">Usr</A>).<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Typ</A>); + <b>begin</b> + <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#87_7">Result</A> := <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#57_13">Field_Check</A> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#84_34">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#88_7">Udf</A>.<b>all</b>); + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#47_12">C_Int</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#87_7">Result</A>)); + <b>end</b> Generic_Field_Check; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#91_13">Generic_Char_Check</A><FONT COLOR=red><A NAME="95_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#91_33">Ch</A> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#47_12">C_Int</A>; + <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#92_33">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#47_12">C_Int</A> + <b>is</b> + <FONT COLOR=red><A NAME="98_7">Result</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="99_7">Udf</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#54_9">User_Defined_Field_Type_Access</A> := + <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#54_9">User_Defined_Field_Type_Access</A> (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#81_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#92_33">Usr</A>).<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Typ</A>); + <b>begin</b> + <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#98_7">Result</A> := <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#64_13">Character_Check</A> (Character'Val (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#91_33">Ch</A>), <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#99_7">Udf</A>.<b>all</b>); + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#47_12">C_Int</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#98_7">Result</A>)); + <b>end</b> Generic_Char_Check; + + <FONT COLOR=green><EM>-- -----------------------------------------------------------------------</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#82_13">C_Generic_Type</A><FONT COLOR=red><A NAME="108_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> + <b>is</b> + <FONT COLOR=red><A NAME="110_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <FONT COLOR=red><A NAME="111_7">T</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#142_4">M_Generic_Type</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A> <b>then</b> + <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#111_7">T</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#223_13">New_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#84_13">Generic_Field_Check</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#91_13">Generic_Char_Check</A>'<b>Access</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#111_7">T</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#110_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#228_13">Set_Fieldtype_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#111_7">T</A>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#163_13">Make_Arg</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#168_13">Copy_Arg</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#173_14">Free_Arg</A>'<b>Access</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#110_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#110_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#142_4">M_Generic_Type</A> := <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#111_7">T</A>; + <b>end</b> <b>if</b>; + <b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#142_4">M_Generic_Type</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A>); + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#142_4">M_Generic_Type</A>; + <b>end</b> C_Generic_Type; + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.User; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-user__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-user__ads.htm new file mode 100644 index 0000000..2cb7d85 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types-user__ads.htm @@ -0,0 +1,103 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-user.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-user.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; + +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#46_58">User</A><FONT COLOR=red><A NAME="44_53"></A></FONT> <b>is</b> + <b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#44_53">User</A>); + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + <b>subtype</b> <FONT COLOR=red><A NAME="47_12">C_Int</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>type</b> <FONT COLOR=red><A NAME="49_9">User_Defined_Field_Type</A></FONT> <b>is</b> <b>abstract</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#53_9">Field_Type</A> <b>with</b> <b>null</b> <b>record</b>; + <FONT COLOR=green><EM>-- This is the root of the mechanism we use to create field types in</EM></FONT> + <FONT COLOR=green><EM>-- Ada95. You should your own type derive from this one and implement</EM></FONT> + <FONT COLOR=green><EM>-- the Field_Check and Character_Check functions for your own type.</EM></FONT> + + <b>type</b> <FONT COLOR=red><A NAME="54_9">User_Defined_Field_Type_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b> + <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#49_9">User_Defined_Field_Type</A>'Class; + + <b>function</b> <FONT COLOR=red><A NAME="57_13">Field_Check</A></FONT> + (<FONT COLOR=red><A NAME="58_7">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="59_7">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#49_9">User_Defined_Field_Type</A>) <b>return</b> Boolean + <b>is</b> <b>abstract</b>; + <FONT COLOR=green><EM>-- If True is returned, the field is considered valid, otherwise it is</EM></FONT> + <FONT COLOR=green><EM>-- invalid.</EM></FONT> + + <b>function</b> <FONT COLOR=red><A NAME="64_13">Character_Check</A></FONT> + (<FONT COLOR=red><A NAME="65_7">Ch</A></FONT> : Character; + <FONT COLOR=red><A NAME="66_7">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#49_9">User_Defined_Field_Type</A>) <b>return</b> Boolean + <b>is</b> <b>abstract</b>; + <FONT COLOR=green><EM>-- If True is returned, the character is considered as valid for the</EM></FONT> + <FONT COLOR=green><EM>-- field, otherwise as invalid.</EM></FONT> + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#50_14">Set_Field_Type</A><FONT COLOR=red><A NAME="71_14"></A></FONT> (<FONT COLOR=red><A NAME="71_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="72_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#49_9">User_Defined_Field_Type</A>); + <FONT COLOR=green><EM>-- This should work for all types derived from User_Defined_Field_Type.</EM></FONT> + <FONT COLOR=green><EM>-- No need to reimplement it for your derived type.</EM></FONT> + + <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT> + <FONT COLOR=green><EM>-- | Private Part.</EM></FONT> + <FONT COLOR=green><EM>-- | Used by the Choice child package.</EM></FONT> +<b>private</b> + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#108_13">C_Generic_Type</A><FONT COLOR=red><A NAME="82_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#84_13">Generic_Field_Check</A><FONT COLOR=red><A NAME="84_13"></A></FONT> (<FONT COLOR=red><A NAME="84_34">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="85_34">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#47_12">C_Int</A>; + <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#84_13">Generic_Field_Check</A>); + <FONT COLOR=green><EM>-- This is the generic Field_Check_Function for the low-level fieldtype</EM></FONT> + <FONT COLOR=green><EM>-- representing all the User_Defined_Field_Type derivates. It routes</EM></FONT> + <FONT COLOR=green><EM>-- the call to the Field_Check implementation for the type.</EM></FONT> + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#95_13">Generic_Char_Check</A><FONT COLOR=red><A NAME="91_13"></A></FONT> (<FONT COLOR=red><A NAME="91_33">Ch</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#47_12">C_Int</A>; + <FONT COLOR=red><A NAME="92_33">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#47_12">C_Int</A>; + <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#91_13">Generic_Char_Check</A>); + <FONT COLOR=green><EM>-- This is the generic Char_Check_Function for the low-level fieldtype</EM></FONT> + <FONT COLOR=green><EM>-- representing all the User_Defined_Field_Type derivates. It routes</EM></FONT> + <FONT COLOR=green><EM>-- the call to the Character_Check implementation for the type.</EM></FONT> + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.User; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types__adb.htm new file mode 100644 index 0000000..d258ff2 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types__adb.htm @@ -0,0 +1,302 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.13 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; +<b>with</b> Ada.Unchecked_Deallocation; +<b>with</b> Ada.Unchecked_Conversion; +<FONT COLOR=green><EM>-- |</EM></FONT> +<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> +<FONT COLOR=green><EM>-- | man page form_fieldtype.3x</EM></FONT> +<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> +<FONT COLOR=green><EM>-- |</EM></FONT> +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#44_41">Field_Types</A><FONT COLOR=red><A NAME="51_46"></A></FONT> <b>is</b> + + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + <b>use</b> <b>type</b> System.Address; + + <b>function</b> <FONT COLOR=red><A NAME="56_13">To_Argument_Access</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Conversion + (System.Address, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#217_9">Argument_Access</A>); + + <b>function</b> <FONT COLOR=red><A NAME="59_13">Get_Fieldtype</A></FONT> (<FONT COLOR=red><A NAME="59_28">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types__adb.htm#59_13">Get_Fieldtype</A>, "field_type"); + + <b>function</b> <FONT COLOR=red><A NAME="62_13">Get_Arg</A></FONT> (<FONT COLOR=red><A NAME="62_22">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> System.Address; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types__adb.htm#62_13">Get_Arg</A>, "field_arg"); + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_field_validation.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#80_13">Get_Type</A><FONT COLOR=red><A NAME="71_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#80_23">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#64_9">Field_Type_Access</A> + <b>is</b> + <FONT COLOR=red><A NAME="73_7">Low_Level</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#59_13">Get_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#80_23">Fld</A>); + <FONT COLOR=red><A NAME="74_7">Arg</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#217_9">Argument_Access</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#73_7">Low_Level</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A> <b>then</b> + <b>return</b> <b>null</b>; + <b>else</b> + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#73_7">Low_Level</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#144_4">M_Builtin_Router</A> <b>or</b> <b>else</b> + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#73_7">Low_Level</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#142_4">M_Generic_Type</A> <b>or</b> <b>else</b> + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#73_7">Low_Level</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#145_4">M_Choice_Router</A> <b>or</b> <b>else</b> + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#73_7">Low_Level</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#143_4">M_Generic_Choice</A> <b>then</b> + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#74_7">Arg</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#56_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#62_13">Get_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#80_23">Fld</A>)); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#74_7">Arg</A> = <b>null</b> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>else</b> + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#74_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Typ</A>; + <b>end</b> <b>if</b>; + <b>else</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <b>end</b> Get_Type; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#163_13">Make_Arg</A><FONT COLOR=red><A NAME="95_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#163_23">Args</A> : System.Address) <b>return</b> System.Address + <b>is</b> + <FONT COLOR=green><EM>-- Actually args is a double indirected pointer to the arguments</EM></FONT> + <FONT COLOR=green><EM>-- of a C variable argument list. In theory it is now quite</EM></FONT> + <FONT COLOR=green><EM>-- complicated to write portable routine that reads the arguments,</EM></FONT> + <FONT COLOR=green><EM>-- because one has to know the growth direction of the stack and</EM></FONT> + <FONT COLOR=green><EM>-- the sizes of the individual arguments.</EM></FONT> + <FONT COLOR=green><EM>-- Fortunately we are only interested in the first argument (#0),</EM></FONT> + <FONT COLOR=green><EM>-- we know its size and for the first arg we don't care about</EM></FONT> + <FONT COLOR=green><EM>-- into which stack direction we have to proceed. We simply</EM></FONT> + <FONT COLOR=green><EM>-- resolve the double indirection and thats it.</EM></FONT> + <b>type</b> <FONT COLOR=red><A NAME="106_12">V</A></FONT> <b>is</b> <b>access</b> <b>all</b> System.Address; + <b>function</b> <FONT COLOR=red><A NAME="107_16">To_Access</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Conversion (System.Address, + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#106_12">V</A>); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#107_16">To_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#107_16">To_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#163_23">Args</A>).<b>all</b>).<b>all</b>; + <b>end</b> Make_Arg; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#168_13">Copy_Arg</A><FONT COLOR=red><A NAME="113_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#168_23">Usr</A> : System.Address) <b>return</b> System.Address + <b>is</b> + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#168_23">Usr</A>; + <b>end</b> Copy_Arg; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#173_14">Free_Arg</A><FONT COLOR=red><A NAME="119_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#173_24">Usr</A> : <b>in</b> System.Address) + <b>is</b> + <b>procedure</b> <FONT COLOR=red><A NAME="121_17">Free_Type</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Deallocation + (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#53_9">Field_Type</A>'Class, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#64_9">Field_Type_Access</A>); + <b>procedure</b> <FONT COLOR=red><A NAME="123_17">Freeargs</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Deallocation + (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#212_9">Argument</A>, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#217_9">Argument_Access</A>); + + <FONT COLOR=red><A NAME="126_7">To_Be_Free</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#217_9">Argument_Access</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#56_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#173_24">Usr</A>); + <FONT COLOR=red><A NAME="127_7">Low_Level</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#126_7">To_Be_Free</A> /= <b>null</b> <b>then</b> + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#126_7">To_Be_Free</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#214_7">Usr</A> /= System.Null_Address <b>then</b> + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#127_7">Low_Level</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#126_7">To_Be_Free</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#215_7">Cft</A>; + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#127_7">Low_Level</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#127_10">Freearg</A> /= <b>null</b> <b>then</b> + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#127_7">Low_Level</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#127_10">Freearg</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#126_7">To_Be_Free</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#214_7">Usr</A>); + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#126_7">To_Be_Free</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Typ</A> /= <b>null</b> <b>then</b> + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#121_17">Free_Type</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#126_7">To_Be_Free</A>.<A HREF="terminal_interface-curses-forms-field_types__adb.htm#126_7">Typ</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#123_17">Freeargs</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#126_7">To_Be_Free</A>); + <b>end</b> <b>if</b>; + <b>end</b> Free_Arg; + + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#152_14">Wrap_Builtin</A><FONT COLOR=red><A NAME="144_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#152_28">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#153_28">Typ</A> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#53_9">Field_Type</A>'Class; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#154_28">Cft</A> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#149_13">C_Builtin_Router</A>) + <b>is</b> + <FONT COLOR=red><A NAME="148_7">Usr_Arg</A></FONT> : System.Address := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#62_13">Get_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#152_28">Fld</A>); + <FONT COLOR=red><A NAME="149_7">Low_Level</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#59_13">Get_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#152_28">Fld</A>); + <FONT COLOR=red><A NAME="150_7">Arg</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#217_9">Argument_Access</A>; + <FONT COLOR=red><A NAME="151_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>function</b> <FONT COLOR=red><A NAME="152_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="152_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#152_28">Fld</A>; + <FONT COLOR=red><A NAME="153_30">Cf</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#154_28">Cft</A>; + <FONT COLOR=red><A NAME="154_30">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#217_9">Argument_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types__adb.htm#152_16">Set_Fld_Type</A>, "set_field_type"); + + <b>begin</b> + <b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#149_7">Low_Level</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#154_28">Cft</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#149_13">C_Builtin_Router</A> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#154_28">Cft</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#150_13">C_Choice_Router</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#150_7">Arg</A> := <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#212_9">Argument</A>'(Usr => System.Null_Address, + Typ => <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#53_9">Field_Type</A>'Class'(<A HREF="terminal_interface-curses-forms-field_types__ads.htm#153_28">Typ</A>), + Cft => <A HREF="terminal_interface-curses-forms-field_types__adb.htm#59_13">Get_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#152_28">Fld</A>)); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#148_7">Usr_Arg</A> /= System.Null_Address <b>then</b> + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#149_7">Low_Level</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#126_10">Copyarg</A> /= <b>null</b> <b>then</b> + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#150_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__adb.htm#150_7">Usr</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#149_7">Low_Level</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#126_10">Copyarg</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#148_7">Usr_Arg</A>); + <b>else</b> + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#150_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__adb.htm#150_7">Usr</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#148_7">Usr_Arg</A>; + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#151_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#152_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#154_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types__adb.htm#150_7">Arg</A>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#151_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#151_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <b>end</b> Wrap_Builtin; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#178_13">Field_Check_Router</A><FONT COLOR=red><A NAME="180_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#178_33">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#179_33">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A> + <b>is</b> + <FONT COLOR=red><A NAME="183_7">Arg</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#217_9">Argument_Access</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#56_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#179_33">Usr</A>); + <b>begin</b> + <b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#183_7">Arg</A> /= <b>null</b> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#183_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#215_7">Cft</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A> + <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#183_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Typ</A> /= <b>null</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#183_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#215_7">Cft</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#128_10">Fcheck</A> /= <b>null</b> <b>then</b> + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#183_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#215_7">Cft</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#128_10">Fcheck</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#178_33">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types__adb.htm#183_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#214_7">Usr</A>); + <b>else</b> + <b>return</b> 1; + <b>end</b> <b>if</b>; + <b>end</b> Field_Check_Router; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#186_13">Char_Check_Router</A><FONT COLOR=red><A NAME="194_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#186_32">Ch</A> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#187_32">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A> + <b>is</b> + <FONT COLOR=red><A NAME="197_7">Arg</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#217_9">Argument_Access</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#56_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#187_32">Usr</A>); + <b>begin</b> + <b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#197_7">Arg</A> /= <b>null</b> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#197_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#215_7">Cft</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A> + <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#197_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Typ</A> /= <b>null</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#197_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#215_7">Cft</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#129_10">Ccheck</A> /= <b>null</b> <b>then</b> + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#197_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#215_7">Cft</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#129_10">Ccheck</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#186_32">Ch</A>, <A HREF="terminal_interface-curses-forms-field_types__adb.htm#197_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#214_7">Usr</A>); + <b>else</b> + <b>return</b> 1; + <b>end</b> <b>if</b>; + <b>end</b> Char_Check_Router; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#194_13">Next_Router</A><FONT COLOR=red><A NAME="208_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#194_26">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#195_26">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A> + <b>is</b> + <FONT COLOR=red><A NAME="211_7">Arg</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#217_9">Argument_Access</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#56_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#195_26">Usr</A>); + <b>begin</b> + <b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#211_7">Arg</A> /= <b>null</b> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#211_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#215_7">Cft</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A> + <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#211_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Typ</A> /= <b>null</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#211_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#215_7">Cft</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#130_10">Next</A> /= <b>null</b> <b>then</b> + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#211_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#215_7">Cft</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#130_10">Next</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#194_26">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types__adb.htm#211_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#214_7">Usr</A>); + <b>else</b> + <b>return</b> 1; + <b>end</b> <b>if</b>; + <b>end</b> Next_Router; + + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#202_13">Prev_Router</A><FONT COLOR=red><A NAME="222_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#202_26">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#203_26">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12">C_Int</A> + <b>is</b> + <FONT COLOR=red><A NAME="225_7">Arg</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#217_9">Argument_Access</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#56_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#203_26">Usr</A>); + <b>begin</b> + <b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#225_7">Arg</A> /= <b>null</b> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#225_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#215_7">Cft</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A> + <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#225_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Typ</A> /= <b>null</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#225_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#215_7">Cft</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#130_16">Prev</A> /= <b>null</b> <b>then</b> + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#225_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#215_7">Cft</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#130_16">Prev</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#202_26">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types__adb.htm#225_7">Arg</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#214_7">Usr</A>); + <b>else</b> + <b>return</b> 1; + <b>end</b> <b>if</b>; + <b>end</b> Prev_Router; + + <FONT COLOR=green><EM>-- -----------------------------------------------------------------------</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#149_13">C_Builtin_Router</A><FONT COLOR=red><A NAME="238_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> + <b>is</b> + <FONT COLOR=red><A NAME="240_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <FONT COLOR=red><A NAME="241_7">T</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#144_4">M_Builtin_Router</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A> <b>then</b> + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#241_7">T</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#223_13">New_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#178_13">Field_Check_Router</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#186_13">Char_Check_Router</A>'<b>Access</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#241_7">T</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#240_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#228_13">Set_Fieldtype_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#241_7">T</A>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#163_13">Make_Arg</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#168_13">Copy_Arg</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#173_14">Free_Arg</A>'<b>Access</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#240_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#240_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#144_4">M_Builtin_Router</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#241_7">T</A>; + <b>end</b> <b>if</b>; + <b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#144_4">M_Builtin_Router</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A>); + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#144_4">M_Builtin_Router</A>; + <b>end</b> C_Builtin_Router; + + <FONT COLOR=green><EM>-- -----------------------------------------------------------------------</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#150_13">C_Choice_Router</A><FONT COLOR=red><A NAME="265_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> + <b>is</b> + <FONT COLOR=red><A NAME="267_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <FONT COLOR=red><A NAME="268_7">T</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#145_4">M_Choice_Router</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A> <b>then</b> + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#268_7">T</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#223_13">New_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#178_13">Field_Check_Router</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#186_13">Char_Check_Router</A>'<b>Access</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#268_7">T</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#267_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#228_13">Set_Fieldtype_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#268_7">T</A>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#163_13">Make_Arg</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#168_13">Copy_Arg</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#173_14">Free_Arg</A>'<b>Access</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#267_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#267_7">Res</A>); + <b>end</b> <b>if</b>; + + <A HREF="terminal_interface-curses-forms-field_types__adb.htm#267_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#235_13">Set_Fieldtype_Choice</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#268_7">T</A>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#194_13">Next_Router</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#202_13">Prev_Router</A>'<b>Access</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#267_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#267_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#145_4">M_Choice_Router</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#268_7">T</A>; + <b>end</b> <b>if</b>; + <b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#145_4">M_Choice_Router</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#135_4">Null_Field_Type</A>); + <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#145_4">M_Choice_Router</A>; + <b>end</b> C_Choice_Router; + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types__ads.htm new file mode 100644 index 0000000..a835f27 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_types__ads.htm @@ -0,0 +1,246 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types.ads </H1></DIV><HR> +<PRE> + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.13 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> Interfaces.C; + +<b>package</b> Terminal_Interface.Curses.Forms.Field_Types <b>is</b> + <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Forms.Field_Types); + <b>use</b> <b>type</b><FONT COLOR=red><A NAME="47_12"> </A></FONT>Interfaces.C.int; + <b>subtype</b> C_Int <b>is</b> Interfaces.C.int; + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_fieldtype.3x.html">form_fieldtype.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <b>type</b> Field_Type <b>is</b> <b>abstract</b> <b>tagged</b> <b>null</b> <b>record</b>; + <FONT COLOR=green><EM>-- Abstract base type for all field types. A concrete field type</EM></FONT> + <FONT COLOR=green><EM>-- is an extension that adds some data elements describing formats or</EM></FONT> + <FONT COLOR=green><EM>-- boundary values for the type and validation routines.</EM></FONT> + <FONT COLOR=green><EM>-- For the builtin low-level fieldtypes, the validation routines are</EM></FONT> + <FONT COLOR=green><EM>-- already defined by the low-level C library.</EM></FONT> + <FONT COLOR=green><EM>-- The builtin types like Alpha or AlphaNumeric etc. are defined in</EM></FONT> + <FONT COLOR=green><EM>-- child packages of this package. You may use one of them as example</EM></FONT> + <FONT COLOR=green><EM>-- how to create you own child packages for low-level field types that</EM></FONT> + <FONT COLOR=green><EM>-- you may have already written in C.</EM></FONT> + + <b>type</b> Field_Type_Access <b>is</b> <b>access</b> <b>all</b> Field_Type'Class; + + <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> + <b>procedure</b> Set_Field_Type (<FONT COLOR=red><A NAME="68_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#53_9">Field</A>; + Fld_Type : <b>in</b> Field_Type) <b>is</b> <b>abstract</b>; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_fieldtype.3x.html">set_field_type()</A></EM></FONT> + <FONT COLOR=green><EM>-- But: we hide the vararg mechanism of the C interface. You always</EM></FONT> + <FONT COLOR=green><EM>-- have to pass a single Field_Type parameter.</EM></FONT> + + <FONT COLOR=green><EM>-- ---------------------------------------------------------------------</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_validation.3x.html">form_field_validation.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> + <b>function</b> Get_Type (Fld : <b>in</b> Field) <b>return</b> Field_Type_Access; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_validation.3x.html">field_type()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: field_arg()</EM></FONT> + <FONT COLOR=green><EM>-- In Ada95 we can combine these. If you try to retrieve the field type</EM></FONT> + <FONT COLOR=green><EM>-- that is not defined as extension of the abstract tagged type above,</EM></FONT> + <FONT COLOR=green><EM>-- you will raise a Form_Exception.</EM></FONT> + <FONT COLOR=green><EM>-- This is not inlined</EM></FONT> + + <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT> + <FONT COLOR=green><EM>-- | Private Part.</EM></FONT> + <FONT COLOR=green><EM>-- | Most of this is used by the implementations of the child packages.</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> +<b>private</b> + <b>type</b> Makearg_Function <b>is</b> <b>access</b> + <b>function</b> (Args : System.Address) <b>return</b> System.Address; + <b>pragma</b> Convention (C, Makearg_Function); + + <b>type</b> Copyarg_Function <b>is</b> <b>access</b> + <b>function</b> (Usr : System.Address) <b>return</b> System.Address; + <b>pragma</b> Convention (C, Copyarg_Function); + + <b>type</b> Freearg_Function <b>is</b> <b>access</b> + <b>procedure</b> (Usr : System.Address); + <b>pragma</b> Convention (C, Freearg_Function); + + <b>type</b> Field_Check_Function<FONT COLOR=red><A NAME="106_29"> </A></FONT><b>is</b> <b>access</b> + <b>function</b> (Fld : Field; Usr : System.Address) <b>return</b> C_Int; + <b>pragma</b> Convention (C, Field_Check_Function); + + <b>type</b> Char_Check_Function<FONT COLOR=red><A NAME="110_28"> </A></FONT><b>is</b> <b>access</b> + <b>function</b> (Ch : C_Int<A HREF="terminal_interface-curses-forms-field_types__ads.htm#109_9">;</A> Usr : System.Address) <b>return</b> C_Int; + <b>pragma</b> Convention (C, Char_Check_Function); + + <b>type</b> Choice_Function <b>is</b> <b>access</b> + <b>function</b> (Fld : Field; Usr : System.Address) <b>return</b> C_Int; + <b>pragma</b> Convention (C, Choice_Function); + + <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT> + <FONT COLOR=green><EM>-- | This must be in sync with the FIELDTYPE structure in form.h</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>type</b> Low_Level_Field_Type <b>is</b> + <b>record</b> + <FONT COLOR=red><A NAME="123_10">Status</A></FONT> : <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.short; + <FONT COLOR=red><A NAME="124_10">Ref_Count</A></FONT> : Interfaces.C.long; + <FONT COLOR=red><A NAME="125_10">Left</A></FONT>, Right : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#93_9">System</A>.Address; + <FONT COLOR=red><A NAME="126_10">Makearg</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#97_9">Makearg_Function</A>; + <FONT COLOR=red><A NAME="127_10">Copyarg</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#101_9">Copyarg_Function</A>; + <FONT COLOR=red><A NAME="128_10">Freearg</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#105_9">Freearg_Function</A>; + <FONT COLOR=red><A NAME="129_10">Fcheck</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#109_9">Field_Check_Function</A>; + <FONT COLOR=red><A NAME="130_10">Ccheck</A></FONT><FONT COLOR=red><A NAME="130_16"> </A></FONT>: <A HREF="terminal_interface-curses-forms-field_types__ads.htm#113_9">Char_Check_Function</A>; + Next, Prev : Choice_Function; + <b>end</b> <b>record</b>; + <b>pragma</b> Convention (C, Low_Level_Field_Type); + <b>type</b> C_Field_Type <b>is</b> <b>access</b> <b>all</b> Low_Level_Field_Type; + + Null_Field_Type : <b>constant</b> C_Field_Type := <b>null</b>; + + <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT> + <FONT COLOR=green><EM>-- | This four low-level fieldtypes are the ones associated with</EM></FONT> + <FONT COLOR=green><EM>-- | fieldtypes handled by this binding. Any other low-level fieldtype</EM></FONT> + <FONT COLOR=green><EM>-- | will result in a Form_Exception is function Get_Type.</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=red><A NAME="143_4">M_Generic_Type</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> := <b>null</b>; + <FONT COLOR=red><A NAME="144_4">M_Generic_Choice</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> := <b>null</b>; + <FONT COLOR=red><A NAME="145_4">M_Builtin_Router</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A> := <b>null</b>; + M_Choice_Router : C_Field_Type := <b>null</b>; + + <FONT COLOR=green><EM>-- Two wrapper functions to access those low-level fieldtypes defined</EM></FONT> + <FONT COLOR=green><EM>-- in this package.</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#265_13">C_Builtin_Router</A><FONT COLOR=red><A NAME="150_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">C_Field_Type</A>; + <b>function</b> C_Choice_Router <b>return</b> C_Field_Type; + + <b>procedure</b> Wrap_Builtin (<FONT COLOR=red><A NAME="153_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#53_9">Field</A>; + <FONT COLOR=red><A NAME="154_28">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">Field_Type</A>'Class<A HREF="terminal_interface-curses-forms-field_types__ads.htm#149_13">;</A> + Cft : C_Field_Type := C_Builtin_Router); + <FONT COLOR=green><EM>-- This procedure has to be called by the Set_Field_Type implementation</EM></FONT> + <FONT COLOR=green><EM>-- for builtin low-level fieldtypes to replace it by an Ada95</EM></FONT> + <FONT COLOR=green><EM>-- conformant Field_Type object.</EM></FONT> + <FONT COLOR=green><EM>-- The parameter Cft must be C_Builtin_Router for regular low-level</EM></FONT> + <FONT COLOR=green><EM>-- fieldtypes (like TYP_ALPHA or TYP_ALNUM) and C_Choice_Router for</EM></FONT> + <FONT COLOR=green><EM>-- low-level fieldtypes witch choice functions (like TYP_ENUM).</EM></FONT> + <FONT COLOR=green><EM>-- Any other value will raise a Form_Exception.</EM></FONT> + + <b>function</b> Make_Arg (Args : System.Address) <b>return</b> System.Address; + <b>pragma</b> Convention (C, Make_Arg); + <FONT COLOR=green><EM>-- This is the Makearg_Function for the internal low-level types</EM></FONT> + <FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT> + + <b>function</b> Copy_Arg (Usr<A HREF="terminal_interface-curses-forms-field_types__ads.htm#168_13"> </A>: System.Address) <b>return</b> System.Address; + <b>pragma</b> Convention (C, Copy_Arg); + <FONT COLOR=green><EM>-- This is the Copyarg_Function for the internal low-level types</EM></FONT> + <FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT> + + <b>procedure</b> Free_Arg (Usr : System.Address); + <b>pragma</b> Convention (C, Free_Arg); + <FONT COLOR=green><EM>-- This is the Freearg_Function for the internal low-level types</EM></FONT> + <FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT> + + <b>function</b> Field_Check_Router (<FONT COLOR=red><A NAME="179_33">Fld</A></FONT> : Field; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#178_13"> </A> Usr : System.Address) <b>return</b> C_Int; + <b>pragma</b> Convention (C, Field_Check_Router); + <FONT COLOR=green><EM>-- This is the Field_Check_Function for the internal low-level types</EM></FONT> + <FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT> + <FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level validation</EM></FONT> + <FONT COLOR=green><EM>-- function.</EM></FONT> + + <b>function</b> Char_Check_Router (<FONT COLOR=red><A NAME="187_32">Ch</A></FONT> : C_Int; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#186_13"> </A> Usr : System.Address) <b>return</b> C_Int; + <b>pragma</b> Convention (C, Char_Check_Router); + <FONT COLOR=green><EM>-- This is the Char_Check_Function for the internal low-level types</EM></FONT> + <FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT> + <FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level validation</EM></FONT> + <FONT COLOR=green><EM>-- function.</EM></FONT> + + <b>function</b> Next_Router (<FONT COLOR=red><A NAME="195_26">Fld</A></FONT> : Field; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#194_13">Usr</A> : System.Address) <b>return</b> C_Int; + <b>pragma</b> Convention (C, Next_Router); + <FONT COLOR=green><EM>-- This is the Choice_Function for the internal low-level types</EM></FONT> + <FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT> + <FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level next_choice</EM></FONT> + <FONT COLOR=green><EM>-- function.</EM></FONT> + + <b>function</b> Prev_Router (<FONT COLOR=red><A NAME="203_26">Fld</A></FONT> : Field; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#202_13">Usr</A> : System.Address) <b>return</b> C_Int; + <b>pragma</b> Convention (C, Prev_Router); + <FONT COLOR=green><EM>-- This is the Choice_Function for the internal low-level types</EM></FONT> + <FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT> + <FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level prev_choice</EM></FONT> + <FONT COLOR=green><EM>-- function.</EM></FONT> + + <FONT COLOR=green><EM>-- This is the Argument structure maintained by all low-level field types</EM></FONT> + <FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT> + <b>type</b> Argument <b>is</b> <b>record</b> + <FONT COLOR=red><A NAME="214_7">Typ</A></FONT> : Field_Type_Access; <FONT COLOR=green><EM>-- the Field_Type creating this record</EM></FONT> + <FONT COLOR=red><A NAME="215_7">Usr</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9">System</A>.Address; <FONT COLOR=green><EM>-- original arg for builtin low-level types</EM></FONT> + Cft : C_Field_Type; <FONT COLOR=green><EM>-- the original low-level type</EM></FONT> + <b>end</b> <b>record</b>; + <b>type</b> Argument_Access <b>is</b> <b>access</b> <b>all</b> Argument; + + <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- | Some Imports of libform routines to deal with low-level fieldtypes.</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> New_Fieldtype (<FONT COLOR=red><A NAME="224_28">Fcheck</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#109_9">Field_Check_Function</A>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#133_9"> </A> Ccheck : Char_Check_Function) + <b>return</b> C_Field_Type; + <b>pragma</b> Import (C, New_Fieldtype, "new_fieldtype"); + + <b>function</b> Set_Fieldtype_Arg (<FONT COLOR=red><A NAME="229_32">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#93_9">C_Field_Type</A>; + <FONT COLOR=red><A NAME="230_32">Mak</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#97_9">Makearg_Function</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#168_13">Make_Arg</A>'<b>Access</b>; + <FONT COLOR=red><A NAME="231_32">Cop</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#101_9">Copyarg_Function</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#173_14">Copy_Arg</A>'<b>Access</b>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12"> </A> Fre : Freearg_Function := Free_Arg'<b>Access</b>) + <b>return</b> C_Int; + <b>pragma</b> Import (C, Set_Fieldtype_Arg, "set_fieldtype_arg"); + + <b>function</b> Set_Fieldtype_Choice (<FONT COLOR=red><A NAME="236_35">Cft</A></FONT> : <FONT COLOR=red><A NAME="236_41">C_Field_Type</A></FONT>; + <A HREF="terminal_interface-curses-forms-field_types__ads.htm#47_12"> </A> Next, Prev : Choice_Function) + <b>return</b> C_Int; + <b>pragma</b> Import (C, Set_Fieldtype_Choice, "set_fieldtype_choice"); + +<b>end</b> Terminal_Interface.Curses.Forms.Field_Types; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_user_data__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_user_data__adb.htm new file mode 100644 index 0000000..a281121 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_user_data__adb.htm @@ -0,0 +1,91 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_user_data.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_user_data.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_User_Data --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.11 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<FONT COLOR=green><EM>-- |</EM></FONT> +<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> +<FONT COLOR=green><EM>-- | man page form_field_userptr.3x</EM></FONT> +<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> +<FONT COLOR=green><EM>-- |</EM></FONT> +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#46_41">Field_User_Data</A> <b>is</b> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#54_14">Set_User_Data</A><FONT COLOR=red><A NAME="55_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#54_29">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#55_29">Data</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#45_9">User_Access</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="58_16">Set_Field_Userptr</A></FONT> (<FONT COLOR=red><A NAME="58_35">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="59_35">Usr</A></FONT> : <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#45_9">User_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#58_16">Set_Field_Userptr</A>, "set_field_userptr"); + + <FONT COLOR=red><A NAME="62_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#58_16">Set_Field_Userptr</A> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#54_29">Fld</A>, <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#55_29">Data</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#62_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#62_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_User_Data; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#65_13">Get_User_Data</A><FONT COLOR=red><A NAME="71_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#65_28">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#45_9">User_Access</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="73_16">Field_Userptr</A></FONT> (<FONT COLOR=red><A NAME="73_31">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#45_9">User_Access</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#73_16">Field_Userptr</A>, "field_userptr"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#73_16">Field_Userptr</A> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#65_28">Fld</A>); + <b>end</b> Get_User_Data; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#60_14">Get_User_Data</A><FONT COLOR=red><A NAME="79_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#60_29">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#61_29">Data</A> : <b>out</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#45_9">User_Access</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#61_29">Data</A> := <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#65_13">Get_User_Data</A> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#60_29">Fld</A>); + <b>end</b> Get_User_Data; + +<b>end</b> Terminal_Interface.Curses.Forms.Field_User_Data; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_user_data__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_user_data__ads.htm new file mode 100644 index 0000000..3cfc919 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-field_user_data__ads.htm @@ -0,0 +1,76 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_user_data.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_user_data.ads </H1></DIV><HR> +<PRE> + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_User_Data --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.14 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + +<b>generic</b> + <b>type</b> <FONT COLOR=red><A NAME="45_9">User</A></FONT> <b>is</b> <b>limited</b> <b>private</b>; + <b>type</b> <A HREF="terminal_interface__ads.htm#42_9">User_Access</A> <b>is</b> <b>access</b> User<A HREF="terminal_interface-curses-forms__ads.htm#49_35">;</A> +<b>package</b> Terminal_Interface.Curses.Forms.Field_User_Data <b>is</b> + <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Forms.Field_User_Data); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_userptr.3x.html">form_field_userptr.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> + <b>procedure</b> Set_User_Data (<FONT COLOR=red><A NAME="55_29">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#45_9">Field</A>; + Data : <b>in</b> User_Access); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_userptr.3x.html">set_field_userptr</A></EM></FONT> + <b>pragma</b> Inline (Set_User_Data); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> + <b>procedure</b> Get_User_Data (<FONT COLOR=red><A NAME="61_29">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#45_9">Field</A>; + Data : <b>out</b> User_Access); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_userptr.3x.html">field_userptr</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> + <b>function</b> Get_User_Data (Fld : <b>in</b> Field) <b>return</b> User_Access; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_userptr.3x.html">field_userptr</A></EM></FONT> + <FONT COLOR=green><EM>-- Sama as function</EM></FONT> + <b>pragma</b> Inline (Get_User_Data); + +<b>end</b> Terminal_Interface.Curses.Forms.Field_User_Data; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-form_user_data__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-form_user_data__adb.htm new file mode 100644 index 0000000..ec9dc99 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-form_user_data__adb.htm @@ -0,0 +1,92 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-form_user_data.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-form_user_data.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Form_User_Data --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.11 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- |</EM></FONT> +<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> +<FONT COLOR=green><EM>-- | man page form__userptr.3x</EM></FONT> +<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> +<FONT COLOR=green><EM>-- |</EM></FONT> +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#46_41">Form_User_Data</A> <b>is</b> + + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#54_14">Set_User_Data</A><FONT COLOR=red><A NAME="56_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#54_29">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#55_29">Data</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#45_9">User_Access</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="59_16">Set_Form_Userptr</A></FONT> (<FONT COLOR=red><A NAME="59_34">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <FONT COLOR=red><A NAME="60_34">Data</A></FONT> : <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#45_9">User_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#59_16">Set_Form_Userptr</A>, "set_form_userptr"); + + <FONT COLOR=red><A NAME="63_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#59_16">Set_Form_Userptr</A> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#54_29">Frm</A>, <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#55_29">Data</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#63_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#63_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_User_Data; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#65_13">Get_User_Data</A><FONT COLOR=red><A NAME="72_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#65_28">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#45_9">User_Access</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="74_16">Form_Userptr</A></FONT> (<FONT COLOR=red><A NAME="74_30">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#45_9">User_Access</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#74_16">Form_Userptr</A>, "form_userptr"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#74_16">Form_Userptr</A> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#65_28">Frm</A>); + <b>end</b> Get_User_Data; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#60_14">Get_User_Data</A><FONT COLOR=red><A NAME="80_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#60_29">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#61_29">Data</A> : <b>out</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#45_9">User_Access</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#61_29">Data</A> := <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#65_13">Get_User_Data</A> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#60_29">Frm</A>); + <b>end</b> Get_User_Data; + +<b>end</b> Terminal_Interface.Curses.Forms.Form_User_Data; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-form_user_data__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-form_user_data__ads.htm new file mode 100644 index 0000000..8f74852 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms-form_user_data__ads.htm @@ -0,0 +1,76 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms-form_user_data.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-form_user_data.ads </H1></DIV><HR> +<PRE> + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Form_User_Data --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.13 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + +<b>generic</b> + <b>type</b> <FONT COLOR=red><A NAME="45_9">User</A></FONT> <b>is</b> <b>limited</b> <b>private</b>; + <b>type</b> <A HREF="terminal_interface__ads.htm#42_9">User_Access</A> <b>is</b> <b>access</b> User<A HREF="terminal_interface-curses-forms__ads.htm#49_35">;</A> +<b>package</b> Terminal_Interface.Curses.Forms.Form_User_Data <b>is</b> + <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Forms.Form_User_Data); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_userptr.3x.html">form_userptr.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> + <b>procedure</b> Set_User_Data (<FONT COLOR=red><A NAME="55_29">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#45_9">Form</A>; + Data : <b>in</b> User_Access); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_userptr.3x.html">set_form_userptr</A></EM></FONT> + <b>pragma</b> Inline (Set_User_Data); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> + <b>procedure</b> Get_User_Data (<FONT COLOR=red><A NAME="61_29">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#45_9">Form</A>; + Data : <b>out</b> User_Access); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_userptr.3x.html">form_userptr</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> + <b>function</b> Get_User_Data (Frm : <b>in</b> Form) <b>return</b> User_Access; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_userptr.3x.html">form_userptr</A></EM></FONT> + <FONT COLOR=green><EM>-- Same as function</EM></FONT> + <b>pragma</b> Inline (Get_User_Data); + +<b>end</b> Terminal_Interface.Curses.Forms.Form_User_Data; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms__adb.htm new file mode 100644 index 0000000..3454322 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms__adb.htm @@ -0,0 +1,1166 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.21 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> Ada.Unchecked_Deallocation; +<b>with</b> Ada.Unchecked_Conversion; + +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Pointers; + +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#49_35">Forms</A><FONT COLOR=red><A NAME="51_40"></A></FONT> <b>is</b> + + <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + + <b>type</b> <FONT COLOR=red><A NAME="55_9">C_Field_Array</A></FONT> <b>is</b> <b>array</b> (Natural <b>range</b> <>) <b>of</b> <b>aliased</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <b>package</b> <FONT COLOR=red><A NAME="56_12">F_Array</A></FONT> <b>is</b> <b>new</b> + <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Pointers (Natural, <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>, <A HREF="terminal_interface-curses-forms__adb.htm#55_9">C_Field_Array</A>, <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Field</A>); + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- subtype chars_ptr is Interfaces.C.Strings.chars_ptr;</EM></FONT> + + <b>function</b> <FONT COLOR=red><A NAME="65_13">FOS_2_CInt</A></FONT> <b>is</b> <b>new</b> + Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-forms__ads.htm#68_9">Field_Option_Set</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>); + + <b>function</b> <FONT COLOR=red><A NAME="69_13">CInt_2_FOS</A></FONT> <b>is</b> <b>new</b> + Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>, + <A HREF="terminal_interface-curses-forms__ads.htm#68_9">Field_Option_Set</A>); + + <b>function</b> <FONT COLOR=red><A NAME="73_13">FrmOS_2_CInt</A></FONT> <b>is</b> <b>new</b> + Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-forms__ads.htm#108_9">Form_Option_Set</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>); + + <b>function</b> <FONT COLOR=red><A NAME="77_13">CInt_2_FrmOS</A></FONT> <b>is</b> <b>new</b> + Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>, + <A HREF="terminal_interface-curses-forms__ads.htm#108_9">Form_Option_Set</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#279_14">Request_Name</A><FONT COLOR=red><A NAME="81_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#279_28">Key</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#280_28">Name</A> : <b>out</b> String) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="84_16">Form_Request_Name</A></FONT> (<FONT COLOR=red><A NAME="84_35">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#84_16">Form_Request_Name</A>, "form_request_name"); + <b>begin</b> + <A HREF="terminal_interface-curses-aux__ads.htm#117_14">Fill_String</A> (<A HREF="terminal_interface-curses-forms__adb.htm#84_16">Form_Request_Name</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#279_28">Key</A>)), <A HREF="terminal_interface-curses-forms__ads.htm#280_28">Name</A>); + <b>end</b> Request_Name; + + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#282_14">Request_Name</A><FONT COLOR=red><A NAME="90_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#282_28">Key</A> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A>) <b>return</b> String + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="92_16">Form_Request_Name</A></FONT> (<FONT COLOR=red><A NAME="92_35">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#92_16">Form_Request_Name</A>, "form_request_name"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A> (<A HREF="terminal_interface-curses-forms__adb.htm#92_16">Form_Request_Name</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#282_28">Key</A>))); + <b>end</b> Request_Name; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_field_new.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#296_13">Create</A><FONT COLOR=red><A NAME="108_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#296_21">Height</A> : <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#297_21">Width</A> : <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#298_21">Top</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#299_21">Left</A> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#300_21">Off_Screen</A> : Natural := 0; + <A HREF="terminal_interface-curses-forms__ads.htm#301_21">More_Buffers</A> : <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Buffer_Number</A>'First) + <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="116_16">Newfield</A></FONT> (<FONT COLOR=red><A NAME="116_26">H</A></FONT>, <FONT COLOR=red><A NAME="116_29">W</A></FONT>, <FONT COLOR=red><A NAME="116_32">T</A></FONT>, <FONT COLOR=red><A NAME="116_35">L</A></FONT>, <FONT COLOR=red><A NAME="116_38">O</A></FONT>, <FONT COLOR=red><A NAME="116_41">M</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#116_16">Newfield</A>, "new_field"); + <FONT COLOR=red><A NAME="118_7">Fld</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#116_16">Newfield</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#296_21">Height</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#297_21">Width</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#298_21">Top</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#299_21">Left</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#300_21">Off_Screen</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#301_21">More_Buffers</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#118_7">Fld</A> = <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Field</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#118_7">Fld</A>; + <b>end</b> Create; +<FONT COLOR=green><EM>-- |</EM></FONT> +<FONT COLOR=green><EM>-- |</EM></FONT> +<FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#318_14">Delete</A><FONT COLOR=red><A NAME="131_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#318_22">Fld</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="133_16">Free_Field</A></FONT> (<FONT COLOR=red><A NAME="133_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#133_16">Free_Field</A>, "free_field"); + + <FONT COLOR=red><A NAME="136_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-forms__adb.htm#136_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#133_16">Free_Field</A> (<A HREF="terminal_interface-curses-forms__ads.htm#318_22">Fld</A>); + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#136_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#136_7">Res</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms__ads.htm#318_22">Fld</A> := <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Field</A>; + <b>end</b> Delete; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#324_13">Duplicate</A><FONT COLOR=red><A NAME="147_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#324_24">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#325_24">Top</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#326_24">Left</A> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="151_16">Dup_Field</A></FONT> (<FONT COLOR=red><A NAME="151_27">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="152_27">Top</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="153_27">Left</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#151_16">Dup_Field</A>, "dup_field"); + + <FONT COLOR=red><A NAME="156_7">F</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#151_16">Dup_Field</A> (<A HREF="terminal_interface-curses-forms__ads.htm#324_24">Fld</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#325_24">Top</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#326_24">Left</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#156_7">F</A> = <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Field</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#156_7">F</A>; + <b>end</b> Duplicate; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#331_13">Link</A><FONT COLOR=red><A NAME="168_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#331_19">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#332_19">Top</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#333_19">Left</A> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="172_16">Lnk_Field</A></FONT> (<FONT COLOR=red><A NAME="172_27">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="173_27">Top</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="174_27">Left</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#172_16">Lnk_Field</A>, "link_field"); + + <FONT COLOR=red><A NAME="177_7">F</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#172_16">Lnk_Field</A> (<A HREF="terminal_interface-curses-forms__ads.htm#331_19">Fld</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#332_19">Top</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#333_19">Left</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#177_7">F</A> = <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Field</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#177_7">F</A>; + <b>end</b> Link; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_field_just.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#342_14">Set_Justification</A><FONT COLOR=red><A NAME="193_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#342_33">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#343_33">Just</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#62_9">Field_Justification</A> := <A HREF="terminal_interface-curses-forms__ads.htm#62_33">None</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="196_16">Set_Field_Just</A></FONT> (<FONT COLOR=red><A NAME="196_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="197_32">Just</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#196_16">Set_Field_Just</A>, "set_field_just"); + + <FONT COLOR=red><A NAME="200_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := + <A HREF="terminal_interface-curses-forms__adb.htm#196_16">Set_Field_Just</A> (<A HREF="terminal_interface-curses-forms__ads.htm#342_33">Fld</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#62_9">Field_Justification</A>'Pos (<A HREF="terminal_interface-curses-forms__ads.htm#343_33">Just</A>))); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#200_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#200_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Justification; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#348_13">Get_Justification</A><FONT COLOR=red><A NAME="211_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#348_32">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#62_9">Field_Justification</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="213_16">Field_Just</A></FONT> (<FONT COLOR=red><A NAME="213_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#213_16">Field_Just</A>, "field_just"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#62_9">Field_Justification</A>'Val (<A HREF="terminal_interface-curses-forms__adb.htm#213_16">Field_Just</A> (<A HREF="terminal_interface-curses-forms__ads.htm#348_32">Fld</A>)); + <b>end</b> Get_Justification; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_field_buffer.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#357_14">Set_Buffer</A><FONT COLOR=red><A NAME="225_14"></A></FONT> + (<A HREF="terminal_interface-curses-forms__ads.htm#358_7">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#359_7">Buffer</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Buffer_Number</A>'First; + <A HREF="terminal_interface-curses-forms__ads.htm#360_7">Str</A> : <b>in</b> String) + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="230_12">Char_Ptr</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char; + <b>function</b> <FONT COLOR=red><A NAME="231_16">Set_Fld_Buffer</A></FONT> (<FONT COLOR=red><A NAME="231_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="232_34">Bufnum</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="233_34">S</A></FONT> : <A HREF="terminal_interface-curses-forms__adb.htm#230_12">Char_Ptr</A>) + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#231_16">Set_Fld_Buffer</A>, "set_field_buffer"); + + <FONT COLOR=red><A NAME="237_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-forms__ads.htm#360_7">Str</A>'Length); + <FONT COLOR=red><A NAME="238_7">Len</A></FONT> : size_t; + <FONT COLOR=red><A NAME="239_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses-forms__ads.htm#360_7">Str</A>, <A HREF="terminal_interface-curses-forms__adb.htm#237_7">Txt</A>, <A HREF="terminal_interface-curses-forms__adb.htm#238_7">Len</A>); + <A HREF="terminal_interface-curses-forms__adb.htm#239_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#231_16">Set_Fld_Buffer</A> (<A HREF="terminal_interface-curses-forms__ads.htm#358_7">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#359_7">Buffer</A>), <A HREF="terminal_interface-curses-forms__adb.htm#237_7">Txt</A> (<A HREF="terminal_interface-curses-forms__adb.htm#237_7">Txt</A>'First)'<b>Access</b>); + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#239_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#239_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Buffer; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#365_14">Get_Buffer</A><FONT COLOR=red><A NAME="250_14"></A></FONT> + (<A HREF="terminal_interface-curses-forms__ads.htm#366_7">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#367_7">Buffer</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Buffer_Number</A>'First; + <A HREF="terminal_interface-curses-forms__ads.htm#368_7">Str</A> : <b>out</b> String) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="255_16">Field_Buffer</A></FONT> (<FONT COLOR=red><A NAME="255_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="256_30">B</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#255_16">Field_Buffer</A>, "field_buffer"); + <b>begin</b> + <A HREF="terminal_interface-curses-aux__ads.htm#117_14">Fill_String</A> (<A HREF="terminal_interface-curses-forms__adb.htm#255_16">Field_Buffer</A> (<A HREF="terminal_interface-curses-forms__ads.htm#366_7">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#367_7">Buffer</A>)), <A HREF="terminal_interface-curses-forms__ads.htm#368_7">Str</A>); + <b>end</b> Get_Buffer; + + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#371_13">Get_Buffer</A><FONT COLOR=red><A NAME="262_13"></A></FONT> + (<A HREF="terminal_interface-curses-forms__ads.htm#372_7">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#373_7">Buffer</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Buffer_Number</A>'First) <b>return</b> String + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="266_16">Field_Buffer</A></FONT> (<FONT COLOR=red><A NAME="266_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="267_30">B</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#266_16">Field_Buffer</A>, "field_buffer"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A> (<A HREF="terminal_interface-curses-forms__adb.htm#266_16">Field_Buffer</A> (<A HREF="terminal_interface-curses-forms__ads.htm#372_7">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#373_7">Buffer</A>))); + <b>end</b> Get_Buffer; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#379_14">Set_Status</A><FONT COLOR=red><A NAME="275_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#379_26">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#380_26">Status</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="278_16">Set_Fld_Status</A></FONT> (<FONT COLOR=red><A NAME="278_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="279_32">St</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#278_16">Set_Fld_Status</A>, "set_field_status"); + + <FONT COLOR=red><A NAME="282_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#278_16">Set_Fld_Status</A> (<A HREF="terminal_interface-curses-forms__ads.htm#379_26">Fld</A>, Boolean'Pos (<A HREF="terminal_interface-curses-forms__ads.htm#380_26">Status</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#282_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Status; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#385_13">Changed</A><FONT COLOR=red><A NAME="291_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#385_22">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="293_16">Field_Status</A></FONT> (<FONT COLOR=red><A NAME="293_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#293_16">Field_Status</A>, "field_status"); + + <FONT COLOR=red><A NAME="296_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#293_16">Field_Status</A> (<A HREF="terminal_interface-curses-forms__ads.htm#385_22">Fld</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#296_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#76_4">Curses_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Changed; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#390_14">Set_Maximum_Size</A><FONT COLOR=red><A NAME="307_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#390_32">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#391_32">Max</A> : <b>in</b> Natural := 0) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="310_16">Set_Field_Max</A></FONT> (<FONT COLOR=red><A NAME="310_31">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="311_31">M</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#310_16">Set_Field_Max</A>, "set_max_field"); + + <FONT COLOR=red><A NAME="314_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#310_16">Set_Field_Max</A> (<A HREF="terminal_interface-curses-forms__ads.htm#390_32">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#391_32">Max</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#314_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#314_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Maximum_Size; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_field_opts.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#400_14">Set_Options</A><FONT COLOR=red><A NAME="327_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#400_27">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#401_27">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#68_9">Field_Option_Set</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="330_16">Set_Field_Opts</A></FONT> (<FONT COLOR=red><A NAME="330_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="331_32">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#330_16">Set_Field_Opts</A>, "set_field_opts"); + + <FONT COLOR=red><A NAME="334_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#65_13">FOS_2_CInt</A> (<A HREF="terminal_interface-curses-forms__ads.htm#401_27">Options</A>); + <FONT COLOR=red><A NAME="335_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-forms__adb.htm#335_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#330_16">Set_Field_Opts</A> (<A HREF="terminal_interface-curses-forms__ads.htm#400_27">Fld</A>, <A HREF="terminal_interface-curses-forms__adb.htm#334_7">Opt</A>); + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#335_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#335_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Options; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#406_14">Switch_Options</A><FONT COLOR=red><A NAME="345_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#406_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#407_30">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#68_9">Field_Option_Set</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#408_30">On</A> : Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="349_16">Field_Opts_On</A></FONT> (<FONT COLOR=red><A NAME="349_31">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="350_31">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#349_16">Field_Opts_On</A>, "field_opts_on"); + <b>function</b> <FONT COLOR=red><A NAME="352_16">Field_Opts_Off</A></FONT> (<FONT COLOR=red><A NAME="352_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="353_32">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#352_16">Field_Opts_Off</A>, "field_opts_off"); + + <FONT COLOR=red><A NAME="356_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <FONT COLOR=red><A NAME="357_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#65_13">FOS_2_CInt</A> (<A HREF="terminal_interface-curses-forms__ads.htm#407_30">Options</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__ads.htm#408_30">On</A> <b>then</b> + <A HREF="terminal_interface-curses-forms__adb.htm#356_7">Err</A> := <A HREF="terminal_interface-curses-forms__adb.htm#349_16">Field_Opts_On</A> (<A HREF="terminal_interface-curses-forms__ads.htm#406_30">Fld</A>, <A HREF="terminal_interface-curses-forms__adb.htm#357_7">Opt</A>); + <b>else</b> + <A HREF="terminal_interface-curses-forms__adb.htm#356_7">Err</A> := <A HREF="terminal_interface-curses-forms__adb.htm#352_16">Field_Opts_Off</A> (<A HREF="terminal_interface-curses-forms__ads.htm#406_30">Fld</A>, <A HREF="terminal_interface-curses-forms__adb.htm#357_7">Opt</A>); + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#356_7">Err</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#356_7">Err</A>); + <b>end</b> <b>if</b>; + <b>end</b> Switch_Options; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#414_14">Get_Options</A><FONT COLOR=red><A NAME="371_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#414_27">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#415_27">Options</A> : <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#68_9">Field_Option_Set</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="374_16">Field_Opts</A></FONT> (<FONT COLOR=red><A NAME="374_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#374_16">Field_Opts</A>, "field_opts"); + + <FONT COLOR=red><A NAME="377_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#374_16">Field_Opts</A> (<A HREF="terminal_interface-curses-forms__ads.htm#414_27">Fld</A>); + <b>begin</b> + <A HREF="terminal_interface-curses-forms__ads.htm#415_27">Options</A> := <A HREF="terminal_interface-curses-forms__adb.htm#69_13">CInt_2_FOS</A> (<A HREF="terminal_interface-curses-forms__adb.htm#377_7">Res</A>); + <b>end</b> Get_Options; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#419_13">Get_Options</A><FONT COLOR=red><A NAME="384_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#419_26">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Field</A>) + <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#68_9">Field_Option_Set</A> + <b>is</b> + <FONT COLOR=red><A NAME="387_7">Fos</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#68_9">Field_Option_Set</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-forms__ads.htm#414_14">Get_Options</A> (<A HREF="terminal_interface-curses-forms__ads.htm#419_26">Fld</A>, <A HREF="terminal_interface-curses-forms__adb.htm#387_7">Fos</A>); + <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#387_7">Fos</A>; + <b>end</b> Get_Options; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_field_attributes.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#429_14">Set_Foreground</A><FONT COLOR=red><A NAME="399_14"></A></FONT> + (<A HREF="terminal_interface-curses-forms__ads.htm#430_7">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#431_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#432_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="404_16">Set_Field_Fore</A></FONT> (<FONT COLOR=red><A NAME="404_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="405_32">Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#404_16">Set_Field_Fore</A>, "set_field_fore"); + + <FONT COLOR=red><A NAME="408_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := (Ch => Character'First, + Color => <A HREF="terminal_interface-curses-forms__ads.htm#432_7">Color</A>, + Attr => <A HREF="terminal_interface-curses-forms__ads.htm#431_7">Fore</A>); + <FONT COLOR=red><A NAME="411_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := + <A HREF="terminal_interface-curses-forms__adb.htm#404_16">Set_Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#430_7">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses-forms__adb.htm#408_7">Ch</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#411_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#411_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Foreground; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#437_14">Foreground</A><FONT COLOR=red><A NAME="421_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#437_26">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#438_26">Fore</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="424_16">Field_Fore</A></FONT> (<FONT COLOR=red><A NAME="424_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#424_16">Field_Fore</A>, "field_fore"); + <b>begin</b> + <A HREF="terminal_interface-curses-forms__ads.htm#438_26">Fore</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#424_16">Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#437_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#354_10">Attr</A>; + <b>end</b> Foreground; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#442_14">Foreground</A><FONT COLOR=red><A NAME="430_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#442_26">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#443_26">Fore</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#444_26">Color</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="434_16">Field_Fore</A></FONT> (<FONT COLOR=red><A NAME="434_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#434_16">Field_Fore</A>, "field_fore"); + <b>begin</b> + <A HREF="terminal_interface-curses-forms__ads.htm#443_26">Fore</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#434_16">Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#442_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#354_10">Attr</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#444_26">Color</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#434_16">Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#442_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#355_10">Color</A>; + <b>end</b> Foreground; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#449_14">Set_Background</A><FONT COLOR=red><A NAME="443_14"></A></FONT> + (<A HREF="terminal_interface-curses-forms__ads.htm#450_7">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#451_7">Back</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#452_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="448_16">Set_Field_Back</A></FONT> (<FONT COLOR=red><A NAME="448_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="449_32">Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#448_16">Set_Field_Back</A>, "set_field_back"); + + <FONT COLOR=red><A NAME="452_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := (Ch => Character'First, + Color => <A HREF="terminal_interface-curses-forms__ads.htm#452_7">Color</A>, + Attr => <A HREF="terminal_interface-curses-forms__ads.htm#451_7">Back</A>); + <FONT COLOR=red><A NAME="455_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := + <A HREF="terminal_interface-curses-forms__adb.htm#448_16">Set_Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#450_7">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses-forms__adb.htm#452_7">Ch</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#455_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#455_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Background; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#457_14">Background</A><FONT COLOR=red><A NAME="465_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#457_26">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#458_26">Back</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="468_16">Field_Back</A></FONT> (<FONT COLOR=red><A NAME="468_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#468_16">Field_Back</A>, "field_back"); + <b>begin</b> + <A HREF="terminal_interface-curses-forms__ads.htm#458_26">Back</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#468_16">Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#457_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#354_10">Attr</A>; + <b>end</b> Background; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#462_14">Background</A><FONT COLOR=red><A NAME="474_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#462_26">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#463_26">Back</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#464_26">Color</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="478_16">Field_Back</A></FONT> (<FONT COLOR=red><A NAME="478_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#478_16">Field_Back</A>, "field_back"); + <b>begin</b> + <A HREF="terminal_interface-curses-forms__ads.htm#463_26">Back</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#478_16">Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#462_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#354_10">Attr</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#464_26">Color</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#478_16">Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#462_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#355_10">Color</A>; + <b>end</b> Background; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#469_14">Set_Pad_Character</A><FONT COLOR=red><A NAME="487_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#469_33">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#470_33">Pad</A> : <b>in</b> Character := <A HREF="terminal_interface-curses-forms__ads.htm#54_4">Space</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="490_16">Set_Field_Pad</A></FONT> (<FONT COLOR=red><A NAME="490_31">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="491_31">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#490_16">Set_Field_Pad</A>, "set_field_pad"); + + <FONT COLOR=red><A NAME="494_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#490_16">Set_Field_Pad</A> (<A HREF="terminal_interface-curses-forms__ads.htm#469_33">Fld</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (Character'Pos (<A HREF="terminal_interface-curses-forms__ads.htm#470_33">Pad</A>))); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#494_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#494_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Pad_Character; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#475_14">Pad_Character</A><FONT COLOR=red><A NAME="504_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#475_29">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#476_29">Pad</A> : <b>out</b> Character) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="507_16">Field_Pad</A></FONT> (<FONT COLOR=red><A NAME="507_27">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#507_16">Field_Pad</A>, "field_pad"); + <b>begin</b> + <A HREF="terminal_interface-curses-forms__ads.htm#476_29">Pad</A> := Character'Val (<A HREF="terminal_interface-curses-forms__adb.htm#507_16">Field_Pad</A> (<A HREF="terminal_interface-curses-forms__ads.htm#475_29">Fld</A>)); + <b>end</b> Pad_Character; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_field_info.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#485_14">Info</A><FONT COLOR=red><A NAME="519_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#485_20">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#486_20">Lines</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#487_20">Columns</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#488_20">First_Row</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#489_20">First_Column</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#490_20">Off_Screen</A> : <b>out</b> Natural; + <A HREF="terminal_interface-curses-forms__ads.htm#491_20">Additional_Buffers</A> : <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Buffer_Number</A>) + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="527_12">C_Int_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>function</b> <FONT COLOR=red><A NAME="528_16">Fld_Info</A></FONT> (<FONT COLOR=red><A NAME="528_26">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <FONT COLOR=red><A NAME="529_26">L</A></FONT>, <FONT COLOR=red><A NAME="529_29">C</A></FONT>, <FONT COLOR=red><A NAME="529_32">Fr</A></FONT>, <FONT COLOR=red><A NAME="529_36">Fc</A></FONT>, <FONT COLOR=red><A NAME="529_40">Os</A></FONT>, <FONT COLOR=red><A NAME="529_44">Ab</A></FONT> : <A HREF="terminal_interface-curses-forms__adb.htm#527_12">C_Int_Access</A>) + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#528_16">Fld_Info</A>, "field_info"); + + <FONT COLOR=red><A NAME="533_7">L</A></FONT>, <FONT COLOR=red><A NAME="533_10">C</A></FONT>, <FONT COLOR=red><A NAME="533_13">Fr</A></FONT>, <FONT COLOR=red><A NAME="533_17">Fc</A></FONT>, <FONT COLOR=red><A NAME="533_21">Os</A></FONT>, <FONT COLOR=red><A NAME="533_25">Ab</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="534_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#528_16">Fld_Info</A> (<A HREF="terminal_interface-curses-forms__ads.htm#485_20">Fld</A>, + <A HREF="terminal_interface-curses-forms__adb.htm#533_7">L</A>'<b>Access</b>, <A HREF="terminal_interface-curses-forms__adb.htm#533_10">C</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms__adb.htm#533_13">Fr</A>'<b>Access</b>, <A HREF="terminal_interface-curses-forms__adb.htm#533_17">Fc</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms__adb.htm#533_21">Os</A>'<b>Access</b>, <A HREF="terminal_interface-curses-forms__adb.htm#533_25">Ab</A>'<b>Access</b>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#534_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#534_7">Res</A>); + <b>else</b> + <A HREF="terminal_interface-curses-forms__ads.htm#486_20">Lines</A> := <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A> (<A HREF="terminal_interface-curses-forms__adb.htm#533_7">L</A>); + <A HREF="terminal_interface-curses-forms__ads.htm#487_20">Columns</A> := <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A> (<A HREF="terminal_interface-curses-forms__adb.htm#533_10">C</A>); + <A HREF="terminal_interface-curses-forms__ads.htm#488_20">First_Row</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> (<A HREF="terminal_interface-curses-forms__adb.htm#533_13">Fr</A>); + <A HREF="terminal_interface-curses-forms__ads.htm#489_20">First_Column</A> := <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A> (<A HREF="terminal_interface-curses-forms__adb.htm#533_17">Fc</A>); + <A HREF="terminal_interface-curses-forms__ads.htm#490_20">Off_Screen</A> := Natural (<A HREF="terminal_interface-curses-forms__adb.htm#533_21">Os</A>); + <A HREF="terminal_interface-curses-forms__ads.htm#491_20">Additional_Buffers</A> := <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Buffer_Number</A> (<A HREF="terminal_interface-curses-forms__adb.htm#533_25">Ab</A>); + <b>end</b> <b>if</b>; + <b>end</b> Info; +<FONT COLOR=green><EM>-- |</EM></FONT> +<FONT COLOR=green><EM>-- |</EM></FONT> +<FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#496_14">Dynamic_Info</A><FONT COLOR=red><A NAME="553_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#496_28">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#497_28">Lines</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#498_28">Columns</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#499_28">Max</A> : <b>out</b> Natural) + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="558_12">C_Int_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>function</b> <FONT COLOR=red><A NAME="559_16">Dyn_Info</A></FONT> (<FONT COLOR=red><A NAME="559_26">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; <FONT COLOR=red><A NAME="559_39">L</A></FONT>, <FONT COLOR=red><A NAME="559_42">C</A></FONT>, <FONT COLOR=red><A NAME="559_45">M</A></FONT> : <A HREF="terminal_interface-curses-forms__adb.htm#558_12">C_Int_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#559_16">Dyn_Info</A>, "dynamic_field_info"); + + <FONT COLOR=red><A NAME="562_7">L</A></FONT>, <FONT COLOR=red><A NAME="562_10">C</A></FONT>, <FONT COLOR=red><A NAME="562_13">M</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="563_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#559_16">Dyn_Info</A> (<A HREF="terminal_interface-curses-forms__ads.htm#496_28">Fld</A>, + <A HREF="terminal_interface-curses-forms__adb.htm#562_7">L</A>'<b>Access</b>, <A HREF="terminal_interface-curses-forms__adb.htm#562_10">C</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-forms__adb.htm#562_13">M</A>'<b>Access</b>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#563_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#563_7">Res</A>); + <b>else</b> + <A HREF="terminal_interface-curses-forms__ads.htm#497_28">Lines</A> := <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A> (<A HREF="terminal_interface-curses-forms__adb.htm#562_7">L</A>); + <A HREF="terminal_interface-curses-forms__ads.htm#498_28">Columns</A> := <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A> (<A HREF="terminal_interface-curses-forms__adb.htm#562_10">C</A>); + <A HREF="terminal_interface-curses-forms__ads.htm#499_28">Max</A> := Natural (<A HREF="terminal_interface-curses-forms__adb.htm#562_13">M</A>); + <b>end</b> <b>if</b>; + <b>end</b> Dynamic_Info; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_win.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#508_14">Set_Window</A><FONT COLOR=red><A NAME="582_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#508_26">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#509_26">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="585_16">Set_Form_Win</A></FONT> (<FONT COLOR=red><A NAME="585_30">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <FONT COLOR=red><A NAME="586_30">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#585_16">Set_Form_Win</A>, "set_form_win"); + + <FONT COLOR=red><A NAME="589_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#585_16">Set_Form_Win</A> (<A HREF="terminal_interface-curses-forms__ads.htm#508_26">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#509_26">Win</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#589_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#589_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Window; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#514_13">Get_Window</A><FONT COLOR=red><A NAME="598_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#514_25">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="600_16">Form_Win</A></FONT> (<FONT COLOR=red><A NAME="600_26">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#600_16">Form_Win</A>, "form_win"); + + <FONT COLOR=red><A NAME="603_7">W</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses-forms__adb.htm#600_16">Form_Win</A> (<A HREF="terminal_interface-curses-forms__ads.htm#514_25">Frm</A>); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#603_7">W</A>; + <b>end</b> Get_Window; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#519_14">Set_Sub_Window</A><FONT COLOR=red><A NAME="610_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#519_30">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#520_30">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="613_16">Set_Form_Sub</A></FONT> (<FONT COLOR=red><A NAME="613_30">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <FONT COLOR=red><A NAME="614_30">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#613_16">Set_Form_Sub</A>, "set_form_sub"); + + <FONT COLOR=red><A NAME="617_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#613_16">Set_Form_Sub</A> (<A HREF="terminal_interface-curses-forms__ads.htm#519_30">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#520_30">Win</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#617_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#617_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Sub_Window; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#525_13">Get_Sub_Window</A><FONT COLOR=red><A NAME="626_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#525_29">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="628_16">Form_Sub</A></FONT> (<FONT COLOR=red><A NAME="628_26">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#628_16">Form_Sub</A>, "form_sub"); + + <FONT COLOR=red><A NAME="631_7">W</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses-forms__adb.htm#628_16">Form_Sub</A> (<A HREF="terminal_interface-curses-forms__ads.htm#525_29">Frm</A>); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#631_7">W</A>; + <b>end</b> Get_Sub_Window; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#530_14">Scale</A><FONT COLOR=red><A NAME="638_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#530_21">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#531_21">Lines</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#532_21">Columns</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>) + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="642_12">C_Int_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>function</b> <FONT COLOR=red><A NAME="643_16">M_Scale</A></FONT> (<FONT COLOR=red><A NAME="643_25">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; <FONT COLOR=red><A NAME="643_37">Yp</A></FONT>, <FONT COLOR=red><A NAME="643_41">Xp</A></FONT> : <A HREF="terminal_interface-curses-forms__adb.htm#642_12">C_Int_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#643_16">M_Scale</A>, "scale_form"); + + <FONT COLOR=red><A NAME="646_7">X</A></FONT>, <FONT COLOR=red><A NAME="646_10">Y</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="647_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#643_16">M_Scale</A> (<A HREF="terminal_interface-curses-forms__ads.htm#530_21">Frm</A>, <A HREF="terminal_interface-curses-forms__adb.htm#646_10">Y</A>'<b>Access</b>, <A HREF="terminal_interface-curses-forms__adb.htm#646_7">X</A>'<b>Access</b>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#647_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#647_7">Res</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms__ads.htm#531_21">Lines</A> := <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A> (<A HREF="terminal_interface-curses-forms__adb.htm#646_10">Y</A>); + <A HREF="terminal_interface-curses-forms__ads.htm#532_21">Columns</A> := <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A> (<A HREF="terminal_interface-curses-forms__adb.htm#646_7">X</A>); + <b>end</b> Scale; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page menu_hook.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#544_14">Set_Field_Init_Hook</A><FONT COLOR=red><A NAME="662_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#544_35">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#545_35">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#540_9">Form_Hook_Function</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="665_16">Set_Field_Init</A></FONT> (<FONT COLOR=red><A NAME="665_32">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <FONT COLOR=red><A NAME="666_32">Proc</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#540_9">Form_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#665_16">Set_Field_Init</A>, "set_field_init"); + + <FONT COLOR=red><A NAME="669_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#665_16">Set_Field_Init</A> (<A HREF="terminal_interface-curses-forms__ads.htm#544_35">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#545_35">Proc</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#669_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#669_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Field_Init_Hook; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#550_14">Set_Field_Term_Hook</A><FONT COLOR=red><A NAME="678_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#550_35">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#551_35">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#540_9">Form_Hook_Function</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="681_16">Set_Field_Term</A></FONT> (<FONT COLOR=red><A NAME="681_32">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <FONT COLOR=red><A NAME="682_32">Proc</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#540_9">Form_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#681_16">Set_Field_Term</A>, "set_field_term"); + + <FONT COLOR=red><A NAME="685_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#681_16">Set_Field_Term</A> (<A HREF="terminal_interface-curses-forms__ads.htm#550_35">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#551_35">Proc</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#685_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#685_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Field_Term_Hook; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#556_14">Set_Form_Init_Hook</A><FONT COLOR=red><A NAME="694_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#556_34">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#557_34">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#540_9">Form_Hook_Function</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="697_16">Set_Form_Init</A></FONT> (<FONT COLOR=red><A NAME="697_31">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <FONT COLOR=red><A NAME="698_31">Proc</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#540_9">Form_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#697_16">Set_Form_Init</A>, "set_form_init"); + + <FONT COLOR=red><A NAME="701_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#697_16">Set_Form_Init</A> (<A HREF="terminal_interface-curses-forms__ads.htm#556_34">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#557_34">Proc</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#701_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#701_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Form_Init_Hook; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#562_14">Set_Form_Term_Hook</A><FONT COLOR=red><A NAME="710_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#562_34">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#563_34">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#540_9">Form_Hook_Function</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="713_16">Set_Form_Term</A></FONT> (<FONT COLOR=red><A NAME="713_31">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <FONT COLOR=red><A NAME="714_31">Proc</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#540_9">Form_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#713_16">Set_Form_Term</A>, "set_form_term"); + + <FONT COLOR=red><A NAME="717_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#713_16">Set_Form_Term</A> (<A HREF="terminal_interface-curses-forms__ads.htm#562_34">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#563_34">Proc</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#717_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#717_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Form_Term_Hook; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_fields.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#592_14">Redefine</A><FONT COLOR=red><A NAME="730_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#592_24">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#593_24">Flds</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#136_9">Field_Array_Access</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="733_16">Set_Frm_Fields</A></FONT> (<FONT COLOR=red><A NAME="733_32">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <FONT COLOR=red><A NAME="734_32">Items</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#733_16">Set_Frm_Fields</A>, "set_form_fields"); + + <FONT COLOR=red><A NAME="737_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms__ads.htm#593_24">Flds</A> (<A HREF="terminal_interface-curses-forms__ads.htm#593_24">Flds</A>'Last) = <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Field</A>); + <b>if</b> <A HREF="terminal_interface-curses-forms__ads.htm#593_24">Flds</A> (<A HREF="terminal_interface-curses-forms__ads.htm#593_24">Flds</A>'Last) /= <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Field</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses-forms__adb.htm#737_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#733_16">Set_Frm_Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#592_24">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#593_24">Flds</A> (<A HREF="terminal_interface-curses-forms__ads.htm#593_24">Flds</A>'First)'Address); + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#737_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#737_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <b>end</b> Redefine; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#604_13">Fields</A><FONT COLOR=red><A NAME="752_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#604_21">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#605_21">Index</A> : Positive) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> + <b>is</b> + <b>use</b> <A HREF="terminal_interface-curses-forms__adb.htm#56_12">F_Array</A>; + + <b>function</b> <FONT COLOR=red><A NAME="757_16">C_Fields</A></FONT> (<FONT COLOR=red><A NAME="757_26">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> Pointer; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#757_16">C_Fields</A>, "form_fields"); + + <FONT COLOR=red><A NAME="760_7">P</A></FONT> : Pointer := <A HREF="terminal_interface-curses-forms__adb.htm#757_16">C_Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#604_21">Frm</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#760_7">P</A> = <b>null</b> <b>or</b> <b>else</b> <A HREF="terminal_interface-curses-forms__ads.htm#605_21">Index</A> <b>not</b> <b>in</b> 1 .. <A HREF="terminal_interface-curses-forms__ads.htm#610_13">Field_Count</A> (<A HREF="terminal_interface-curses-forms__ads.htm#604_21">Frm</A>) <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses-forms__adb.htm#760_7">P</A> := <A HREF="terminal_interface-curses-forms__adb.htm#760_7">P</A> + ptrdiff_t (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#605_21">Index</A>) - 1); + <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#760_7">P</A>.<b>all</b>; + <b>end</b> <b>if</b>; + <b>end</b> Fields; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#610_13">Field_Count</A><FONT COLOR=red><A NAME="772_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#610_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> Natural + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="774_16">Count</A></FONT> (<FONT COLOR=red><A NAME="774_23">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#774_16">Count</A>, "field_count"); + <b>begin</b> + <b>return</b> Natural (<A HREF="terminal_interface-curses-forms__adb.htm#774_16">Count</A> (<A HREF="terminal_interface-curses-forms__ads.htm#610_26">Frm</A>)); + <b>end</b> Field_Count; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#615_14">Move</A><FONT COLOR=red><A NAME="782_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#615_20">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#616_20">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#617_20">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="786_16">Move</A></FONT> (<FONT COLOR=red><A NAME="786_22">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; <FONT COLOR=red><A NAME="786_35">L</A></FONT>, <FONT COLOR=red><A NAME="786_38">C</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#786_16">Move</A>, "move_field"); + + <FONT COLOR=red><A NAME="789_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#786_16">Move</A> (<A HREF="terminal_interface-curses-forms__ads.htm#615_20">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#616_20">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#617_20">Column</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#789_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#789_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Move; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_new.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#626_13">Create</A><FONT COLOR=red><A NAME="802_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#626_21">Fields</A> : <A HREF="terminal_interface-curses-forms__ads.htm#136_9">Field_Array_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="804_16">NewForm</A></FONT> (<FONT COLOR=red><A NAME="804_25">Fields</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#804_16">NewForm</A>, "new_form"); + + <FONT COLOR=red><A NAME="807_7">M</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <b>begin</b> + <b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms__ads.htm#626_21">Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#626_21">Fields</A>'Last) = <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Field</A>); + <b>if</b> <A HREF="terminal_interface-curses-forms__ads.htm#626_21">Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#626_21">Fields</A>'Last) /= <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Field</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses-forms__adb.htm#807_7">M</A> := <A HREF="terminal_interface-curses-forms__adb.htm#804_16">NewForm</A> (<A HREF="terminal_interface-curses-forms__ads.htm#626_21">Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#626_21">Fields</A>'First)'Address); + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#807_7">M</A> = <A HREF="terminal_interface-curses-forms__ads.htm#60_4">Null_Form</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#807_7">M</A>; + <b>end</b> <b>if</b>; + <b>end</b> Create; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#637_14">Delete</A><FONT COLOR=red><A NAME="823_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#637_22">Frm</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="825_16">Free</A></FONT> (<FONT COLOR=red><A NAME="825_22">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#825_16">Free</A>, "free_form"); + + <FONT COLOR=red><A NAME="828_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#825_16">Free</A> (<A HREF="terminal_interface-curses-forms__ads.htm#637_22">Frm</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#828_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#828_7">Res</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms__ads.htm#637_22">Frm</A> := <A HREF="terminal_interface-curses-forms__ads.htm#60_4">Null_Form</A>; + <b>end</b> Delete; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_opts.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#647_14">Set_Options</A><FONT COLOR=red><A NAME="842_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#647_27">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#648_27">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#108_9">Form_Option_Set</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="845_16">Set_Form_Opts</A></FONT> (<FONT COLOR=red><A NAME="845_31">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <FONT COLOR=red><A NAME="846_31">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#845_16">Set_Form_Opts</A>, "set_form_opts"); + + <FONT COLOR=red><A NAME="849_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#73_13">FrmOS_2_CInt</A> (<A HREF="terminal_interface-curses-forms__ads.htm#648_27">Options</A>); + <FONT COLOR=red><A NAME="850_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-forms__adb.htm#850_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#845_16">Set_Form_Opts</A> (<A HREF="terminal_interface-curses-forms__ads.htm#647_27">Frm</A>, <A HREF="terminal_interface-curses-forms__adb.htm#849_7">Opt</A>); + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#850_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#850_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Options; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#653_14">Switch_Options</A><FONT COLOR=red><A NAME="860_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#653_30">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#654_30">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#108_9">Form_Option_Set</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#655_30">On</A> : Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="864_16">Form_Opts_On</A></FONT> (<FONT COLOR=red><A NAME="864_30">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <FONT COLOR=red><A NAME="865_30">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#864_16">Form_Opts_On</A>, "form_opts_on"); + <b>function</b> <FONT COLOR=red><A NAME="867_16">Form_Opts_Off</A></FONT> (<FONT COLOR=red><A NAME="867_31">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <FONT COLOR=red><A NAME="868_31">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#867_16">Form_Opts_Off</A>, "form_opts_off"); + + <FONT COLOR=red><A NAME="871_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <FONT COLOR=red><A NAME="872_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#73_13">FrmOS_2_CInt</A> (<A HREF="terminal_interface-curses-forms__ads.htm#654_30">Options</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__ads.htm#655_30">On</A> <b>then</b> + <A HREF="terminal_interface-curses-forms__adb.htm#871_7">Err</A> := <A HREF="terminal_interface-curses-forms__adb.htm#864_16">Form_Opts_On</A> (<A HREF="terminal_interface-curses-forms__ads.htm#653_30">Frm</A>, <A HREF="terminal_interface-curses-forms__adb.htm#872_7">Opt</A>); + <b>else</b> + <A HREF="terminal_interface-curses-forms__adb.htm#871_7">Err</A> := <A HREF="terminal_interface-curses-forms__adb.htm#867_16">Form_Opts_Off</A> (<A HREF="terminal_interface-curses-forms__ads.htm#653_30">Frm</A>, <A HREF="terminal_interface-curses-forms__adb.htm#872_7">Opt</A>); + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#871_7">Err</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#871_7">Err</A>); + <b>end</b> <b>if</b>; + <b>end</b> Switch_Options; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#661_14">Get_Options</A><FONT COLOR=red><A NAME="886_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#661_27">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#662_27">Options</A> : <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#108_9">Form_Option_Set</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="889_16">Form_Opts</A></FONT> (<FONT COLOR=red><A NAME="889_27">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#889_16">Form_Opts</A>, "form_opts"); + + <FONT COLOR=red><A NAME="892_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#889_16">Form_Opts</A> (<A HREF="terminal_interface-curses-forms__ads.htm#661_27">Frm</A>); + <b>begin</b> + <A HREF="terminal_interface-curses-forms__ads.htm#662_27">Options</A> := <A HREF="terminal_interface-curses-forms__adb.htm#77_13">CInt_2_FrmOS</A> (<A HREF="terminal_interface-curses-forms__adb.htm#892_7">Res</A>); + <b>end</b> Get_Options; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#666_13">Get_Options</A><FONT COLOR=red><A NAME="899_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#666_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A> := <A HREF="terminal_interface-curses-forms__ads.htm#60_4">Null_Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#108_9">Form_Option_Set</A> + <b>is</b> + <FONT COLOR=red><A NAME="901_7">Fos</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#108_9">Form_Option_Set</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-forms__ads.htm#661_14">Get_Options</A> (<A HREF="terminal_interface-curses-forms__ads.htm#666_26">Frm</A>, <A HREF="terminal_interface-curses-forms__adb.htm#901_7">Fos</A>); + <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#901_7">Fos</A>; + <b>end</b> Get_Options; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_post.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#675_14">Post</A><FONT COLOR=red><A NAME="913_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#675_20">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#676_20">Post</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="916_16">M_Post</A></FONT> (<FONT COLOR=red><A NAME="916_24">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#916_16">M_Post</A>, "post_form"); + <b>function</b> <FONT COLOR=red><A NAME="918_16">M_Unpost</A></FONT> (<FONT COLOR=red><A NAME="918_26">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#918_16">M_Unpost</A>, "unpost_form"); + + <FONT COLOR=red><A NAME="921_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__ads.htm#676_20">Post</A> <b>then</b> + <A HREF="terminal_interface-curses-forms__adb.htm#921_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#916_16">M_Post</A> (<A HREF="terminal_interface-curses-forms__ads.htm#675_20">Frm</A>); + <b>else</b> + <A HREF="terminal_interface-curses-forms__adb.htm#921_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#918_16">M_Unpost</A> (<A HREF="terminal_interface-curses-forms__ads.htm#675_20">Frm</A>); + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#921_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#921_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Post; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_cursor.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#686_14">Position_Cursor</A><FONT COLOR=red><A NAME="939_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#686_31">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="941_16">Pos_Form_Cursor</A></FONT> (<FONT COLOR=red><A NAME="941_33">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#941_16">Pos_Form_Cursor</A>, "pos_form_cursor"); + + <FONT COLOR=red><A NAME="944_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#941_16">Pos_Form_Cursor</A> (<A HREF="terminal_interface-curses-forms__ads.htm#686_31">Frm</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#944_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#944_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Position_Cursor; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_data.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#695_13">Data_Ahead</A><FONT COLOR=red><A NAME="957_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#695_25">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="959_16">Ahead</A></FONT> (<FONT COLOR=red><A NAME="959_23">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#959_16">Ahead</A>, "data_ahead"); + + <FONT COLOR=red><A NAME="962_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#959_16">Ahead</A> (<A HREF="terminal_interface-curses-forms__ads.htm#695_25">Frm</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#962_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#76_4">Curses_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Data_Ahead; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#700_13">Data_Behind</A><FONT COLOR=red><A NAME="973_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#700_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="975_16">Behind</A></FONT> (<FONT COLOR=red><A NAME="975_24">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#975_16">Behind</A>, "data_behind"); + + <FONT COLOR=red><A NAME="978_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#975_16">Behind</A> (<A HREF="terminal_interface-curses-forms__ads.htm#700_26">Frm</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#978_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#76_4">Curses_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Data_Behind; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_driver.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#714_13">Driver</A><FONT COLOR=red><A NAME="993_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#714_21">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#715_21">Key</A> : <A HREF="terminal_interface-curses__ads.htm#68_9">Key_Code</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#708_9">Driver_Result</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="996_16">Frm_Driver</A></FONT> (<FONT COLOR=red><A NAME="996_28">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; <FONT COLOR=red><A NAME="996_40">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#996_16">Frm_Driver</A>, "form_driver"); + + <FONT COLOR=red><A NAME="999_7">R</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#996_16">Frm_Driver</A> (<A HREF="terminal_interface-curses-forms__ads.htm#714_21">Frm</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#715_21">Key</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#999_7">R</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#999_7">R</A> = <A HREF="terminal_interface-curses-aux__ads.htm#89_4">E_Unknown_Command</A> <b>then</b> + <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#710_27">Unknown_Request</A>; + <b>elsif</b> <A HREF="terminal_interface-curses-forms__adb.htm#999_7">R</A> = <A HREF="terminal_interface-curses-aux__ads.htm#94_4">E_Invalid_Field</A> <b>then</b> + <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#711_27">Invalid_Field</A>; + <b>elsif</b> <A HREF="terminal_interface-curses-forms__adb.htm#999_7">R</A> = <A HREF="terminal_interface-curses-aux__ads.htm#93_4">E_Request_Denied</A> <b>then</b> + <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#709_27">Request_Denied</A>; + <b>else</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#999_7">R</A>); + <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#708_27">Form_Ok</A>; + <b>end</b> <b>if</b>; + <b>else</b> + <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#708_27">Form_Ok</A>; + <b>end</b> <b>if</b>; + <b>end</b> Driver; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_page.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#726_14">Set_Current</A><FONT COLOR=red><A NAME="1023_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#726_27">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#727_27">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1026_16">Set_Current_Fld</A></FONT> (<FONT COLOR=red><A NAME="1026_33">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; <FONT COLOR=red><A NAME="1026_45">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#1026_16">Set_Current_Fld</A>, "set_current_field"); + + <FONT COLOR=red><A NAME="1029_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#1026_16">Set_Current_Fld</A> (<A HREF="terminal_interface-curses-forms__ads.htm#726_27">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#727_27">Fld</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#1029_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#1029_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Current; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#732_13">Current</A><FONT COLOR=red><A NAME="1038_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#732_22">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1040_16">Current_Fld</A></FONT> (<FONT COLOR=red><A NAME="1040_29">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#1040_16">Current_Fld</A>, "current_field"); + + <FONT COLOR=red><A NAME="1043_7">Fld</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#1040_16">Current_Fld</A> (<A HREF="terminal_interface-curses-forms__ads.htm#732_22">Frm</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#1043_7">Fld</A> = <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Field</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#1043_7">Fld</A>; + <b>end</b> Current; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#737_14">Set_Page</A><FONT COLOR=red><A NAME="1053_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#737_24">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#738_24">Page</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#723_9">Page_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#723_9">Page_Number</A>'First) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1056_16">Set_Frm_Page</A></FONT> (<FONT COLOR=red><A NAME="1056_30">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>; <FONT COLOR=red><A NAME="1056_42">Pg</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#1056_16">Set_Frm_Page</A>, "set_form_page"); + + <FONT COLOR=red><A NAME="1059_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#1056_16">Set_Frm_Page</A> (<A HREF="terminal_interface-curses-forms__ads.htm#737_24">Frm</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#738_24">Page</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#1059_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#1059_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Page; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#743_13">Page</A><FONT COLOR=red><A NAME="1068_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#743_19">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#723_9">Page_Number</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1070_16">Get_Page</A></FONT> (<FONT COLOR=red><A NAME="1070_26">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#1070_16">Get_Page</A>, "form_page"); + + <FONT COLOR=red><A NAME="1073_7">P</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#1070_16">Get_Page</A> (<A HREF="terminal_interface-curses-forms__ads.htm#743_19">Frm</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#1073_7">P</A> < 0 <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>else</b> + <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#723_9">Page_Number</A> (<A HREF="terminal_interface-curses-forms__adb.htm#1073_7">P</A>); + <b>end</b> <b>if</b>; + <b>end</b> Page; + + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#748_13">Get_Index</A><FONT COLOR=red><A NAME="1082_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#748_24">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> Positive + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1084_16">Get_Fieldindex</A></FONT> (<FONT COLOR=red><A NAME="1084_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#1084_16">Get_Fieldindex</A>, "field_index"); + + <FONT COLOR=red><A NAME="1087_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#1084_16">Get_Fieldindex</A> (<A HREF="terminal_interface-curses-forms__ads.htm#748_24">Fld</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#1087_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#289_4">Form_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> Positive (Natural (<A HREF="terminal_interface-curses-forms__adb.htm#1087_7">Res</A>) + Positive'First); + <b>end</b> Get_Index; + + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | man page form_new_page.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#760_14">Set_New_Page</A><FONT COLOR=red><A NAME="1102_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#760_28">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#761_28">New_Page</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1105_16">Set_Page</A></FONT> (<FONT COLOR=red><A NAME="1105_26">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; <FONT COLOR=red><A NAME="1105_39">Flg</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#1105_16">Set_Page</A>, "set_new_page"); + + <FONT COLOR=red><A NAME="1108_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#1105_16">Set_Page</A> (<A HREF="terminal_interface-curses-forms__ads.htm#760_28">Fld</A>, Boolean'Pos (<A HREF="terminal_interface-curses-forms__ads.htm#761_28">New_Page</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#1108_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#1108_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_New_Page; + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#766_13">Is_New_Page</A><FONT COLOR=red><A NAME="1117_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#766_26">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1119_16">Is_New</A></FONT> (<FONT COLOR=red><A NAME="1119_24">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#1119_16">Is_New</A>, "new_page"); + + <FONT COLOR=red><A NAME="1122_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#1119_16">Is_New</A> (<A HREF="terminal_interface-curses-forms__ads.htm#766_26">Fld</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#1122_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#76_4">Curses_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Is_New_Page; + + <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#138_14">Free</A><FONT COLOR=red><A NAME="1131_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#138_20">FA</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#136_9">Field_Array_Access</A>; + <A HREF="terminal_interface-curses-forms__ads.htm#139_20">Free_Fields</A> : <b>in</b> Boolean := False) + <b>is</b> + <b>procedure</b> <FONT COLOR=red><A NAME="1134_17">Release</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Deallocation + (<A HREF="terminal_interface-curses-forms__ads.htm#133_9">Field_Array</A>, <A HREF="terminal_interface-curses-forms__ads.htm#136_9">Field_Array_Access</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-forms__ads.htm#138_20">FA</A> /= <b>null</b> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms__ads.htm#139_20">Free_Fields</A> <b>then</b> + <b>for</b> <FONT COLOR=red><A NAME="1138_14">I</A></FONT> <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#138_20">FA</A>'First .. (<A HREF="terminal_interface-curses-forms__ads.htm#138_20">FA</A>'Last - 1) <b>loop</b> + <b>if</b> (<A HREF="terminal_interface-curses-forms__ads.htm#138_20">FA</A> (<A HREF="terminal_interface-curses-forms__adb.htm#1138_14">I</A>) /= <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Field</A>) <b>then</b> + <A HREF="terminal_interface-curses-forms__ads.htm#318_14">Delete</A> (<A HREF="terminal_interface-curses-forms__ads.htm#138_20">FA</A> (<A HREF="terminal_interface-curses-forms__adb.htm#1138_14">I</A>)); + <b>end</b> <b>if</b>; + <b>end</b> <b>loop</b>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-forms__adb.htm#1134_17">Release</A> (<A HREF="terminal_interface-curses-forms__ads.htm#138_20">FA</A>); + <b>end</b> Free; + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#103_13">Default_Field_Options</A><FONT COLOR=red><A NAME="1149_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#68_9">Field_Option_Set</A> + <b>is</b> + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#419_13">Get_Options</A> (<A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Field</A>); + <b>end</b> Default_Field_Options; + + <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#127_13">Default_Form_Options</A><FONT COLOR=red><A NAME="1155_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#108_9">Form_Option_Set</A> + <b>is</b> + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#666_13">Get_Options</A> (<A HREF="terminal_interface-curses-forms__ads.htm#60_4">Null_Form</A>); + <b>end</b> Default_Form_Options; + +<b>end</b> Terminal_Interface.Curses.Forms; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms__ads.htm new file mode 100644 index 0000000..b3e25ec --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-forms__ads.htm @@ -0,0 +1,789 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-forms.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms.ads </H1></DIV><HR> +<PRE> + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Form --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.26 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- form binding.</EM></FONT> +<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT> +<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT> +<FONT COLOR=green><EM>-- |</EM></FONT> +<b>with</b> System; +<b>with</b> Ada.Characters.Latin_1; + +<b>package</b> Terminal_Interface.Curses.Forms <b>is</b> + <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Forms); + <b>pragma</b> Linker_Options ("-lform"); + <b>pragma</b> Linker_Options ("-lncurses"); + + Space : Character <b>renames</b> Ada.Characters.Latin_1.Space; + + <b>type</b> <FONT COLOR=red><A NAME="57_9">Field</A></FONT> <b>is</b> <b>private</b>; + <b>type</b> Form <b>is</b> <b>private</b>; + + <FONT COLOR=red><A NAME="60_4">Null_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Field</A>; + Null_Form : <b>constant</b> Form; + + <b>type</b> Field_Justification <b>is</b> (<FONT COLOR=red><A NAME="63_33">None</A></FONT>, + <FONT COLOR=red><A NAME="64_33">Left</A></FONT>, + <FONT COLOR=red><A NAME="65_33">Center</A></FONT>, + Right); + + <b>pragma</b> Warnings (Off); + <b>type</b> Field_Option_Set <b>is</b> + <b>record</b> + <FONT COLOR=red><A NAME="71_10">Visible</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="72_10">Active</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="73_10">Public</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="74_10">Edit</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="75_10">Wrap</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="76_10">Blank</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="77_10">Auto_Skip</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="78_10">Null_Ok</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="79_10">Pass_Ok</A></FONT> : Boolean; + Static : Boolean; + <b>end</b> <b>record</b><A HREF="terminal_interface-curses-forms__ads.htm#68_9">;</A> + <b>pragma</b> Pack (Field_Option_Set); + <b>pragma</b> Convention (C, Field_Option_Set); + + <b>for</b> Field_Option_Set <b>use</b> + <b>record</b> + Visible <b>at</b> 0 <b>range</b> 0 .. 0; + Active <b>at</b> 0 <b>range</b> 1 .. 1; + Public <b>at</b> 0 <b>range</b> 2 .. 2; + Edit <b>at</b> 0 <b>range</b> 3 .. 3; + Wrap <b>at</b> 0 <b>range</b> 4 .. 4; + Blank <b>at</b> 0 <b>range</b> 5 .. 5; + Auto_Skip <b>at</b> 0 <b>range</b> 6 .. 6; + Null_Ok <b>at</b> 0 <b>range</b> 7 .. 7; + Pass_Ok <b>at</b> 0 <b>range</b> 8 .. 8; + Static <b>at</b> 0 <b>range</b> 9 .. 9; + <b>end</b> <b>record</b>; + <b>for</b> Field_Option_Set'Size <b>use</b> 32; + <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> + <FONT COLOR=green><EM>-- different on your system.Dnl</EM></FONT> + + <b>pragma</b> Warnings (On); + + <b>function</b> Default_Field_Options <b>return</b> Field_Option_Set; + <FONT COLOR=green><EM>-- The initial defaults for the field options.</EM></FONT> + <b>pragma</b> Inline (Default_Field_Options); + + <b>pragma</b> Warnings (Off); + <b>type</b> Form_Option_Set <b>is</b> + <b>record</b> + <FONT COLOR=red><A NAME="111_10">NL_Overload</A></FONT> : Boolean; + BS_Overload : Boolean; + <b>end</b> <b>record</b><A HREF="terminal_interface-curses-forms__ads.htm#108_9">;</A> + <b>pragma</b> Pack (Form_Option_Set); + <b>pragma</b> Convention (C, Form_Option_Set); + + <b>for</b> Form_Option_Set <b>use</b> + <b>record</b> + NL_Overload <b>at</b> 0 <b>range</b> 0 .. 0; + BS_Overload <b>at</b> 0 <b>range</b> 1 .. 1; + <b>end</b> <b>record</b>; + <b>for</b> Form_Option_Set'Size <b>use</b> 32; + <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> + <FONT COLOR=green><EM>-- different on your system.Dnl</EM></FONT> + + <b>pragma</b> Warnings (On); + + <b>function</b> Default_Form_Options <b>return</b> Form_Option_Set; + <FONT COLOR=green><EM>-- The initial defaults for the form options.</EM></FONT> + <b>pragma</b> Inline (Default_Form_Options); + + <b>type</b> Buffer_Number <b>is</b> <b>new</b> Natural; + + <b>type</b> Field_Array <b>is</b> <b>array</b> (Positive <b>range</b> <>) <b>of</b> <b>aliased</b> Field; + <b>pragma</b> Convention (C, Field_Array); + + <b>type</b> Field_Array_Access <b>is</b> <b>access</b> Field_Array; + + <b>procedure</b> Free (<FONT COLOR=red><A NAME="139_20">FA</A></FONT> : <b>in</b> <b>out</b> Field_Array_Access; + Free_Fields : <b>in</b> Boolean := False); + <FONT COLOR=green><EM>-- Release the memory for an allocated field array</EM></FONT> + <FONT COLOR=green><EM>-- If Free_Fields is True, call Delete() for all the fields in</EM></FONT> + <FONT COLOR=green><EM>-- the array.</EM></FONT> + + <b>subtype</b> Form_Request_Code <b>is</b> Key_Code <b>range</b> (Key_Max + 1) .. (Key_Max + 57); + + <FONT COLOR=green><EM>-- The prefix F_ stands for "Form Request"</EM></FONT> + <FONT COLOR=red><A NAME="148_4">F_Next_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 1; + <FONT COLOR=red><A NAME="149_4">F_Previous_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 2; + <FONT COLOR=red><A NAME="150_4">F_First_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 3; + F_Last_Page : <b>constant</b> Form_Request_Code := Key_Max + 4; + + <FONT COLOR=red><A NAME="153_4">F_Next_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 5; + <FONT COLOR=red><A NAME="154_4">F_Previous_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 6; + <FONT COLOR=red><A NAME="155_4">F_First_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 7; + <FONT COLOR=red><A NAME="156_4">F_Last_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 8; + <FONT COLOR=red><A NAME="157_4">F_Sorted_Next_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 9; + <FONT COLOR=red><A NAME="158_4">F_Sorted_Previous_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 10; + <FONT COLOR=red><A NAME="159_4">F_Sorted_First_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 11; + <FONT COLOR=red><A NAME="160_4">F_Sorted_Last_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 12; + <FONT COLOR=red><A NAME="161_4">F_Left_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 13; + <FONT COLOR=red><A NAME="162_4">F_Right_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 14; + <FONT COLOR=red><A NAME="163_4">F_Up_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 15; + F_Down_Field : <b>constant</b> Form_Request_Code := Key_Max + 16; + + <FONT COLOR=red><A NAME="166_4">F_Next_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 17; + <FONT COLOR=red><A NAME="167_4">F_Previous_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 18; + <FONT COLOR=red><A NAME="168_4">F_Next_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 19; + <FONT COLOR=red><A NAME="169_4">F_Previous_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 20; + <FONT COLOR=red><A NAME="170_4">F_Next_Word</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 21; + <FONT COLOR=red><A NAME="171_4">F_Previous_Word</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 22; + <FONT COLOR=red><A NAME="172_4">F_Begin_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 23; + <FONT COLOR=red><A NAME="173_4">F_End_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 24; + <FONT COLOR=red><A NAME="174_4">F_Begin_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 25; + <FONT COLOR=red><A NAME="175_4">F_End_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 26; + <FONT COLOR=red><A NAME="176_4">F_Left_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 27; + <FONT COLOR=red><A NAME="177_4">F_Right_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 28; + <FONT COLOR=red><A NAME="178_4">F_Up_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 29; + F_Down_Char : <b>constant</b> Form_Request_Code := Key_Max + 30; + + <FONT COLOR=red><A NAME="181_4">F_New_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 31; + <FONT COLOR=red><A NAME="182_4">F_Insert_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 32; + <FONT COLOR=red><A NAME="183_4">F_Insert_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 33; + <FONT COLOR=red><A NAME="184_4">F_Delete_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 34; + <FONT COLOR=red><A NAME="185_4">F_Delete_Previous</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 35; + <FONT COLOR=red><A NAME="186_4">F_Delete_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 36; + <FONT COLOR=red><A NAME="187_4">F_Delete_Word</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 37; + <FONT COLOR=red><A NAME="188_4">F_Clear_EOL</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 38; + <FONT COLOR=red><A NAME="189_4">F_Clear_EOF</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 39; + <FONT COLOR=red><A NAME="190_4">F_Clear_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 40; + <FONT COLOR=red><A NAME="191_4">F_Overlay_Mode</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 41; + F_Insert_Mode : <b>constant</b> Form_Request_Code := Key_Max + 42; + + <FONT COLOR=green><EM>-- Vertical Scrolling</EM></FONT> + <FONT COLOR=red><A NAME="195_4">F_ScrollForward_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 43; + <FONT COLOR=red><A NAME="196_4">F_ScrollBackward_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 44; + <FONT COLOR=red><A NAME="197_4">F_ScrollForward_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 45; + <FONT COLOR=red><A NAME="198_4">F_ScrollBackward_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 46; + <FONT COLOR=red><A NAME="199_4">F_ScrollForward_HalfPage</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 47; + F_ScrollBackward_HalfPage : <b>constant</b> Form_Request_Code := Key_Max + 48; + + <FONT COLOR=green><EM>-- Horizontal Scrolling</EM></FONT> + <FONT COLOR=red><A NAME="203_4">F_HScrollForward_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 49; + <FONT COLOR=red><A NAME="204_4">F_HScrollBackward_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 50; + <FONT COLOR=red><A NAME="205_4">F_HScrollForward_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 51; + <FONT COLOR=red><A NAME="206_4">F_HScrollBackward_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 52; + <FONT COLOR=red><A NAME="207_4">F_HScrollForward_HalfLine</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 53; + F_HScrollBackward_HalfLine : <b>constant</b> Form_Request_Code := Key_Max + 54; + + <FONT COLOR=red><A NAME="210_4">F_Validate_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 55; + <FONT COLOR=red><A NAME="211_4">F_Next_Choice</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 56; + F_Previous_Choice : <b>constant</b> Form_Request_Code := Key_Max + 57; + + <FONT COLOR=green><EM>-- For those who like the old 'C' style request names</EM></FONT> + <FONT COLOR=red><A NAME="215_4">REQ_NEXT_PAGE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#148_4">F_Next_Page</A>; + <FONT COLOR=red><A NAME="216_4">REQ_PREV_PAGE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#149_4">F_Previous_Page</A>; + <FONT COLOR=red><A NAME="217_4">REQ_FIRST_PAGE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#150_4">F_First_Page</A>; + REQ_LAST_PAGE : Form_Request_Code <b>renames</b> F_Last_Page; + + <FONT COLOR=red><A NAME="220_4">REQ_NEXT_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#153_4">F_Next_Field</A>; + <FONT COLOR=red><A NAME="221_4">REQ_PREV_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#154_4">F_Previous_Field</A>; + <FONT COLOR=red><A NAME="222_4">REQ_FIRST_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#155_4">F_First_Field</A>; + <FONT COLOR=red><A NAME="223_4">REQ_LAST_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#156_4">F_Last_Field</A>; + <FONT COLOR=red><A NAME="224_4">REQ_SNEXT_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#157_4">F_Sorted_Next_Field</A>; + <FONT COLOR=red><A NAME="225_4">REQ_SPREV_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#158_4">F_Sorted_Previous_Field</A>; + <FONT COLOR=red><A NAME="226_4">REQ_SFIRST_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#159_4">F_Sorted_First_Field</A>; + <FONT COLOR=red><A NAME="227_4">REQ_SLAST_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#160_4">F_Sorted_Last_Field</A>; + <FONT COLOR=red><A NAME="228_4">REQ_LEFT_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#161_4">F_Left_Field</A>; + <FONT COLOR=red><A NAME="229_4">REQ_RIGHT_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#162_4">F_Right_Field</A>; + <FONT COLOR=red><A NAME="230_4">REQ_UP_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#163_4">F_Up_Field</A>; + REQ_DOWN_FIELD : Form_Request_Code <b>renames</b> F_Down_Field; + + <FONT COLOR=red><A NAME="233_4">REQ_NEXT_CHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#166_4">F_Next_Char</A>; + <FONT COLOR=red><A NAME="234_4">REQ_PREV_CHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#167_4">F_Previous_Char</A>; + <FONT COLOR=red><A NAME="235_4">REQ_NEXT_LINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#168_4">F_Next_Line</A>; + <FONT COLOR=red><A NAME="236_4">REQ_PREV_LINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#169_4">F_Previous_Line</A>; + <FONT COLOR=red><A NAME="237_4">REQ_NEXT_WORD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#170_4">F_Next_Word</A>; + <FONT COLOR=red><A NAME="238_4">REQ_PREV_WORD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#171_4">F_Previous_Word</A>; + <FONT COLOR=red><A NAME="239_4">REQ_BEG_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#172_4">F_Begin_Field</A>; + <FONT COLOR=red><A NAME="240_4">REQ_END_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#173_4">F_End_Field</A>; + <FONT COLOR=red><A NAME="241_4">REQ_BEG_LINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#174_4">F_Begin_Line</A>; + <FONT COLOR=red><A NAME="242_4">REQ_END_LINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#175_4">F_End_Line</A>; + <FONT COLOR=red><A NAME="243_4">REQ_LEFT_CHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#176_4">F_Left_Char</A>; + <FONT COLOR=red><A NAME="244_4">REQ_RIGHT_CHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#177_4">F_Right_Char</A>; + <FONT COLOR=red><A NAME="245_4">REQ_UP_CHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#178_4">F_Up_Char</A>; + REQ_DOWN_CHAR : Form_Request_Code <b>renames</b> F_Down_Char; + + <FONT COLOR=red><A NAME="248_4">REQ_NEW_LINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#181_4">F_New_Line</A>; + <FONT COLOR=red><A NAME="249_4">REQ_INS_CHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#182_4">F_Insert_Char</A>; + <FONT COLOR=red><A NAME="250_4">REQ_INS_LINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#183_4">F_Insert_Line</A>; + <FONT COLOR=red><A NAME="251_4">REQ_DEL_CHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#184_4">F_Delete_Char</A>; + <FONT COLOR=red><A NAME="252_4">REQ_DEL_PREV</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#185_4">F_Delete_Previous</A>; + <FONT COLOR=red><A NAME="253_4">REQ_DEL_LINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#186_4">F_Delete_Line</A>; + <FONT COLOR=red><A NAME="254_4">REQ_DEL_WORD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#187_4">F_Delete_Word</A>; + <FONT COLOR=red><A NAME="255_4">REQ_CLR_EOL</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#188_4">F_Clear_EOL</A>; + <FONT COLOR=red><A NAME="256_4">REQ_CLR_EOF</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#189_4">F_Clear_EOF</A>; + <FONT COLOR=red><A NAME="257_4">REQ_CLR_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#190_4">F_Clear_Field</A>; + <FONT COLOR=red><A NAME="258_4">REQ_OVL_MODE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#191_4">F_Overlay_Mode</A>; + REQ_INS_MODE : Form_Request_Code <b>renames</b> F_Insert_Mode; + + <FONT COLOR=red><A NAME="261_4">REQ_SCR_FLINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#195_4">F_ScrollForward_Line</A>; + <FONT COLOR=red><A NAME="262_4">REQ_SCR_BLINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#196_4">F_ScrollBackward_Line</A>; + <FONT COLOR=red><A NAME="263_4">REQ_SCR_FPAGE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#197_4">F_ScrollForward_Page</A>; + <FONT COLOR=red><A NAME="264_4">REQ_SCR_BPAGE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#198_4">F_ScrollBackward_Page</A>; + <FONT COLOR=red><A NAME="265_4">REQ_SCR_FHPAGE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#199_4">F_ScrollForward_HalfPage</A>; + REQ_SCR_BHPAGE : Form_Request_Code <b>renames</b> F_ScrollBackward_HalfPage; + + <FONT COLOR=red><A NAME="268_4">REQ_SCR_FCHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#203_4">F_HScrollForward_Char</A>; + <FONT COLOR=red><A NAME="269_4">REQ_SCR_BCHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#204_4">F_HScrollBackward_Char</A>; + <FONT COLOR=red><A NAME="270_4">REQ_SCR_HFLINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#205_4">F_HScrollForward_Line</A>; + <FONT COLOR=red><A NAME="271_4">REQ_SCR_HBLINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#206_4">F_HScrollBackward_Line</A>; + <FONT COLOR=red><A NAME="272_4">REQ_SCR_HFHALF</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#207_4">F_HScrollForward_HalfLine</A>; + REQ_SCR_HBHALF : Form_Request_Code <b>renames</b> F_HScrollBackward_HalfLine; + + <FONT COLOR=red><A NAME="275_4">REQ_VALIDATION</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#210_4">F_Validate_Field</A>; + <FONT COLOR=red><A NAME="276_4">REQ_NEXT_CHOICE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#144_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#211_4">F_Next_Choice</A>; + REQ_PREV_CHOICE : Form_Request_Code <b>renames</b> F_Previous_Choice; + + + <b>procedure</b> Request_Name (<FONT COLOR=red><A NAME="280_28">Key</A></FONT> : <b>in</b> Form_Request_Code; + Name : <b>out</b> String); + + <b>function</b> Request_Name (Key : Form_Request_Code) <b>return</b> String; + <FONT COLOR=green><EM>-- Same as function</EM></FONT> + <b>pragma</b> Inline (Request_Name); + + <FONT COLOR=green><EM>------------------</EM></FONT> + <FONT COLOR=green><EM>-- Exceptions --</EM></FONT> + <FONT COLOR=green><EM>------------------</EM></FONT> + Form_Exception : <b>exception</b>; + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> + <b>function</b> Create (<FONT COLOR=red><A NAME="297_21">Height</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + <FONT COLOR=red><A NAME="298_21">Width</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Count</A>; + <FONT COLOR=red><A NAME="299_21">Top</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="300_21">Left</A></FONT> : Column_Position; + <FONT COLOR=red><A NAME="301_21">Off_Screen</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Natural</A> := 0; + More_Buffers : Buffer_Number := Buffer_Number'First) + <b>return</b> Field; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">new_field()</A></EM></FONT> + <FONT COLOR=green><EM>-- An overloaded Create is defined later. Pragma Inline appears there.</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> + <b>function</b> New_Field (<FONT COLOR=red><A NAME="308_24">Height</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + <FONT COLOR=red><A NAME="309_24">Width</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Count</A>; + <FONT COLOR=red><A NAME="310_24">Top</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="311_24">Left</A></FONT> : Column_Position; + <FONT COLOR=red><A NAME="312_24">Off_Screen</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Natural</A> := 0; + More_Buffers : Buffer_Number := Buffer_Number'First) + <b>return</b> Field <b>renames</b> Create; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">new_field()</A></EM></FONT> + <b>pragma</b> Inline (New_Field); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> + <b>procedure</b> Delete (Fld : <b>in</b> <b>out</b> Field); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">free_field()</A></EM></FONT> + <FONT COLOR=green><EM>-- Reset Fld to Null_Field</EM></FONT> + <FONT COLOR=green><EM>-- An overloaded Delete is defined later. Pragma Inline appears there.</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_4"#2|</EM></FONT> + <b>function</b> Duplicate (<FONT COLOR=red><A NAME="325_24">Fld</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Field</A>; + <FONT COLOR=red><A NAME="326_24">Top</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + Left : Column_Position) <b>return</b> Field; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">dup_field()</A></EM></FONT> + <b>pragma</b> Inline (Duplicate); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_5"#2|</EM></FONT> + <b>function</b> Link (<FONT COLOR=red><A NAME="332_19">Fld</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Field</A>; + <FONT COLOR=red><A NAME="333_19">Top</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + Left : Column_Position) <b>return</b> Field; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">link_field()</A></EM></FONT> + <b>pragma</b> Inline (Link); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_just.3x.html">form_field_just.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_6"#2|</EM></FONT> + <b>procedure</b> Set_Justification (<FONT COLOR=red><A NAME="343_33">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#62_9">Field</A>; + Just : <b>in</b> Field_Justification := None); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_just.3x.html">set_field_just()</A></EM></FONT> + <b>pragma</b> Inline (Set_Justification); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_7"#2|</EM></FONT> + <b>function</b> Get_Justification (Fld : Field) <b>return</b> Field_Justification; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_just.3x.html">field_just()</A></EM></FONT> + <b>pragma</b> Inline (Get_Justification); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_8"#2|</EM></FONT> + <b>procedure</b> Set_Buffer + (<FONT COLOR=red><A NAME="359_7">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Field</A>; + <FONT COLOR=red><A NAME="360_7">Buffer</A></FONT> : <b>in</b> Buffer_Number := Buffer_Number'First; + Str : <b>in</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_buffer()</A></EM></FONT> + <FONT COLOR=green><EM>-- Not inlined</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_9"#2|</EM></FONT> + <b>procedure</b> Get_Buffer + (<FONT COLOR=red><A NAME="367_7">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Field</A>; + <FONT COLOR=red><A NAME="368_7">Buffer</A></FONT> : <b>in</b> Buffer_Number := Buffer_Number'First; + Str : <b>out</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">field_buffer()</A></EM></FONT> + + <b>function</b> Get_Buffer + (<FONT COLOR=red><A NAME="373_7">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Field</A>; + Buffer : <b>in</b> Buffer_Number := Buffer_Number'First) <b>return</b> String; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">field_buffer()</A></EM></FONT> + <FONT COLOR=green><EM>-- Same but as function</EM></FONT> + <b>pragma</b> Inline (Get_Buffer); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_10"#2|</EM></FONT> + <b>procedure</b> Set_Status (<FONT COLOR=red><A NAME="380_26">Fld</A></FONT> : <b>in</b> Field; + Status : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_status()</A></EM></FONT> + <b>pragma</b> Inline (Set_Status); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_11"#2|</EM></FONT> + <b>function</b> Changed (Fld : Field) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">field_status()</A></EM></FONT> + <b>pragma</b> Inline (Changed); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_12"#2|</EM></FONT> + <b>procedure</b> Set_Maximum_Size (<FONT COLOR=red><A NAME="391_32">Fld</A></FONT> : <b>in</b> Field; + Max : <b>in</b> Natural := 0); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_max()</A></EM></FONT> + <b>pragma</b> Inline (Set_Maximum_Size); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_opts.3x.html">form_field_opts.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_13"#2|</EM></FONT> + <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="401_27">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#68_9">Field</A>; + Options : <b>in</b> Field_Option_Set); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">set_field_opts()</A></EM></FONT> + <FONT COLOR=green><EM>-- An overloaded version is defined later. Pragma Inline appears there</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_14"#2|</EM></FONT> + <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="407_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#68_9">Field</A>; + <FONT COLOR=red><A NAME="408_30">Options</A></FONT> : <b>in</b> Field_Option_Set; + On : Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">field_opts_on()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: field_opts_off()</EM></FONT> + <FONT COLOR=green><EM>-- An overloaded version is defined later. Pragma Inline appears there</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_15"#2|</EM></FONT> + <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="415_27">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#68_9">Field</A>; + Options : <b>out</b> Field_Option_Set); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">field_opts()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_16"#2|</EM></FONT> + <b>function</b> Get_Options (Fld : Field := Null_Field) + <b>return</b> Field_Option_Set; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">field_opts()</A></EM></FONT> + <FONT COLOR=green><EM>-- An overloaded version is defined later. Pragma Inline appears there</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_17"#2|</EM></FONT> + <b>procedure</b> Set_Foreground + (<FONT COLOR=red><A NAME="431_7">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Field</A>; + <FONT COLOR=red><A NAME="432_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A> := Normal_Video; + Color : <b>in</b> Color_Pair := Color_Pair'First); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_fore()</A></EM></FONT> + <b>pragma</b> Inline (Set_Foreground); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_18"#2|</EM></FONT> + <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="438_26">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Field</A>; + Fore : <b>out</b> Character_Attribute_Set); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_fore()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_19"#2|</EM></FONT> + <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="443_26">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Field</A>; + <FONT COLOR=red><A NAME="444_26">Fore</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A>; + Color : <b>out</b> Color_Pair); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_fore()</A></EM></FONT> + <b>pragma</b> Inline (Foreground); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_20"#2|</EM></FONT> + <b>procedure</b> Set_Background + (<FONT COLOR=red><A NAME="451_7">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Field</A>; + <FONT COLOR=red><A NAME="452_7">Back</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A> := Normal_Video; + Color : <b>in</b> Color_Pair := Color_Pair'First); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_back()</A></EM></FONT> + <b>pragma</b> Inline (Set_Background); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_21"#2|</EM></FONT> + <b>procedure</b> Background (<FONT COLOR=red><A NAME="458_26">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Field</A>; + Back : <b>out</b> Character_Attribute_Set); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_back()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_22"#2|</EM></FONT> + <b>procedure</b> Background (<FONT COLOR=red><A NAME="463_26">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Field</A>; + <FONT COLOR=red><A NAME="464_26">Back</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A>; + Color : <b>out</b> Color_Pair); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_back()</A></EM></FONT> + <b>pragma</b> Inline (Background); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_23"#2|</EM></FONT> + <b>procedure</b> Set_Pad_Character (<FONT COLOR=red><A NAME="470_33">Fld</A></FONT> : <b>in</b> Field; + Pad : <b>in</b> Character := Space); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_pad()</A></EM></FONT> + <b>pragma</b> Inline (Set_Pad_Character); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_24"#2|</EM></FONT> + <b>procedure</b> Pad_Character (<FONT COLOR=red><A NAME="476_29">Fld</A></FONT> : <b>in</b> Field; + Pad : <b>out</b> Character); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_pad()</A></EM></FONT> + <b>pragma</b> Inline (Pad_Character); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_info.3x.html">form_field_info.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_25"#2|</EM></FONT> + <b>procedure</b> Info (<FONT COLOR=red><A NAME="486_20">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Field</A>; + <FONT COLOR=red><A NAME="487_20">Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + <FONT COLOR=red><A NAME="488_20">Columns</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Count</A>; + <FONT COLOR=red><A NAME="489_20">First_Row</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="490_20">First_Column</A></FONT> : <b>out</b> Column_Position; + <FONT COLOR=red><A NAME="491_20">Off_Screen</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#131_9">Natural</A>; + Additional_Buffers : <b>out</b> Buffer_Number); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_info.3x.html">field_info()</A></EM></FONT> + <b>pragma</b> Inline (Info); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_26"#2|</EM></FONT> + <b>procedure</b> Dynamic_Info (<FONT COLOR=red><A NAME="497_28">Fld</A></FONT> : <b>in</b> Field; + <FONT COLOR=red><A NAME="498_28">Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + <FONT COLOR=red><A NAME="499_28">Columns</A></FONT> : <b>out</b> Column_Count; + Max : <b>out</b> Natural); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_info.3x.html">dynamic_field_info()</A></EM></FONT> + <b>pragma</b> Inline (Dynamic_Info); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_win.3x.html">form_win.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_27"#2|</EM></FONT> + <b>procedure</b> Set_Window (<FONT COLOR=red><A NAME="509_26">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Form</A>; + Win : <b>in</b> Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">set_form_win()</A></EM></FONT> + <b>pragma</b> Inline (Set_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_28"#2|</EM></FONT> + <b>function</b> Get_Window (Frm : Form) <b>return</b> Window; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">form_win()</A></EM></FONT> + <b>pragma</b> Inline (Get_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_29"#2|</EM></FONT> + <b>procedure</b> Set_Sub_Window (<FONT COLOR=red><A NAME="520_30">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Form</A>; + Win : <b>in</b> Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">set_form_sub()</A></EM></FONT> + <b>pragma</b> Inline (Set_Sub_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_30"#2|</EM></FONT> + <b>function</b> Get_Sub_Window (Frm : Form) <b>return</b> Window; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">form_sub()</A></EM></FONT> + <b>pragma</b> Inline (Get_Sub_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_31"#2|</EM></FONT> + <b>procedure</b> Scale (<FONT COLOR=red><A NAME="531_21">Frm</A></FONT> : <b>in</b> Form; + <FONT COLOR=red><A NAME="532_21">Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + Columns : <b>out</b> Column_Count); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">scale_form()</A></EM></FONT> + <b>pragma</b> Inline (Scale); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_hook.3x.html">form_hook.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <b>type</b> Form_Hook_Function <b>is</b> <b>access</b> <b>procedure</b> (Frm : <b>in</b> Form); + <b>pragma</b> Convention (C, Form_Hook_Function); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_32"#2|</EM></FONT> + <b>procedure</b> Set_Field_Init_Hook (<FONT COLOR=red><A NAME="545_35">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#540_9">Form</A>; + Proc : <b>in</b> Form_Hook_Function); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_field_init()</A></EM></FONT> + <b>pragma</b> Inline (Set_Field_Init_Hook); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_33"#2|</EM></FONT> + <b>procedure</b> Set_Field_Term_Hook (<FONT COLOR=red><A NAME="551_35">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#540_9">Form</A>; + Proc : <b>in</b> Form_Hook_Function); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_field_term()</A></EM></FONT> + <b>pragma</b> Inline (Set_Field_Term_Hook); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_34"#2|</EM></FONT> + <b>procedure</b> Set_Form_Init_Hook (<FONT COLOR=red><A NAME="557_34">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#540_9">Form</A>; + Proc : <b>in</b> Form_Hook_Function); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_form_init()</A></EM></FONT> + <b>pragma</b> Inline (Set_Form_Init_Hook); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_35"#2|</EM></FONT> + <b>procedure</b> Set_Form_Term_Hook (<FONT COLOR=red><A NAME="563_34">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#540_9">Form</A>; + Proc : <b>in</b> Form_Hook_Function); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_form_term()</A></EM></FONT> + <b>pragma</b> Inline (Set_Form_Term_Hook); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_36"#2|</EM></FONT> + <b>function</b> Get_Field_Init_Hook (Frm : Form) <b>return</b> Form_Hook_Function; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">field_init()</A></EM></FONT> + <b>pragma</b> Import (C, Get_Field_Init_Hook, "field_init"); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_37"#2|</EM></FONT> + <b>function</b> Get_Field_Term_Hook (Frm : Form) <b>return</b> Form_Hook_Function; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">field_term()</A></EM></FONT> + <b>pragma</b> Import (C, Get_Field_Term_Hook, "field_term"); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_38"#2|</EM></FONT> + <b>function</b> Get_Form_Init_Hook (Frm : Form) <b>return</b> Form_Hook_Function; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">form_init()</A></EM></FONT> + <b>pragma</b> Import (C, Get_Form_Init_Hook, "form_init"); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_39"#2|</EM></FONT> + <b>function</b> Get_Form_Term_Hook (Frm : Form) <b>return</b> Form_Hook_Function; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">form_term()</A></EM></FONT> + <b>pragma</b> Import (C, Get_Form_Term_Hook, "form_term"); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field.3x.html">form_field.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_40"#2|</EM></FONT> + <b>procedure</b> Redefine (<FONT COLOR=red><A NAME="593_24">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#136_9">Form</A>; + Flds : <b>in</b> Field_Array_Access); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">set_form_fields()</A></EM></FONT> + <b>pragma</b> Inline (Redefine); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_41"#2|</EM></FONT> + <b>procedure</b> Set_Fields (<FONT COLOR=red><A NAME="599_26">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#136_9">Form</A>; + Flds : <b>in</b> Field_Array_Access) <b>renames</b> Redefine; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">set_form_fields()</A></EM></FONT> + <b>pragma</b> Inline (Set_Fields); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_42"#2|</EM></FONT> + <b>function</b> Fields (<FONT COLOR=red><A NAME="605_21">Frm</A></FONT> : Form; + Index : Positive) <b>return</b> Field; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">form_fields()</A></EM></FONT> + <b>pragma</b> Inline (Fields); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_43"#2|</EM></FONT> + <b>function</b> Field_Count (Frm : Form) <b>return</b> Natural; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">field_count()</A></EM></FONT> + <b>pragma</b> Inline (Field_Count); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_44"#2|</EM></FONT> + <b>procedure</b> Move (<FONT COLOR=red><A NAME="616_20">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Field</A>; + <FONT COLOR=red><A NAME="617_20">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + Column : <b>in</b> Column_Position); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">move_field()</A></EM></FONT> + <b>pragma</b> Inline (Move); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_new.3x.html">form_new.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_45"#2|</EM></FONT> + <b>function</b> Create (Fields : Field_Array_Access) <b>return</b> Form; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new.3x.html">new_form()</A></EM></FONT> + <b>pragma</b> Inline (Create); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_46"#2|</EM></FONT> + <b>function</b> New_Form (Fields : Field_Array_Access) <b>return</b> Form + <b>renames</b> Create; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new.3x.html">new_form()</A></EM></FONT> + <b>pragma</b> Inline (New_Form); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_47"#2|</EM></FONT> + <b>procedure</b> Delete (Frm : <b>in</b> <b>out</b> Form); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new.3x.html">free_form()</A></EM></FONT> + <FONT COLOR=green><EM>-- Reset Frm to Null_Form</EM></FONT> + <b>pragma</b> Inline (Delete); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_opts.3x.html">form_opts.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_48"#2|</EM></FONT> + <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="648_27">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#108_9">Form</A>; + Options : <b>in</b> Form_Option_Set); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">set_form_opts()</A></EM></FONT> + <b>pragma</b> Inline (Set_Options); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_49"#2|</EM></FONT> + <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="654_30">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#108_9">Form</A>; + <FONT COLOR=red><A NAME="655_30">Options</A></FONT> : <b>in</b> Form_Option_Set; + On : Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">form_opts_on()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: form_opts_off()</EM></FONT> + <b>pragma</b> Inline (Switch_Options); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_50"#2|</EM></FONT> + <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="662_27">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#108_9">Form</A>; + Options : <b>out</b> Form_Option_Set); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">form_opts()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_51"#2|</EM></FONT> + <b>function</b> Get_Options (Frm : Form := Null_Form) <b>return</b> Form_Option_Set; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">form_opts()</A></EM></FONT> + <b>pragma</b> Inline (Get_Options); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_post.3x.html">form_post.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_52"#2|</EM></FONT> + <b>procedure</b> Post (<FONT COLOR=red><A NAME="676_20">Frm</A></FONT> : <b>in</b> Form; + Post : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_post.3x.html">post_form()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: unpost_form()</EM></FONT> + <b>pragma</b> Inline (Post); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_cursor.3x.html">form_cursor.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_53"#2|</EM></FONT> + <b>procedure</b> Position_Cursor (Frm : Form); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_cursor.3x.html">pos_form_cursor()</A></EM></FONT> + <b>pragma</b> Inline (Position_Cursor); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_data.3x.html">form_data.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_54"#2|</EM></FONT> + <b>function</b> Data_Ahead (Frm : Form) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_data.3x.html">data_ahead()</A></EM></FONT> + <b>pragma</b> Inline (Data_Ahead); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_55"#2|</EM></FONT> + <b>function</b> Data_Behind (Frm : Form) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_data.3x.html">data_behind()</A></EM></FONT> + <b>pragma</b> Inline (Data_Behind); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_driver.3x.html">form_driver.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <b>type</b> Driver_Result <b>is</b> (<FONT COLOR=red><A NAME="709_27">Form_Ok</A></FONT>, + <FONT COLOR=red><A NAME="710_27">Request_Denied</A></FONT>, + <FONT COLOR=red><A NAME="711_27">Unknown_Request</A></FONT>, + Invalid_Field); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_56"#2|</EM></FONT> + <b>function</b> Driver (<FONT COLOR=red><A NAME="715_21">Frm</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#68_9">Form</A>; + Key : Key_Code) <b>return</b> Driver_Result; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_driver.3x.html">form_driver()</A></EM></FONT> + <FONT COLOR=green><EM>-- Driver not inlined</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_page.3x.html">form_page.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <b>type</b> Page_Number <b>is</b> <b>new</b> Natural; + + <FONT COLOR=green><EM>-- #1A NAME="AFU_57"#2|</EM></FONT> + <b>procedure</b> Set_Current (<FONT COLOR=red><A NAME="727_27">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; + Fld : <b>in</b> Field); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">set_current_field()</A></EM></FONT> + <b>pragma</b> Inline (Set_Current); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_58"#2|</EM></FONT> + <b>function</b> Current (Frm : <b>in</b> Form) <b>return</b> Field; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">current_field()</A></EM></FONT> + <b>pragma</b> Inline (Current); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_59"#2|</EM></FONT> + <b>procedure</b> Set_Page (<FONT COLOR=red><A NAME="738_24">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#723_9">Form</A>; + Page : <b>in</b> Page_Number := Page_Number'First); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">set_form_page()</A></EM></FONT> + <b>pragma</b> Inline (Set_Page); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_60"#2|</EM></FONT> + <b>function</b> Page (Frm : Form) <b>return</b> Page_Number; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">form_page()</A></EM></FONT> + <b>pragma</b> Inline (Page); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_61"#2|</EM></FONT> + <b>function</b> Get_Index (Fld : Field) <b>return</b> Positive; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">field_index()</A></EM></FONT> + <FONT COLOR=green><EM>-- Please note that in this binding we start the numbering of fields</EM></FONT> + <FONT COLOR=green><EM>-- with 1. So this is number is one more than you get from the low</EM></FONT> + <FONT COLOR=green><EM>-- level call.</EM></FONT> + <b>pragma</b> Inline (Get_Index); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_new_page.3x.html">form_new_page.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_62"#2|</EM></FONT> + <b>procedure</b> Set_New_Page (<FONT COLOR=red><A NAME="761_28">Fld</A></FONT> : <b>in</b> Field; + New_Page : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new_page.3x.html">set_new_page()</A></EM></FONT> + <b>pragma</b> Inline (Set_New_Page); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_63"#2|</EM></FONT> + <b>function</b> Is_New_Page (Fld : Field) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new_page.3x.html">new_page()</A></EM></FONT> + <b>pragma</b> Inline (Is_New_Page); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_requestname.3x.html">form_requestname.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- Not Implemented: form_request_name, form_request_by_name</EM></FONT> + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>private</b> + <b>type</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Field</A> <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; + <b>type</b> Form <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; + + <A HREF="terminal_interface-curses-forms__ads.htm#60_4">Null_Field</A> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Field</A> := 0; + Null_Form : <b>constant</b> Form := 0; + +<b>end</b> Terminal_Interface.Curses.Forms; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus-item_user_data__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus-item_user_data__adb.htm new file mode 100644 index 0000000..3dbd624 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus-item_user_data__adb.htm @@ -0,0 +1,83 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-menus-item_user_data.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus-item_user_data.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Menus.Item_User_Data --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-menus__ads.htm#49_35">Menus</A>.<A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#46_41">Item_User_Data</A> <b>is</b> + + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#58_14">Set_User_Data</A><FONT COLOR=red><A NAME="49_14"></A></FONT> (<A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#58_29">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#59_29">Data</A> : <b>in</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#45_9">User_Access</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="52_16">Set_Item_Userptr</A></FONT> (<FONT COLOR=red><A NAME="52_34">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <FONT COLOR=red><A NAME="53_34">Addr</A></FONT> : <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#45_9">User_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus-item_user_data__adb.htm#52_16">Set_Item_Userptr</A>, "set_item_userptr"); + + <FONT COLOR=red><A NAME="56_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus-item_user_data__adb.htm#52_16">Set_Item_Userptr</A> (<A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#58_29">Itm</A>, <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#59_29">Data</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus-item_user_data__adb.htm#56_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus-item_user_data__adb.htm#56_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_User_Data; + + <b>function</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#69_13">Get_User_Data</A><FONT COLOR=red><A NAME="63_13"></A></FONT> (<A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#69_28">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#45_9">User_Access</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="65_16">Item_Userptr</A></FONT> (<FONT COLOR=red><A NAME="65_30">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#45_9">User_Access</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus-item_user_data__adb.htm#65_16">Item_Userptr</A>, "item_userptr"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-menus-item_user_data__adb.htm#65_16">Item_Userptr</A> (<A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#69_28">Itm</A>); + <b>end</b> Get_User_Data; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#64_14">Get_User_Data</A><FONT COLOR=red><A NAME="71_14"></A></FONT> (<A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#64_29">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#65_29">Data</A> : <b>out</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#45_9">User_Access</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#65_29">Data</A> := <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#69_13">Get_User_Data</A> (<A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#64_29">Itm</A>); + <b>end</b> Get_User_Data; + +<b>end</b> Terminal_Interface.Curses.Menus.Item_User_Data; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus-item_user_data__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus-item_user_data__ads.htm new file mode 100644 index 0000000..df6d8d0 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus-item_user_data__ads.htm @@ -0,0 +1,81 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-menus-item_user_data.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus-item_user_data.ads </H1></DIV><HR> +<PRE> + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Menus.Item_User_Data --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.13 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + +<b>generic</b> + <b>type</b> <FONT COLOR=red><A NAME="45_9">User</A></FONT> <b>is</b> <b>limited</b> <b>private</b>; + <b>type</b> <A HREF="terminal_interface__ads.htm#42_9">User_Access</A> <b>is</b> <b>access</b> User<A HREF="terminal_interface-curses-menus__ads.htm#49_35">;</A> +<b>package</b> Terminal_Interface.Curses.Menus.Item_User_Data <b>is</b> + <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Menus.Item_User_Data); + + <FONT COLOR=green><EM>-- The binding uses the same user pointer for menu items</EM></FONT> + <FONT COLOR=green><EM>-- as the low level C implementation. So you can safely</EM></FONT> + <FONT COLOR=green><EM>-- read or write the user pointer also with the C routines</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_userptr.3x.html">mitem_userptr.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> + <b>procedure</b> Set_User_Data (<FONT COLOR=red><A NAME="59_29">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#45_9">Item</A>; + Data : <b>in</b> User_Access); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_userptr.3x.html">set_item_userptr</A></EM></FONT> + <b>pragma</b> Inline (Set_User_Data); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> + <b>procedure</b> Get_User_Data (<FONT COLOR=red><A NAME="65_29">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#45_9">Item</A>; + Data : <b>out</b> User_Access); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_userptr.3x.html">item_userptr</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> + <b>function</b> Get_User_Data (Itm : <b>in</b> Item) <b>return</b> User_Access; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_userptr.3x.html">item_userptr</A></EM></FONT> + <FONT COLOR=green><EM>-- Same as function</EM></FONT> + <b>pragma</b> Inline (Get_User_Data); + +<b>end</b> Terminal_Interface.Curses.Menus.Item_User_Data; + +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus-menu_user_data__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus-menu_user_data__adb.htm new file mode 100644 index 0000000..ad50af7 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus-menu_user_data__adb.htm @@ -0,0 +1,82 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-menus-menu_user_data.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus-menu_user_data.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Menus.Menu_User_Data --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.11 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-menus__ads.htm#49_35">Menus</A>.<A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#46_41">Menu_User_Data</A> <b>is</b> + + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#54_14">Set_User_Data</A><FONT COLOR=red><A NAME="48_14"></A></FONT> (<A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#54_29">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#55_29">Data</A> : <b>in</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#45_9">User_Access</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="51_16">Set_Menu_Userptr</A></FONT> (<FONT COLOR=red><A NAME="51_34">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="52_34">Data</A></FONT> : <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#45_9">User_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus-menu_user_data__adb.htm#51_16">Set_Menu_Userptr</A>, "set_menu_userptr"); + + <FONT COLOR=red><A NAME="55_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus-menu_user_data__adb.htm#51_16">Set_Menu_Userptr</A> (<A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#54_29">Men</A>, <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#55_29">Data</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus-menu_user_data__adb.htm#55_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus-menu_user_data__adb.htm#55_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_User_Data; + + <b>function</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#65_13">Get_User_Data</A><FONT COLOR=red><A NAME="62_13"></A></FONT> (<A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#65_28">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#45_9">User_Access</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="64_16">Menu_Userptr</A></FONT> (<FONT COLOR=red><A NAME="64_30">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#45_9">User_Access</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus-menu_user_data__adb.htm#64_16">Menu_Userptr</A>, "menu_userptr"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-menus-menu_user_data__adb.htm#64_16">Menu_Userptr</A> (<A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#65_28">Men</A>); + <b>end</b> Get_User_Data; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#60_14">Get_User_Data</A><FONT COLOR=red><A NAME="70_14"></A></FONT> (<A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#60_29">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#61_29">Data</A> : <b>out</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#45_9">User_Access</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#61_29">Data</A> := <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#65_13">Get_User_Data</A> (<A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#60_29">Men</A>); + <b>end</b> Get_User_Data; + +<b>end</b> Terminal_Interface.Curses.Menus.Menu_User_Data; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus-menu_user_data__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus-menu_user_data__ads.htm new file mode 100644 index 0000000..988b44e --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus-menu_user_data__ads.htm @@ -0,0 +1,76 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-menus-menu_user_data.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus-menu_user_data.ads </H1></DIV><HR> +<PRE> + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Menus.Menu_User_Data --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.13 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + +<b>generic</b> + <b>type</b> <FONT COLOR=red><A NAME="45_9">User</A></FONT> <b>is</b> <b>limited</b> <b>private</b>; + <b>type</b> <A HREF="terminal_interface__ads.htm#42_9">User_Access</A> <b>is</b> <b>access</b> User<A HREF="terminal_interface-curses-menus__ads.htm#49_35">;</A> +<b>package</b> Terminal_Interface.Curses.Menus.Menu_User_Data <b>is</b> + <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Menus.Menu_User_Data); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_userptr.3x.html">menu_userptr.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> + <b>procedure</b> Set_User_Data (<FONT COLOR=red><A NAME="55_29">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#45_9">Menu</A>; + Data : <b>in</b> User_Access); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_userptr.3x.html">set_menu_userptr</A></EM></FONT> + <b>pragma</b> Inline (Set_User_Data); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> + <b>procedure</b> Get_User_Data (<FONT COLOR=red><A NAME="61_29">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#45_9">Menu</A>; + Data : <b>out</b> User_Access); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_userptr.3x.html">menu_userptr</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> + <b>function</b> Get_User_Data (Men : <b>in</b> Menu) <b>return</b> User_Access; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_userptr.3x.html">menu_userptr</A></EM></FONT> + <FONT COLOR=green><EM>-- Same as function</EM></FONT> + <b>pragma</b> Inline (Get_User_Data); + +<b>end</b> Terminal_Interface.Curses.Menus.Menu_User_Data; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus__adb.htm new file mode 100644 index 0000000..f133843 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus__adb.htm @@ -0,0 +1,1027 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-menus.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Menus --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.21 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> Ada.Unchecked_Deallocation; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Pointers; + +<b>with</b> Ada.Unchecked_Conversion; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-menus__ads.htm#49_35">Menus</A><FONT COLOR=red><A NAME="51_40"></A></FONT> <b>is</b> + + <b>type</b> <FONT COLOR=red><A NAME="53_9">C_Item_Array</A></FONT> <b>is</b> <b>array</b> (Natural <b>range</b> <>) <b>of</b> <b>aliased</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <b>package</b> <FONT COLOR=red><A NAME="54_12">I_Array</A></FONT> <b>is</b> <b>new</b> + <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Pointers (Natural, <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>, <A HREF="terminal_interface-curses-menus__adb.htm#53_9">C_Item_Array</A>, <A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Item</A>); + + <b>use</b> <b>type</b> System.Bit_Order; + <b>subtype</b> <FONT COLOR=red><A NAME="58_12">chars_ptr</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings.chars_ptr; + + <b>function</b> <FONT COLOR=red><A NAME="60_13">MOS_2_CInt</A></FONT> <b>is</b> <b>new</b> + Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-menus__ads.htm#121_9">Menu_Option_Set</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>); + + <b>function</b> <FONT COLOR=red><A NAME="64_13">CInt_2_MOS</A></FONT> <b>is</b> <b>new</b> + Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>, + <A HREF="terminal_interface-curses-menus__ads.htm#121_9">Menu_Option_Set</A>); + + <b>function</b> <FONT COLOR=red><A NAME="68_13">IOS_2_CInt</A></FONT> <b>is</b> <b>new</b> + Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-menus__ads.htm#154_9">Item_Option_Set</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>); + + <b>function</b> <FONT COLOR=red><A NAME="72_13">CInt_2_IOS</A></FONT> <b>is</b> <b>new</b> + Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>, + <A HREF="terminal_interface-curses-menus__ads.htm#154_9">Item_Option_Set</A>); + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#106_14">Request_Name</A><FONT COLOR=red><A NAME="77_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#106_28">Key</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#107_28">Name</A> : <b>out</b> String) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="80_16">Request_Name</A></FONT> (<FONT COLOR=red><A NAME="80_30">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#58_12">chars_ptr</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#80_16">Request_Name</A>, "menu_request_name"); + <b>begin</b> + <A HREF="terminal_interface-curses-aux__ads.htm#117_14">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#80_16">Request_Name</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#106_28">Key</A>)), <A HREF="terminal_interface-curses-menus__ads.htm#107_28">Name</A>); + <b>end</b> Request_Name; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#109_14">Request_Name</A><FONT COLOR=red><A NAME="86_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#109_28">Key</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A>) <b>return</b> String + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="88_16">Request_Name</A></FONT> (<FONT COLOR=red><A NAME="88_30">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#58_12">chars_ptr</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#88_16">Request_Name</A>, "menu_request_name"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#88_16">Request_Name</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#109_28">Key</A>))); + <b>end</b> Request_Name; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#193_13">Create</A><FONT COLOR=red><A NAME="94_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#193_21">Name</A> : String; + <A HREF="terminal_interface-curses-menus__ads.htm#194_21">Description</A> : String := "") <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A> + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="97_12">Char_Ptr</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char; + <b>function</b> <FONT COLOR=red><A NAME="98_16">Newitem</A></FONT> (<FONT COLOR=red><A NAME="98_25">Name</A></FONT>, <FONT COLOR=red><A NAME="98_31">Desc</A></FONT> : <A HREF="terminal_interface-curses-menus__adb.htm#97_12">Char_Ptr</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#98_16">Newitem</A>, "new_item"); + + <b>type</b> <FONT COLOR=red><A NAME="101_12">Name_String</A></FONT> <b>is</b> <b>new</b> char_array (0 .. <A HREF="terminal_interface-curses-menus__ads.htm#193_21">Name</A>'Length); + <b>type</b> <FONT COLOR=red><A NAME="102_12">Name_String_Ptr</A></FONT> <b>is</b> <b>access</b> <A HREF="terminal_interface-curses-menus__adb.htm#101_12">Name_String</A>; + <b>pragma</b> Controlled (<A HREF="terminal_interface-curses-menus__adb.htm#102_12">Name_String_Ptr</A>); + + <b>type</b> <FONT COLOR=red><A NAME="105_12">Desc_String</A></FONT> <b>is</b> <b>new</b> char_array (0 .. <A HREF="terminal_interface-curses-menus__ads.htm#194_21">Description</A>'Length); + <b>type</b> <FONT COLOR=red><A NAME="106_12">Desc_String_Ptr</A></FONT> <b>is</b> <b>access</b> <A HREF="terminal_interface-curses-menus__adb.htm#105_12">Desc_String</A>; + <b>pragma</b> Controlled (<A HREF="terminal_interface-curses-menus__adb.htm#106_12">Desc_String_Ptr</A>); + + <FONT COLOR=red><A NAME="109_7">Name_Str</A></FONT> : <A HREF="terminal_interface-curses-menus__adb.htm#102_12">Name_String_Ptr</A> := <b>new</b> <A HREF="terminal_interface-curses-menus__adb.htm#101_12">Name_String</A>; + <FONT COLOR=red><A NAME="110_7">Desc_Str</A></FONT> : <A HREF="terminal_interface-curses-menus__adb.htm#106_12">Desc_String_Ptr</A> := <b>new</b> <A HREF="terminal_interface-curses-menus__adb.htm#105_12">Desc_String</A>; + <FONT COLOR=red><A NAME="111_7">Name_Len</A></FONT>, <FONT COLOR=red><A NAME="111_17">Desc_Len</A></FONT> : size_t; + <FONT COLOR=red><A NAME="112_7">Result</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses-menus__ads.htm#193_21">Name</A>, <A HREF="terminal_interface-curses-menus__adb.htm#109_7">Name_Str</A>.<b>all</b>, <A HREF="terminal_interface-curses-menus__adb.htm#111_7">Name_Len</A>); + To_C (<A HREF="terminal_interface-curses-menus__ads.htm#194_21">Description</A>, <A HREF="terminal_interface-curses-menus__adb.htm#110_7">Desc_Str</A>.<b>all</b>, <A HREF="terminal_interface-curses-menus__adb.htm#111_17">Desc_Len</A>); + <A HREF="terminal_interface-curses-menus__adb.htm#112_7">Result</A> := <A HREF="terminal_interface-curses-menus__adb.htm#98_16">Newitem</A> (<A HREF="terminal_interface-curses-menus__adb.htm#109_7">Name_Str</A>.<b>all</b> (<A HREF="terminal_interface-curses-menus__adb.htm#109_7">Name_Str</A>.<b>all</b>'First)'<b>Access</b>, + <A HREF="terminal_interface-curses-menus__adb.htm#110_7">Desc_Str</A>.<b>all</b> (<A HREF="terminal_interface-curses-menus__adb.htm#110_7">Desc_Str</A>.<b>all</b>'First)'<b>Access</b>); + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#112_7">Result</A> = <A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Item</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#389_4">Eti_System_Error</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#112_7">Result</A>; + <b>end</b> Create; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#205_14">Delete</A><FONT COLOR=red><A NAME="124_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#205_22">Itm</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="126_16">Descname</A></FONT> (<FONT COLOR=red><A NAME="126_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#58_12">chars_ptr</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#126_16">Descname</A>, "item_description"); + <b>function</b> <FONT COLOR=red><A NAME="128_16">Itemname</A></FONT> (<FONT COLOR=red><A NAME="128_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#58_12">chars_ptr</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#128_16">Itemname</A>, "item_name"); + + <b>function</b> <FONT COLOR=red><A NAME="131_16">Freeitem</A></FONT> (<FONT COLOR=red><A NAME="131_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#131_16">Freeitem</A>, "free_item"); + + <FONT COLOR=red><A NAME="134_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <FONT COLOR=red><A NAME="135_7">Ptr</A></FONT> : <A HREF="terminal_interface-curses-menus__adb.htm#58_12">chars_ptr</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-menus__adb.htm#135_7">Ptr</A> := <A HREF="terminal_interface-curses-menus__adb.htm#126_16">Descname</A> (<A HREF="terminal_interface-curses-menus__ads.htm#205_22">Itm</A>); + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#135_7">Ptr</A> /= Null_Ptr <b>then</b> + <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings.Free (<A HREF="terminal_interface-curses-menus__adb.htm#135_7">Ptr</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-menus__adb.htm#135_7">Ptr</A> := <A HREF="terminal_interface-curses-menus__adb.htm#128_16">Itemname</A> (<A HREF="terminal_interface-curses-menus__ads.htm#205_22">Itm</A>); + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#135_7">Ptr</A> /= Null_Ptr <b>then</b> + <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings.Free (<A HREF="terminal_interface-curses-menus__adb.htm#135_7">Ptr</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-menus__adb.htm#134_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#131_16">Freeitem</A> (<A HREF="terminal_interface-curses-menus__ads.htm#205_22">Itm</A>); + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#134_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#134_7">Res</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-menus__ads.htm#205_22">Itm</A> := <A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Item</A>; + <b>end</b> Delete; +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#214_14">Set_Value</A><FONT COLOR=red><A NAME="152_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#214_25">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#215_25">Value</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="155_16">Set_Item_Val</A></FONT> (<FONT COLOR=red><A NAME="155_30">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <FONT COLOR=red><A NAME="156_30">Val</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#155_16">Set_Item_Val</A>, "set_item_value"); + + <FONT COLOR=red><A NAME="159_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#155_16">Set_Item_Val</A> (<A HREF="terminal_interface-curses-menus__ads.htm#214_25">Itm</A>, Boolean'Pos (<A HREF="terminal_interface-curses-menus__ads.htm#215_25">Value</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#159_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#159_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Value; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#220_13">Value</A><FONT COLOR=red><A NAME="166_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#220_20">Itm</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="168_16">Item_Val</A></FONT> (<FONT COLOR=red><A NAME="168_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#168_16">Item_Val</A>, "item_value"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#168_16">Item_Val</A> (<A HREF="terminal_interface-curses-menus__ads.htm#220_20">Itm</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#76_4">Curses_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Value; + +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#229_13">Visible</A><FONT COLOR=red><A NAME="179_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#229_22">Itm</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="181_16">Item_Vis</A></FONT> (<FONT COLOR=red><A NAME="181_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#181_16">Item_Vis</A>, "item_visible"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#181_16">Item_Vis</A> (<A HREF="terminal_interface-curses-menus__ads.htm#229_22">Itm</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#76_4">Curses_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Visible; +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#238_14">Set_Options</A><FONT COLOR=red><A NAME="191_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#238_27">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#239_27">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#154_9">Item_Option_Set</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="194_16">Set_Item_Opts</A></FONT> (<FONT COLOR=red><A NAME="194_31">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <FONT COLOR=red><A NAME="195_31">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#194_16">Set_Item_Opts</A>, "set_item_opts"); + + <FONT COLOR=red><A NAME="198_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#68_13">IOS_2_CInt</A> (<A HREF="terminal_interface-curses-menus__ads.htm#239_27">Options</A>); + <FONT COLOR=red><A NAME="199_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-menus__adb.htm#199_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#194_16">Set_Item_Opts</A> (<A HREF="terminal_interface-curses-menus__ads.htm#238_27">Itm</A>, <A HREF="terminal_interface-curses-menus__adb.htm#198_7">Opt</A>); + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#199_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#199_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Options; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#244_14">Switch_Options</A><FONT COLOR=red><A NAME="207_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#244_30">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#245_30">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#154_9">Item_Option_Set</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#246_30">On</A> : Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="211_16">Item_Opts_On</A></FONT> (<FONT COLOR=red><A NAME="211_30">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <FONT COLOR=red><A NAME="212_30">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#211_16">Item_Opts_On</A>, "item_opts_on"); + <b>function</b> <FONT COLOR=red><A NAME="214_16">Item_Opts_Off</A></FONT> (<FONT COLOR=red><A NAME="214_31">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <FONT COLOR=red><A NAME="215_31">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#214_16">Item_Opts_Off</A>, "item_opts_off"); + + <FONT COLOR=red><A NAME="218_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#68_13">IOS_2_CInt</A> (<A HREF="terminal_interface-curses-menus__ads.htm#245_30">Options</A>); + <FONT COLOR=red><A NAME="219_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__ads.htm#246_30">On</A> <b>then</b> + <A HREF="terminal_interface-curses-menus__adb.htm#219_7">Err</A> := <A HREF="terminal_interface-curses-menus__adb.htm#211_16">Item_Opts_On</A> (<A HREF="terminal_interface-curses-menus__ads.htm#244_30">Itm</A>, <A HREF="terminal_interface-curses-menus__adb.htm#218_7">Opt</A>); + <b>else</b> + <A HREF="terminal_interface-curses-menus__adb.htm#219_7">Err</A> := <A HREF="terminal_interface-curses-menus__adb.htm#214_16">Item_Opts_Off</A> (<A HREF="terminal_interface-curses-menus__ads.htm#244_30">Itm</A>, <A HREF="terminal_interface-curses-menus__adb.htm#218_7">Opt</A>); + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#219_7">Err</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#219_7">Err</A>); + <b>end</b> <b>if</b>; + <b>end</b> Switch_Options; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#253_14">Get_Options</A><FONT COLOR=red><A NAME="231_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#253_27">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#254_27">Options</A> : <b>out</b> <A HREF="terminal_interface-curses-menus__ads.htm#154_9">Item_Option_Set</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="234_16">Item_Opts</A></FONT> (<FONT COLOR=red><A NAME="234_27">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#234_16">Item_Opts</A>, "item_opts"); + + <FONT COLOR=red><A NAME="237_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#234_16">Item_Opts</A> (<A HREF="terminal_interface-curses-menus__ads.htm#253_27">Itm</A>); + <b>begin</b> + <A HREF="terminal_interface-curses-menus__ads.htm#254_27">Options</A> := <A HREF="terminal_interface-curses-menus__adb.htm#72_13">CInt_2_IOS</A> (<A HREF="terminal_interface-curses-menus__adb.htm#237_7">Res</A>); + <b>end</b> Get_Options; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#258_13">Get_Options</A><FONT COLOR=red><A NAME="242_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#258_26">Itm</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A> := <A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#154_9">Item_Option_Set</A> + <b>is</b> + <FONT COLOR=red><A NAME="244_7">Ios</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#154_9">Item_Option_Set</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-menus__ads.htm#253_14">Get_Options</A> (<A HREF="terminal_interface-curses-menus__ads.htm#258_26">Itm</A>, <A HREF="terminal_interface-curses-menus__adb.htm#244_7">Ios</A>); + <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#244_7">Ios</A>; + <b>end</b> Get_Options; +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#267_14">Name</A><FONT COLOR=red><A NAME="250_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#267_20">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#268_20">Name</A> : <b>out</b> String) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="253_16">Itemname</A></FONT> (<FONT COLOR=red><A NAME="253_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#58_12">chars_ptr</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#253_16">Itemname</A>, "item_name"); + <b>begin</b> + <A HREF="terminal_interface-curses-aux__ads.htm#117_14">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#253_16">Itemname</A> (<A HREF="terminal_interface-curses-menus__ads.htm#267_20">Itm</A>), <A HREF="terminal_interface-curses-menus__ads.htm#268_20">Name</A>); + <b>end</b> Name; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#270_14">Name</A><FONT COLOR=red><A NAME="259_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#270_20">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> String + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="261_16">Itemname</A></FONT> (<FONT COLOR=red><A NAME="261_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#58_12">chars_ptr</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#261_16">Itemname</A>, "item_name"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#261_16">Itemname</A> (<A HREF="terminal_interface-curses-menus__ads.htm#270_20">Itm</A>)); + <b>end</b> Name; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#276_14">Description</A><FONT COLOR=red><A NAME="267_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#276_27">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#277_27">Description</A> : <b>out</b> String) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="270_16">Descname</A></FONT> (<FONT COLOR=red><A NAME="270_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#58_12">chars_ptr</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#270_16">Descname</A>, "item_description"); + <b>begin</b> + <A HREF="terminal_interface-curses-aux__ads.htm#117_14">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#270_16">Descname</A> (<A HREF="terminal_interface-curses-menus__ads.htm#276_27">Itm</A>), <A HREF="terminal_interface-curses-menus__ads.htm#277_27">Description</A>); + <b>end</b> Description; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#280_14">Description</A><FONT COLOR=red><A NAME="276_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#280_27">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> String + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="278_16">Descname</A></FONT> (<FONT COLOR=red><A NAME="278_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#58_12">chars_ptr</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#278_16">Descname</A>, "item_description"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#278_16">Descname</A> (<A HREF="terminal_interface-curses-menus__ads.htm#280_27">Itm</A>)); + <b>end</b> Description; +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#290_14">Set_Current</A><FONT COLOR=red><A NAME="284_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#290_27">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#291_27">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="287_16">Set_Curr_Item</A></FONT> (<FONT COLOR=red><A NAME="287_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="288_31">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#287_16">Set_Curr_Item</A>, "set_current_item"); + + <FONT COLOR=red><A NAME="291_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#287_16">Set_Curr_Item</A> (<A HREF="terminal_interface-curses-menus__ads.htm#290_27">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#291_27">Itm</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#291_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#291_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Current; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#296_13">Current</A><FONT COLOR=red><A NAME="298_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#296_22">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="300_16">Curr_Item</A></FONT> (<FONT COLOR=red><A NAME="300_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#300_16">Curr_Item</A>, "current_item"); + + <FONT COLOR=red><A NAME="303_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A> := <A HREF="terminal_interface-curses-menus__adb.htm#300_16">Curr_Item</A> (<A HREF="terminal_interface-curses-menus__ads.htm#296_22">Men</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#303_7">Res</A> = <A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Item</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-menus__ads.htm#116_4">Menu_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#303_7">Res</A>; + <b>end</b> Current; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#301_14">Set_Top_Row</A><FONT COLOR=red><A NAME="311_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#301_27">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#302_27">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="314_16">Set_Toprow</A></FONT> (<FONT COLOR=red><A NAME="314_28">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="315_28">Line</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#314_16">Set_Toprow</A>, "set_top_row"); + + <FONT COLOR=red><A NAME="318_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#314_16">Set_Toprow</A> (<A HREF="terminal_interface-curses-menus__ads.htm#301_27">Men</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#302_27">Line</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#318_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#318_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Top_Row; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#307_13">Top_Row</A><FONT COLOR=red><A NAME="325_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#307_22">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="327_16">Toprow</A></FONT> (<FONT COLOR=red><A NAME="327_24">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#327_16">Toprow</A>, "top_row"); + + <FONT COLOR=red><A NAME="330_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#327_16">Toprow</A> (<A HREF="terminal_interface-curses-menus__ads.htm#307_22">Men</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#330_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-menus__ads.htm#116_4">Menu_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> (<A HREF="terminal_interface-curses-menus__adb.htm#330_7">Res</A>); + <b>end</b> Top_Row; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#312_13">Get_Index</A><FONT COLOR=red><A NAME="338_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#312_24">Itm</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> Positive + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="340_16">Get_Itemindex</A></FONT> (<FONT COLOR=red><A NAME="340_31">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#340_16">Get_Itemindex</A>, "item_index"); + + <FONT COLOR=red><A NAME="343_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#340_16">Get_Itemindex</A> (<A HREF="terminal_interface-curses-menus__ads.htm#312_24">Itm</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#343_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-menus__ads.htm#116_4">Menu_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> Positive (Natural (<A HREF="terminal_interface-curses-menus__adb.htm#343_7">Res</A>) + Positive'First); + <b>end</b> Get_Index; +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#324_14">Post</A><FONT COLOR=red><A NAME="351_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#324_20">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#325_20">Post</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="354_16">M_Post</A></FONT> (<FONT COLOR=red><A NAME="354_24">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#354_16">M_Post</A>, "post_menu"); + <b>function</b> <FONT COLOR=red><A NAME="356_16">M_Unpost</A></FONT> (<FONT COLOR=red><A NAME="356_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#356_16">M_Unpost</A>, "unpost_menu"); + + <FONT COLOR=red><A NAME="359_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__ads.htm#325_20">Post</A> <b>then</b> + <A HREF="terminal_interface-curses-menus__adb.htm#359_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#354_16">M_Post</A> (<A HREF="terminal_interface-curses-menus__ads.htm#324_20">Men</A>); + <b>else</b> + <A HREF="terminal_interface-curses-menus__adb.htm#359_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#356_16">M_Unpost</A> (<A HREF="terminal_interface-curses-menus__ads.htm#324_20">Men</A>); + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#359_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#359_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Post; +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#335_14">Set_Options</A><FONT COLOR=red><A NAME="371_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#335_27">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#336_27">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#121_9">Menu_Option_Set</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="374_16">Set_Menu_Opts</A></FONT> (<FONT COLOR=red><A NAME="374_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="375_31">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#374_16">Set_Menu_Opts</A>, "set_menu_opts"); + + <FONT COLOR=red><A NAME="378_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#60_13">MOS_2_CInt</A> (<A HREF="terminal_interface-curses-menus__ads.htm#336_27">Options</A>); + <FONT COLOR=red><A NAME="379_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-menus__adb.htm#379_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#374_16">Set_Menu_Opts</A> (<A HREF="terminal_interface-curses-menus__ads.htm#335_27">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#378_7">Opt</A>); + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#379_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#379_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Options; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#341_14">Switch_Options</A><FONT COLOR=red><A NAME="387_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#341_30">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#342_30">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#121_9">Menu_Option_Set</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#343_30">On</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="391_16">Menu_Opts_On</A></FONT> (<FONT COLOR=red><A NAME="391_30">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="392_30">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#391_16">Menu_Opts_On</A>, "menu_opts_on"); + <b>function</b> <FONT COLOR=red><A NAME="394_16">Menu_Opts_Off</A></FONT> (<FONT COLOR=red><A NAME="394_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="395_31">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#394_16">Menu_Opts_Off</A>, "menu_opts_off"); + + <FONT COLOR=red><A NAME="398_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#60_13">MOS_2_CInt</A> (<A HREF="terminal_interface-curses-menus__ads.htm#342_30">Options</A>); + <FONT COLOR=red><A NAME="399_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__ads.htm#343_30">On</A> <b>then</b> + <A HREF="terminal_interface-curses-menus__adb.htm#399_7">Err</A> := <A HREF="terminal_interface-curses-menus__adb.htm#391_16">Menu_Opts_On</A> (<A HREF="terminal_interface-curses-menus__ads.htm#341_30">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#398_7">Opt</A>); + <b>else</b> + <A HREF="terminal_interface-curses-menus__adb.htm#399_7">Err</A> := <A HREF="terminal_interface-curses-menus__adb.htm#394_16">Menu_Opts_Off</A> (<A HREF="terminal_interface-curses-menus__ads.htm#341_30">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#398_7">Opt</A>); + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#399_7">Err</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#399_7">Err</A>); + <b>end</b> <b>if</b>; + <b>end</b> Switch_Options; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#349_14">Get_Options</A><FONT COLOR=red><A NAME="411_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#349_27">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#350_27">Options</A> : <b>out</b> <A HREF="terminal_interface-curses-menus__ads.htm#121_9">Menu_Option_Set</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="414_16">Menu_Opts</A></FONT> (<FONT COLOR=red><A NAME="414_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#414_16">Menu_Opts</A>, "menu_opts"); + + <FONT COLOR=red><A NAME="417_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#414_16">Menu_Opts</A> (<A HREF="terminal_interface-curses-menus__ads.htm#349_27">Men</A>); + <b>begin</b> + <A HREF="terminal_interface-curses-menus__ads.htm#350_27">Options</A> := <A HREF="terminal_interface-curses-menus__adb.htm#64_13">CInt_2_MOS</A> (<A HREF="terminal_interface-curses-menus__adb.htm#417_7">Res</A>); + <b>end</b> Get_Options; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#354_13">Get_Options</A><FONT COLOR=red><A NAME="422_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#354_26">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A> := <A HREF="terminal_interface-curses-menus__ads.htm#63_4">Null_Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#121_9">Menu_Option_Set</A> + <b>is</b> + <FONT COLOR=red><A NAME="424_7">Mos</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#121_9">Menu_Option_Set</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-menus__ads.htm#349_14">Get_Options</A> (<A HREF="terminal_interface-curses-menus__ads.htm#354_26">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#424_7">Mos</A>); + <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#424_7">Mos</A>; + <b>end</b> Get_Options; +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#363_14">Set_Window</A><FONT COLOR=red><A NAME="430_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#363_26">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#364_26">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="433_16">Set_Menu_Win</A></FONT> (<FONT COLOR=red><A NAME="433_30">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="434_30">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#433_16">Set_Menu_Win</A>, "set_menu_win"); + + <FONT COLOR=red><A NAME="437_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#433_16">Set_Menu_Win</A> (<A HREF="terminal_interface-curses-menus__ads.htm#363_26">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#364_26">Win</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#437_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#437_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Window; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#369_13">Get_Window</A><FONT COLOR=red><A NAME="444_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#369_25">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="446_16">Menu_Win</A></FONT> (<FONT COLOR=red><A NAME="446_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#446_16">Menu_Win</A>, "menu_win"); + + <FONT COLOR=red><A NAME="449_7">W</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses-menus__adb.htm#446_16">Menu_Win</A> (<A HREF="terminal_interface-curses-menus__ads.htm#369_25">Men</A>); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#449_7">W</A>; + <b>end</b> Get_Window; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#374_14">Set_Sub_Window</A><FONT COLOR=red><A NAME="454_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#374_30">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#375_30">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="457_16">Set_Menu_Sub</A></FONT> (<FONT COLOR=red><A NAME="457_30">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="458_30">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#457_16">Set_Menu_Sub</A>, "set_menu_sub"); + + <FONT COLOR=red><A NAME="461_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#457_16">Set_Menu_Sub</A> (<A HREF="terminal_interface-curses-menus__ads.htm#374_30">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#375_30">Win</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#461_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#461_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Sub_Window; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#380_13">Get_Sub_Window</A><FONT COLOR=red><A NAME="468_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#380_29">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="470_16">Menu_Sub</A></FONT> (<FONT COLOR=red><A NAME="470_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#470_16">Menu_Sub</A>, "menu_sub"); + + <FONT COLOR=red><A NAME="473_7">W</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses-menus__adb.htm#470_16">Menu_Sub</A> (<A HREF="terminal_interface-curses-menus__ads.htm#380_29">Men</A>); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#473_7">W</A>; + <b>end</b> Get_Sub_Window; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#385_14">Scale</A><FONT COLOR=red><A NAME="478_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#385_21">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#386_21">Lines</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#387_21">Columns</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>) + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="482_12">C_Int_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>function</b> <FONT COLOR=red><A NAME="483_16">M_Scale</A></FONT> (<FONT COLOR=red><A NAME="483_25">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="484_25">Yp</A></FONT>, <FONT COLOR=red><A NAME="484_29">Xp</A></FONT> : <A HREF="terminal_interface-curses-menus__adb.htm#482_12">C_Int_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#483_16">M_Scale</A>, "scale_menu"); + + <FONT COLOR=red><A NAME="487_7">X</A></FONT>, <FONT COLOR=red><A NAME="487_10">Y</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="488_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#483_16">M_Scale</A> (<A HREF="terminal_interface-curses-menus__ads.htm#385_21">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#487_10">Y</A>'<b>Access</b>, <A HREF="terminal_interface-curses-menus__adb.htm#487_7">X</A>'<b>Access</b>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#488_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#488_7">Res</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-menus__ads.htm#386_21">Lines</A> := <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A> (<A HREF="terminal_interface-curses-menus__adb.htm#487_10">Y</A>); + <A HREF="terminal_interface-curses-menus__ads.htm#387_21">Columns</A> := <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A> (<A HREF="terminal_interface-curses-menus__adb.htm#487_7">X</A>); + <b>end</b> Scale; +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#396_14">Position_Cursor</A><FONT COLOR=red><A NAME="497_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#396_31">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="499_16">Pos_Menu_Cursor</A></FONT> (<FONT COLOR=red><A NAME="499_33">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#499_16">Pos_Menu_Cursor</A>, "pos_menu_cursor"); + + <FONT COLOR=red><A NAME="502_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#499_16">Pos_Menu_Cursor</A> (<A HREF="terminal_interface-curses-menus__ads.htm#396_31">Men</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#502_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#502_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Position_Cursor; + +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#405_14">Set_Mark</A><FONT COLOR=red><A NAME="510_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#405_24">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#406_24">Mark</A> : <b>in</b> String) + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="513_12">Char_Ptr</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char; + <b>function</b> <FONT COLOR=red><A NAME="514_16">Set_Mark</A></FONT> (<FONT COLOR=red><A NAME="514_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="515_26">Mark</A></FONT> : <A HREF="terminal_interface-curses-menus__adb.htm#513_12">Char_Ptr</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#514_16">Set_Mark</A>, "set_menu_mark"); + + <FONT COLOR=red><A NAME="518_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-menus__ads.htm#406_24">Mark</A>'Length); + <FONT COLOR=red><A NAME="519_7">Len</A></FONT> : size_t; + <FONT COLOR=red><A NAME="520_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses-menus__ads.htm#406_24">Mark</A>, <A HREF="terminal_interface-curses-menus__adb.htm#518_7">Txt</A>, <A HREF="terminal_interface-curses-menus__adb.htm#519_7">Len</A>); + <A HREF="terminal_interface-curses-menus__adb.htm#520_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#514_16">Set_Mark</A> (<A HREF="terminal_interface-curses-menus__ads.htm#405_24">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#518_7">Txt</A> (<A HREF="terminal_interface-curses-menus__adb.htm#518_7">Txt</A>'First)'<b>Access</b>); + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#520_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#520_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Mark; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#411_14">Mark</A><FONT COLOR=red><A NAME="529_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#411_20">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#412_20">Mark</A> : <b>out</b> String) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="532_16">Get_Menu_Mark</A></FONT> (<FONT COLOR=red><A NAME="532_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#58_12">chars_ptr</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#532_16">Get_Menu_Mark</A>, "menu_mark"); + <b>begin</b> + <A HREF="terminal_interface-curses-aux__ads.htm#117_14">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#532_16">Get_Menu_Mark</A> (<A HREF="terminal_interface-curses-menus__ads.htm#411_20">Men</A>), <A HREF="terminal_interface-curses-menus__ads.htm#412_20">Mark</A>); + <b>end</b> Mark; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#415_14">Mark</A><FONT COLOR=red><A NAME="538_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#415_20">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> String + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="540_16">Get_Menu_Mark</A></FONT> (<FONT COLOR=red><A NAME="540_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#58_12">chars_ptr</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#540_16">Get_Menu_Mark</A>, "menu_mark"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#540_16">Get_Menu_Mark</A> (<A HREF="terminal_interface-curses-menus__ads.htm#415_20">Men</A>)); + <b>end</b> Mark; + +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#425_14">Set_Foreground</A><FONT COLOR=red><A NAME="547_14"></A></FONT> + (<A HREF="terminal_interface-curses-menus__ads.htm#426_7">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#427_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#428_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="552_16">Set_Menu_Fore</A></FONT> (<FONT COLOR=red><A NAME="552_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="553_31">Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#552_16">Set_Menu_Fore</A>, "set_menu_fore"); + + <FONT COLOR=red><A NAME="556_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := (Ch => Character'First, + Color => <A HREF="terminal_interface-curses-menus__ads.htm#428_7">Color</A>, + Attr => <A HREF="terminal_interface-curses-menus__ads.htm#427_7">Fore</A>); + <FONT COLOR=red><A NAME="559_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#552_16">Set_Menu_Fore</A> (<A HREF="terminal_interface-curses-menus__ads.htm#426_7">Men</A>, <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses-menus__adb.htm#556_7">Ch</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#559_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#559_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Foreground; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#433_14">Foreground</A><FONT COLOR=red><A NAME="566_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#433_26">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#434_26">Fore</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="569_16">Menu_Fore</A></FONT> (<FONT COLOR=red><A NAME="569_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#569_16">Menu_Fore</A>, "menu_fore"); + <b>begin</b> + <A HREF="terminal_interface-curses-menus__ads.htm#434_26">Fore</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#569_16">Menu_Fore</A> (<A HREF="terminal_interface-curses-menus__ads.htm#433_26">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#354_10">Attr</A>; + <b>end</b> Foreground; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#438_14">Foreground</A><FONT COLOR=red><A NAME="575_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#438_26">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#439_26">Fore</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#440_26">Color</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="579_16">Menu_Fore</A></FONT> (<FONT COLOR=red><A NAME="579_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#579_16">Menu_Fore</A>, "menu_fore"); + <b>begin</b> + <A HREF="terminal_interface-curses-menus__ads.htm#439_26">Fore</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#579_16">Menu_Fore</A> (<A HREF="terminal_interface-curses-menus__ads.htm#438_26">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#354_10">Attr</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#440_26">Color</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#579_16">Menu_Fore</A> (<A HREF="terminal_interface-curses-menus__ads.htm#438_26">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#355_10">Color</A>; + <b>end</b> Foreground; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#445_14">Set_Background</A><FONT COLOR=red><A NAME="586_14"></A></FONT> + (<A HREF="terminal_interface-curses-menus__ads.htm#446_7">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#447_7">Back</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#448_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="591_16">Set_Menu_Back</A></FONT> (<FONT COLOR=red><A NAME="591_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="592_31">Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#591_16">Set_Menu_Back</A>, "set_menu_back"); + + <FONT COLOR=red><A NAME="595_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := (Ch => Character'First, + Color => <A HREF="terminal_interface-curses-menus__ads.htm#448_7">Color</A>, + Attr => <A HREF="terminal_interface-curses-menus__ads.htm#447_7">Back</A>); + <FONT COLOR=red><A NAME="598_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#591_16">Set_Menu_Back</A> (<A HREF="terminal_interface-curses-menus__ads.htm#446_7">Men</A>, <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses-menus__adb.htm#595_7">Ch</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#598_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#598_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Background; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#453_14">Background</A><FONT COLOR=red><A NAME="605_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#453_26">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#454_26">Back</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="608_16">Menu_Back</A></FONT> (<FONT COLOR=red><A NAME="608_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#608_16">Menu_Back</A>, "menu_back"); + <b>begin</b> + <A HREF="terminal_interface-curses-menus__ads.htm#454_26">Back</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#608_16">Menu_Back</A> (<A HREF="terminal_interface-curses-menus__ads.htm#453_26">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#354_10">Attr</A>; + <b>end</b> Background; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#458_14">Background</A><FONT COLOR=red><A NAME="614_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#458_26">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#459_26">Back</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#460_26">Color</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="618_16">Menu_Back</A></FONT> (<FONT COLOR=red><A NAME="618_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#618_16">Menu_Back</A>, "menu_back"); + <b>begin</b> + <A HREF="terminal_interface-curses-menus__ads.htm#459_26">Back</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#618_16">Menu_Back</A> (<A HREF="terminal_interface-curses-menus__ads.htm#458_26">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#354_10">Attr</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#460_26">Color</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#618_16">Menu_Back</A> (<A HREF="terminal_interface-curses-menus__ads.htm#458_26">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#355_10">Color</A>; + <b>end</b> Background; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#465_14">Set_Grey</A><FONT COLOR=red><A NAME="625_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#466_7">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#467_7">Grey</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#468_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="629_16">Set_Menu_Grey</A></FONT> (<FONT COLOR=red><A NAME="629_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="630_31">Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#629_16">Set_Menu_Grey</A>, "set_menu_grey"); + + <FONT COLOR=red><A NAME="633_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := (Ch => Character'First, + Color => <A HREF="terminal_interface-curses-menus__ads.htm#468_7">Color</A>, + Attr => <A HREF="terminal_interface-curses-menus__ads.htm#467_7">Grey</A>); + + <FONT COLOR=red><A NAME="637_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#629_16">Set_Menu_Grey</A> (<A HREF="terminal_interface-curses-menus__ads.htm#466_7">Men</A>, <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses-menus__adb.htm#633_7">Ch</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#637_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#637_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Grey; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#473_14">Grey</A><FONT COLOR=red><A NAME="644_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#473_20">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#474_20">Grey</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="647_16">Menu_Grey</A></FONT> (<FONT COLOR=red><A NAME="647_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#647_16">Menu_Grey</A>, "menu_grey"); + <b>begin</b> + <A HREF="terminal_interface-curses-menus__ads.htm#474_20">Grey</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#647_16">Menu_Grey</A> (<A HREF="terminal_interface-curses-menus__ads.htm#473_20">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#354_10">Attr</A>; + <b>end</b> Grey; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#478_14">Grey</A><FONT COLOR=red><A NAME="653_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#479_7">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#480_7">Grey</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#481_7">Color</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="657_16">Menu_Grey</A></FONT> (<FONT COLOR=red><A NAME="657_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#657_16">Menu_Grey</A>, "menu_grey"); + <b>begin</b> + <A HREF="terminal_interface-curses-menus__ads.htm#480_7">Grey</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#657_16">Menu_Grey</A> (<A HREF="terminal_interface-curses-menus__ads.htm#479_7">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#354_10">Attr</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#481_7">Color</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#657_16">Menu_Grey</A> (<A HREF="terminal_interface-curses-menus__ads.htm#479_7">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#355_10">Color</A>; + <b>end</b> Grey; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#486_14">Set_Pad_Character</A><FONT COLOR=red><A NAME="664_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#486_33">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#487_33">Pad</A> : <b>in</b> Character := <A HREF="terminal_interface-curses-menus__ads.htm#54_4">Space</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="667_16">Set_Menu_Pad</A></FONT> (<FONT COLOR=red><A NAME="667_30">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="668_30">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#667_16">Set_Menu_Pad</A>, "set_menu_pad"); + + <FONT COLOR=red><A NAME="671_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#667_16">Set_Menu_Pad</A> (<A HREF="terminal_interface-curses-menus__ads.htm#486_33">Men</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (Character'Pos (<A HREF="terminal_interface-curses-menus__ads.htm#487_33">Pad</A>))); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#671_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#671_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Pad_Character; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#492_14">Pad_Character</A><FONT COLOR=red><A NAME="679_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#492_29">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#493_29">Pad</A> : <b>out</b> Character) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="682_16">Menu_Pad</A></FONT> (<FONT COLOR=red><A NAME="682_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#682_16">Menu_Pad</A>, "menu_pad"); + <b>begin</b> + <A HREF="terminal_interface-curses-menus__ads.htm#493_29">Pad</A> := Character'Val (<A HREF="terminal_interface-curses-menus__adb.htm#682_16">Menu_Pad</A> (<A HREF="terminal_interface-curses-menus__ads.htm#492_29">Men</A>)); + <b>end</b> Pad_Character; +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#502_14">Set_Spacing</A><FONT COLOR=red><A NAME="688_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#502_27">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#503_27">Descr</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A> := 0; + <A HREF="terminal_interface-curses-menus__ads.htm#504_27">Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> := 0; + <A HREF="terminal_interface-curses-menus__ads.htm#505_27">Col</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A> := 0) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="693_16">Set_Spacing</A></FONT> (<FONT COLOR=red><A NAME="693_29">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="694_29">D</A></FONT>, <FONT COLOR=red><A NAME="694_32">R</A></FONT>, <FONT COLOR=red><A NAME="694_35">C</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#693_16">Set_Spacing</A>, "set_menu_spacing"); + + <FONT COLOR=red><A NAME="697_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#693_16">Set_Spacing</A> (<A HREF="terminal_interface-curses-menus__ads.htm#502_27">Men</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#503_27">Descr</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#504_27">Row</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#505_27">Col</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#697_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#697_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Spacing; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#510_14">Spacing</A><FONT COLOR=red><A NAME="707_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#510_23">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#511_23">Descr</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#512_23">Row</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#513_23">Col</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="712_12">C_Int_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>function</b> <FONT COLOR=red><A NAME="713_16">Get_Spacing</A></FONT> (<FONT COLOR=red><A NAME="713_29">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="714_29">D</A></FONT>, <FONT COLOR=red><A NAME="714_32">R</A></FONT>, <FONT COLOR=red><A NAME="714_35">C</A></FONT> : <A HREF="terminal_interface-curses-menus__adb.htm#712_12">C_Int_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#713_16">Get_Spacing</A>, "menu_spacing"); + + <FONT COLOR=red><A NAME="717_7">D</A></FONT>, <FONT COLOR=red><A NAME="717_10">R</A></FONT>, <FONT COLOR=red><A NAME="717_13">C</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="718_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#713_16">Get_Spacing</A> (<A HREF="terminal_interface-curses-menus__ads.htm#510_23">Men</A>, + <A HREF="terminal_interface-curses-menus__adb.htm#717_7">D</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-menus__adb.htm#717_10">R</A>'<b>Access</b>, + <A HREF="terminal_interface-curses-menus__adb.htm#717_13">C</A>'<b>Access</b>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#718_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#718_7">Res</A>); + <b>else</b> + <A HREF="terminal_interface-curses-menus__ads.htm#511_23">Descr</A> := <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A> (<A HREF="terminal_interface-curses-menus__adb.htm#717_7">D</A>); + <A HREF="terminal_interface-curses-menus__ads.htm#512_23">Row</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> (<A HREF="terminal_interface-curses-menus__adb.htm#717_10">R</A>); + <A HREF="terminal_interface-curses-menus__ads.htm#513_23">Col</A> := <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A> (<A HREF="terminal_interface-curses-menus__adb.htm#717_13">C</A>); + <b>end</b> <b>if</b>; + <b>end</b> Spacing; +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#522_13">Set_Pattern</A><FONT COLOR=red><A NAME="732_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#522_26">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#523_26">Text</A> : String) <b>return</b> Boolean + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="735_12">Char_Ptr</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char; + <b>function</b> <FONT COLOR=red><A NAME="736_16">Set_Pattern</A></FONT> (<FONT COLOR=red><A NAME="736_29">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="737_29">Pattern</A></FONT> : <A HREF="terminal_interface-curses-menus__adb.htm#735_12">Char_Ptr</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#736_16">Set_Pattern</A>, "set_menu_pattern"); + + <FONT COLOR=red><A NAME="740_7">S</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-menus__ads.htm#523_26">Text</A>'Length); + <FONT COLOR=red><A NAME="741_7">L</A></FONT> : size_t; + <FONT COLOR=red><A NAME="742_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses-menus__ads.htm#523_26">Text</A>, <A HREF="terminal_interface-curses-menus__adb.htm#740_7">S</A>, <A HREF="terminal_interface-curses-menus__adb.htm#741_7">L</A>); + <A HREF="terminal_interface-curses-menus__adb.htm#742_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#736_16">Set_Pattern</A> (<A HREF="terminal_interface-curses-menus__ads.htm#522_26">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#740_7">S</A> (<A HREF="terminal_interface-curses-menus__adb.htm#740_7">S</A>'First)'<b>Access</b>); + <b>case</b> <A HREF="terminal_interface-curses-menus__adb.htm#742_7">Res</A> <b>is</b> + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#90_4">E_No_Match</A> => <b>return</b> False; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> => <b>return</b> True; + <b>when</b> <b>others</b> => + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#742_7">Res</A>); + <b>return</b> False; + <b>end</b> <b>case</b>; + <b>end</b> Set_Pattern; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#529_14">Pattern</A><FONT COLOR=red><A NAME="755_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#529_23">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#530_23">Text</A> : <b>out</b> String) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="758_16">Get_Pattern</A></FONT> (<FONT COLOR=red><A NAME="758_29">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#58_12">chars_ptr</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#758_16">Get_Pattern</A>, "menu_pattern"); + <b>begin</b> + <A HREF="terminal_interface-curses-aux__ads.htm#117_14">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#758_16">Get_Pattern</A> (<A HREF="terminal_interface-curses-menus__ads.htm#529_23">Men</A>), <A HREF="terminal_interface-curses-menus__ads.htm#530_23">Text</A>); + <b>end</b> Pattern; +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#539_14">Set_Format</A><FONT COLOR=red><A NAME="764_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#539_26">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#540_26">Lines</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#541_26">Columns</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="768_16">Set_Menu_Fmt</A></FONT> (<FONT COLOR=red><A NAME="768_30">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="769_30">Lin</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="770_30">Col</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#768_16">Set_Menu_Fmt</A>, "set_menu_format"); + + <FONT COLOR=red><A NAME="773_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#768_16">Set_Menu_Fmt</A> (<A HREF="terminal_interface-curses-menus__ads.htm#539_26">Men</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#540_26">Lines</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#541_26">Columns</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#773_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#773_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Format; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#553_14">Format</A><FONT COLOR=red><A NAME="782_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#553_22">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#554_22">Lines</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#555_22">Columns</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>) + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="786_12">C_Int_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>function</b> <FONT COLOR=red><A NAME="787_16">Menu_Fmt</A></FONT> (<FONT COLOR=red><A NAME="787_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="788_26">Y</A></FONT>, <FONT COLOR=red><A NAME="788_29">X</A></FONT> : <A HREF="terminal_interface-curses-menus__adb.htm#786_12">C_Int_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#787_16">Menu_Fmt</A>, "menu_format"); + + <FONT COLOR=red><A NAME="791_7">L</A></FONT>, <FONT COLOR=red><A NAME="791_10">C</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="792_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#787_16">Menu_Fmt</A> (<A HREF="terminal_interface-curses-menus__ads.htm#553_22">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#791_7">L</A>'<b>Access</b>, <A HREF="terminal_interface-curses-menus__adb.htm#791_10">C</A>'<b>Access</b>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#792_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#792_7">Res</A>); + <b>else</b> + <A HREF="terminal_interface-curses-menus__ads.htm#554_22">Lines</A> := <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A> (<A HREF="terminal_interface-curses-menus__adb.htm#791_7">L</A>); + <A HREF="terminal_interface-curses-menus__ads.htm#555_22">Columns</A> := <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A> (<A HREF="terminal_interface-curses-menus__adb.htm#791_10">C</A>); + <b>end</b> <b>if</b>; + <b>end</b> Format; +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#567_14">Set_Item_Init_Hook</A><FONT COLOR=red><A NAME="802_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#567_34">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#568_34">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="805_16">Set_Item_Init</A></FONT> (<FONT COLOR=red><A NAME="805_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="806_31">Proc</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#805_16">Set_Item_Init</A>, "set_item_init"); + + <FONT COLOR=red><A NAME="809_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#805_16">Set_Item_Init</A> (<A HREF="terminal_interface-curses-menus__ads.htm#567_34">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#568_34">Proc</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#809_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#809_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Item_Init_Hook; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#573_14">Set_Item_Term_Hook</A><FONT COLOR=red><A NAME="816_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#573_34">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#574_34">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="819_16">Set_Item_Term</A></FONT> (<FONT COLOR=red><A NAME="819_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="820_31">Proc</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#819_16">Set_Item_Term</A>, "set_item_term"); + + <FONT COLOR=red><A NAME="823_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#819_16">Set_Item_Term</A> (<A HREF="terminal_interface-curses-menus__ads.htm#573_34">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#574_34">Proc</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#823_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#823_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Item_Term_Hook; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#579_14">Set_Menu_Init_Hook</A><FONT COLOR=red><A NAME="830_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#579_34">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#580_34">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="833_16">Set_Menu_Init</A></FONT> (<FONT COLOR=red><A NAME="833_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="834_31">Proc</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#833_16">Set_Menu_Init</A>, "set_menu_init"); + + <FONT COLOR=red><A NAME="837_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#833_16">Set_Menu_Init</A> (<A HREF="terminal_interface-curses-menus__ads.htm#579_34">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#580_34">Proc</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#837_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#837_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Menu_Init_Hook; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#585_14">Set_Menu_Term_Hook</A><FONT COLOR=red><A NAME="844_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#585_34">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#586_34">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="847_16">Set_Menu_Term</A></FONT> (<FONT COLOR=red><A NAME="847_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="848_31">Proc</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#847_16">Set_Menu_Term</A>, "set_menu_term"); + + <FONT COLOR=red><A NAME="851_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#847_16">Set_Menu_Term</A> (<A HREF="terminal_interface-curses-menus__ads.htm#585_34">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#586_34">Proc</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#851_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#851_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Menu_Term_Hook; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#591_13">Get_Item_Init_Hook</A><FONT COLOR=red><A NAME="858_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#591_33">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="860_16">Item_Init</A></FONT> (<FONT COLOR=red><A NAME="860_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#860_16">Item_Init</A>, "item_init"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#860_16">Item_Init</A> (<A HREF="terminal_interface-curses-menus__ads.htm#591_33">Men</A>); + <b>end</b> Get_Item_Init_Hook; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#596_13">Get_Item_Term_Hook</A><FONT COLOR=red><A NAME="866_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#596_33">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="868_16">Item_Term</A></FONT> (<FONT COLOR=red><A NAME="868_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#868_16">Item_Term</A>, "item_term"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#868_16">Item_Term</A> (<A HREF="terminal_interface-curses-menus__ads.htm#596_33">Men</A>); + <b>end</b> Get_Item_Term_Hook; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#601_13">Get_Menu_Init_Hook</A><FONT COLOR=red><A NAME="874_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#601_33">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="876_16">Menu_Init</A></FONT> (<FONT COLOR=red><A NAME="876_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#876_16">Menu_Init</A>, "menu_init"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#876_16">Menu_Init</A> (<A HREF="terminal_interface-curses-menus__ads.htm#601_33">Men</A>); + <b>end</b> Get_Menu_Init_Hook; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#606_13">Get_Menu_Term_Hook</A><FONT COLOR=red><A NAME="882_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#606_33">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="884_16">Menu_Term</A></FONT> (<FONT COLOR=red><A NAME="884_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu_Hook_Function</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#884_16">Menu_Term</A>, "menu_term"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#884_16">Menu_Term</A> (<A HREF="terminal_interface-curses-menus__ads.htm#606_33">Men</A>); + <b>end</b> Get_Menu_Term_Hook; +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#615_14">Redefine</A><FONT COLOR=red><A NAME="890_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#615_24">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#616_24">Items</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#180_9">Item_Array_Access</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="893_16">Set_Items</A></FONT> (<FONT COLOR=red><A NAME="893_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="894_27">Items</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#893_16">Set_Items</A>, "set_menu_items"); + + <FONT COLOR=red><A NAME="897_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A>; + <b>begin</b> + <b>pragma</b> Assert (<A HREF="terminal_interface-curses-menus__ads.htm#616_24">Items</A> (<A HREF="terminal_interface-curses-menus__ads.htm#616_24">Items</A>'Last) = <A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Item</A>); + <b>if</b> <A HREF="terminal_interface-curses-menus__ads.htm#616_24">Items</A> (<A HREF="terminal_interface-curses-menus__ads.htm#616_24">Items</A>'Last) /= <A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Item</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-menus__ads.htm#116_4">Menu_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses-menus__adb.htm#897_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#893_16">Set_Items</A> (<A HREF="terminal_interface-curses-menus__ads.htm#615_24">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#616_24">Items</A>.<b>all</b>'Address); + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#897_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#897_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <b>end</b> Redefine; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#631_13">Item_Count</A><FONT COLOR=red><A NAME="910_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#631_25">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> Natural + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="912_16">Count</A></FONT> (<FONT COLOR=red><A NAME="912_23">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#912_16">Count</A>, "item_count"); + <b>begin</b> + <b>return</b> Natural (<A HREF="terminal_interface-curses-menus__adb.htm#912_16">Count</A> (<A HREF="terminal_interface-curses-menus__ads.htm#631_25">Men</A>)); + <b>end</b> Item_Count; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#625_13">Items</A><FONT COLOR=red><A NAME="918_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#625_20">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#626_20">Index</A> : Positive) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A> + <b>is</b> + <b>use</b> <A HREF="terminal_interface-curses-menus__adb.htm#54_12">I_Array</A>; + + <b>function</b> <FONT COLOR=red><A NAME="923_16">C_Mitems</A></FONT> (<FONT COLOR=red><A NAME="923_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> Pointer; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#923_16">C_Mitems</A>, "menu_items"); + + <FONT COLOR=red><A NAME="926_7">P</A></FONT> : Pointer := <A HREF="terminal_interface-curses-menus__adb.htm#923_16">C_Mitems</A> (<A HREF="terminal_interface-curses-menus__ads.htm#625_20">Men</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#926_7">P</A> = <b>null</b> <b>or</b> <b>else</b> <A HREF="terminal_interface-curses-menus__ads.htm#626_20">Index</A> <b>not</b> <b>in</b> 1 .. <A HREF="terminal_interface-curses-menus__ads.htm#631_13">Item_Count</A> (<A HREF="terminal_interface-curses-menus__ads.htm#625_20">Men</A>) <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-menus__ads.htm#116_4">Menu_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses-menus__adb.htm#926_7">P</A> := <A HREF="terminal_interface-curses-menus__adb.htm#926_7">P</A> + ptrdiff_t (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#626_20">Index</A>) - 1); + <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#926_7">P</A>.<b>all</b>; + <b>end</b> <b>if</b>; + <b>end</b> Items; + +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#640_13">Create</A><FONT COLOR=red><A NAME="937_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#640_21">Items</A> : <A HREF="terminal_interface-curses-menus__ads.htm#180_9">Item_Array_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="939_16">Newmenu</A></FONT> (<FONT COLOR=red><A NAME="939_25">Items</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#939_16">Newmenu</A>, "new_menu"); + + <FONT COLOR=red><A NAME="942_7">M</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <b>begin</b> + <b>pragma</b> Assert (<A HREF="terminal_interface-curses-menus__ads.htm#640_21">Items</A> (<A HREF="terminal_interface-curses-menus__ads.htm#640_21">Items</A>'Last) = <A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Item</A>); + <b>if</b> <A HREF="terminal_interface-curses-menus__ads.htm#640_21">Items</A> (<A HREF="terminal_interface-curses-menus__ads.htm#640_21">Items</A>'Last) /= <A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Item</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-menus__ads.htm#116_4">Menu_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses-menus__adb.htm#942_7">M</A> := <A HREF="terminal_interface-curses-menus__adb.htm#939_16">Newmenu</A> (<A HREF="terminal_interface-curses-menus__ads.htm#640_21">Items</A>.<b>all</b>'Address); + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#942_7">M</A> = <A HREF="terminal_interface-curses-menus__ads.htm#63_4">Null_Menu</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-menus__ads.htm#116_4">Menu_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#942_7">M</A>; + <b>end</b> <b>if</b>; + <b>end</b> Create; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#647_14">Delete</A><FONT COLOR=red><A NAME="956_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#647_22">Men</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="958_16">Free</A></FONT> (<FONT COLOR=red><A NAME="958_22">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#958_16">Free</A>, "free_menu"); + + <FONT COLOR=red><A NAME="961_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#958_16">Free</A> (<A HREF="terminal_interface-curses-menus__ads.htm#647_22">Men</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#961_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#961_7">Res</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-menus__ads.htm#647_22">Men</A> := <A HREF="terminal_interface-curses-menus__ads.htm#63_4">Null_Menu</A>; + <b>end</b> Delete; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#662_13">Driver</A><FONT COLOR=red><A NAME="970_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#662_21">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#663_21">Key</A> : <A HREF="terminal_interface-curses__ads.htm#68_9">Key_Code</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#656_9">Driver_Result</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="973_16">Driver</A></FONT> (<FONT COLOR=red><A NAME="973_24">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>; + <FONT COLOR=red><A NAME="974_24">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#973_16">Driver</A>, "menu_driver"); + + <FONT COLOR=red><A NAME="977_7">R</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#973_16">Driver</A> (<A HREF="terminal_interface-curses-menus__ads.htm#662_21">Men</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#663_21">Key</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#977_7">R</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_Ok</A> <b>then</b> + <b>case</b> <A HREF="terminal_interface-curses-menus__adb.htm#977_7">R</A> <b>is</b> + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#89_4">E_Unknown_Command</A> => <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#658_27">Unknown_Request</A>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#90_4">E_No_Match</A> => <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#659_27">No_Match</A>; + <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#93_4">E_Request_Denied</A> | + <A HREF="terminal_interface-curses-aux__ads.htm#91_4">E_Not_Selectable</A> => <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#657_27">Request_Denied</A>; + <b>when</b> <b>others</b> => + <A HREF="terminal_interface-curses-aux__ads.htm#97_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#977_7">R</A>); + <b>end</b> <b>case</b>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#656_27">Menu_Ok</A>; + <b>end</b> Driver; + + <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#182_14">Free</A><FONT COLOR=red><A NAME="992_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#182_20">IA</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-menus__ads.htm#180_9">Item_Array_Access</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#183_20">Free_Items</A> : <b>in</b> Boolean := False) + <b>is</b> + <b>procedure</b> <FONT COLOR=red><A NAME="995_17">Release</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Deallocation + (<A HREF="terminal_interface-curses-menus__ads.htm#177_9">Item_Array</A>, <A HREF="terminal_interface-curses-menus__ads.htm#180_9">Item_Array_Access</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-menus__ads.htm#182_20">IA</A> /= <b>null</b> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-menus__ads.htm#183_20">Free_Items</A> <b>then</b> + <b>for</b> <FONT COLOR=red><A NAME="999_14">I</A></FONT> <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#182_20">IA</A>'First .. (<A HREF="terminal_interface-curses-menus__ads.htm#182_20">IA</A>'Last - 1) <b>loop</b> + <b>if</b> (<A HREF="terminal_interface-curses-menus__ads.htm#182_20">IA</A> (<A HREF="terminal_interface-curses-menus__adb.htm#999_14">I</A>) /= <A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Item</A>) <b>then</b> + <A HREF="terminal_interface-curses-menus__ads.htm#205_14">Delete</A> (<A HREF="terminal_interface-curses-menus__ads.htm#182_20">IA</A> (<A HREF="terminal_interface-curses-menus__adb.htm#999_14">I</A>)); + <b>end</b> <b>if</b>; + <b>end</b> <b>loop</b>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-menus__adb.htm#995_17">Release</A> (<A HREF="terminal_interface-curses-menus__ads.htm#182_20">IA</A>); + <b>end</b> Free; + +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#147_13">Default_Menu_Options</A><FONT COLOR=red><A NAME="1009_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#121_9">Menu_Option_Set</A> + <b>is</b> + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#354_13">Get_Options</A> (<A HREF="terminal_interface-curses-menus__ads.htm#63_4">Null_Menu</A>); + <b>end</b> Default_Menu_Options; + + <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#170_13">Default_Item_Options</A><FONT COLOR=red><A NAME="1015_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#154_9">Item_Option_Set</A> + <b>is</b> + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#258_13">Get_Options</A> (<A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Item</A>); + <b>end</b> Default_Item_Options; +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> + +<b>end</b> Terminal_Interface.Curses.Menus; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus__ads.htm new file mode 100644 index 0000000..b34529b --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-menus__ads.htm @@ -0,0 +1,683 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-menus.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus.ads </H1></DIV><HR> +<PRE> + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Menu --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.23 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- menu binding.</EM></FONT> +<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT> +<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT> +<FONT COLOR=green><EM>-- |</EM></FONT> +<b>with</b> System; +<b>with</b> Ada.Characters.Latin_1; + +<b>package</b> Terminal_Interface.Curses.Menus <b>is</b> + <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Menus); + <b>pragma</b> Linker_Options ("-lmenu"); + <b>pragma</b> Linker_Options ("-lncurses"); + + Space : Character <b>renames</b> Ada.Characters.Latin_1.Space; + + <b>type</b> <FONT COLOR=red><A NAME="57_9">Item</A></FONT> <b>is</b> <b>private</b>; + <b>type</b> Menu <b>is</b> <b>private</b>; + + <FONT COLOR=green><EM>---------------------------</EM></FONT> + <FONT COLOR=green><EM>-- Interface constants --</EM></FONT> + <FONT COLOR=green><EM>---------------------------</EM></FONT> + <FONT COLOR=red><A NAME="63_4">Null_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Item</A>; + Null_Menu : <b>constant</b> Menu; + + <b>subtype</b> Menu_Request_Code <b>is</b> Key_Code + <b>range</b> (Key_Max + 1) .. (Key_Max + 17); + + <FONT COLOR=green><EM>-- The prefix M_ stands for "Menu Request"</EM></FONT> + <FONT COLOR=red><A NAME="70_4">M_Left_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 1; + <FONT COLOR=red><A NAME="71_4">M_Right_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 2; + <FONT COLOR=red><A NAME="72_4">M_Up_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 3; + <FONT COLOR=red><A NAME="73_4">M_Down_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 4; + <FONT COLOR=red><A NAME="74_4">M_ScrollUp_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 5; + <FONT COLOR=red><A NAME="75_4">M_ScrollDown_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 6; + <FONT COLOR=red><A NAME="76_4">M_ScrollDown_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 7; + <FONT COLOR=red><A NAME="77_4">M_ScrollUp_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 8; + <FONT COLOR=red><A NAME="78_4">M_First_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 9; + <FONT COLOR=red><A NAME="79_4">M_Last_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 10; + <FONT COLOR=red><A NAME="80_4">M_Next_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 11; + <FONT COLOR=red><A NAME="81_4">M_Previous_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 12; + <FONT COLOR=red><A NAME="82_4">M_Toggle_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 13; + <FONT COLOR=red><A NAME="83_4">M_Clear_Pattern</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 14; + <FONT COLOR=red><A NAME="84_4">M_Back_Pattern</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 15; + <FONT COLOR=red><A NAME="85_4">M_Next_Match</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 16; + M_Previous_Match : <b>constant</b> Menu_Request_Code := Key_Max + 17; + + <FONT COLOR=green><EM>-- For those who like the old 'C' names for the request codes</EM></FONT> + <FONT COLOR=red><A NAME="89_4">REQ_LEFT_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#70_4">M_Left_Item</A>; + <FONT COLOR=red><A NAME="90_4">REQ_RIGHT_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#71_4">M_Right_Item</A>; + <FONT COLOR=red><A NAME="91_4">REQ_UP_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#72_4">M_Up_Item</A>; + <FONT COLOR=red><A NAME="92_4">REQ_DOWN_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#73_4">M_Down_Item</A>; + <FONT COLOR=red><A NAME="93_4">REQ_SCR_ULINE</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#74_4">M_ScrollUp_Line</A>; + <FONT COLOR=red><A NAME="94_4">REQ_SCR_DLINE</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#75_4">M_ScrollDown_Line</A>; + <FONT COLOR=red><A NAME="95_4">REQ_SCR_DPAGE</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#76_4">M_ScrollDown_Page</A>; + <FONT COLOR=red><A NAME="96_4">REQ_SCR_UPAGE</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#77_4">M_ScrollUp_Page</A>; + <FONT COLOR=red><A NAME="97_4">REQ_FIRST_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#78_4">M_First_Item</A>; + <FONT COLOR=red><A NAME="98_4">REQ_LAST_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#79_4">M_Last_Item</A>; + <FONT COLOR=red><A NAME="99_4">REQ_NEXT_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#80_4">M_Next_Item</A>; + <FONT COLOR=red><A NAME="100_4">REQ_PREV_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#81_4">M_Previous_Item</A>; + <FONT COLOR=red><A NAME="101_4">REQ_TOGGLE_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#82_4">M_Toggle_Item</A>; + <FONT COLOR=red><A NAME="102_4">REQ_CLEAR_PATTERN</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#83_4">M_Clear_Pattern</A>; + <FONT COLOR=red><A NAME="103_4">REQ_BACK_PATTERN</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#84_4">M_Back_Pattern</A>; + <FONT COLOR=red><A NAME="104_4">REQ_NEXT_MATCH</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#85_4">M_Next_Match</A>; + REQ_PREV_MATCH : Menu_Request_Code <b>renames</b> M_Previous_Match; + + <b>procedure</b> Request_Name (<FONT COLOR=red><A NAME="107_28">Key</A></FONT> : <b>in</b> Menu_Request_Code; + Name : <b>out</b> String); + + <b>function</b> Request_Name (Key : Menu_Request_Code) <b>return</b> String; + <FONT COLOR=green><EM>-- Same as function</EM></FONT> + + <FONT COLOR=green><EM>------------------</EM></FONT> + <FONT COLOR=green><EM>-- Exceptions --</EM></FONT> + <FONT COLOR=green><EM>------------------</EM></FONT> + + Menu_Exception : <b>exception</b>; + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=green><EM>-- Menu options</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <b>pragma</b> Warnings (Off); + <b>type</b> Menu_Option_Set <b>is</b> + <b>record</b> + <FONT COLOR=red><A NAME="124_10">One_Valued</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="125_10">Show_Descriptions</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="126_10">Row_Major_Order</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="127_10">Ignore_Case</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="128_10">Show_Matches</A></FONT> : Boolean; + Non_Cyclic : Boolean; + <b>end</b> <b>record</b><A HREF="terminal_interface-curses-menus__ads.htm#121_9">;</A> + <b>pragma</b> Pack (Menu_Option_Set); + <b>pragma</b> Convention (C, Menu_Option_Set); + + <b>for</b> Menu_Option_Set <b>use</b> + <b>record</b> + One_Valued <b>at</b> 0 <b>range</b> 0 .. 0; + Show_Descriptions <b>at</b> 0 <b>range</b> 1 .. 1; + Row_Major_Order <b>at</b> 0 <b>range</b> 2 .. 2; + Ignore_Case <b>at</b> 0 <b>range</b> 3 .. 3; + Show_Matches <b>at</b> 0 <b>range</b> 4 .. 4; + Non_Cyclic <b>at</b> 0 <b>range</b> 5 .. 5; + <b>end</b> <b>record</b>; + <b>for</b> Menu_Option_Set'Size <b>use</b> 32; + <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> + <FONT COLOR=green><EM>-- different on your system.</EM></FONT> + <b>pragma</b> Warnings (On); + + <b>function</b> Default_Menu_Options <b>return</b> Menu_Option_Set; + <FONT COLOR=green><EM>-- Initial default options for a menu.</EM></FONT> + <b>pragma</b> Inline (Default_Menu_Options); + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=green><EM>-- Item options</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <b>pragma</b> Warnings (Off); + <b>type</b> Item_Option_Set <b>is</b> + <b>record</b> + Selectable : Boolean; + <b>end</b> <b>record</b><A HREF="terminal_interface-curses-menus__ads.htm#154_9">;</A> + <b>pragma</b> Pack (Item_Option_Set); + <b>pragma</b> Convention (C, Item_Option_Set); + + <b>for</b> Item_Option_Set <b>use</b> + <b>record</b> + Selectable <b>at</b> 0 <b>range</b> 0 .. 0; + <b>end</b> <b>record</b>; + <b>for</b> Item_Option_Set'Size <b>use</b> 32; + <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> + <FONT COLOR=green><EM>-- different on your system.</EM></FONT> + <b>pragma</b> Warnings (On); + + <b>function</b> Default_Item_Options <b>return</b> Item_Option_Set; + <FONT COLOR=green><EM>-- Initial default options for an item.</EM></FONT> + <b>pragma</b> Inline (Default_Item_Options); + + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=green><EM>-- Item Array</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <b>type</b> Item_Array <b>is</b> <b>array</b> (Positive <b>range</b> <>) <b>of</b> <b>aliased</b> Item; + <b>pragma</b> Convention (C, Item_Array); + + <b>type</b> Item_Array_Access <b>is</b> <b>access</b> Item_Array; + + <b>procedure</b> Free (<FONT COLOR=red><A NAME="183_20">IA</A></FONT> : <b>in</b> <b>out</b> Item_Array_Access; + Free_Items : Boolean := False); + <FONT COLOR=green><EM>-- Release the memory for an allocated item array</EM></FONT> + <FONT COLOR=green><EM>-- If Free_Items is True, call Delete() for all the items in</EM></FONT> + <FONT COLOR=green><EM>-- the array.</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_new.3x.html">mitem_new.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> + <b>function</b> Create (<FONT COLOR=red><A NAME="194_21">Name</A></FONT> : String; + Description : String := "") <b>return</b> Item; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_new.3x.html">new_item()</A></EM></FONT> + <FONT COLOR=green><EM>-- Not inlined.</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> + <b>function</b> New_Item (<FONT COLOR=red><A NAME="200_23">Name</A></FONT> : String; + <A HREF="terminal_interface-curses-menus__ads.htm#193_13"> </A> Description : String := "") <b>return</b> Item + <b>renames</b> Create; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_new.3x.html">new_item()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> + <b>procedure</b> Delete (Itm : <b>in</b> <b>out</b> Item); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_new.3x.html">free_item()</A></EM></FONT> + <FONT COLOR=green><EM>-- Resets Itm to Null_Item</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_value.3x.html">mitem_value.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_4"#2|</EM></FONT> + <b>procedure</b> Set_Value (<FONT COLOR=red><A NAME="215_25">Itm</A></FONT> : <b>in</b> Item; + Value : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_value.3x.html">set_item_value()</A></EM></FONT> + <b>pragma</b> Inline (Set_Value); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_5"#2|</EM></FONT> + <b>function</b> Value (Itm : Item) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_value.3x.html">item_value()</A></EM></FONT> + <b>pragma</b> Inline (Value); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_visible.3x.html">mitem_visible.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_6"#2|</EM></FONT> + <b>function</b> Visible (Itm : Item) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_visible.3x.html">item_visible()</A></EM></FONT> + <b>pragma</b> Inline (Visible); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_opts.3x.html">mitem_opts.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_7"#2|</EM></FONT> + <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="239_27">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#154_9">Item</A>; + Options : <b>in</b> Item_Option_Set); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">set_item_opts()</A></EM></FONT> + <FONT COLOR=green><EM>-- An overloaded Set_Options is defined later. Pragma Inline appears there</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_8"#2|</EM></FONT> + <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="245_30">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#154_9">Item</A>; + <FONT COLOR=red><A NAME="246_30">Options</A></FONT> : <b>in</b> Item_Option_Set; + On : Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">item_opts_on()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: item_opts_off()</EM></FONT> + <FONT COLOR=green><EM>-- An overloaded Switch_Options is defined later.</EM></FONT> + <FONT COLOR=green><EM>-- Pragma Inline appears there</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_9"#2|</EM></FONT> + <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="254_27">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#154_9">Item</A>; + Options : <b>out</b> Item_Option_Set); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">item_opts()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_10"#2|</EM></FONT> + <b>function</b> Get_Options (Itm : Item := Null_Item) <b>return</b> Item_Option_Set; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">item_opts()</A></EM></FONT> + <FONT COLOR=green><EM>-- An overloaded Get_Options is defined later. Pragma Inline appears there</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_name.3x.html">mitem_name.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_11"#2|</EM></FONT> + <b>procedure</b> Name (<FONT COLOR=red><A NAME="268_20">Itm</A></FONT> : <b>in</b> Item; + Name : <b>out</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_name()</A></EM></FONT> + <b>function</b> Name (Itm : Item) <b>return</b> String; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_name()</A></EM></FONT> + <FONT COLOR=green><EM>-- Implemented as function</EM></FONT> + <b>pragma</b> Inline (Name); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_12"#2|</EM></FONT> + <b>procedure</b> Description (<FONT COLOR=red><A NAME="277_27">Itm</A></FONT> : <b>in</b> Item; + Description : <b>out</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_description();</A></EM></FONT> + + <b>function</b> Description (Itm : Item) <b>return</b> String; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_description();</A></EM></FONT> + <FONT COLOR=green><EM>-- Implemented as function</EM></FONT> + <b>pragma</b> Inline (Description); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_current.3x.html">mitem_current.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_13"#2|</EM></FONT> + <b>procedure</b> Set_Current (<FONT COLOR=red><A NAME="291_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; + Itm : <b>in</b> Item); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">set_current_item()</A></EM></FONT> + <b>pragma</b> Inline (Set_Current); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_14"#2|</EM></FONT> + <b>function</b> Current (Men : Menu) <b>return</b> Item; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">current_item()</A></EM></FONT> + <b>pragma</b> Inline (Current); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_15"#2|</EM></FONT> + <b>procedure</b> Set_Top_Row (<FONT COLOR=red><A NAME="302_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Menu</A>; + Line : <b>in</b> Line_Position); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">set_top_row()</A></EM></FONT> + <b>pragma</b> Inline (Set_Top_Row); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_16"#2|</EM></FONT> + <b>function</b> Top_Row (Men : Menu) <b>return</b> Line_Position; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">top_row()</A></EM></FONT> + <b>pragma</b> Inline (Top_Row); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_17"#2|</EM></FONT> + <b>function</b> Get_Index (Itm : Item) <b>return</b> Positive; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">item_index()</A></EM></FONT> + <FONT COLOR=green><EM>-- Please note that in this binding we start the numbering of items</EM></FONT> + <FONT COLOR=green><EM>-- with 1. So this is number is one more than you get from the low</EM></FONT> + <FONT COLOR=green><EM>-- level call.</EM></FONT> + <b>pragma</b> Inline (Get_Index); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_post.3x.html">menu_post.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_18"#2|</EM></FONT> + <b>procedure</b> Post (<FONT COLOR=red><A NAME="325_20">Men</A></FONT> : <b>in</b> Menu; + Post : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_post.3x.html">post_menu()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: unpost_menu()</EM></FONT> + <b>pragma</b> Inline (Post); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_opts.3x.html">menu_opts.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_19"#2|</EM></FONT> + <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="336_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#121_9">Menu</A>; + Options : <b>in</b> Menu_Option_Set); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">set_menu_opts()</A></EM></FONT> + <b>pragma</b> Inline (Set_Options); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_20"#2|</EM></FONT> + <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="342_30">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#121_9">Menu</A>; + <FONT COLOR=red><A NAME="343_30">Options</A></FONT> : <b>in</b> Menu_Option_Set; + On : Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">menu_opts_on()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: menu_opts_off()</EM></FONT> + <b>pragma</b> Inline (Switch_Options); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_21"#2|</EM></FONT> + <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="350_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#121_9">Menu</A>; + Options : <b>out</b> Menu_Option_Set); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">menu_opts()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_22"#2|</EM></FONT> + <b>function</b> Get_Options (Men : Menu := Null_Menu) <b>return</b> Menu_Option_Set; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">menu_opts()</A></EM></FONT> + <b>pragma</b> Inline (Get_Options); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_win.3x.html">menu_win.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_23"#2|</EM></FONT> + <b>procedure</b> Set_Window (<FONT COLOR=red><A NAME="364_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Menu</A>; + Win : <b>in</b> Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">set_menu_win()</A></EM></FONT> + <b>pragma</b> Inline (Set_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_24"#2|</EM></FONT> + <b>function</b> Get_Window (Men : Menu) <b>return</b> Window; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">menu_win()</A></EM></FONT> + <b>pragma</b> Inline (Get_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_25"#2|</EM></FONT> + <b>procedure</b> Set_Sub_Window (<FONT COLOR=red><A NAME="375_30">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Menu</A>; + Win : <b>in</b> Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">set_menu_sub()</A></EM></FONT> + <b>pragma</b> Inline (Set_Sub_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_26"#2|</EM></FONT> + <b>function</b> Get_Sub_Window (Men : Menu) <b>return</b> Window; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">menu_sub()</A></EM></FONT> + <b>pragma</b> Inline (Get_Sub_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_27"#2|</EM></FONT> + <b>procedure</b> Scale (<FONT COLOR=red><A NAME="386_21">Men</A></FONT> : <b>in</b> Menu; + <FONT COLOR=red><A NAME="387_21">Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + Columns : <b>out</b> Column_Count); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">scale_menu()</A></EM></FONT> + <b>pragma</b> Inline (Scale); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_cursor.3x.html">menu_cursor.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_28"#2|</EM></FONT> + <b>procedure</b> Position_Cursor (Men : Menu); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_cursor.3x.html">pos_menu_cursor()</A></EM></FONT> + <b>pragma</b> Inline (Position_Cursor); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_mark.3x.html">menu_mark.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_29"#2|</EM></FONT> + <b>procedure</b> Set_Mark (<FONT COLOR=red><A NAME="406_24">Men</A></FONT> : <b>in</b> Menu; + Mark : <b>in</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_mark.3x.html">set_menu_mark()</A></EM></FONT> + <b>pragma</b> Inline (Set_Mark); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_30"#2|</EM></FONT> + <b>procedure</b> Mark (<FONT COLOR=red><A NAME="412_20">Men</A></FONT> : <b>in</b> Menu; + Mark : <b>out</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_mark.3x.html">menu_mark()</A></EM></FONT> + + <b>function</b> Mark (Men : Menu) <b>return</b> String; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_mark.3x.html">menu_mark()</A></EM></FONT> + <FONT COLOR=green><EM>-- Implemented as function</EM></FONT> + <b>pragma</b> Inline (Mark); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_31"#2|</EM></FONT> + <b>procedure</b> Set_Foreground + (<FONT COLOR=red><A NAME="427_7">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; + <FONT COLOR=red><A NAME="428_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A> := Normal_Video; + Color : <b>in</b> Color_Pair := Color_Pair'First); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_fore()</A></EM></FONT> + <b>pragma</b> Inline (Set_Foreground); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_32"#2|</EM></FONT> + <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="434_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; + Fore : <b>out</b> Character_Attribute_Set); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_fore()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_33"#2|</EM></FONT> + <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="439_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; + <FONT COLOR=red><A NAME="440_26">Fore</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A>; + Color : <b>out</b> Color_Pair); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_fore()</A></EM></FONT> + <b>pragma</b> Inline (Foreground); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_34"#2|</EM></FONT> + <b>procedure</b> Set_Background + (<FONT COLOR=red><A NAME="447_7">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; + <FONT COLOR=red><A NAME="448_7">Back</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A> := Normal_Video; + Color : <b>in</b> Color_Pair := Color_Pair'First); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_back()</A></EM></FONT> + <b>pragma</b> Inline (Set_Background); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_35"#2|</EM></FONT> + <b>procedure</b> Background (<FONT COLOR=red><A NAME="454_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; + Back : <b>out</b> Character_Attribute_Set); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_back()</A></EM></FONT> + <FONT COLOR=green><EM>-- #1A NAME="AFU_36"#2|</EM></FONT> + + <b>procedure</b> Background (<FONT COLOR=red><A NAME="459_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; + <FONT COLOR=red><A NAME="460_26">Back</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A>; + Color : <b>out</b> Color_Pair); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_back()</A></EM></FONT> + <b>pragma</b> Inline (Background); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_37"#2|</EM></FONT> + <b>procedure</b> Set_Grey + (<FONT COLOR=red><A NAME="467_7">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; + <FONT COLOR=red><A NAME="468_7">Grey</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A> := Normal_Video; + Color : <b>in</b> Color_Pair := Color_Pair'First); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_grey()</A></EM></FONT> + <b>pragma</b> Inline (Set_Grey); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_38"#2|</EM></FONT> + <b>procedure</b> Grey (<FONT COLOR=red><A NAME="474_20">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; + Grey : <b>out</b> Character_Attribute_Set); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_grey()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_39"#2|</EM></FONT> + <b>procedure</b> Grey + (<FONT COLOR=red><A NAME="480_7">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; + <FONT COLOR=red><A NAME="481_7">Grey</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A>; + Color : <b>out</b> Color_Pair); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_grey()</A></EM></FONT> + <b>pragma</b> Inline (Grey); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_40"#2|</EM></FONT> + <b>procedure</b> Set_Pad_Character (<FONT COLOR=red><A NAME="487_33">Men</A></FONT> : <b>in</b> Menu; + Pad : <b>in</b> Character := Space); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_pad()</A></EM></FONT> + <b>pragma</b> Inline (Set_Pad_Character); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_41"#2|</EM></FONT> + <b>procedure</b> Pad_Character (<FONT COLOR=red><A NAME="493_29">Men</A></FONT> : <b>in</b> Menu; + Pad : <b>out</b> Character); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_pad()</A></EM></FONT> + <b>pragma</b> Inline (Pad_Character); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_spacing.3x.html">menu_spacing.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_42"#2|</EM></FONT> + <b>procedure</b> Set_Spacing (<FONT COLOR=red><A NAME="503_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Menu</A>; + <FONT COLOR=red><A NAME="504_27">Descr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> := 0; + <FONT COLOR=red><A NAME="505_27">Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A> := 0; + Col : <b>in</b> Column_Position := 0); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_spacing.3x.html">set_menu_spacing()</A></EM></FONT> + <b>pragma</b> Inline (Set_Spacing); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_43"#2|</EM></FONT> + <b>procedure</b> Spacing (<FONT COLOR=red><A NAME="511_23">Men</A></FONT> : <b>in</b> Menu; + <FONT COLOR=red><A NAME="512_23">Descr</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; + <FONT COLOR=red><A NAME="513_23">Row</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + Col : <b>out</b> Column_Position); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_spacing.3x.html">menu_spacing()</A></EM></FONT> + <b>pragma</b> Inline (Spacing); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_pattern.3x.html">menu_pattern.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_44"#2|</EM></FONT> + <b>function</b> Set_Pattern (<FONT COLOR=red><A NAME="523_26">Men</A></FONT> : Menu; + Text : String) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_pattern.3x.html">set_menu_pattern()</A></EM></FONT> + <FONT COLOR=green><EM>-- Return TRUE if the pattern matches, FALSE otherwise</EM></FONT> + <b>pragma</b> Inline (Set_Pattern); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_45"#2|</EM></FONT> + <b>procedure</b> Pattern (<FONT COLOR=red><A NAME="530_23">Men</A></FONT> : <b>in</b> Menu; + Text : <b>out</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_pattern.3x.html">menu_pattern()</A></EM></FONT> + <b>pragma</b> Inline (Pattern); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_format.3x.html">menu_format.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_46"#2|</EM></FONT> + <b>procedure</b> Set_Format (<FONT COLOR=red><A NAME="540_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Menu</A>; + <FONT COLOR=red><A NAME="541_26">Lines</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + Columns : <b>in</b> Column_Count); + <FONT COLOR=green><EM>-- Not implemented: 0 argument for Lines or Columns;</EM></FONT> + <FONT COLOR=green><EM>-- instead use Format to get the current sizes</EM></FONT> + <FONT COLOR=green><EM>-- The default is 16 rows, 1 column. Calling</EM></FONT> + <FONT COLOR=green><EM>-- set_menu_format with a null menu pointer will change this</EM></FONT> + <FONT COLOR=green><EM>-- default. A zero row or column argument to set_menu_format</EM></FONT> + <FONT COLOR=green><EM>-- is interpreted as a request not to change the current</EM></FONT> + <FONT COLOR=green><EM>-- value.</EM></FONT> + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_format.3x.html">set_menu_format()</A></EM></FONT> + <b>pragma</b> Inline (Set_Format); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_47"#2|</EM></FONT> + <b>procedure</b> Format (<FONT COLOR=red><A NAME="554_22">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Menu</A>; + <FONT COLOR=red><A NAME="555_22">Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + Columns : <b>out</b> Column_Count); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_format.3x.html">menu_format()</A></EM></FONT> + <b>pragma</b> Inline (Format); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <b>type</b> Menu_Hook_Function <b>is</b> <b>access</b> <b>procedure</b> (Men : <b>in</b> Menu); + <b>pragma</b> Convention (C, Menu_Hook_Function); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_48"#2|</EM></FONT> + <b>procedure</b> Set_Item_Init_Hook (<FONT COLOR=red><A NAME="568_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu</A>; + Proc : <b>in</b> Menu_Hook_Function); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">set_item_init()</A></EM></FONT> + <b>pragma</b> Inline (Set_Item_Init_Hook); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_49"#2|</EM></FONT> + <b>procedure</b> Set_Item_Term_Hook (<FONT COLOR=red><A NAME="574_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu</A>; + Proc : <b>in</b> Menu_Hook_Function); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">set_item_term()</A></EM></FONT> + <b>pragma</b> Inline (Set_Item_Term_Hook); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_50"#2|</EM></FONT> + <b>procedure</b> Set_Menu_Init_Hook (<FONT COLOR=red><A NAME="580_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu</A>; + Proc : <b>in</b> Menu_Hook_Function); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">set_menu_init()</A></EM></FONT> + <b>pragma</b> Inline (Set_Menu_Init_Hook); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_51"#2|</EM></FONT> + <b>procedure</b> Set_Menu_Term_Hook (<FONT COLOR=red><A NAME="586_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu</A>; + Proc : <b>in</b> Menu_Hook_Function); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">set_menu_term()</A></EM></FONT> + <b>pragma</b> Inline (Set_Menu_Term_Hook); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_52"#2|</EM></FONT> + <b>function</b> Get_Item_Init_Hook (Men : Menu) <b>return</b> Menu_Hook_Function; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">item_init()</A></EM></FONT> + <b>pragma</b> Inline (Get_Item_Init_Hook); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_53"#2|</EM></FONT> + <b>function</b> Get_Item_Term_Hook (Men : Menu) <b>return</b> Menu_Hook_Function; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">item_term()</A></EM></FONT> + <b>pragma</b> Inline (Get_Item_Term_Hook); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_54"#2|</EM></FONT> + <b>function</b> Get_Menu_Init_Hook (Men : Menu) <b>return</b> Menu_Hook_Function; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">menu_init()</A></EM></FONT> + <b>pragma</b> Inline (Get_Menu_Init_Hook); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_55"#2|</EM></FONT> + <b>function</b> Get_Menu_Term_Hook (Men : Menu) <b>return</b> Menu_Hook_Function; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">menu_term()</A></EM></FONT> + <b>pragma</b> Inline (Get_Menu_Term_Hook); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_items.3x.html">menu_items.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_56"#2|</EM></FONT> + <b>procedure</b> Redefine (<FONT COLOR=red><A NAME="616_24">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#180_9">Menu</A>; + Items : <b>in</b> Item_Array_Access); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_items.3x.html">set_menu_items()</A></EM></FONT> + <b>pragma</b> Inline (Redefine); + + <b>procedure</b> Set_Items (<FONT COLOR=red><A NAME="621_25">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#180_9">Menu</A>; + <A HREF="terminal_interface-curses-menus__ads.htm#620_14"> </A> Items : <b>in</b> Item_Array_Access) <b>renames</b> Redefine; + <b>pragma</b> Inline (Set_Items); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_57"#2|</EM></FONT> + <b>function</b> Items (<FONT COLOR=red><A NAME="626_20">Men</A></FONT> : Menu; + Index : Positive) <b>return</b> Item; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_items.3x.html">menu_items()</A></EM></FONT> + <b>pragma</b> Inline (Items); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_58"#2|</EM></FONT> + <b>function</b> Item_Count (Men : Menu) <b>return</b> Natural; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_items.3x.html">item_count()</A></EM></FONT> + <b>pragma</b> Inline (Item_Count); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_new.3x.html">menu_new.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_59"#2|</EM></FONT> + <b>function</b> Create (Items : Item_Array_Access) <b>return</b> Menu; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_new.3x.html">new_menu()</A></EM></FONT> + <FONT COLOR=green><EM>-- Not inlined</EM></FONT> + + <b>function</b> New_Menu (Items : Item_Array_Access) <b>return</b> Menu <b>renames</b> Create; + + <FONT COLOR=green><EM>-- #1A NAME="AFU_60"#2|</EM></FONT> + <b>procedure</b> Delete (Men : <b>in</b> <b>out</b> Menu); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_new.3x.html">free_menu()</A></EM></FONT> + <FONT COLOR=green><EM>-- Reset Men to Null_Menu</EM></FONT> + <FONT COLOR=green><EM>-- Not inlined</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_driver.3x.html">menu_driver.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <b>type</b> Driver_Result <b>is</b> (<FONT COLOR=red><A NAME="657_27">Menu_Ok</A></FONT>, + <FONT COLOR=red><A NAME="658_27">Request_Denied</A></FONT>, + <FONT COLOR=red><A NAME="659_27">Unknown_Request</A></FONT>, + No_Match); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_61"#2|</EM></FONT> + <b>function</b> Driver (<FONT COLOR=red><A NAME="663_21">Men</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#68_9">Menu</A>; + Key : Key_Code) <b>return</b> Driver_Result; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_driver.3x.html">menu_driver()</A></EM></FONT> + <FONT COLOR=green><EM>-- Driver is not inlined</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_62"#2|</EM></FONT> + <FONT COLOR=green><EM>-- Not Implemented: menu_request_name, menu_request_by_name</EM></FONT> +<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> +<b>private</b> + <b>type</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Item</A> <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; + <b>type</b> Menu <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; + + <A HREF="terminal_interface-curses-menus__ads.htm#63_4">Null_Item</A> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Item</A> := 0; + Null_Menu : <b>constant</b> Menu := 0; + +<b>end</b> Terminal_Interface.Curses.Menus; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-mouse__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-mouse__adb.htm new file mode 100644 index 0000000..a8137c4 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-mouse__adb.htm @@ -0,0 +1,220 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-mouse.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-mouse.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Mouse --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.17 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> System; + +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-mouse__ads.htm#48_35">Mouse</A><FONT COLOR=red><A NAME="48_40"></A></FONT> <b>is</b> + + <b>use</b> <b>type</b> System.Bit_Order; + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>function</b> <A HREF="terminal_interface-curses-mouse__ads.htm#98_13">Has_Mouse</A><FONT COLOR=red><A NAME="53_13"></A></FONT> <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="55_16">Mouse_Avail</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-mouse__adb.htm#55_16">Mouse_Avail</A>, "_nc_has_mouse"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__ads.htm#761_13">Has_Key</A> (<A HREF="terminal_interface-curses__ads.htm#203_4">Key_Mouse</A>) <b>or</b> <b>else</b> <A HREF="terminal_interface-curses-mouse__adb.htm#55_16">Mouse_Avail</A> /= 0 <b>then</b> + <b>return</b> True; + <b>else</b> + <b>return</b> False; + <b>end</b> <b>if</b>; + <b>end</b> Has_Mouse; + + <b>function</b> <A HREF="terminal_interface-curses-mouse__ads.htm#133_13">Get_Mouse</A><FONT COLOR=red><A NAME="65_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-mouse__ads.htm#92_9">Mouse_Event</A> + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="67_12">Event_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-mouse__ads.htm#92_9">Mouse_Event</A>; + + <b>function</b> <FONT COLOR=red><A NAME="69_16">Getmouse</A></FONT> (<FONT COLOR=red><A NAME="69_26">Ev</A></FONT> : <A HREF="terminal_interface-curses-mouse__adb.htm#67_12">Event_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-mouse__adb.htm#69_16">Getmouse</A>, "getmouse"); + + <FONT COLOR=red><A NAME="72_7">Event</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-mouse__ads.htm#92_9">Mouse_Event</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-mouse__adb.htm#69_16">Getmouse</A> (<A HREF="terminal_interface-curses-mouse__adb.htm#72_7">Event</A>'<b>Access</b>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-mouse__adb.htm#72_7">Event</A>; + <b>end</b> Get_Mouse; + + <b>procedure</b> <A HREF="terminal_interface-curses-mouse__ads.htm#101_14">Register_Reportable_Event</A><FONT COLOR=red><A NAME="80_14"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#102_7">Button</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#68_9">Mouse_Button</A>; + <A HREF="terminal_interface-curses-mouse__ads.htm#103_7">State</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#79_9">Button_State</A>; + <A HREF="terminal_interface-curses-mouse__ads.htm#104_7">Mask</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A>) + <b>is</b> + <FONT COLOR=red><A NAME="84_7">Button_Nr</A></FONT> : <b>constant</b> Natural := <A HREF="terminal_interface-curses-mouse__ads.htm#68_9">Mouse_Button</A>'Pos (<A HREF="terminal_interface-curses-mouse__ads.htm#102_7">Button</A>); + <FONT COLOR=red><A NAME="85_7">State_Nr</A></FONT> : <b>constant</b> Natural := <A HREF="terminal_interface-curses-mouse__ads.htm#79_9">Button_State</A>'Pos (<A HREF="terminal_interface-curses-mouse__ads.htm#103_7">State</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-mouse__ads.htm#102_7">Button</A> <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#77_12">Modifier_Keys</A> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-mouse__ads.htm#103_7">State</A> /= <A HREF="terminal_interface-curses-mouse__ads.htm#80_26">Pressed</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>else</b> + <b>if</b> <A HREF="terminal_interface-curses-mouse__ads.htm#102_7">Button</A> <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#76_12">Real_Buttons</A> <b>then</b> + <A HREF="terminal_interface-curses-mouse__ads.htm#104_7">Mask</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#104_7">Mask</A> <b>or</b> ((2 ** (6 * <A HREF="terminal_interface-curses-mouse__adb.htm#84_7">Button_Nr</A>)) ** <A HREF="terminal_interface-curses-mouse__adb.htm#85_7">State_Nr</A>); + <b>else</b> + <A HREF="terminal_interface-curses-mouse__ads.htm#104_7">Mask</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#104_7">Mask</A> <b>or</b> (<A HREF="terminal_interface-curses-mouse__ads.htm#217_4">BUTTON_CTRL</A> ** (<A HREF="terminal_interface-curses-mouse__adb.htm#84_7">Button_Nr</A> - 4)); + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <b>end</b> Register_Reportable_Event; + + <b>procedure</b> <A HREF="terminal_interface-curses-mouse__ads.htm#110_14">Register_Reportable_Events</A><FONT COLOR=red><A NAME="98_14"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#111_7">Button</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#68_9">Mouse_Button</A>; + <A HREF="terminal_interface-curses-mouse__ads.htm#112_7">State</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#85_9">Button_States</A>; + <A HREF="terminal_interface-curses-mouse__ads.htm#113_7">Mask</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A>) + <b>is</b> + <b>begin</b> + <b>for</b> <FONT COLOR=red><A NAME="103_11">S</A></FONT> <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#85_9">Button_States</A>'<b>Range</b> <b>loop</b> + <b>if</b> <A HREF="terminal_interface-curses-mouse__ads.htm#112_7">State</A> (<A HREF="terminal_interface-curses-mouse__adb.htm#103_11">S</A>) <b>then</b> + <A HREF="terminal_interface-curses-mouse__ads.htm#101_14">Register_Reportable_Event</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#111_7">Button</A>, <A HREF="terminal_interface-curses-mouse__adb.htm#103_11">S</A>, <A HREF="terminal_interface-curses-mouse__ads.htm#113_7">Mask</A>); + <b>end</b> <b>if</b>; + <b>end</b> <b>loop</b>; + <b>end</b> Register_Reportable_Events; + + <b>function</b> <A HREF="terminal_interface-curses-mouse__ads.htm#123_13">Start_Mouse</A><FONT COLOR=red><A NAME="110_13"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#123_26">Mask</A> : <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#66_4">All_Events</A>) + <b>return</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="113_16">MMask</A></FONT> (<FONT COLOR=red><A NAME="113_23">M</A></FONT> : <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A>; + <FONT COLOR=red><A NAME="114_23">O</A></FONT> : <b>access</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A>) <b>return</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-mouse__adb.htm#113_16">MMask</A>, "mousemask"); + <FONT COLOR=red><A NAME="116_7">R</A></FONT> : <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A>; + <FONT COLOR=red><A NAME="117_7">Old</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-mouse__adb.htm#116_7">R</A> := <A HREF="terminal_interface-curses-mouse__adb.htm#113_16">MMask</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#123_26">Mask</A>, <A HREF="terminal_interface-curses-mouse__adb.htm#117_7">Old</A>'<b>Access</b>); + <b>return</b> <A HREF="terminal_interface-curses-mouse__adb.htm#117_7">Old</A>; + <b>end</b> Start_Mouse; + + <b>procedure</b> <A HREF="terminal_interface-curses-mouse__ads.htm#128_14">End_Mouse</A><FONT COLOR=red><A NAME="123_14"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#128_25">Mask</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#65_4">No_Events</A>) + <b>is</b> + <b>begin</b> + <b>null</b>; + <b>end</b> End_Mouse; + + <b>procedure</b> <A HREF="terminal_interface-curses-mouse__adb.htm#133_14">Dispatch_Event</A><FONT COLOR=red><A NAME="129_14"></A></FONT> (<FONT COLOR=red><A NAME="129_30">Mask</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A>; + <FONT COLOR=red><A NAME="130_30">Button</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#68_9">Mouse_Button</A>; + <FONT COLOR=red><A NAME="131_30">State</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#79_9">Button_State</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-mouse__adb.htm#129_14">Dispatch_Event</A><FONT COLOR=red><A NAME="133_14"></A></FONT> (<A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Mask</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A>; + <A HREF="terminal_interface-curses-mouse__adb.htm#130_30">Button</A> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#68_9">Mouse_Button</A>; + <A HREF="terminal_interface-curses-mouse__adb.htm#131_30">State</A> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#79_9">Button_State</A>) <b>is</b> + <FONT COLOR=red><A NAME="136_7">L</A></FONT> : <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-mouse__adb.htm#130_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#74_26">Alt</A>; <FONT COLOR=green><EM>-- preset to non real button;</EM></FONT> + <b>if</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__ads.htm#222_4">BUTTON1_EVENTS</A>) /= 0 <b>then</b> + <A HREF="terminal_interface-curses-mouse__adb.htm#130_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#68_26">Left</A>; + <b>elsif</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__ads.htm#223_4">BUTTON2_EVENTS</A>) /= 0 <b>then</b> + <A HREF="terminal_interface-curses-mouse__adb.htm#130_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#69_26">Middle</A>; + <b>elsif</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__ads.htm#224_4">BUTTON3_EVENTS</A>) /= 0 <b>then</b> + <A HREF="terminal_interface-curses-mouse__adb.htm#130_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#70_26">Right</A>; + <b>elsif</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__ads.htm#225_4">BUTTON4_EVENTS</A>) /= 0 <b>then</b> + <A HREF="terminal_interface-curses-mouse__adb.htm#130_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#71_26">Button4</A>; + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses-mouse__adb.htm#130_30">Button</A> <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#76_12">Real_Buttons</A> <b>then</b> + <A HREF="terminal_interface-curses-mouse__adb.htm#136_7">L</A> := 2 ** (6 * <A HREF="terminal_interface-curses-mouse__ads.htm#68_9">Mouse_Button</A>'Pos (<A HREF="terminal_interface-curses-mouse__adb.htm#130_30">Button</A>)); + <b>for</b> <FONT COLOR=red><A NAME="150_14">I</A></FONT> <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#79_9">Button_State</A>'<b>Range</b> <b>loop</b> + <b>if</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__adb.htm#136_7">L</A>) /= 0 <b>then</b> + <A HREF="terminal_interface-curses-mouse__adb.htm#131_30">State</A> := <A HREF="terminal_interface-curses-mouse__adb.htm#150_14">I</A>; + <b>exit</b>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-mouse__adb.htm#136_7">L</A> := 2 * <A HREF="terminal_interface-curses-mouse__adb.htm#136_7">L</A>; + <b>end</b> <b>loop</b>; + <b>else</b> + <A HREF="terminal_interface-curses-mouse__adb.htm#131_30">State</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#80_26">Pressed</A>; + <b>if</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__ads.htm#217_4">BUTTON_CTRL</A>) /= 0 <b>then</b> + <A HREF="terminal_interface-curses-mouse__adb.htm#130_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#72_26">Control</A>; + <b>elsif</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__ads.htm#218_4">BUTTON_SHIFT</A>) /= 0 <b>then</b> + <A HREF="terminal_interface-curses-mouse__adb.htm#130_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#73_26">Shift</A>; + <b>elsif</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__ads.htm#219_4">BUTTON_ALT</A>) /= 0 <b>then</b> + <A HREF="terminal_interface-curses-mouse__adb.htm#130_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#74_26">Alt</A>; + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <b>end</b> Dispatch_Event; + + <b>procedure</b> <A HREF="terminal_interface-curses-mouse__ads.htm#137_14">Get_Event</A><FONT COLOR=red><A NAME="169_14"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#137_25">Event</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#92_9">Mouse_Event</A>; + <A HREF="terminal_interface-curses-mouse__ads.htm#138_25">Y</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses-mouse__ads.htm#139_25">X</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses-mouse__ads.htm#140_25">Button</A> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#68_9">Mouse_Button</A>; + <A HREF="terminal_interface-curses-mouse__ads.htm#141_25">State</A> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#79_9">Button_State</A>) + <b>is</b> + <FONT COLOR=red><A NAME="175_7">Mask</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#137_25">Event</A>.<A HREF="terminal_interface-curses-mouse__ads.htm#174_10">Bstate</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-mouse__ads.htm#139_25">X</A> := <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#137_25">Event</A>.<A HREF="terminal_interface-curses-mouse__ads.htm#172_10">X</A>); + <A HREF="terminal_interface-curses-mouse__ads.htm#138_25">Y</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#137_25">Event</A>.<A HREF="terminal_interface-curses-mouse__ads.htm#172_13">Y</A>); + <A HREF="terminal_interface-curses-mouse__adb.htm#129_14">Dispatch_Event</A> (<A HREF="terminal_interface-curses-mouse__adb.htm#175_7">Mask</A>, <A HREF="terminal_interface-curses-mouse__ads.htm#140_25">Button</A>, <A HREF="terminal_interface-curses-mouse__ads.htm#141_25">State</A>); + <b>end</b> Get_Event; + + <b>procedure</b> <A HREF="terminal_interface-curses-mouse__ads.htm#149_14">Unget_Mouse</A><FONT COLOR=red><A NAME="182_14"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#149_27">Event</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#92_9">Mouse_Event</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="184_16">Ungetmouse</A></FONT> (<FONT COLOR=red><A NAME="184_28">Ev</A></FONT> : <A HREF="terminal_interface-curses-mouse__ads.htm#92_9">Mouse_Event</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-mouse__adb.htm#184_16">Ungetmouse</A>, "ungetmouse"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-mouse__adb.htm#184_16">Ungetmouse</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#149_27">Event</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Unget_Mouse; + + <b>function</b> <A HREF="terminal_interface-curses-mouse__ads.htm#154_13">Enclosed_In_Window</A><FONT COLOR=red><A NAME="192_13"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#154_33">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses-mouse__ads.htm#155_33">Event</A> : <A HREF="terminal_interface-curses-mouse__ads.htm#92_9">Mouse_Event</A>) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="195_16">Wenclose</A></FONT> (<FONT COLOR=red><A NAME="195_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="195_40">Y</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; <FONT COLOR=red><A NAME="195_51">X</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-mouse__adb.htm#195_16">Wenclose</A>, "wenclose"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-mouse__adb.htm#195_16">Wenclose</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#154_33">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#155_33">Event</A>.<A HREF="terminal_interface-curses-mouse__ads.htm#172_13">Y</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#155_33">Event</A>.<A HREF="terminal_interface-curses-mouse__ads.htm#172_10">X</A>)) + = <A HREF="terminal_interface-curses__ads.htm#1932_4">Curses_Bool_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Enclosed_In_Window; + + <b>function</b> <A HREF="terminal_interface-curses-mouse__ads.htm#161_13">Mouse_Interval</A><FONT COLOR=red><A NAME="207_13"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#161_29">Msec</A> : Natural := 200) <b>return</b> Natural + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="209_16">Mouseinterval</A></FONT> (<FONT COLOR=red><A NAME="209_31">Msec</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-mouse__adb.htm#209_16">Mouseinterval</A>, "mouseinterval"); + <b>begin</b> + <b>return</b> Natural (<A HREF="terminal_interface-curses-mouse__adb.htm#209_16">Mouseinterval</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#161_29">Msec</A>))); + <b>end</b> Mouse_Interval; + +<b>end</b> Terminal_Interface.Curses.Mouse; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-mouse__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-mouse__ads.htm new file mode 100644 index 0000000..d562e90 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-mouse__ads.htm @@ -0,0 +1,237 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-mouse.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-mouse.ads </H1></DIV><HR> +<PRE> + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Mouse --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.21 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- mouse binding.</EM></FONT> +<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT> +<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT> +<FONT COLOR=green><EM>-- |</EM></FONT> +<b>with</b> System; + +<b>package</b> Terminal_Interface.Curses.Mouse <b>is</b> + <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Mouse); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_mouse.3x.html">curs_mouse.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- Please note, that in ncurses-1.9.9e documentation mouse support</EM></FONT> + <FONT COLOR=green><EM>-- is still marked as experimental. So also this binding will change</EM></FONT> + <FONT COLOR=green><EM>-- if the ncurses methods change.</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=green><EM>-- mouse_trafo, wmouse_trafo are implemented as Transform_Coordinates</EM></FONT> + <FONT COLOR=green><EM>-- in the parent package.</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=green><EM>-- Not implemented:</EM></FONT> + <FONT COLOR=green><EM>-- REPORT_MOUSE_POSITION (i.e. as a parameter to Register_Reportable_Event</EM></FONT> + <FONT COLOR=green><EM>-- or Start_Mouse)</EM></FONT> + <b>type</b> Event_Mask <b>is</b> <b>private</b>; + <FONT COLOR=red><A NAME="66_4">No_Events</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A>; + All_Events : <b>constant</b> Event_Mask; + + <b>type</b> Mouse_Button <b>is</b> (<FONT COLOR=red><A NAME="69_26">Left</A></FONT>, <FONT COLOR=green><EM>-- aka: Button 1</EM></FONT> + <FONT COLOR=red><A NAME="70_26">Middle</A></FONT>, <FONT COLOR=green><EM>-- aka: Button 2</EM></FONT> + <FONT COLOR=red><A NAME="71_26">Right</A></FONT>, <FONT COLOR=green><EM>-- aka: Button 3</EM></FONT> + <FONT COLOR=red><A NAME="72_26">Button4</A></FONT>, <FONT COLOR=green><EM>-- aka: Button 4</EM></FONT> + <FONT COLOR=red><A NAME="73_26">Control</A></FONT>, <FONT COLOR=green><EM>-- Control Key</EM></FONT> + <FONT COLOR=red><A NAME="74_26">Shift</A></FONT>, <FONT COLOR=green><EM>-- Shift Key</EM></FONT> + Alt); <FONT COLOR=green><EM>-- ALT Key</EM></FONT> + + <b>subtype</b> <FONT COLOR=red><A NAME="77_12">Real_Buttons</A></FONT> <b>is</b> <A HREF="terminal_interface-curses-mouse__ads.htm#68_9">Mouse_Button</A> <b>range</b> <A HREF="terminal_interface-curses-mouse__ads.htm#72_26">Left</A> .. Button4; + <b>subtype</b> Modifier_Keys <b>is</b> Mouse_Button <b>range</b> Control .. Alt; + + <b>type</b> Button_State <b>is</b> (<FONT COLOR=red><A NAME="80_26">Released</A></FONT>, + <FONT COLOR=red><A NAME="81_26">Pressed</A></FONT>, + <FONT COLOR=red><A NAME="82_26">Clicked</A></FONT>, + <FONT COLOR=red><A NAME="83_26">Double_Clicked</A></FONT>, + Triple_Clicked); + + <b>type</b> Button_States <b>is</b> <b>array</b> (Button_State) <b>of</b> Boolean; + <b>pragma</b> Pack (Button_States); + + All_Clicks : <b>constant</b> Button_States := (Clicked .. Triple_Clicked => True, + <FONT COLOR=red><A NAME="90_4"> </A></FONT> <A HREF="terminal_interface-curses-mouse__ads.htm#85_9"> </A> <b>others</b> => False); + All_States : <b>constant</b> Button_States := (<b>others</b> => True); + + <b>type</b> Mouse_Event <b>is</b> <b>private</b>; + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_mouse.3x.html">curs_mouse.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <b>function</b> Has_Mouse <b>return</b> Boolean; + <FONT COLOR=green><EM>-- Return true if a mouse device is supported, false otherwise.</EM></FONT> + + <b>procedure</b> Register_Reportable_Event + (<FONT COLOR=red><A NAME="103_7">Button</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#79_9">Mouse_Button</A>; + <FONT COLOR=red><A NAME="104_7">State</A></FONT> : <b>in</b> Button_State; + Mask : <b>in</b> <b>out</b> Event_Mask); + <FONT COLOR=green><EM>-- Stores the event described by the button and the state in the mask.</EM></FONT> + <FONT COLOR=green><EM>-- Before you call this the first time, you should init the mask</EM></FONT> + <FONT COLOR=green><EM>-- with the Empty_Mask constant</EM></FONT> + <b>pragma</b> Inline (Register_Reportable_Event); + + <b>procedure</b> Register_Reportable_Events + (<FONT COLOR=red><A NAME="112_7">Button</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#85_9">Mouse_Button</A>; + <FONT COLOR=red><A NAME="113_7">State</A></FONT> : <b>in</b> Button_States; + Mask : <b>in</b> <b>out</b> Event_Mask); + <FONT COLOR=green><EM>-- Register all events described by the Button and the State bitmap.</EM></FONT> + <FONT COLOR=green><EM>-- Before you call this the first time, you should init the mask</EM></FONT> + <FONT COLOR=green><EM>-- with the Empty_Mask constant</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> + <FONT COLOR=green><EM>-- There is one difference to mousmask(): we return the value of the</EM></FONT> + <FONT COLOR=green><EM>-- old mask, that means the event mask value before this call.</EM></FONT> + <FONT COLOR=green><EM>-- Not Implemented: The library version</EM></FONT> + <FONT COLOR=green><EM>-- returns a Mouse_Mask that tells which events are reported.</EM></FONT> + <b>function</b> Start_Mouse (Mask : <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := All_Events) + <b>return</b> Event_Mask; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_mouse.3x.html">mousemask()</A></EM></FONT> + <b>pragma</b> Inline (Start_Mouse); + + <b>procedure</b> End_Mouse (Mask : <b>in</b> Event_Mask := No_Events); + <FONT COLOR=green><EM>-- Terminates the mouse, restores the specified event mask</EM></FONT> + <b>pragma</b> Inline (End_Mouse); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> + <b>function</b> Get_Mouse <b>return</b> Mouse_Event; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_mouse.3x.html">getmouse()</A></EM></FONT> + <b>pragma</b> Inline (Get_Mouse); + + <b>procedure</b> Get_Event (<FONT COLOR=red><A NAME="138_25">Event</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Mouse_Event</A>; + <FONT COLOR=red><A NAME="139_25">Y</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="140_25">X</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#68_9">Column_Position</A>; + <FONT COLOR=red><A NAME="141_25">Button</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#79_9">Mouse_Button</A>; + State : <b>out</b> Button_State); + <FONT COLOR=green><EM>-- !!! Warning: X and Y are screen coordinates. Due to ripped of lines they</EM></FONT> + <FONT COLOR=green><EM>-- may not be identical to window coordinates.</EM></FONT> + <FONT COLOR=green><EM>-- Not Implemented: Get_Event only reports one event, the C library</EM></FONT> + <FONT COLOR=green><EM>-- version supports multiple events, e.g. {click-1, click-3}</EM></FONT> + <b>pragma</b> Inline (Get_Event); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> + <b>procedure</b> Unget_Mouse (Event : <b>in</b> Mouse_Event); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_mouse.3x.html">ungetmouse()</A></EM></FONT> + <b>pragma</b> Inline (Unget_Mouse); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_4"#2|</EM></FONT> + <b>function</b> Enclosed_In_Window (<FONT COLOR=red><A NAME="155_33">Win</A></FONT> : <A HREF="terminal_interface-curses-mouse__ads.htm#92_9">Window</A> := Standard_Window; + Event : Mouse_Event) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_mouse.3x.html">wenclose()</A></EM></FONT> + <FONT COLOR=green><EM>-- But : use event instead of screen coordinates.</EM></FONT> + <b>pragma</b> Inline (Enclosed_In_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_5"#2|</EM></FONT> + <b>function</b> Mouse_Interval (Msec : Natural := 200) <b>return</b> Natural; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_mouse.3x.html">mouseinterval()</A></EM></FONT> + <b>pragma</b> Inline (Mouse_Interval); + +<b>private</b> + <b>type</b> Event_Mask <b>is</b> <b>new</b> Interfaces.C.unsigned_long; + + <b>type</b> Mouse_Event <b>is</b> + <b>record</b> + Id : Integer <b>range</b> Integer (<A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.short'First) .. + <FONT COLOR=red><A NAME="172_10"> </A></FONT> <FONT COLOR=red><A NAME="172_13"> </A></FONT> <FONT COLOR=red><A NAME="172_16"> </A></FONT> Integer (<A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.short'Last); + X, Y, Z : Integer <b>range</b> Integer (<A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int'First) .. + <FONT COLOR=red><A NAME="174_10"> </A></FONT> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9"> </A> Integer (Interfaces.C.int'Last); + Bstate : Event_Mask; + <b>end</b> <b>record</b>; + <b>pragma</b> Convention (C, Mouse_Event); + <b>pragma</b> Pack (Mouse_Event); + + <b>for</b> Mouse_Event <b>use</b> + <b>record</b> + Id <b>at</b> 0 <b>range</b> 0 .. 15; + X <b>at</b> 0 <b>range</b> 32 .. 63; + Y <b>at</b> 0 <b>range</b> 64 .. 95; + Z <b>at</b> 0 <b>range</b> 96 .. 127; + Bstate <b>at</b> 0 <b>range</b> 128 .. 159; + <b>end</b> <b>record</b>; + <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> + <FONT COLOR=green><EM>-- different on your system.</EM></FONT> + + Generation_Bit_Order : <b>constant</b> System.Bit_Order := System.Low_Order_First; + <FONT COLOR=green><EM>-- This constant may be different on your system.</EM></FONT> + + <FONT COLOR=red><A NAME="194_4">BUTTON1_RELEASED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000000001#; + <FONT COLOR=red><A NAME="195_4">BUTTON1_PRESSED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000000002#; + <FONT COLOR=red><A NAME="196_4">BUTTON1_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000000004#; + <FONT COLOR=red><A NAME="197_4">BUTTON1_DOUBLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000000010#; + <FONT COLOR=red><A NAME="198_4">BUTTON1_TRIPLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000000020#; + <FONT COLOR=red><A NAME="199_4">BUTTON1_RESERVED_EVENT</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000000040#; + <FONT COLOR=red><A NAME="200_4">BUTTON2_RELEASED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000000100#; + <FONT COLOR=red><A NAME="201_4">BUTTON2_PRESSED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000000200#; + <FONT COLOR=red><A NAME="202_4">BUTTON2_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000000400#; + <FONT COLOR=red><A NAME="203_4">BUTTON2_DOUBLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000001000#; + <FONT COLOR=red><A NAME="204_4">BUTTON2_TRIPLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000002000#; + <FONT COLOR=red><A NAME="205_4">BUTTON2_RESERVED_EVENT</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000004000#; + <FONT COLOR=red><A NAME="206_4">BUTTON3_RELEASED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000010000#; + <FONT COLOR=red><A NAME="207_4">BUTTON3_PRESSED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000020000#; + <FONT COLOR=red><A NAME="208_4">BUTTON3_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000040000#; + <FONT COLOR=red><A NAME="209_4">BUTTON3_DOUBLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000100000#; + <FONT COLOR=red><A NAME="210_4">BUTTON3_TRIPLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000200000#; + <FONT COLOR=red><A NAME="211_4">BUTTON3_RESERVED_EVENT</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000400000#; + <FONT COLOR=red><A NAME="212_4">BUTTON4_RELEASED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00001000000#; + <FONT COLOR=red><A NAME="213_4">BUTTON4_PRESSED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00002000000#; + <FONT COLOR=red><A NAME="214_4">BUTTON4_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00004000000#; + <FONT COLOR=red><A NAME="215_4">BUTTON4_DOUBLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00010000000#; + <FONT COLOR=red><A NAME="216_4">BUTTON4_TRIPLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00020000000#; + <FONT COLOR=red><A NAME="217_4">BUTTON4_RESERVED_EVENT</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00040000000#; + <FONT COLOR=red><A NAME="218_4">BUTTON_CTRL</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00100000000#; + <FONT COLOR=red><A NAME="219_4">BUTTON_SHIFT</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00200000000#; + <FONT COLOR=red><A NAME="220_4">BUTTON_ALT</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00400000000#; + <FONT COLOR=red><A NAME="221_4">REPORT_MOUSE_POSITION</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#01000000000#; + <FONT COLOR=red><A NAME="222_4">ALL_MOUSE_EVENTS</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00777777777#; + <FONT COLOR=red><A NAME="223_4">BUTTON1_EVENTS</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000000077#; + <FONT COLOR=red><A NAME="224_4">BUTTON2_EVENTS</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000007700#; + <FONT COLOR=red><A NAME="225_4">BUTTON3_EVENTS</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := 8#00000770000#; + BUTTON4_EVENTS : <b>constant</b> Event_Mask := 8#00077000000#; + + + <A HREF="terminal_interface-curses-mouse__ads.htm#66_4">No_Events</A> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#64_9">Event_Mask</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#221_4">0</A>; + All_Events : <b>constant</b> Event_Mask := ALL_MOUSE_EVENTS; + +<b>end</b> Terminal_Interface.Curses.Mouse; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-panels-user_data__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-panels-user_data__adb.htm new file mode 100644 index 0000000..dedbdb7 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-panels-user_data__adb.htm @@ -0,0 +1,84 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-panels-user_data.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-panels-user_data.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Panels.User_Data --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; +<b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-panels__ads.htm#44_35">Panels</A>; +<b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-panels__ads.htm#44_35">Panels</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-panels__ads.htm#44_35">Panels</A>.<A HREF="terminal_interface-curses-panels-user_data__ads.htm#46_42">User_Data</A> <b>is</b> + + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>procedure</b> <A HREF="terminal_interface-curses-panels-user_data__ads.htm#54_14">Set_User_Data</A><FONT COLOR=red><A NAME="52_14"></A></FONT> (<A HREF="terminal_interface-curses-panels-user_data__ads.htm#54_29">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>; + <A HREF="terminal_interface-curses-panels-user_data__ads.htm#55_29">Data</A> : <b>in</b> <A HREF="terminal_interface-curses-panels-user_data__ads.htm#45_9">User_Access</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="55_16">Set_Panel_Userptr</A></FONT> (<FONT COLOR=red><A NAME="55_35">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>; + <FONT COLOR=red><A NAME="56_35">Addr</A></FONT> : <A HREF="terminal_interface-curses-panels-user_data__ads.htm#45_9">User_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels-user_data__adb.htm#55_16">Set_Panel_Userptr</A>, "set_panel_userptr"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-panels-user_data__adb.htm#55_16">Set_Panel_Userptr</A> (<A HREF="terminal_interface-curses-panels-user_data__ads.htm#54_29">Pan</A>, <A HREF="terminal_interface-curses-panels-user_data__ads.htm#55_29">Data</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#60_4">Panel_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_User_Data; + + <b>function</b> <A HREF="terminal_interface-curses-panels-user_data__ads.htm#65_13">Get_User_Data</A><FONT COLOR=red><A NAME="64_13"></A></FONT> (<A HREF="terminal_interface-curses-panels-user_data__ads.htm#65_28">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses-panels-user_data__ads.htm#45_9">User_Access</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="66_16">Panel_Userptr</A></FONT> (<FONT COLOR=red><A NAME="66_31">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses-panels-user_data__ads.htm#45_9">User_Access</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels-user_data__adb.htm#66_16">Panel_Userptr</A>, "panel_userptr"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-panels-user_data__adb.htm#66_16">Panel_Userptr</A> (<A HREF="terminal_interface-curses-panels-user_data__ads.htm#65_28">Pan</A>); + <b>end</b> Get_User_Data; + + <b>procedure</b> <A HREF="terminal_interface-curses-panels-user_data__ads.htm#60_14">Get_User_Data</A><FONT COLOR=red><A NAME="72_14"></A></FONT> (<A HREF="terminal_interface-curses-panels-user_data__ads.htm#60_29">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>; + <A HREF="terminal_interface-curses-panels-user_data__ads.htm#61_29">Data</A> : <b>out</b> <A HREF="terminal_interface-curses-panels-user_data__ads.htm#45_9">User_Access</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-panels-user_data__ads.htm#61_29">Data</A> := <A HREF="terminal_interface-curses-panels-user_data__ads.htm#65_13">Get_User_Data</A> (<A HREF="terminal_interface-curses-panels-user_data__ads.htm#60_29">Pan</A>); + <b>end</b> Get_User_Data; + +<b>end</b> Terminal_Interface.Curses.Panels.User_Data; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-panels-user_data__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-panels-user_data__ads.htm new file mode 100644 index 0000000..90810b6 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-panels-user_data__ads.htm @@ -0,0 +1,76 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-panels-user_data.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-panels-user_data.ads </H1></DIV><HR> +<PRE> + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Panels.User_Data --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.13 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + +<b>generic</b> + <b>type</b> <FONT COLOR=red><A NAME="45_9">User</A></FONT> <b>is</b> <b>limited</b> <b>private</b>; + <b>type</b> <A HREF="terminal_interface__ads.htm#42_9">User_Access</A> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-panels__ads.htm#44_35">User</A>; +<b>package</b> Terminal_Interface.Curses.Panels.User_Data<A HREF="terminal_interface-curses-panels__ads.htm#44_35"> </A><b>is</b> + <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Panels.User_Data); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/panel.3x.html">panel.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> + <b>procedure</b> Set_User_Data (<FONT COLOR=red><A NAME="55_29">Pan</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-panels-user_data__ads.htm#45_9">Panel</A>; + Data : <b>in</b> User_Access); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">set_panel_userptr</A></EM></FONT> + <b>pragma</b> Inline (Set_User_Data); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> + <b>procedure</b> Get_User_Data (<FONT COLOR=red><A NAME="61_29">Pan</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-panels-user_data__ads.htm#45_9">Panel</A>; + Data : <b>out</b> User_Access); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">panel_userptr</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> + <b>function</b> Get_User_Data (Pan : <b>in</b> Panel) <b>return</b> User_Access; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">panel_userptr</A></EM></FONT> + <FONT COLOR=green><EM>-- Same as function</EM></FONT> + <b>pragma</b> Inline (Get_User_Data); + +<b>end</b> Terminal_Interface.Curses.Panels.User_Data; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-panels__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-panels__adb.htm new file mode 100644 index 0000000..d721463 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-panels__adb.htm @@ -0,0 +1,170 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-panels.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-panels.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Panels --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-panels__ads.htm#44_35">Panels</A><FONT COLOR=red><A NAME="45_40"></A></FONT> <b>is</b> + + <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + + <b>function</b> <A HREF="terminal_interface-curses-panels__ads.htm#67_13">Create</A><FONT COLOR=red><A NAME="49_13"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#67_21">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="51_16">Newpanel</A></FONT> (<FONT COLOR=red><A NAME="51_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#51_16">Newpanel</A>, "new_panel"); + + <FONT COLOR=red><A NAME="54_7">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>; + <b>begin</b> + <A HREF="terminal_interface-curses-panels__adb.htm#54_7">Pan</A> := <A HREF="terminal_interface-curses-panels__adb.htm#51_16">Newpanel</A> (<A HREF="terminal_interface-curses-panels__ads.htm#67_21">Win</A>); + <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#54_7">Pan</A> = <A HREF="terminal_interface-curses-panels__ads.htm#54_4">Null_Panel</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#60_4">Panel_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-panels__adb.htm#54_7">Pan</A>; + <b>end</b> Create; + + <b>procedure</b> <A HREF="terminal_interface-curses-panels__ads.htm#77_14">Bottom</A><FONT COLOR=red><A NAME="63_14"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#77_22">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="65_16">Bottompanel</A></FONT> (<FONT COLOR=red><A NAME="65_29">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#65_16">Bottompanel</A>, "bottom_panel"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#65_16">Bottompanel</A> (<A HREF="terminal_interface-curses-panels__ads.htm#77_22">Pan</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#60_4">Panel_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Bottom; + + <b>procedure</b> <A HREF="terminal_interface-curses-panels__ads.htm#82_14">Top</A><FONT COLOR=red><A NAME="73_14"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#82_19">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="75_16">Toppanel</A></FONT> (<FONT COLOR=red><A NAME="75_26">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#75_16">Toppanel</A>, "top_panel"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#75_16">Toppanel</A> (<A HREF="terminal_interface-curses-panels__ads.htm#82_19">Pan</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#60_4">Panel_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Top; + + <b>procedure</b> <A HREF="terminal_interface-curses-panels__ads.htm#87_14">Show</A><FONT COLOR=red><A NAME="83_14"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#87_20">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="85_16">Showpanel</A></FONT> (<FONT COLOR=red><A NAME="85_27">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#85_16">Showpanel</A>, "show_panel"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#85_16">Showpanel</A> (<A HREF="terminal_interface-curses-panels__ads.htm#87_20">Pan</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#60_4">Panel_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Show; + + <b>procedure</b> <A HREF="terminal_interface-curses-panels__ads.htm#97_14">Hide</A><FONT COLOR=red><A NAME="93_14"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#97_20">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="95_16">Hidepanel</A></FONT> (<FONT COLOR=red><A NAME="95_27">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#95_16">Hidepanel</A>, "hide_panel"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#95_16">Hidepanel</A> (<A HREF="terminal_interface-curses-panels__ads.htm#97_20">Pan</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#60_4">Panel_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Hide; + + <b>function</b> <A HREF="terminal_interface-curses-panels__ads.htm#102_13">Get_Window</A><FONT COLOR=red><A NAME="103_13"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#102_25">Pan</A> : <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="105_16">Panel_Win</A></FONT> (<FONT COLOR=red><A NAME="105_27">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#105_16">Panel_Win</A>, "panel_window"); + + <FONT COLOR=red><A NAME="108_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses-panels__adb.htm#105_16">Panel_Win</A> (<A HREF="terminal_interface-curses-panels__ads.htm#102_25">Pan</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#108_7">Win</A> = <A HREF="terminal_interface-curses__ads.htm#58_4">Null_Window</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#60_4">Panel_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-panels__adb.htm#108_7">Win</A>; + <b>end</b> Get_Window; + + <b>procedure</b> <A HREF="terminal_interface-curses-panels__ads.htm#111_14">Replace</A><FONT COLOR=red><A NAME="116_14"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#111_23">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>; + <A HREF="terminal_interface-curses-panels__ads.htm#112_23">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="119_16">Replace_Pan</A></FONT> (<FONT COLOR=red><A NAME="119_29">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>; + <FONT COLOR=red><A NAME="120_29">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#119_16">Replace_Pan</A>, "replace_panel"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#119_16">Replace_Pan</A> (<A HREF="terminal_interface-curses-panels__ads.htm#111_23">Pan</A>, <A HREF="terminal_interface-curses-panels__ads.htm#112_23">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#60_4">Panel_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Replace; + + <b>procedure</b> <A HREF="terminal_interface-curses-panels__ads.htm#117_14">Move</A><FONT COLOR=red><A NAME="128_14"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#117_20">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>; + <A HREF="terminal_interface-curses-panels__ads.htm#118_20">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses-panels__ads.htm#119_20">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="132_16">Move</A></FONT> (<FONT COLOR=red><A NAME="132_22">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>; + <FONT COLOR=red><A NAME="133_22">Line</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="134_22">Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#132_16">Move</A>, "move_panel"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#132_16">Move</A> (<A HREF="terminal_interface-curses-panels__ads.htm#117_20">Pan</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-panels__ads.htm#118_20">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-panels__ads.htm#119_20">Column</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#60_4">Panel_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Move; + + <b>function</b> <A HREF="terminal_interface-curses-panels__ads.htm#124_13">Is_Hidden</A><FONT COLOR=red><A NAME="142_13"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#124_24">Pan</A> : <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="144_16">Panel_Hidden</A></FONT> (<FONT COLOR=red><A NAME="144_30">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#144_16">Panel_Hidden</A>, "panel_hidden"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#144_16">Panel_Hidden</A> (<A HREF="terminal_interface-curses-panels__ads.htm#124_24">Pan</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#76_4">Curses_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Is_Hidden; + + <b>procedure</b> <A HREF="terminal_interface-curses-panels__ads.htm#139_14">Delete</A><FONT COLOR=red><A NAME="154_14"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#139_22">Pan</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="156_16">Del_Panel</A></FONT> (<FONT COLOR=red><A NAME="156_27">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#49_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#156_16">Del_Panel</A>, "del_panel"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#156_16">Del_Panel</A> (<A HREF="terminal_interface-curses-panels__ads.htm#139_22">Pan</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#60_4">Panel_Exception</A>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-panels__ads.htm#139_22">Pan</A> := <A HREF="terminal_interface-curses-panels__ads.htm#54_4">Null_Panel</A>; + <b>end</b> Delete; + +<b>end</b> Terminal_Interface.Curses.Panels; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-panels__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-panels__ads.htm new file mode 100644 index 0000000..c7790ae --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-panels__ads.htm @@ -0,0 +1,153 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-panels.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-panels.ads </H1></DIV><HR> +<PRE> + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Panels --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.16 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> System; + +<b>package</b> Terminal_Interface.Curses.Panels <b>is</b> + <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Panels); + <b>pragma</b> Linker_Options ("-lpanel"); + <b>pragma</b> Linker_Options ("-lncurses"); + + <b>type</b> Panel <b>is</b> <b>private</b>; + + <FONT COLOR=green><EM>---------------------------</EM></FONT> + <FONT COLOR=green><EM>-- Interface constants --</EM></FONT> + <FONT COLOR=green><EM>---------------------------</EM></FONT> + Null_Panel : <b>constant</b> Panel; + + <FONT COLOR=green><EM>-------------------</EM></FONT> + <FONT COLOR=green><EM>-- Exceptions --</EM></FONT> + <FONT COLOR=green><EM>-------------------</EM></FONT> + + Panel_Exception : <b>exception</b>; + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/panel.3x.html">panel.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> + <b>function</b> Create (Win : Window) <b>return</b> Panel; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">new_panel()</A></EM></FONT> + <b>pragma</b> Inline (Create); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> + <b>function</b> New_Panel (Win : Window) <b>return</b> Panel <b>renames</b> Create; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">new_panel()</A></EM></FONT> + <b>pragma</b> Inline (New_Panel); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> + <b>procedure</b> Bottom (Pan : <b>in</b> Panel); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">bottom_panel()</A></EM></FONT> + <b>pragma</b> Inline (Bottom); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_4"#2|</EM></FONT> + <b>procedure</b> Top (Pan : <b>in</b> Panel); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">top_panel()</A></EM></FONT> + <b>pragma</b> Inline (Top); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_5"#2|</EM></FONT> + <b>procedure</b> Show (Pan : <b>in</b> Panel); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">show_panel()</A></EM></FONT> + <b>pragma</b> Inline (Show); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_6"#2|</EM></FONT> + <b>procedure</b> Update_Panels; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">update_panels()</A></EM></FONT> + <b>pragma</b> Import (C, Update_Panels, "update_panels"); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_7"#2|</EM></FONT> + <b>procedure</b> Hide (Pan : <b>in</b> Panel); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">hide_panel()</A></EM></FONT> + <b>pragma</b> Inline (Hide); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_8"#2|</EM></FONT> + <b>function</b> Get_Window (Pan : Panel) <b>return</b> Window; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">panel_window()</A></EM></FONT> + <b>pragma</b> Inline (Get_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_9"#2|</EM></FONT> + <b>function</b> Panel_Window (Pan : Panel) <b>return</b> Window <b>renames</b> Get_Window; + <b>pragma</b> Inline (Panel_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_10"#2|</EM></FONT> + <b>procedure</b> Replace (<FONT COLOR=red><A NAME="112_23">Pan</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Panel</A>; + Win : <b>in</b> Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">replace_panel()</A></EM></FONT> + <b>pragma</b> Inline (Replace); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_11"#2|</EM></FONT> + <b>procedure</b> Move (<FONT COLOR=red><A NAME="118_20">Pan</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Panel</A>; + <FONT COLOR=red><A NAME="119_20">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + Column : <b>in</b> Column_Position); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">move_panel()</A></EM></FONT> + <b>pragma</b> Inline (Move); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_12"#2|</EM></FONT> + <b>function</b> Is_Hidden (Pan : Panel) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">panel_hidden()</A></EM></FONT> + <b>pragma</b> Inline (Is_Hidden); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_13"#2|</EM></FONT> + <b>function</b> Above (Pan : Panel) <b>return</b> Panel; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">panel_above()</A></EM></FONT> + <b>pragma</b> Import (C, Above, "panel_above"); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_14"#2|</EM></FONT> + <b>function</b> Below (Pan : Panel) <b>return</b> Panel; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">panel_below()</A></EM></FONT> + <b>pragma</b> Import (C, Below, "panel_below"); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_15"#2|</EM></FONT> + <b>procedure</b> Delete (Pan : <b>in</b> <b>out</b> Panel); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">del_panel()</A></EM></FONT> + <b>pragma</b> Inline (Delete); + +<b>private</b> + <b>type</b> Panel <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; + Null_Panel : <b>constant</b> Panel := 0; + +<b>end</b> Terminal_Interface.Curses.Panels; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-putwin__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-putwin__adb.htm new file mode 100644 index 0000000..1e857b3 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-putwin__adb.htm @@ -0,0 +1,83 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-putwin.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-putwin.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.PutWin --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 2000 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.2 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> + +<b>with</b> Ada.Streams.Stream_IO.C_Streams; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C_Streams; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-putwin__ads.htm#44_35">PutWin</A><FONT COLOR=red><A NAME="46_40"></A></FONT> <b>is</b> + + <b>package</b> <FONT COLOR=red><A NAME="48_12">ICS</A></FONT> <b>renames</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C_Streams; + <b>package</b> <FONT COLOR=red><A NAME="49_12">ACS</A></FONT> <b>renames</b> Ada.Streams.Stream_IO.C_Streams; + <b>use</b> <b>type</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + + <b>procedure</b> <A HREF="terminal_interface-curses-putwin__ads.htm#46_14">Put_Window</A><FONT COLOR=red><A NAME="52_14"></A></FONT> (<A HREF="terminal_interface-curses-putwin__ads.htm#46_26">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses-putwin__ads.htm#47_26">File</A> : Ada.Streams.Stream_IO.File_Type) <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="54_16">putwin</A></FONT> (<FONT COLOR=red><A NAME="54_24">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="54_38">f</A></FONT> : <A HREF="terminal_interface-curses-putwin__adb.htm#48_12">ICS</A>.FILEs) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-putwin__adb.htm#54_16">putwin</A>, "putwin"); + + <FONT COLOR=red><A NAME="57_7">R</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-putwin__adb.htm#54_16">putwin</A> (<A HREF="terminal_interface-curses-putwin__ads.htm#46_26">Win</A>, <A HREF="terminal_interface-curses-putwin__adb.htm#49_12">ACS</A>.C_Stream (<A HREF="terminal_interface-curses-putwin__ads.htm#47_26">File</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-putwin__adb.htm#57_7">R</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Ok</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Put_Window; + + <b>function</b> <A HREF="terminal_interface-curses-putwin__ads.htm#49_13">Get_Window</A><FONT COLOR=red><A NAME="64_13"></A></FONT> (<A HREF="terminal_interface-curses-putwin__ads.htm#49_25">File</A> : Ada.Streams.Stream_IO.File_Type) + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="66_16">getwin</A></FONT> (<FONT COLOR=red><A NAME="66_24">f</A></FONT> : <A HREF="terminal_interface-curses-putwin__adb.htm#48_12">ICS</A>.FILEs) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-putwin__adb.htm#66_16">getwin</A>, "getwin"); + + <FONT COLOR=red><A NAME="69_7">W</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses-putwin__adb.htm#66_16">getwin</A> (<A HREF="terminal_interface-curses-putwin__adb.htm#49_12">ACS</A>.C_Stream (<A HREF="terminal_interface-curses-putwin__ads.htm#49_25">File</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-putwin__adb.htm#69_7">W</A> = <A HREF="terminal_interface-curses__ads.htm#58_4">Null_Window</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>else</b> + <b>return</b> <A HREF="terminal_interface-curses-putwin__adb.htm#69_7">W</A>; + <b>end</b> <b>if</b>; + <b>end</b> Get_Window; + +<b>end</b> Terminal_Interface.Curses.PutWin; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-putwin__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-putwin__ads.htm new file mode 100644 index 0000000..8358e0e --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-putwin__ads.htm @@ -0,0 +1,56 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-putwin.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-putwin.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.PutWin --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 2000 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.2 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> + +<b>with</b> Ada.Streams.Stream_IO; + +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-putwin__adb.htm#46_40">PutWin</A><FONT COLOR=red><A NAME="44_35"></A></FONT> <b>is</b> + + <b>procedure</b> <A HREF="terminal_interface-curses-putwin__adb.htm#52_14">Put_Window</A><FONT COLOR=red><A NAME="46_14"></A></FONT> (<FONT COLOR=red><A NAME="46_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="47_26">File</A></FONT> : Ada.Streams.Stream_IO.File_Type); + + <b>function</b> <A HREF="terminal_interface-curses-putwin__adb.htm#64_13">Get_Window</A><FONT COLOR=red><A NAME="49_13"></A></FONT> (<FONT COLOR=red><A NAME="49_25">File</A></FONT> : Ada.Streams.Stream_IO.File_Type) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + +<b>end</b> Terminal_Interface.Curses.PutWin; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-termcap__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-termcap__adb.htm new file mode 100644 index 0000000..47ab7bd --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-termcap__adb.htm @@ -0,0 +1,169 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-termcap.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-termcap.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Termcap --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 2000 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.4 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-termcap__ads.htm#43_35">Termcap</A><FONT COLOR=red><A NAME="47_40"></A></FONT> <b>is</b> + + <b>function</b> <A HREF="terminal_interface-curses-termcap__ads.htm#60_13">Get_Entry</A><FONT COLOR=red><A NAME="49_13"></A></FONT> (<A HREF="terminal_interface-curses-termcap__ads.htm#60_24">Name</A> : String) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="51_16">tgetent</A></FONT> (<FONT COLOR=red><A NAME="51_25">name</A></FONT> : char_array; <FONT COLOR=red><A NAME="51_44">val</A></FONT> : char_array) + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-termcap__adb.htm#51_16">tgetent</A>, "tgetent"); + <FONT COLOR=red><A NAME="54_7">NameTxt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-termcap__ads.htm#60_24">Name</A>'Length); + <FONT COLOR=red><A NAME="55_7">Length</A></FONT> : size_t; + <FONT COLOR=red><A NAME="56_7">ignored</A></FONT> : char_array (0 .. 0) := (0 => nul); + <FONT COLOR=red><A NAME="57_7">result</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses-termcap__ads.htm#60_24">Name</A>, <A HREF="terminal_interface-curses-termcap__adb.htm#54_7">NameTxt</A>, <A HREF="terminal_interface-curses-termcap__adb.htm#55_7">Length</A>); + <A HREF="terminal_interface-curses-termcap__adb.htm#57_7">result</A> := <A HREF="terminal_interface-curses-termcap__adb.htm#51_16">tgetent</A> (char_array (<A HREF="terminal_interface-curses-termcap__adb.htm#56_7">ignored</A>), <A HREF="terminal_interface-curses-termcap__adb.htm#54_7">NameTxt</A>); + <b>if</b> <A HREF="terminal_interface-curses-termcap__adb.htm#57_7">result</A> = -1 <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>else</b> + <b>return</b> Boolean'Val (<A HREF="terminal_interface-curses-termcap__adb.htm#57_7">result</A>); + <b>end</b> <b>if</b>; + <b>end</b> Get_Entry; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-termcap__ads.htm#64_13">Get_Flag</A><FONT COLOR=red><A NAME="69_13"></A></FONT> (<A HREF="terminal_interface-curses-termcap__ads.htm#64_23">Name</A> : String) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="71_16">tgetflag</A></FONT> (<FONT COLOR=red><A NAME="71_26">id</A></FONT> : char_array) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-termcap__adb.htm#71_16">tgetflag</A>, "tgetflag"); + <FONT COLOR=red><A NAME="73_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-termcap__ads.htm#64_23">Name</A>'Length); + <FONT COLOR=red><A NAME="74_7">Length</A></FONT> : size_t; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses-termcap__ads.htm#64_23">Name</A>, <A HREF="terminal_interface-curses-termcap__adb.htm#73_7">Txt</A>, <A HREF="terminal_interface-curses-termcap__adb.htm#74_7">Length</A>); + <b>if</b> <A HREF="terminal_interface-curses-termcap__adb.htm#71_16">tgetflag</A> (<A HREF="terminal_interface-curses-termcap__adb.htm#73_7">Txt</A>) = 0 <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Get_Flag; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-termcap__ads.htm#68_14">Get_Number</A><FONT COLOR=red><A NAME="85_14"></A></FONT> (<A HREF="terminal_interface-curses-termcap__ads.htm#68_26">Name</A> : <b>in</b> String; + <A HREF="terminal_interface-curses-termcap__ads.htm#69_26">Value</A> : <b>out</b> Integer; + <A HREF="terminal_interface-curses-termcap__ads.htm#70_26">Result</A> : <b>out</b> Boolean) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="89_16">tgetnum</A></FONT> (<FONT COLOR=red><A NAME="89_25">id</A></FONT> : char_array) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-termcap__adb.htm#89_16">tgetnum</A>, "tgetnum"); + <FONT COLOR=red><A NAME="91_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-termcap__ads.htm#68_26">Name</A>'Length); + <FONT COLOR=red><A NAME="92_7">Length</A></FONT> : size_t; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses-termcap__ads.htm#68_26">Name</A>, <A HREF="terminal_interface-curses-termcap__adb.htm#91_7">Txt</A>, <A HREF="terminal_interface-curses-termcap__adb.htm#92_7">Length</A>); + <A HREF="terminal_interface-curses-termcap__ads.htm#69_26">Value</A> := Integer (<A HREF="terminal_interface-curses-termcap__adb.htm#89_16">tgetnum</A> (<A HREF="terminal_interface-curses-termcap__adb.htm#91_7">Txt</A>)); + <b>if</b> <A HREF="terminal_interface-curses-termcap__ads.htm#69_26">Value</A> = -1 <b>then</b> + <A HREF="terminal_interface-curses-termcap__ads.htm#70_26">Result</A> := False; + <b>else</b> + <A HREF="terminal_interface-curses-termcap__ads.htm#70_26">Result</A> := True; + <b>end</b> <b>if</b>; + <b>end</b> Get_Number; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-termcap__ads.htm#74_14">Get_String</A><FONT COLOR=red><A NAME="104_14"></A></FONT> (<A HREF="terminal_interface-curses-termcap__ads.htm#74_26">Name</A> : String; + <A HREF="terminal_interface-curses-termcap__ads.htm#75_26">Value</A> : <b>out</b> String; + <A HREF="terminal_interface-curses-termcap__ads.htm#76_26">Result</A> : <b>out</b> Boolean) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="108_16">tgetstr</A></FONT> (<FONT COLOR=red><A NAME="108_25">id</A></FONT> : char_array; + <FONT COLOR=red><A NAME="109_25">buf</A></FONT> : char_array) <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-termcap__adb.htm#108_16">tgetstr</A>, "tgetstr"); + <FONT COLOR=red><A NAME="111_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-termcap__ads.htm#74_26">Name</A>'Length); + <FONT COLOR=red><A NAME="112_7">Length</A></FONT> : size_t; + <FONT COLOR=red><A NAME="113_7">Txt2</A></FONT> : chars_ptr; + <b>type</b> <FONT COLOR=red><A NAME="114_12">t</A></FONT> <b>is</b> <b>new</b> char_array (0 .. 1024); <FONT COLOR=green><EM>-- does it need to be 1024?</EM></FONT> + <FONT COLOR=red><A NAME="115_7">Return_Buffer</A></FONT> : <A HREF="terminal_interface-curses-termcap__adb.htm#114_12">t</A> := (0 => nul); + <b>begin</b> + To_C (<A HREF="terminal_interface-curses-termcap__ads.htm#74_26">Name</A>, <A HREF="terminal_interface-curses-termcap__adb.htm#111_7">Txt</A>, <A HREF="terminal_interface-curses-termcap__adb.htm#112_7">Length</A>); + <A HREF="terminal_interface-curses-termcap__adb.htm#113_7">Txt2</A> := <A HREF="terminal_interface-curses-termcap__adb.htm#108_16">tgetstr</A> (<A HREF="terminal_interface-curses-termcap__adb.htm#111_7">Txt</A>, char_array (<A HREF="terminal_interface-curses-termcap__adb.htm#115_7">Return_Buffer</A>)); + <b>if</b> <A HREF="terminal_interface-curses-termcap__adb.htm#113_7">Txt2</A> = Null_Ptr <b>then</b> + <A HREF="terminal_interface-curses-termcap__ads.htm#76_26">Result</A> := False; + <b>else</b> + <A HREF="terminal_interface-curses-termcap__ads.htm#75_26">Value</A> := <A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A> (<A HREF="terminal_interface-curses-termcap__adb.htm#113_7">Txt2</A>); + <A HREF="terminal_interface-curses-termcap__ads.htm#76_26">Result</A> := True; + <b>end</b> <b>if</b>; + <b>end</b> Get_String; + + <b>function</b> <A HREF="terminal_interface-curses-termcap__ads.htm#77_13">Get_String</A><FONT COLOR=red><A NAME="127_13"></A></FONT> (<A HREF="terminal_interface-curses-termcap__ads.htm#77_25">Name</A> : String) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="129_16">tgetstr</A></FONT> (<FONT COLOR=red><A NAME="129_25">Id</A></FONT> : char_array; + <FONT COLOR=red><A NAME="130_25">buf</A></FONT> : char_array) <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-termcap__adb.htm#129_16">tgetstr</A>, "tgetstr"); + <FONT COLOR=red><A NAME="132_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-termcap__ads.htm#77_25">Name</A>'Length); + <FONT COLOR=red><A NAME="133_7">Length</A></FONT> : size_t; + <FONT COLOR=red><A NAME="134_7">Txt2</A></FONT> : chars_ptr; + <b>type</b> <FONT COLOR=red><A NAME="135_12">t</A></FONT> <b>is</b> <b>new</b> char_array (0 .. 1024); <FONT COLOR=green><EM>-- does it need to be 1024?</EM></FONT> + <FONT COLOR=red><A NAME="136_7">Phony_Txt</A></FONT> : <A HREF="terminal_interface-curses-termcap__adb.htm#135_12">t</A> := (0 => nul); + <b>begin</b> + To_C (<A HREF="terminal_interface-curses-termcap__ads.htm#77_25">Name</A>, <A HREF="terminal_interface-curses-termcap__adb.htm#132_7">Txt</A>, <A HREF="terminal_interface-curses-termcap__adb.htm#133_7">Length</A>); + <A HREF="terminal_interface-curses-termcap__adb.htm#134_7">Txt2</A> := <A HREF="terminal_interface-curses-termcap__adb.htm#129_16">tgetstr</A> (<A HREF="terminal_interface-curses-termcap__adb.htm#132_7">Txt</A>, char_array (<A HREF="terminal_interface-curses-termcap__adb.htm#136_7">Phony_Txt</A>)); + <b>if</b> <A HREF="terminal_interface-curses-termcap__adb.htm#134_7">Txt2</A> = Null_Ptr <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Get_String; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-termcap__ads.htm#54_13">TGoto</A><FONT COLOR=red><A NAME="148_13"></A></FONT> (<A HREF="terminal_interface-curses-termcap__ads.htm#54_20">Cap</A> : String; + <A HREF="terminal_interface-curses-termcap__ads.htm#55_20">Col</A> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses-termcap__ads.htm#56_20">Row</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>) <b>return</b> <A HREF="terminal_interface-curses-termcap__ads.htm#51_9">Termcap_String</A> <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="151_16">tgoto</A></FONT> (<FONT COLOR=red><A NAME="151_23">cap</A></FONT> : char_array; + <FONT COLOR=red><A NAME="152_23">col</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="153_23">row</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-termcap__adb.htm#151_16">tgoto</A>); + <FONT COLOR=red><A NAME="155_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-termcap__ads.htm#54_20">Cap</A>'Length); + <FONT COLOR=red><A NAME="156_7">Length</A></FONT> : size_t; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses-termcap__ads.htm#54_20">Cap</A>, <A HREF="terminal_interface-curses-termcap__adb.htm#155_7">Txt</A>, <A HREF="terminal_interface-curses-termcap__adb.htm#156_7">Length</A>); + <b>return</b> <A HREF="terminal_interface-curses-termcap__ads.htm#51_9">Termcap_String</A> (<A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A> + (<A HREF="terminal_interface-curses-termcap__adb.htm#151_16">tgoto</A> (<A HREF="terminal_interface-curses-termcap__adb.htm#155_7">Txt</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-termcap__ads.htm#55_20">Col</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-termcap__ads.htm#56_20">Row</A>)))); + <b>end</b> TGoto; + + +<b>end</b> Terminal_Interface.Curses.Termcap; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-termcap__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-termcap__ads.htm new file mode 100644 index 0000000..a601a0f --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-termcap__ads.htm @@ -0,0 +1,86 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-termcap.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-termcap.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Termcap --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 2000 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.2 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-termcap__adb.htm#47_40">Termcap</A><FONT COLOR=red><A NAME="43_35"></A></FONT> <b>is</b> + <b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-termcap__ads.htm#43_35">Termcap</A>); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page curs_termcap.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- Not implemented: tputs (see curs_terminfo)</EM></FONT> + + <b>type</b> <FONT COLOR=red><A NAME="51_9">Termcap_String</A></FONT> <b>is</b> <b>new</b> String; + + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-termcap__adb.htm#148_13">TGoto</A><FONT COLOR=red><A NAME="54_13"></A></FONT> (<FONT COLOR=red><A NAME="54_20">Cap</A></FONT> : String; + <FONT COLOR=red><A NAME="55_20">Col</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <FONT COLOR=red><A NAME="56_20">Row</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>) <b>return</b> <A HREF="terminal_interface-curses-termcap__ads.htm#51_9">Termcap_String</A>; + <FONT COLOR=green><EM>-- AKA: tgoto()</EM></FONT> + + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-termcap__adb.htm#49_13">Get_Entry</A><FONT COLOR=red><A NAME="60_13"></A></FONT> (<FONT COLOR=red><A NAME="60_24">Name</A></FONT> : String) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: tgetent()</EM></FONT> + + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-termcap__adb.htm#69_13">Get_Flag</A><FONT COLOR=red><A NAME="64_13"></A></FONT> (<FONT COLOR=red><A NAME="64_23">Name</A></FONT> : String) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: tgetflag()</EM></FONT> + + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-termcap__adb.htm#85_14">Get_Number</A><FONT COLOR=red><A NAME="68_14"></A></FONT> (<FONT COLOR=red><A NAME="68_26">Name</A></FONT> : String; + <FONT COLOR=red><A NAME="69_26">Value</A></FONT> : <b>out</b> Integer; + <FONT COLOR=red><A NAME="70_26">Result</A></FONT> : <b>out</b> Boolean); + <FONT COLOR=green><EM>-- AKA: tgetnum()</EM></FONT> + + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-termcap__adb.htm#104_14">Get_String</A><FONT COLOR=red><A NAME="74_14"></A></FONT> (<FONT COLOR=red><A NAME="74_26">Name</A></FONT> : String; + <FONT COLOR=red><A NAME="75_26">Value</A></FONT> : <b>out</b> String; + <FONT COLOR=red><A NAME="76_26">Result</A></FONT> : <b>out</b> Boolean); + <b>function</b> <A HREF="terminal_interface-curses-termcap__adb.htm#127_13">Get_String</A><FONT COLOR=red><A NAME="77_13"></A></FONT> (<FONT COLOR=red><A NAME="77_25">Name</A></FONT> : String) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- Returns True if the string is found.</EM></FONT> + <FONT COLOR=green><EM>-- AKA: tgetstr()</EM></FONT> + +<b>end</b> Terminal_Interface.Curses.Termcap; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-terminfo__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-terminfo__adb.htm new file mode 100644 index 0000000..0e6979a --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-terminfo__adb.htm @@ -0,0 +1,167 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-terminfo.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-terminfo.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Terminfo --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 2000 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.2 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; +<b>with</b> Ada.Unchecked_Conversion; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-terminfo__ads.htm#45_35">Terminfo</A><FONT COLOR=red><A NAME="48_40"></A></FONT> <b>is</b> + + + <b>function</b> <A HREF="terminal_interface-curses-terminfo__adb.htm#53_13">Is_MinusOne_Pointer</A><FONT COLOR=red><A NAME="51_13"></A></FONT> (<FONT COLOR=red><A NAME="51_34">P</A></FONT> : <b>in</b> chars_ptr) <b>return</b> Boolean; + + <b>function</b> <A HREF="terminal_interface-curses-terminfo__adb.htm#51_13">Is_MinusOne_Pointer</A><FONT COLOR=red><A NAME="53_13"></A></FONT> (<A HREF="terminal_interface-curses-terminfo__adb.htm#51_34">P</A> : <b>in</b> chars_ptr) <b>return</b> Boolean <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="54_12">Weird_Address</A></FONT> <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; + <FONT COLOR=red><A NAME="55_7">Invalid_Pointer</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-terminfo__adb.htm#54_12">Weird_Address</A> := -1; + <b>function</b> <FONT COLOR=red><A NAME="56_16">To_Weird</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Conversion + (Source => chars_ptr, Target => <A HREF="terminal_interface-curses-terminfo__adb.htm#54_12">Weird_Address</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-terminfo__adb.htm#56_16">To_Weird</A> (<A HREF="terminal_interface-curses-terminfo__adb.htm#51_34">P</A>) = <A HREF="terminal_interface-curses-terminfo__adb.htm#55_7">Invalid_Pointer</A> <b>then</b> + <b>return</b> True; + <b>else</b> + <b>return</b> False; + <b>end</b> <b>if</b>; + <b>end</b> Is_MinusOne_Pointer; + <b>pragma</b> Inline (<A HREF="terminal_interface-curses-terminfo__adb.htm#51_13">Is_MinusOne_Pointer</A>); + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-terminfo__ads.htm#65_13">Get_Flag</A><FONT COLOR=red><A NAME="68_13"></A></FONT> (<A HREF="terminal_interface-curses-terminfo__ads.htm#65_23">Name</A> : String) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="70_16">tigetflag</A></FONT> (<FONT COLOR=red><A NAME="70_27">id</A></FONT> : char_array) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-terminfo__adb.htm#70_16">tigetflag</A>); + <FONT COLOR=red><A NAME="72_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-terminfo__ads.htm#65_23">Name</A>'Length); + <FONT COLOR=red><A NAME="73_7">Length</A></FONT> : size_t; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses-terminfo__ads.htm#65_23">Name</A>, <A HREF="terminal_interface-curses-terminfo__adb.htm#72_7">Txt</A>, <A HREF="terminal_interface-curses-terminfo__adb.htm#73_7">Length</A>); + <b>if</b> <A HREF="terminal_interface-curses-terminfo__adb.htm#70_16">tigetflag</A> (<A HREF="terminal_interface-curses-terminfo__adb.htm#72_7">Txt</A>) = <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> (<A HREF="terminal_interface-curses-aux__ads.htm#75_4">Curses_True</A>) <b>then</b> + <b>return</b> True; + <b>else</b> + <b>return</b> False; + <b>end</b> <b>if</b>; + <b>end</b> Get_Flag; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-terminfo__ads.htm#58_14">Get_String</A><FONT COLOR=red><A NAME="84_14"></A></FONT> (<A HREF="terminal_interface-curses-terminfo__ads.htm#58_26">Name</A> : String; + <A HREF="terminal_interface-curses-terminfo__ads.htm#59_26">Value</A> : <b>out</b> <A HREF="terminal_interface-curses-terminfo__ads.htm#55_9">Terminfo_String</A>; + <A HREF="terminal_interface-curses-terminfo__ads.htm#60_26">Result</A> : <b>out</b> Boolean) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="88_16">tigetstr</A></FONT> (<FONT COLOR=red><A NAME="88_26">id</A></FONT> : char_array) <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-terminfo__adb.htm#88_16">tigetstr</A>, "tigetstr"); + <FONT COLOR=red><A NAME="90_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-terminfo__ads.htm#58_26">Name</A>'Length); + <FONT COLOR=red><A NAME="91_7">Length</A></FONT> : size_t; + <FONT COLOR=red><A NAME="92_7">Txt2</A></FONT> : chars_ptr; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses-terminfo__ads.htm#58_26">Name</A>, <A HREF="terminal_interface-curses-terminfo__adb.htm#90_7">Txt</A>, <A HREF="terminal_interface-curses-terminfo__adb.htm#91_7">Length</A>); + <A HREF="terminal_interface-curses-terminfo__adb.htm#92_7">Txt2</A> := <A HREF="terminal_interface-curses-terminfo__adb.htm#88_16">tigetstr</A> (<A HREF="terminal_interface-curses-terminfo__adb.htm#90_7">Txt</A>); + <b>if</b> <A HREF="terminal_interface-curses-terminfo__adb.htm#92_7">Txt2</A> = Null_Ptr <b>then</b> + <A HREF="terminal_interface-curses-terminfo__ads.htm#60_26">Result</A> := False; + <b>elsif</b> <A HREF="terminal_interface-curses-terminfo__adb.htm#51_13">Is_MinusOne_Pointer</A> (<A HREF="terminal_interface-curses-terminfo__adb.htm#92_7">Txt2</A>) <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses-terminfo__ads.htm#59_26">Value</A> := <A HREF="terminal_interface-curses-terminfo__ads.htm#55_9">Terminfo_String</A> (<A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A> (<A HREF="terminal_interface-curses-terminfo__adb.htm#92_7">Txt2</A>)); + <A HREF="terminal_interface-curses-terminfo__ads.htm#60_26">Result</A> := True; + <b>end</b> <b>if</b>; + <b>end</b> Get_String; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-terminfo__ads.htm#61_13">Has_String</A><FONT COLOR=red><A NAME="107_13"></A></FONT> (<A HREF="terminal_interface-curses-terminfo__ads.htm#61_25">Name</A> : String) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="109_16">tigetstr</A></FONT> (<FONT COLOR=red><A NAME="109_26">id</A></FONT> : char_array) <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-terminfo__adb.htm#109_16">tigetstr</A>, "tigetstr"); + <FONT COLOR=red><A NAME="111_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-terminfo__ads.htm#61_25">Name</A>'Length); + <FONT COLOR=red><A NAME="112_7">Length</A></FONT> : size_t; + <FONT COLOR=red><A NAME="113_7">Txt2</A></FONT> : chars_ptr; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses-terminfo__ads.htm#61_25">Name</A>, <A HREF="terminal_interface-curses-terminfo__adb.htm#111_7">Txt</A>, <A HREF="terminal_interface-curses-terminfo__adb.htm#112_7">Length</A>); + <A HREF="terminal_interface-curses-terminfo__adb.htm#113_7">Txt2</A> := <A HREF="terminal_interface-curses-terminfo__adb.htm#109_16">tigetstr</A> (<A HREF="terminal_interface-curses-terminfo__adb.htm#111_7">Txt</A>); + <b>if</b> <A HREF="terminal_interface-curses-terminfo__adb.htm#113_7">Txt2</A> = Null_Ptr <b>then</b> + <b>return</b> False; + <b>elsif</b> <A HREF="terminal_interface-curses-terminfo__adb.htm#51_13">Is_MinusOne_Pointer</A> (<A HREF="terminal_interface-curses-terminfo__adb.htm#113_7">Txt2</A>) <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Has_String; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-terminfo__ads.htm#69_13">Get_Number</A><FONT COLOR=red><A NAME="127_13"></A></FONT> (<A HREF="terminal_interface-curses-terminfo__ads.htm#69_25">Name</A> : String) <b>return</b> Integer <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="128_16">tigetstr</A></FONT> (<FONT COLOR=red><A NAME="128_26">s</A></FONT> : char_array) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-terminfo__adb.htm#128_16">tigetstr</A>); + <FONT COLOR=red><A NAME="130_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-terminfo__ads.htm#69_25">Name</A>'Length); + <FONT COLOR=red><A NAME="131_7">Length</A></FONT> : size_t; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses-terminfo__ads.htm#69_25">Name</A>, <A HREF="terminal_interface-curses-terminfo__adb.htm#130_7">Txt</A>, <A HREF="terminal_interface-curses-terminfo__adb.htm#131_7">Length</A>); + <b>return</b> Integer (<A HREF="terminal_interface-curses-terminfo__adb.htm#128_16">tigetstr</A> (<A HREF="terminal_interface-curses-terminfo__adb.htm#130_7">Txt</A>)); + <b>end</b> Get_Number; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-terminfo__ads.htm#77_14">Put_String</A><FONT COLOR=red><A NAME="138_14"></A></FONT> (<A HREF="terminal_interface-curses-terminfo__ads.htm#77_26">Str</A> : <A HREF="terminal_interface-curses-terminfo__ads.htm#55_9">Terminfo_String</A>; + <A HREF="terminal_interface-curses-terminfo__ads.htm#78_26">affcnt</A> : Natural := 1; + <A HREF="terminal_interface-curses-terminfo__ads.htm#79_26">putc</A> : <A HREF="terminal_interface-curses-terminfo__ads.htm#72_9">putctype</A> := <b>null</b>) <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="141_16">tputs</A></FONT> (<FONT COLOR=red><A NAME="141_23">str</A></FONT> : char_array; + <FONT COLOR=red><A NAME="142_23">affcnt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="143_23">putc</A></FONT> : <A HREF="terminal_interface-curses-terminfo__ads.htm#72_9">putctype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>function</b> <FONT COLOR=red><A NAME="144_16">putp</A></FONT> (<FONT COLOR=red><A NAME="144_22">str</A></FONT> : char_array) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-terminfo__adb.htm#141_16">tputs</A>); + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-terminfo__adb.htm#144_16">putp</A>); + <FONT COLOR=red><A NAME="147_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-terminfo__ads.htm#77_26">Str</A>'Length); + <FONT COLOR=red><A NAME="148_7">Length</A></FONT> : size_t; + <FONT COLOR=red><A NAME="149_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>begin</b> + To_C (String (<A HREF="terminal_interface-curses-terminfo__ads.htm#77_26">Str</A>), <A HREF="terminal_interface-curses-terminfo__adb.htm#147_7">Txt</A>, <A HREF="terminal_interface-curses-terminfo__adb.htm#148_7">Length</A>); + <b>if</b> <A HREF="terminal_interface-curses-terminfo__ads.htm#79_26">putc</A> = <b>null</b> <b>then</b> + <A HREF="terminal_interface-curses-terminfo__adb.htm#149_7">Err</A> := <A HREF="terminal_interface-curses-terminfo__adb.htm#144_16">putp</A> (<A HREF="terminal_interface-curses-terminfo__adb.htm#147_7">Txt</A>); + <b>else</b> + <A HREF="terminal_interface-curses-terminfo__adb.htm#149_7">Err</A> := <A HREF="terminal_interface-curses-terminfo__adb.htm#141_16">tputs</A> (<A HREF="terminal_interface-curses-terminfo__adb.htm#147_7">Txt</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses-terminfo__ads.htm#78_26">affcnt</A>), <A HREF="terminal_interface-curses-terminfo__ads.htm#79_26">putc</A>); + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses-terminfo__adb.htm#149_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Put_String; + +<b>end</b> Terminal_Interface.Curses.Terminfo; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-terminfo__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-terminfo__ads.htm new file mode 100644 index 0000000..b75149e --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-terminfo__ads.htm @@ -0,0 +1,87 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-terminfo.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-terminfo.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Terminfo --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 2000 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.2 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; + +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-terminfo__adb.htm#48_40">Terminfo</A><FONT COLOR=red><A NAME="45_35"></A></FONT> <b>is</b> + <b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-terminfo__ads.htm#45_35">Terminfo</A>); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page curs_terminfo.3x</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- Not implemented: setupterm, setterm, set_curterm, del_curterm,</EM></FONT> + <FONT COLOR=green><EM>-- restartterm, tparm, putp, vidputs, vidattr,</EM></FONT> + <FONT COLOR=green><EM>-- mvcur</EM></FONT> + + <b>type</b> <FONT COLOR=red><A NAME="55_9">Terminfo_String</A></FONT> <b>is</b> <b>new</b> String; + + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-terminfo__adb.htm#84_14">Get_String</A><FONT COLOR=red><A NAME="58_14"></A></FONT> (<FONT COLOR=red><A NAME="58_26">Name</A></FONT> : String; + <FONT COLOR=red><A NAME="59_26">Value</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-terminfo__ads.htm#55_9">Terminfo_String</A>; + <FONT COLOR=red><A NAME="60_26">Result</A></FONT> : <b>out</b> Boolean); + <b>function</b> <A HREF="terminal_interface-curses-terminfo__adb.htm#107_13">Has_String</A><FONT COLOR=red><A NAME="61_13"></A></FONT> (<FONT COLOR=red><A NAME="61_25">Name</A></FONT> : String) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: tigetstr()</EM></FONT> + + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-terminfo__adb.htm#68_13">Get_Flag</A><FONT COLOR=red><A NAME="65_13"></A></FONT> (<FONT COLOR=red><A NAME="65_23">Name</A></FONT> : String) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: tigetflag()</EM></FONT> + + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses-terminfo__adb.htm#127_13">Get_Number</A><FONT COLOR=red><A NAME="69_13"></A></FONT> (<FONT COLOR=red><A NAME="69_25">Name</A></FONT> : String) <b>return</b> Integer; + <FONT COLOR=green><EM>-- AKA: tigetnum()</EM></FONT> + + <b>type</b> <FONT COLOR=red><A NAME="72_9">putctype</A></FONT> <b>is</b> <b>access</b> <b>function</b> (<FONT COLOR=red><A NAME="72_38">c</A></FONT> : <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int) + <b>return</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; + <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-terminfo__ads.htm#72_9">putctype</A>); + + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-terminfo__adb.htm#138_14">Put_String</A><FONT COLOR=red><A NAME="77_14"></A></FONT> (<FONT COLOR=red><A NAME="77_26">Str</A></FONT> : <A HREF="terminal_interface-curses-terminfo__ads.htm#55_9">Terminfo_String</A>; + <FONT COLOR=red><A NAME="78_26">affcnt</A></FONT> : Natural := 1; + <FONT COLOR=red><A NAME="79_26">putc</A></FONT> : <A HREF="terminal_interface-curses-terminfo__ads.htm#72_9">putctype</A> := <b>null</b>); + <FONT COLOR=green><EM>-- AKA: tputs()</EM></FONT> + +<b>end</b> Terminal_Interface.Curses.Terminfo; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-aux__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-aux__adb.htm new file mode 100644 index 0000000..ac4415c --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-aux__adb.htm @@ -0,0 +1,134 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-aux.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-aux.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Aux --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#42_51">Aux</A><FONT COLOR=red><A NAME="42_48"></A></FONT> <b>is</b> + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#48_14">Put_Buf</A><FONT COLOR=red><A NAME="44_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses-text_io-aux__ads.htm#50_7">Buf</A> : <b>in</b> String; + <A HREF="terminal_interface-curses-text_io-aux__ads.htm#51_7">Width</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A>; + <A HREF="terminal_interface-curses-text_io-aux__ads.htm#52_7">Signal</A> : <b>in</b> Boolean := True; + <A HREF="terminal_interface-curses-text_io-aux__ads.htm#53_7">Ljust</A> : <b>in</b> Boolean := False) + <b>is</b> + <FONT COLOR=red><A NAME="51_7">L</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A>; + <FONT COLOR=red><A NAME="52_7">Len</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A>; + <FONT COLOR=red><A NAME="53_7">W</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-aux__ads.htm#51_7">Width</A>; + <FONT COLOR=red><A NAME="54_7">LC</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <FONT COLOR=red><A NAME="55_7">CC</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>; + <FONT COLOR=red><A NAME="56_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <FONT COLOR=red><A NAME="57_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#61_17">Output</A><FONT COLOR=red><A NAME="59_17"></A></FONT> (<FONT COLOR=red><A NAME="59_25">From</A></FONT>, <FONT COLOR=red><A NAME="59_31">To</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#59_17">Output</A><FONT COLOR=red><A NAME="61_17"></A></FONT> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#59_25">From</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#59_31">To</A> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A>) + <b>is</b> + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">Len</A> > 0 <b>then</b> + <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#53_7">W</A> = 0 <b>then</b> + <A HREF="terminal_interface-curses-text_io-aux__adb.htm#53_7">W</A> := <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">Len</A>; + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">Len</A> > <A HREF="terminal_interface-curses-text_io-aux__adb.htm#53_7">W</A> <b>then</b> + <FONT COLOR=green><EM>-- LRM A10.6 (7) says this</EM></FONT> + <A HREF="terminal_interface-curses-text_io-aux__adb.htm#53_7">W</A> := <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">Len</A>; + <b>end</b> <b>if</b>; + + <b>pragma</b> Assert (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">Len</A> <= <A HREF="terminal_interface-curses-text_io-aux__adb.htm#53_7">W</A>); + <A HREF="terminal_interface-curses__ads.htm#1222_14">Get_Size</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Win</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#54_7">LC</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#55_7">CC</A>); + <b>if</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">Len</A>) > <A HREF="terminal_interface-curses-text_io-aux__adb.htm#55_7">CC</A> <b>then</b> + <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#52_7">Signal</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-text_io__ads.htm#135_4">Layout_Error</A>; + <b>else</b> + <b>return</b>; + <b>end</b> <b>if</b>; + <b>else</b> + <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">Len</A> < <A HREF="terminal_interface-curses-text_io-aux__adb.htm#53_7">W</A> <b>and</b> <b>then</b> <b>not</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#53_7">Ljust</A> <b>then</b> + <b>declare</b> + <FONT COLOR=red><A NAME="84_22">Filler</A></FONT> : <b>constant</b> String (1 .. (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#53_7">W</A> - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">Len</A>)) + := (<b>others</b> => ' '); + <b>begin</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#116_14">Put</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Win</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#84_22">Filler</A>); + <b>end</b>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses__ads.htm#1238_14">Get_Cursor_Position</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Win</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#56_7">Y</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#57_7">X</A>); + <b>if</b> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#57_7">X</A> + <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">Len</A>)) > <A HREF="terminal_interface-curses-text_io-aux__adb.htm#55_7">CC</A> <b>then</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#87_14">New_Line</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Win</A>); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-text_io__ads.htm#116_14">Put</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Win</A>, <A HREF="terminal_interface-curses-text_io-aux__ads.htm#50_7">Buf</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#59_25">From</A> .. <A HREF="terminal_interface-curses-text_io-aux__adb.htm#59_31">To</A>)); + <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">Len</A> < <A HREF="terminal_interface-curses-text_io-aux__adb.htm#53_7">W</A> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#53_7">Ljust</A> <b>then</b> + <b>declare</b> + <FONT COLOR=red><A NAME="97_22">Filler</A></FONT> : <b>constant</b> String (1 .. (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#53_7">W</A> - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">Len</A>)) + := (<b>others</b> => ' '); + <b>begin</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#116_14">Put</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Win</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#97_22">Filler</A>); + <b>end</b>; + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <b>end</b> Output; + + <b>begin</b> + <b>pragma</b> Assert (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Win</A> /= <A HREF="terminal_interface-curses__ads.htm#58_4">Null_Window</A>); + <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#53_7">Ljust</A> <b>then</b> + <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">L</A> := 1; + <b>for</b> <FONT COLOR=red><A NAME="111_14">I</A></FONT> <b>in</b> 1 .. <A HREF="terminal_interface-curses-text_io-aux__ads.htm#50_7">Buf</A>'Length <b>loop</b> + <b>exit</b> <b>when</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#50_7">Buf</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">L</A>) = ' '; + <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">L</A> := <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">L</A> + 1; + <b>end</b> <b>loop</b>; + <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">Len</A> := <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">L</A> - 1; + <A HREF="terminal_interface-curses-text_io-aux__adb.htm#59_17">Output</A> (1, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">Len</A>); + <b>else</b> <FONT COLOR=green><EM>-- input buffer is not left justified</EM></FONT> + <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">L</A> := <A HREF="terminal_interface-curses-text_io-aux__ads.htm#50_7">Buf</A>'Length; + <b>for</b> <FONT COLOR=red><A NAME="119_14">I</A></FONT> <b>in</b> 1 .. <A HREF="terminal_interface-curses-text_io-aux__ads.htm#50_7">Buf</A>'Length <b>loop</b> + <b>exit</b> <b>when</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#50_7">Buf</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">L</A>) = ' '; + <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">L</A> := <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">L</A> - 1; + <b>end</b> <b>loop</b>; + <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">Len</A> := <A HREF="terminal_interface-curses-text_io-aux__ads.htm#50_7">Buf</A>'Length - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">L</A>; + <A HREF="terminal_interface-curses-text_io-aux__adb.htm#59_17">Output</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">L</A> + 1, <A HREF="terminal_interface-curses-text_io-aux__ads.htm#50_7">Buf</A>'Length); + <b>end</b> <b>if</b>; + <b>end</b> Put_Buf; + +<b>end</b> Terminal_Interface.Curses.Text_IO.Aux; + +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-aux__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-aux__ads.htm new file mode 100644 index 0000000..31b6806 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-aux__ads.htm @@ -0,0 +1,61 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-aux.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-aux.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Aux --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.11 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>private</b> <b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__adb.htm#42_48">Aux</A><FONT COLOR=red><A NAME="42_51"></A></FONT> <b>is</b> + <FONT COLOR=green><EM>-- pragma Preelaborate (Aux);</EM></FONT> + + <FONT COLOR=green><EM>-- This routine is called from the Text_IO output routines for numeric</EM></FONT> + <FONT COLOR=green><EM>-- and enumeration types.</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#44_14">Put_Buf</A><FONT COLOR=red><A NAME="48_14"></A></FONT> + (<FONT COLOR=red><A NAME="49_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=green><EM>-- The output window</EM></FONT> + <FONT COLOR=red><A NAME="50_7">Buf</A></FONT> : <b>in</b> String; <FONT COLOR=green><EM>-- The buffer containing the text</EM></FONT> + <FONT COLOR=red><A NAME="51_7">Width</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A>; <FONT COLOR=green><EM>-- The width of the output field</EM></FONT> + <FONT COLOR=red><A NAME="52_7">Signal</A></FONT> : <b>in</b> Boolean := True; <FONT COLOR=green><EM>-- If true, we raise Layout_Error</EM></FONT> + <FONT COLOR=red><A NAME="53_7">Ljust</A></FONT> : <b>in</b> Boolean := False); <FONT COLOR=green><EM>-- The Buf is left justified</EM></FONT> + +<b>end</b> Terminal_Interface.Curses.Text_IO.Aux; + +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-complex_io__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-complex_io__adb.htm new file mode 100644 index 0000000..8aed31a --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-complex_io__adb.htm @@ -0,0 +1,79 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-complex_io.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-complex_io.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Complex_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#45_43">Float_IO</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#47_43">Complex_IO</A> <b>is</b> + + <b>package</b> <FONT COLOR=red><A NAME="46_12">FIO</A></FONT> <b>is</b> <b>new</b> + <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#45_43">Float_IO</A> (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#45_17">Complex_Types</A>.Real'Base); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#55_14">Put</A><FONT COLOR=red><A NAME="49_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#56_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#57_7">Item</A> : <b>in</b> Complex; + <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#58_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#51_4">Default_Fore</A>; + <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#59_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#52_4">Default_Aft</A>; + <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#60_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#53_4">Default_Exp</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#109_14">Put</A> (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#56_7">Win</A>, '('); + <A HREF="terminal_interface-curses-text_io-complex_io__adb.htm#46_12">FIO</A>.<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#58_14">Put</A> (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#56_7">Win</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#57_7">Item</A>.Re, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#58_7">Fore</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#59_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#60_7">Exp</A>); + <A HREF="terminal_interface-curses-text_io__ads.htm#109_14">Put</A> (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#56_7">Win</A>, ','); + <A HREF="terminal_interface-curses-text_io-complex_io__adb.htm#46_12">FIO</A>.<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#58_14">Put</A> (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#56_7">Win</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#57_7">Item</A>.Im, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#58_7">Fore</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#59_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#60_7">Exp</A>); + <A HREF="terminal_interface-curses-text_io__ads.htm#109_14">Put</A> (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#56_7">Win</A>, ')'); + <b>end</b> Put; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#62_14">Put</A><FONT COLOR=red><A NAME="64_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#63_7">Item</A> : <b>in</b> Complex; + <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#64_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#51_4">Default_Fore</A>; + <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#65_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#52_4">Default_Aft</A>; + <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#66_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#53_4">Default_Exp</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#55_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#63_7">Item</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#64_7">Fore</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#65_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#66_7">Exp</A>); + <b>end</b> Put; + +<b>end</b> Terminal_Interface.Curses.Text_IO.Complex_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-complex_io__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-complex_io__ads.htm new file mode 100644 index 0000000..2d9149e --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-complex_io__ads.htm @@ -0,0 +1,76 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-complex_io.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-complex_io.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Complex_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> Ada.Numerics.Generic_Complex_Types; + +<b>generic</b> + <b>with</b> <b>package</b> <FONT COLOR=red><A NAME="45_17">Complex_Types</A></FONT> <b>is</b> <b>new</b> Ada.Numerics.Generic_Complex_Types (<>); + +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<FONT COLOR=red><A NAME="47_43">Complex_IO</A></FONT> <b>is</b> + + <b>use</b> <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#45_17">Complex_Types</A>; + + <FONT COLOR=red><A NAME="51_4">Default_Fore</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := 2; + <FONT COLOR=red><A NAME="52_4">Default_Aft</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := Real'<b>Digits</b> - 1; + <FONT COLOR=red><A NAME="53_4">Default_Exp</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := 3; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-complex_io__adb.htm#49_14">Put</A><FONT COLOR=red><A NAME="55_14"></A></FONT> + (<FONT COLOR=red><A NAME="56_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="57_7">Item</A></FONT> : <b>in</b> Complex; + <FONT COLOR=red><A NAME="58_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#51_4">Default_Fore</A>; + <FONT COLOR=red><A NAME="59_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#52_4">Default_Aft</A>; + <FONT COLOR=red><A NAME="60_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#53_4">Default_Exp</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-complex_io__adb.htm#64_14">Put</A><FONT COLOR=red><A NAME="62_14"></A></FONT> + (<FONT COLOR=red><A NAME="63_7">Item</A></FONT> : <b>in</b> Complex; + <FONT COLOR=red><A NAME="64_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#51_4">Default_Fore</A>; + <FONT COLOR=red><A NAME="65_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#52_4">Default_Aft</A>; + <FONT COLOR=red><A NAME="66_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#53_4">Default_Exp</A>); + +<b>private</b> + <b>pragma</b> Inline (Put); + +<b>end</b> Terminal_Interface.Curses.Text_IO.Complex_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-decimal_io__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-decimal_io__adb.htm new file mode 100644 index 0000000..9cfb1ab --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-decimal_io__adb.htm @@ -0,0 +1,81 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-decimal_io.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-decimal_io.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Decimal_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> Ada.Text_IO; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#42_51">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#45_43">Decimal_IO</A> <b>is</b> + + <b>package</b> <FONT COLOR=red><A NAME="47_12">Aux</A></FONT> <b>renames</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#42_51">Aux</A>; + <b>package</b> <FONT COLOR=red><A NAME="48_12">DIO</A></FONT> <b>is</b> <b>new</b> Ada.Text_IO.Decimal_IO (<A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#43_9">Num</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#51_14">Put</A><FONT COLOR=red><A NAME="50_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#52_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#53_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#43_9">Num</A>; + <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#54_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#47_4">Default_Fore</A>; + <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#55_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#48_4">Default_Aft</A>; + <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#56_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#49_4">Default_Exp</A>) + <b>is</b> + <FONT COLOR=red><A NAME="57_7">Buf</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A>'Last); + <FONT COLOR=red><A NAME="58_7">Len</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#54_7">Fore</A> + 1 + <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#55_7">Aft</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#56_7">Exp</A> > 0 <b>then</b> + <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#58_7">Len</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#58_7">Len</A> + 1 + <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#56_7">Exp</A>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#48_12">DIO</A>.Put (<A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#57_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#53_7">Item</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#55_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#56_7">Exp</A>); + <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#47_12">Aux</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#48_14">Put_Buf</A> (<A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#52_7">Win</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#57_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#58_7">Len</A>, False); + <b>end</b> Put; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#58_14">Put</A><FONT COLOR=red><A NAME="67_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#59_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#43_9">Num</A>; + <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#60_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#47_4">Default_Fore</A>; + <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#61_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#48_4">Default_Aft</A>; + <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#62_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#49_4">Default_Exp</A>) <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#51_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#59_7">Item</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#60_7">Fore</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#61_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#62_7">Exp</A>); + <b>end</b> Put; + +<b>end</b> Terminal_Interface.Curses.Text_IO.Decimal_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-decimal_io__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-decimal_io__ads.htm new file mode 100644 index 0000000..5312285 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-decimal_io__ads.htm @@ -0,0 +1,72 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-decimal_io.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-decimal_io.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Decimal_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>generic</b> + <b>type</b> <FONT COLOR=red><A NAME="43_9">Num</A></FONT> <b>is</b> <b>delta</b> <> <b>digits</b> <>; + +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<FONT COLOR=red><A NAME="45_43">Decimal_IO</A></FONT> <b>is</b> + + <FONT COLOR=red><A NAME="47_4">Default_Fore</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#43_9">Num</A>'Fore; + <FONT COLOR=red><A NAME="48_4">Default_Aft</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#43_9">Num</A>'Aft; + <FONT COLOR=red><A NAME="49_4">Default_Exp</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := 0; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#50_14">Put</A><FONT COLOR=red><A NAME="51_14"></A></FONT> + (<FONT COLOR=red><A NAME="52_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="53_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#43_9">Num</A>; + <FONT COLOR=red><A NAME="54_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#47_4">Default_Fore</A>; + <FONT COLOR=red><A NAME="55_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#48_4">Default_Aft</A>; + <FONT COLOR=red><A NAME="56_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#49_4">Default_Exp</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#67_14">Put</A><FONT COLOR=red><A NAME="58_14"></A></FONT> + (<FONT COLOR=red><A NAME="59_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#43_9">Num</A>; + <FONT COLOR=red><A NAME="60_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#47_4">Default_Fore</A>; + <FONT COLOR=red><A NAME="61_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#48_4">Default_Aft</A>; + <FONT COLOR=red><A NAME="62_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#49_4">Default_Exp</A>); + +<b>private</b> + <b>pragma</b> Inline (Put); + +<b>end</b> Terminal_Interface.Curses.Text_IO.Decimal_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__adb.htm new file mode 100644 index 0000000..12fc555 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__adb.htm @@ -0,0 +1,86 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-enumeration_io.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-enumeration_io.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Enumeration_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> Ada.Text_IO; +<b>with</b> Ada.Characters.Handling; <b>use</b> Ada.Characters.Handling; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#42_51">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#45_43">Enumeration_IO</A> <b>is</b> + + <b>package</b> <FONT COLOR=red><A NAME="48_12">Aux</A></FONT> <b>renames</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#42_51">Aux</A>; + <b>package</b> <FONT COLOR=red><A NAME="49_12">EIO</A></FONT> <b>is</b> <b>new</b> Ada.Text_IO.Enumeration_IO (<A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#43_9">Enum</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#50_14">Put</A><FONT COLOR=red><A NAME="51_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#51_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#52_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#43_9">Enum</A>; + <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#53_7">Width</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#47_4">Default_Width</A>; + <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#54_7">Set</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#54_9">Type_Set</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#48_4">Default_Setting</A>) + <b>is</b> + <FONT COLOR=red><A NAME="57_7">Buf</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A>'Last); + <FONT COLOR=red><A NAME="58_7">Tset</A></FONT> : Ada.Text_IO.Type_Set; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#54_7">Set</A> /= <A HREF="terminal_interface-curses-text_io__ads.htm#54_46">Mixed_Case</A> <b>then</b> + <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#58_7">Tset</A> := Ada.Text_IO.Type_Set'Val (<A HREF="terminal_interface-curses-text_io__ads.htm#54_9">Type_Set</A>'Pos (<A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#54_7">Set</A>)); + <b>else</b> + <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#58_7">Tset</A> := Ada.Text_IO.Lower_Case; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#49_12">EIO</A>.Put (<A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#57_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#52_7">Item</A>, <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#58_7">Tset</A>); + <b>if</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#54_7">Set</A> = <A HREF="terminal_interface-curses-text_io__ads.htm#54_46">Mixed_Case</A> <b>then</b> + <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#57_7">Buf</A> (<A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#57_7">Buf</A>'First) := To_Upper (<A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#57_7">Buf</A> (<A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#57_7">Buf</A>'First)); + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#48_12">Aux</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#48_14">Put_Buf</A> (<A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#51_7">Win</A>, <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#57_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#53_7">Width</A>, True, True); + <b>end</b> Put; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#56_14">Put</A><FONT COLOR=red><A NAME="72_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#57_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#43_9">Enum</A>; + <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#58_7">Width</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#47_4">Default_Width</A>; + <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#59_7">Set</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#54_9">Type_Set</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#48_4">Default_Setting</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#50_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#57_7">Item</A>, <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#58_7">Width</A>, <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#59_7">Set</A>); + <b>end</b> Put; + +<b>end</b> Terminal_Interface.Curses.Text_IO.Enumeration_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__ads.htm new file mode 100644 index 0000000..5b0bdaa --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__ads.htm @@ -0,0 +1,69 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-enumeration_io.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-enumeration_io.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Enumeration_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>generic</b> + <b>type</b> <FONT COLOR=red><A NAME="43_9">Enum</A></FONT> <b>is</b> (<>); + +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<FONT COLOR=red><A NAME="45_43">Enumeration_IO</A></FONT> <b>is</b> + + <FONT COLOR=red><A NAME="47_4">Default_Width</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := 0; + <FONT COLOR=red><A NAME="48_4">Default_Setting</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#54_9">Type_Set</A> := <A HREF="terminal_interface-curses-text_io__ads.htm#54_46">Mixed_Case</A>; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#51_14">Put</A><FONT COLOR=red><A NAME="50_14"></A></FONT> + (<FONT COLOR=red><A NAME="51_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="52_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#43_9">Enum</A>; + <FONT COLOR=red><A NAME="53_7">Width</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#47_4">Default_Width</A>; + <FONT COLOR=red><A NAME="54_7">Set</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#54_9">Type_Set</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#48_4">Default_Setting</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#72_14">Put</A><FONT COLOR=red><A NAME="56_14"></A></FONT> + (<FONT COLOR=red><A NAME="57_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#43_9">Enum</A>; + <FONT COLOR=red><A NAME="58_7">Width</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#47_4">Default_Width</A>; + <FONT COLOR=red><A NAME="59_7">Set</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#54_9">Type_Set</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#48_4">Default_Setting</A>); + +<b>private</b> + <b>pragma</b> Inline (Put); + +<b>end</b> Terminal_Interface.Curses.Text_IO.Enumeration_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-fixed_io__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-fixed_io__adb.htm new file mode 100644 index 0000000..75efa92 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-fixed_io__adb.htm @@ -0,0 +1,81 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-fixed_io.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-fixed_io.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Fixed_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> Ada.Text_IO; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#42_51">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#45_43">Fixed_IO</A> <b>is</b> + + <b>package</b> <FONT COLOR=red><A NAME="47_12">Aux</A></FONT> <b>renames</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#42_51">Aux</A>; + <b>package</b> <FONT COLOR=red><A NAME="48_12">FIXIO</A></FONT> <b>is</b> <b>new</b> Ada.Text_IO.Fixed_IO (<A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#43_9">Num</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#51_14">Put</A><FONT COLOR=red><A NAME="50_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#52_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#53_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#43_9">Num</A>; + <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#54_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#47_4">Default_Fore</A>; + <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#55_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#48_4">Default_Aft</A>; + <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#56_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#49_4">Default_Exp</A>) + <b>is</b> + <FONT COLOR=red><A NAME="57_7">Buf</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A>'Last); + <FONT COLOR=red><A NAME="58_7">Len</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#54_7">Fore</A> + 1 + <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#55_7">Aft</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#56_7">Exp</A> > 0 <b>then</b> + <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#58_7">Len</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#58_7">Len</A> + 1 + <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#56_7">Exp</A>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#48_12">FIXIO</A>.Put (<A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#57_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#53_7">Item</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#55_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#56_7">Exp</A>); + <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#47_12">Aux</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#48_14">Put_Buf</A> (<A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#52_7">Win</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#57_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#58_7">Len</A>, False); + <b>end</b> Put; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#58_14">Put</A><FONT COLOR=red><A NAME="67_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#59_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#43_9">Num</A>; + <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#60_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#47_4">Default_Fore</A>; + <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#61_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#48_4">Default_Aft</A>; + <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#62_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#49_4">Default_Exp</A>) <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#51_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#59_7">Item</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#60_7">Fore</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#61_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#62_7">Exp</A>); + <b>end</b> Put; + +<b>end</b> Terminal_Interface.Curses.Text_IO.Fixed_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-fixed_io__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-fixed_io__ads.htm new file mode 100644 index 0000000..fd159a1 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-fixed_io__ads.htm @@ -0,0 +1,72 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-fixed_io.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-fixed_io.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Fixed_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>generic</b> + <b>type</b> <FONT COLOR=red><A NAME="43_9">Num</A></FONT> <b>is</b> <b>delta</b> <>; + +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<FONT COLOR=red><A NAME="45_43">Fixed_IO</A></FONT> <b>is</b> + + <FONT COLOR=red><A NAME="47_4">Default_Fore</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#43_9">Num</A>'Fore; + <FONT COLOR=red><A NAME="48_4">Default_Aft</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#43_9">Num</A>'Aft; + <FONT COLOR=red><A NAME="49_4">Default_Exp</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := 0; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#50_14">Put</A><FONT COLOR=red><A NAME="51_14"></A></FONT> + (<FONT COLOR=red><A NAME="52_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="53_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#43_9">Num</A>; + <FONT COLOR=red><A NAME="54_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#47_4">Default_Fore</A>; + <FONT COLOR=red><A NAME="55_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#48_4">Default_Aft</A>; + <FONT COLOR=red><A NAME="56_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#49_4">Default_Exp</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#67_14">Put</A><FONT COLOR=red><A NAME="58_14"></A></FONT> + (<FONT COLOR=red><A NAME="59_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#43_9">Num</A>; + <FONT COLOR=red><A NAME="60_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#47_4">Default_Fore</A>; + <FONT COLOR=red><A NAME="61_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#48_4">Default_Aft</A>; + <FONT COLOR=red><A NAME="62_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#49_4">Default_Exp</A>); + +<b>private</b> + <b>pragma</b> Inline (Put); + +<b>end</b> Terminal_Interface.Curses.Text_IO.Fixed_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-float_io__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-float_io__adb.htm new file mode 100644 index 0000000..8e0b28b --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-float_io__adb.htm @@ -0,0 +1,82 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-float_io.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-float_io.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Float_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> Ada.Text_IO; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#42_51">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#45_43">Float_IO</A> <b>is</b> + + <b>package</b> <FONT COLOR=red><A NAME="47_12">Aux</A></FONT> <b>renames</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#42_51">Aux</A>; + <b>package</b> <FONT COLOR=red><A NAME="48_12">FIO</A></FONT> <b>is</b> <b>new</b> Ada.Text_IO.Float_IO (<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#43_9">Num</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#51_14">Put</A><FONT COLOR=red><A NAME="50_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#52_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#53_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#43_9">Num</A>; + <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#54_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#47_4">Default_Fore</A>; + <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#55_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#48_4">Default_Aft</A>; + <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#56_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#49_4">Default_Exp</A>) + <b>is</b> + <FONT COLOR=red><A NAME="57_7">Buf</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A>'Last); + <FONT COLOR=red><A NAME="58_7">Len</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#54_7">Fore</A> + 1 + <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#55_7">Aft</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#56_7">Exp</A> > 0 <b>then</b> + <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#58_7">Len</A> := <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#58_7">Len</A> + 1 + <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#56_7">Exp</A>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#48_12">FIO</A>.Put (<A HREF="terminal_interface-curses-text_io-float_io__adb.htm#57_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#53_7">Item</A>, <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#55_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#56_7">Exp</A>); + <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#47_12">Aux</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#48_14">Put_Buf</A> (<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#52_7">Win</A>, <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#57_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#58_7">Len</A>, False); + <b>end</b> Put; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#58_14">Put</A><FONT COLOR=red><A NAME="67_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#59_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#43_9">Num</A>; + <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#60_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#47_4">Default_Fore</A>; + <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#61_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#48_4">Default_Aft</A>; + <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#62_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#49_4">Default_Exp</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#51_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#59_7">Item</A>, <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#60_7">Fore</A>, <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#61_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#62_7">Exp</A>); + <b>end</b> Put; + +<b>end</b> Terminal_Interface.Curses.Text_IO.Float_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-float_io__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-float_io__ads.htm new file mode 100644 index 0000000..39d1358 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-float_io__ads.htm @@ -0,0 +1,72 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-float_io.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-float_io.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Float_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>generic</b> + <b>type</b> <FONT COLOR=red><A NAME="43_9">Num</A></FONT> <b>is</b> <b>digits</b> <>; + +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<FONT COLOR=red><A NAME="45_43">Float_IO</A></FONT> <b>is</b> + + <FONT COLOR=red><A NAME="47_4">Default_Fore</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := 2; + <FONT COLOR=red><A NAME="48_4">Default_Aft</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#43_9">Num</A>'<b>Digits</b> - 1; + <FONT COLOR=red><A NAME="49_4">Default_Exp</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := 3; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#50_14">Put</A><FONT COLOR=red><A NAME="51_14"></A></FONT> + (<FONT COLOR=red><A NAME="52_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="53_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#43_9">Num</A>; + <FONT COLOR=red><A NAME="54_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#47_4">Default_Fore</A>; + <FONT COLOR=red><A NAME="55_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#48_4">Default_Aft</A>; + <FONT COLOR=red><A NAME="56_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#49_4">Default_Exp</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#67_14">Put</A><FONT COLOR=red><A NAME="58_14"></A></FONT> + (<FONT COLOR=red><A NAME="59_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#43_9">Num</A>; + <FONT COLOR=red><A NAME="60_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#47_4">Default_Fore</A>; + <FONT COLOR=red><A NAME="61_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#48_4">Default_Aft</A>; + <FONT COLOR=red><A NAME="62_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#49_4">Default_Exp</A>); + +<b>private</b> + <b>pragma</b> Inline (Put); + +<b>end</b> Terminal_Interface.Curses.Text_IO.Float_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-integer_io__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-integer_io__adb.htm new file mode 100644 index 0000000..1ef1b4b --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-integer_io__adb.htm @@ -0,0 +1,76 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-integer_io.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-integer_io.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Integer_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> Ada.Text_IO; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#42_51">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#45_43">Integer_IO</A> <b>is</b> + + <b>package</b> <FONT COLOR=red><A NAME="47_12">Aux</A></FONT> <b>renames</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#42_51">Aux</A>; + <b>package</b> <FONT COLOR=red><A NAME="48_12">IIO</A></FONT> <b>is</b> <b>new</b> Ada.Text_IO.Integer_IO (<A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#43_9">Num</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#50_14">Put</A><FONT COLOR=red><A NAME="50_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#51_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#52_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#43_9">Num</A>; + <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#53_7">Width</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#47_4">Default_Width</A>; + <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#54_7">Base</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#52_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#48_4">Default_Base</A>) + <b>is</b> + <FONT COLOR=red><A NAME="56_7">Buf</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A>'Last); + <b>begin</b> + <A HREF="terminal_interface-curses-text_io-integer_io__adb.htm#48_12">IIO</A>.Put (<A HREF="terminal_interface-curses-text_io-integer_io__adb.htm#56_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#52_7">Item</A>, <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#54_7">Base</A>); + <A HREF="terminal_interface-curses-text_io-integer_io__adb.htm#47_12">Aux</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#48_14">Put_Buf</A> (<A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#51_7">Win</A>, <A HREF="terminal_interface-curses-text_io-integer_io__adb.htm#56_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#53_7">Width</A>); + <b>end</b> Put; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#56_14">Put</A><FONT COLOR=red><A NAME="62_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#57_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#43_9">Num</A>; + <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#58_7">Width</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#47_4">Default_Width</A>; + <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#59_7">Base</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#52_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#48_4">Default_Base</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#50_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#57_7">Item</A>, <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#58_7">Width</A>, <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#59_7">Base</A>); + <b>end</b> Put; + +<b>end</b> Terminal_Interface.Curses.Text_IO.Integer_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-integer_io__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-integer_io__ads.htm new file mode 100644 index 0000000..fa07b63 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-integer_io__ads.htm @@ -0,0 +1,69 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-integer_io.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-integer_io.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Integer_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>generic</b> + <b>type</b> <FONT COLOR=red><A NAME="43_9">Num</A></FONT> <b>is</b> <b>range</b> <>; + +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<FONT COLOR=red><A NAME="45_43">Integer_IO</A></FONT> <b>is</b> + + <FONT COLOR=red><A NAME="47_4">Default_Width</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#43_9">Num</A>'Width; + <FONT COLOR=red><A NAME="48_4">Default_Base</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#52_12">Number_Base</A> := 10; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-integer_io__adb.htm#50_14">Put</A><FONT COLOR=red><A NAME="50_14"></A></FONT> + (<FONT COLOR=red><A NAME="51_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="52_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#43_9">Num</A>; + <FONT COLOR=red><A NAME="53_7">Width</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#47_4">Default_Width</A>; + <FONT COLOR=red><A NAME="54_7">Base</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#52_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#48_4">Default_Base</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-integer_io__adb.htm#62_14">Put</A><FONT COLOR=red><A NAME="56_14"></A></FONT> + (<FONT COLOR=red><A NAME="57_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#43_9">Num</A>; + <FONT COLOR=red><A NAME="58_7">Width</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#47_4">Default_Width</A>; + <FONT COLOR=red><A NAME="59_7">Base</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#52_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#48_4">Default_Base</A>); + +<b>private</b> + <b>pragma</b> Inline (Put); + +<b>end</b> Terminal_Interface.Curses.Text_IO.Integer_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-modular_io__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-modular_io__adb.htm new file mode 100644 index 0000000..e7a9085 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-modular_io__adb.htm @@ -0,0 +1,76 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-modular_io.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-modular_io.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Modular_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> Ada.Text_IO; +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#42_51">Aux</A>; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#45_43">Modular_IO</A> <b>is</b> + + <b>package</b> <FONT COLOR=red><A NAME="47_12">Aux</A></FONT> <b>renames</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#42_51">Aux</A>; + <b>package</b> <FONT COLOR=red><A NAME="48_12">MIO</A></FONT> <b>is</b> <b>new</b> Ada.Text_IO.Modular_IO (<A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#43_9">Num</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#50_14">Put</A><FONT COLOR=red><A NAME="50_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#51_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#52_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#43_9">Num</A>; + <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#53_7">Width</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#47_4">Default_Width</A>; + <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#54_7">Base</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#52_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#48_4">Default_Base</A>) + <b>is</b> + <FONT COLOR=red><A NAME="56_7">Buf</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A>'Last); + <b>begin</b> + <A HREF="terminal_interface-curses-text_io-modular_io__adb.htm#48_12">MIO</A>.Put (<A HREF="terminal_interface-curses-text_io-modular_io__adb.htm#56_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#52_7">Item</A>, <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#54_7">Base</A>); + <A HREF="terminal_interface-curses-text_io-modular_io__adb.htm#47_12">Aux</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#48_14">Put_Buf</A> (<A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#51_7">Win</A>, <A HREF="terminal_interface-curses-text_io-modular_io__adb.htm#56_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#53_7">Width</A>); + <b>end</b> Put; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#56_14">Put</A><FONT COLOR=red><A NAME="62_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#57_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#43_9">Num</A>; + <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#58_7">Width</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#47_4">Default_Width</A>; + <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#59_7">Base</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#52_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#48_4">Default_Base</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#50_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#57_7">Item</A>, <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#58_7">Width</A>, <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#59_7">Base</A>); + <b>end</b> Put; + +<b>end</b> Terminal_Interface.Curses.Text_IO.Modular_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-modular_io__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-modular_io__ads.htm new file mode 100644 index 0000000..f63b9bd --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io-modular_io__ads.htm @@ -0,0 +1,69 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io-modular_io.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-modular_io.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Modular_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>generic</b> + <b>type</b> <FONT COLOR=red><A NAME="43_9">Num</A></FONT> <b>is</b> <b>mod</b> <>; + +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A>.<FONT COLOR=red><A NAME="45_43">Modular_IO</A></FONT> <b>is</b> + + <FONT COLOR=red><A NAME="47_4">Default_Width</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#43_9">Num</A>'Width; + <FONT COLOR=red><A NAME="48_4">Default_Base</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#52_12">Number_Base</A> := 10; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-modular_io__adb.htm#50_14">Put</A><FONT COLOR=red><A NAME="50_14"></A></FONT> + (<FONT COLOR=red><A NAME="51_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="52_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#43_9">Num</A>; + <FONT COLOR=red><A NAME="53_7">Width</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#47_4">Default_Width</A>; + <FONT COLOR=red><A NAME="54_7">Base</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#52_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#48_4">Default_Base</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io-modular_io__adb.htm#62_14">Put</A><FONT COLOR=red><A NAME="56_14"></A></FONT> + (<FONT COLOR=red><A NAME="57_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#43_9">Num</A>; + <FONT COLOR=red><A NAME="58_7">Width</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Field</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#47_4">Default_Width</A>; + <FONT COLOR=red><A NAME="59_7">Base</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#52_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#48_4">Default_Base</A>); + +<b>private</b> + <b>pragma</b> Inline (Put); + +<b>end</b> Terminal_Interface.Curses.Text_IO.Modular_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io__adb.htm new file mode 100644 index 0000000..0166ab4 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io__adb.htm @@ -0,0 +1,342 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.13 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#45_35">Text_IO</A><FONT COLOR=red><A NAME="42_40"></A></FONT> <b>is</b> + + <FONT COLOR=red><A NAME="44_4">Default_Window</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#58_4">Null_Window</A>; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#60_14">Set_Window</A><FONT COLOR=red><A NAME="46_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#60_26">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io__adb.htm#44_4">Default_Window</A> := <A HREF="terminal_interface-curses-text_io__ads.htm#60_26">Win</A>; + <b>end</b> Set_Window; + + <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A><FONT COLOR=red><A NAME="52_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> + <b>is</b> + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#44_4">Default_Window</A> = <A HREF="terminal_interface-curses__ads.htm#58_4">Null_Window</A> <b>then</b> + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <b>else</b> + <b>return</b> <A HREF="terminal_interface-curses-text_io__adb.htm#44_4">Default_Window</A>; + <b>end</b> <b>if</b>; + <b>end</b> Get_Window; + <b>pragma</b> Inline (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#66_14">Flush</A><FONT COLOR=red><A NAME="63_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#66_21">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#1039_14">Refresh</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#66_21">Win</A>); + <b>end</b> Flush; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#67_14">Flush</A><FONT COLOR=red><A NAME="69_14"></A></FONT> + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#66_14">Flush</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>); + <b>end</b> Flush; + + <FONT COLOR=green><EM>--------------------------------------------</EM></FONT> + <FONT COLOR=green><EM>-- Specification of line and page lengths --</EM></FONT> + <FONT COLOR=green><EM>--------------------------------------------</EM></FONT> + + <FONT COLOR=green><EM>-- There are no set routines in this package. I assume, that you allocate</EM></FONT> + <FONT COLOR=green><EM>-- the window with an appropriate size.</EM></FONT> + <FONT COLOR=green><EM>-- A scroll-window is interpreted as an page with unbounded page length,</EM></FONT> + <FONT COLOR=green><EM>-- i.e. it returns the conventional 0 as page length.</EM></FONT> + + <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#78_13">Line_Length</A><FONT COLOR=red><A NAME="84_13"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#78_26">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A> + <b>is</b> + <FONT COLOR=red><A NAME="86_7">N_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <FONT COLOR=red><A NAME="87_7">N_Cols</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>; + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#1222_14">Get_Size</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#78_26">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#86_7">N_Lines</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#87_7">N_Cols</A>); + <b>if</b> Natural (<A HREF="terminal_interface-curses-text_io__adb.htm#87_7">N_Cols</A>) > Natural (<A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A>'Last) <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-text_io__ads.htm#135_4">Layout_Error</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A> (<A HREF="terminal_interface-curses-text_io__adb.htm#87_7">N_Cols</A>); + <b>end</b> Line_Length; + + <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#79_13">Line_Length</A><FONT COLOR=red><A NAME="96_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A> + <b>is</b> + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#78_13">Line_Length</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>); + <b>end</b> Line_Length; + + <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#81_13">Page_Length</A><FONT COLOR=red><A NAME="102_13"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#81_26">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A> + <b>is</b> + <FONT COLOR=red><A NAME="104_7">N_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <FONT COLOR=red><A NAME="105_7">N_Cols</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__ads.htm#1016_13">Scrolling_Allowed</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#81_26">Win</A>) <b>then</b> + <b>return</b> 0; + <b>else</b> + <A HREF="terminal_interface-curses__ads.htm#1222_14">Get_Size</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#81_26">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#104_7">N_Lines</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#105_7">N_Cols</A>); + <b>if</b> Natural (<A HREF="terminal_interface-curses-text_io__adb.htm#104_7">N_Lines</A>) > Natural (<A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A>'Last) <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-text_io__ads.htm#135_4">Layout_Error</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A> (<A HREF="terminal_interface-curses-text_io__adb.htm#104_7">N_Lines</A>); + <b>end</b> <b>if</b>; + <b>end</b> Page_Length; + + <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#82_13">Page_Length</A><FONT COLOR=red><A NAME="118_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A> + <b>is</b> + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#81_13">Page_Length</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>); + <b>end</b> Page_Length; + + <FONT COLOR=green><EM>------------------------------------</EM></FONT> + <FONT COLOR=green><EM>-- Column, Line, and Page Control --</EM></FONT> + <FONT COLOR=green><EM>------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#87_14">New_Line</A><FONT COLOR=red><A NAME="127_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#87_24">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <A HREF="terminal_interface-curses-text_io__ads.htm#87_41">Spacing</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A> := 1) + <b>is</b> + <FONT COLOR=red><A NAME="129_7">P_Size</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A> := <A HREF="terminal_interface-curses-text_io__ads.htm#81_13">Page_Length</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#87_24">Win</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-text_io__ads.htm#87_41">Spacing</A> <b>not</b> <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A> <b>then</b> + <b>raise</b> Constraint_Error; + <b>end</b> <b>if</b>; + + <b>for</b> <FONT COLOR=red><A NAME="135_11">I</A></FONT> <b>in</b> 1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#87_41">Spacing</A> <b>loop</b> + <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#129_7">P_Size</A> > 0 <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-text_io__ads.htm#102_13">Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#87_24">Win</A>) >= <A HREF="terminal_interface-curses-text_io__adb.htm#129_7">P_Size</A> <b>then</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#90_14">New_Page</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#87_24">Win</A>); + <b>else</b> + <A HREF="terminal_interface-curses__ads.htm#522_14">Add</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#87_24">Win</A>, ASCII.LF); + <b>end</b> <b>if</b>; + <b>end</b> <b>loop</b>; + <b>end</b> New_Line; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#88_14">New_Line</A><FONT COLOR=red><A NAME="144_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#88_24">Spacing</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A> := 1) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#87_14">New_Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#88_24">Spacing</A>); + <b>end</b> New_Line; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#90_14">New_Page</A><FONT COLOR=red><A NAME="150_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#90_24">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#1074_14">Clear</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#90_24">Win</A>); + <b>end</b> New_Page; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#91_14">New_Page</A><FONT COLOR=red><A NAME="156_14"></A></FONT> + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#90_14">New_Page</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>); + <b>end</b> New_Page; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#93_14">Set_Col</A><FONT COLOR=red><A NAME="162_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#93_23">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <A HREF="terminal_interface-curses-text_io__ads.htm#93_41">To</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A>) + <b>is</b> + <FONT COLOR=red><A NAME="164_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <FONT COLOR=red><A NAME="165_7">X1</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <FONT COLOR=red><A NAME="166_7">X2</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <FONT COLOR=red><A NAME="167_7">N</A></FONT> : Natural; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-text_io__ads.htm#93_41">To</A> <b>not</b> <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A> <b>then</b> + <b>raise</b> Constraint_Error; + <b>end</b> <b>if</b>; + + <A HREF="terminal_interface-curses__ads.htm#1238_14">Get_Cursor_Position</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#93_23">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#164_7">Y</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#165_7">X1</A>); + <A HREF="terminal_interface-curses-text_io__adb.htm#167_7">N</A> := Natural (<A HREF="terminal_interface-curses-text_io__ads.htm#93_41">To</A>); <A HREF="terminal_interface-curses-text_io__adb.htm#167_7">N</A> := <A HREF="terminal_interface-curses-text_io__adb.htm#167_7">N</A> - 1; + <A HREF="terminal_interface-curses-text_io__adb.htm#166_7">X2</A> := <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A> (<A HREF="terminal_interface-curses-text_io__adb.htm#167_7">N</A>); + <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#165_7">X1</A> > <A HREF="terminal_interface-curses-text_io__adb.htm#166_7">X2</A> <b>then</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#87_14">New_Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#93_23">Win</A>, 1); + <A HREF="terminal_interface-curses-text_io__adb.htm#165_7">X1</A> := 0; + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#165_7">X1</A> < <A HREF="terminal_interface-curses-text_io__adb.htm#166_7">X2</A> <b>then</b> + <b>declare</b> + <FONT COLOR=red><A NAME="182_13">Filler</A></FONT> : <b>constant</b> String (Integer (<A HREF="terminal_interface-curses-text_io__adb.htm#165_7">X1</A>) .. (Integer (<A HREF="terminal_interface-curses-text_io__adb.htm#166_7">X2</A>) - 1)) + := (<b>others</b> => ' '); + <b>begin</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#116_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#93_23">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#182_13">Filler</A>); + <b>end</b>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Col; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#94_14">Set_Col</A><FONT COLOR=red><A NAME="190_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#94_23">To</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#93_14">Set_Col</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#94_23">To</A>); + <b>end</b> Set_Col; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#96_14">Set_Line</A><FONT COLOR=red><A NAME="196_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#96_24">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <A HREF="terminal_interface-curses-text_io__ads.htm#96_41">To</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A>) + <b>is</b> + <FONT COLOR=red><A NAME="198_7">Y1</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <FONT COLOR=red><A NAME="199_7">Y2</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <FONT COLOR=red><A NAME="200_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <FONT COLOR=red><A NAME="201_7">N</A></FONT> : Natural; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-text_io__ads.htm#96_41">To</A> <b>not</b> <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A> <b>then</b> + <b>raise</b> Constraint_Error; + <b>end</b> <b>if</b>; + + <A HREF="terminal_interface-curses__ads.htm#1238_14">Get_Cursor_Position</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#96_24">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#198_7">Y1</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#200_7">X</A>); + <A HREF="terminal_interface-curses-text_io__adb.htm#201_7">N</A> := Natural (<A HREF="terminal_interface-curses-text_io__ads.htm#96_41">To</A>); <A HREF="terminal_interface-curses-text_io__adb.htm#201_7">N</A> := <A HREF="terminal_interface-curses-text_io__adb.htm#201_7">N</A> - 1; + <A HREF="terminal_interface-curses-text_io__adb.htm#199_7">Y2</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> (<A HREF="terminal_interface-curses-text_io__adb.htm#201_7">N</A>); + <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#199_7">Y2</A> < <A HREF="terminal_interface-curses-text_io__adb.htm#198_7">Y1</A> <b>then</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#90_14">New_Page</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#96_24">Win</A>); + <A HREF="terminal_interface-curses-text_io__adb.htm#198_7">Y1</A> := 0; + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#198_7">Y1</A> < <A HREF="terminal_interface-curses-text_io__adb.htm#199_7">Y2</A> <b>then</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#87_14">New_Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#96_24">Win</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A> (<A HREF="terminal_interface-curses-text_io__adb.htm#199_7">Y2</A> - <A HREF="terminal_interface-curses-text_io__adb.htm#198_7">Y1</A>)); + <b>end</b> <b>if</b>; + <b>end</b> Set_Line; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#97_14">Set_Line</A><FONT COLOR=red><A NAME="219_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#97_24">To</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#96_14">Set_Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#97_24">To</A>); + <b>end</b> Set_Line; + + <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#99_13">Col</A><FONT COLOR=red><A NAME="225_13"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#99_18">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A> + <b>is</b> + <FONT COLOR=red><A NAME="227_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <FONT COLOR=red><A NAME="228_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <FONT COLOR=red><A NAME="229_7">N</A></FONT> : Natural; + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#1238_14">Get_Cursor_Position</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#99_18">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#227_7">Y</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#228_7">X</A>); + <A HREF="terminal_interface-curses-text_io__adb.htm#229_7">N</A> := Natural (<A HREF="terminal_interface-curses-text_io__adb.htm#228_7">X</A>); <A HREF="terminal_interface-curses-text_io__adb.htm#229_7">N</A> := <A HREF="terminal_interface-curses-text_io__adb.htm#229_7">N</A> + 1; + <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#229_7">N</A> > Natural (<A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A>'Last) <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-text_io__ads.htm#135_4">Layout_Error</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A> (<A HREF="terminal_interface-curses-text_io__adb.htm#229_7">N</A>); + <b>end</b> Col; + + <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#100_13">Col</A><FONT COLOR=red><A NAME="239_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A> + <b>is</b> + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#99_13">Col</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>); + <b>end</b> Col; + + <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#102_13">Line</A><FONT COLOR=red><A NAME="245_13"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#102_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A> + <b>is</b> + <FONT COLOR=red><A NAME="247_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <FONT COLOR=red><A NAME="248_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <FONT COLOR=red><A NAME="249_7">N</A></FONT> : Natural; + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#1238_14">Get_Cursor_Position</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#102_19">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#247_7">Y</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#248_7">X</A>); + <A HREF="terminal_interface-curses-text_io__adb.htm#249_7">N</A> := Natural (<A HREF="terminal_interface-curses-text_io__adb.htm#247_7">Y</A>); <A HREF="terminal_interface-curses-text_io__adb.htm#249_7">N</A> := <A HREF="terminal_interface-curses-text_io__adb.htm#249_7">N</A> + 1; + <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#249_7">N</A> > Natural (<A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A>'Last) <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses-text_io__ads.htm#135_4">Layout_Error</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A> (<A HREF="terminal_interface-curses-text_io__adb.htm#249_7">N</A>); + <b>end</b> Line; + + <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#103_13">Line</A><FONT COLOR=red><A NAME="259_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A> + <b>is</b> + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#102_13">Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>); + <b>end</b> Line; + + <FONT COLOR=green><EM>-----------------------</EM></FONT> + <FONT COLOR=green><EM>-- Characters Output --</EM></FONT> + <FONT COLOR=green><EM>-----------------------</EM></FONT> + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#109_14">Put</A><FONT COLOR=red><A NAME="269_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#109_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <A HREF="terminal_interface-curses-text_io__ads.htm#109_37">Item</A> : <b>in</b> Character) + <b>is</b> + <FONT COLOR=red><A NAME="271_7">P_Size</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A> := <A HREF="terminal_interface-curses-text_io__ads.htm#81_13">Page_Length</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#109_19">Win</A>); + <FONT COLOR=red><A NAME="272_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <FONT COLOR=red><A NAME="273_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <FONT COLOR=red><A NAME="274_7">L</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <FONT COLOR=red><A NAME="275_7">C</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#271_7">P_Size</A> > 0 <b>then</b> + <A HREF="terminal_interface-curses__ads.htm#1238_14">Get_Cursor_Position</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#109_19">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#272_7">Y</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#273_7">X</A>); + <A HREF="terminal_interface-curses__ads.htm#1222_14">Get_Size</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#109_19">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#274_7">L</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#275_7">C</A>); + <b>if</b> (<A HREF="terminal_interface-curses-text_io__adb.htm#272_7">Y</A> + 1) = <A HREF="terminal_interface-curses-text_io__adb.htm#274_7">L</A> <b>and</b> <b>then</b> (<A HREF="terminal_interface-curses-text_io__adb.htm#273_7">X</A> + 1) = <A HREF="terminal_interface-curses-text_io__adb.htm#275_7">C</A> <b>then</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#90_14">New_Page</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#109_19">Win</A>); + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses__ads.htm#522_14">Add</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#109_19">Win</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#109_37">Item</A>); + <b>end</b> Put; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#110_14">Put</A><FONT COLOR=red><A NAME="287_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#110_19">Item</A> : <b>in</b> Character) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#109_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#110_19">Item</A>); + <b>end</b> Put; + + <FONT COLOR=green><EM>--------------------</EM></FONT> + <FONT COLOR=green><EM>-- Strings-Output --</EM></FONT> + <FONT COLOR=green><EM>--------------------</EM></FONT> + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#116_14">Put</A><FONT COLOR=red><A NAME="297_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#116_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <A HREF="terminal_interface-curses-text_io__ads.htm#116_37">Item</A> : <b>in</b> String) + <b>is</b> + <FONT COLOR=red><A NAME="299_7">P_Size</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A> := <A HREF="terminal_interface-curses-text_io__ads.htm#81_13">Page_Length</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#116_19">Win</A>); + <FONT COLOR=red><A NAME="300_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <FONT COLOR=red><A NAME="301_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <FONT COLOR=red><A NAME="302_7">L</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <FONT COLOR=red><A NAME="303_7">C</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#299_7">P_Size</A> > 0 <b>then</b> + <A HREF="terminal_interface-curses__ads.htm#1238_14">Get_Cursor_Position</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#116_19">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#300_7">Y</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#301_7">X</A>); + <A HREF="terminal_interface-curses__ads.htm#1222_14">Get_Size</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#116_19">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#302_7">L</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#303_7">C</A>); + <b>if</b> (<A HREF="terminal_interface-curses-text_io__adb.htm#300_7">Y</A> + 1) = <A HREF="terminal_interface-curses-text_io__adb.htm#302_7">L</A> <b>and</b> <b>then</b> (<A HREF="terminal_interface-curses-text_io__adb.htm#301_7">X</A> + 1 + <A HREF="terminal_interface-curses-text_io__ads.htm#116_37">Item</A>'Length) >= <A HREF="terminal_interface-curses-text_io__adb.htm#303_7">C</A> <b>then</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#90_14">New_Page</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#116_19">Win</A>); + <b>end</b> <b>if</b>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses__ads.htm#647_14">Add</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#116_19">Win</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#116_37">Item</A>); + <b>end</b> Put; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#117_14">Put</A><FONT COLOR=red><A NAME="315_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#117_19">Item</A> : <b>in</b> String) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#116_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#117_19">Item</A>); + <b>end</b> Put; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#119_14">Put_Line</A><FONT COLOR=red><A NAME="321_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io__ads.htm#120_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses-text_io__ads.htm#121_7">Item</A> : <b>in</b> String) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#116_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#120_7">Win</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#121_7">Item</A>); + <A HREF="terminal_interface-curses-text_io__ads.htm#87_14">New_Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#120_7">Win</A>, 1); + <b>end</b> Put_Line; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#123_14">Put_Line</A><FONT COLOR=red><A NAME="330_14"></A></FONT> + (<A HREF="terminal_interface-curses-text_io__ads.htm#124_7">Item</A> : <b>in</b> String) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses-text_io__ads.htm#119_14">Put_Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#63_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#124_7">Item</A>); + <b>end</b> Put_Line; + +<b>end</b> Terminal_Interface.Curses.Text_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io__ads.htm new file mode 100644 index 0000000..07797d8 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-text_io__ads.htm @@ -0,0 +1,142 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-text_io.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> Ada.Text_IO; +<b>with</b> Ada.IO_Exceptions; + +<b>package</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__adb.htm#42_40">Text_IO</A><FONT COLOR=red><A NAME="45_35"></A></FONT> <b>is</b> + + <b>use</b> <b>type</b> Ada.Text_IO.Count; + <b>subtype</b> <FONT COLOR=red><A NAME="48_12">Count</A></FONT> <b>is</b> Ada.Text_IO.Count; + <b>subtype</b> <FONT COLOR=red><A NAME="49_12">Positive_Count</A></FONT> <b>is</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A> <b>range</b> 1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A>'Last; + + <b>subtype</b> <FONT COLOR=red><A NAME="51_12">Field</A></FONT> <b>is</b> Ada.Text_IO.Field; + <b>subtype</b> <FONT COLOR=red><A NAME="52_12">Number_Base</A></FONT> <b>is</b> Integer <b>range</b> 2 .. 16; + + <b>type</b> <FONT COLOR=red><A NAME="54_9">Type_Set</A></FONT> <b>is</b> (<FONT COLOR=red><A NAME="54_22">Lower_Case</A></FONT>, <FONT COLOR=red><A NAME="54_34">Upper_Case</A></FONT>, <FONT COLOR=red><A NAME="54_46">Mixed_Case</A></FONT>); + + <FONT COLOR=green><EM>-- For most of the routines you will see a version without a Window</EM></FONT> + <FONT COLOR=green><EM>-- type parameter. They will operate on a default window, which can</EM></FONT> + <FONT COLOR=green><EM>-- be set by the user. It is initially equal to Standard_Window.</EM></FONT> + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#46_14">Set_Window</A><FONT COLOR=red><A NAME="60_14"></A></FONT> (<FONT COLOR=red><A NAME="60_26">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>); + <FONT COLOR=green><EM>-- Set Win as the default window</EM></FONT> + + <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#52_13">Get_Window</A><FONT COLOR=red><A NAME="63_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=green><EM>-- Get the current default window</EM></FONT> + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#63_14">Flush</A><FONT COLOR=red><A NAME="66_14"></A></FONT> (<FONT COLOR=red><A NAME="66_21">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>); + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#69_14">Flush</A><FONT COLOR=red><A NAME="67_14"></A></FONT>; + + <FONT COLOR=green><EM>--------------------------------------------</EM></FONT> + <FONT COLOR=green><EM>-- Specification of line and page lengths --</EM></FONT> + <FONT COLOR=green><EM>--------------------------------------------</EM></FONT> + + <FONT COLOR=green><EM>-- There are no set routines in this package. I assume, that you allocate</EM></FONT> + <FONT COLOR=green><EM>-- the window with an appropriate size.</EM></FONT> + <FONT COLOR=green><EM>-- A scroll-window is interpreted as an page with unbounded page length,</EM></FONT> + <FONT COLOR=green><EM>-- i.e. it returns the conventional 0 as page length.</EM></FONT> + + <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#84_13">Line_Length</A><FONT COLOR=red><A NAME="78_13"></A></FONT> (<FONT COLOR=red><A NAME="78_26">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A>; + <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#96_13">Line_Length</A><FONT COLOR=red><A NAME="79_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A>; + + <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#102_13">Page_Length</A><FONT COLOR=red><A NAME="81_13"></A></FONT> (<FONT COLOR=red><A NAME="81_26">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A>; + <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#118_13">Page_Length</A><FONT COLOR=red><A NAME="82_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Count</A>; + + <FONT COLOR=green><EM>------------------------------------</EM></FONT> + <FONT COLOR=green><EM>-- Column, Line, and Page Control --</EM></FONT> + <FONT COLOR=green><EM>------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#127_14">New_Line</A><FONT COLOR=red><A NAME="87_14"></A></FONT> (<FONT COLOR=red><A NAME="87_24">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="87_41">Spacing</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A> := 1); + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#144_14">New_Line</A><FONT COLOR=red><A NAME="88_14"></A></FONT> (<FONT COLOR=red><A NAME="88_24">Spacing</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A> := 1); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#150_14">New_Page</A><FONT COLOR=red><A NAME="90_14"></A></FONT> (<FONT COLOR=red><A NAME="90_24">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>); + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#156_14">New_Page</A><FONT COLOR=red><A NAME="91_14"></A></FONT>; + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#162_14">Set_Col</A><FONT COLOR=red><A NAME="93_14"></A></FONT> (<FONT COLOR=red><A NAME="93_23">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="93_41">To</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A>); + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#190_14">Set_Col</A><FONT COLOR=red><A NAME="94_14"></A></FONT> (<FONT COLOR=red><A NAME="94_23">To</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A>); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#196_14">Set_Line</A><FONT COLOR=red><A NAME="96_14"></A></FONT> (<FONT COLOR=red><A NAME="96_24">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="96_41">To</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A>); + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#219_14">Set_Line</A><FONT COLOR=red><A NAME="97_14"></A></FONT> (<FONT COLOR=red><A NAME="97_24">To</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A>); + + <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#225_13">Col</A><FONT COLOR=red><A NAME="99_13"></A></FONT> (<FONT COLOR=red><A NAME="99_18">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A>; + <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#239_13">Col</A><FONT COLOR=red><A NAME="100_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A>; + + <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#245_13">Line</A><FONT COLOR=red><A NAME="102_13"></A></FONT> (<FONT COLOR=red><A NAME="102_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A>; + <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#259_13">Line</A><FONT COLOR=red><A NAME="103_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#49_12">Positive_Count</A>; + + <FONT COLOR=green><EM>-----------------------</EM></FONT> + <FONT COLOR=green><EM>-- Characters-Output --</EM></FONT> + <FONT COLOR=green><EM>-----------------------</EM></FONT> + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#269_14">Put</A><FONT COLOR=red><A NAME="109_14"></A></FONT> (<FONT COLOR=red><A NAME="109_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="109_37">Item</A></FONT> : <b>in</b> Character); + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#287_14">Put</A><FONT COLOR=red><A NAME="110_14"></A></FONT> (<FONT COLOR=red><A NAME="110_19">Item</A></FONT> : <b>in</b> Character); + + <FONT COLOR=green><EM>--------------------</EM></FONT> + <FONT COLOR=green><EM>-- Strings-Output --</EM></FONT> + <FONT COLOR=green><EM>--------------------</EM></FONT> + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#297_14">Put</A><FONT COLOR=red><A NAME="116_14"></A></FONT> (<FONT COLOR=red><A NAME="116_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="116_37">Item</A></FONT> : <b>in</b> String); + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#315_14">Put</A><FONT COLOR=red><A NAME="117_14"></A></FONT> (<FONT COLOR=red><A NAME="117_19">Item</A></FONT> : <b>in</b> String); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#321_14">Put_Line</A><FONT COLOR=red><A NAME="119_14"></A></FONT> + (<FONT COLOR=red><A NAME="120_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="121_7">Item</A></FONT> : <b>in</b> String); + + <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#330_14">Put_Line</A><FONT COLOR=red><A NAME="123_14"></A></FONT> + (<FONT COLOR=red><A NAME="124_7">Item</A></FONT> : <b>in</b> String); + + <FONT COLOR=green><EM>-- Exceptions</EM></FONT> + + <FONT COLOR=red><A NAME="128_4">Status_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.Status_Error; + <FONT COLOR=red><A NAME="129_4">Mode_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.Mode_Error; + <FONT COLOR=red><A NAME="130_4">Name_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.Name_Error; + <FONT COLOR=red><A NAME="131_4">Use_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.Use_Error; + <FONT COLOR=red><A NAME="132_4">Device_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.Device_Error; + <FONT COLOR=red><A NAME="133_4">End_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.End_Error; + <FONT COLOR=red><A NAME="134_4">Data_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.Data_Error; + <FONT COLOR=red><A NAME="135_4">Layout_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.Layout_Error; + +<b>end</b> Terminal_Interface.Curses.Text_IO; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-trace__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-trace__adb.htm new file mode 100644 index 0000000..6ff73fe --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-trace__adb.htm @@ -0,0 +1,60 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-trace.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-trace.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Trace --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 2000 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.3 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-trace__ads.htm#42_35">Trace</A><FONT COLOR=red><A NAME="43_40"></A></FONT> <b>is</b> + + <b>procedure</b> <A HREF="terminal_interface-curses-trace__ads.htm#103_14">Trace_On</A><FONT COLOR=red><A NAME="45_14"></A></FONT> (<A HREF="terminal_interface-curses-trace__ads.htm#103_24">x</A> : <A HREF="terminal_interface-curses-trace__ads.htm#46_9">Trace_Attribute_Set</A>) <b>is</b> + <b>begin</b> + <b>null</b>; + <b>end</b> Trace_On; + + <b>procedure</b> <A HREF="terminal_interface-curses-trace__ads.htm#107_14">Trace_Put</A><FONT COLOR=red><A NAME="50_14"></A></FONT> (<A HREF="terminal_interface-curses-trace__ads.htm#107_25">str</A> : String) <b>is</b> + <b>begin</b> + <b>null</b>; + <b>end</b> Trace_Put; + +<b>end</b> Terminal_Interface.Curses.Trace; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses-trace__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses-trace__ads.htm new file mode 100644 index 0000000..e741efd --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses-trace__ads.htm @@ -0,0 +1,119 @@ +<HTML><HEAD><TITLE>terminal_interface-curses-trace.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-trace.ads </H1></DIV><HR> +<PRE> + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Trace --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 2000 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: Eugene V. Melaragno <aldomel@ix.netcom.com> 2000</EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.1 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + +<b>package</b> Terminal_Interface.Curses.Trace <b>is</b> + <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Trace); + + <b>pragma</b> Warnings (Off); + <b>type</b> Trace_Attribute_Set <b>is</b> + <b>record</b> + <FONT COLOR=red><A NAME="49_10">Times</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="50_10">Tputs</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="51_10">Update</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="52_10">Cursor_Move</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="53_10">Character_Output</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="54_10">Calls</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="55_10">Virtual_Puts</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="56_10">Input_Events</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="57_10">TTY_State</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="58_10">Internal_Calls</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="59_10">Character_Calls</A></FONT> : Boolean; + Termcap_TermInfo : Boolean; + <b>end</b> <b>record</b><A HREF="terminal_interface-curses-trace__ads.htm#46_9">;</A> + <b>pragma</b> Pack (Trace_Attribute_Set); + <b>pragma</b> Convention (C, Trace_Attribute_Set); + + <b>for</b> Trace_Attribute_Set <b>use</b> + <b>record</b> + Times <b>at</b> 0 <b>range</b> 0 .. 0; + Tputs <b>at</b> 0 <b>range</b> 1 .. 1; + Update <b>at</b> 0 <b>range</b> 2 .. 2; + Cursor_Move <b>at</b> 0 <b>range</b> 3 .. 3; + Character_Output <b>at</b> 0 <b>range</b> 4 .. 4; + Calls <b>at</b> 0 <b>range</b> 5 .. 5; + Virtual_Puts <b>at</b> 0 <b>range</b> 6 .. 6; + Input_Events <b>at</b> 0 <b>range</b> 7 .. 7; + TTY_State <b>at</b> 0 <b>range</b> 8 .. 8; + Internal_Calls <b>at</b> 0 <b>range</b> 9 .. 9; + Character_Calls <b>at</b> 0 <b>range</b> 10 .. 10; + Termcap_TermInfo <b>at</b> 0 <b>range</b> 11 .. 11; + <b>end</b> <b>record</b>; + <b>for</b> Trace_Attribute_Set'Size <b>use</b> 32; + <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> + <FONT COLOR=green><EM>-- different on your system.</EM></FONT> + + <b>pragma</b> Warnings (On); + + Trace_Disable : <b>constant</b> Trace_Attribute_Set := (<b>others</b> => False); + + Trace_Ordinary : <b>constant</b> Trace_Attribute_Set := + (Times => True, + Tputs => True, + Update => True, + Cursor_Move => True, + Character_Output => True, + <FONT COLOR=red><A NAME="94_4"> </A></FONT> <b>others</b> => False); + Trace_Maximum : <b>constant</b> Trace_Attribute_Set := (<b>others</b> => True); + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_trace.3x.html">curs_trace.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> + <b>procedure</b> Trace_On (x : Trace_Attribute_Set); + <FONT COLOR=green><EM>-- The debugging library has trace.</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> + <b>procedure</b> Trace_Put (str : String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_trace.3x.html">_tracef()</A></EM></FONT> + + Current_Trace_Setting : Trace_Attribute_Set; + <b>pragma</b> Import (C, Current_Trace_Setting, "_nc_tracing"); + +<b>end</b> Terminal_Interface.Curses.Trace; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses__adb.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses__adb.htm new file mode 100644 index 0000000..6d54885 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses__adb.htm @@ -0,0 +1,2566 @@ +<HTML><HEAD><TITLE>terminal_interface-curses.adb</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses.adb </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.28 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>with</b> System; + +<b>with</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; +<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Pointers; +<b>with</b> Ada.Characters.Handling; <b>use</b> Ada.Characters.Handling; +<b>with</b> Ada.Strings.Fixed; +<b>with</b> Ada.Unchecked_Conversion; + +<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#49_28">Curses</A><FONT COLOR=red><A NAME="52_33"></A></FONT> <b>is</b> + + <b>use</b> <A HREF="terminal_interface-curses-aux__ads.htm#51_35">Aux</A>; + <b>use</b> <b>type</b> System.Bit_Order; + + <b>package</b> <FONT COLOR=red><A NAME="57_12">ASF</A></FONT> <b>renames</b> Ada.Strings.Fixed; + + <b>type</b> <FONT COLOR=red><A NAME="59_9">chtype_array</A></FONT> <b>is</b> <b>array</b> (size_t <b>range</b> <>) + <b>of</b> <b>aliased</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>; + <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses__adb.htm#59_9">chtype_array</A>); + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>generic</b> + <b>type</b> <FONT COLOR=red><A NAME="65_12">Element</A></FONT> <b>is</b> (<>); + <b>function</b> <FONT COLOR=red><A NAME="66_13">W_Get_Element</A></FONT> (<FONT COLOR=red><A NAME="66_28">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="67_28">Offset</A></FONT> : <b>in</b> Natural) <b>return</b> <A HREF="terminal_interface-curses__adb.htm#65_12">Element</A>; + + <b>function</b> <A HREF="terminal_interface-curses__adb.htm#66_13">W_Get_Element</A> (<FONT COLOR=red><A NAME="69_28">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="70_28">Offset</A></FONT> : <b>in</b> Natural) <b>return</b> <A HREF="terminal_interface-curses__adb.htm#65_12">Element</A> <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="71_12">E_Array</A></FONT> <b>is</b> <b>array</b> (Natural <b>range</b> <>) <b>of</b> <b>aliased</b> <A HREF="terminal_interface-curses__adb.htm#65_12">Element</A>; + <b>package</b> <FONT COLOR=red><A NAME="72_15">C_E_Array</A></FONT> <b>is</b> <b>new</b> + <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Pointers (Natural, <A HREF="terminal_interface-curses__adb.htm#65_12">Element</A>, <A HREF="terminal_interface-curses__adb.htm#71_12">E_Array</A>, <A HREF="terminal_interface-curses__adb.htm#65_12">Element</A>'Val (0)); + <b>use</b> <A HREF="terminal_interface-curses__adb.htm#72_15">C_E_Array</A>; + + <b>function</b> <FONT COLOR=red><A NAME="76_16">To_Pointer</A></FONT> <b>is</b> <b>new</b> + Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>, Pointer); + + <FONT COLOR=red><A NAME="79_7">P</A></FONT> : Pointer := <A HREF="terminal_interface-curses__adb.htm#76_16">To_Pointer</A> (<A HREF="terminal_interface-curses__adb.htm#66_28">Win</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#66_28">Win</A> = <A HREF="terminal_interface-curses__ads.htm#58_4">Null_Window</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses__adb.htm#79_7">P</A> := <A HREF="terminal_interface-curses__adb.htm#79_7">P</A> + ptrdiff_t (<A HREF="terminal_interface-curses__adb.htm#67_28">Offset</A>); + <b>return</b> <A HREF="terminal_interface-curses__adb.htm#79_7">P</A>.<b>all</b>; + <b>end</b> <b>if</b>; + <b>end</b> W_Get_Element; + + <b>function</b> <FONT COLOR=red><A NAME="89_13">W_Get_Int</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses__adb.htm#66_13">W_Get_Element</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>); + <b>function</b> <FONT COLOR=red><A NAME="90_13">W_Get_Short</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses__adb.htm#66_13">W_Get_Element</A> (<A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>); + <b>function</b> <FONT COLOR=red><A NAME="91_13">W_Get_Byte</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses__adb.htm#66_13">W_Get_Element</A> (<A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.unsigned_char); + + <b>function</b> <A HREF="terminal_interface-curses__adb.htm#96_13">Get_Flag</A><FONT COLOR=red><A NAME="93_13"></A></FONT> (<FONT COLOR=red><A NAME="93_23">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="94_23">Offset</A></FONT> : Natural) <b>return</b> Boolean; + + <b>function</b> <A HREF="terminal_interface-curses__adb.htm#93_13">Get_Flag</A><FONT COLOR=red><A NAME="96_13"></A></FONT> (<A HREF="terminal_interface-curses__adb.htm#93_23">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses__adb.htm#94_23">Offset</A> : Natural) <b>return</b> Boolean + <b>is</b> + <FONT COLOR=red><A NAME="99_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>begin</b> + <b>case</b> <A HREF="terminal_interface-curses__ads.htm#1928_4">Sizeof_bool</A> <b>is</b> + <b>when</b> 1 => <A HREF="terminal_interface-curses__adb.htm#99_7">Res</A> := <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#91_13">W_Get_Byte</A> (<A HREF="terminal_interface-curses__adb.htm#93_23">Win</A>, <A HREF="terminal_interface-curses__adb.htm#94_23">Offset</A>)); + <b>when</b> 2 => <A HREF="terminal_interface-curses__adb.htm#99_7">Res</A> := <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#90_13">W_Get_Short</A> (<A HREF="terminal_interface-curses__adb.htm#93_23">Win</A>, <A HREF="terminal_interface-curses__adb.htm#94_23">Offset</A>)); + <b>when</b> 4 => <A HREF="terminal_interface-curses__adb.htm#99_7">Res</A> := <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#89_13">W_Get_Int</A> (<A HREF="terminal_interface-curses__adb.htm#93_23">Win</A>, <A HREF="terminal_interface-curses__adb.htm#94_23">Offset</A>)); + <b>when</b> <b>others</b> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>case</b>; + + <b>case</b> <A HREF="terminal_interface-curses__adb.htm#99_7">Res</A> <b>is</b> + <b>when</b> 0 => <b>return</b> False; + <b>when</b> <b>others</b> => <b>return</b> True; + <b>end</b> <b>case</b>; + <b>end</b> Get_Flag; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1610_13">Key_Name</A><FONT COLOR=red><A NAME="115_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1610_23">Key</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#72_12">Real_Key_Code</A>) <b>return</b> String + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="117_16">Keyname</A></FONT> (<FONT COLOR=red><A NAME="117_25">K</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#117_16">Keyname</A>, "keyname"); + + <FONT COLOR=red><A NAME="120_7">Ch</A></FONT> : Character; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__ads.htm#1610_23">Key</A> <= Character'Pos (Character'Last) <b>then</b> + <A HREF="terminal_interface-curses__adb.htm#120_7">Ch</A> := Character'Val (<A HREF="terminal_interface-curses__ads.htm#1610_23">Key</A>); + <b>if</b> Is_Control (<A HREF="terminal_interface-curses__adb.htm#120_7">Ch</A>) <b>then</b> + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1621_13">Un_Control</A> (<A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>'(Ch => <A HREF="terminal_interface-curses__adb.htm#120_7">Ch</A>, + Color => <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First, + Attr => <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>)); + <b>elsif</b> Is_Graphic (<A HREF="terminal_interface-curses__adb.htm#120_7">Ch</A>) <b>then</b> + <b>declare</b> + <FONT COLOR=red><A NAME="130_16">S</A></FONT> : String (1 .. 1); + <b>begin</b> + <A HREF="terminal_interface-curses__adb.htm#130_16">S</A> (1) := <A HREF="terminal_interface-curses__adb.htm#120_7">Ch</A>; + <b>return</b> <A HREF="terminal_interface-curses__adb.htm#130_16">S</A>; + <b>end</b>; + <b>else</b> + <b>return</b> ""; + <b>end</b> <b>if</b>; + <b>else</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#117_16">Keyname</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1610_23">Key</A>))); + <b>end</b> <b>if</b>; + <b>end</b> Key_Name; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1604_14">Key_Name</A><FONT COLOR=red><A NAME="143_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1604_24">Key</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#72_12">Real_Key_Code</A>; + <A HREF="terminal_interface-curses__ads.htm#1605_24">Name</A> : <b>out</b> String) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__adb.htm#57_12">ASF</A>.Move (<A HREF="terminal_interface-curses__ads.htm#1610_13">Key_Name</A> (<A HREF="terminal_interface-curses__ads.htm#1604_24">Key</A>), <A HREF="terminal_interface-curses__ads.htm#1605_24">Name</A>); + <b>end</b> Key_Name; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#480_14">Init_Screen</A><FONT COLOR=red><A NAME="151_14"></A></FONT> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="153_16">Initscr</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#153_16">Initscr</A>, "initscr"); + + <FONT COLOR=red><A NAME="156_7">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>begin</b> + <A HREF="terminal_interface-curses__adb.htm#156_7">W</A> := <A HREF="terminal_interface-curses__adb.htm#153_16">Initscr</A>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#156_7">W</A> = <A HREF="terminal_interface-curses__ads.htm#58_4">Null_Window</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Init_Screen; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#489_14">End_Windows</A><FONT COLOR=red><A NAME="164_14"></A></FONT> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="166_16">Endwin</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#166_16">Endwin</A>, "endwin"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#166_16">Endwin</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> End_Windows; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#496_13">Is_End_Window</A><FONT COLOR=red><A NAME="174_13"></A></FONT> <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="176_16">Isendwin</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#176_16">Isendwin</A>, "isendwin"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#176_16">Isendwin</A> = <A HREF="terminal_interface-curses__ads.htm#1932_4">Curses_Bool_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Is_End_Window; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#505_14">Move_Cursor</A><FONT COLOR=red><A NAME="186_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#505_27">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#506_27">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#507_27">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="190_16">Wmove</A></FONT> (<FONT COLOR=red><A NAME="190_23">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="191_23">Line</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="192_23">Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> + ) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#190_16">Wmove</A>, "wmove"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#190_16">Wmove</A> (<A HREF="terminal_interface-curses__ads.htm#505_27">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#506_27">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#507_27">Column</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Move_Cursor; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#517_14">Add</A><FONT COLOR=red><A NAME="201_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#517_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#518_19">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="204_16">Waddch</A></FONT> (<FONT COLOR=red><A NAME="204_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="205_24">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#204_16">Waddch</A>, "waddch"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#204_16">Waddch</A> (<A HREF="terminal_interface-curses__ads.htm#517_19">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#518_19">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Add; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#522_14">Add</A><FONT COLOR=red><A NAME="213_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#522_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#523_19">Ch</A> : <b>in</b> Character) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#517_14">Add</A> (<A HREF="terminal_interface-curses__ads.htm#522_19">Win</A>, + <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>'(Ch => <A HREF="terminal_interface-curses__ads.htm#523_19">Ch</A>, + Color => <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First, + Attr => <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>)); + <b>end</b> Add; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#528_14">Add</A><FONT COLOR=red><A NAME="223_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#529_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#530_7">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#531_7">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#532_7">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="229_16">mvwaddch</A></FONT> (<FONT COLOR=red><A NAME="229_26">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="230_26">Y</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="231_26">X</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="232_26">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#229_16">mvwaddch</A>, "mvwaddch"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#229_16">mvwaddch</A> (<A HREF="terminal_interface-curses__ads.htm#529_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#530_7">Line</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#531_7">Column</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#532_7">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Add; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#536_14">Add</A><FONT COLOR=red><A NAME="242_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#537_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#538_7">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#539_7">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#540_7">Ch</A> : <b>in</b> Character) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#528_14">Add</A> (<A HREF="terminal_interface-curses__ads.htm#537_7">Win</A>, + <A HREF="terminal_interface-curses__ads.htm#538_7">Line</A>, + <A HREF="terminal_interface-curses__ads.htm#539_7">Column</A>, + <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>'(Ch => <A HREF="terminal_interface-curses__ads.htm#540_7">Ch</A>, + Color => <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First, + Attr => <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>)); + <b>end</b> Add; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#545_14">Add_With_Immediate_Echo</A><FONT COLOR=red><A NAME="257_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#546_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#547_7">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="261_16">Wechochar</A></FONT> (<FONT COLOR=red><A NAME="261_27">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="262_27">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#261_16">Wechochar</A>, "wechochar"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#261_16">Wechochar</A> (<A HREF="terminal_interface-curses__ads.htm#546_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#547_7">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Add_With_Immediate_Echo; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#551_14">Add_With_Immediate_Echo</A><FONT COLOR=red><A NAME="270_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#552_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#553_7">Ch</A> : <b>in</b> Character) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#545_14">Add_With_Immediate_Echo</A> + (<A HREF="terminal_interface-curses__ads.htm#552_7">Win</A>, + <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>'(Ch => <A HREF="terminal_interface-curses__ads.htm#553_7">Ch</A>, + Color => <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First, + Attr => <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>)); + <b>end</b> Add_With_Immediate_Echo; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#563_13">Create</A><FONT COLOR=red><A NAME="282_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#564_7">Number_Of_Lines</A> : <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <A HREF="terminal_interface-curses__ads.htm#565_7">Number_Of_Columns</A> : <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>; + <A HREF="terminal_interface-curses__ads.htm#566_7">First_Line_Position</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#567_7">First_Column_Position</A> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="287_16">Newwin</A></FONT> (<FONT COLOR=red><A NAME="287_24">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="288_24">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="289_24">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="290_24">First_Column_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#287_16">Newwin</A>, "newwin"); + + <FONT COLOR=red><A NAME="293_7">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>begin</b> + <A HREF="terminal_interface-curses__adb.htm#293_7">W</A> := <A HREF="terminal_interface-curses__adb.htm#287_16">Newwin</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#564_7">Number_Of_Lines</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#565_7">Number_Of_Columns</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#566_7">First_Line_Position</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#567_7">First_Column_Position</A>)); + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#293_7">W</A> = <A HREF="terminal_interface-curses__ads.htm#58_4">Null_Window</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses__adb.htm#293_7">W</A>; + <b>end</b> Create; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#582_14">Delete</A><FONT COLOR=red><A NAME="305_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#582_22">Win</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="307_16">Wdelwin</A></FONT> (<FONT COLOR=red><A NAME="307_25">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#307_16">Wdelwin</A>, "delwin"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#307_16">Wdelwin</A> (<A HREF="terminal_interface-curses__ads.htm#582_22">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses__ads.htm#582_22">Win</A> := <A HREF="terminal_interface-curses__ads.htm#58_4">Null_Window</A>; + <b>end</b> Delete; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#588_13">Sub_Window</A><FONT COLOR=red><A NAME="316_13"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#589_7">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#590_7">Number_Of_Lines</A> : <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <A HREF="terminal_interface-curses__ads.htm#591_7">Number_Of_Columns</A> : <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>; + <A HREF="terminal_interface-curses__ads.htm#592_7">First_Line_Position</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#593_7">First_Column_Position</A> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="323_16">Subwin</A></FONT> + (<FONT COLOR=red><A NAME="324_10">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="325_10">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="326_10">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="327_10">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="328_10">First_Column_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#323_16">Subwin</A>, "subwin"); + + <FONT COLOR=red><A NAME="331_7">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>begin</b> + <A HREF="terminal_interface-curses__adb.htm#331_7">W</A> := <A HREF="terminal_interface-curses__adb.htm#323_16">Subwin</A> (<A HREF="terminal_interface-curses__ads.htm#589_7">Win</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#590_7">Number_Of_Lines</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#591_7">Number_Of_Columns</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#592_7">First_Line_Position</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#593_7">First_Column_Position</A>)); + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#331_7">W</A> = <A HREF="terminal_interface-curses__ads.htm#58_4">Null_Window</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses__adb.htm#331_7">W</A>; + <b>end</b> Sub_Window; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#598_13">Derived_Window</A><FONT COLOR=red><A NAME="344_13"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#599_7">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#600_7">Number_Of_Lines</A> : <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <A HREF="terminal_interface-curses__ads.htm#601_7">Number_Of_Columns</A> : <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>; + <A HREF="terminal_interface-curses__ads.htm#602_7">First_Line_Position</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#603_7">First_Column_Position</A> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="351_16">Derwin</A></FONT> + (<FONT COLOR=red><A NAME="352_10">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="353_10">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="354_10">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="355_10">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="356_10">First_Column_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#351_16">Derwin</A>, "derwin"); + + <FONT COLOR=red><A NAME="359_7">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>begin</b> + <A HREF="terminal_interface-curses__adb.htm#359_7">W</A> := <A HREF="terminal_interface-curses__adb.htm#351_16">Derwin</A> (<A HREF="terminal_interface-curses__ads.htm#599_7">Win</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#600_7">Number_Of_Lines</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#601_7">Number_Of_Columns</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#602_7">First_Line_Position</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#603_7">First_Column_Position</A>)); + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#359_7">W</A> = <A HREF="terminal_interface-curses__ads.htm#58_4">Null_Window</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses__adb.htm#359_7">W</A>; + <b>end</b> Derived_Window; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#608_13">Duplicate</A><FONT COLOR=red><A NAME="372_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#608_24">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="374_16">Dupwin</A></FONT> (<FONT COLOR=red><A NAME="374_24">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#374_16">Dupwin</A>, "dupwin"); + + <FONT COLOR=red><A NAME="377_7">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__adb.htm#374_16">Dupwin</A> (<A HREF="terminal_interface-curses__ads.htm#608_24">Win</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#377_7">W</A> = <A HREF="terminal_interface-curses__ads.htm#58_4">Null_Window</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses__adb.htm#377_7">W</A>; + <b>end</b> Duplicate; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#613_14">Move_Window</A><FONT COLOR=red><A NAME="385_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#613_27">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses__ads.htm#614_27">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#615_27">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="389_16">Mvwin</A></FONT> (<FONT COLOR=red><A NAME="389_23">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="390_23">Line</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="391_23">Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#389_16">Mvwin</A>, "mvwin"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#389_16">Mvwin</A> (<A HREF="terminal_interface-curses__ads.htm#613_27">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#614_27">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#615_27">Column</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Move_Window; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#620_14">Move_Derived_Window</A><FONT COLOR=red><A NAME="399_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#620_35">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses__ads.htm#621_35">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#622_35">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="403_16">Mvderwin</A></FONT> (<FONT COLOR=red><A NAME="403_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="404_26">Line</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="405_26">Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#403_16">Mvderwin</A>, "mvderwin"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#403_16">Mvderwin</A> (<A HREF="terminal_interface-curses__ads.htm#620_35">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#621_35">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#622_35">Column</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Move_Derived_Window; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#637_14">Set_Synch_Mode</A><FONT COLOR=red><A NAME="413_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#637_30">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#638_30">Mode</A> : <b>in</b> Boolean := False) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="416_16">Syncok</A></FONT> (<FONT COLOR=red><A NAME="416_24">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="417_24">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#416_16">Syncok</A>, "syncok"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#416_16">Syncok</A> (<A HREF="terminal_interface-curses__ads.htm#637_30">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#638_30">Mode</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Synch_Mode; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#647_14">Add</A><FONT COLOR=red><A NAME="425_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#647_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#648_19">Str</A> : <b>in</b> String; + <A HREF="terminal_interface-curses__ads.htm#649_19">Len</A> : <b>in</b> Integer := -1) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="429_16">Waddnstr</A></FONT> (<FONT COLOR=red><A NAME="429_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="430_26">Str</A></FONT> : char_array; + <FONT COLOR=red><A NAME="431_26">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := -1) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#429_16">Waddnstr</A>, "waddnstr"); + + <FONT COLOR=red><A NAME="434_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#648_19">Str</A>'Length); + <FONT COLOR=red><A NAME="435_7">Length</A></FONT> : size_t; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses__ads.htm#648_19">Str</A>, <A HREF="terminal_interface-curses__adb.htm#434_7">Txt</A>, <A HREF="terminal_interface-curses__adb.htm#435_7">Length</A>); + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#429_16">Waddnstr</A> (<A HREF="terminal_interface-curses__ads.htm#647_19">Win</A>, <A HREF="terminal_interface-curses__adb.htm#434_7">Txt</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#649_19">Len</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Add; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#656_14">Add</A><FONT COLOR=red><A NAME="443_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#656_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#657_19">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#658_19">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#659_19">Str</A> : <b>in</b> String; + <A HREF="terminal_interface-curses__ads.htm#660_19">Len</A> : <b>in</b> Integer := -1) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#505_14">Move_Cursor</A> (<A HREF="terminal_interface-curses__ads.htm#656_19">Win</A>, <A HREF="terminal_interface-curses__ads.htm#657_19">Line</A>, <A HREF="terminal_interface-curses__ads.htm#658_19">Column</A>); + <A HREF="terminal_interface-curses__ads.htm#647_14">Add</A> (<A HREF="terminal_interface-curses__ads.htm#656_19">Win</A>, <A HREF="terminal_interface-curses__ads.htm#659_19">Str</A>, <A HREF="terminal_interface-curses__ads.htm#660_19">Len</A>); + <b>end</b> Add; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#671_14">Add</A><FONT COLOR=red><A NAME="455_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#671_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#672_19">Str</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#376_9">Attributed_String</A>; + <A HREF="terminal_interface-curses__ads.htm#673_19">Len</A> : <b>in</b> Integer := -1) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="460_16">Waddchnstr</A></FONT> (<FONT COLOR=red><A NAME="460_28">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="461_28">Str</A></FONT> : <A HREF="terminal_interface-curses__adb.htm#59_9">chtype_array</A>; + <FONT COLOR=red><A NAME="462_28">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := -1) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#460_16">Waddchnstr</A>, "waddchnstr"); + + <FONT COLOR=red><A NAME="465_7">Txt</A></FONT> : <A HREF="terminal_interface-curses__adb.htm#59_9">chtype_array</A> (0 .. <A HREF="terminal_interface-curses__ads.htm#672_19">Str</A>'Length); + <b>begin</b> + <b>for</b> <FONT COLOR=red><A NAME="467_11">Length</A></FONT> <b>in</b> 1 .. size_t (<A HREF="terminal_interface-curses__ads.htm#672_19">Str</A>'Length) <b>loop</b> + <A HREF="terminal_interface-curses__adb.htm#465_7">Txt</A> (<A HREF="terminal_interface-curses__adb.htm#467_11">Length</A> - 1) := <A HREF="terminal_interface-curses__ads.htm#672_19">Str</A> (Natural (<A HREF="terminal_interface-curses__adb.htm#467_11">Length</A>)); + <b>end</b> <b>loop</b>; + <A HREF="terminal_interface-curses__adb.htm#465_7">Txt</A> (<A HREF="terminal_interface-curses__ads.htm#672_19">Str</A>'Length) := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#460_16">Waddchnstr</A> (<A HREF="terminal_interface-curses__ads.htm#671_19">Win</A>, + <A HREF="terminal_interface-curses__adb.htm#465_7">Txt</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#673_19">Len</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Add; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#680_14">Add</A><FONT COLOR=red><A NAME="478_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#680_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#681_19">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#682_19">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#683_19">Str</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#376_9">Attributed_String</A>; + <A HREF="terminal_interface-curses__ads.htm#684_19">Len</A> : <b>in</b> Integer := -1) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#505_14">Move_Cursor</A> (<A HREF="terminal_interface-curses__ads.htm#680_19">Win</A>, <A HREF="terminal_interface-curses__ads.htm#681_19">Line</A>, <A HREF="terminal_interface-curses__ads.htm#682_19">Column</A>); + <A HREF="terminal_interface-curses__ads.htm#671_14">Add</A> (<A HREF="terminal_interface-curses__ads.htm#680_19">Win</A>, <A HREF="terminal_interface-curses__ads.htm#683_19">Str</A>, <A HREF="terminal_interface-curses__ads.htm#684_19">Len</A>); + <b>end</b> Add; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#698_14">Border</A><FONT COLOR=red><A NAME="490_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#699_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#700_7">Left_Side_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <A HREF="terminal_interface-curses__ads.htm#701_7">Right_Side_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <A HREF="terminal_interface-curses__ads.htm#702_7">Top_Side_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <A HREF="terminal_interface-curses__ads.htm#703_7">Bottom_Side_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <A HREF="terminal_interface-curses__ads.htm#704_7">Upper_Left_Corner_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <A HREF="terminal_interface-curses__ads.htm#705_7">Upper_Right_Corner_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <A HREF="terminal_interface-curses__ads.htm#706_7">Lower_Left_Corner_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <A HREF="terminal_interface-curses__ads.htm#707_7">Lower_Right_Corner_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="501_16">Wborder</A></FONT> (<FONT COLOR=red><A NAME="501_25">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="502_25">LS</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <FONT COLOR=red><A NAME="503_25">RS</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <FONT COLOR=red><A NAME="504_25">TS</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <FONT COLOR=red><A NAME="505_25">BS</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <FONT COLOR=red><A NAME="506_25">ULC</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <FONT COLOR=red><A NAME="507_25">URC</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <FONT COLOR=red><A NAME="508_25">LLC</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <FONT COLOR=red><A NAME="509_25">LRC</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#501_16">Wborder</A>, "wborder"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#501_16">Wborder</A> (<A HREF="terminal_interface-curses__ads.htm#699_7">Win</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#700_7">Left_Side_Symbol</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#701_7">Right_Side_Symbol</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#702_7">Top_Side_Symbol</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#703_7">Bottom_Side_Symbol</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#704_7">Upper_Left_Corner_Symbol</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#705_7">Upper_Right_Corner_Symbol</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#706_7">Lower_Left_Corner_Symbol</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#707_7">Lower_Right_Corner_Symbol</A>) + ) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> + <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Border; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#714_14">Box</A><FONT COLOR=red><A NAME="527_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#715_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#716_7">Vertical_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <A HREF="terminal_interface-curses__ads.htm#717_7">Horizontal_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#698_14">Border</A> (<A HREF="terminal_interface-curses__ads.htm#715_7">Win</A>, + <A HREF="terminal_interface-curses__ads.htm#716_7">Vertical_Symbol</A>, <A HREF="terminal_interface-curses__ads.htm#716_7">Vertical_Symbol</A>, + <A HREF="terminal_interface-curses__ads.htm#717_7">Horizontal_Symbol</A>, <A HREF="terminal_interface-curses__ads.htm#717_7">Horizontal_Symbol</A>); + <b>end</b> Box; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#722_14">Horizontal_Line</A><FONT COLOR=red><A NAME="538_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#723_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#724_7">Line_Size</A> : <b>in</b> Natural; + <A HREF="terminal_interface-curses__ads.htm#725_7">Line_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="543_16">Whline</A></FONT> (<FONT COLOR=red><A NAME="543_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="544_24">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <FONT COLOR=red><A NAME="545_24">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#543_16">Whline</A>, "whline"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#543_16">Whline</A> (<A HREF="terminal_interface-curses__ads.htm#723_7">Win</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#725_7">Line_Symbol</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#724_7">Line_Size</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Horizontal_Line; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#731_14">Vertical_Line</A><FONT COLOR=red><A NAME="555_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#732_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#733_7">Line_Size</A> : <b>in</b> Natural; + <A HREF="terminal_interface-curses__ads.htm#734_7">Line_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="560_16">Wvline</A></FONT> (<FONT COLOR=red><A NAME="560_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="561_24">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <FONT COLOR=red><A NAME="562_24">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#560_16">Wvline</A>, "wvline"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#560_16">Wvline</A> (<A HREF="terminal_interface-curses__ads.htm#732_7">Win</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#734_7">Line_Symbol</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#733_7">Line_Size</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Vertical_Line; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#745_13">Get_Keystroke</A><FONT COLOR=red><A NAME="573_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#745_28">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#72_12">Real_Key_Code</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="576_16">Wgetch</A></FONT> (<FONT COLOR=red><A NAME="576_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#576_16">Wgetch</A>, "wgetch"); + + <FONT COLOR=red><A NAME="579_7">C</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses__adb.htm#576_16">Wgetch</A> (<A HREF="terminal_interface-curses__ads.htm#745_28">Win</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#579_7">C</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#87_4">Key_None</A>; + <b>else</b> + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#72_12">Real_Key_Code</A> (<A HREF="terminal_interface-curses__adb.htm#579_7">C</A>); + <b>end</b> <b>if</b>; + <b>end</b> Get_Keystroke; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#756_14">Undo_Keystroke</A><FONT COLOR=red><A NAME="588_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#756_30">Key</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#72_12">Real_Key_Code</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="590_16">Ungetch</A></FONT> (<FONT COLOR=red><A NAME="590_25">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#590_16">Ungetch</A>, "ungetch"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#590_16">Ungetch</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#756_30">Key</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Undo_Keystroke; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#761_13">Has_Key</A><FONT COLOR=red><A NAME="598_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#761_22">Key</A> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A>) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="600_16">Haskey</A></FONT> (<FONT COLOR=red><A NAME="600_24">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#600_16">Haskey</A>, "has_key"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#600_16">Haskey</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#761_22">Key</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#76_4">Curses_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Has_Key; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#768_13">Is_Function_Key</A><FONT COLOR=red><A NAME="610_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#768_30">Key</A> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A>) <b>return</b> Boolean + <b>is</b> + <FONT COLOR=red><A NAME="612_7">L</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> (Natural (<A HREF="terminal_interface-curses__ads.htm#97_4">Key_F0</A>) + + Natural (<A HREF="terminal_interface-curses__ads.htm#772_12">Function_Key_Number</A>'Last)); + <b>begin</b> + <b>if</b> (<A HREF="terminal_interface-curses__ads.htm#768_30">Key</A> >= <A HREF="terminal_interface-curses__ads.htm#97_4">Key_F0</A>) <b>and</b> <b>then</b> (<A HREF="terminal_interface-curses__ads.htm#768_30">Key</A> <= <A HREF="terminal_interface-curses__adb.htm#612_7">L</A>) <b>then</b> + <b>return</b> True; + <b>else</b> + <b>return</b> False; + <b>end</b> <b>if</b>; + <b>end</b> Is_Function_Key; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#775_13">Function_Key</A><FONT COLOR=red><A NAME="622_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#775_27">Key</A> : <A HREF="terminal_interface-curses__ads.htm#72_12">Real_Key_Code</A>) + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#772_12">Function_Key_Number</A> + <b>is</b> + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__ads.htm#768_13">Is_Function_Key</A> (<A HREF="terminal_interface-curses__ads.htm#775_27">Key</A>) <b>then</b> + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#772_12">Function_Key_Number</A> (<A HREF="terminal_interface-curses__ads.htm#775_27">Key</A> - <A HREF="terminal_interface-curses__ads.htm#97_4">Key_F0</A>); + <b>else</b> + <b>raise</b> Constraint_Error; + <b>end</b> <b>if</b>; + <b>end</b> Function_Key; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#780_13">Function_Key_Code</A><FONT COLOR=red><A NAME="633_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#780_32">Key</A> : <A HREF="terminal_interface-curses__ads.htm#772_12">Function_Key_Number</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#72_12">Real_Key_Code</A> + <b>is</b> + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#72_12">Real_Key_Code</A> (Natural (<A HREF="terminal_interface-curses__ads.htm#97_4">Key_F0</A>) + Natural (<A HREF="terminal_interface-curses__ads.htm#780_32">Key</A>)); + <b>end</b> Function_Key_Code; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#794_14">Standout</A><FONT COLOR=red><A NAME="639_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#794_24">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#795_24">On</A> : Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="642_16">wstandout</A></FONT> (<FONT COLOR=red><A NAME="642_27">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#642_16">wstandout</A>, "wstandout"); + <b>function</b> <FONT COLOR=red><A NAME="644_16">wstandend</A></FONT> (<FONT COLOR=red><A NAME="644_27">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#644_16">wstandend</A>, "wstandend"); + + <FONT COLOR=red><A NAME="647_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__ads.htm#795_24">On</A> <b>then</b> + <A HREF="terminal_interface-curses__adb.htm#647_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#642_16">wstandout</A> (<A HREF="terminal_interface-curses__ads.htm#794_24">Win</A>); + <b>else</b> + <A HREF="terminal_interface-curses__adb.htm#647_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#644_16">wstandend</A> (<A HREF="terminal_interface-curses__ads.htm#794_24">Win</A>); + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#647_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Standout; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#800_14">Switch_Character_Attribute</A><FONT COLOR=red><A NAME="659_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#801_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#802_7">Attr</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>; + <A HREF="terminal_interface-curses__ads.htm#803_7">On</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="664_16">Wattron</A></FONT> (<FONT COLOR=red><A NAME="664_25">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="665_25">C_Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#65_12">C_AttrType</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#664_16">Wattron</A>, "wattr_on"); + <b>function</b> <FONT COLOR=red><A NAME="667_16">Wattroff</A></FONT> (<FONT COLOR=red><A NAME="667_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="668_26">C_Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#65_12">C_AttrType</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#667_16">Wattroff</A>, "wattr_off"); + <FONT COLOR=green><EM>-- In Ada we use the On Boolean to control whether or not we want to</EM></FONT> + <FONT COLOR=green><EM>-- switch on or off the attributes in the set.</EM></FONT> + <FONT COLOR=red><A NAME="672_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="673_7">AC</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := (Ch => Character'First, + Color => <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First, + Attr => <A HREF="terminal_interface-curses__ads.htm#802_7">Attr</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__ads.htm#803_7">On</A> <b>then</b> + <A HREF="terminal_interface-curses__adb.htm#672_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#664_16">Wattron</A> (<A HREF="terminal_interface-curses__ads.htm#801_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#109_13">AttrChar_To_AttrType</A> (<A HREF="terminal_interface-curses__adb.htm#673_7">AC</A>)); + <b>else</b> + <A HREF="terminal_interface-curses__adb.htm#672_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#667_16">Wattroff</A> (<A HREF="terminal_interface-curses__ads.htm#801_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#109_13">AttrChar_To_AttrType</A> (<A HREF="terminal_interface-curses__adb.htm#673_7">AC</A>)); + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#672_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Switch_Character_Attribute; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#811_14">Set_Character_Attributes</A><FONT COLOR=red><A NAME="687_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#812_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#813_7">Attr</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>; + <A HREF="terminal_interface-curses__ads.htm#814_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="692_16">Wattrset</A></FONT> (<FONT COLOR=red><A NAME="692_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="693_26">C_Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#65_12">C_AttrType</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#692_16">Wattrset</A>, "wattrset"); <FONT COLOR=green><EM>-- ??? wattr_set</EM></FONT> + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#692_16">Wattrset</A> (<A HREF="terminal_interface-curses__ads.htm#812_7">Win</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#109_13">AttrChar_To_AttrType</A> (<A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>' + (Ch => Character'First, + Color => <A HREF="terminal_interface-curses__ads.htm#814_7">Color</A>, + Attr => <A HREF="terminal_interface-curses__ads.htm#813_7">Attr</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Character_Attributes; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#820_13">Get_Character_Attribute</A><FONT COLOR=red><A NAME="705_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#821_7">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="708_16">Wattrget</A></FONT> (<FONT COLOR=red><A NAME="708_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="709_26">Atr</A></FONT> : <b>access</b> <A HREF="terminal_interface-curses-aux__ads.htm#65_12">C_AttrType</A>; + <FONT COLOR=red><A NAME="710_26">Col</A></FONT> : <b>access</b> <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + <FONT COLOR=red><A NAME="711_26">Opt</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#708_16">Wattrget</A>, "wattr_get"); + + <FONT COLOR=red><A NAME="714_7">Attr</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#65_12">C_AttrType</A>; + <FONT COLOR=red><A NAME="715_7">Col</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + <FONT COLOR=red><A NAME="716_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses__adb.htm#708_16">Wattrget</A> (<A HREF="terminal_interface-curses__ads.htm#821_7">Win</A>, <A HREF="terminal_interface-curses__adb.htm#714_7">Attr</A>'<b>Access</b>, <A HREF="terminal_interface-curses__adb.htm#715_7">Col</A>'<b>Access</b>, + System.Null_Address); + <FONT COLOR=red><A NAME="718_7">Ch</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#716_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses__adb.htm#718_7">Ch</A> := <A HREF="terminal_interface-curses-aux__ads.htm#113_13">AttrType_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#714_7">Attr</A>); + <b>return</b> <A HREF="terminal_interface-curses__adb.htm#718_7">Ch</A>.<A HREF="terminal_interface-curses__ads.htm#354_10">Attr</A>; + <b>else</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Get_Character_Attribute; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#826_13">Get_Character_Attribute</A><FONT COLOR=red><A NAME="728_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#827_7">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="731_16">Wattrget</A></FONT> (<FONT COLOR=red><A NAME="731_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="732_26">Atr</A></FONT> : <b>access</b> <A HREF="terminal_interface-curses-aux__ads.htm#65_12">C_AttrType</A>; + <FONT COLOR=red><A NAME="733_26">Col</A></FONT> : <b>access</b> <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + <FONT COLOR=red><A NAME="734_26">Opt</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#731_16">Wattrget</A>, "wattr_get"); + + <FONT COLOR=red><A NAME="737_7">Attr</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#65_12">C_AttrType</A>; + <FONT COLOR=red><A NAME="738_7">Col</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + <FONT COLOR=red><A NAME="739_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses__adb.htm#731_16">Wattrget</A> (<A HREF="terminal_interface-curses__ads.htm#827_7">Win</A>, <A HREF="terminal_interface-curses__adb.htm#737_7">Attr</A>'<b>Access</b>, <A HREF="terminal_interface-curses__adb.htm#738_7">Col</A>'<b>Access</b>, + System.Null_Address); + <FONT COLOR=red><A NAME="741_7">Ch</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#739_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Ok</A> <b>then</b> + <A HREF="terminal_interface-curses__adb.htm#741_7">Ch</A> := <A HREF="terminal_interface-curses-aux__ads.htm#113_13">AttrType_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#737_7">Attr</A>); + <b>return</b> <A HREF="terminal_interface-curses__adb.htm#741_7">Ch</A>.<A HREF="terminal_interface-curses__ads.htm#355_10">Color</A>; + <b>else</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Get_Character_Attribute; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#832_14">Set_Color</A><FONT COLOR=red><A NAME="751_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#832_25">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#833_25">Pair</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="754_16">Wset_Color</A></FONT> (<FONT COLOR=red><A NAME="754_28">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="755_28">Color</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + <FONT COLOR=red><A NAME="756_28">Opts</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Void_Ptr</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#754_16">Wset_Color</A>, "wcolor_set"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#754_16">Wset_Color</A> (<A HREF="terminal_interface-curses__ads.htm#832_25">Win</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#833_25">Pair</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Void_Ptr</A> (System.Null_Address)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Color; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#839_14">Change_Attributes</A><FONT COLOR=red><A NAME="766_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#840_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#841_7">Count</A> : <b>in</b> Integer := -1; + <A HREF="terminal_interface-curses__ads.htm#842_7">Attr</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>; + <A HREF="terminal_interface-curses__ads.htm#843_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="772_16">Wchgat</A></FONT> (<FONT COLOR=red><A NAME="772_24">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="773_24">Cnt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="774_24">Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#65_12">C_AttrType</A>; + <FONT COLOR=red><A NAME="775_24">Color</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + <FONT COLOR=red><A NAME="776_24">Opts</A></FONT> : System.Address := System.Null_Address) + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#772_16">Wchgat</A>, "wchgat"); + + <FONT COLOR=red><A NAME="780_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := + (Ch => Character'First, Color => <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First, Attr => <A HREF="terminal_interface-curses__ads.htm#842_7">Attr</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#772_16">Wchgat</A> (<A HREF="terminal_interface-curses__ads.htm#840_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#841_7">Count</A>), <A HREF="terminal_interface-curses-aux__ads.htm#109_13">AttrChar_To_AttrType</A> (<A HREF="terminal_interface-curses__adb.htm#780_7">Ch</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#843_7">Color</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Change_Attributes; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#848_14">Change_Attributes</A><FONT COLOR=red><A NAME="789_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#849_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#850_7">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>'First; + <A HREF="terminal_interface-curses__ads.htm#851_7">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A> := <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>'First; + <A HREF="terminal_interface-curses__ads.htm#852_7">Count</A> : <b>in</b> Integer := -1; + <A HREF="terminal_interface-curses__ads.htm#853_7">Attr</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>; + <A HREF="terminal_interface-curses__ads.htm#854_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#505_14">Move_Cursor</A> (<A HREF="terminal_interface-curses__ads.htm#849_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#850_7">Line</A>, <A HREF="terminal_interface-curses__ads.htm#851_7">Column</A>); + <A HREF="terminal_interface-curses__ads.htm#839_14">Change_Attributes</A> (<A HREF="terminal_interface-curses__ads.htm#849_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#852_7">Count</A>, <A HREF="terminal_interface-curses__ads.htm#853_7">Attr</A>, <A HREF="terminal_interface-curses__ads.htm#854_7">Color</A>); + <b>end</b> Change_Attributes; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#864_14">Beep</A><FONT COLOR=red><A NAME="802_14"></A></FONT> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="804_16">Beeper</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#804_16">Beeper</A>, "beep"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#804_16">Beeper</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Beep; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#869_14">Flash_Screen</A><FONT COLOR=red><A NAME="812_14"></A></FONT> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="814_16">Flash</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#814_16">Flash</A>, "flash"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#814_16">Flash</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Flash_Screen; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#880_14">Set_Cbreak_Mode</A><FONT COLOR=red><A NAME="822_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#880_31">SwitchOn</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="824_16">Cbreak</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#824_16">Cbreak</A>, "cbreak"); + <b>function</b> <FONT COLOR=red><A NAME="826_16">NoCbreak</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#826_16">NoCbreak</A>, "nocbreak"); + + <FONT COLOR=red><A NAME="829_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__ads.htm#880_31">SwitchOn</A> <b>then</b> + <A HREF="terminal_interface-curses__adb.htm#829_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#824_16">Cbreak</A>; + <b>else</b> + <A HREF="terminal_interface-curses__adb.htm#829_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#826_16">NoCbreak</A>; + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#829_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Cbreak_Mode; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#886_14">Set_Raw_Mode</A><FONT COLOR=red><A NAME="841_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#886_28">SwitchOn</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="843_16">Raw</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#843_16">Raw</A>, "raw"); + <b>function</b> <FONT COLOR=red><A NAME="845_16">NoRaw</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#845_16">NoRaw</A>, "noraw"); + + <FONT COLOR=red><A NAME="848_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__ads.htm#886_28">SwitchOn</A> <b>then</b> + <A HREF="terminal_interface-curses__adb.htm#848_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#843_16">Raw</A>; + <b>else</b> + <A HREF="terminal_interface-curses__adb.htm#848_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#845_16">NoRaw</A>; + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#848_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Raw_Mode; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#892_14">Set_Echo_Mode</A><FONT COLOR=red><A NAME="860_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#892_29">SwitchOn</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="862_16">Echo</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#862_16">Echo</A>, "echo"); + <b>function</b> <FONT COLOR=red><A NAME="864_16">NoEcho</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#864_16">NoEcho</A>, "noecho"); + + <FONT COLOR=red><A NAME="867_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__ads.htm#892_29">SwitchOn</A> <b>then</b> + <A HREF="terminal_interface-curses__adb.htm#867_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#862_16">Echo</A>; + <b>else</b> + <A HREF="terminal_interface-curses__adb.htm#867_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#864_16">NoEcho</A>; + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#867_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Echo_Mode; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#898_14">Set_Meta_Mode</A><FONT COLOR=red><A NAME="879_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#898_29">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#899_29">SwitchOn</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="882_16">Meta</A></FONT> (<FONT COLOR=red><A NAME="882_22">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="882_34">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#882_16">Meta</A>, "meta"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#882_16">Meta</A> (<A HREF="terminal_interface-curses__ads.htm#898_29">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#899_29">SwitchOn</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Meta_Mode; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#904_14">Set_KeyPad_Mode</A><FONT COLOR=red><A NAME="890_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#904_31">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#905_31">SwitchOn</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="893_16">Keypad</A></FONT> (<FONT COLOR=red><A NAME="893_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="893_36">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#893_16">Keypad</A>, "keypad"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#893_16">Keypad</A> (<A HREF="terminal_interface-curses__ads.htm#904_31">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#905_31">SwitchOn</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_KeyPad_Mode; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#909_13">Get_KeyPad_Mode</A><FONT COLOR=red><A NAME="901_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#909_30">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>return</b> Boolean + <b>is</b> + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses__adb.htm#93_13">Get_Flag</A> (<A HREF="terminal_interface-curses__ads.htm#909_30">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1927_4">Offset_use_keypad</A>); + <b>end</b> Get_KeyPad_Mode; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#917_14">Half_Delay</A><FONT COLOR=red><A NAME="908_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#917_26">Amount</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#914_9">Half_Delay_Amount</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="910_16">Halfdelay</A></FONT> (<FONT COLOR=red><A NAME="910_27">Amount</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#910_16">Halfdelay</A>, "halfdelay"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#910_16">Halfdelay</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#917_26">Amount</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Half_Delay; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#922_14">Set_Flush_On_Interrupt_Mode</A><FONT COLOR=red><A NAME="918_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#923_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#924_7">Mode</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="922_16">Intrflush</A></FONT> (<FONT COLOR=red><A NAME="922_27">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="922_41">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#922_16">Intrflush</A>, "intrflush"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#922_16">Intrflush</A> (<A HREF="terminal_interface-curses__ads.htm#923_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#924_7">Mode</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Flush_On_Interrupt_Mode; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#929_14">Set_Queue_Interrupt_Mode</A><FONT COLOR=red><A NAME="930_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#930_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#931_7">Flush</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>procedure</b> <FONT COLOR=red><A NAME="934_17">Qiflush</A></FONT>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#934_17">Qiflush</A>, "qiflush"); + <b>procedure</b> <FONT COLOR=red><A NAME="936_17">No_Qiflush</A></FONT>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#936_17">No_Qiflush</A>, "noqiflush"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__ads.htm#931_7">Flush</A> <b>then</b> + <A HREF="terminal_interface-curses__adb.htm#934_17">Qiflush</A>; + <b>else</b> + <A HREF="terminal_interface-curses__adb.htm#936_17">No_Qiflush</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Queue_Interrupt_Mode; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#937_14">Set_NoDelay_Mode</A><FONT COLOR=red><A NAME="946_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#938_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#939_7">Mode</A> : <b>in</b> Boolean := False) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="950_16">Nodelay</A></FONT> (<FONT COLOR=red><A NAME="950_25">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="950_39">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#950_16">Nodelay</A>, "nodelay"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#950_16">Nodelay</A> (<A HREF="terminal_interface-curses__ads.htm#938_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#939_7">Mode</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_NoDelay_Mode; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#946_14">Set_Timeout_Mode</A><FONT COLOR=red><A NAME="958_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#946_32">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#947_32">Mode</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#943_9">Timeout_Mode</A>; + <A HREF="terminal_interface-curses__ads.htm#948_32">Amount</A> : <b>in</b> Natural) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="962_16">Wtimeout</A></FONT> (<FONT COLOR=red><A NAME="962_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="962_40">Amount</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#962_16">Wtimeout</A>, "wtimeout"); + + <FONT COLOR=red><A NAME="965_7">Time</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>begin</b> + <b>case</b> <A HREF="terminal_interface-curses__ads.htm#947_32">Mode</A> <b>is</b> + <b>when</b> <A HREF="terminal_interface-curses__ads.htm#943_26">Blocking</A> => <A HREF="terminal_interface-curses__adb.htm#965_7">Time</A> := -1; + <b>when</b> <A HREF="terminal_interface-curses__ads.htm#943_36">Non_Blocking</A> => <A HREF="terminal_interface-curses__adb.htm#965_7">Time</A> := 0; + <b>when</b> <A HREF="terminal_interface-curses__ads.htm#943_50">Delayed</A> => + <b>if</b> <A HREF="terminal_interface-curses__ads.htm#948_32">Amount</A> = 0 <b>then</b> + <b>raise</b> Constraint_Error; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses__adb.htm#965_7">Time</A> := <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#948_32">Amount</A>); + <b>end</b> <b>case</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#962_16">Wtimeout</A> (<A HREF="terminal_interface-curses__ads.htm#946_32">Win</A>, <A HREF="terminal_interface-curses__adb.htm#965_7">Time</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Timeout_Mode; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#958_14">Set_Escape_Timer_Mode</A><FONT COLOR=red><A NAME="981_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#959_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#960_7">Timer_Off</A> : <b>in</b> Boolean := False) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="985_16">Notimeout</A></FONT> (<FONT COLOR=red><A NAME="985_27">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="985_41">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#985_16">Notimeout</A>, "notimeout"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#985_16">Notimeout</A> (<A HREF="terminal_interface-curses__ads.htm#959_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#960_7">Timer_Off</A>))) + = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Escape_Timer_Mode; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#969_14">Set_NL_Mode</A><FONT COLOR=red><A NAME="995_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#969_27">SwitchOn</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="997_16">NL</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#997_16">NL</A>, "nl"); + <b>function</b> <FONT COLOR=red><A NAME="999_16">NoNL</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#999_16">NoNL</A>, "nonl"); + + <FONT COLOR=red><A NAME="1002_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__ads.htm#969_27">SwitchOn</A> <b>then</b> + <A HREF="terminal_interface-curses__adb.htm#1002_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#997_16">NL</A>; + <b>else</b> + <A HREF="terminal_interface-curses__adb.htm#1002_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#999_16">NoNL</A>; + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1002_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_NL_Mode; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#975_14">Clear_On_Next_Update</A><FONT COLOR=red><A NAME="1014_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#976_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#977_7">Do_Clear</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1018_16">Clear_Ok</A></FONT> (<FONT COLOR=red><A NAME="1018_26">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1018_38">Flag</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1018_16">Clear_Ok</A>, "clearok"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1018_16">Clear_Ok</A> (<A HREF="terminal_interface-curses__ads.htm#976_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#977_7">Do_Clear</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Clear_On_Next_Update; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#982_14">Use_Insert_Delete_Line</A><FONT COLOR=red><A NAME="1026_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#983_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#984_7">Do_Idl</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1030_16">IDL_Ok</A></FONT> (<FONT COLOR=red><A NAME="1030_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1030_36">Flag</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1030_16">IDL_Ok</A>, "idlok"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1030_16">IDL_Ok</A> (<A HREF="terminal_interface-curses__ads.htm#983_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#984_7">Do_Idl</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Use_Insert_Delete_Line; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#989_14">Use_Insert_Delete_Character</A><FONT COLOR=red><A NAME="1038_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#990_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#991_7">Do_Idc</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1042_16">IDC_Ok</A></FONT> (<FONT COLOR=red><A NAME="1042_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1042_36">Flag</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1042_16">IDC_Ok</A>, "idcok"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1042_16">IDC_Ok</A> (<A HREF="terminal_interface-curses__ads.htm#990_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#991_7">Do_Idc</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Use_Insert_Delete_Character; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#996_14">Leave_Cursor_After_Update</A><FONT COLOR=red><A NAME="1050_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#997_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#998_7">Do_Leave</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1054_16">Leave_Ok</A></FONT> (<FONT COLOR=red><A NAME="1054_26">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1054_38">Flag</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1054_16">Leave_Ok</A>, "leaveok"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1054_16">Leave_Ok</A> (<A HREF="terminal_interface-curses__ads.htm#997_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#998_7">Do_Leave</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Leave_Cursor_After_Update; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1003_14">Immediate_Update_Mode</A><FONT COLOR=red><A NAME="1062_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1004_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1005_7">Mode</A> : <b>in</b> Boolean := False) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1066_16">Immedok</A></FONT> (<FONT COLOR=red><A NAME="1066_25">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1066_39">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1066_16">Immedok</A>, "immedok"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1066_16">Immedok</A> (<A HREF="terminal_interface-curses__ads.htm#1004_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#1005_7">Mode</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Immediate_Update_Mode; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1010_14">Allow_Scrolling</A><FONT COLOR=red><A NAME="1074_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1011_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1012_7">Mode</A> : <b>in</b> Boolean := False) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1078_16">Scrollok</A></FONT> (<FONT COLOR=red><A NAME="1078_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1078_40">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1078_16">Scrollok</A>, "scrollok"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1078_16">Scrollok</A> (<A HREF="terminal_interface-curses__ads.htm#1011_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#1012_7">Mode</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Allow_Scrolling; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1016_13">Scrolling_Allowed</A><FONT COLOR=red><A NAME="1086_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1016_32">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>return</b> Boolean + <b>is</b> + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses__adb.htm#93_13">Get_Flag</A> (<A HREF="terminal_interface-curses__ads.htm#1016_32">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1922_4">Offset_scroll</A>); + <b>end</b> Scrolling_Allowed; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1021_14">Set_Scroll_Region</A><FONT COLOR=red><A NAME="1093_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1022_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1023_7">Top_Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1024_7">Bottom_Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1098_16">Wsetscrreg</A></FONT> (<FONT COLOR=red><A NAME="1098_28">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1099_28">Lin</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1100_28">Col</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1098_16">Wsetscrreg</A>, "wsetscrreg"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1098_16">Wsetscrreg</A> (<A HREF="terminal_interface-curses__ads.htm#1022_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1023_7">Top_Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1024_7">Bottom_Line</A>)) + = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Scroll_Region; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1034_14">Update_Screen</A><FONT COLOR=red><A NAME="1109_14"></A></FONT> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1111_16">Do_Update</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1111_16">Do_Update</A>, "doupdate"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1111_16">Do_Update</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Update_Screen; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1039_14">Refresh</A><FONT COLOR=red><A NAME="1119_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1039_23">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1121_16">Wrefresh</A></FONT> (<FONT COLOR=red><A NAME="1121_26">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1121_16">Wrefresh</A>, "wrefresh"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1121_16">Wrefresh</A> (<A HREF="terminal_interface-curses__ads.htm#1039_23">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Refresh; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1046_14">Refresh_Without_Update</A><FONT COLOR=red><A NAME="1129_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1047_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1132_16">Wnoutrefresh</A></FONT> (<FONT COLOR=red><A NAME="1132_30">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1132_16">Wnoutrefresh</A>, "wnoutrefresh"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1132_16">Wnoutrefresh</A> (<A HREF="terminal_interface-curses__ads.htm#1047_7">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Refresh_Without_Update; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1053_14">Redraw</A><FONT COLOR=red><A NAME="1140_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1053_22">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1142_16">Redrawwin</A></FONT> (<FONT COLOR=red><A NAME="1142_27">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1142_16">Redrawwin</A>, "redrawwin"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1142_16">Redrawwin</A> (<A HREF="terminal_interface-curses__ads.htm#1053_22">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Redraw; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1057_14">Redraw</A><FONT COLOR=red><A NAME="1150_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1057_22">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1058_22">Begin_Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1059_22">Line_Count</A> : <b>in</b> Positive) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1155_16">Wredrawln</A></FONT> (<FONT COLOR=red><A NAME="1155_27">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1155_41">First</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; <FONT COLOR=red><A NAME="1155_56">Cnt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1155_16">Wredrawln</A>, "wredrawln"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1155_16">Wredrawln</A> (<A HREF="terminal_interface-curses__ads.htm#1057_22">Win</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1058_22">Begin_Line</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1059_22">Line_Count</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Redraw; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1068_14">Erase</A><FONT COLOR=red><A NAME="1167_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1068_21">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1169_16">Werase</A></FONT> (<FONT COLOR=red><A NAME="1169_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1169_16">Werase</A>, "werase"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1169_16">Werase</A> (<A HREF="terminal_interface-curses__ads.htm#1068_21">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Erase; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1074_14">Clear</A><FONT COLOR=red><A NAME="1177_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1075_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1179_16">Wclear</A></FONT> (<FONT COLOR=red><A NAME="1179_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1179_16">Wclear</A>, "wclear"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1179_16">Wclear</A> (<A HREF="terminal_interface-curses__ads.htm#1075_7">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Clear; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1081_14">Clear_To_End_Of_Screen</A><FONT COLOR=red><A NAME="1187_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1082_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1189_16">Wclearbot</A></FONT> (<FONT COLOR=red><A NAME="1189_27">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1189_16">Wclearbot</A>, "wclrtobot"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1189_16">Wclearbot</A> (<A HREF="terminal_interface-curses__ads.htm#1082_7">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Clear_To_End_Of_Screen; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1088_14">Clear_To_End_Of_Line</A><FONT COLOR=red><A NAME="1197_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1089_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1199_16">Wcleareol</A></FONT> (<FONT COLOR=red><A NAME="1199_27">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1199_16">Wcleareol</A>, "wclrtoeol"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1199_16">Wcleareol</A> (<A HREF="terminal_interface-curses__ads.htm#1089_7">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Clear_To_End_Of_Line; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1102_14">Set_Background</A><FONT COLOR=red><A NAME="1207_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1103_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1104_7">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>) + <b>is</b> + <b>procedure</b> <FONT COLOR=red><A NAME="1211_17">WBackground</A></FONT> (<FONT COLOR=red><A NAME="1211_30">W</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1211_45">Ch</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>); + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1211_17">WBackground</A>, "wbkgdset"); + <b>begin</b> + <A HREF="terminal_interface-curses__adb.htm#1211_17">WBackground</A> (<A HREF="terminal_interface-curses__ads.htm#1103_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#1104_7">Ch</A>)); + <b>end</b> Set_Background; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1110_14">Change_Background</A><FONT COLOR=red><A NAME="1217_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1111_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1112_7">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1221_16">WChangeBkgd</A></FONT> (<FONT COLOR=red><A NAME="1221_29">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1221_41">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1221_16">WChangeBkgd</A>, "wbkgd"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1221_16">WChangeBkgd</A> (<A HREF="terminal_interface-curses__ads.htm#1111_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#1112_7">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Change_Background; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1119_13">Get_Background</A><FONT COLOR=red><A NAME="1229_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1119_29">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1232_16">Wgetbkgd</A></FONT> (<FONT COLOR=red><A NAME="1232_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1232_16">Wgetbkgd</A>, "getbkgd"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#1232_16">Wgetbkgd</A> (<A HREF="terminal_interface-curses__ads.htm#1119_29">Win</A>)); + <b>end</b> Get_Background; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1146_14">Change_Lines_Status</A><FONT COLOR=red><A NAME="1238_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1146_35">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1147_35">Start</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1148_35">Count</A> : <b>in</b> Positive; + <A HREF="terminal_interface-curses__ads.htm#1149_35">State</A> : <b>in</b> Boolean) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1243_16">Wtouchln</A></FONT> (<FONT COLOR=red><A NAME="1243_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1244_26">Sta</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1245_26">Cnt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1246_26">Chg</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1243_16">Wtouchln</A>, "wtouchln"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1243_16">Wtouchln</A> (<A HREF="terminal_interface-curses__ads.htm#1146_35">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1147_35">Start</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1148_35">Count</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#1149_35">State</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Change_Lines_Status; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1135_14">Touch</A><FONT COLOR=red><A NAME="1255_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1135_21">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>is</b> + <FONT COLOR=red><A NAME="1257_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1258_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#1222_14">Get_Size</A> (<A HREF="terminal_interface-curses__ads.htm#1135_21">Win</A>, <A HREF="terminal_interface-curses__adb.htm#1257_7">Y</A>, <A HREF="terminal_interface-curses__adb.htm#1258_7">X</A>); + <A HREF="terminal_interface-curses__ads.htm#1146_14">Change_Lines_Status</A> (<A HREF="terminal_interface-curses__ads.htm#1135_21">Win</A>, 0, Positive (<A HREF="terminal_interface-curses__adb.htm#1257_7">Y</A>), True); + <b>end</b> Touch; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1130_14">Untouch</A><FONT COLOR=red><A NAME="1264_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1130_23">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>is</b> + <FONT COLOR=red><A NAME="1266_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1267_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#1222_14">Get_Size</A> (<A HREF="terminal_interface-curses__ads.htm#1130_23">Win</A>, <A HREF="terminal_interface-curses__adb.htm#1266_7">Y</A>, <A HREF="terminal_interface-curses__adb.htm#1267_7">X</A>); + <A HREF="terminal_interface-curses__ads.htm#1146_14">Change_Lines_Status</A> (<A HREF="terminal_interface-curses__ads.htm#1130_23">Win</A>, 0, Positive (<A HREF="terminal_interface-curses__adb.htm#1266_7">Y</A>), False); + <b>end</b> Untouch; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1139_14">Touch</A><FONT COLOR=red><A NAME="1273_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1139_21">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1140_21">Start</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1141_21">Count</A> : <b>in</b> Positive) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#1146_14">Change_Lines_Status</A> (<A HREF="terminal_interface-curses__ads.htm#1139_21">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1140_21">Start</A>, <A HREF="terminal_interface-curses__ads.htm#1141_21">Count</A>, True); + <b>end</b> Touch; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1154_13">Is_Touched</A><FONT COLOR=red><A NAME="1281_13"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1154_25">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1155_25">Line</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1285_16">WLineTouched</A></FONT> (<FONT COLOR=red><A NAME="1285_30">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1285_42">L</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1285_16">WLineTouched</A>, "is_linetouched"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1285_16">WLineTouched</A> (<A HREF="terminal_interface-curses__ads.htm#1154_25">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1155_25">Line</A>)) = <A HREF="terminal_interface-curses__ads.htm#1932_4">Curses_Bool_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Is_Touched; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1159_13">Is_Touched</A><FONT COLOR=red><A NAME="1295_13"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1159_25">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1298_16">WWinTouched</A></FONT> (<FONT COLOR=red><A NAME="1298_29">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1298_16">WWinTouched</A>, "is_wintouched"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1298_16">WWinTouched</A> (<A HREF="terminal_interface-curses__ads.htm#1159_25">Win</A>) = <A HREF="terminal_interface-curses__ads.htm#1932_4">Curses_Bool_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Is_Touched; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1168_14">Copy</A><FONT COLOR=red><A NAME="1308_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1169_7">Source_Window</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1170_7">Destination_Window</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1171_7">Source_Top_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1172_7">Source_Left_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1173_7">Destination_Top_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1174_7">Destination_Left_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1175_7">Destination_Bottom_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1176_7">Destination_Right_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1177_7">Non_Destructive_Mode</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1319_16">Copywin</A></FONT> (<FONT COLOR=red><A NAME="1319_25">Src</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1320_25">Dst</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1321_25">Str</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1322_25">Slc</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1323_25">Dtr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1324_25">Dlc</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1325_25">Dbr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1326_25">Drc</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1327_25">Ndm</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1319_16">Copywin</A>, "copywin"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1319_16">Copywin</A> (<A HREF="terminal_interface-curses__ads.htm#1169_7">Source_Window</A>, + <A HREF="terminal_interface-curses__ads.htm#1170_7">Destination_Window</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1171_7">Source_Top_Row</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1172_7">Source_Left_Column</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1173_7">Destination_Top_Row</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1174_7">Destination_Left_Column</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1175_7">Destination_Bottom_Row</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1176_7">Destination_Right_Column</A>), + Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#1177_7">Non_Destructive_Mode</A>) + ) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Copy; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1182_14">Overwrite</A><FONT COLOR=red><A NAME="1344_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1182_25">Source_Window</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1183_25">Destination_Window</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1348_16">Overwrite</A></FONT> (<FONT COLOR=red><A NAME="1348_27">Src</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1348_41">Dst</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1348_16">Overwrite</A>, "overwrite"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1348_16">Overwrite</A> (<A HREF="terminal_interface-curses__ads.htm#1182_25">Source_Window</A>, <A HREF="terminal_interface-curses__ads.htm#1183_25">Destination_Window</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Overwrite; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1188_14">Overlay</A><FONT COLOR=red><A NAME="1356_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1188_23">Source_Window</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1189_23">Destination_Window</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1360_16">Overlay</A></FONT> (<FONT COLOR=red><A NAME="1360_25">Src</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1360_39">Dst</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1360_16">Overlay</A>, "overlay"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1360_16">Overlay</A> (<A HREF="terminal_interface-curses__ads.htm#1188_23">Source_Window</A>, <A HREF="terminal_interface-curses__ads.htm#1189_23">Destination_Window</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Overlay; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1198_14">Insert_Delete_Lines</A><FONT COLOR=red><A NAME="1369_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1199_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1200_7">Lines</A> : <b>in</b> Integer := 1) <FONT COLOR=green><EM>-- default is to insert one line above</EM></FONT> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1373_16">Winsdelln</A></FONT> (<FONT COLOR=red><A NAME="1373_27">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1373_39">N</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1373_16">Winsdelln</A>, "winsdelln"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1373_16">Winsdelln</A> (<A HREF="terminal_interface-curses__ads.htm#1199_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1200_7">Lines</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Insert_Delete_Lines; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1206_14">Delete_Line</A><FONT COLOR=red><A NAME="1381_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1206_27">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#1198_14">Insert_Delete_Lines</A> (<A HREF="terminal_interface-curses__ads.htm#1206_27">Win</A>, -1); + <b>end</b> Delete_Line; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1212_14">Insert_Line</A><FONT COLOR=red><A NAME="1387_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1212_27">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#1198_14">Insert_Delete_Lines</A> (<A HREF="terminal_interface-curses__ads.htm#1212_27">Win</A>, 1); + <b>end</b> Insert_Line; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1222_14">Get_Size</A><FONT COLOR=red><A NAME="1395_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1223_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1224_7">Number_Of_Lines</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <A HREF="terminal_interface-curses__ads.htm#1225_7">Number_Of_Columns</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>) + <b>is</b> + <FONT COLOR=green><EM>-- Please note: in ncurses they are one off.</EM></FONT> + <FONT COLOR=green><EM>-- This might be different in other implementations of curses</EM></FONT> + <FONT COLOR=red><A NAME="1402_7">Y</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#90_13">W_Get_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1223_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1910_4">Offset_maxy</A>)) + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1929_4">Offset_XY</A>); + <FONT COLOR=red><A NAME="1403_7">X</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#90_13">W_Get_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1223_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1911_4">Offset_maxx</A>)) + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1929_4">Offset_XY</A>); + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#1224_7">Number_Of_Lines</A> := <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A> (<A HREF="terminal_interface-curses__adb.htm#1402_7">Y</A>); + <A HREF="terminal_interface-curses__ads.htm#1225_7">Number_Of_Columns</A> := <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A> (<A HREF="terminal_interface-curses__adb.htm#1403_7">X</A>); + <b>end</b> Get_Size; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1230_14">Get_Window_Position</A><FONT COLOR=red><A NAME="1409_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1231_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1232_7">Top_Left_Line</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1233_7">Top_Left_Column</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) + <b>is</b> + <FONT COLOR=red><A NAME="1414_7">Y</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> := <A HREF="terminal_interface-curses__adb.htm#90_13">W_Get_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1231_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1912_4">Offset_begy</A>); + <FONT COLOR=red><A NAME="1415_7">X</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> := <A HREF="terminal_interface-curses__adb.htm#90_13">W_Get_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1231_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1913_4">Offset_begx</A>); + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#1232_7">Top_Left_Line</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> (<A HREF="terminal_interface-curses__adb.htm#1414_7">Y</A>); + <A HREF="terminal_interface-curses__ads.htm#1233_7">Top_Left_Column</A> := <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A> (<A HREF="terminal_interface-curses__adb.htm#1415_7">X</A>); + <b>end</b> Get_Window_Position; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1238_14">Get_Cursor_Position</A><FONT COLOR=red><A NAME="1421_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1239_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1240_7">Line</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1241_7">Column</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) + <b>is</b> + <FONT COLOR=red><A NAME="1426_7">Y</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> := <A HREF="terminal_interface-curses__adb.htm#90_13">W_Get_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1239_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1914_4">Offset_cury</A>); + <FONT COLOR=red><A NAME="1427_7">X</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> := <A HREF="terminal_interface-curses__adb.htm#90_13">W_Get_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1239_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1915_4">Offset_curx</A>); + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#1240_7">Line</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> (<A HREF="terminal_interface-curses__adb.htm#1426_7">Y</A>); + <A HREF="terminal_interface-curses__ads.htm#1241_7">Column</A> := <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A> (<A HREF="terminal_interface-curses__adb.htm#1427_7">X</A>); + <b>end</b> Get_Cursor_Position; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1246_14">Get_Origin_Relative_To_Parent</A><FONT COLOR=red><A NAME="1433_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1247_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1248_7">Top_Left_Line</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1249_7">Top_Left_Column</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1250_7">Is_Not_A_Subwindow</A> : <b>out</b> Boolean) + <b>is</b> + <FONT COLOR=red><A NAME="1439_7">Y</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses__adb.htm#89_13">W_Get_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1247_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1917_4">Offset_pary</A>); + <FONT COLOR=red><A NAME="1440_7">X</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses__adb.htm#89_13">W_Get_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1247_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1918_4">Offset_parx</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1439_7">Y</A> = -1 <b>then</b> + <A HREF="terminal_interface-curses__ads.htm#1248_7">Top_Left_Line</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>'Last; + <A HREF="terminal_interface-curses__ads.htm#1249_7">Top_Left_Column</A> := <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>'Last; + <A HREF="terminal_interface-curses__ads.htm#1250_7">Is_Not_A_Subwindow</A> := True; + <b>else</b> + <A HREF="terminal_interface-curses__ads.htm#1248_7">Top_Left_Line</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> (<A HREF="terminal_interface-curses__adb.htm#1439_7">Y</A>); + <A HREF="terminal_interface-curses__ads.htm#1249_7">Top_Left_Column</A> := <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A> (<A HREF="terminal_interface-curses__adb.htm#1440_7">X</A>); + <A HREF="terminal_interface-curses__ads.htm#1250_7">Is_Not_A_Subwindow</A> := False; + <b>end</b> <b>if</b>; + <b>end</b> Get_Origin_Relative_To_Parent; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1261_13">New_Pad</A><FONT COLOR=red><A NAME="1453_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1261_22">Lines</A> : <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <A HREF="terminal_interface-curses__ads.htm#1262_22">Columns</A> : <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1456_16">Newpad</A></FONT> (<FONT COLOR=red><A NAME="1456_24">Lines</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; <FONT COLOR=red><A NAME="1456_39">Columns</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1456_16">Newpad</A>, "newpad"); + + <FONT COLOR=red><A NAME="1459_7">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>begin</b> + <A HREF="terminal_interface-curses__adb.htm#1459_7">W</A> := <A HREF="terminal_interface-curses__adb.htm#1456_16">Newpad</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1261_22">Lines</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1262_22">Columns</A>)); + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1459_7">W</A> = <A HREF="terminal_interface-curses__ads.htm#58_4">Null_Window</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses__adb.htm#1459_7">W</A>; + <b>end</b> New_Pad; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1267_13">Sub_Pad</A><FONT COLOR=red><A NAME="1468_13"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1268_7">Pad</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1269_7">Number_Of_Lines</A> : <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <A HREF="terminal_interface-curses__ads.htm#1270_7">Number_Of_Columns</A> : <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>; + <A HREF="terminal_interface-curses__ads.htm#1271_7">First_Line_Position</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1272_7">First_Column_Position</A> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1475_16">Subpad</A></FONT> + (<FONT COLOR=red><A NAME="1476_10">Pad</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1477_10">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1478_10">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1479_10">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1480_10">First_Column_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1475_16">Subpad</A>, "subpad"); + + <FONT COLOR=red><A NAME="1483_7">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>begin</b> + <A HREF="terminal_interface-curses__adb.htm#1483_7">W</A> := <A HREF="terminal_interface-curses__adb.htm#1475_16">Subpad</A> (<A HREF="terminal_interface-curses__ads.htm#1268_7">Pad</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1269_7">Number_Of_Lines</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1270_7">Number_Of_Columns</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1271_7">First_Line_Position</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1272_7">First_Column_Position</A>)); + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1483_7">W</A> = <A HREF="terminal_interface-curses__ads.htm#58_4">Null_Window</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>return</b> <A HREF="terminal_interface-curses__adb.htm#1483_7">W</A>; + <b>end</b> Sub_Pad; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1277_14">Refresh</A><FONT COLOR=red><A NAME="1496_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1278_7">Pad</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1279_7">Source_Top_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1280_7">Source_Left_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1281_7">Destination_Top_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1282_7">Destination_Left_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1283_7">Destination_Bottom_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1284_7">Destination_Right_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1505_16">Prefresh</A></FONT> + (<FONT COLOR=red><A NAME="1506_10">Pad</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1507_10">Source_Top_Row</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1508_10">Source_Left_Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1509_10">Destination_Top_Row</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1510_10">Destination_Left_Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1511_10">Destination_Bottom_Row</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1512_10">Destination_Right_Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1505_16">Prefresh</A>, "prefresh"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1505_16">Prefresh</A> (<A HREF="terminal_interface-curses__ads.htm#1278_7">Pad</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1279_7">Source_Top_Row</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1280_7">Source_Left_Column</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1281_7">Destination_Top_Row</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1282_7">Destination_Left_Column</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1283_7">Destination_Bottom_Row</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1284_7">Destination_Right_Column</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Refresh; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1289_14">Refresh_Without_Update</A><FONT COLOR=red><A NAME="1526_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1290_7">Pad</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1291_7">Source_Top_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1292_7">Source_Left_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1293_7">Destination_Top_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1294_7">Destination_Left_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1295_7">Destination_Bottom_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1296_7">Destination_Right_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1535_16">Pnoutrefresh</A></FONT> + (<FONT COLOR=red><A NAME="1536_10">Pad</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1537_10">Source_Top_Row</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1538_10">Source_Left_Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1539_10">Destination_Top_Row</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1540_10">Destination_Left_Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1541_10">Destination_Bottom_Row</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1542_10">Destination_Right_Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1535_16">Pnoutrefresh</A>, "pnoutrefresh"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1535_16">Pnoutrefresh</A> (<A HREF="terminal_interface-curses__ads.htm#1290_7">Pad</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1291_7">Source_Top_Row</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1292_7">Source_Left_Column</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1293_7">Destination_Top_Row</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1294_7">Destination_Left_Column</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1295_7">Destination_Bottom_Row</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1296_7">Destination_Right_Column</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Refresh_Without_Update; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1301_14">Add_Character_To_Pad_And_Echo_It</A><FONT COLOR=red><A NAME="1556_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1302_7">Pad</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1303_7">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1560_16">Pechochar</A></FONT> (<FONT COLOR=red><A NAME="1560_27">Pad</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1560_41">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1560_16">Pechochar</A>, "pechochar"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1560_16">Pechochar</A> (<A HREF="terminal_interface-curses__ads.htm#1302_7">Pad</A>, <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#1303_7">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Add_Character_To_Pad_And_Echo_It; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1306_14">Add_Character_To_Pad_And_Echo_It</A><FONT COLOR=red><A NAME="1569_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1307_7">Pad</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1308_7">Ch</A> : <b>in</b> Character) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#1301_14">Add_Character_To_Pad_And_Echo_It</A> + (<A HREF="terminal_interface-curses__ads.htm#1307_7">Pad</A>, + <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>'(Ch => <A HREF="terminal_interface-curses__ads.htm#1308_7">Ch</A>, + Color => <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First, + Attr => <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>)); + <b>end</b> Add_Character_To_Pad_And_Echo_It; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1316_14">Scroll</A><FONT COLOR=red><A NAME="1581_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1316_22">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1317_22">Amount</A> : <b>in</b> Integer := 1) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1584_16">Wscrl</A></FONT> (<FONT COLOR=red><A NAME="1584_23">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1584_37">N</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1584_16">Wscrl</A>, "wscrl"); + + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1584_16">Wscrl</A> (<A HREF="terminal_interface-curses__ads.htm#1316_22">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1317_22">Amount</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Scroll; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1328_14">Delete_Character</A><FONT COLOR=red><A NAME="1594_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1328_32">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1596_16">Wdelch</A></FONT> (<FONT COLOR=red><A NAME="1596_24">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1596_16">Wdelch</A>, "wdelch"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1596_16">Wdelch</A> (<A HREF="terminal_interface-curses__ads.htm#1328_32">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Delete_Character; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1333_14">Delete_Character</A><FONT COLOR=red><A NAME="1604_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1334_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1335_7">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1336_7">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1609_16">Mvwdelch</A></FONT> (<FONT COLOR=red><A NAME="1609_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1610_26">Lin</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1611_26">Col</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1609_16">Mvwdelch</A>, "mvwdelch"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1609_16">Mvwdelch</A> (<A HREF="terminal_interface-curses__ads.htm#1334_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1335_7">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1336_7">Column</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Delete_Character; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1346_13">Peek</A><FONT COLOR=red><A NAME="1619_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1346_19">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>) + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1622_16">Winch</A></FONT> (<FONT COLOR=red><A NAME="1622_23">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1622_16">Winch</A>, "winch"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#1622_16">Winch</A> (<A HREF="terminal_interface-curses__ads.htm#1346_19">Win</A>)); + <b>end</b> Peek; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1352_13">Peek</A><FONT COLOR=red><A NAME="1628_13"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1353_7">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1354_7">Line</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1355_7">Column</A> : <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1633_16">Mvwinch</A></FONT> (<FONT COLOR=red><A NAME="1633_25">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1634_25">Lin</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1635_25">Col</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1633_16">Mvwinch</A>, "mvwinch"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#1633_16">Mvwinch</A> (<A HREF="terminal_interface-curses__ads.htm#1353_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1354_7">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1355_7">Column</A>))); + <b>end</b> Peek; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1365_14">Insert</A><FONT COLOR=red><A NAME="1641_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1365_22">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1366_22">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1644_16">Winsch</A></FONT> (<FONT COLOR=red><A NAME="1644_24">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; <FONT COLOR=red><A NAME="1644_38">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1644_16">Winsch</A>, "winsch"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1644_16">Winsch</A> (<A HREF="terminal_interface-curses__ads.htm#1365_22">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#1366_22">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Insert; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1371_14">Insert</A><FONT COLOR=red><A NAME="1652_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1371_22">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1372_22">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1373_22">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1374_22">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1658_16">Mvwinsch</A></FONT> (<FONT COLOR=red><A NAME="1658_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1659_26">Lin</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1660_26">Col</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1661_26">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1658_16">Mvwinsch</A>, "mvwinsch"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1658_16">Mvwinsch</A> (<A HREF="terminal_interface-curses__ads.htm#1371_22">Win</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1372_22">Line</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1373_22">Column</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#1374_22">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Insert; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1383_14">Insert</A><FONT COLOR=red><A NAME="1672_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1383_22">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1384_22">Str</A> : <b>in</b> String; + <A HREF="terminal_interface-curses__ads.htm#1385_22">Len</A> : <b>in</b> Integer := -1) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1676_16">Winsnstr</A></FONT> (<FONT COLOR=red><A NAME="1676_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1677_26">Str</A></FONT> : char_array; + <FONT COLOR=red><A NAME="1678_26">Len</A></FONT> : Integer := -1) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1676_16">Winsnstr</A>, "winsnstr"); + + <FONT COLOR=red><A NAME="1681_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1384_22">Str</A>'Length); + <FONT COLOR=red><A NAME="1682_7">Length</A></FONT> : size_t; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses__ads.htm#1384_22">Str</A>, <A HREF="terminal_interface-curses__adb.htm#1681_7">Txt</A>, <A HREF="terminal_interface-curses__adb.htm#1682_7">Length</A>); + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1676_16">Winsnstr</A> (<A HREF="terminal_interface-curses__ads.htm#1383_22">Win</A>, <A HREF="terminal_interface-curses__adb.htm#1681_7">Txt</A>, <A HREF="terminal_interface-curses__ads.htm#1385_22">Len</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Insert; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1392_14">Insert</A><FONT COLOR=red><A NAME="1690_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1392_22">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1393_22">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1394_22">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1395_22">Str</A> : <b>in</b> String; + <A HREF="terminal_interface-curses__ads.htm#1396_22">Len</A> : <b>in</b> Integer := -1) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1697_16">Mvwinsnstr</A></FONT> (<FONT COLOR=red><A NAME="1697_28">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1698_28">Line</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1699_28">Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1700_28">Str</A></FONT> : char_array; + <FONT COLOR=red><A NAME="1701_28">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1697_16">Mvwinsnstr</A>, "mvwinsnstr"); + + <FONT COLOR=red><A NAME="1704_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1395_22">Str</A>'Length); + <FONT COLOR=red><A NAME="1705_7">Length</A></FONT> : size_t; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses__ads.htm#1395_22">Str</A>, <A HREF="terminal_interface-curses__adb.htm#1704_7">Txt</A>, <A HREF="terminal_interface-curses__adb.htm#1705_7">Length</A>); + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1697_16">Mvwinsnstr</A> (<A HREF="terminal_interface-curses__ads.htm#1392_22">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1393_22">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1394_22">Column</A>), <A HREF="terminal_interface-curses__adb.htm#1704_7">Txt</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1396_22">Len</A>)) + = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Insert; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1408_14">Peek</A><FONT COLOR=red><A NAME="1714_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1408_20">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1409_20">Str</A> : <b>out</b> String; + <A HREF="terminal_interface-curses__ads.htm#1410_20">Len</A> : <b>in</b> Integer := -1) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1718_16">Winnstr</A></FONT> (<FONT COLOR=red><A NAME="1718_25">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1719_25">Str</A></FONT> : char_array; + <FONT COLOR=red><A NAME="1720_25">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1718_16">Winnstr</A>, "winnstr"); + + <FONT COLOR=red><A NAME="1723_7">N</A></FONT> : Integer := <A HREF="terminal_interface-curses__ads.htm#1410_20">Len</A>; + <FONT COLOR=red><A NAME="1724_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1409_20">Str</A>'Length); + <FONT COLOR=red><A NAME="1725_7">Cnt</A></FONT> : Natural; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1723_7">N</A> < 0 <b>then</b> + <A HREF="terminal_interface-curses__adb.htm#1723_7">N</A> := <A HREF="terminal_interface-curses__ads.htm#1409_20">Str</A>'Length; + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1723_7">N</A> > <A HREF="terminal_interface-curses__ads.htm#1409_20">Str</A>'Length <b>then</b> + <b>raise</b> Constraint_Error; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses__adb.htm#1724_7">Txt</A> (0) := <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char'First; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1718_16">Winnstr</A> (<A HREF="terminal_interface-curses__ads.htm#1408_20">Win</A>, <A HREF="terminal_interface-curses__adb.htm#1724_7">Txt</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#1723_7">N</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + To_Ada (<A HREF="terminal_interface-curses__adb.htm#1724_7">Txt</A>, <A HREF="terminal_interface-curses__ads.htm#1409_20">Str</A>, <A HREF="terminal_interface-curses__adb.htm#1725_7">Cnt</A>, True); + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1725_7">Cnt</A> < <A HREF="terminal_interface-curses__ads.htm#1409_20">Str</A>'Length <b>then</b> + <A HREF="terminal_interface-curses__ads.htm#1409_20">Str</A> ((<A HREF="terminal_interface-curses__ads.htm#1409_20">Str</A>'First + <A HREF="terminal_interface-curses__adb.htm#1725_7">Cnt</A>) .. <A HREF="terminal_interface-curses__ads.htm#1409_20">Str</A>'Last) := (<b>others</b> => ' '); + <b>end</b> <b>if</b>; + <b>end</b> Peek; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1417_14">Peek</A><FONT COLOR=red><A NAME="1743_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1417_20">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1418_20">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1419_20">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1420_20">Str</A> : <b>out</b> String; + <A HREF="terminal_interface-curses__ads.htm#1421_20">Len</A> : <b>in</b> Integer := -1) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#505_14">Move_Cursor</A> (<A HREF="terminal_interface-curses__ads.htm#1417_20">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1418_20">Line</A>, <A HREF="terminal_interface-curses__ads.htm#1419_20">Column</A>); + <A HREF="terminal_interface-curses__ads.htm#1408_14">Peek</A> (<A HREF="terminal_interface-curses__ads.htm#1417_20">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1420_20">Str</A>, <A HREF="terminal_interface-curses__ads.htm#1421_20">Len</A>); + <b>end</b> Peek; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1432_14">Peek</A><FONT COLOR=red><A NAME="1755_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1432_20">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1433_20">Str</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#376_9">Attributed_String</A>; + <A HREF="terminal_interface-curses__ads.htm#1434_20">Len</A> : <b>in</b> Integer := -1) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1760_16">Winchnstr</A></FONT> (<FONT COLOR=red><A NAME="1760_27">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1761_27">Str</A></FONT> : <A HREF="terminal_interface-curses__adb.htm#59_9">chtype_array</A>; <FONT COLOR=green><EM>-- out</EM></FONT> + <FONT COLOR=red><A NAME="1762_27">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1760_16">Winchnstr</A>, "winchnstr"); + + <FONT COLOR=red><A NAME="1765_7">N</A></FONT> : Integer := <A HREF="terminal_interface-curses__ads.htm#1434_20">Len</A>; + <FONT COLOR=red><A NAME="1766_7">Txt</A></FONT> : <A HREF="terminal_interface-curses__adb.htm#59_9">chtype_array</A> (0 .. <A HREF="terminal_interface-curses__ads.htm#1433_20">Str</A>'Length) := (0 => <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>); + <FONT COLOR=red><A NAME="1767_7">Cnt</A></FONT> : Natural := 0; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1765_7">N</A> < 0 <b>then</b> + <A HREF="terminal_interface-curses__adb.htm#1765_7">N</A> := <A HREF="terminal_interface-curses__ads.htm#1433_20">Str</A>'Length; + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1765_7">N</A> > <A HREF="terminal_interface-curses__ads.htm#1433_20">Str</A>'Length <b>then</b> + <b>raise</b> Constraint_Error; + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1760_16">Winchnstr</A> (<A HREF="terminal_interface-curses__ads.htm#1432_20">Win</A>, <A HREF="terminal_interface-curses__adb.htm#1766_7">Txt</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#1765_7">N</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>for</b> <FONT COLOR=red><A NAME="1778_11">To</A></FONT> <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1433_20">Str</A>'<b>Range</b> <b>loop</b> + <b>exit</b> <b>when</b> <A HREF="terminal_interface-curses__adb.htm#1766_7">Txt</A> (size_t (<A HREF="terminal_interface-curses__adb.htm#1767_7">Cnt</A>)) = <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <A HREF="terminal_interface-curses__ads.htm#1433_20">Str</A> (<A HREF="terminal_interface-curses__adb.htm#1778_11">To</A>) := <A HREF="terminal_interface-curses__adb.htm#1766_7">Txt</A> (size_t (<A HREF="terminal_interface-curses__adb.htm#1767_7">Cnt</A>)); + <A HREF="terminal_interface-curses__adb.htm#1767_7">Cnt</A> := <A HREF="terminal_interface-curses__adb.htm#1767_7">Cnt</A> + 1; + <b>end</b> <b>loop</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1767_7">Cnt</A> < <A HREF="terminal_interface-curses__ads.htm#1433_20">Str</A>'Length <b>then</b> + <A HREF="terminal_interface-curses__ads.htm#1433_20">Str</A> ((<A HREF="terminal_interface-curses__ads.htm#1433_20">Str</A>'First + <A HREF="terminal_interface-curses__adb.htm#1767_7">Cnt</A>) .. <A HREF="terminal_interface-curses__ads.htm#1433_20">Str</A>'Last) := + (<b>others</b> => (Ch => ' ', + Color => <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First, + Attr => <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>)); + <b>end</b> <b>if</b>; + <b>end</b> Peek; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1441_14">Peek</A><FONT COLOR=red><A NAME="1791_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1441_20">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1442_20">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1443_20">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1444_20">Str</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#376_9">Attributed_String</A>; + <A HREF="terminal_interface-curses__ads.htm#1445_20">Len</A> : <b>in</b> Integer := -1) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#505_14">Move_Cursor</A> (<A HREF="terminal_interface-curses__ads.htm#1441_20">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1442_20">Line</A>, <A HREF="terminal_interface-curses__ads.htm#1443_20">Column</A>); + <A HREF="terminal_interface-curses__ads.htm#1432_14">Peek</A> (<A HREF="terminal_interface-curses__ads.htm#1441_20">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1444_20">Str</A>, <A HREF="terminal_interface-curses__ads.htm#1445_20">Len</A>); + <b>end</b> Peek; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1457_14">Get</A><FONT COLOR=red><A NAME="1803_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1457_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1458_19">Str</A> : <b>out</b> String; + <A HREF="terminal_interface-curses__ads.htm#1459_19">Len</A> : <b>in</b> Integer := -1) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1807_16">Wgetnstr</A></FONT> (<FONT COLOR=red><A NAME="1807_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1808_26">Str</A></FONT> : char_array; + <FONT COLOR=red><A NAME="1809_26">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1807_16">Wgetnstr</A>, "wgetnstr"); + + <FONT COLOR=red><A NAME="1812_7">N</A></FONT> : Integer := <A HREF="terminal_interface-curses__ads.htm#1459_19">Len</A>; + <FONT COLOR=red><A NAME="1813_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1458_19">Str</A>'Length); + <FONT COLOR=red><A NAME="1814_7">Cnt</A></FONT> : Natural; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1812_7">N</A> < 0 <b>then</b> + <A HREF="terminal_interface-curses__adb.htm#1812_7">N</A> := <A HREF="terminal_interface-curses__ads.htm#1458_19">Str</A>'Length; + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1812_7">N</A> > <A HREF="terminal_interface-curses__ads.htm#1458_19">Str</A>'Length <b>then</b> + <b>raise</b> Constraint_Error; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses__adb.htm#1813_7">Txt</A> (0) := <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char'First; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1807_16">Wgetnstr</A> (<A HREF="terminal_interface-curses__ads.htm#1457_19">Win</A>, <A HREF="terminal_interface-curses__adb.htm#1813_7">Txt</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#1812_7">N</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + To_Ada (<A HREF="terminal_interface-curses__adb.htm#1813_7">Txt</A>, <A HREF="terminal_interface-curses__ads.htm#1458_19">Str</A>, <A HREF="terminal_interface-curses__adb.htm#1814_7">Cnt</A>, True); + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1814_7">Cnt</A> < <A HREF="terminal_interface-curses__ads.htm#1458_19">Str</A>'Length <b>then</b> + <A HREF="terminal_interface-curses__ads.htm#1458_19">Str</A> ((<A HREF="terminal_interface-curses__ads.htm#1458_19">Str</A>'First + <A HREF="terminal_interface-curses__adb.htm#1814_7">Cnt</A>) .. <A HREF="terminal_interface-curses__ads.htm#1458_19">Str</A>'Last) := (<b>others</b> => ' '); + <b>end</b> <b>if</b>; + <b>end</b> Get; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1468_14">Get</A><FONT COLOR=red><A NAME="1832_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1468_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1469_19">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1470_19">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1471_19">Str</A> : <b>out</b> String; + <A HREF="terminal_interface-curses__ads.htm#1472_19">Len</A> : <b>in</b> Integer := -1) + <b>is</b> + <b>begin</b> + <A HREF="terminal_interface-curses__ads.htm#505_14">Move_Cursor</A> (<A HREF="terminal_interface-curses__ads.htm#1468_19">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1469_19">Line</A>, <A HREF="terminal_interface-curses__ads.htm#1470_19">Column</A>); + <A HREF="terminal_interface-curses__ads.htm#1457_14">Get</A> (<A HREF="terminal_interface-curses__ads.htm#1468_19">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1471_19">Str</A>, <A HREF="terminal_interface-curses__ads.htm#1472_19">Len</A>); + <b>end</b> Get; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1493_14">Init_Soft_Label_Keys</A><FONT COLOR=red><A NAME="1844_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1494_7">Format</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1485_9">Soft_Label_Key_Format</A> := <A HREF="terminal_interface-curses__ads.htm#1485_35">Three_Two_Three</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1847_16">Slk_Init</A></FONT> (<FONT COLOR=red><A NAME="1847_26">Fmt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1847_16">Slk_Init</A>, "slk_init"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1847_16">Slk_Init</A> (<A HREF="terminal_interface-curses__ads.htm#1485_9">Soft_Label_Key_Format</A>'Pos (<A HREF="terminal_interface-curses__ads.htm#1494_7">Format</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Init_Soft_Label_Keys; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1499_14">Set_Soft_Label_Key</A><FONT COLOR=red><A NAME="1855_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1499_34">Label</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1489_9">Label_Number</A>; + <A HREF="terminal_interface-curses__ads.htm#1500_34">Text</A> : <b>in</b> String; + <A HREF="terminal_interface-curses__ads.htm#1501_34">Fmt</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1490_9">Label_Justification</A> := <A HREF="terminal_interface-curses__ads.htm#1490_33">Left</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1859_16">Slk_Set</A></FONT> (<FONT COLOR=red><A NAME="1859_25">Label</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1860_25">Txt</A></FONT> : char_array; + <FONT COLOR=red><A NAME="1861_25">Fmt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1859_16">Slk_Set</A>, "slk_set"); + + <FONT COLOR=red><A NAME="1864_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1500_34">Text</A>'Length); + <FONT COLOR=red><A NAME="1865_7">Len</A></FONT> : size_t; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses__ads.htm#1500_34">Text</A>, <A HREF="terminal_interface-curses__adb.htm#1864_7">Txt</A>, <A HREF="terminal_interface-curses__adb.htm#1865_7">Len</A>); + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1859_16">Slk_Set</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1499_34">Label</A>), <A HREF="terminal_interface-curses__adb.htm#1864_7">Txt</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1490_9">Label_Justification</A>'Pos (<A HREF="terminal_interface-curses__ads.htm#1501_34">Fmt</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Soft_Label_Key; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1506_14">Refresh_Soft_Label_Keys</A><FONT COLOR=red><A NAME="1874_14"></A></FONT> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1876_16">Slk_Refresh</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1876_16">Slk_Refresh</A>, "slk_refresh"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1876_16">Slk_Refresh</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Refresh_Soft_Label_Keys; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1511_14">Refresh_Soft_Label_Keys_Without_Update</A><FONT COLOR=red><A NAME="1884_14"></A></FONT> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1886_16">Slk_Noutrefresh</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1886_16">Slk_Noutrefresh</A>, "slk_noutrefresh"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1886_16">Slk_Noutrefresh</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Refresh_Soft_Label_Keys_Without_Update; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1516_14">Get_Soft_Label_Key</A><FONT COLOR=red><A NAME="1894_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1516_34">Label</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1489_9">Label_Number</A>; + <A HREF="terminal_interface-curses__ads.htm#1517_34">Text</A> : <b>out</b> String) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1897_16">Slk_Label</A></FONT> (<FONT COLOR=red><A NAME="1897_27">Label</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1897_16">Slk_Label</A>, "slk_label"); + <b>begin</b> + <A HREF="terminal_interface-curses-aux__ads.htm#117_14">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#1897_16">Slk_Label</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1516_34">Label</A>)), <A HREF="terminal_interface-curses__ads.htm#1517_34">Text</A>); + <b>end</b> Get_Soft_Label_Key; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1521_13">Get_Soft_Label_Key</A><FONT COLOR=red><A NAME="1903_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1521_33">Label</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1489_9">Label_Number</A>) <b>return</b> String + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1905_16">Slk_Label</A></FONT> (<FONT COLOR=red><A NAME="1905_27">Label</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1905_16">Slk_Label</A>, "slk_label"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#1905_16">Slk_Label</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1521_33">Label</A>))); + <b>end</b> Get_Soft_Label_Key; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1527_14">Clear_Soft_Label_Keys</A><FONT COLOR=red><A NAME="1911_14"></A></FONT> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1913_16">Slk_Clear</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1913_16">Slk_Clear</A>, "slk_clear"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1913_16">Slk_Clear</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Clear_Soft_Label_Keys; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1532_14">Restore_Soft_Label_Keys</A><FONT COLOR=red><A NAME="1921_14"></A></FONT> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1923_16">Slk_Restore</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1923_16">Slk_Restore</A>, "slk_restore"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1923_16">Slk_Restore</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Restore_Soft_Label_Keys; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1537_14">Touch_Soft_Label_Keys</A><FONT COLOR=red><A NAME="1931_14"></A></FONT> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1933_16">Slk_Touch</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1933_16">Slk_Touch</A>, "slk_touch"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1933_16">Slk_Touch</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Touch_Soft_Label_Keys; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1542_14">Switch_Soft_Label_Key_Attributes</A><FONT COLOR=red><A NAME="1941_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1543_7">Attr</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A>; + <A HREF="terminal_interface-curses__ads.htm#1544_7">On</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1945_16">Slk_Attron</A></FONT> (<FONT COLOR=red><A NAME="1945_28">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1945_16">Slk_Attron</A>, "slk_attron"); + <b>function</b> <FONT COLOR=red><A NAME="1947_16">Slk_Attroff</A></FONT> (<FONT COLOR=red><A NAME="1947_29">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1947_16">Slk_Attroff</A>, "slk_attroff"); + + <FONT COLOR=red><A NAME="1950_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="1951_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := (Ch => Character'First, + Attr => <A HREF="terminal_interface-curses__ads.htm#1543_7">Attr</A>, + Color => <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__ads.htm#1544_7">On</A> <b>then</b> + <A HREF="terminal_interface-curses__adb.htm#1950_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#1945_16">Slk_Attron</A> (<A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__adb.htm#1951_7">Ch</A>)); + <b>else</b> + <A HREF="terminal_interface-curses__adb.htm#1950_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#1947_16">Slk_Attroff</A> (<A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__adb.htm#1951_7">Ch</A>)); + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1950_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Switch_Soft_Label_Key_Attributes; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1550_14">Set_Soft_Label_Key_Attributes</A><FONT COLOR=red><A NAME="1965_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1551_7">Attr</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#350_4">Normal_Video</A>; + <A HREF="terminal_interface-curses__ads.htm#1552_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>'First) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1969_16">Slk_Attrset</A></FONT> (<FONT COLOR=red><A NAME="1969_29">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1969_16">Slk_Attrset</A>, "slk_attrset"); + + <FONT COLOR=red><A NAME="1972_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := (Ch => Character'First, + Attr => <A HREF="terminal_interface-curses__ads.htm#1551_7">Attr</A>, + Color => <A HREF="terminal_interface-curses__ads.htm#1552_7">Color</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1969_16">Slk_Attrset</A> (<A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__adb.htm#1972_7">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Soft_Label_Key_Attributes; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1557_13">Get_Soft_Label_Key_Attributes</A><FONT COLOR=red><A NAME="1981_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1983_16">Slk_Attr</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1983_16">Slk_Attr</A>, "slk_attr"); + + <FONT COLOR=red><A NAME="1986_7">Attr</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A> := <A HREF="terminal_interface-curses__adb.htm#1983_16">Slk_Attr</A>; + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#1986_7">Attr</A>).<A HREF="terminal_interface-curses__ads.htm#354_10">Attr</A>; + <b>end</b> Get_Soft_Label_Key_Attributes; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1561_13">Get_Soft_Label_Key_Attributes</A><FONT COLOR=red><A NAME="1991_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="1993_16">Slk_Attr</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1993_16">Slk_Attr</A>, "slk_attr"); + + <FONT COLOR=red><A NAME="1996_7">Attr</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A> := <A HREF="terminal_interface-curses__adb.htm#1993_16">Slk_Attr</A>; + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#1996_7">Attr</A>).<A HREF="terminal_interface-curses__ads.htm#355_10">Color</A>; + <b>end</b> Get_Soft_Label_Key_Attributes; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1566_14">Set_Soft_Label_Key_Color</A><FONT COLOR=red><A NAME="2001_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1566_40">Pair</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2003_16">Slk_Color</A></FONT> (<FONT COLOR=red><A NAME="2003_27">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2003_16">Slk_Color</A>, "slk_color"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2003_16">Slk_Color</A> (<A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1566_40">Pair</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Set_Soft_Label_Key_Color; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1580_14">Enable_Key</A><FONT COLOR=red><A NAME="2012_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1580_26">Key</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A>; + <A HREF="terminal_interface-curses__ads.htm#1581_26">Enable</A> : <b>in</b> Boolean := True) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2015_16">Keyok</A></FONT> (<FONT COLOR=red><A NAME="2015_23">Keycode</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="2016_23">On_Off</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2015_16">Keyok</A>, "keyok"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2015_16">Keyok</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1580_26">Key</A>), <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#1581_26">Enable</A>))) + = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Enable_Key; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1590_14">Define_Key</A><FONT COLOR=red><A NAME="2025_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1590_26">Definition</A> : <b>in</b> String; + <A HREF="terminal_interface-curses__ads.htm#1591_26">Key</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2028_16">Defkey</A></FONT> (<FONT COLOR=red><A NAME="2028_24">Def</A></FONT> : char_array; + <FONT COLOR=red><A NAME="2029_24">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2028_16">Defkey</A>, "define_key"); + + <FONT COLOR=red><A NAME="2032_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1590_26">Definition</A>'Length); + <FONT COLOR=red><A NAME="2033_7">Length</A></FONT> : size_t; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses__ads.htm#1590_26">Definition</A>, <A HREF="terminal_interface-curses__adb.htm#2032_7">Txt</A>, <A HREF="terminal_interface-curses__adb.htm#2033_7">Length</A>); + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2028_16">Defkey</A> (<A HREF="terminal_interface-curses__adb.htm#2032_7">Txt</A>, <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1591_26">Key</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Define_Key; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1616_14">Un_Control</A><FONT COLOR=red><A NAME="2041_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1616_26">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>; + <A HREF="terminal_interface-curses__ads.htm#1617_26">Str</A> : <b>out</b> String) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2044_16">Unctrl</A></FONT> (<FONT COLOR=red><A NAME="2044_24">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2044_16">Unctrl</A>, "unctrl"); + <b>begin</b> + <A HREF="terminal_interface-curses-aux__ads.htm#117_14">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#2044_16">Unctrl</A> (<A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#1616_26">Ch</A>)), <A HREF="terminal_interface-curses__ads.htm#1617_26">Str</A>); + <b>end</b> Un_Control; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1621_13">Un_Control</A><FONT COLOR=red><A NAME="2050_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1621_25">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A>) <b>return</b> String + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2052_16">Unctrl</A></FONT> (<FONT COLOR=red><A NAME="2052_24">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>) <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2052_16">Unctrl</A>, "unctrl"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#2052_16">Unctrl</A> (<A HREF="terminal_interface-curses-aux__ads.htm#105_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#1621_25">Ch</A>))); + <b>end</b> Un_Control; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1627_14">Delay_Output</A><FONT COLOR=red><A NAME="2058_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1627_28">Msecs</A> : <b>in</b> Natural) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2060_16">Delayoutput</A></FONT> (<FONT COLOR=red><A NAME="2060_29">Msecs</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2060_16">Delayoutput</A>, "delay_output"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2060_16">Delayoutput</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1627_28">Msecs</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Delay_Output; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1632_14">Flush_Input</A><FONT COLOR=red><A NAME="2068_14"></A></FONT> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2070_16">Flushinp</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2070_16">Flushinp</A>, "flushinp"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2070_16">Flushinp</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> <FONT COLOR=green><EM>-- docu says that never happens, but...</EM></FONT> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Flush_Input; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1641_13">Baudrate</A><FONT COLOR=red><A NAME="2078_13"></A></FONT> <b>return</b> Natural + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2080_16">Baud</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2080_16">Baud</A>, "baudrate"); + <b>begin</b> + <b>return</b> Natural (<A HREF="terminal_interface-curses__adb.htm#2080_16">Baud</A>); + <b>end</b> Baudrate; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1646_13">Erase_Character</A><FONT COLOR=red><A NAME="2086_13"></A></FONT> <b>return</b> Character + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2088_16">Erasechar</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2088_16">Erasechar</A>, "erasechar"); + <b>begin</b> + <b>return</b> Character'Val (<A HREF="terminal_interface-curses__adb.htm#2088_16">Erasechar</A>); + <b>end</b> Erase_Character; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1651_13">Kill_Character</A><FONT COLOR=red><A NAME="2094_13"></A></FONT> <b>return</b> Character + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2096_16">Killchar</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2096_16">Killchar</A>, "killchar"); + <b>begin</b> + <b>return</b> Character'Val (<A HREF="terminal_interface-curses__adb.htm#2096_16">Killchar</A>); + <b>end</b> Kill_Character; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1656_13">Has_Insert_Character</A><FONT COLOR=red><A NAME="2102_13"></A></FONT> <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2104_16">Has_Ic</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2104_16">Has_Ic</A>, "has_ic"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2104_16">Has_Ic</A> = <A HREF="terminal_interface-curses__ads.htm#1932_4">Curses_Bool_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Has_Insert_Character; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1661_13">Has_Insert_Line</A><FONT COLOR=red><A NAME="2114_13"></A></FONT> <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2116_16">Has_Il</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2116_16">Has_Il</A>, "has_il"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2116_16">Has_Il</A> = <A HREF="terminal_interface-curses__ads.htm#1932_4">Curses_Bool_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Has_Insert_Line; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1666_13">Supported_Attributes</A><FONT COLOR=red><A NAME="2126_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Character_Attribute_Set</A> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2128_16">Termattrs</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_Chtype</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2128_16">Termattrs</A>, "termattrs"); + + <FONT COLOR=red><A NAME="2131_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses-aux__ads.htm#102_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#2128_16">Termattrs</A>); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses__adb.htm#2131_7">Ch</A>.<A HREF="terminal_interface-curses__ads.htm#354_10">Attr</A>; + <b>end</b> Supported_Attributes; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1671_14">Long_Name</A><FONT COLOR=red><A NAME="2136_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1671_25">Name</A> : <b>out</b> String) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2138_16">Longname</A></FONT> <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2138_16">Longname</A>, "longname"); + <b>begin</b> + <A HREF="terminal_interface-curses-aux__ads.htm#117_14">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#2138_16">Longname</A>, <A HREF="terminal_interface-curses__ads.htm#1671_25">Name</A>); + <b>end</b> Long_Name; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1675_13">Long_Name</A><FONT COLOR=red><A NAME="2144_13"></A></FONT> <b>return</b> String + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2146_16">Longname</A></FONT> <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2146_16">Longname</A>, "longname"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#2146_16">Longname</A>); + <b>end</b> Long_Name; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1681_14">Terminal_Name</A><FONT COLOR=red><A NAME="2152_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1681_29">Name</A> : <b>out</b> String) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2154_16">Termname</A></FONT> <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2154_16">Termname</A>, "termname"); + <b>begin</b> + <A HREF="terminal_interface-curses-aux__ads.htm#117_14">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#2154_16">Termname</A>, <A HREF="terminal_interface-curses__ads.htm#1681_29">Name</A>); + <b>end</b> Terminal_Name; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1685_13">Terminal_Name</A><FONT COLOR=red><A NAME="2160_13"></A></FONT> <b>return</b> String + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2162_16">Termname</A></FONT> <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2162_16">Termname</A>, "termname"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#2162_16">Termname</A>); + <b>end</b> Terminal_Name; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1706_14">Init_Pair</A><FONT COLOR=red><A NAME="2168_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1706_25">Pair</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#300_12">Redefinable_Color_Pair</A>; + <A HREF="terminal_interface-curses__ads.htm#1707_25">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A>; + <A HREF="terminal_interface-curses__ads.htm#1708_25">Back</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2172_16">Initpair</A></FONT> (<FONT COLOR=red><A NAME="2172_26">Pair</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + <FONT COLOR=red><A NAME="2173_26">Fore</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + <FONT COLOR=red><A NAME="2174_26">Back</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2172_16">Initpair</A>, "init_pair"); + <b>begin</b> + <b>if</b> Integer (<A HREF="terminal_interface-curses__ads.htm#1706_25">Pair</A>) >= <A HREF="terminal_interface-curses__ads.htm#424_13">Number_Of_Color_Pairs</A> <b>then</b> + <b>raise</b> Constraint_Error; + <b>end</b> <b>if</b>; + <b>if</b> Integer (<A HREF="terminal_interface-curses__ads.htm#1707_25">Fore</A>) >= <A HREF="terminal_interface-curses__ads.htm#421_13">Number_Of_Colors</A> <b>or</b> <b>else</b> + Integer (<A HREF="terminal_interface-curses__ads.htm#1708_25">Back</A>) >= <A HREF="terminal_interface-curses__ads.htm#421_13">Number_Of_Colors</A> <b>then</b> <b>raise</b> Constraint_Error; + <b>end</b> <b>if</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2172_16">Initpair</A> (<A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1706_25">Pair</A>), <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1707_25">Fore</A>), <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1708_25">Back</A>)) + = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Init_Pair; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1713_14">Pair_Content</A><FONT COLOR=red><A NAME="2189_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1713_28">Pair</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Color_Pair</A>; + <A HREF="terminal_interface-curses__ads.htm#1714_28">Fore</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A>; + <A HREF="terminal_interface-curses__ads.htm#1715_28">Back</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A>) + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="2193_12">C_Short_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + <b>function</b> <FONT COLOR=red><A NAME="2194_16">Paircontent</A></FONT> (<FONT COLOR=red><A NAME="2194_29">Pair</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + <FONT COLOR=red><A NAME="2195_29">Fp</A></FONT> : <A HREF="terminal_interface-curses__adb.htm#2193_12">C_Short_Access</A>; + <FONT COLOR=red><A NAME="2196_29">Bp</A></FONT> : <A HREF="terminal_interface-curses__adb.htm#2193_12">C_Short_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2194_16">Paircontent</A>, "pair_content"); + + <FONT COLOR=red><A NAME="2199_7">F</A></FONT>, <FONT COLOR=red><A NAME="2199_10">B</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2194_16">Paircontent</A> (<A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1713_28">Pair</A>), <A HREF="terminal_interface-curses__adb.htm#2199_7">F</A>'<b>Access</b>, <A HREF="terminal_interface-curses__adb.htm#2199_10">B</A>'<b>Access</b>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses__ads.htm#1714_28">Fore</A> := <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A> (<A HREF="terminal_interface-curses__adb.htm#2199_7">F</A>); + <A HREF="terminal_interface-curses__ads.htm#1715_28">Back</A> := <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A> (<A HREF="terminal_interface-curses__adb.htm#2199_10">B</A>); + <b>end</b> <b>if</b>; + <b>end</b> Pair_Content; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1720_13">Has_Colors</A><FONT COLOR=red><A NAME="2209_13"></A></FONT> <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2211_16">Hascolors</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2211_16">Hascolors</A>, "has_colors"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2211_16">Hascolors</A> = <A HREF="terminal_interface-curses__ads.htm#1932_4">Curses_Bool_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Has_Colors; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1725_14">Init_Color</A><FONT COLOR=red><A NAME="2221_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1725_26">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A>; + <A HREF="terminal_interface-curses__ads.htm#1726_26">Red</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#294_9">RGB_Value</A>; + <A HREF="terminal_interface-curses__ads.htm#1727_26">Green</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#294_9">RGB_Value</A>; + <A HREF="terminal_interface-curses__ads.htm#1728_26">Blue</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#294_9">RGB_Value</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2226_16">Initcolor</A></FONT> (<FONT COLOR=red><A NAME="2226_27">Col</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + <FONT COLOR=red><A NAME="2227_27">Red</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + <FONT COLOR=red><A NAME="2228_27">Green</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + <FONT COLOR=red><A NAME="2229_27">Blue</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2226_16">Initcolor</A>, "init_color"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2226_16">Initcolor</A> (<A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1725_26">Color</A>), <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1726_26">Red</A>), <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1727_26">Green</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1728_26">Blue</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Init_Color; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1733_13">Can_Change_Color</A><FONT COLOR=red><A NAME="2238_13"></A></FONT> <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2240_16">Canchangecolor</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2240_16">Canchangecolor</A>, "can_change_color"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2240_16">Canchangecolor</A> = <A HREF="terminal_interface-curses__ads.htm#1932_4">Curses_Bool_False</A> <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Can_Change_Color; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1738_14">Color_Content</A><FONT COLOR=red><A NAME="2250_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1738_29">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A>; + <A HREF="terminal_interface-curses__ads.htm#1739_29">Red</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#294_9">RGB_Value</A>; + <A HREF="terminal_interface-curses__ads.htm#1740_29">Green</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#294_9">RGB_Value</A>; + <A HREF="terminal_interface-curses__ads.htm#1741_29">Blue</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#294_9">RGB_Value</A>) + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="2255_12">C_Short_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + + <b>function</b> <FONT COLOR=red><A NAME="2257_16">Colorcontent</A></FONT> (<FONT COLOR=red><A NAME="2257_30">Color</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; <FONT COLOR=red><A NAME="2257_47">R</A></FONT>, <FONT COLOR=red><A NAME="2257_50">G</A></FONT>, <FONT COLOR=red><A NAME="2257_53">B</A></FONT> : <A HREF="terminal_interface-curses__adb.htm#2255_12">C_Short_Access</A>) + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2257_16">Colorcontent</A>, "color_content"); + + <FONT COLOR=red><A NAME="2261_7">R</A></FONT>, <FONT COLOR=red><A NAME="2261_10">G</A></FONT>, <FONT COLOR=red><A NAME="2261_13">B</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2257_16">Colorcontent</A> (<A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1738_29">Color</A>), <A HREF="terminal_interface-curses__adb.htm#2261_7">R</A>'<b>Access</b>, <A HREF="terminal_interface-curses__adb.htm#2261_10">G</A>'<b>Access</b>, <A HREF="terminal_interface-curses__adb.htm#2261_13">B</A>'<b>Access</b>) = + <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses__ads.htm#1739_29">Red</A> := <A HREF="terminal_interface-curses__ads.htm#294_9">RGB_Value</A> (<A HREF="terminal_interface-curses__adb.htm#2261_7">R</A>); + <A HREF="terminal_interface-curses__ads.htm#1740_29">Green</A> := <A HREF="terminal_interface-curses__ads.htm#294_9">RGB_Value</A> (<A HREF="terminal_interface-curses__adb.htm#2261_10">G</A>); + <A HREF="terminal_interface-curses__ads.htm#1741_29">Blue</A> := <A HREF="terminal_interface-curses__ads.htm#294_9">RGB_Value</A> (<A HREF="terminal_interface-curses__adb.htm#2261_13">B</A>); + <b>end</b> <b>if</b>; + <b>end</b> Color_Content; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1753_14">Save_Curses_Mode</A><FONT COLOR=red><A NAME="2274_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1753_32">Mode</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1750_9">Curses_Mode</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2276_16">Def_Prog_Mode</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2276_16">Def_Prog_Mode</A>, "def_prog_mode"); + <b>function</b> <FONT COLOR=red><A NAME="2278_16">Def_Shell_Mode</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2278_16">Def_Shell_Mode</A>, "def_shell_mode"); + + <FONT COLOR=red><A NAME="2281_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>begin</b> + <b>case</b> <A HREF="terminal_interface-curses__ads.htm#1753_32">Mode</A> <b>is</b> + <b>when</b> <A HREF="terminal_interface-curses__ads.htm#1750_25">Curses</A> => <A HREF="terminal_interface-curses__adb.htm#2281_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#2276_16">Def_Prog_Mode</A>; + <b>when</b> <A HREF="terminal_interface-curses__ads.htm#1750_33">Shell</A> => <A HREF="terminal_interface-curses__adb.htm#2281_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#2278_16">Def_Shell_Mode</A>; + <b>end</b> <b>case</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2281_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Save_Curses_Mode; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1759_14">Reset_Curses_Mode</A><FONT COLOR=red><A NAME="2292_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1759_33">Mode</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1750_9">Curses_Mode</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2294_16">Reset_Prog_Mode</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2294_16">Reset_Prog_Mode</A>, "reset_prog_mode"); + <b>function</b> <FONT COLOR=red><A NAME="2296_16">Reset_Shell_Mode</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2296_16">Reset_Shell_Mode</A>, "reset_shell_mode"); + + <FONT COLOR=red><A NAME="2299_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>begin</b> + <b>case</b> <A HREF="terminal_interface-curses__ads.htm#1759_33">Mode</A> <b>is</b> + <b>when</b> <A HREF="terminal_interface-curses__ads.htm#1750_25">Curses</A> => <A HREF="terminal_interface-curses__adb.htm#2299_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#2294_16">Reset_Prog_Mode</A>; + <b>when</b> <A HREF="terminal_interface-curses__ads.htm#1750_33">Shell</A> => <A HREF="terminal_interface-curses__adb.htm#2299_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#2296_16">Reset_Shell_Mode</A>; + <b>end</b> <b>case</b>; + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2299_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Reset_Curses_Mode; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1765_14">Save_Terminal_State</A><FONT COLOR=red><A NAME="2310_14"></A></FONT> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2312_16">Savetty</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2312_16">Savetty</A>, "savetty"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2312_16">Savetty</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Save_Terminal_State; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1770_14">Reset_Terminal_State</A><FONT COLOR=red><A NAME="2320_14"></A></FONT> + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2322_16">Resetty</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2322_16">Resetty</A>, "resetty"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2322_16">Resetty</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Reset_Terminal_State; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1783_14">Rip_Off_Lines</A><FONT COLOR=red><A NAME="2330_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1783_29">Lines</A> : <b>in</b> Integer; + <A HREF="terminal_interface-curses__ads.htm#1784_29">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1774_9">Stdscr_Init_Proc</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2333_16">Ripoffline</A></FONT> (<FONT COLOR=red><A NAME="2333_28">Lines</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="2334_28">Proc</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1774_9">Stdscr_Init_Proc</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2333_16">Ripoffline</A>, "_nc_ripoffline"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2333_16">Ripoffline</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1783_29">Lines</A>), <A HREF="terminal_interface-curses__ads.htm#1784_29">Proc</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Rip_Off_Lines; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1795_14">Set_Cursor_Visibility</A><FONT COLOR=red><A NAME="2342_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1795_37">Visibility</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#1792_9">Cursor_Visibility</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2344_16">Curs_Set</A></FONT> (<FONT COLOR=red><A NAME="2344_26">Curs</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2344_16">Curs_Set</A>, "curs_set"); + + <FONT COLOR=red><A NAME="2347_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>begin</b> + <A HREF="terminal_interface-curses__adb.htm#2347_7">Res</A> := <A HREF="terminal_interface-curses__adb.htm#2344_16">Curs_Set</A> (<A HREF="terminal_interface-curses__ads.htm#1792_9">Cursor_Visibility</A>'Pos (<A HREF="terminal_interface-curses__ads.htm#1795_37">Visibility</A>)); + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2347_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <A HREF="terminal_interface-curses__ads.htm#1795_37">Visibility</A> := <A HREF="terminal_interface-curses__ads.htm#1792_9">Cursor_Visibility</A>'Val (<A HREF="terminal_interface-curses__adb.htm#2347_7">Res</A>); + <b>end</b> <b>if</b>; + <b>end</b> Set_Cursor_Visibility; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1800_14">Nap_Milli_Seconds</A><FONT COLOR=red><A NAME="2355_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1800_33">Ms</A> : <b>in</b> Natural) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2357_16">Napms</A></FONT> (<FONT COLOR=red><A NAME="2357_23">Ms</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2357_16">Napms</A>, "napms"); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2357_16">Napms</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1800_33">Ms</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Nap_Milli_Seconds; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A><FONT COLOR=red><A NAME="2366_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> + <b>is</b> + <FONT COLOR=red><A NAME="2368_7">Stdscr</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2368_7">Stdscr</A>, "stdscr"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses__adb.htm#2368_7">Stdscr</A>; + <b>end</b> Standard_Window; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#412_13">Lines</A><FONT COLOR=red><A NAME="2374_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A> + <b>is</b> + <FONT COLOR=red><A NAME="2376_7">C_Lines</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2376_7">C_Lines</A>, "LINES"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A> (<A HREF="terminal_interface-curses__adb.htm#2376_7">C_Lines</A>); + <b>end</b> Lines; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#415_13">Columns</A><FONT COLOR=red><A NAME="2382_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A> + <b>is</b> + <FONT COLOR=red><A NAME="2384_7">C_Columns</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2384_7">C_Columns</A>, "COLS"); + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A> (<A HREF="terminal_interface-curses__adb.htm#2384_7">C_Columns</A>); + <b>end</b> Columns; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#418_13">Tab_Size</A><FONT COLOR=red><A NAME="2390_13"></A></FONT> <b>return</b> Natural + <b>is</b> + <FONT COLOR=red><A NAME="2392_7">C_Tab_Size</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2392_7">C_Tab_Size</A>, "TABSIZE"); + <b>begin</b> + <b>return</b> Natural (<A HREF="terminal_interface-curses__adb.htm#2392_7">C_Tab_Size</A>); + <b>end</b> Tab_Size; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#421_13">Number_Of_Colors</A><FONT COLOR=red><A NAME="2398_13"></A></FONT> <b>return</b> Natural + <b>is</b> + <FONT COLOR=red><A NAME="2400_7">C_Number_Of_Colors</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2400_7">C_Number_Of_Colors</A>, "COLORS"); + <b>begin</b> + <b>return</b> Natural (<A HREF="terminal_interface-curses__adb.htm#2400_7">C_Number_Of_Colors</A>); + <b>end</b> Number_Of_Colors; + + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#424_13">Number_Of_Color_Pairs</A><FONT COLOR=red><A NAME="2406_13"></A></FONT> <b>return</b> Natural + <b>is</b> + <FONT COLOR=red><A NAME="2408_7">C_Number_Of_Color_Pairs</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2408_7">C_Number_Of_Color_Pairs</A>, "COLOR_PAIRS"); + <b>begin</b> + <b>return</b> Natural (<A HREF="terminal_interface-curses__adb.htm#2408_7">C_Number_Of_Color_Pairs</A>); + <b>end</b> Number_Of_Color_Pairs; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1808_14">Transform_Coordinates</A><FONT COLOR=red><A NAME="2414_14"></A></FONT> + (<A HREF="terminal_interface-curses__ads.htm#1809_7">W</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1810_7">Line</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1811_7">Column</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A>; + <A HREF="terminal_interface-curses__ads.htm#1812_7">Dir</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1807_9">Transform_Direction</A> := <A HREF="terminal_interface-curses__ads.htm#1807_33">From_Screen</A>) + <b>is</b> + <b>type</b> <FONT COLOR=red><A NAME="2420_12">Int_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>function</b> <FONT COLOR=red><A NAME="2421_16">Transform</A></FONT> (<FONT COLOR=red><A NAME="2421_27">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="2422_27">Y</A></FONT>, <FONT COLOR=red><A NAME="2422_30">X</A></FONT> : <A HREF="terminal_interface-curses__adb.htm#2420_12">Int_Access</A>; + <FONT COLOR=red><A NAME="2423_27">Dir</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2421_16">Transform</A>, "wmouse_trafo"); + + <FONT COLOR=red><A NAME="2426_7">X</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1811_7">Column</A>); + <FONT COLOR=red><A NAME="2427_7">Y</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1810_7">Line</A>); + <FONT COLOR=red><A NAME="2428_7">D</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> := <A HREF="terminal_interface-curses__ads.htm#1932_4">Curses_Bool_False</A>; + <FONT COLOR=red><A NAME="2429_7">R</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__ads.htm#1812_7">Dir</A> = <A HREF="terminal_interface-curses__ads.htm#1807_46">To_Screen</A> <b>then</b> + <A HREF="terminal_interface-curses__adb.htm#2428_7">D</A> := 1; + <b>end</b> <b>if</b>; + <A HREF="terminal_interface-curses__adb.htm#2429_7">R</A> := <A HREF="terminal_interface-curses__adb.htm#2421_16">Transform</A> (<A HREF="terminal_interface-curses__ads.htm#1809_7">W</A>, <A HREF="terminal_interface-curses__adb.htm#2427_7">Y</A>'<b>Access</b>, <A HREF="terminal_interface-curses__adb.htm#2426_7">X</A>'<b>Access</b>, <A HREF="terminal_interface-curses__adb.htm#2428_7">D</A>); + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2429_7">R</A> = <A HREF="terminal_interface-curses-aux__ads.htm#76_4">Curses_False</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>else</b> + <A HREF="terminal_interface-curses__ads.htm#1810_7">Line</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> (<A HREF="terminal_interface-curses__adb.htm#2427_7">Y</A>); + <A HREF="terminal_interface-curses__ads.htm#1811_7">Column</A> := <A HREF="terminal_interface-curses__ads.htm#61_9">Column_Position</A> (<A HREF="terminal_interface-curses__adb.htm#2426_7">X</A>); + <b>end</b> <b>if</b>; + <b>end</b> Transform_Coordinates; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1825_14">Use_Default_Colors</A><FONT COLOR=red><A NAME="2443_14"></A></FONT> <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2444_16">C_Use_Default_Colors</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2444_16">C_Use_Default_Colors</A>, "use_default_colors"); + <FONT COLOR=red><A NAME="2446_7">Err</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses__adb.htm#2444_16">C_Use_Default_Colors</A>; + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2446_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Use_Default_Colors; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1830_14">Assume_Default_Colors</A><FONT COLOR=red><A NAME="2453_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1830_37">Fore</A> : <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A> := <A HREF="terminal_interface-curses__ads.htm#284_4">Default_Color</A>; + <A HREF="terminal_interface-curses__ads.htm#1831_37">Back</A> : <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A> := <A HREF="terminal_interface-curses__ads.htm#284_4">Default_Color</A>) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2456_16">C_Assume_Default_Colors</A></FONT> (<FONT COLOR=red><A NAME="2456_41">Fore</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="2457_41">Back</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2456_16">C_Assume_Default_Colors</A>, "assume_default_colors"); + + <FONT COLOR=red><A NAME="2460_7">Err</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := <A HREF="terminal_interface-curses__adb.htm#2456_16">C_Assume_Default_Colors</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1830_37">Fore</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#285_4">Black</A>)); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2460_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Assume_Default_Colors; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1840_13">Curses_Version</A><FONT COLOR=red><A NAME="2468_13"></A></FONT> <b>return</b> String + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2470_16">curses_versionC</A></FONT> <b>return</b> chars_ptr; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2470_16">curses_versionC</A>, "curses_version"); + <FONT COLOR=red><A NAME="2472_7">Result</A></FONT> : <b>constant</b> chars_ptr := <A HREF="terminal_interface-curses__adb.htm#2470_16">curses_versionC</A>; + <b>begin</b> + <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#122_13">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#2472_7">Result</A>); + <b>end</b> Curses_Version; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1845_13">Use_Extended_Names</A><FONT COLOR=red><A NAME="2477_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1845_33">Enable</A> : Boolean) <b>return</b> Boolean + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2479_16">use_extended_namesC</A></FONT> (<FONT COLOR=red><A NAME="2479_37">e</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2479_16">use_extended_namesC</A>, "use_extended_names"); + + <FONT COLOR=red><A NAME="2482_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := + <A HREF="terminal_interface-curses__adb.htm#2479_16">use_extended_namesC</A> (<A HREF="terminal_interface-curses__ads.htm#1931_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#1845_33">Enable</A>))); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2482_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1932_4">Curses_Bool_False</A>) <b>then</b> + <b>return</b> False; + <b>else</b> + <b>return</b> True; + <b>end</b> <b>if</b>; + <b>end</b> Use_Extended_Names; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1853_14">Screen_Dump_To_File</A><FONT COLOR=red><A NAME="2492_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1853_35">Filename</A> : <b>in</b> String) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2494_16">scr_dump</A></FONT> (<FONT COLOR=red><A NAME="2494_26">f</A></FONT> : char_array) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2494_16">scr_dump</A>, "scr_dump"); + <FONT COLOR=red><A NAME="2496_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1853_35">Filename</A>'Length); + <FONT COLOR=red><A NAME="2497_7">Length</A></FONT> : size_t; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses__ads.htm#1853_35">Filename</A>, <A HREF="terminal_interface-curses__adb.htm#2496_7">Txt</A>, <A HREF="terminal_interface-curses__adb.htm#2497_7">Length</A>); + <b>if</b> <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> = <A HREF="terminal_interface-curses__adb.htm#2494_16">scr_dump</A> (<A HREF="terminal_interface-curses__adb.htm#2496_7">Txt</A>) <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Screen_Dump_To_File; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1857_14">Screen_Restore_From_File</A><FONT COLOR=red><A NAME="2505_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1857_40">Filename</A> : <b>in</b> String) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2507_16">scr_restore</A></FONT> (<FONT COLOR=red><A NAME="2507_29">f</A></FONT> : char_array) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2507_16">scr_restore</A>, "scr_restore"); + <FONT COLOR=red><A NAME="2509_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1857_40">Filename</A>'Length); + <FONT COLOR=red><A NAME="2510_7">Length</A></FONT> : size_t; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses__ads.htm#1857_40">Filename</A>, <A HREF="terminal_interface-curses__adb.htm#2509_7">Txt</A>, <A HREF="terminal_interface-curses__adb.htm#2510_7">Length</A>); + <b>if</b> <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> = <A HREF="terminal_interface-curses__adb.htm#2507_16">scr_restore</A> (<A HREF="terminal_interface-curses__adb.htm#2509_7">Txt</A>) <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Screen_Restore_From_File; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1861_14">Screen_Init_From_File</A><FONT COLOR=red><A NAME="2518_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1861_37">Filename</A> : <b>in</b> String) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2520_16">scr_init</A></FONT> (<FONT COLOR=red><A NAME="2520_26">f</A></FONT> : char_array) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2520_16">scr_init</A>, "scr_init"); + <FONT COLOR=red><A NAME="2522_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1861_37">Filename</A>'Length); + <FONT COLOR=red><A NAME="2523_7">Length</A></FONT> : size_t; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses__ads.htm#1861_37">Filename</A>, <A HREF="terminal_interface-curses__adb.htm#2522_7">Txt</A>, <A HREF="terminal_interface-curses__adb.htm#2523_7">Length</A>); + <b>if</b> <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> = <A HREF="terminal_interface-curses__adb.htm#2520_16">scr_init</A> (<A HREF="terminal_interface-curses__adb.htm#2522_7">Txt</A>) <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Screen_Init_From_File; + + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1865_14">Screen_Set_File</A><FONT COLOR=red><A NAME="2531_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1865_31">Filename</A> : <b>in</b> String) + <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2533_16">scr_set</A></FONT> (<FONT COLOR=red><A NAME="2533_25">f</A></FONT> : char_array) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2533_16">scr_set</A>, "scr_set"); + <FONT COLOR=red><A NAME="2535_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1865_31">Filename</A>'Length); + <FONT COLOR=red><A NAME="2536_7">Length</A></FONT> : size_t; + <b>begin</b> + To_C (<A HREF="terminal_interface-curses__ads.htm#1865_31">Filename</A>, <A HREF="terminal_interface-curses__adb.htm#2535_7">Txt</A>, <A HREF="terminal_interface-curses__adb.htm#2536_7">Length</A>); + <b>if</b> <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> = <A HREF="terminal_interface-curses__adb.htm#2533_16">scr_set</A> (<A HREF="terminal_interface-curses__adb.htm#2535_7">Txt</A>) <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Screen_Set_File; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1898_14">Resize</A><FONT COLOR=red><A NAME="2544_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1898_22">Win</A> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#475_13">Standard_Window</A>; + <A HREF="terminal_interface-curses__ads.htm#1899_22">Number_Of_Lines</A> : <A HREF="terminal_interface-curses__ads.htm#63_12">Line_Count</A>; + <A HREF="terminal_interface-curses__ads.htm#1900_22">Number_Of_Columns</A> : <A HREF="terminal_interface-curses__ads.htm#65_12">Column_Count</A>) <b>is</b> + <b>function</b> <FONT COLOR=red><A NAME="2547_16">wresize</A></FONT> (<FONT COLOR=red><A NAME="2547_25">win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="2548_25">lines</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <FONT COLOR=red><A NAME="2549_25">columns</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A>; + <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2547_16">wresize</A>); + <b>begin</b> + <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2547_16">wresize</A> (<A HREF="terminal_interface-curses__ads.htm#1898_22">Win</A>, + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1899_22">Number_Of_Lines</A>), + <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1900_22">Number_Of_Columns</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#73_4">Curses_Err</A> <b>then</b> + <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#383_4">Curses_Exception</A>; + <b>end</b> <b>if</b>; + <b>end</b> Resize; +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + +<b>end</b> Terminal_Interface.Curses; + +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface-curses__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface-curses__ads.htm new file mode 100644 index 0000000..5acab55 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface-curses__ads.htm @@ -0,0 +1,1940 @@ +<HTML><HEAD><TITLE>terminal_interface-curses.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses.ads </H1></DIV><HR> +<PRE> + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface.Curses --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.30 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- curses binding.</EM></FONT> +<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT> +<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT> +<FONT COLOR=green><EM>-- |</EM></FONT> +<b>with</b> <A HREF="interfac__ads.htm#23_9">System</A>.Storage_Elements; +<b>with</b> Interfaces.C; <FONT COLOR=green><EM>-- We need this for some assertions.</EM></FONT> + +<b>package</b> Terminal_Interface.Curses <b>is</b> + <b>pragma</b> Preelaborate (Terminal_Interface.Curses); + <b>pragma</b> Linker_Options ("-lncurses"); + + <FONT COLOR=red><A NAME="54_4">NC_Major_Version</A></FONT> : <b>constant</b> := 5; <FONT COLOR=green><EM>-- Major version of the library</EM></FONT> + <FONT COLOR=red><A NAME="55_4">NC_Minor_Version</A></FONT> : <b>constant</b> := 2; <FONT COLOR=green><EM>-- Minor version of the library</EM></FONT> + NC_Version : <b>constant</b> String := "5.2"; <FONT COLOR=green><EM>-- Version of library</EM></FONT> + + <b>type</b> Window <b>is</b> <b>private</b>; + Null_Window : <b>constant</b> Window; + + <b>type</b> <FONT COLOR=red><A NAME="61_9">Line_Position</A></FONT> <b>is</b> <b>new</b> Natural; <FONT COLOR=green><EM>-- line coordinate</EM></FONT> + <b>type</b> Column_Position <b>is</b> <b>new</b> Natural; <FONT COLOR=green><EM>-- column coordinate</EM></FONT> + + <b>subtype</b> Line_Count <b>is</b> Line_Position <b>range</b> 1 .. Line_Position'Last; + <FONT COLOR=green><EM>-- Type to count lines. We do not allow null windows, so must be positive</EM></FONT> + <b>subtype</b> Column_Count <b>is</b> Column_Position <b>range</b> 1 .. Column_Position'Last; + <FONT COLOR=green><EM>-- Type to count columns. We do not allow null windows, so must be positive</EM></FONT> + + <b>type</b> Key_Code <b>is</b> <b>new</b> Natural; + <FONT COLOR=green><EM>-- That is anything including real characters, special keys and logical</EM></FONT> + <FONT COLOR=green><EM>-- request codes.</EM></FONT> + + <b>subtype</b> Real_Key_Code <b>is</b> Key_Code <b>range</b> 0 .. 8#777#; + <FONT COLOR=green><EM>-- This are the codes that potentially represent a real keystroke.</EM></FONT> + <FONT COLOR=green><EM>-- Not all codes may be possible on a specific terminal. To check the</EM></FONT> + <FONT COLOR=green><EM>-- availability of a special key, the Has_Key function is provided.</EM></FONT> + + <b>subtype</b> Special_Key_Code <b>is</b> Real_Key_Code + <b>range</b> 8#400# .. Real_Key_Code'Last; + <FONT COLOR=green><EM>-- Type for a function- or special key number</EM></FONT> + + <b>subtype</b> Normal_Key_Code <b>is</b> Real_Key_Code <b>range</b> + Character'Pos (Character'First) .. Character'Pos (Character'Last); + <FONT COLOR=green><EM>-- This are the codes for regular (incl. non-graphical) characters.</EM></FONT> + + <FONT COLOR=green><EM>-- Constants for function- and special keys</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=red><A NAME="88_4">Key_None</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#400#; + <FONT COLOR=red><A NAME="89_4">Key_Code_Yes</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#400#; + <FONT COLOR=red><A NAME="90_4">Key_Min</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#401#; + <FONT COLOR=red><A NAME="91_4">Key_Break</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#401#; + <FONT COLOR=red><A NAME="92_4">Key_Cursor_Down</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#402#; + <FONT COLOR=red><A NAME="93_4">Key_Cursor_Up</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#403#; + <FONT COLOR=red><A NAME="94_4">Key_Cursor_Left</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#404#; + <FONT COLOR=red><A NAME="95_4">Key_Cursor_Right</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#405#; + <FONT COLOR=red><A NAME="96_4">Key_Home</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#406#; + <FONT COLOR=red><A NAME="97_4">Key_Backspace</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#407#; + <FONT COLOR=red><A NAME="98_4">Key_F0</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#410#; + <FONT COLOR=red><A NAME="99_4">Key_F1</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#411#; + <FONT COLOR=red><A NAME="100_4">Key_F2</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#412#; + <FONT COLOR=red><A NAME="101_4">Key_F3</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#413#; + <FONT COLOR=red><A NAME="102_4">Key_F4</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#414#; + <FONT COLOR=red><A NAME="103_4">Key_F5</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#415#; + <FONT COLOR=red><A NAME="104_4">Key_F6</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#416#; + <FONT COLOR=red><A NAME="105_4">Key_F7</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#417#; + <FONT COLOR=red><A NAME="106_4">Key_F8</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#420#; + <FONT COLOR=red><A NAME="107_4">Key_F9</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#421#; + <FONT COLOR=red><A NAME="108_4">Key_F10</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#422#; + <FONT COLOR=red><A NAME="109_4">Key_F11</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#423#; + <FONT COLOR=red><A NAME="110_4">Key_F12</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#424#; + <FONT COLOR=red><A NAME="111_4">Key_F13</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#425#; + <FONT COLOR=red><A NAME="112_4">Key_F14</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#426#; + <FONT COLOR=red><A NAME="113_4">Key_F15</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#427#; + <FONT COLOR=red><A NAME="114_4">Key_F16</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#430#; + <FONT COLOR=red><A NAME="115_4">Key_F17</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#431#; + <FONT COLOR=red><A NAME="116_4">Key_F18</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#432#; + <FONT COLOR=red><A NAME="117_4">Key_F19</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#433#; + <FONT COLOR=red><A NAME="118_4">Key_F20</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#434#; + <FONT COLOR=red><A NAME="119_4">Key_F21</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#435#; + <FONT COLOR=red><A NAME="120_4">Key_F22</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#436#; + <FONT COLOR=red><A NAME="121_4">Key_F23</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#437#; + <FONT COLOR=red><A NAME="122_4">Key_F24</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#440#; + <FONT COLOR=red><A NAME="123_4">Key_Delete_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#510#; + <FONT COLOR=red><A NAME="124_4">Key_Insert_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#511#; + <FONT COLOR=red><A NAME="125_4">Key_Delete_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#512#; + <FONT COLOR=red><A NAME="126_4">Key_Insert_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#513#; + <FONT COLOR=red><A NAME="127_4">Key_Exit_Insert_Mode</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#514#; + <FONT COLOR=red><A NAME="128_4">Key_Clear_Screen</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#515#; + <FONT COLOR=red><A NAME="129_4">Key_Clear_End_Of_Screen</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#516#; + <FONT COLOR=red><A NAME="130_4">Key_Clear_End_Of_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#517#; + <FONT COLOR=red><A NAME="131_4">Key_Scroll_1_Forward</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#520#; + <FONT COLOR=red><A NAME="132_4">Key_Scroll_1_Backward</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#521#; + <FONT COLOR=red><A NAME="133_4">Key_Next_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#522#; + <FONT COLOR=red><A NAME="134_4">Key_Previous_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#523#; + <FONT COLOR=red><A NAME="135_4">Key_Set_Tab</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#524#; + <FONT COLOR=red><A NAME="136_4">Key_Clear_Tab</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#525#; + <FONT COLOR=red><A NAME="137_4">Key_Clear_All_Tabs</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#526#; + <FONT COLOR=red><A NAME="138_4">Key_Enter_Or_Send</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#527#; + <FONT COLOR=red><A NAME="139_4">Key_Soft_Reset</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#530#; + <FONT COLOR=red><A NAME="140_4">Key_Reset</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#531#; + <FONT COLOR=red><A NAME="141_4">Key_Print</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#532#; + <FONT COLOR=red><A NAME="142_4">Key_Bottom</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#533#; + <FONT COLOR=red><A NAME="143_4">Key_Upper_Left_Of_Keypad</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#534#; + <FONT COLOR=red><A NAME="144_4">Key_Upper_Right_Of_Keypad</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#535#; + <FONT COLOR=red><A NAME="145_4">Key_Center_Of_Keypad</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#536#; + <FONT COLOR=red><A NAME="146_4">Key_Lower_Left_Of_Keypad</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#537#; + <FONT COLOR=red><A NAME="147_4">Key_Lower_Right_Of_Keypad</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#540#; + <FONT COLOR=red><A NAME="148_4">Key_Back_Tab</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#541#; + <FONT COLOR=red><A NAME="149_4">Key_Beginning</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#542#; + <FONT COLOR=red><A NAME="150_4">Key_Cancel</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#543#; + <FONT COLOR=red><A NAME="151_4">Key_Close</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#544#; + <FONT COLOR=red><A NAME="152_4">Key_Command</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#545#; + <FONT COLOR=red><A NAME="153_4">Key_Copy</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#546#; + <FONT COLOR=red><A NAME="154_4">Key_Create</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#547#; + <FONT COLOR=red><A NAME="155_4">Key_End</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#550#; + <FONT COLOR=red><A NAME="156_4">Key_Exit</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#551#; + <FONT COLOR=red><A NAME="157_4">Key_Find</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#552#; + <FONT COLOR=red><A NAME="158_4">Key_Help</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#553#; + <FONT COLOR=red><A NAME="159_4">Key_Mark</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#554#; + <FONT COLOR=red><A NAME="160_4">Key_Message</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#555#; + <FONT COLOR=red><A NAME="161_4">Key_Move</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#556#; + <FONT COLOR=red><A NAME="162_4">Key_Next</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#557#; + <FONT COLOR=red><A NAME="163_4">Key_Open</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#560#; + <FONT COLOR=red><A NAME="164_4">Key_Options</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#561#; + <FONT COLOR=red><A NAME="165_4">Key_Previous</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#562#; + <FONT COLOR=red><A NAME="166_4">Key_Redo</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#563#; + <FONT COLOR=red><A NAME="167_4">Key_Reference</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#564#; + <FONT COLOR=red><A NAME="168_4">Key_Refresh</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#565#; + <FONT COLOR=red><A NAME="169_4">Key_Replace</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#566#; + <FONT COLOR=red><A NAME="170_4">Key_Restart</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#567#; + <FONT COLOR=red><A NAME="171_4">Key_Resume</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#570#; + <FONT COLOR=red><A NAME="172_4">Key_Save</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#571#; + <FONT COLOR=red><A NAME="173_4">Key_Shift_Begin</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#572#; + <FONT COLOR=red><A NAME="174_4">Key_Shift_Cancel</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#573#; + <FONT COLOR=red><A NAME="175_4">Key_Shift_Command</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#574#; + <FONT COLOR=red><A NAME="176_4">Key_Shift_Copy</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#575#; + <FONT COLOR=red><A NAME="177_4">Key_Shift_Create</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#576#; + <FONT COLOR=red><A NAME="178_4">Key_Shift_Delete_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#577#; + <FONT COLOR=red><A NAME="179_4">Key_Shift_Delete_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#600#; + <FONT COLOR=red><A NAME="180_4">Key_Select</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#601#; + <FONT COLOR=red><A NAME="181_4">Key_Shift_End</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#602#; + <FONT COLOR=red><A NAME="182_4">Key_Shift_Clear_End_Of_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#603#; + <FONT COLOR=red><A NAME="183_4">Key_Shift_Exit</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#604#; + <FONT COLOR=red><A NAME="184_4">Key_Shift_Find</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#605#; + <FONT COLOR=red><A NAME="185_4">Key_Shift_Help</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#606#; + <FONT COLOR=red><A NAME="186_4">Key_Shift_Home</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#607#; + <FONT COLOR=red><A NAME="187_4">Key_Shift_Insert_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#610#; + <FONT COLOR=red><A NAME="188_4">Key_Shift_Cursor_Left</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#611#; + <FONT COLOR=red><A NAME="189_4">Key_Shift_Message</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#612#; + <FONT COLOR=red><A NAME="190_4">Key_Shift_Move</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#613#; + <FONT COLOR=red><A NAME="191_4">Key_Shift_Next_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#614#; + <FONT COLOR=red><A NAME="192_4">Key_Shift_Options</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#615#; + <FONT COLOR=red><A NAME="193_4">Key_Shift_Previous_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#616#; + <FONT COLOR=red><A NAME="194_4">Key_Shift_Print</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#617#; + <FONT COLOR=red><A NAME="195_4">Key_Shift_Redo</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#620#; + <FONT COLOR=red><A NAME="196_4">Key_Shift_Replace</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#621#; + <FONT COLOR=red><A NAME="197_4">Key_Shift_Cursor_Right</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#622#; + <FONT COLOR=red><A NAME="198_4">Key_Shift_Resume</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#623#; + <FONT COLOR=red><A NAME="199_4">Key_Shift_Save</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#624#; + <FONT COLOR=red><A NAME="200_4">Key_Shift_Suspend</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#625#; + <FONT COLOR=red><A NAME="201_4">Key_Shift_Undo</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#626#; + <FONT COLOR=red><A NAME="202_4">Key_Suspend</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#627#; + <FONT COLOR=red><A NAME="203_4">Key_Undo</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#630#; + <FONT COLOR=red><A NAME="204_4">Key_Mouse</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#631#; + Key_Resize : <b>constant</b> Special_Key_Code := 8#632#; + + Key_Max : <b>constant</b> Special_Key_Code + := Special_Key_Code'Last; + + <b>subtype</b> User_Key_Code <b>is</b> Key_Code + <b>range</b> (Key_Max + 129) .. Key_Code'Last; + <FONT COLOR=green><EM>-- This is reserved for user defined key codes. The range between Key_Max</EM></FONT> + <FONT COLOR=green><EM>-- and the first user code is reserved for subsystems like menu and forms.</EM></FONT> + + <FONT COLOR=green><EM>-- For those who like to use the original key names we produce them were</EM></FONT> + <FONT COLOR=green><EM>-- they differ from the original. Please note that they may differ in</EM></FONT> + <FONT COLOR=green><EM>-- lower/upper case.</EM></FONT> + <FONT COLOR=red><A NAME="218_4">KEY_DOWN</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#92_4">Key_Cursor_Down</A>; + <FONT COLOR=red><A NAME="219_4">KEY_UP</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#93_4">Key_Cursor_Up</A>; + <FONT COLOR=red><A NAME="220_4">KEY_LEFT</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#94_4">Key_Cursor_Left</A>; + <FONT COLOR=red><A NAME="221_4">KEY_RIGHT</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#122_4">Key_Cursor_Right</A>; + <FONT COLOR=red><A NAME="222_4">KEY_DL</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#123_4">Key_Delete_Line</A>; + <FONT COLOR=red><A NAME="223_4">KEY_IL</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#124_4">Key_Insert_Line</A>; + <FONT COLOR=red><A NAME="224_4">KEY_DC</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#125_4">Key_Delete_Char</A>; + <FONT COLOR=red><A NAME="225_4">KEY_IC</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#126_4">Key_Insert_Char</A>; + <FONT COLOR=red><A NAME="226_4">KEY_EIC</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#127_4">Key_Exit_Insert_Mode</A>; + <FONT COLOR=red><A NAME="227_4">KEY_CLEAR</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#128_4">Key_Clear_Screen</A>; + <FONT COLOR=red><A NAME="228_4">KEY_EOS</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#129_4">Key_Clear_End_Of_Screen</A>; + <FONT COLOR=red><A NAME="229_4">KEY_EOL</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#130_4">Key_Clear_End_Of_Line</A>; + <FONT COLOR=red><A NAME="230_4">KEY_SF</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#131_4">Key_Scroll_1_Forward</A>; + <FONT COLOR=red><A NAME="231_4">KEY_SR</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#132_4">Key_Scroll_1_Backward</A>; + <FONT COLOR=red><A NAME="232_4">KEY_NPAGE</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#133_4">Key_Next_Page</A>; + <FONT COLOR=red><A NAME="233_4">KEY_PPAGE</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#134_4">Key_Previous_Page</A>; + <FONT COLOR=red><A NAME="234_4">KEY_STAB</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#135_4">Key_Set_Tab</A>; + <FONT COLOR=red><A NAME="235_4">KEY_CTAB</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#136_4">Key_Clear_Tab</A>; + <FONT COLOR=red><A NAME="236_4">KEY_CATAB</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#137_4">Key_Clear_All_Tabs</A>; + <FONT COLOR=red><A NAME="237_4">KEY_ENTER</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#138_4">Key_Enter_Or_Send</A>; + <FONT COLOR=red><A NAME="238_4">KEY_SRESET</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#141_4">Key_Soft_Reset</A>; + <FONT COLOR=red><A NAME="239_4">KEY_LL</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#142_4">Key_Bottom</A>; + <FONT COLOR=red><A NAME="240_4">KEY_A1</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#143_4">Key_Upper_Left_Of_Keypad</A>; + <FONT COLOR=red><A NAME="241_4">KEY_A3</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#144_4">Key_Upper_Right_Of_Keypad</A>; + <FONT COLOR=red><A NAME="242_4">KEY_B2</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#145_4">Key_Center_Of_Keypad</A>; + <FONT COLOR=red><A NAME="243_4">KEY_C1</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#146_4">Key_Lower_Left_Of_Keypad</A>; + <FONT COLOR=red><A NAME="244_4">KEY_C3</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#147_4">Key_Lower_Right_Of_Keypad</A>; + <FONT COLOR=red><A NAME="245_4">KEY_BTAB</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#148_4">Key_Back_Tab</A>; + <FONT COLOR=red><A NAME="246_4">KEY_BEG</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#172_4">Key_Beginning</A>; + <FONT COLOR=red><A NAME="247_4">KEY_SBEG</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#173_4">Key_Shift_Begin</A>; + <FONT COLOR=red><A NAME="248_4">KEY_SCANCEL</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#174_4">Key_Shift_Cancel</A>; + <FONT COLOR=red><A NAME="249_4">KEY_SCOMMAND</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#175_4">Key_Shift_Command</A>; + <FONT COLOR=red><A NAME="250_4">KEY_SCOPY</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#176_4">Key_Shift_Copy</A>; + <FONT COLOR=red><A NAME="251_4">KEY_SCREATE</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#177_4">Key_Shift_Create</A>; + <FONT COLOR=red><A NAME="252_4">KEY_SDC</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#178_4">Key_Shift_Delete_Char</A>; + <FONT COLOR=red><A NAME="253_4">KEY_SDL</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#180_4">Key_Shift_Delete_Line</A>; + <FONT COLOR=red><A NAME="254_4">KEY_SEND</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#181_4">Key_Shift_End</A>; + <FONT COLOR=red><A NAME="255_4">KEY_SEOL</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#182_4">Key_Shift_Clear_End_Of_Line</A>; + <FONT COLOR=red><A NAME="256_4">KEY_SEXIT</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#183_4">Key_Shift_Exit</A>; + <FONT COLOR=red><A NAME="257_4">KEY_SFIND</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#184_4">Key_Shift_Find</A>; + <FONT COLOR=red><A NAME="258_4">KEY_SHELP</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#185_4">Key_Shift_Help</A>; + <FONT COLOR=red><A NAME="259_4">KEY_SHOME</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#186_4">Key_Shift_Home</A>; + <FONT COLOR=red><A NAME="260_4">KEY_SIC</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#187_4">Key_Shift_Insert_Char</A>; + <FONT COLOR=red><A NAME="261_4">KEY_SLEFT</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#188_4">Key_Shift_Cursor_Left</A>; + <FONT COLOR=red><A NAME="262_4">KEY_SMESSAGE</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#189_4">Key_Shift_Message</A>; + <FONT COLOR=red><A NAME="263_4">KEY_SMOVE</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#190_4">Key_Shift_Move</A>; + <FONT COLOR=red><A NAME="264_4">KEY_SNEXT</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#191_4">Key_Shift_Next_Page</A>; + <FONT COLOR=red><A NAME="265_4">KEY_SOPTIONS</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#192_4">Key_Shift_Options</A>; + <FONT COLOR=red><A NAME="266_4">KEY_SPREVIOUS</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#193_4">Key_Shift_Previous_Page</A>; + <FONT COLOR=red><A NAME="267_4">KEY_SPRINT</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#194_4">Key_Shift_Print</A>; + <FONT COLOR=red><A NAME="268_4">KEY_SREDO</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#195_4">Key_Shift_Redo</A>; + <FONT COLOR=red><A NAME="269_4">KEY_SREPLACE</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#196_4">Key_Shift_Replace</A>; + <FONT COLOR=red><A NAME="270_4">KEY_SRIGHT</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#197_4">Key_Shift_Cursor_Right</A>; + <FONT COLOR=red><A NAME="271_4">KEY_SRSUME</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#198_4">Key_Shift_Resume</A>; + <FONT COLOR=red><A NAME="272_4">KEY_SSAVE</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#199_4">Key_Shift_Save</A>; + <FONT COLOR=red><A NAME="273_4">KEY_SSUSPEND</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#200_4">Key_Shift_Suspend</A>; + KEY_SUNDO : Special_Key_Code <b>renames</b> Key_Shift_Undo; + +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> + + <b>type</b><A HREF="terminal_interface-curses__ads.htm#277_9"> </A>Color_Number <b>is</b> <b>range</b><A HREF="interfac__ads.htm#23_9"> </A>-1 .. Integer (Interfaces.C.short'Last); + <b>for</b> Color_Number'Size <b>use</b> Interfaces.C.short'Size; + <FONT COLOR=green><EM>-- (n)curses uses a short for the color index</EM></FONT> + <FONT COLOR=green><EM>-- The model is, that a Color_Number is an index into an array of</EM></FONT> + <FONT COLOR=green><EM>-- (potentially) definable colors. Some of those indices are</EM></FONT> + <FONT COLOR=green><EM>-- predefined (see below), although they may not really exist.</EM></FONT> + + <FONT COLOR=red><A NAME="285_4">Default_Color</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A> := -1; + <FONT COLOR=red><A NAME="286_4">Black</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A> := 0; + <FONT COLOR=red><A NAME="287_4">Red</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A> := 1; + <FONT COLOR=red><A NAME="288_4">Green</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A> := 2; + <FONT COLOR=red><A NAME="289_4">Yellow</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A> := 3; + <FONT COLOR=red><A NAME="290_4">Blue</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A> := 4; + <FONT COLOR=red><A NAME="291_4">Magenta</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A> := 5; + <FONT COLOR=red><A NAME="292_4">Cyan</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A> := 6; + White : <b>constant</b> Color_Number := 7; + + <b>type</b><A HREF="terminal_interface-curses__ads.htm#294_9"> </A>RGB_Value <b>is</b> <b>range</b><A HREF="interfac__ads.htm#23_9"> </A>0 .. Integer (Interfaces.C.short'Last); + <b>for</b> RGB_Value'Size <b>use</b> Interfaces.C.short'Size; + <FONT COLOR=green><EM>-- Some system may allow to redefine a color by setting RGB values.</EM></FONT> + + <b>type</b><A HREF="terminal_interface-curses__ads.htm#298_9"> </A>Color_Pair <b>is</b> <b>range</b> 0 .. 255; + <b>for</b> Color_Pair'Size <b>use</b> 8; + <b>subtype</b> Redefinable_Color_Pair <b>is</b> Color_Pair <b>range</b> 1 .. 255; + <FONT COLOR=green><EM>-- (n)curses reserves 1 Byte for the color-pair number. Color Pair 0</EM></FONT> + <FONT COLOR=green><EM>-- is fixed (Black & White). A color pair is simply a combination of</EM></FONT> + <FONT COLOR=green><EM>-- two colors described by Color_Numbers, one for the foreground and</EM></FONT> + <FONT COLOR=green><EM>-- the other for the background</EM></FONT> + + <b>type</b> Character_Attribute_Set <b>is</b> + <b>record</b> + <FONT COLOR=red><A NAME="309_10">Stand_Out</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="310_10">Under_Line</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="311_10">Reverse_Video</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="312_10">Blink</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="313_10">Dim_Character</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="314_10">Bold_Character</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="315_10">Alternate_Character_Set</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="316_10">Invisible_Character</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="317_10">Protected_Character</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="318_10">Horizontal</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="319_10">Left</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="320_10">Low</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="321_10">Right</A></FONT> : Boolean; + <FONT COLOR=red><A NAME="322_10">Top</A></FONT> : Boolean; + Vertical : Boolean; + <b>end</b> <b>record</b><A HREF="terminal_interface-curses__ads.htm#306_9">;</A> + <b>pragma</b> Pack (Character_Attribute_Set); + <b>pragma</b> Convention (C, Character_Attribute_Set); + + <b>for</b> Character_Attribute_Set <b>use</b> + <b>record</b> + Stand_Out <b>at</b> 0 <b>range</b> 0 .. 0; + Under_Line <b>at</b> 0 <b>range</b> 1 .. 1; + Reverse_Video <b>at</b> 0 <b>range</b> 2 .. 2; + Blink <b>at</b> 0 <b>range</b> 3 .. 3; + Dim_Character <b>at</b> 0 <b>range</b> 4 .. 4; + Bold_Character <b>at</b> 0 <b>range</b> 5 .. 5; + Alternate_Character_Set <b>at</b> 0 <b>range</b> 6 .. 6; + Invisible_Character <b>at</b> 0 <b>range</b> 7 .. 7; + Protected_Character <b>at</b> 0 <b>range</b> 8 .. 8; + Horizontal <b>at</b> 0 <b>range</b> 9 .. 9; + Left <b>at</b> 0 <b>range</b> 10 .. 10; + Low <b>at</b> 0 <b>range</b> 11 .. 11; + Right <b>at</b> 0 <b>range</b> 12 .. 12; + Top <b>at</b> 0 <b>range</b> 13 .. 13; + Vertical <b>at</b> 0 <b>range</b> 14 .. 14; + <b>end</b> <b>record</b>; + <b>for</b> Character_Attribute_Set'Size <b>use</b> 16; + <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> + <FONT COLOR=green><EM>-- different on your system.</EM></FONT> + <FONT COLOR=green><EM>-- (n)curses uses all but the lowest 16 Bits for Attributes.</EM></FONT> + + Normal_Video : <b>constant</b> Character_Attribute_Set := (<b>others</b> => False); + + <b>type</b> Attributed_Character <b>is</b> + <b>record</b> + <FONT COLOR=red><A NAME="355_10">Attr</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A>; + <FONT COLOR=red><A NAME="356_10">Color</A></FONT> : Color_Pair; + Ch : Character; + <b>end</b> <b>record</b>; + <b>pragma</b> Convention (C, Attributed_Character); + <FONT COLOR=green><EM>-- This is the counterpart for the chtype in C.</EM></FONT> + + <b>for</b> Attributed_Character <b>use</b> + <b>record</b> + Ch <b>at</b> 0 <b>range</b> 0 .. 7; + Color <b>at</b> 0 <b>range</b> 8 .. 15; + Attr <b>at</b> 0 <b>range</b> 16 .. 31; + <b>end</b> <b>record</b>; + <b>for</b> Attributed_Character'Size <b>use</b> 32; + <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> + <FONT COLOR=green><EM>-- different on your system.</EM></FONT> + + Default_Character : <b>constant</b> Attributed_Character + := (Ch => <A HREF="terminal_interface-curses__ads.htm#298_9">Character</A>'First, + Color => Color_Pair'First, + Attr => (<b>others</b> => False)); <FONT COLOR=green><EM>-- preelaboratable Normal_Video</EM></FONT> + + <b>type</b> Attributed_String <b>is</b> <b>array</b> (Positive <b>range</b> <>) <b>of</b> Attributed_Character; + <b>pragma</b> Pack (Attributed_String); + <FONT COLOR=green><EM>-- In this binding we allow strings of attributed characters.</EM></FONT> + + <FONT COLOR=green><EM>------------------</EM></FONT> + <FONT COLOR=green><EM>-- Exceptions --</EM></FONT> + <FONT COLOR=green><EM>------------------</EM></FONT> + <FONT COLOR=red><A NAME="384_4">Curses_Exception</A></FONT> : <b>exception</b>; + Wrong_Curses_Version : <b>exception</b>; + + <FONT COLOR=green><EM>-- Those exceptions are raised by the ETI (Extended Terminal Interface)</EM></FONT> + <FONT COLOR=green><EM>-- subpackets for Menu and Forms handling.</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=red><A NAME="390_4">Eti_System_Error</A></FONT> : <b>exception</b>; + <FONT COLOR=red><A NAME="391_4">Eti_Bad_Argument</A></FONT> : <b>exception</b>; + <FONT COLOR=red><A NAME="392_4">Eti_Posted</A></FONT> : <b>exception</b>; + <FONT COLOR=red><A NAME="393_4">Eti_Connected</A></FONT> : <b>exception</b>; + <FONT COLOR=red><A NAME="394_4">Eti_Bad_State</A></FONT> : <b>exception</b>; + <FONT COLOR=red><A NAME="395_4">Eti_No_Room</A></FONT> : <b>exception</b>; + <FONT COLOR=red><A NAME="396_4">Eti_Not_Posted</A></FONT> : <b>exception</b>; + <FONT COLOR=red><A NAME="397_4">Eti_Unknown_Command</A></FONT> : <b>exception</b>; + <FONT COLOR=red><A NAME="398_4">Eti_No_Match</A></FONT> : <b>exception</b>; + <FONT COLOR=red><A NAME="399_4">Eti_Not_Selectable</A></FONT> : <b>exception</b>; + <FONT COLOR=red><A NAME="400_4">Eti_Not_Connected</A></FONT> : <b>exception</b>; + <FONT COLOR=red><A NAME="401_4">Eti_Request_Denied</A></FONT> : <b>exception</b>; + <FONT COLOR=red><A NAME="402_4">Eti_Invalid_Field</A></FONT> : <b>exception</b>; + Eti_Current : <b>exception</b>; + + <FONT COLOR=green><EM>--------------------------------------------------------------------------</EM></FONT> + <FONT COLOR=green><EM>-- External C variables</EM></FONT> + <FONT COLOR=green><EM>-- Conceptually even in C this are kind of constants, but they are</EM></FONT> + <FONT COLOR=green><EM>-- initialized and sometimes changed by the library routines at runtime</EM></FONT> + <FONT COLOR=green><EM>-- depending on the type of terminal. I believe the best way to model</EM></FONT> + <FONT COLOR=green><EM>-- this is to use functions.</EM></FONT> + <FONT COLOR=green><EM>--------------------------------------------------------------------------</EM></FONT> + + <b>function</b> Lines <A HREF="terminal_interface-curses__ads.htm#412_13"> </A> <b>return</b> Line_Count; + <b>pragma</b> Inline (Lines); + + <b>function</b> Columns <b>return</b> Column_Count; + <b>pragma</b> Inline (Columns); + + <b>function</b> Tab_Size <b>return</b> Natural; + <b>pragma</b> Inline (Tab_Size); + + <b>function</b> Number_Of_Colors <b>return</b> Natural; + <b>pragma</b> Inline (Number_Of_Colors); + + <b>function</b> Number_Of_Color_Pairs <b>return</b> Natural; + <b>pragma</b> Inline (Number_Of_Color_Pairs); + + ACS_Map : <b>array</b> (Character'Val (0) .. Character'Val (127)) <b>of</b> + Attributed_Character; + <b>pragma</b> Import (C, ACS_Map, "acs_map"); + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=green><EM>-- Constants for several characters from the Alternate Character Set</EM></FONT> + <FONT COLOR=green><EM>-- You must use this constants as indices into the ACS_Map array</EM></FONT> + <FONT COLOR=green><EM>-- to get the corresponding attributed character at runtime.</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=red><A NAME="437_4">ACS_Upper_Left_Corner</A></FONT> : <b>constant</b> Character := 'l'; + <FONT COLOR=red><A NAME="438_4">ACS_Lower_Left_Corner</A></FONT> : <b>constant</b> Character := 'm'; + <FONT COLOR=red><A NAME="439_4">ACS_Upper_Right_Corner</A></FONT> : <b>constant</b> Character := 'k'; + <FONT COLOR=red><A NAME="440_4">ACS_Lower_Right_Corner</A></FONT> : <b>constant</b> Character := 'j'; + <FONT COLOR=red><A NAME="441_4">ACS_Left_Tee</A></FONT> : <b>constant</b> Character := 't'; + <FONT COLOR=red><A NAME="442_4">ACS_Right_Tee</A></FONT> : <b>constant</b> Character := 'u'; + <FONT COLOR=red><A NAME="443_4">ACS_Bottom_Tee</A></FONT> : <b>constant</b> Character := 'v'; + <FONT COLOR=red><A NAME="444_4">ACS_Top_Tee</A></FONT> : <b>constant</b> Character := 'w'; + <FONT COLOR=red><A NAME="445_4">ACS_Horizontal_Line</A></FONT> : <b>constant</b> Character := 'q'; + <FONT COLOR=red><A NAME="446_4">ACS_Vertical_Line</A></FONT> : <b>constant</b> Character := 'x'; + <FONT COLOR=red><A NAME="447_4">ACS_Plus_Symbol</A></FONT> : <b>constant</b> Character := 'n'; + <FONT COLOR=red><A NAME="448_4">ACS_Scan_Line_1</A></FONT> : <b>constant</b> Character := 'o'; + <FONT COLOR=red><A NAME="449_4">ACS_Scan_Line_9</A></FONT> : <b>constant</b> Character := 's'; + <FONT COLOR=red><A NAME="450_4">ACS_Diamond</A></FONT> : <b>constant</b> Character := Character'Val (96); + <FONT COLOR=red><A NAME="451_4">ACS_Checker_Board</A></FONT> : <b>constant</b> Character := 'a'; + <FONT COLOR=red><A NAME="452_4">ACS_Degree</A></FONT> : <b>constant</b> Character := 'f'; + <FONT COLOR=red><A NAME="453_4">ACS_Plus_Minus</A></FONT> : <b>constant</b> Character := 'g'; + <FONT COLOR=red><A NAME="454_4">ACS_Bullet</A></FONT> : <b>constant</b> Character := '~'; + <FONT COLOR=red><A NAME="455_4">ACS_Left_Arrow</A></FONT> : <b>constant</b> Character := ','; + <FONT COLOR=red><A NAME="456_4">ACS_Right_Arrow</A></FONT> : <b>constant</b> Character := '+'; + <FONT COLOR=red><A NAME="457_4">ACS_Down_Arrow</A></FONT> : <b>constant</b> Character := '.'; + <FONT COLOR=red><A NAME="458_4">ACS_Up_Arrow</A></FONT> : <b>constant</b> Character := '-'; + <FONT COLOR=red><A NAME="459_4">ACS_Board_Of_Squares</A></FONT> : <b>constant</b> Character := 'h'; + <FONT COLOR=red><A NAME="460_4">ACS_Lantern</A></FONT> : <b>constant</b> Character := 'i'; + <FONT COLOR=red><A NAME="461_4">ACS_Solid_Block</A></FONT> : <b>constant</b> Character := '0'; + <FONT COLOR=red><A NAME="462_4">ACS_Scan_Line_3</A></FONT> : <b>constant</b> Character := 'p'; + <FONT COLOR=red><A NAME="463_4">ACS_Scan_Line_7</A></FONT> : <b>constant</b> Character := 'r'; + <FONT COLOR=red><A NAME="464_4">ACS_Less_Or_Equal</A></FONT> : <b>constant</b> Character := 'y'; + <FONT COLOR=red><A NAME="465_4">ACS_Greater_Or_Equal</A></FONT> : <b>constant</b> Character := 'z'; + <FONT COLOR=red><A NAME="466_4">ACS_PI</A></FONT> : <b>constant</b> Character := '{'; + <FONT COLOR=red><A NAME="467_4">ACS_Not_Equal</A></FONT> : <b>constant</b> Character := '|'; + ACS_Sterling : <b>constant</b> Character := '}'; + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Not implemented: newterm, set_term, delscreen, curscr</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> + <b>function</b> Standard_Window <b>return</b> Window; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">stdscr</A></EM></FONT> + <b>pragma</b> Inline (Standard_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> + <b>procedure</b> Init_Screen; + + <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> + <b>procedure</b> Init_Windows <b>renames</b> Init_Screen; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">initscr()</A></EM></FONT> + <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#483_14">Init_Screen</A>); + <b>pragma</b> Inline (Init_Windows); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_4"#2|</EM></FONT> + <b>procedure</b> End_Windows; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">endwin()</A></EM></FONT> + <b>procedure</b> End_Screen <b>renames</b> End_Windows; + <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#491_14">End_Windows</A>); + <b>pragma</b> Inline (End_Screen); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_5"#2|</EM></FONT> + <b>function</b> Is_End_Window <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">isendwin()</A></EM></FONT> + <b>pragma</b> Inline (Is_End_Window); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_move.3x.html">curs_move.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_6"#2|</EM></FONT> + <b>procedure</b> Move_Cursor (<FONT COLOR=red><A NAME="506_27">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="507_27">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + Column : <b>in</b> Column_Position); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_move.3x.html">wmove()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: move()</EM></FONT> + <b>pragma</b> Inline (Move_Cursor); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_addch.3x.html">curs_addch.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_7"#2|</EM></FONT> + <b>procedure</b> Add (<FONT COLOR=red><A NAME="518_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Window</A> := Standard_Window; + Ch : <b>in</b> Attributed_Character); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addch.3x.html">waddch()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: addch()</EM></FONT> + + <b>procedure</b> Add (<FONT COLOR=red><A NAME="523_19">Win</A></FONT> : <b>in</b> Window := Standard_Window; + Ch : <b>in</b> Character); + <FONT COLOR=green><EM>-- Add a single character at the current logical cursor position to</EM></FONT> + <FONT COLOR=green><EM>-- the window. Use the current windows attributes.</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_8"#2|</EM></FONT> + <b>procedure</b> Add + (<FONT COLOR=red><A NAME="530_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="531_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="532_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Column_Position</A>; + Ch : <b>in</b> Attributed_Character); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addch.3x.html">mvwaddch()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvaddch()</EM></FONT> + + <b>procedure</b> Add + (<FONT COLOR=red><A NAME="538_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="539_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="540_7">Column</A></FONT> : <b>in</b> Column_Position; + Ch : <b>in</b> Character); + <FONT COLOR=green><EM>-- Move to the position and add a single character into the window</EM></FONT> + <FONT COLOR=green><EM>-- There are more Add routines, so the Inline pragma follows later</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_9"#2|</EM></FONT> + <b>procedure</b> Add_With_Immediate_Echo + (<FONT COLOR=red><A NAME="547_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Window</A> := Standard_Window; + Ch : <b>in</b> Attributed_Character); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addch.3x.html">wechochar()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: echochar()</EM></FONT> + + <b>procedure</b> Add_With_Immediate_Echo + (<FONT COLOR=red><A NAME="553_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + Ch : <b>in</b> Character); + <FONT COLOR=green><EM>-- Add a character and do an immediate refresh of the screen.</EM></FONT> + <b>pragma</b> Inline (Add_With_Immediate_Echo); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_window.3x.html">curs_window.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- Not Implemented: wcursyncup</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_10"#2|</EM></FONT> + <b>function</b> Create + (<FONT COLOR=red><A NAME="565_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + <FONT COLOR=red><A NAME="566_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Count</A>; + <FONT COLOR=red><A NAME="567_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + First_Column_Position : Column_Position) <b>return</b> Window; + <FONT COLOR=green><EM>-- Not Implemented: Default Number_Of_Lines, Number_Of_Columns</EM></FONT> + <FONT COLOR=green><EM>-- the C version lets them be 0, see the man page.</EM></FONT> + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">newwin()</A></EM></FONT> + <b>pragma</b> Inline (Create); + + <b>function</b> New_Window + (<FONT COLOR=red><A NAME="575_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + <FONT COLOR=red><A NAME="576_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Count</A>; + <FONT COLOR=red><A NAME="577_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + First_Column_Position : Column_Position) <b>return</b> Window + <b>renames</b> Create; + <b>pragma</b> Inline (New_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_11"#2|</EM></FONT> + <b>procedure</b> Delete (Win : <b>in</b> <b>out</b> Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">delwin()</A></EM></FONT> + <FONT COLOR=green><EM>-- Reset Win to Null_Window</EM></FONT> + <b>pragma</b> Inline (Delete); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_12"#2|</EM></FONT> + <b>function</b> Sub_Window + (<FONT COLOR=red><A NAME="590_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#63_12">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="591_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + <FONT COLOR=red><A NAME="592_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Count</A>; + <FONT COLOR=red><A NAME="593_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + First_Column_Position : Column_Position) <b>return</b> Window; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">subwin()</A></EM></FONT> + <b>pragma</b> Inline (Sub_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_13"#2|</EM></FONT> + <b>function</b> Derived_Window + (<FONT COLOR=red><A NAME="600_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#63_12">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="601_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + <FONT COLOR=red><A NAME="602_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Count</A>; + <FONT COLOR=red><A NAME="603_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + First_Column_Position : Column_Position) <b>return</b> Window; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">derwin()</A></EM></FONT> + <b>pragma</b> Inline (Derived_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_14"#2|</EM></FONT> + <b>function</b> Duplicate (Win : Window) <b>return</b> Window; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">dupwin()</A></EM></FONT> + <b>pragma</b> Inline (Duplicate); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_15"#2|</EM></FONT> + <b>procedure</b> Move_Window (<FONT COLOR=red><A NAME="614_27">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A>; + <FONT COLOR=red><A NAME="615_27">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + Column : <b>in</b> Column_Position); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">mvwin()</A></EM></FONT> + <b>pragma</b> Inline (Move_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_16"#2|</EM></FONT> + <b>procedure</b> Move_Derived_Window (<FONT COLOR=red><A NAME="621_35">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A>; + <FONT COLOR=red><A NAME="622_35">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + Column : <b>in</b> Column_Position); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">mvderwin()</A></EM></FONT> + <b>pragma</b> Inline (Move_Derived_Window); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_17"#2|</EM></FONT> + <b>procedure</b> Synchronize_Upwards (Win : <b>in</b> Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">wsyncup()</A></EM></FONT> + <b>pragma</b> Import (C, Synchronize_Upwards, "wsyncup"); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_18"#2|</EM></FONT> + <b>procedure</b> Synchronize_Downwards (Win : <b>in</b> Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">wsyncdown()</A></EM></FONT> + <b>pragma</b> Import (C, Synchronize_Downwards, "wsyncdown"); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_19"#2|</EM></FONT> + <b>procedure</b> Set_Synch_Mode (<FONT COLOR=red><A NAME="638_30">Win</A></FONT> : <b>in</b> Window := Standard_Window; + Mode : <b>in</b> Boolean := False); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">syncok()</A></EM></FONT> + <b>pragma</b> Inline (Set_Synch_Mode); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_addstr.3x.html">curs_addstr.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_20"#2|</EM></FONT> + <b>procedure</b> Add (<FONT COLOR=red><A NAME="648_19">Win</A></FONT> : <b>in</b> Window := Standard_Window; + <FONT COLOR=red><A NAME="649_19">Str</A></FONT> : <b>in</b> String; + Len : <b>in</b> Integer := -1); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addstr.3x.html">waddnstr()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: waddstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: addnstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: addstr()</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_21"#2|</EM></FONT> + <b>procedure</b> Add (<FONT COLOR=red><A NAME="657_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="658_19">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="659_19">Column</A></FONT> : <b>in</b> Column_Position; + <FONT COLOR=red><A NAME="660_19">Str</A></FONT> : <b>in</b> String; + Len : <b>in</b> Integer := -1); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addstr.3x.html">mvwaddnstr()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvwaddstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvaddnstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvaddstr()</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_addchstr.3x.html">curs_addchstr.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_22"#2|</EM></FONT> + <b>procedure</b> Add (<FONT COLOR=red><A NAME="672_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#376_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="673_19">Str</A></FONT> : <b>in</b> Attributed_String; + Len : <b>in</b> Integer := -1); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addchstr.3x.html">waddchnstr()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: waddchstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: addchnstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: addchstr()</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_23"#2|</EM></FONT> + <b>procedure</b> Add (<FONT COLOR=red><A NAME="681_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="682_19">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="683_19">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#376_9">Column_Position</A>; + <FONT COLOR=red><A NAME="684_19">Str</A></FONT> : <b>in</b> Attributed_String; + Len : <b>in</b> Integer := -1); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addchstr.3x.html">mvwaddchnstr()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvwaddchstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvaddchnstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvaddchstr()</EM></FONT> + <b>pragma</b> Inline (Add); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_border.3x.html">curs_border.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Not implemented: mvhline, mvwhline, mvvline, mvwvline</EM></FONT> + <FONT COLOR=green><EM>-- | use Move_Cursor then Horizontal_Line or Vertical_Line</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_24"#2|</EM></FONT> + <b>procedure</b> Border + (<FONT COLOR=red><A NAME="700_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="701_7">Left_Side_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <FONT COLOR=red><A NAME="702_7">Right_Side_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <FONT COLOR=red><A NAME="703_7">Top_Side_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <FONT COLOR=red><A NAME="704_7">Bottom_Side_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <FONT COLOR=red><A NAME="705_7">Upper_Left_Corner_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <FONT COLOR=red><A NAME="706_7">Upper_Right_Corner_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + <FONT COLOR=red><A NAME="707_7">Lower_Left_Corner_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + Lower_Right_Corner_Symbol : <b>in</b> Attributed_Character := Default_Character + ); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">wborder()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: border()</EM></FONT> + <b>pragma</b> Inline (Border); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_25"#2|</EM></FONT> + <b>procedure</b> Box + (<FONT COLOR=red><A NAME="716_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="717_7">Vertical_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#371_4">Default_Character</A>; + Horizontal_Symbol : <b>in</b> Attributed_Character := Default_Character); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">box()</A></EM></FONT> + <b>pragma</b> Inline (Box); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_26"#2|</EM></FONT> + <b>procedure</b> Horizontal_Line + (<FONT COLOR=red><A NAME="724_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + <FONT COLOR=red><A NAME="725_7">Line_Size</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Natural</A>; + Line_Symbol : <b>in</b> Attributed_Character := Default_Character); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">whline()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: hline()</EM></FONT> + <b>pragma</b> Inline (Horizontal_Line); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_27"#2|</EM></FONT> + <b>procedure</b> Vertical_Line + (<FONT COLOR=red><A NAME="733_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + <FONT COLOR=red><A NAME="734_7">Line_Size</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Natural</A>; + Line_Symbol : <b>in</b> Attributed_Character := Default_Character); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">wvline()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: vline()</EM></FONT> + <b>pragma</b> Inline (Vertical_Line); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_getch.3x.html">curs_getch.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- Not implemented: mvgetch, mvwgetch</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_28"#2|</EM></FONT> + <b>function</b> Get_Keystroke (Win : Window := Standard_Window) + <b>return</b> Real_Key_Code; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getch.3x.html">wgetch()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: getch()</EM></FONT> + <FONT COLOR=green><EM>-- Get a character from the keyboard and echo it - if enabled - to the</EM></FONT> + <FONT COLOR=green><EM>-- window.</EM></FONT> + <FONT COLOR=green><EM>-- If for any reason (i.e. a timeout) we couldn't get a character the</EM></FONT> + <FONT COLOR=green><EM>-- returned keycode is Key_None.</EM></FONT> + <b>pragma</b> Inline (Get_Keystroke); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_29"#2|</EM></FONT> + <b>procedure</b> Undo_Keystroke (Key : <b>in</b> Real_Key_Code); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getch.3x.html">ungetch()</A></EM></FONT> + <b>pragma</b> Inline (Undo_Keystroke); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_30"#2|</EM></FONT> + <b>function</b> Has_Key (Key : Special_Key_Code) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getch.3x.html">has_key()</A></EM></FONT> + <b>pragma</b> Inline (Has_Key); + + <FONT COLOR=green><EM>-- |</EM></FONT> + <FONT COLOR=green><EM>-- | Some helper functions</EM></FONT> + <FONT COLOR=green><EM>-- |</EM></FONT> + <b>function</b> Is_Function_Key (Key : Special_Key_Code) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- Return True if the Key is a function key (i.e. one of F0 .. F63)</EM></FONT> + <b>pragma</b> Inline (Is_Function_Key); + + <b>subtype</b> Function_Key_Number <b>is</b> Integer <b>range</b> 0 .. 63; + <FONT COLOR=green><EM>-- (n)curses allows for 64 function keys.</EM></FONT> + + <b>function</b> Function_Key (Key : Real_Key_Code) <b>return</b> Function_Key_Number; + <FONT COLOR=green><EM>-- Return the number of the function key. If the code is not a</EM></FONT> + <FONT COLOR=green><EM>-- function key, a CONSTRAINT_ERROR will be raised.</EM></FONT> + <b>pragma</b> Inline (Function_Key); + + <b>function</b> Function_Key_Code (Key : Function_Key_Number) <b>return</b> Real_Key_Code; + <FONT COLOR=green><EM>-- Return the key code for a given function-key number.</EM></FONT> + <b>pragma</b> Inline (Function_Key_Code); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Not implemented attr_off, wattr_off,</EM></FONT> + <FONT COLOR=green><EM>-- | attr_on, wattr_on, attr_set, wattr_set</EM></FONT> + + <FONT COLOR=green><EM>-- PAIR_NUMBER</EM></FONT> + <FONT COLOR=green><EM>-- PAIR_NUMBER(c) is the same as c.Color</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_31"#2|</EM></FONT> + <b>procedure</b> Standout (<FONT COLOR=red><A NAME="795_24">Win</A></FONT> : Window := Standard_Window; + On : Boolean := True); + <FONT COLOR=green><EM>-- AKA: wstandout()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: wstandend()</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_32"#2|</EM></FONT> + <b>procedure</b> Switch_Character_Attribute + (<FONT COLOR=red><A NAME="802_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="803_7">Attr</A></FONT> : <b>in</b> Character_Attribute_Set := Normal_Video; + On : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- if False we switch Off.</EM></FONT> + <FONT COLOR=green><EM>-- Switches those Attributes set to true in the list.</EM></FONT> + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattron()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: wattroff()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: attron()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: attroff()</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_33"#2|</EM></FONT> + <b>procedure</b> Set_Character_Attributes + (<FONT COLOR=red><A NAME="813_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="814_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A> := Normal_Video; + Color : <b>in</b> Color_Pair := Color_Pair'First); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattrset()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: attrset()</EM></FONT> + <b>pragma</b> Inline (Set_Character_Attributes); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_34"#2|</EM></FONT> + <b>function</b> Get_Character_Attribute + (Win : <b>in</b> Window := Standard_Window) <b>return</b> Character_Attribute_Set; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattr_get()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: attr_get()</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_35"#2|</EM></FONT> + <b>function</b> Get_Character_Attribute + (Win : <b>in</b> Window := Standard_Window) <b>return</b> Color_Pair; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattr_get()</A></EM></FONT> + <b>pragma</b> Inline (Get_Character_Attribute); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_36"#2|</EM></FONT> + <b>procedure</b> Set_Color (<FONT COLOR=red><A NAME="833_25">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Window</A> := Standard_Window; + Pair : <b>in</b> Color_Pair); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wcolor_set()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: color_set()</EM></FONT> + <b>pragma</b> Inline (Set_Color); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_37"#2|</EM></FONT> + <b>procedure</b> Change_Attributes + (<FONT COLOR=red><A NAME="841_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + <FONT COLOR=red><A NAME="842_7">Count</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Integer</A> := -1; + <FONT COLOR=red><A NAME="843_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A> := Normal_Video; + Color : <b>in</b> Color_Pair := Color_Pair'First); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wchgat()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: chgat()</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_38"#2|</EM></FONT> + <b>procedure</b> Change_Attributes + (<FONT COLOR=red><A NAME="850_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="851_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A> := Line_Position'First; + <FONT COLOR=red><A NAME="852_7">Column</A></FONT> : <b>in</b> Column_Position := Column_Position'First; + <FONT COLOR=red><A NAME="853_7">Count</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#306_9">Integer</A> := -1; + <FONT COLOR=red><A NAME="854_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A> := Normal_Video; + Color : <b>in</b> Color_Pair := Color_Pair'First); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">mvwchgat()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvchgat()</EM></FONT> + <b>pragma</b> Inline (Change_Attributes); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_beep.3x.html">curs_beep.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_39"#2|</EM></FONT> + <b>procedure</b> Beep; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_beep.3x.html">beep()</A></EM></FONT> + <b>pragma</b> Inline (Beep); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_40"#2|</EM></FONT> + <b>procedure</b> Flash_Screen; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_beep.3x.html">flash()</A></EM></FONT> + <b>pragma</b> Inline (Flash_Screen); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- | Not implemented : typeahead</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=green><EM>-- #1A NAME="AFU_41"#2|</EM></FONT> + <b>procedure</b> Set_Cbreak_Mode (SwitchOn : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">cbreak()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: nocbreak()</EM></FONT> + <b>pragma</b> Inline (Set_Cbreak_Mode); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_42"#2|</EM></FONT> + <b>procedure</b> Set_Raw_Mode (SwitchOn : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">raw()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: noraw()</EM></FONT> + <b>pragma</b> Inline (Set_Raw_Mode); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_43"#2|</EM></FONT> + <b>procedure</b> Set_Echo_Mode (SwitchOn : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">echo()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: noecho()</EM></FONT> + <b>pragma</b> Inline (Set_Echo_Mode); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_44"#2|</EM></FONT> + <b>procedure</b> Set_Meta_Mode (<FONT COLOR=red><A NAME="899_29">Win</A></FONT> : <b>in</b> Window := Standard_Window; + SwitchOn : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">meta()</A></EM></FONT> + <b>pragma</b> Inline (Set_Meta_Mode); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_45"#2|</EM></FONT> + <b>procedure</b> Set_KeyPad_Mode (<FONT COLOR=red><A NAME="905_31">Win</A></FONT> : <b>in</b> Window := Standard_Window; + SwitchOn : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">keypad()</A></EM></FONT> + <b>pragma</b> Inline (Set_KeyPad_Mode); + + <b>function</b> Get_KeyPad_Mode (Win : <b>in</b> Window := Standard_Window) + <b>return</b> Boolean; + <FONT COLOR=green><EM>-- This has no pendant in C. There you've to look into the WINDOWS</EM></FONT> + <FONT COLOR=green><EM>-- structure to get the value. Bad practice, not repeated in Ada.</EM></FONT> + + <b>type</b> Half_Delay_Amount <b>is</b> <b>range</b> 1 .. 255; + + <FONT COLOR=green><EM>-- #1A NAME="AFU_46"#2|</EM></FONT> + <b>procedure</b> Half_Delay (Amount : <b>in</b> Half_Delay_Amount); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">halfdelay()</A></EM></FONT> + <b>pragma</b> Inline (Half_Delay); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_47"#2|</EM></FONT> + <b>procedure</b> Set_Flush_On_Interrupt_Mode + (<FONT COLOR=red><A NAME="924_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + Mode : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">intrflush()</A></EM></FONT> + <b>pragma</b> Inline (Set_Flush_On_Interrupt_Mode); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_48"#2|</EM></FONT> + <b>procedure</b> Set_Queue_Interrupt_Mode + (<FONT COLOR=red><A NAME="931_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + Flush : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">qiflush()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: noqiflush()</EM></FONT> + <b>pragma</b> Inline (Set_Queue_Interrupt_Mode); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_49"#2|</EM></FONT> + <b>procedure</b> Set_NoDelay_Mode + (<FONT COLOR=red><A NAME="939_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + Mode : <b>in</b> Boolean := False); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">nodelay()</A></EM></FONT> + <b>pragma</b> Inline (Set_NoDelay_Mode); + + <b>type</b> Timeout_Mode <b>is</b> (Blocking, Non_Blocking, Delayed); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_50"#2|</EM></FONT> + <b>procedure</b> Set_Timeout_Mode (<FONT COLOR=red><A NAME="947_32">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#943_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="948_32">Mode</A></FONT> : <b>in</b> Timeout_Mode; + Amount : <b>in</b> Natural); <FONT COLOR=green><EM>-- in Milliseconds</EM></FONT> + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">wtimeout()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: timeout()</EM></FONT> + <FONT COLOR=green><EM>-- Instead of overloading the semantic of the sign of amount, we</EM></FONT> + <FONT COLOR=green><EM>-- introduce the Timeout_Mode parameter. This should improve</EM></FONT> + <FONT COLOR=green><EM>-- readability. For Blocking and Non_Blocking, the Amount is not</EM></FONT> + <FONT COLOR=green><EM>-- evaluated.</EM></FONT> + <FONT COLOR=green><EM>-- We don't inline this procedure.</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_51"#2|</EM></FONT> + <b>procedure</b> Set_Escape_Timer_Mode + (<FONT COLOR=red><A NAME="960_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + Timer_Off : <b>in</b> Boolean := False); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">notimeout()</A></EM></FONT> + <b>pragma</b> Inline (Set_Escape_Timer_Mode); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_52"#2|</EM></FONT> + <b>procedure</b> Set_NL_Mode (SwitchOn : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">nl()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: nonl()</EM></FONT> + <b>pragma</b> Inline (Set_NL_Mode); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_53"#2|</EM></FONT> + <b>procedure</b> Clear_On_Next_Update + (<FONT COLOR=red><A NAME="977_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + Do_Clear : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">clearok()</A></EM></FONT> + <b>pragma</b> Inline (Clear_On_Next_Update); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_54"#2|</EM></FONT> + <b>procedure</b> Use_Insert_Delete_Line + (<FONT COLOR=red><A NAME="984_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + Do_Idl : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">idlok()</A></EM></FONT> + <b>pragma</b> Inline (Use_Insert_Delete_Line); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_55"#2|</EM></FONT> + <b>procedure</b> Use_Insert_Delete_Character + (<FONT COLOR=red><A NAME="991_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + Do_Idc : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">idcok()</A></EM></FONT> + <b>pragma</b> Inline (Use_Insert_Delete_Character); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_56"#2|</EM></FONT> + <b>procedure</b> Leave_Cursor_After_Update + (<FONT COLOR=red><A NAME="998_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + Do_Leave : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">leaveok()</A></EM></FONT> + <b>pragma</b> Inline (Leave_Cursor_After_Update); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_57"#2|</EM></FONT> + <b>procedure</b> Immediate_Update_Mode + (<FONT COLOR=red><A NAME="1005_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + Mode : <b>in</b> Boolean := False); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">immedok()</A></EM></FONT> + <b>pragma</b> Inline (Immediate_Update_Mode); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_58"#2|</EM></FONT> + <b>procedure</b> Allow_Scrolling + (<FONT COLOR=red><A NAME="1012_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + Mode : <b>in</b> Boolean := False); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">scrollok()</A></EM></FONT> + <b>pragma</b> Inline (Allow_Scrolling); + + <b>function</b> Scrolling_Allowed (Win : Window := Standard_Window) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- There is no such function in the C interface.</EM></FONT> + <b>pragma</b> Inline (Scrolling_Allowed); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_59"#2|</EM></FONT> + <b>procedure</b> Set_Scroll_Region + (<FONT COLOR=red><A NAME="1023_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="1024_7">Top_Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; + Bottom_Line : <b>in</b> Line_Position); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">wsetscrreg()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: setscrreg()</EM></FONT> + <b>pragma</b> Inline (Set_Scroll_Region); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_60"#2|</EM></FONT> + <b>procedure</b> Update_Screen; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">doupdate()</A></EM></FONT> + <b>pragma</b> Inline (Update_Screen); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_61"#2|</EM></FONT> + <b>procedure</b> Refresh (Win : <b>in</b> Window := Standard_Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">wrefresh()</A></EM></FONT> + <FONT COLOR=green><EM>-- There is an overloaded Refresh for Pads.</EM></FONT> + <FONT COLOR=green><EM>-- The Inline pragma appears there</EM></FONT> + <FONT COLOR=green><EM>-- AKA: refresh()</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_62"#2|</EM></FONT> + <b>procedure</b> Refresh_Without_Update + (Win : <b>in</b> Window := Standard_Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">wnoutrefresh()</A></EM></FONT> + <FONT COLOR=green><EM>-- There is an overloaded Refresh_Without_Update for Pads.</EM></FONT> + <FONT COLOR=green><EM>-- The Inline pragma appears there</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_63"#2|</EM></FONT> + <b>procedure</b> Redraw (Win : <b>in</b> Window := Standard_Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">redrawwin()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_64"#2|</EM></FONT> + <b>procedure</b> Redraw (<FONT COLOR=red><A NAME="1058_22">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="1059_22">Begin_Line</A></FONT> : <b>in</b> Line_Position; + Line_Count : <b>in</b> Positive); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">wredrawln()</A></EM></FONT> + <b>pragma</b> Inline (Redraw); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_clear.3x.html">curs_clear.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_65"#2|</EM></FONT> + <b>procedure</b> Erase (Win : <b>in</b> Window := Standard_Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">werase()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: erase()</EM></FONT> + <b>pragma</b> Inline (Erase); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_66"#2|</EM></FONT> + <b>procedure</b> Clear + (Win : <b>in</b> Window := Standard_Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">wclear()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: clear()</EM></FONT> + <b>pragma</b> Inline (Clear); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_67"#2|</EM></FONT> + <b>procedure</b> Clear_To_End_Of_Screen + (Win : <b>in</b> Window := Standard_Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">wclrtobot()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: clrtobot()</EM></FONT> + <b>pragma</b> Inline (Clear_To_End_Of_Screen); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_68"#2|</EM></FONT> + <b>procedure</b> Clear_To_End_Of_Line + (Win : <b>in</b> Window := Standard_Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">wclrtoeol()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: clrtoeol()</EM></FONT> + <b>pragma</b> Inline (Clear_To_End_Of_Line); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_bkgd.3x.html">curs_bkgd.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_69"#2|</EM></FONT> + <FONT COLOR=green><EM>-- TODO: we could have Set_Background(Window; Character_Attribute_Set)</EM></FONT> + <FONT COLOR=green><EM>-- because in C it is common to see bkgdset(A_BOLD) or</EM></FONT> + <FONT COLOR=green><EM>-- bkgdset(COLOR_PAIR(n))</EM></FONT> + <b>procedure</b> Set_Background + (<FONT COLOR=red><A NAME="1104_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Window</A> := Standard_Window; + Ch : <b>in</b> Attributed_Character); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgdset()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: bkgdset()</EM></FONT> + <b>pragma</b> Inline (Set_Background); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_70"#2|</EM></FONT> + <b>procedure</b> Change_Background + (<FONT COLOR=red><A NAME="1112_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Window</A> := Standard_Window; + Ch : <b>in</b> Attributed_Character); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgd()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: bkgd()</EM></FONT> + <b>pragma</b> Inline (Change_Background); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_71"#2|</EM></FONT> + <FONT COLOR=green><EM>-- ? wbkgdget is not listed in curs_bkgd, getbkgd is thpough.</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Get_Background</A> (Win : Window := Standard_Window) + <b>return</b> Attributed_Character; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgdget()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: bkgdget()</EM></FONT> + <b>pragma</b> Inline (Get_Background); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_72"#2|</EM></FONT> + <b>procedure</b> Untouch (Win : <b>in</b> Window := Standard_Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">untouchwin()</A></EM></FONT> + <b>pragma</b> Inline (Untouch); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_73"#2|</EM></FONT> + <b>procedure</b> Touch (Win : <b>in</b> Window := Standard_Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">touchwin()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_74"#2|</EM></FONT> + <b>procedure</b> Touch (<FONT COLOR=red><A NAME="1140_21">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="1141_21">Start</A></FONT> : <b>in</b> Line_Position; + Count : <b>in</b> Positive); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">touchline()</A></EM></FONT> + <b>pragma</b> Inline (Touch); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_75"#2|</EM></FONT> + <b>procedure</b> Change_Lines_Status (<FONT COLOR=red><A NAME="1147_35">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="1148_35">Start</A></FONT> : <b>in</b> Line_Position; + <FONT COLOR=red><A NAME="1149_35">Count</A></FONT> : <b>in</b> Positive; + State : <b>in</b> Boolean); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">wtouchln()</A></EM></FONT> + <b>pragma</b> Inline (Change_Lines_Status); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_76"#2|</EM></FONT> + <b>function</b> Is_Touched (<FONT COLOR=red><A NAME="1155_25">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + Line : Line_Position) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">is_linetouched()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_77"#2|</EM></FONT> + <b>function</b> Is_Touched (Win : Window := Standard_Window) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">is_wintouched()</A></EM></FONT> + <b>pragma</b> Inline (Is_Touched); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_overlay.3x.html">curs_overlay.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_78"#2|</EM></FONT> + <b>procedure</b> Copy + (<FONT COLOR=red><A NAME="1170_7">Source_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + <FONT COLOR=red><A NAME="1171_7">Destination_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A>; + <FONT COLOR=red><A NAME="1172_7">Source_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1173_7">Source_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; + <FONT COLOR=red><A NAME="1174_7">Destination_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1175_7">Destination_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; + <FONT COLOR=red><A NAME="1176_7">Destination_Bottom_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1177_7">Destination_Right_Column</A></FONT> : <b>in</b> Column_Position; + Non_Destructive_Mode : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_overlay.3x.html">copywin()</A></EM></FONT> + <b>pragma</b> Inline (Copy); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_79"#2|</EM></FONT> + <b>procedure</b> Overwrite (<FONT COLOR=red><A NAME="1183_25">Source_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + Destination_Window : <b>in</b> Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_overlay.3x.html">overwrite()</A></EM></FONT> + <b>pragma</b> Inline (Overwrite); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_80"#2|</EM></FONT> + <b>procedure</b> Overlay (<FONT COLOR=red><A NAME="1189_23">Source_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Window</A>; + Destination_Window : <b>in</b> Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_overlay.3x.html">overlay()</A></EM></FONT> + <b>pragma</b> Inline (Overlay); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_deleteln.3x.html">curs_deleteln.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_81"#2|</EM></FONT> + <b>procedure</b> Insert_Delete_Lines + (<FONT COLOR=red><A NAME="1200_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + Lines : <b>in</b> Integer := 1); <FONT COLOR=green><EM>-- default is to insert one line above</EM></FONT> + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_deleteln.3x.html">winsdelln()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: insdelln()</EM></FONT> + <b>pragma</b> Inline (Insert_Delete_Lines); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_82"#2|</EM></FONT> + <b>procedure</b> Delete_Line (Win : <b>in</b> Window := Standard_Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_deleteln.3x.html">wdeleteln()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: deleteln()</EM></FONT> + <b>pragma</b> Inline (Delete_Line); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_83"#2|</EM></FONT> + <b>procedure</b> Insert_Line (Win : <b>in</b> Window := Standard_Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_deleteln.3x.html">winsertln()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: insertln()</EM></FONT> + <b>pragma</b> Inline (Insert_Line); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_getyx.3x.html">curs_getyx.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_84"#2|</EM></FONT> + <b>procedure</b> Get_Size + (<FONT COLOR=red><A NAME="1224_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + <FONT COLOR=red><A NAME="1225_7">Number_Of_Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + Number_Of_Columns : <b>out</b> Column_Count); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getyx.3x.html">getmaxyx()</A></EM></FONT> + <b>pragma</b> Inline (Get_Size); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_85"#2|</EM></FONT> + <b>procedure</b> Get_Window_Position + (<FONT COLOR=red><A NAME="1232_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; + <FONT COLOR=red><A NAME="1233_7">Top_Left_Line</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + Top_Left_Column : <b>out</b> Column_Position); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getyx.3x.html">getbegyx()</A></EM></FONT> + <b>pragma</b> Inline (Get_Window_Position); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_86"#2|</EM></FONT> + <b>procedure</b> Get_Cursor_Position + (<FONT COLOR=red><A NAME="1240_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="1241_7">Line</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + Column : <b>out</b> Column_Position); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getyx.3x.html">getyx()</A></EM></FONT> + <b>pragma</b> Inline (Get_Cursor_Position); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_87"#2|</EM></FONT> + <b>procedure</b> Get_Origin_Relative_To_Parent + (<FONT COLOR=red><A NAME="1248_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A>; + <FONT COLOR=red><A NAME="1249_7">Top_Left_Line</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1250_7">Top_Left_Column</A></FONT> : <b>out</b> Column_Position; + Is_Not_A_Subwindow : <b>out</b> Boolean); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getyx.3x.html">getparyx()</A></EM></FONT> + <FONT COLOR=green><EM>-- Instead of placing -1 in the coordinates as return, we use a boolean</EM></FONT> + <FONT COLOR=green><EM>-- to return the info that the window has no parent.</EM></FONT> + <b>pragma</b> Inline (Get_Origin_Relative_To_Parent); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_pad.3x.html">curs_pad.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_88"#2|</EM></FONT> + <b>function</b> New_Pad (<FONT COLOR=red><A NAME="1262_22">Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + Columns : Column_Count) <b>return</b> Window; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_pad.3x.html">newpad()</A></EM></FONT> + <b>pragma</b> Inline (New_Pad); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_89"#2|</EM></FONT> + <b>function</b> Sub_Pad + (<FONT COLOR=red><A NAME="1269_7">Pad</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#63_12">Window</A>; + <FONT COLOR=red><A NAME="1270_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + <FONT COLOR=red><A NAME="1271_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Count</A>; + <FONT COLOR=red><A NAME="1272_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + First_Column_Position : Column_Position) <b>return</b> Window; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_pad.3x.html">subpad()</A></EM></FONT> + <b>pragma</b> Inline (Sub_Pad); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_90"#2|</EM></FONT> + <b>procedure</b> Refresh + (<FONT COLOR=red><A NAME="1279_7">Pad</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A>; + <FONT COLOR=red><A NAME="1280_7">Source_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1281_7">Source_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; + <FONT COLOR=red><A NAME="1282_7">Destination_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1283_7">Destination_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; + <FONT COLOR=red><A NAME="1284_7">Destination_Bottom_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + Destination_Right_Column : <b>in</b> Column_Position); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_pad.3x.html">prefresh()</A></EM></FONT> + <b>pragma</b> Inline (Refresh); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_91"#2|</EM></FONT> + <b>procedure</b> Refresh_Without_Update + (<FONT COLOR=red><A NAME="1291_7">Pad</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A>; + <FONT COLOR=red><A NAME="1292_7">Source_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1293_7">Source_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; + <FONT COLOR=red><A NAME="1294_7">Destination_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1295_7">Destination_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; + <FONT COLOR=red><A NAME="1296_7">Destination_Bottom_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + Destination_Right_Column : <b>in</b> Column_Position); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_pad.3x.html">pnoutrefresh()</A></EM></FONT> + <b>pragma</b> Inline (Refresh_Without_Update); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_92"#2|</EM></FONT> + <b>procedure</b> Add_Character_To_Pad_And_Echo_It + (<FONT COLOR=red><A NAME="1303_7">Pad</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Window</A>; + Ch : <b>in</b> Attributed_Character); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_pad.3x.html">pechochar()</A></EM></FONT> + + <b>procedure</b> Add_Character_To_Pad_And_Echo_It + (<FONT COLOR=red><A NAME="1308_7">Pad</A></FONT> : <b>in</b> Window; + Ch : <b>in</b> Character); + <b>pragma</b> Inline (Add_Character_To_Pad_And_Echo_It); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_scroll.3x.html">curs_scroll.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_93"#2|</EM></FONT> + <b>procedure</b> Scroll (<FONT COLOR=red><A NAME="1317_22">Win</A></FONT> : <b>in</b> Window := Standard_Window; + Amount : <b>in</b> Integer := 1); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_scroll.3x.html">wscrl()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: scroll()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: scrl()</EM></FONT> + <b>pragma</b> Inline (Scroll); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_delch.3x.html">curs_delch.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_94"#2|</EM></FONT> + <b>procedure</b> Delete_Character (Win : <b>in</b> Window := Standard_Window); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_delch.3x.html">wdelch()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: delch()</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_95"#2|</EM></FONT> + <b>procedure</b> Delete_Character + (<FONT COLOR=red><A NAME="1335_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="1336_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + Column : <b>in</b> Column_Position); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_delch.3x.html">mvwdelch()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvdelch()</EM></FONT> + <b>pragma</b> Inline (Delete_Character); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_inch.3x.html">curs_inch.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_96"#2|</EM></FONT> + <b>function</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Peek</A> (Win : Window := Standard_Window) + <b>return</b> Attributed_Character; + <FONT COLOR=green><EM>-- AKA: inch()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inch.3x.html">winch()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_97"#2|</EM></FONT> + <b>function</b> Peek + (<FONT COLOR=red><A NAME="1354_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="1355_7">Line</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + Column : Column_Position) <b>return</b> Attributed_Character; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inch.3x.html">mvwinch()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvinch()</EM></FONT> + <FONT COLOR=green><EM>-- More Peek's follow, pragma Inline appears later.</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_insch.3x.html">curs_insch.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_98"#2|</EM></FONT> + <b>procedure</b> Insert (<FONT COLOR=red><A NAME="1366_22">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Window</A> := Standard_Window; + Ch : <b>in</b> Attributed_Character); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_insch.3x.html">winsch()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: insch()</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_99"#2|</EM></FONT> + <b>procedure</b> Insert (<FONT COLOR=red><A NAME="1372_22">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="1373_22">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1374_22">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#352_9">Column_Position</A>; + Ch : <b>in</b> Attributed_Character); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_insch.3x.html">mvwinsch()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvinsch()</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_insstr.3x.html">curs_insstr.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_100"#2|</EM></FONT> + <b>procedure</b> Insert (<FONT COLOR=red><A NAME="1384_22">Win</A></FONT> : <b>in</b> Window := Standard_Window; + <FONT COLOR=red><A NAME="1385_22">Str</A></FONT> : <b>in</b> String; + Len : <b>in</b> Integer := -1); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_insstr.3x.html">winsnstr()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: winsstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: insnstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: insstr()</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_101"#2|</EM></FONT> + <b>procedure</b> Insert (<FONT COLOR=red><A NAME="1393_22">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="1394_22">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1395_22">Column</A></FONT> : <b>in</b> Column_Position; + <FONT COLOR=red><A NAME="1396_22">Str</A></FONT> : <b>in</b> String; + Len : <b>in</b> Integer := -1); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_insstr.3x.html">mvwinsnstr()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvwinsstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvinsnstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvinsstr()</EM></FONT> + <b>pragma</b> Inline (Insert); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_instr.3x.html">curs_instr.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_102"#2|</EM></FONT> + <b>procedure</b> Peek (<FONT COLOR=red><A NAME="1409_20">Win</A></FONT> : <b>in</b> Window := Standard_Window; + <FONT COLOR=red><A NAME="1410_20">Str</A></FONT> : <b>out</b> String; + Len : <b>in</b> Integer := -1); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_instr.3x.html">winnstr()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: winstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: innstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: instr()</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_103"#2|</EM></FONT> + <b>procedure</b> Peek (<FONT COLOR=red><A NAME="1418_20">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="1419_20">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1420_20">Column</A></FONT> : <b>in</b> Column_Position; + <FONT COLOR=red><A NAME="1421_20">Str</A></FONT> : <b>out</b> String; + Len : <b>in</b> Integer := -1); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_instr.3x.html">mvwinnstr()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvwinstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvinnstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvinstr()</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_inchstr.3x.html">curs_inchstr.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_104"#2|</EM></FONT> + <b>procedure</b> Peek (<FONT COLOR=red><A NAME="1433_20">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#376_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="1434_20">Str</A></FONT> : <b>out</b> Attributed_String; + Len : <b>in</b> Integer := -1); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inchstr.3x.html">winchnstr()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: winchstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: inchnstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: inchstr()</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_105"#2|</EM></FONT> + <b>procedure</b> Peek (<FONT COLOR=red><A NAME="1442_20">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="1443_20">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1444_20">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#376_9">Column_Position</A>; + <FONT COLOR=red><A NAME="1445_20">Str</A></FONT> : <b>out</b> Attributed_String; + Len : <b>in</b> Integer := -1); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inchstr.3x.html">mvwinchnstr()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvwinchstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvinchnstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvinchstr()</EM></FONT> + <FONT COLOR=green><EM>-- We don't inline the Peek procedures</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_getstr.3x.html">curs_getstr.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_106"#2|</EM></FONT> + <b>procedure</b> Get (<FONT COLOR=red><A NAME="1458_19">Win</A></FONT> : <b>in</b> Window := Standard_Window; + <FONT COLOR=red><A NAME="1459_19">Str</A></FONT> : <b>out</b> String; + Len : <b>in</b> Integer := -1); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getstr.3x.html">wgetnstr()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: wgetstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: getnstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: getstr()</EM></FONT> + <FONT COLOR=green><EM>-- actually getstr is not supported because that results in buffer</EM></FONT> + <FONT COLOR=green><EM>-- overflows.</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_107"#2|</EM></FONT> + <b>procedure</b> Get (<FONT COLOR=red><A NAME="1469_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="1470_19">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1471_19">Column</A></FONT> : <b>in</b> Column_Position; + <FONT COLOR=red><A NAME="1472_19">Str</A></FONT> : <b>out</b> String; + Len : <b>in</b> Integer := -1); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getstr.3x.html">mvwgetnstr()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvwgetstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvgetnstr()</EM></FONT> + <FONT COLOR=green><EM>-- AKA: mvgetstr()</EM></FONT> + <FONT COLOR=green><EM>-- Get is not inlined</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- Not Implemented: slk_attr_on, slk_attr_off, slk_attr_set</EM></FONT> + + <b>type</b> Soft_Label_Key_Format <b>is</b> (<FONT COLOR=red><A NAME="1486_35">Three_Two_Three</A></FONT>, + <FONT COLOR=red><A NAME="1487_35">Four_Four</A></FONT>, + <FONT COLOR=red><A NAME="1488_35">PC_Style</A></FONT>, <FONT COLOR=green><EM>-- ncurses specific</EM></FONT> + <FONT COLOR=red><A NAME="1489_9"> </A></FONT> PC_Style_With_Index); <FONT COLOR=green><EM>-- "</EM></FONT> + <b>type</b> <FONT COLOR=red><A NAME="1490_9">Label_Number</A></FONT> <b>is</b> <b>new</b> Positive <b>range</b> 1 .. <FONT COLOR=red><A NAME="1490_49">12</A></FONT>; + <b>type</b> Label_Justification <b>is</b> (Left, Centered, Right); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_108"#2|</EM></FONT> + <b>procedure</b> Init_Soft_Label_Keys + (Format : <b>in</b> Soft_Label_Key_Format := Three_Two_Three); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_init()</A></EM></FONT> + <b>pragma</b> Inline (Init_Soft_Label_Keys); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_109"#2|</EM></FONT> + <b>procedure</b> Set_Soft_Label_Key (<FONT COLOR=red><A NAME="1500_34">Label</A></FONT> : <b>in</b> Label_Number; + <FONT COLOR=red><A NAME="1501_34">Text</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1490_9">String</A>; + Fmt : <b>in</b> Label_Justification := Left); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_set()</A></EM></FONT> + <FONT COLOR=green><EM>-- We don't inline this procedure</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_110"#2|</EM></FONT> + <b>procedure</b> Refresh_Soft_Label_Keys; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_refresh()</A></EM></FONT> + <b>pragma</b> Inline (Refresh_Soft_Label_Keys); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_111"#2|</EM></FONT> + <b>procedure</b> Refresh_Soft_Label_Keys_Without_Update; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_noutrefresh()</A></EM></FONT> + <b>pragma</b> Inline (Refresh_Soft_Label_Keys_Without_Update); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_112"#2|</EM></FONT> + <b>procedure</b> Get_Soft_Label_Key (<FONT COLOR=red><A NAME="1517_34">Label</A></FONT> : <b>in</b> Label_Number; + Text : <b>out</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_label()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_113"#2|</EM></FONT> + <b>function</b> Get_Soft_Label_Key (Label : <b>in</b> Label_Number) <b>return</b> String; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_label()</A></EM></FONT> + <FONT COLOR=green><EM>-- Same as function</EM></FONT> + <b>pragma</b> Inline (Get_Soft_Label_Key); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_114"#2|</EM></FONT> + <b>procedure</b> Clear_Soft_Label_Keys; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_clear()</A></EM></FONT> + <b>pragma</b> Inline (Clear_Soft_Label_Keys); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_115"#2|</EM></FONT> + <b>procedure</b> Restore_Soft_Label_Keys; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_restore()</A></EM></FONT> + <b>pragma</b> Inline (Restore_Soft_Label_Keys); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_116"#2|</EM></FONT> + <b>procedure</b> Touch_Soft_Label_Keys; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_touch()</A></EM></FONT> + <b>pragma</b> Inline (Touch_Soft_Label_Keys); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_117"#2|</EM></FONT> + <b>procedure</b> Switch_Soft_Label_Key_Attributes + (<FONT COLOR=red><A NAME="1544_7">Attr</A></FONT> : <b>in</b> Character_Attribute_Set; + On : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attron()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: slk_attroff()</EM></FONT> + <b>pragma</b> Inline (Switch_Soft_Label_Key_Attributes); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_118"#2|</EM></FONT> + <b>procedure</b> Set_Soft_Label_Key_Attributes + (<FONT COLOR=red><A NAME="1552_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A> := Normal_Video; + Color : <b>in</b> Color_Pair := Color_Pair'First); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attrset()</A></EM></FONT> + <b>pragma</b> Inline (Set_Soft_Label_Key_Attributes); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_119"#2|</EM></FONT> + <b>function</b> Get_Soft_Label_Key_Attributes <b>return</b> Character_Attribute_Set; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attr()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_120"#2|</EM></FONT> + <b>function</b> Get_Soft_Label_Key_Attributes <b>return</b> Color_Pair; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attr()</A></EM></FONT> + <b>pragma</b> Inline (Get_Soft_Label_Key_Attributes); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_121"#2|</EM></FONT> + <b>procedure</b> Set_Soft_Label_Key_Color (Pair : <b>in</b> Color_Pair); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_color()</A></EM></FONT> + <b>pragma</b> Inline (Set_Soft_Label_Key_Color); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/keybound.3x.html">keybound.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- Not Implemented: keybound</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/keyok.3x.html">keyok.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_122"#2|</EM></FONT> + <b>procedure</b> Enable_Key (<FONT COLOR=red><A NAME="1581_26">Key</A></FONT> : <b>in</b> Special_Key_Code; + Enable : <b>in</b> Boolean := True); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/keyok.3x.html">keyok()</A></EM></FONT> + <b>pragma</b> Inline (Enable_Key); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/define_key.3x.html">define_key.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_123"#2|</EM></FONT> + <b>procedure</b> Define_Key (<FONT COLOR=red><A NAME="1591_26">Definition</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#77_12">String</A>; + Key : <b>in</b> Special_Key_Code); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/define_key.3x.html">define_key()</A></EM></FONT> + <b>pragma</b> Inline (Define_Key); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_util.3x.html">curs_util.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- | Not implemented : filter, use_env</EM></FONT> + <FONT COLOR=green><EM>-- | putwin, getwin are in the child package PutWin</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_124"#2|</EM></FONT> + <b>procedure</b> Key_Name (<FONT COLOR=red><A NAME="1605_24">Key</A></FONT> : <b>in</b> Real_Key_Code; + Name : <b>out</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">keyname()</A></EM></FONT> + <FONT COLOR=green><EM>-- The external name for a real keystroke.</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_125"#2|</EM></FONT> + <b>function</b> Key_Name (Key : <b>in</b> Real_Key_Code) <b>return</b> String; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">keyname()</A></EM></FONT> + <FONT COLOR=green><EM>-- Same as function</EM></FONT> + <FONT COLOR=green><EM>-- We don't inline this routine</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_126"#2|</EM></FONT> + <b>procedure</b> Un_Control (<FONT COLOR=red><A NAME="1617_26">Ch</A></FONT> : <b>in</b> Attributed_Character; + Str : <b>out</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">unctrl()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_127"#2|</EM></FONT> + <b>function</b> Un_Control (Ch : <b>in</b> Attributed_Character) <b>return</b> String; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">unctrl()</A></EM></FONT> + <FONT COLOR=green><EM>-- Same as function</EM></FONT> + <b>pragma</b> Inline (Un_Control); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_128"#2|</EM></FONT> + <b>procedure</b> Delay_Output (Msecs : <b>in</b> Natural); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">delay_output()</A></EM></FONT> + <b>pragma</b> Inline (Delay_Output); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_129"#2|</EM></FONT> + <b>procedure</b> Flush_Input; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">flushinp()</A></EM></FONT> + <b>pragma</b> Inline (Flush_Input); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_130"#2|</EM></FONT> + <b>function</b> Baudrate <b>return</b> Natural; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">baudrate()</A></EM></FONT> + <b>pragma</b> Inline (Baudrate); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_131"#2|</EM></FONT> + <b>function</b> Erase_Character <b>return</b> Character; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">erasechar()</A></EM></FONT> + <b>pragma</b> Inline (Erase_Character); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_132"#2|</EM></FONT> + <b>function</b> Kill_Character <b>return</b> Character; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">killchar()</A></EM></FONT> + <b>pragma</b> Inline (Kill_Character); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_133"#2|</EM></FONT> + <b>function</b> Has_Insert_Character <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">has_ic()</A></EM></FONT> + <b>pragma</b> Inline (Has_Insert_Character); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_134"#2|</EM></FONT> + <b>function</b> Has_Insert_Line <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">has_il()</A></EM></FONT> + <b>pragma</b> Inline (Has_Insert_Line); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_135"#2|</EM></FONT> + <b>function</b> Supported_Attributes <b>return</b> Character_Attribute_Set; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">termattrs()</A></EM></FONT> + <b>pragma</b> Inline (Supported_Attributes); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_136"#2|</EM></FONT> + <b>procedure</b> Long_Name (Name : <b>out</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">longname()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_137"#2|</EM></FONT> + <b>function</b> Long_Name <b>return</b> String; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">longname()</A></EM></FONT> + <FONT COLOR=green><EM>-- Same as function</EM></FONT> + <b>pragma</b> Inline (Long_Name); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_138"#2|</EM></FONT> + <b>procedure</b> Terminal_Name (Name : <b>out</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">termname()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_139"#2|</EM></FONT> + <b>function</b> Terminal_Name <b>return</b> String; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">termname()</A></EM></FONT> + <FONT COLOR=green><EM>-- Same as function</EM></FONT> + <b>pragma</b> Inline (Terminal_Name); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_color.3x.html">curs_color.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- COLOR_PAIR</EM></FONT> + <FONT COLOR=green><EM>-- COLOR_PAIR(n) in C is the same as</EM></FONT> + <FONT COLOR=green><EM>-- Attributed_Character(Ch => Nul, Color => n, Attr => Normal_Video)</EM></FONT> + <FONT COLOR=green><EM>-- In C you often see something like c = c | COLOR_PAIR(n);</EM></FONT> + <FONT COLOR=green><EM>-- This is equivalent to c.Color := n;</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_140"#2|</EM></FONT> + <b>procedure</b> Start_Color; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">start_color()</A></EM></FONT> + <b>pragma</b> Import (C, Start_Color, "start_color"); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_141"#2|</EM></FONT> + <b>procedure</b> Init_Pair (<FONT COLOR=red><A NAME="1707_25">Pair</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Redefinable_Color_Pair</A>; + <FONT COLOR=red><A NAME="1708_25">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A>; + Back : <b>in</b> Color_Number); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">init_pair()</A></EM></FONT> + <b>pragma</b> Inline (Init_Pair); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_142"#2|</EM></FONT> + <b>procedure</b> Pair_Content (<FONT COLOR=red><A NAME="1714_28">Pair</A></FONT> : <b>in</b> Color_Pair; + <FONT COLOR=red><A NAME="1715_28">Fore</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A>; + Back : <b>out</b> Color_Number); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">pair_content()</A></EM></FONT> + <b>pragma</b> Inline (Pair_Content); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_143"#2|</EM></FONT> + <b>function</b> Has_Colors <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">has_colors()</A></EM></FONT> + <b>pragma</b> Inline (Has_Colors); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_144"#2|</EM></FONT> + <b>procedure</b> Init_Color (<FONT COLOR=red><A NAME="1726_26">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#294_9">Color_Number</A>; + <FONT COLOR=red><A NAME="1727_26">Red</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#294_9">RGB_Value</A>; + <FONT COLOR=red><A NAME="1728_26">Green</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#294_9">RGB_Value</A>; + Blue : <b>in</b> RGB_Value); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">init_color()</A></EM></FONT> + <b>pragma</b> Inline (Init_Color); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_145"#2|</EM></FONT> + <b>function</b> Can_Change_Color <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">can_change_color()</A></EM></FONT> + <b>pragma</b> Inline (Can_Change_Color); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_146"#2|</EM></FONT> + <b>procedure</b> Color_Content (<FONT COLOR=red><A NAME="1739_29">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#294_9">Color_Number</A>; + <FONT COLOR=red><A NAME="1740_29">Red</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#294_9">RGB_Value</A>; + <FONT COLOR=red><A NAME="1741_29">Green</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#294_9">RGB_Value</A>; + Blue : <b>out</b> RGB_Value); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">color_content()</A></EM></FONT> + <b>pragma</b> Inline (Color_Content); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Not implemented: getsyx, setsyx</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <b>type</b> Curses_Mode <b>is</b> (Curses, Shell); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_147"#2|</EM></FONT> + <b>procedure</b> Save_Curses_Mode (Mode : <b>in</b> Curses_Mode); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">def_prog_mode()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: def_shell_mode()</EM></FONT> + <b>pragma</b> Inline (Save_Curses_Mode); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_148"#2|</EM></FONT> + <b>procedure</b> Reset_Curses_Mode (Mode : <b>in</b> Curses_Mode); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">reset_prog_mode()</A></EM></FONT> + <FONT COLOR=green><EM>-- AKA: reset_shell_mode()</EM></FONT> + <b>pragma</b> Inline (Reset_Curses_Mode); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_149"#2|</EM></FONT> + <b>procedure</b> Save_Terminal_State; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">savetty()</A></EM></FONT> + <b>pragma</b> Inline (Save_Terminal_State); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_150"#2|</EM></FONT> + <b>procedure</b> Reset_Terminal_State; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">resetty();</A></EM></FONT> + <b>pragma</b> Inline (Reset_Terminal_State); + + <b>type</b> Stdscr_Init_Proc <b>is</b> <b>access</b> + <b>function</b> (<FONT COLOR=red><A NAME="1776_17">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#65_12">Window</A>; + Columns :<A HREF="terminal_interface-curses__ads.htm#1774_9"> </A>Column_Count) <b>return</b> Integer; + <b>pragma</b> Convention (C, Stdscr_Init_Proc); + <FONT COLOR=green><EM>-- N.B.: the return value is actually ignored, but it seems to be</EM></FONT> + <FONT COLOR=green><EM>-- a good practice to return 0 if you think all went fine</EM></FONT> + <FONT COLOR=green><EM>-- and -1 otherwise.</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_151"#2|</EM></FONT> + <b>procedure</b> Rip_Off_Lines (<FONT COLOR=red><A NAME="1784_29">Lines</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1774_9">Integer</A>; + Proc : <b>in</b> Stdscr_Init_Proc); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">ripoffline()</A></EM></FONT> + <FONT COLOR=green><EM>-- N.B.: to be more precise, this uses a ncurses specific enhancement of</EM></FONT> + <FONT COLOR=green><EM>-- ripoffline(), in which the Lines argument absolute value is the</EM></FONT> + <FONT COLOR=green><EM>-- number of lines to be ripped of. The official ripoffline() only</EM></FONT> + <FONT COLOR=green><EM>-- uses the sign of Lines to rip of a single line from bottom or top.</EM></FONT> + <b>pragma</b> Inline (Rip_Off_Lines); + + <b>type</b> Cursor_Visibility <b>is</b> (Invisible, Normal, Very_Visible); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_152"#2|</EM></FONT> + <b>procedure</b> Set_Cursor_Visibility (Visibility : <b>in</b> <b>out</b> Cursor_Visibility); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">curs_set()</A></EM></FONT> + <b>pragma</b> Inline (Set_Cursor_Visibility); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_153"#2|</EM></FONT> + <b>procedure</b> Nap_Milli_Seconds (Ms : <b>in</b> Natural); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">napms()</A></EM></FONT> + <b>pragma</b> Inline (Nap_Milli_Seconds); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Some useful helpers.</EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <b>type</b> Transform_Direction <b>is</b> (From_Screen, To_Screen); + <b>procedure</b> Transform_Coordinates + (<FONT COLOR=red><A NAME="1810_7">W</A></FONT> : <b>in</b> Window := Standard_Window; + <FONT COLOR=red><A NAME="1811_7">Line</A></FONT> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; + <FONT COLOR=red><A NAME="1812_7">Column</A></FONT> : <b>in</b> <b>out</b> Column_Position; + Dir : <b>in</b> Transform_Direction := From_Screen); + <FONT COLOR=green><EM>-- This procedure transforms screen coordinates into coordinates relative</EM></FONT> + <FONT COLOR=green><EM>-- to the window and vice versa, depending on the Dir parameter.</EM></FONT> + <FONT COLOR=green><EM>-- Screen coordinates are the position informations on the physical device.</EM></FONT> + <FONT COLOR=green><EM>-- An Curses_Exception will be raised if Line and Column are not in the</EM></FONT> + <FONT COLOR=green><EM>-- Window or if you pass the Null_Window as argument.</EM></FONT> + <FONT COLOR=green><EM>-- We don't inline this procedure</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/dft_fgbg.3x.html">dft_fgbg.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_154"#2|</EM></FONT> + <b>procedure</b> Use_Default_Colors; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/dft_fgbg.3x.html">use_default_colors()</A></EM></FONT> + <b>pragma</b> Inline (Use_Default_Colors); + + <FONT COLOR=green><EM>-- #1A NAME="AFU_155"#2|</EM></FONT> + <b>procedure</b> Assume_Default_Colors (<FONT COLOR=red><A NAME="1831_37">Fore</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#277_9">Color_Number</A> := <A HREF="terminal_interface-curses__ads.htm#284_4">Default_Color</A>; + Back : Color_Number := Default_Color); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/dft_fgbg.3x.html">assume_default_colors()</A></EM></FONT> + <b>pragma</b> Inline (Assume_Default_Colors); + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_extend.3x.html">curs_extend.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_156"#2|</EM></FONT> + <b>function</b> Curses_Version <b>return</b> String; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_extend.3x.html">curses_version()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_157"#2|</EM></FONT> + <FONT COLOR=green><EM>-- The returnvalue is the previous setting of the flag</EM></FONT> + <b>function</b> Use_Extended_Names (Enable : Boolean) <b>return</b> Boolean; + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_extend.3x.html">use_extended_names()</A></EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_scr_dump.3x.html">curs_scr_dump.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_158"#2|</EM></FONT> + <b>procedure</b> Screen_Dump_To_File (Filename : <b>in</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_scr_dump.3x.html">scr_dump()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_159"#2|</EM></FONT> + <b>procedure</b> Screen_Restore_From_File (Filename : <b>in</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_scr_dump.3x.html">scr_restore()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_160"#2|</EM></FONT> + <b>procedure</b> Screen_Init_From_File (Filename : <b>in</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_scr_dump.3x.html">scr_init()</A></EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_161"#2|</EM></FONT> + <b>procedure</b> Screen_Set_File (Filename : <b>in</b> String); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_scr_dump.3x.html">scr_set()</A></EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_print.3x.html">curs_print.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- Not implemented: mcprint</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_printw.3x.html">curs_printw.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- Not implemented: printw, wprintw, mvprintw, mvwprintw, vwprintw,</EM></FONT> + <FONT COLOR=green><EM>-- vw_printw</EM></FONT> + <FONT COLOR=green><EM>-- Please use the Ada style Text_IO child packages for formatted</EM></FONT> + <FONT COLOR=green><EM>-- printing. It doesn't make a lot of sense to map the printf style</EM></FONT> + <FONT COLOR=green><EM>-- C functions to Ada.</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_scanw.3x.html">curs_scanw.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- Not implemented: scanw, wscanw, mvscanw, mvwscanw, vwscanw, vw_scanw</EM></FONT> + + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/resizeterm.3x.html">resizeterm.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- Not Implemented: resizeterm</EM></FONT> + + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + <FONT COLOR=green><EM>-- | Man page <A HREF="../man/wresize.3x.html">wresize.3x</A></EM></FONT> + <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> + + <FONT COLOR=green><EM>-- #1A NAME="AFU_162"#2|</EM></FONT> + <b>procedure</b> Resize (<FONT COLOR=red><A NAME="1899_22">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#63_12">Window</A> := Standard_Window; + <FONT COLOR=red><A NAME="1900_22">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; + Number_Of_Columns : Column_Count); + <FONT COLOR=green><EM>-- AKA: <A HREF="../man/wresize.3x.html">wresize()</A></EM></FONT> + +<b>private</b> + <b>type</b> Window <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; + Null_Window : <b>constant</b> Window := 0; + + <FONT COLOR=green><EM>-- The next constants are generated and may be different on your</EM></FONT> + <FONT COLOR=green><EM>-- architecture.</EM></FONT> + <FONT COLOR=green><EM>--</EM></FONT> + <FONT COLOR=red><A NAME="1911_4">Offset_maxy</A></FONT> : <b>constant</b> Natural := 2; <FONT COLOR=green><EM>-- short</EM></FONT> + <FONT COLOR=red><A NAME="1912_4">Offset_maxx</A></FONT> : <b>constant</b> Natural := 3; <FONT COLOR=green><EM>-- short</EM></FONT> + <FONT COLOR=red><A NAME="1913_4">Offset_begy</A></FONT> : <b>constant</b> Natural := 4; <FONT COLOR=green><EM>-- short</EM></FONT> + <FONT COLOR=red><A NAME="1914_4">Offset_begx</A></FONT> : <b>constant</b> Natural := 5; <FONT COLOR=green><EM>-- short</EM></FONT> + <FONT COLOR=red><A NAME="1915_4">Offset_cury</A></FONT> : <b>constant</b> Natural := 0; <FONT COLOR=green><EM>-- short</EM></FONT> + <FONT COLOR=red><A NAME="1916_4">Offset_curx</A></FONT> : <b>constant</b> Natural := 1; <FONT COLOR=green><EM>-- short</EM></FONT> + <FONT COLOR=red><A NAME="1917_4">Offset_yoffset</A></FONT> : <b>constant</b> Natural := 36; <FONT COLOR=green><EM>-- short</EM></FONT> + <FONT COLOR=red><A NAME="1918_4">Offset_pary</A></FONT> : <b>constant</b> Natural := 13; <FONT COLOR=green><EM>-- int</EM></FONT> + <FONT COLOR=red><A NAME="1919_4">Offset_parx</A></FONT> : <b>constant</b> Natural := 12; <FONT COLOR=green><EM>-- int</EM></FONT> + <FONT COLOR=red><A NAME="1920_4">Offset_notimeout</A></FONT> : <b>constant</b> Natural := 24; <FONT COLOR=green><EM>-- char</EM></FONT> + <FONT COLOR=red><A NAME="1921_4">Offset_clear</A></FONT> : <b>constant</b> Natural := 25; <FONT COLOR=green><EM>-- char</EM></FONT> + <FONT COLOR=red><A NAME="1922_4">Offset_leaveok</A></FONT> : <b>constant</b> Natural := 26; <FONT COLOR=green><EM>-- char</EM></FONT> + <FONT COLOR=red><A NAME="1923_4">Offset_scroll</A></FONT> : <b>constant</b> Natural := 27; <FONT COLOR=green><EM>-- char</EM></FONT> + <FONT COLOR=red><A NAME="1924_4">Offset_idlok</A></FONT> : <b>constant</b> Natural := 28; <FONT COLOR=green><EM>-- char</EM></FONT> + <FONT COLOR=red><A NAME="1925_4">Offset_idcok</A></FONT> : <b>constant</b> Natural := 29; <FONT COLOR=green><EM>-- char</EM></FONT> + <FONT COLOR=red><A NAME="1926_4">Offset_immed</A></FONT> : <b>constant</b> Natural := 30; <FONT COLOR=green><EM>-- char</EM></FONT> + <FONT COLOR=red><A NAME="1927_4">Offset_sync</A></FONT> : <b>constant</b> Natural := 31; <FONT COLOR=green><EM>-- char</EM></FONT> + <FONT COLOR=red><A NAME="1928_4">Offset_use_keypad</A></FONT> : <b>constant</b> Natural := 32; <FONT COLOR=green><EM>-- char</EM></FONT> + <FONT COLOR=red><A NAME="1929_4">Sizeof_bool</A></FONT> : <b>constant</b> Natural := 1; <FONT COLOR=green><EM>-- bool</EM></FONT> + Offset_XY : <b>constant</b> Natural := 1; <FONT COLOR=green><EM>-- int</EM></FONT> + + <b>type</b> Curses_Bool <b>is</b> <b>mod</b> 2 ** <A HREF="terminal_interface-curses__ads.htm#1931_9">Interfaces</A>.C.char'Size; + Curses_Bool_False : <b>constant</b> Curses_Bool := 0; + +<b>end</b> Terminal_Interface.Curses; +</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.3/doc/html/ada/terminal_interface__ads.htm b/ncurses-5.3/doc/html/ada/terminal_interface__ads.htm new file mode 100644 index 0000000..5072021 --- /dev/null +++ b/ncurses-5.3/doc/html/ada/terminal_interface__ads.htm @@ -0,0 +1,54 @@ +<HTML><HEAD><TITLE>terminal_interface.ads</TITLE></HEAD> +<BODY> +<HR><DIV ALIGN="center"><H1> File : terminal_interface.ads </H1></DIV><HR> +<PRE> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Terminal_Interface --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- S P E C --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> +<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> +<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> +<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> +<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> +<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> +<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> +<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> +<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> +<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> +<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> +<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> +<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> +<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> +<FONT COLOR=green><EM>-- --</EM></FONT> +<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> +<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> +<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> +<FONT COLOR=green><EM>-- authorization. --</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<FONT COLOR=green><EM>-- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996</EM></FONT> +<FONT COLOR=green><EM>-- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A></EM></FONT> +<FONT COLOR=green><EM>-- Version Control:</EM></FONT> +<FONT COLOR=green><EM>-- @Revision: 1.11 @</EM></FONT> +<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> +<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> +<b>package</b> <FONT COLOR=red><A NAME="42_9">Terminal_Interface</A></FONT> <b>is</b> + <b>pragma</b> Pure (<A HREF="terminal_interface__ads.htm#42_9">Terminal_Interface</A>); +<FONT COLOR=green><EM>--</EM></FONT> +<FONT COLOR=green><EM>-- Everything is in the child units</EM></FONT> +<FONT COLOR=green><EM>--</EM></FONT> +<b>end</b> Terminal_Interface; + + +</PRE></BODY></HTML>
\ No newline at end of file |