X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-termcap__adb.htm;h=2216eccc49fbb66d86b8dfb01e2291a8d824a975;hp=3b7489f0271f3f09b582c91eea0350f845a9fddf;hb=97cb42f22c43eb31a4bf11475bd73ab0e0b10923;hpb=bca50d0d8592defee6c584fdedd25f4b1a31345b
diff --git a/doc/html/ada/terminal_interface-curses-termcap__adb.htm b/doc/html/ada/terminal_interface-curses-termcap__adb.htm
index 3b7489f0..2216eccc 100644
--- a/doc/html/ada/terminal_interface-curses-termcap__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-termcap__adb.htm
@@ -66,12 +66,12 @@
function Get_Entry (Name : String) return Boolean
is
function tgetent (name : char_array; val : char_array)
- return C_Int;
+ return C_Int;
pragma Import (C, tgetent, "tgetent");
NameTxt : char_array (0 .. Name'Length);
Length : size_t;
ignored : constant char_array (0 .. 0) := (0 => nul);
- result : C_Int;
+ result : C_Int;
begin
To_C (Name, NameTxt, Length);
result := tgetent (char_array (ignored), NameTxt);
@@ -85,7 +85,7 @@
function Get_Flag (Name : String) return Boolean
is
- function tgetflag (id : char_array) return C_Int;
+ function tgetflag (id : char_array) return C_Int;
pragma Import (C, tgetflag, "tgetflag");
Txt : char_array (0 .. Name'Length);
Length : size_t;
@@ -103,7 +103,7 @@
Value : out Integer;
Result : out Boolean)
is
- function tgetnum (id : char_array) return C_Int;
+ function tgetnum (id : char_array) return C_Int;
pragma Import (C, tgetnum, "tgetnum");
Txt : char_array (0 .. Name'Length);
Length : size_t;
@@ -136,7 +136,7 @@
if Txt2 = Null_Ptr then
Result := False;
else
- Value := Fill_String (Txt2);
+ Value := Fill_String (Txt2);
Result := True;
end if;
end Get_String;
@@ -166,15 +166,15 @@
Col : Column_Position;
Row : Line_Position) return Termcap_String is
function tgoto (cap : char_array;
- col : C_Int;
- row : C_Int) return chars_ptr;
+ col : C_Int;
+ row : C_Int) return chars_ptr;
pragma Import (C, tgoto);
Txt : char_array (0 .. Cap'Length);
Length : size_t;
begin
To_C (Cap, Txt, Length);
- return Termcap_String (Fill_String
- (tgoto (Txt, C_Int (Col), C_Int (Row))));
+ return Termcap_String (Fill_String
+ (tgoto (Txt, C_Int (Col), C_Int (Row))));
end TGoto;
end Terminal_Interface.Curses.Termcap;