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 @@ -- Binding Version 01.00 ------------------------------------------------------------------------------ -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;