X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-trace__ads.htm;h=6aa1e8c850c92403dbaf330cbfcae4a874af948b;hp=8ab28f040c1d81f10a2295c460cf38043e364cad;hb=2b635f090ec43c82958cef9369464aee4dd8975f;hpb=f9d358b4f3cf9b44727a0ee5c08f8ca6ae4e3821
diff --git a/doc/html/ada/terminal_interface-curses-trace__ads.htm b/doc/html/ada/terminal_interface-curses-trace__ads.htm
index 8ab28f04..6aa1e8c8 100644
--- a/doc/html/ada/terminal_interface-curses-trace__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-trace__ads.htm
@@ -50,35 +50,39 @@
pragma Warnings (Off);
type Trace_Attribute_Set is
record
- Times : Boolean;
- Tputs : Boolean;
- Update : Boolean;
- Cursor_Move : Boolean;
- Character_Output : Boolean;
- Calls : Boolean;
- Virtual_Puts : Boolean;
- Input_Events : Boolean;
- TTY_State : Boolean;
- Internal_Calls : Boolean;
- Character_Calls : Boolean;
- Termcap_TermInfo : Boolean;
+ Times : Boolean;
+ Tputs : Boolean;
+ Update : Boolean;
+ Cursor_Move : Boolean;
+ Character_Output : Boolean;
+ Calls : Boolean;
+ Virtual_Puts : Boolean;
+ Input_Events : Boolean;
+ TTY_State : Boolean;
+ Internal_Calls : Boolean;
+ Character_Calls : Boolean;
+ Termcap_TermInfo : Boolean;
+ Attributes_And_Colors : Boolean;
+ Unused : Boolean;
end record;
pragma Convention (C, Trace_Attribute_Set);
for Trace_Attribute_Set use
record
- Times at 0 range 0 .. 0;
- Tputs at 0 range 1 .. 1;
- Update at 0 range 2 .. 2;
- Cursor_Move at 0 range 3 .. 3;
- Character_Output at 0 range 4 .. 4;
- Calls at 0 range 5 .. 5;
- Virtual_Puts at 0 range 6 .. 6;
- Input_Events at 0 range 7 .. 7;
- TTY_State at 0 range 8 .. 8;
- Internal_Calls at 0 range 9 .. 9;
- Character_Calls at 0 range 10 .. 10;
- Termcap_TermInfo at 0 range 11 .. 11;
+ Times at 0 range 0 .. 0;
+ Tputs at 0 range 1 .. 1;
+ Update at 0 range 2 .. 2;
+ Cursor_Move at 0 range 3 .. 3;
+ Character_Output at 0 range 4 .. 4;
+ Calls at 0 range 5 .. 5;
+ Virtual_Puts at 0 range 6 .. 6;
+ Input_Events at 0 range 7 .. 7;
+ TTY_State at 0 range 8 .. 8;
+ Internal_Calls at 0 range 9 .. 9;
+ Character_Calls at 0 range 10 .. 10;
+ Termcap_TermInfo at 0 range 11 .. 11;
+ Attributes_And_Colors at 0 range 12 .. 12;
+ Unused at 0 range 13 .. 31;
end record;
for Trace_Attribute_Set'Size use 32;
-- Please note: this rep. clause is generated and may be
@@ -86,16 +90,16 @@
pragma Warnings (On);
- Trace_Disable : constant Trace_Attribute_Set := (others => False);
+ Trace_Disable : constant Trace_Attribute_Set := (others => False);
- Trace_Ordinary : constant Trace_Attribute_Set :=
+ Trace_Ordinary : constant Trace_Attribute_Set :=
(Times => True,
Tputs => True,
Update => True,
Cursor_Move => True,
Character_Output => True,
others => False);
- Trace_Maximum : constant Trace_Attribute_Set := (others => True);
+ Trace_Maximum : constant Trace_Attribute_Set := (others => True);
------------------------------------------------------------------------------
@@ -104,15 +108,15 @@
-- |=====================================================================
-- #1A NAME="AFU_1"#2|
- procedure Trace_On (x : Trace_Attribute_Set);
+ procedure Trace_On (x : Trace_Attribute_Set);
-- The debugging library has trace.
-- #1A NAME="AFU_2"#2|
- procedure Trace_Put (str : String);
+ procedure Trace_Put (str : String);
-- AKA: _tracef()
- Current_Trace_Setting : Trace_Attribute_Set;
- pragma Import (C, Current_Trace_Setting, "_nc_tracing");
+ Current_Trace_Setting : Trace_Attribute_Set;
+ pragma Import (C, Current_Trace_Setting, "_nc_tracing");
end Terminal_Interface.Curses.Trace;