X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-terminfo__ads.htm;h=8738a3965dcba2d5f623881640d28ea84c983a0a;hp=24d2d2fcc0692f66e14c86290a05a8fcc9e0a5ff;hb=0ac2306dd3aaab1338d8b1458c15a7e476cfc3ff;hpb=027ae42953e3186daed8f3882da73de48291b606
diff --git a/doc/html/ada/terminal_interface-curses-terminfo__ads.htm b/doc/html/ada/terminal_interface-curses-terminfo__ads.htm
index 24d2d2fc..8738a396 100644
--- a/doc/html/ada/terminal_interface-curses-terminfo__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-terminfo__ads.htm
@@ -44,7 +44,7 @@
-- Binding Version 01.00
------------------------------------------------------------------------------
-with Interfaces.C;
+with Interfaces.C;
package Terminal_Interface.Curses.Terminfo is
pragma Preelaborate (Terminal_Interface.Curses.Terminfo);
@@ -56,11 +56,11 @@
-- restartterm, tparm, putp, vidputs, vidattr,
-- mvcur
- type Terminfo_String is new String;
+ type Terminfo_String is new String;
-- |
procedure Get_String (Name : String;
- Value : out Terminfo_String;
+ Value : out Terminfo_String;
Result : out Boolean);
function Has_String (Name : String) return Boolean;
-- AKA: tigetstr()
@@ -73,12 +73,12 @@
function Get_Number (Name : String) return Integer;
-- AKA: tigetnum()
- type putctype is access function (c : Interfaces.C.int)
- return Interfaces.C.int;
+ type putctype is access function (c : Interfaces.C.int)
+ return Interfaces.C.int;
pragma Convention (C, putctype);
-- |
- procedure Put_String (Str : Terminfo_String;
+ procedure Put_String (Str : Terminfo_String;
affcnt : Natural := 1;
putc : putctype := null);
-- AKA: tputs()