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()