X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-trace__ads.htm;h=caa479fc64e5e526b434bb271700fc21491faea0;hp=5c6895a9d1cf13e05351b8b2746f24f507c2774f;hb=c55d387cebf1cee4757ca2c2ef4fbeae59ee4175;hpb=761e4f0825b330e970558e82a4bd638383914429
diff --git a/doc/html/ada/terminal_interface-curses-trace__ads.htm b/doc/html/ada/terminal_interface-curses-trace__ads.htm
index 5c6895a9..caa479fc 100644
--- a/doc/html/ada/terminal_interface-curses-trace__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-trace__ads.htm
@@ -24,7 +24,7 @@
-
+
@@ -52,65 +52,74 @@
-
+
-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;
- Attributes_And_Colors : 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;
+ Attribute_Color : Boolean;
end record;
- pragma Convention (C, Trace_Attribute_Set);
+ pragma Convention (C_Pass_By_Copy, 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;
- Attributes_And_Colors at 0 range 12 .. 12;
+ Times at 0 range Curses_Constants.TRACE_TIMES_First
+ .. Curses_Constants.TRACE_TIMES_Last;
+ Tputs at 0 range Curses_Constants.TRACE_TPUTS_First
+ .. Curses_Constants.TRACE_TPUTS_Last;
+ Update at 0 range Curses_Constants.TRACE_UPDATE_First
+ .. Curses_Constants.TRACE_UPDATE_Last;
+ Cursor_Move at 0 range Curses_Constants.TRACE_MOVE_First
+ .. Curses_Constants.TRACE_MOVE_Last;
+ Character_Output at 0 range Curses_Constants.TRACE_CHARPUT_First
+ .. Curses_Constants.TRACE_CHARPUT_Last;
+ Calls at 0 range Curses_Constants.TRACE_CALLS_First
+ .. Curses_Constants.TRACE_CALLS_Last;
+ Virtual_Puts at 0 range Curses_Constants.TRACE_VIRTPUT_First
+ .. Curses_Constants.TRACE_VIRTPUT_Last;
+ Input_Events at 0 range Curses_Constants.TRACE_IEVENT_First
+ .. Curses_Constants.TRACE_IEVENT_Last;
+ TTY_State at 0 range Curses_Constants.TRACE_BITS_First
+ .. Curses_Constants.TRACE_BITS_Last;
+ Internal_Calls at 0 range Curses_Constants.TRACE_ICALLS_First
+ .. Curses_Constants.TRACE_ICALLS_Last;
+ Character_Calls at 0 range Curses_Constants.TRACE_CCALLS_First
+ .. Curses_Constants.TRACE_CCALLS_Last;
+ Termcap_TermInfo at 0 range Curses_Constants.TRACE_DATABASE_First
+ .. Curses_Constants.TRACE_DATABASE_Last;
+ Attribute_Color at 0 range Curses_Constants.TRACE_ATTRS_First
+ .. Curses_Constants.TRACE_ATTRS_Last;
end record;
- pragma Warnings (Off); for Trace_Attribute_Set'Size use 32;
- pragma Warnings (On);
-
-
-
+ pragma Warnings (Off);
+ for Trace_Attribute_Set'Size use Curses_Constants.Trace_Size;
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,
+ 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);
@@ -118,16 +127,16 @@
-
- procedure Trace_On (x : Trace_Attribute_Set);
+
+ procedure Trace_On (x : Trace_Attribute_Set);
-
- procedure Trace_Put (str : String);
+
+ procedure Trace_Put (str : String);
- 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;
+end Terminal_Interface.Curses.Trace;