X-Git-Url: http://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-terminfo__adb.htm;h=665f8e1547ae9261be666b01a0842e44d7aa7921;hb=efa78d11c3ea7f51c7078b64a34c98b44ecb0e1a;hp=f24b815e7c62b7d88e159a4c0757f00b29a13abb;hpb=bca50d0d8592defee6c584fdedd25f4b1a31345b;p=ncurses.git diff --git a/doc/html/ada/terminal_interface-curses-terminfo__adb.htm b/doc/html/ada/terminal_interface-curses-terminfo__adb.htm index f24b815e..665f8e15 100644 --- a/doc/html/ada/terminal_interface-curses-terminfo__adb.htm +++ b/doc/html/ada/terminal_interface-curses-terminfo__adb.htm @@ -89,7 +89,7 @@ Length : size_t; begin To_C (Name, Txt, Length); - if tigetflag (Txt) = Curses_Bool (Curses_True) then + if tigetflag (Txt) = Curses_Bool (Curses_True) then return True; else return False; @@ -114,7 +114,7 @@ elsif Is_MinusOne_Pointer (Txt2) then raise Curses_Exception; else - Value := Terminfo_String (Fill_String (Txt2)); + Value := Terminfo_String (Fill_String (Txt2)); Result := True; end if; end Get_String; @@ -141,7 +141,7 @@ ------------------------------------------------------------------------------ function Get_Number (Name : String) return Integer is - function tigetstr (s : char_array) return C_Int; + function tigetstr (s : char_array) return C_Int; pragma Import (C, tigetstr); Txt : char_array (0 .. Name'Length); Length : size_t; @@ -151,26 +151,26 @@ end Get_Number; ------------------------------------------------------------------------------ - procedure Put_String (Str : Terminfo_String; + procedure Put_String (Str : Terminfo_String; affcnt : Natural := 1; putc : putctype := null) is function tputs (str : char_array; - affcnt : C_Int; - putc : putctype) return C_Int; - function putp (str : char_array) return C_Int; + affcnt : C_Int; + putc : putctype) return C_Int; + function putp (str : char_array) return C_Int; pragma Import (C, tputs); pragma Import (C, putp); Txt : char_array (0 .. Str'Length); Length : size_t; - Err : C_Int; + Err : C_Int; begin To_C (String (Str), Txt, Length); if putc = null then Err := putp (Txt); else - Err := tputs (Txt, C_Int (affcnt), putc); + Err := tputs (Txt, C_Int (affcnt), putc); end if; - if Err = Curses_Err then + if Err = Curses_Err then raise Curses_Exception; end if; end Put_String;