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=f5c534e475d6ded171974a495e428e5d38eb6630;hb=0ac2306dd3aaab1338d8b1458c15a7e476cfc3ff;hpb=55ccd2b959766810cf7db8d1c4462f338ce0afc8
diff --git a/doc/html/ada/terminal_interface-curses-terminfo__ads.htm b/doc/html/ada/terminal_interface-curses-terminfo__ads.htm
index f5c534e4..8738a396 100644
--- a/doc/html/ada/terminal_interface-curses-terminfo__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-terminfo__ads.htm
@@ -44,10 +44,10 @@
-- Binding Version 01.00
------------------------------------------------------------------------------
-with Interfaces.C;
+with Interfaces.C;
-package Terminal_Interface.Curses.Terminfo is
- pragma Preelaborate (Terminal_Interface.Curses.Terminfo);
+package Terminal_Interface.Curses.Terminfo is
+ pragma Preelaborate (Terminal_Interface.Curses.Terminfo);
-- |=====================================================================
-- | Man page curs_terminfo.3x
@@ -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,15 +73,15 @@
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()
-end Terminal_Interface.Curses.Terminfo;
+end Terminal_Interface.Curses.Terminfo;