X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-termcap__adb.htm;h=3b7489f0271f3f09b582c91eea0350f845a9fddf;hp=3a2ed5e83a80c4e2899cd6b360be99ed334f7eeb;hb=bca50d0d8592defee6c584fdedd25f4b1a31345b;hpb=761e4f0825b330e970558e82a4bd638383914429
diff --git a/doc/html/ada/terminal_interface-curses-termcap__adb.htm b/doc/html/ada/terminal_interface-curses-termcap__adb.htm
index 3a2ed5e8..3b7489f0 100644
--- a/doc/html/ada/terminal_interface-curses-termcap__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-termcap__adb.htm
@@ -57,26 +57,26 @@
-with Terminal_Interface.Curses.Aux; use Terminal_Interface.Curses.Aux;
-with Interfaces.C; use Interfaces.C;
-with Interfaces.C.Strings; use Interfaces.C.Strings;
+with Terminal_Interface.Curses.Aux; use Terminal_Interface.Curses.Aux;
+with Interfaces.C; use Interfaces.C;
+with Interfaces.C.Strings; use Interfaces.C.Strings;
-package body Terminal_Interface.Curses.Termcap is
+package body Terminal_Interface.Curses.Termcap is
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);
if result = -1 then
- raise Curses_Exception;
+ raise Curses_Exception;
else
return Boolean'Val (result);
end if;
@@ -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;
@@ -163,19 +163,19 @@
function TGoto (Cap : String;
- Col : Column_Position;
- Row : Line_Position) return Termcap_String is
+ 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;
+end Terminal_Interface.Curses.Termcap;