1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
/*
* Copyright (C) 1990-2010 by CERN/IT/PDP/DM
* All rights reserved
*/
/* trace.c General tracing facility */
#ifndef lint
static char sccsid[] = "@(#)trace.c,v 1.7 2000/05/31 10:33:54 CERN IT-PDP/DM Olof Barring";
#endif /* not lint */
#include <stdio.h> /* standard input/output definitions */
#include <stdlib.h>
#include <string.h>
#include <stdarg.h> /* variable argument list definitions */
#include <errno.h> /* standard error numbers & codes */
#include <serrno.h>
#include <Cglobals.h>
#include <trace.h>
int notrace = 0;
static int trc_key = -1;
typedef struct trc_spec {
int _trace_initialized ; /* trace initialized flag */
int _trace_level ; /* dynamic trace level */
int _indent_level ; /* dynamic indentation level */
char *_trace_file;
} trc_spec_t;
#define trace_level trc->_trace_level
#define trace_initialized trc->_trace_initialized
#define indent_level trc->_indent_level
#define trace_file trc->_trace_file
extern char* getenv(); /* get environment variable */
void DLL_DECL print_trace(int level, char *label, char *format, ...)
{
va_list args; /* arguments */
FILE *fp;
register int i; /* general purpose index */
trc_spec_t *trc;
int sav_errno = errno;
int sav_serrno = serrno;
va_start(args, format);
Cglobals_get(&trc_key,(void **)&trc,sizeof(trc_spec_t));
if (trace_level < level) return;
if (! trace_file)
fp = stdout;
else if ((fp = fopen(trace_file, "a")) == NULL)
goto restor;
for (i=0; i< level+indent_level ; i++) {
fprintf(fp," "); /* indentation */
}
fprintf(fp,"%s: ", label);
(void) vfprintf(fp, format, args);
fprintf(fp,"\n");
va_end(args);
fflush(fp);
if (trace_file)
fclose(fp);
restor:
errno = sav_errno;
serrno = sav_serrno;
}
void DLL_DECL init_trace(name) /* initialize trace level */
char *name; /* environment variable name */
{
char env_var[256];
register char *p; /* general purpose char. string pointer */
trc_spec_t *trc;
int sav_errno = errno;
int sav_serrno = serrno;
Cglobals_get(&trc_key,(void **)&trc,sizeof(trc_spec_t));
if (!trace_initialized) {
if ((p = getenv(name)) != NULL) {
if (atoi(p) != 0) {
trace_level = atoi(p);
strcpy(env_var, name);
strcat(env_var, "FILE");
if ((p = getenv(env_var)) != NULL)
trace_file = strdup(p);
print_trace(0, " **** ", "trace level set to %d", trace_level);
}
}
trace_initialized++;
}
indent_level++;
errno = sav_errno;
serrno = sav_serrno;
}
void DLL_DECL end_trace() /* end trace level */
{
trc_spec_t *trc;
int sav_errno = errno;
int sav_serrno = serrno;
Cglobals_get(&trc_key,(void **)&trc,sizeof(trc_spec_t));
if (indent_level > 0) indent_level--;
errno = sav_errno;
serrno = sav_serrno;
}
|
