X-Git-Url: https://ncurses.scripts.mit.edu/?a=blobdiff_plain;ds=sidebyside;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-trace__ads.htm;h=6aa1e8c850c92403dbaf330cbfcae4a874af948b;hb=9de646fe8f944e760d453b57e01b866d1d514ad7;hp=e741efd4bbd47a9eec641d89a6692ca66015a5b6;hpb=46722468f47c2b77b3987729b4bcf2321cccfd01;p=ncurses.git
diff --git a/doc/html/ada/terminal_interface-curses-trace__ads.htm b/doc/html/ada/terminal_interface-curses-trace__ads.htm
index e741efd4..6aa1e8c8 100644
--- a/doc/html/ada/terminal_interface-curses-trace__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-trace__ads.htm
@@ -1,8 +1,8 @@
+
terminal_interface-curses-trace.ads
File : terminal_interface-curses-trace.ads
-
------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
@@ -44,59 +44,62 @@
-- Binding Version 01.00
------------------------------------------------------------------------------
-package Terminal_Interface.Curses.Trace is
- pragma Preelaborate (Terminal_Interface.Curses.Trace);
+package Terminal_Interface.Curses.Trace is
+ pragma Preelaborate (Terminal_Interface.Curses.Trace);
pragma Warnings (Off);
- type Trace_Attribute_Set is
+ 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;
- end record;
- pragma Pack (Trace_Attribute_Set);
- pragma Convention (C, Trace_Attribute_Set);
+ 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
+ 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;
+ for Trace_Attribute_Set'Size use 32;
-- Please note: this rep. clause is generated and may be
-- different on your system.
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 :=
- (Times => True,
- Tputs => True,
- Update => True,
- Cursor_Move => True,
- Character_Output => True,
- others => False);
- Trace_Maximum : constant Trace_Attribute_Set := (others => True);
+ 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);
------------------------------------------------------------------------------
@@ -105,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;
-
\ No newline at end of file
+end Terminal_Interface.Curses.Trace;
+