X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-termcap__adb.htm;h=3a82187099feb2b6c2367d9f252537f340a34f72;hp=72d5673b00a9cea5882a19ccb120054f6ccce9ac;hb=9776951416d7fb862b9dca1f4c9f8031a5c9059b;hpb=027ae42953e3186daed8f3882da73de48291b606
diff --git a/doc/html/ada/terminal_interface-curses-termcap__adb.htm b/doc/html/ada/terminal_interface-curses-termcap__adb.htm
index 72d5673b..3a821870 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,2006 Free Software Foundation, Inc. --
+-- Copyright (c) 2000-2006,2009 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,8 +40,8 @@
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
--- @Revision: 1.11 @
--- @Date: 2006/06/25 14:30:22 @
+-- @Revision: 1.12 @
+-- @Date: 2009/12/26 17:38:58 @
-- Binding Version 01.00
------------------------------------------------------------------------------
@@ -64,7 +64,7 @@
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;
@@ -87,7 +87,7 @@
end Get_Flag;
------------------------------------------------------------------------------
- procedure Get_Number (Name : in String;
+ procedure Get_Number (Name : String;
Value : out Integer;
Result : out Boolean)
is
@@ -116,8 +116,8 @@
Txt : char_array (0 .. Name'Length);
Length : size_t;
Txt2 : chars_ptr;
- type t is new char_array (0 .. 1024); -- does it need to be 1024?
- Return_Buffer : constant t := (others => nul);
+ type t is new char_array (0 .. 1024); -- does it need to be 1024?
+ Return_Buffer : constant t := (others => nul);
begin
To_C (Name, Txt, Length);
Txt2 := tgetstr (Txt, char_array (Return_Buffer));
@@ -137,8 +137,8 @@
Txt : char_array (0 .. Name'Length);
Length : size_t;
Txt2 : chars_ptr;
- type t is new char_array (0 .. 1024); -- does it need to be 1024?
- Phony_Txt : constant t := (others => nul);
+ type t is new char_array (0 .. 1024); -- does it need to be 1024?
+ Phony_Txt : constant t := (others => nul);
begin
To_C (Name, Txt, Length);
Txt2 := tgetstr (Txt, char_array (Phony_Txt));
@@ -152,7 +152,7 @@
------------------------------------------------------------------------------
function TGoto (Cap : String;
Col : Column_Position;
- Row : Line_Position) return Termcap_String is
+ Row : Line_Position) return Termcap_String is
function tgoto (cap : char_array;
col : C_Int;
row : C_Int) return chars_ptr;
@@ -161,7 +161,7 @@
Length : size_t;
begin
To_C (Cap, Txt, Length);
- return Termcap_String (Fill_String
+ return Termcap_String (Fill_String
(tgoto (Txt, C_Int (Col), C_Int (Row))));
end TGoto;