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;