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;