X-Git-Url: https://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-trace__adb.htm;fp=doc%2Fhtml%2Fada%2Fterminal_interface-curses-trace__adb.htm;h=ae38c146b41cf7a85eda477994ffd3f673a66bee;hb=34d602f272c394e9a980438e636e1ce4d355f83b;hp=106aa5d643dac4e5c29fc0101c850ca7fe8a2e86;hpb=c9c32236e27689a61c794b714c6b86c460866e35;p=ncurses.git
diff --git a/doc/html/ada/terminal_interface-curses-trace__adb.htm b/doc/html/ada/terminal_interface-curses-trace__adb.htm
index 106aa5d6..ae38c146 100644
--- a/doc/html/ada/terminal_interface-curses-trace__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-trace__adb.htm
@@ -24,7 +24,7 @@
-
+
@@ -52,44 +52,23 @@
-
+
-with Interfaces.C; use Interfaces.C;
-with Terminal_Interface.Curses.Aux; use Terminal_Interface.Curses.Aux;
-with Ada.Unchecked_Conversion;
-package body Terminal_Interface.Curses.Trace is
+package body Terminal_Interface.Curses.Trace is
- type C_TraceType is new C_UInt;
-
- function TraceAda_To_TraceC is new
- Ada.Unchecked_Conversion (Source => Trace_Attribute_Set,
- Target => C_TraceType);
-
- procedure Trace_On (x : Trace_Attribute_Set) is
- procedure traceC (y : C_TraceType);
- pragma Import (C, traceC, "trace");
+ procedure Trace_On (x : Trace_Attribute_Set) is
+ pragma Warnings (Off, x);
begin
- traceC (TraceAda_To_TraceC (x));
- end Trace_On;
-
-
-
-
+ null;
+ end Trace_On;
- procedure Trace_Put (str : String) is
- procedure tracef (format : char_array; s : char_array);
- pragma Import (C, tracef, "_traces");
- Txt : char_array (0 .. str'Length);
- Length : size_t;
- formatstr : constant String := "%s" & ASCII.NUL;
- formattxt : char_array (0 .. formatstr'Length);
+ procedure Trace_Put (str : String) is
+ pragma Warnings (Off, str);
begin
- To_C (formatstr, formattxt, Length);
- To_C (str, Txt, Length);
- tracef (formattxt, Txt);
- end Trace_Put;
+ null;
+ end Trace_Put;
-end Terminal_Interface.Curses.Trace;
+end Terminal_Interface.Curses.Trace;