X-Git-Url: https://ncurses.scripts.mit.edu/?a=blobdiff_plain;ds=sidebyside;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-termcap__adb.htm;h=72d5673b00a9cea5882a19ccb120054f6ccce9ac;hb=3ec8f79f3ceda990461c80de2f96d66b886e00d5;hp=1f9df443b11842010c7a97431fb282fa8630fe64;hpb=55ccd2b959766810cf7db8d1c4462f338ce0afc8;p=ncurses.git diff --git a/doc/html/ada/terminal_interface-curses-termcap__adb.htm b/doc/html/ada/terminal_interface-curses-termcap__adb.htm index 1f9df443..72d5673b 100644 --- a/doc/html/ada/terminal_interface-curses-termcap__adb.htm +++ b/doc/html/ada/terminal_interface-curses-termcap__adb.htm @@ -12,7 +12,7 @@ -- B O D Y -- -- -- ------------------------------------------------------------------------------ --- Copyright (c) 2000,2004 Free Software Foundation, Inc. -- +-- Copyright (c) 2000-2004,2006 Free Software Foundation, Inc. -- -- -- -- Permission is hereby granted, free of charge, to any person obtaining a -- -- copy of this software and associated documentation files (the -- @@ -40,22 +40,22 @@ ------------------------------------------------------------------------------ -- Author: Juergen Pfeifer, 1996 -- Version Control: --- @Revision: 1.9 @ --- @Date: 2004/08/21 21:37:00 @ +-- @Revision: 1.11 @ +-- @Date: 2006/06/25 14:30:22 @ -- 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) + function tgetent (name : char_array; val : char_array) return C_Int; - pragma Import (C, tgetent, "tgetent"); + pragma Import (C, tgetent, "tgetent"); NameTxt : char_array (0 .. Name'Length); Length : size_t; ignored : constant char_array (0 .. 0) := (0 => nul); @@ -73,8 +73,8 @@ ------------------------------------------------------------------------------ function Get_Flag (Name : String) return Boolean is - function tgetflag (id : char_array) return C_Int; - pragma Import (C, tgetflag, "tgetflag"); + function tgetflag (id : char_array) return C_Int; + pragma Import (C, tgetflag, "tgetflag"); Txt : char_array (0 .. Name'Length); Length : size_t; begin @@ -91,8 +91,8 @@ Value : out Integer; Result : out Boolean) is - function tgetnum (id : char_array) return C_Int; - pragma Import (C, tgetnum, "tgetnum"); + function tgetnum (id : char_array) return C_Int; + pragma Import (C, tgetnum, "tgetnum"); Txt : char_array (0 .. Name'Length); Length : size_t; begin @@ -110,9 +110,9 @@ Value : out String; Result : out Boolean) is - function tgetstr (id : char_array; - buf : char_array) return chars_ptr; - pragma Import (C, tgetstr, "tgetstr"); + function tgetstr (id : char_array; + buf : char_array) return chars_ptr; + pragma Import (C, tgetstr, "tgetstr"); Txt : char_array (0 .. Name'Length); Length : size_t; Txt2 : chars_ptr; @@ -131,9 +131,9 @@ function Get_String (Name : String) return Boolean is - function tgetstr (Id : char_array; - buf : char_array) return chars_ptr; - pragma Import (C, tgetstr, "tgetstr"); + function tgetstr (Id : char_array; + buf : char_array) return chars_ptr; + pragma Import (C, tgetstr, "tgetstr"); Txt : char_array (0 .. Name'Length); Length : size_t; Txt2 : chars_ptr; @@ -153,10 +153,10 @@ function TGoto (Cap : String; Col : Column_Position; Row : Line_Position) return Termcap_String is - function tgoto (cap : char_array; - col : C_Int; - row : C_Int) return chars_ptr; - pragma Import (C, tgoto); + function tgoto (cap : char_array; + col : C_Int; + row : C_Int) return chars_ptr; + pragma Import (C, tgoto); Txt : char_array (0 .. Cap'Length); Length : size_t; begin @@ -165,6 +165,5 @@ (tgoto (Txt, C_Int (Col), C_Int (Row)))); end TGoto; - -end Terminal_Interface.Curses.Termcap; +end Terminal_Interface.Curses.Termcap;