Minor changes.
[yaz-moved-to-github.git] / util / log.c
1 /*
2  * Copyright (c) 1995-1997, Index Data
3  * See the file LICENSE for details.
4  * Sebastian Hammer, Adam Dickmeiss
5  *
6  * $Log: log.c,v $
7  * Revision 1.18  1998-10-28 10:27:00  adam
8  * New functions log_init_file, log_init_level, log_init_prefix.
9  *
10  * Revision 1.17  1997/12/09 16:11:02  adam
11  * Assume strerror is defined on Unixes as well. It's standard ANSI.
12  *
13  * Revision 1.16  1997/10/06 08:55:07  adam
14  * Changed log_init so that previous (if any) is closed.
15  *
16  * Revision 1.15  1997/09/29 07:13:13  adam
17  * Minor changes.
18  *
19  * Revision 1.14  1997/09/18 08:48:09  adam
20  * Fixed minor bug that caused log_init to ignore filename.
21  *
22  * Revision 1.13  1997/09/01 08:54:13  adam
23  * New windows NT/95 port using MSV5.0. Made prefix query handling
24  * thread safe. The function options ignores empty arguments when met.
25  *
26  * Revision 1.12  1997/05/01 15:08:14  adam
27  * Added log_mask_str_x routine.
28  *
29  * Revision 1.11  1996/02/05 12:24:32  adam
30  * Implemented log_event_{start,end}-functions.
31  *
32  * Revision 1.10  1995/12/06  09:51:27  quinn
33  * Fixed the log-prefix buffer - it was too small and the setup code lacked
34  * a bounds-check.
35  *
36  * Revision 1.9  1995/09/29  17:12:34  quinn
37  * Smallish
38  *
39  * Revision 1.8  1995/09/27  15:03:02  quinn
40  * Modified function heads & prototypes.
41  *
42  * Revision 1.7  1995/06/19  12:40:18  quinn
43  * Added log_file()
44  *
45  * Revision 1.6  1995/06/15  15:45:03  quinn
46  * Added date info.
47  *
48  * Revision 1.5  1995/05/16  08:51:11  quinn
49  * License, documentation, and memory fixes
50  *
51  * Revision 1.4  1995/05/15  11:56:55  quinn
52  * Debuggng & adjustments.
53  *
54  * Revision 1.3  1995/04/10  10:23:51  quinn
55  * Fixes.
56  *
57  * Revision 1.2  1995/03/31  10:16:55  quinn
58  * Fixed logging.
59  *
60  * Revision 1.1  1995/03/30  10:26:53  quinn
61  * Logging system
62  *
63  * Revision 1.9  1994/12/12  12:09:02  quinn
64  * Changes
65  *
66  * Revision 1.8  1994/11/22  13:15:38  quinn
67  * Simple
68  *
69  * Revision 1.7  1994/10/05  10:16:11  quinn
70  * Added xrealloc. Fixed bug in log.
71  *
72  * Revision 1.6  1994/10/04  14:02:19  quinn
73  * Fixed log_init
74  *
75  * Revision 1.5  1994/09/28  13:07:41  adam
76  * Implemented log_mask_str.
77  *
78  * Revision 1.4  1994/09/27  20:04:13  quinn
79  * Added fflush.
80  *
81  * Revision 1.3  1994/08/18  08:18:48  quinn
82  * Added prefix to log_init.
83  *
84  * Revision 1.2  1994/08/17  14:27:53  quinn
85  * added LOG_ERRNO
86  *
87  * Revision 1.1  1994/08/17  13:23:15  quinn
88  * First version
89  * Added log.c
90  *
91  */
92
93 #include <stdio.h>
94 #include <stdlib.h>
95 #include <ctype.h>
96 #include <string.h>
97 #include <stdarg.h>
98 #include <errno.h>
99 #include <time.h>
100 #include <log.h>
101
102 #define HAS_STRERROR 1
103
104 #if HAS_STRERROR
105
106 #else
107 char *strerror(int n)
108 {
109         extern char *sys_errlist[];
110         return sys_errlist[n];
111 }
112
113 #endif
114
115 static int l_level = LOG_DEFAULT_LEVEL;
116 static FILE *l_file = NULL;
117 static char l_prefix[512] = "log";
118
119 static struct {
120     int mask;
121     char *name;
122 } mask_names[] =
123 {
124     { LOG_FATAL, "fatal"},
125     { LOG_DEBUG, "debug"},
126     { LOG_WARN,  "warn" },
127     { LOG_LOG,   "log"  },
128     { LOG_ERRNO, ""},
129     { LOG_ALL,   "all"  },
130     { 0,         "none" },
131     { 0, NULL }
132 };  
133
134 FILE *log_file(void)
135 {
136     if (!l_file)
137         l_file = stderr;
138     return l_file;
139 }
140
141 void log_init_file (const char *fname)
142 {
143     FILE *new_file;
144     if (!l_file)
145         l_file = stderr;
146     if (!fname || !*fname)
147         return;
148     if (!(new_file = fopen(fname, "a")))
149         return;
150     if (l_file != stderr)
151     {
152         fclose (l_file);
153     }
154     setvbuf(new_file, 0, _IONBF, 0);
155     l_file = new_file;
156 }
157
158 void log_init_level (int level)
159 {
160     l_level = level;
161 }
162
163 void log_init_prefix (const char *prefix)
164 {
165     if (prefix && *prefix)
166         sprintf(l_prefix, "%.512s", prefix);
167 }
168
169 void log_init(int level, const char *prefix, const char *fname)
170 {
171     log_init_level (level);
172     log_init_prefix (prefix);
173     log_init_file (fname);
174 }
175
176 static void (*start_hook_func)(int, const char *, void *) = NULL;
177 static void *start_hook_info;
178 static void (*end_hook_func)(int, const char *, void *) = NULL;
179 static void *end_hook_info;
180
181 void log_event_start (void (*func)(int, const char *, void *), void *info)
182 {
183     start_hook_func = func;
184     start_hook_info = info;
185 }
186
187 void log_event_end (void (*func)(int, const char *, void *), void *info)
188 {
189     end_hook_func = func;
190     end_hook_info = info;
191 }
192
193 void logf(int level, const char *fmt, ...)
194 {
195     va_list ap;
196     char buf[4096], flags[1024];
197     int i;
198     time_t ti;
199     struct tm *tim;
200     char tbuf[50];
201     int o_level = level;
202
203     if (!(level & l_level))
204         return;
205     if (!l_file)
206         l_file = stderr;
207     *flags = '\0';
208     for (i = 0; level && mask_names[i].name; i++)
209         if (mask_names[i].mask & level)
210         {
211             if (*mask_names[i].name)
212                 sprintf(flags + strlen(flags), "[%s]", mask_names[i].name);
213             level -= mask_names[i].mask;
214         }
215     va_start(ap, fmt);
216     vsprintf(buf, fmt, ap);
217     if (o_level & LOG_ERRNO)
218         sprintf(buf + strlen(buf), " [%s]", strerror(errno));
219     if (start_hook_func)
220         (*start_hook_func)(o_level, buf, start_hook_info);
221     ti = time(0);
222     tim = localtime(&ti);
223     strftime(tbuf, 50, "%H:%M:%S-%d/%m", tim);
224     fprintf(l_file, "%s: %s: %s %s\n", tbuf, l_prefix, flags, buf);
225     fflush(l_file);
226     if (end_hook_func)
227         (*end_hook_func)(o_level, buf, end_hook_info);
228 }
229
230 int log_mask_str (const char *str)
231 {
232     return log_mask_str_x (str, LOG_DEFAULT_LEVEL);
233 }
234
235 int log_mask_str_x (const char *str, int level)
236 {
237     const char *p;
238     int i;
239
240     while (*str)
241     {
242         for (p = str; *p && *p != ','; p++)
243             ;
244         if (*str == '-' || isdigit(*str))
245             level = atoi (str);
246         else
247             for (i = 0; mask_names[i].name; i++)
248                 if (strlen (mask_names[i].name) == (size_t) (p-str) &&
249                     memcmp (mask_names[i].name, str, p-str) == 0)
250                 {
251                     if (mask_names[i].mask)
252                         level |= mask_names[i].mask;
253                     else
254                         level = 0;
255                 }
256         if (*p == ',')
257             p++;
258         str = p;
259     }
260     return level;
261 }