X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-trace__adb.htm;h=ecae414574c48c10651b8a925145cf468e1f7652;hp=ae38c146b41cf7a85eda477994ffd3f673a66bee;hb=cb4427a16794d98049b4d790b810d62217501f9f;hpb=34d602f272c394e9a980438e636e1ce4d355f83b
diff --git a/doc/html/ada/terminal_interface-curses-trace__adb.htm b/doc/html/ada/terminal_interface-curses-trace__adb.htm
index ae38c146..ecae4145 100644
--- a/doc/html/ada/terminal_interface-curses-trace__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-trace__adb.htm
@@ -55,19 +55,23 @@
+with Interfaces.C; use Interfaces.C;
-package body Terminal_Interface.Curses.Trace is
+package body Terminal_Interface.Curses.Trace is
- procedure Trace_On (x : Trace_Attribute_Set) is
- pragma Warnings (Off, x);
+ procedure Trace_On (x : Trace_Attribute_Set) is
+ procedure traceC (y : Trace_Attribute_Set);
+ pragma Import (C, traceC, "trace");
begin
- null;
+ traceC (x);
end Trace_On;
- procedure Trace_Put (str : String) is
- pragma Warnings (Off, str);
+ procedure Trace_Put (str : String) is
+ procedure tracef (format : char_array; s : char_array);
+ pragma Import (C, tracef, "_traces");
+
begin
- null;
+ tracef (To_C ("%s"), To_C (str));
end Trace_Put;
end Terminal_Interface.Curses.Trace;