X-Git-Url: https://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-trace__adb.htm;h=a5952109fafb7bc1225ade2cd3ddefdeaa455d1d;hb=790a85dbd4a81d5f5d8dd02a44d84f01512ef443;hp=f3b0834359d8c9b91396986275233b0b6e0238fe;hpb=db5f7f4f146a91ba8ec7f1df8e9d7f9d2d7c74fd;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 f3b08343..a5952109 100644
--- a/doc/html/ada/terminal_interface-curses-trace__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-trace__adb.htm
@@ -24,7 +24,8 @@
-
+
+
@@ -52,27 +53,27 @@
-
+
-with Interfaces.C; use Interfaces.C;
+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
- procedure traceC (y : Trace_Attribute_Set);
+ procedure Trace_On (x : Trace_Attribute_Set) is
+ procedure traceC (y : Trace_Attribute_Set);
pragma Import (C, traceC, "trace");
begin
- traceC (x);
- end Trace_On;
+ traceC (x);
+ end Trace_On;
- procedure Trace_Put (str : String) is
- procedure tracef (format : char_array; s : char_array);
+ procedure Trace_Put (str : String) is
+ procedure tracef (format : char_array; s : char_array);
pragma Import (C, tracef, "_traces");
begin
- tracef (To_C ("%s"), To_C (str));
- end Trace_Put;
+ tracef (To_C ("%s"), To_C (str));
+ end Trace_Put;
-end Terminal_Interface.Curses.Trace;
+end Terminal_Interface.Curses.Trace;