ctrace.c revision 1.12 1 1.12 wiz /* $NetBSD: ctrace.c,v 1.12 2002/05/26 17:01:38 wiz Exp $ */
2 1.5 mikel
3 1.1 cgd /*-
4 1.1 cgd * Copyright (c) 1992, 1993
5 1.1 cgd * The Regents of the University of California. All rights reserved.
6 1.1 cgd *
7 1.1 cgd * Redistribution and use in source and binary forms, with or without
8 1.1 cgd * modification, are permitted provided that the following conditions
9 1.1 cgd * are met:
10 1.1 cgd * 1. Redistributions of source code must retain the above copyright
11 1.1 cgd * notice, this list of conditions and the following disclaimer.
12 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 cgd * notice, this list of conditions and the following disclaimer in the
14 1.1 cgd * documentation and/or other materials provided with the distribution.
15 1.1 cgd * 3. All advertising materials mentioning features or use of this software
16 1.1 cgd * must display the following acknowledgement:
17 1.1 cgd * This product includes software developed by the University of
18 1.1 cgd * California, Berkeley and its contributors.
19 1.1 cgd * 4. Neither the name of the University nor the names of its contributors
20 1.1 cgd * may be used to endorse or promote products derived from this software
21 1.1 cgd * without specific prior written permission.
22 1.1 cgd *
23 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 1.1 cgd * SUCH DAMAGE.
34 1.1 cgd */
35 1.1 cgd
36 1.5 mikel #include <sys/cdefs.h>
37 1.1 cgd #ifndef lint
38 1.5 mikel #if 0
39 1.4 cgd static char sccsid[] = "@(#)ctrace.c 8.2 (Berkeley) 10/5/93";
40 1.5 mikel #else
41 1.12 wiz __RCSID("$NetBSD: ctrace.c,v 1.12 2002/05/26 17:01:38 wiz Exp $");
42 1.5 mikel #endif
43 1.6 mrg #endif /* not lint */
44 1.1 cgd
45 1.1 cgd #ifdef DEBUG
46 1.12 wiz #include <stdarg.h>
47 1.1 cgd #include <stdio.h>
48 1.1 cgd
49 1.9 blymn #include <sys/time.h>
50 1.10 blymn #include <string.h>
51 1.9 blymn
52 1.5 mikel #include "curses.h"
53 1.10 blymn #include "curses_private.h"
54 1.1 cgd
55 1.1 cgd #ifndef TFILE
56 1.1 cgd #define TFILE "__curses.out"
57 1.1 cgd #endif
58 1.1 cgd
59 1.6 mrg static FILE *tracefp; /* Curses debugging file descriptor. */
60 1.1 cgd
61 1.1 cgd void
62 1.6 mrg __CTRACE(const char *fmt,...)
63 1.1 cgd {
64 1.9 blymn struct timeval tv;
65 1.9 blymn static int seencr = 1;
66 1.1 cgd va_list ap;
67 1.11 wiz
68 1.1 cgd if (tracefp == NULL)
69 1.1 cgd tracefp = fopen(TFILE, "w");
70 1.1 cgd if (tracefp == NULL)
71 1.1 cgd return;
72 1.9 blymn gettimeofday(&tv, NULL);
73 1.9 blymn if (seencr) {
74 1.9 blymn gettimeofday(&tv, NULL);
75 1.9 blymn (void) fprintf(tracefp, "%lu.%06lu: ", tv.tv_sec, tv.tv_usec);
76 1.9 blymn }
77 1.11 wiz va_start(ap, fmt);
78 1.9 blymn (void) vfprintf(tracefp, fmt, ap);
79 1.9 blymn seencr = (strchr(fmt, '\n') != NULL);
80 1.1 cgd va_end(ap);
81 1.6 mrg (void) fflush(tracefp);
82 1.7 blymn }
83 1.7 blymn #else
84 1.7 blymn /* this kills the empty translation unit message from lint... */
85 1.9 blymn void
86 1.9 blymn __cursesi_make_lint_shut_up_if_debug_not_defined(void);
87 1.9 blymn
88 1.7 blymn void
89 1.7 blymn __cursesi_make_lint_shut_up_if_debug_not_defined(void)
90 1.7 blymn {
91 1.8 thorpej return;
92 1.1 cgd }
93 1.1 cgd #endif
94