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=ef569c276c8036b12c7e5bd0bfd97e2d67c4718f;hp=e741efd4bbd47a9eec641d89a6692ca66015a5b6;hb=77afe78361875f531dc2bf8d73f2e781c8e76176;hpb=46722468f47c2b77b3987729b4bcf2321cccfd01 diff --git a/doc/html/ada/terminal_interface-curses-trace__ads.htm b/doc/html/ada/terminal_interface-curses-trace__ads.htm index e741efd4..ef569c27 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,58 @@
 --  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;
+      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;
       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 +104,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; +