contrib/ntp/sntp/libevent/log.c

   1 /*      $OpenBSD: err.c,v 1.2 2002/06/25 15:50:15 mickey Exp $  */
   2
   3 /*
   4  * log.c
   5  *
   6  * Based on err.c, which was adapted from OpenBSD libc *err* *warn* code.
   7  *
   8  * Copyright (c) 2005-2012 Niels Provos and Nick Mathewson
   9  *
  10  * Copyright (c) 2000 Dug Song <dugsong@monkey.org>
  11  *
  12  * Copyright (c) 1993
  13  *      The Regents of the University of California.  All rights reserved.
  14  *
  15  * Redistribution and use in source and binary forms, with or without
  16  * modification, are permitted provided that the following conditions
  17  * are met:
  18  * 1. Redistributions of source code must retain the above copyright
  19  *    notice, this list of conditions and the following disclaimer.
  20  * 2. Redistributions in binary form must reproduce the above copyright
  21  *    notice, this list of conditions and the following disclaimer in the
  22  *    documentation and/or other materials provided with the distribution.
  23  * 3. Neither the name of the University nor the names of its contributors
  24  *    may be used to endorse or promote products derived from this software
  25  *    without specific prior written permission.
  26  *
  27  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  28  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  29  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  30  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  31  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  32  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  33  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  34  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  35  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  36  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  37  * SUCH DAMAGE.
  38  */
  39
  40 #include "event2/event-config.h"
  41 #include "evconfig-private.h"
  42
  43 #ifdef _WIN32
  44 #include <winsock2.h>
  45 #define WIN32_LEAN_AND_MEAN
  46 #include <windows.h>
  47 #undef WIN32_LEAN_AND_MEAN
  48 #endif
  49 #include <sys/types.h>
  50 #include <stdio.h>
  51 #include <stdlib.h>
  52 #include <stdarg.h>
  53 #include <string.h>
  54 #include <errno.h>
  55 #include "event2/event.h"
  56 #include "event2/util.h"
  57
  58 #include "log-internal.h"
  59
  60 static void event_log(int severity, const char *msg);
  61 static void event_exit(int errcode) EV_NORETURN;
  62
  63 static event_fatal_cb fatal_fn = NULL;
  64
  65 #ifdef EVENT_DEBUG_LOGGING_ENABLED
  66 #ifdef USE_DEBUG
  67 #define DEFAULT_MASK EVENT_DBG_ALL
  68 #else
  69 #define DEFAULT_MASK 0
  70 #endif
  71
  72 #ifdef USE_GLOBAL_FOR_DEBUG_LOGGING
  73 ev_uint32_t event_debug_logging_mask_ = DEFAULT_MASK;
  74 #else
  75 static ev_uint32_t event_debug_logging_mask_ = DEFAULT_MASK;
  76 ev_uint32_t
  77 event_debug_get_logging_mask_(void)
  78 {
  79         return event_debug_logging_mask_;
  80 }
  81 #endif
  82 #endif /* EVENT_DEBUG_LOGGING_ENABLED */
  83
  84 void
  85 event_enable_debug_logging(ev_uint32_t which)
  86 {
  87 #ifdef EVENT_DEBUG_LOGGING_ENABLED
  88         event_debug_logging_mask_ = which;
  89 #endif
  90 }
  91
  92 void
  93 event_set_fatal_callback(event_fatal_cb cb)
  94 {
  95         fatal_fn = cb;
  96 }
  97
  98 static void
  99 event_exit(int errcode)
 100 {
 101         if (fatal_fn) {
 102                 fatal_fn(errcode);
 103                 exit(errcode); /* should never be reached */
 104         } else if (errcode == EVENT_ERR_ABORT_)
 105                 abort();
 106         else
 107                 exit(errcode);
 108 }
 109
 110 void
 111 event_err(int eval, const char *fmt, ...)
 112 {
 113         va_list ap;
 114
 115         va_start(ap, fmt);
 116         event_logv_(EVENT_LOG_ERR, strerror(errno), fmt, ap);
 117         va_end(ap);
 118         event_exit(eval);
 119 }
 120
 121 void
 122 event_warn(const char *fmt, ...)
 123 {
 124         va_list ap;
 125
 126         va_start(ap, fmt);
 127         event_logv_(EVENT_LOG_WARN, strerror(errno), fmt, ap);
 128         va_end(ap);
 129 }
 130
 131 void
 132 event_sock_err(int eval, evutil_socket_t sock, const char *fmt, ...)
 133 {
 134         va_list ap;
 135         int err = evutil_socket_geterror(sock);
 136
 137         va_start(ap, fmt);
 138         event_logv_(EVENT_LOG_ERR, evutil_socket_error_to_string(err), fmt, ap);
 139         va_end(ap);
 140         event_exit(eval);
 141 }
 142
 143 void
 144 event_sock_warn(evutil_socket_t sock, const char *fmt, ...)
 145 {
 146         va_list ap;
 147         int err = evutil_socket_geterror(sock);
 148
 149         va_start(ap, fmt);
 150         event_logv_(EVENT_LOG_WARN, evutil_socket_error_to_string(err), fmt, ap);
 151         va_end(ap);
 152 }
 153
 154 void
 155 event_errx(int eval, const char *fmt, ...)
 156 {
 157         va_list ap;
 158
 159         va_start(ap, fmt);
 160         event_logv_(EVENT_LOG_ERR, NULL, fmt, ap);
 161         va_end(ap);
 162         event_exit(eval);
 163 }
 164
 165 void
 166 event_warnx(const char *fmt, ...)
 167 {
 168         va_list ap;
 169
 170         va_start(ap, fmt);
 171         event_logv_(EVENT_LOG_WARN, NULL, fmt, ap);
 172         va_end(ap);
 173 }
 174
 175 void
 176 event_msgx(const char *fmt, ...)
 177 {
 178         va_list ap;
 179
 180         va_start(ap, fmt);
 181         event_logv_(EVENT_LOG_MSG, NULL, fmt, ap);
 182         va_end(ap);
 183 }
 184
 185 void
 186 event_debugx_(const char *fmt, ...)
 187 {
 188         va_list ap;
 189
 190         va_start(ap, fmt);
 191         event_logv_(EVENT_LOG_DEBUG, NULL, fmt, ap);
 192         va_end(ap);
 193 }
 194
 195 void
 196 event_logv_(int severity, const char *errstr, const char *fmt, va_list ap)
 197 {
 198         char buf[1024];
 199         size_t len;
 200
 201         if (severity == EVENT_LOG_DEBUG && !event_debug_get_logging_mask_())
 202                 return;
 203
 204         if (fmt != NULL)
 205                 evutil_vsnprintf(buf, sizeof(buf), fmt, ap);
 206         else
 207                 buf[0] = '\0';
 208
 209         if (errstr) {
 210                 len = strlen(buf);
 211                 if (len < sizeof(buf) - 3) {
 212                         evutil_snprintf(buf + len, sizeof(buf) - len, ": %s", errstr);
 213                 }
 214         }
 215
 216         event_log(severity, buf);
 217 }
 218
 219 static event_log_cb log_fn = NULL;
 220
 221 void
 222 event_set_log_callback(event_log_cb cb)
 223 {
 224         log_fn = cb;
 225 }
 226
 227 static void
 228 event_log(int severity, const char *msg)
 229 {
 230         if (log_fn)
 231                 log_fn(severity, msg);
 232         else {
 233                 const char *severity_str;
 234                 switch (severity) {
 235                 case EVENT_LOG_DEBUG:
 236                         severity_str = "debug";
 237                         break;
 238                 case EVENT_LOG_MSG:
 239                         severity_str = "msg";
 240                         break;
 241                 case EVENT_LOG_WARN:
 242                         severity_str = "warn";
 243                         break;
 244                 case EVENT_LOG_ERR:
 245                         severity_str = "err";
 246                         break;
 247                 default:
 248                         severity_str = "???";
 249                         break;
 250                 }
 251                 (void)fprintf(stderr, "[%s] %s\n", severity_str, msg);
 252         }
 253 }