X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-terminfo__adb.htm;h=049e1541bcd748750af5a287258f98354b379e56;hp=110367102449e3863ea2263456797d4a2e02fcda;hb=9776951416d7fb862b9dca1f4c9f8031a5c9059b;hpb=77afe78361875f531dc2bf8d73f2e781c8e76176 diff --git a/doc/html/ada/terminal_interface-curses-terminfo__adb.htm b/doc/html/ada/terminal_interface-curses-terminfo__adb.htm index 11036710..049e1541 100644 --- a/doc/html/ada/terminal_interface-curses-terminfo__adb.htm +++ b/doc/html/ada/terminal_interface-curses-terminfo__adb.htm @@ -46,8 +46,8 @@ ------------------------------------------------------------------------------ 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 Interfaces.C; use Interfaces.C; +with Interfaces.C.Strings; use Interfaces.C.Strings; with Ada.Unchecked_Conversion; package body Terminal_Interface.Curses.Terminfo is @@ -100,7 +100,7 @@ if Txt2 = Null_Ptr then Result := False; elsif Is_MinusOne_Pointer (Txt2) then - raise Curses_Exception; + raise Curses_Exception; else Value := Terminfo_String (Fill_String (Txt2)); Result := True; @@ -121,7 +121,7 @@ if Txt2 = Null_Ptr then return False; elsif Is_MinusOne_Pointer (Txt2) then - raise Curses_Exception; + raise Curses_Exception; else return True; end if; @@ -159,7 +159,7 @@ Err := tputs (Txt, C_Int (affcnt), putc); end if; if Err = Curses_Err then - raise Curses_Exception; + raise Curses_Exception; end if; end Put_String;