forked from KolibriOS/kolibrios
107 lines
2.5 KiB
C
107 lines
2.5 KiB
C
/* PDCurses */
|
|
|
|
#include <curspriv.h>
|
|
|
|
/*man-start**************************************************************
|
|
|
|
debug
|
|
-----
|
|
|
|
### Synopsis
|
|
|
|
void traceon(void);
|
|
void traceoff(void);
|
|
void PDC_debug(const char *, ...);
|
|
|
|
### Description
|
|
|
|
traceon() and traceoff() toggle the recording of debugging
|
|
information to the file "trace". Although not standard, similar
|
|
functions are in some other curses implementations.
|
|
|
|
PDC_debug() is the function that writes to the file, based on whether
|
|
traceon() has been called. It's used from the PDC_LOG() macro.
|
|
|
|
The environment variable PDC_TRACE_FLUSH controls whether the trace
|
|
file contents are fflushed after each write. The default is not. Set
|
|
it to enable this (may affect performance).
|
|
|
|
### Portability
|
|
X/Open ncurses NetBSD
|
|
traceon - - -
|
|
traceoff - - -
|
|
PDC_debug - - -
|
|
|
|
**man-end****************************************************************/
|
|
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <sys/types.h>
|
|
#include <time.h>
|
|
|
|
static bool want_fflush = FALSE;
|
|
|
|
void PDC_debug(const char *fmt, ...)
|
|
{
|
|
va_list args;
|
|
char hms[9];
|
|
time_t now;
|
|
|
|
if (!SP || !SP->dbfp)
|
|
return;
|
|
|
|
time(&now);
|
|
strftime(hms, 9, "%H:%M:%S", localtime(&now));
|
|
fprintf(SP->dbfp, "At: %8.8ld - %s ", (long) clock(), hms);
|
|
|
|
va_start(args, fmt);
|
|
vfprintf(SP->dbfp, fmt, args);
|
|
va_end(args);
|
|
|
|
/* If you are crashing and losing debugging information, enable this
|
|
by setting the environment variable PDC_TRACE_FLUSH. This may
|
|
impact performance. */
|
|
|
|
if (want_fflush)
|
|
fflush(SP->dbfp);
|
|
|
|
/* If with PDC_TRACE_FLUSH enabled you are still losing logging in
|
|
crashes, you may need to add a platform-dependent mechanism to
|
|
flush the OS buffers as well (such as fsync() on POSIX) -- but
|
|
expect terrible performance. */
|
|
}
|
|
|
|
void traceon(void)
|
|
{
|
|
if (!SP)
|
|
return;
|
|
|
|
if (SP->dbfp)
|
|
fclose(SP->dbfp);
|
|
|
|
/* open debug log file append */
|
|
SP->dbfp = fopen("trace", "a");
|
|
if (!SP->dbfp)
|
|
{
|
|
fprintf(stderr, "PDC_debug(): Unable to open debug log file\n");
|
|
return;
|
|
}
|
|
|
|
if (getenv("PDC_TRACE_FLUSH"))
|
|
want_fflush = TRUE;
|
|
|
|
PDC_LOG(("traceon() - called\n"));
|
|
}
|
|
|
|
void traceoff(void)
|
|
{
|
|
if (!SP || !SP->dbfp)
|
|
return;
|
|
|
|
PDC_LOG(("traceoff() - called\n"));
|
|
|
|
fclose(SP->dbfp);
|
|
SP->dbfp = NULL;
|
|
want_fflush = FALSE;
|
|
}
|