/* * Copyright (c) 2017-2019 Cisco and/or its affiliates. * Licensed under the Apache License, Version 2.0 (the "License"); * you may not use this file except in compliance with the License. * You may obtain a copy of the License at: * * http://www.apache.org/licenses/LICENSE-2.0 * * Unless required by applicable law or agreed to in writing, software * distributed under the License is distributed on an "AS IS" BASIS, * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. * See the License for the specific language governing permissions and * limitations under the License. */ /* * The MIT License (MIT) * * Copyright (c) 2017 wonder-mice * * Permission is hereby granted, free of charge, to any person obtaining a copy * of this software and associated documentation files (the "Software"), to deal * in the Software without restriction, including without limitation the rights * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell * copies of the Software, and to permit persons to whom the Software is * furnished to do so, subject to the following conditions: * * The above copyright notice and this permission notice shall be included in * all copies or substantial portions of the Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE * SOFTWARE. */ /* When defined, Android log (android/log.h) will be used by default instead of * stderr (ignored on non-Android platforms). Date, time, pid and tid (context) * will be provided by Android log. Android log features will be used to output * log level and tag. */ #ifdef TRANSPORT_LOG_USE_ANDROID_LOG #undef TRANSPORT_LOG_USE_ANDROID_LOG #if defined(__ANDROID__) #define TRANSPORT_LOG_USE_ANDROID_LOG 1 #else #define TRANSPORT_LOG_USE_ANDROID_LOG 0 #endif #else #define TRANSPORT_LOG_USE_ANDROID_LOG 0 #endif /* When defined, NSLog (uses Apple System Log) will be used instead of stderr * (ignored on non-Apple platforms). Date, time, pid and tid (context) will be * provided by NSLog. Curiously, doesn't use NSLog() directly, but piggybacks on * non-public CFLog() function. Both use Apple System Log internally, but it's * easier to call CFLog() from C than NSLog(). Current implementation doesn't * support "%@" format specifier. */ #ifdef TRANSPORT_LOG_USE_NSLOG #undef TRANSPORT_LOG_USE_NSLOG #if defined(__APPLE__) && defined(__MACH__) #define TRANSPORT_LOG_USE_NSLOG 1 #else #define TRANSPORT_LOG_USE_NSLOG 0 #endif #else #define TRANSPORT_LOG_USE_NSLOG 0 #endif /* When defined, OutputDebugString() will be used instead of stderr (ignored on * non-Windows platforms). Uses OutputDebugStringA() variant and feeds it with * UTF-8 data. */ #ifdef TRANSPORT_LOG_USE_DEBUGSTRING #undef TRANSPORT_LOG_USE_DEBUGSTRING #if defined(_WIN32) || defined(_WIN64) #define TRANSPORT_LOG_USE_DEBUGSTRING 1 #else #define TRANSPORT_LOG_USE_DEBUGSTRING 0 #endif #else #define TRANSPORT_LOG_USE_DEBUGSTRING 0 #endif /* When defined, TRANSPORT_LOG library will not contain definition of tag prefix * variable. In that case it must be defined elsewhere using * TRANSPORT_LOG_DEFINE_TAG_PREFIX macro, for example: * * TRANSPORT_LOG_DEFINE_TAG_PREFIX = "ProcessName"; * * This allows to specify custom value for static initialization and avoid * overhead of setting this value in runtime. */ #ifdef TRANSPORT_LOG_EXTERN_TAG_PREFIX #undef TRANSPORT_LOG_EXTERN_TAG_PREFIX #define TRANSPORT_LOG_EXTERN_TAG_PREFIX 1 #else #define TRANSPORT_LOG_EXTERN_TAG_PREFIX 0 #endif /* When defined, TRANSPORT_LOG library will not contain definition of global * format variable. In that case it must be defined elsewhere using * TRANSPORT_LOG_DEFINE_GLOBAL_FORMAT macro, for example: * * TRANSPORT_LOG_DEFINE_GLOBAL_FORMAT = {MEM_WIDTH}; * * This allows to specify custom value for static initialization and avoid * overhead of setting this value in runtime. */ #ifdef TRANSPORT_LOG_EXTERN_GLOBAL_FORMAT #undef TRANSPORT_LOG_EXTERN_GLOBAL_FORMAT #define TRANSPORT_LOG_EXTERN_GLOBAL_FORMAT 1 #else #define TRANSPORT_LOG_EXTERN_GLOBAL_FORMAT 0 #endif /* When defined, transport_log library will not contain definition of global * output variable. In that case it must be defined elsewhere using * TRANSPORT_LOG_DEFINE_GLOBAL_OUTPUT macro, for example: * * TRANSPORT_LOG_DEFINE_GLOBAL_OUTPUT = {TRANSPORT_LOG_PUT_STD, * custom_output_callback}; * * This allows to specify custom value for static initialization and avoid * overhead of setting this value in runtime. */ #ifdef TRANSPORT_LOG_EXTERN_GLOBAL_OUTPUT #undef TRANSPORT_LOG_EXTERN_GLOBAL_OUTPUT #define TRANSPORT_LOG_EXTERN_GLOBAL_OUTPUT 1 #else #define TRANSPORT_LOG_EXTERN_GLOBAL_OUTPUT 0 #endif /* When defined, transport_log library will not contain definition of global * output level variable. In that case it must be defined elsewhere using * TRANSPORT_LOG_DEFINE_GLOBAL_OUTPUT_LEVEL macro, for example: * * TRANSPORT_LOG_DEFINE_GLOBAL_OUTPUT_LEVEL = TRANSPORT_LOG_WARN; * * This allows to specify custom value for static initialization and avoid * overhead of setting this value in runtime. */ #ifdef TRANSPORT_LOG_EXTERN_GLOBAL_OUTPUT_LEVEL #undef TRANSPORT_LOG_EXTERN_GLOBAL_OUTPUT_LEVEL #define TRANSPORT_LOG_EXTERN_GLOBAL_OUTPUT_LEVEL 1 #else #define TRANSPORT_LOG_EXTERN_GLOBAL_OUTPUT_LEVEL 0 #endif /* When defined, implementation will prefer smaller code size over speed. * Very rough estimate is that code will be up to 2x smaller and up to 2x * slower. Disabled by default. */ #ifdef TRANSPORT_LOG_OPTIMIZE_SIZE #undef TRANSPORT_LOG_OPTIMIZE_SIZE #define TRANSPORT_LOG_OPTIMIZE_SIZE 1 #else #define TRANSPORT_LOG_OPTIMIZE_SIZE 0 #endif /* Size of the log line buffer. The buffer is allocated on stack. It limits * maximum length of a log line. */ #ifndef TRANSPORT_LOG_BUF_SZ #define TRANSPORT_LOG_BUF_SZ 512 #endif /* Default number of bytes in one line of memory output. For large values * TRANSPORT_LOG_BUF_SZ also must be increased. */ #ifndef TRANSPORT_LOG_MEM_WIDTH #define TRANSPORT_LOG_MEM_WIDTH 32 #endif /* String to put in the end of each log line (can be empty). Its value used by * stderr output callback. Its size used as a default value for * TRANSPORT_LOG_EOL_SZ. */ #ifndef TRANSPORT_LOG_EOL #define TRANSPORT_LOG_EOL "\n" #endif /* Default delimiter that separates parts of log message. Can NOT contain '%' * or '\0'. * * Log message format specifications can override (or ignore) this value. For * more details see TRANSPORT_LOG_MESSAGE_CTX_FORMAT, * TRANSPORT_LOG_MESSAGE_SRC_FORMAT and TRANSPORT_LOG_MESSAGE_TAG_FORMAT. */ #ifndef TRANSPORT_LOG_DEF_DELIMITER #define TRANSPORT_LOG_DEF_DELIMITER " " #endif /* Specifies log message context format. Log message context includes date, * time, process id, thread id and message's log level. Custom information can * be added as well. Supported fields: YEAR, MONTH, DAY, HOUR, MINUTE, SECOND, * MILLISECOND, PID, TID, LEVEL, S(str), F_INIT(statements), * F_UINT(width, value). * * Must be defined as a tuple, for example: * * #define TRANSPORT_LOG_MESSAGE_CTX_FORMAT (YEAR, S("."), MONTH, S("."), DAY, * S(" > ")) * * In that case, resulting log message will be: * * 2016.12.22 > TAG function@filename.c:line Message text * * Note, that tag, source location and message text are not impacted by * this setting. See TRANSPORT_LOG_MESSAGE_TAG_FORMAT and * TRANSPORT_LOG_MESSAGE_SRC_FORMAT. * * If message context must be visually separated from the rest of the message, * it must be reflected in context format (notice trailing S(" > ") in the * example above). * * S(str) adds constant string str. String can NOT contain '%' or '\0'. * * F_INIT(statements) adds initialization statement(s) that will be evaluated * once for each log message. All statements are evaluated in specified order. * Several F_INIT() fields can be used in every log message format * specification. Fields, like F_UINT(width, value), are allowed to use results * of initialization statements. If statement introduces variables (or other * names, like structures) they must be prefixed with "f_". Statements must be * enclosed into additional "()". Example: * * #define TRANSPORT_LOG_MESSAGE_CTX_FORMAT \ * (F_INIT(( struct rusage f_ru; getrusage(RUSAGE_SELF, &f_ru); )), \ * YEAR, S("."), MONTH, S("."), DAY, S(" "), \ * F_UINT(5, f_ru.ru_nsignals), \ * S(" ")) * * F_UINT(width, value) adds unsigned integer value extended with up to width * spaces (for alignment purposes). Value can be any expression that evaluates * to unsigned integer. If expression contains non-standard functions, they * must be declared with F_INIT(). Example: * * #define TRANSPORT_LOG_MESSAGE_CTX_FORMAT \ * (YEAR, S("."), MONTH, S("."), DAY, S(" "), \ * F_INIT(( unsigned tickcount(); )), \ * F_UINT(5, tickcount()), \ * S(" ")) * * Other log message format specifications follow same rules, but have a * different set of supported fields. */ #ifndef TRANSPORT_LOG_MESSAGE_CTX_FORMAT #define TRANSPORT_LOG_MESSAGE_CTX_FORMAT \ (MONTH, S("-"), DAY, S(TRANSPORT_LOG_DEF_DELIMITER), HOUR, S(":"), MINUTE, \ S(":"), SECOND, S("."), MILLISECOND, S(TRANSPORT_LOG_DEF_DELIMITER), PID, \ S(TRANSPORT_LOG_DEF_DELIMITER), TID, S(TRANSPORT_LOG_DEF_DELIMITER), LEVEL, \ S(TRANSPORT_LOG_DEF_DELIMITER)) #endif /* Example: */ /* Specifies log message tag format. It includes tag prefix and tag. Custom * information can be added as well. Supported fields: * TAG(prefix_delimiter, tag_delimiter), S(str), F_INIT(statements), * F_UINT(width, value). * * TAG(prefix_delimiter, tag_delimiter) adds following string to log message: * * PREFIXTAG * * Prefix delimiter will be used only when prefix is not empty. Tag delimiter * will be used only when prefixed tag is not empty. Example: * * #define TRANSPORT_LOG_TAG_FORMAT (S("["), TAG(".", ""), S("] ")) * * See TRANSPORT_LOG_MESSAGE_CTX_FORMAT for details. */ #ifndef TRANSPORT_LOG_MESSAGE_TAG_FORMAT #define TRANSPORT_LOG_MESSAGE_TAG_FORMAT (TAG(".", TRANSPORT_LOG_DEF_DELIMITER)) #endif /* Specifies log message source location format. It includes function name, * file name and file line. Custom information can be added as well. Supported * fields: FUNCTION, FILENAME, FILELINE, S(str), F_INIT(statements), * F_UINT(width, value). * * See TRANSPORT_LOG_MESSAGE_CTX_FORMAT for details. */ #ifndef TRANSPORT_LOG_MESSAGE_SRC_FORMAT #define TRANSPORT_LOG_MESSAGE_SRC_FORMAT \ (FUNCTION, S("@"), FILENAME, S(":"), FILELINE, S(TRANSPORT_LOG_DEF_DELIMITER)) #endif /* Fields that can be used in log message format specifications (see above). * Mentioning them here explicitly, so we know that nobody else defined them * before us. See TRANSPORT_LOG_MESSAGE_CTX_FORMAT for details. */ #define YEAR YEAR #define MONTH MONTH #define DAY DAY #define MINUTE MINUTE #define SECOND SECOND #define MILLISECOND MILLISECOND #define PID PID #define TID TID #define LEVEL LEVEL #define TAG(prefix_delim, tag_delim) TAG(prefix_delim, tag_delim) #define FUNCTION FUNCTION #define FILENAME FILENAME #define FILELINE FILELINE #define S(str) S(str) #define F_INIT(statements) F_INIT(statements) #define F_UINT(width, value) F_UINT(width, value) /* Number of bytes to reserve for EOL in the log line buffer (must be >0). * Must be larger than or equal to length of TRANSPORT_LOG_EOL with terminating * null. */ #ifndef TRANSPORT_LOG_EOL_SZ #define TRANSPORT_LOG_EOL_SZ sizeof(TRANSPORT_LOG_EOL) #endif /* Compile instrumented version of the library to facilitate unit testing. */ #ifndef TRANSPORT_LOG_INSTRUMENTED #define TRANSPORT_LOG_INSTRUMENTED 0 #endif #if defined(__linux__) #if !defined(__ANDROID__) && !defined(_GNU_SOURCE) #define _GNU_SOURCE #endif #endif #if defined(__MINGW32__) #ifdef __STRICT_ANSI__ #undef __STRICT_ANSI__ #endif #endif #include #include #include #include #include #include #include #include #include #if defined(_WIN32) || defined(_WIN64) #include #else #include #include #if defined(__linux__) #include #else #include #endif #endif #if defined(__linux__) #include #include #if !defined(__ANDROID__) #include #endif #endif #if defined(__MACH__) #include #endif #define INLINE _TRANSPORT_LOG_INLINE #define VAR_UNUSED(var) (void)var #define RETVAL_UNUSED(expr) \ do { \ while (expr) break; \ } while (0) #define STATIC_ASSERT(name, cond) typedef char assert_##name[(cond) ? 1 : -1] #define ASSERT_UNREACHABLE(why) assert(!sizeof(why)) #ifndef _countof #define _countof(xs) (sizeof(xs) / sizeof((xs)[0])) #endif #if TRANSPORT_LOG_INSTRUMENTED #define INSTRUMENTED_CONST #else #define INSTRUMENTED_CONST const #endif #define _PP_PASTE_2(a, b) a##b #define _PP_CONCAT_2(a, b) _PP_PASTE_2(a, b) #define _PP_PASTE_3(a, b, c) a##b##c #define _PP_CONCAT_3(a, b, c) _PP_PASTE_3(a, b, c) /* Microsoft C preprocessor is a piece of shit. This moron treats __VA_ARGS__ * as a single token and requires additional expansion to realize that it's * actually a list. If not for it, there would be no need in this extra * expansion. */ #define _PP_ID(x) x #define _PP_NARGS_N(_0, _1, _2, _3, _4, _5, _6, _7, _8, _9, _10, _11, _12, \ _13, _14, _15, _16, _17, _18, _19, _20, _21, _22, _23, \ _24, ...) \ _24 #define _PP_NARGS(...) \ _PP_ID(_PP_NARGS_N(__VA_ARGS__, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, \ 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0)) /* There is a more efficient way to implement this, but it requires * working C preprocessor. Unfortunately, Microsoft Visual Studio doesn't * have one. */ #define _PP_HEAD__(x, ...) x #define _PP_HEAD_(...) _PP_ID(_PP_HEAD__(__VA_ARGS__, ~)) #define _PP_HEAD(xs) _PP_HEAD_ xs #define _PP_TAIL_(x, ...) (__VA_ARGS__) #define _PP_TAIL(xs) _PP_TAIL_ xs #define _PP_UNTUPLE_(...) __VA_ARGS__ #define _PP_UNTUPLE(xs) _PP_UNTUPLE_ xs /* Apply function macro to each element in tuple. Output is not * enforced to be a tuple. */ #define _PP_MAP_1(f, xs) f(_PP_HEAD(xs)) #define _PP_MAP_2(f, xs) f(_PP_HEAD(xs)) _PP_MAP_1(f, _PP_TAIL(xs)) #define _PP_MAP_3(f, xs) f(_PP_HEAD(xs)) _PP_MAP_2(f, _PP_TAIL(xs)) #define _PP_MAP_4(f, xs) f(_PP_HEAD(xs)) _PP_MAP_3(f, _PP_TAIL(xs)) #define _PP_MAP_5(f, xs) f(_PP_HEAD(xs)) _PP_MAP_4(f, _PP_TAIL(xs)) #define _PP_MAP_6(f, xs) f(_PP_HEAD(xs)) _PP_MAP_5(f, _PP_TAIL(xs)) #define _PP_MAP_7(f, xs) f(_PP_HEAD(xs)) _PP_MAP_6(f, _PP_TAIL(xs)) #define _PP_MAP_8(f, xs) f(_PP_HEAD(xs)) _PP_MAP_7(f, _PP_TAIL(xs)) #define _PP_MAP_9(f, xs) f(_PP_HEAD(xs)) _PP_MAP_8(f, _PP_TAIL(xs)) #define _PP_MAP_10(f, xs) f(_PP_HEAD(xs)) _PP_MAP_9(f, _PP_TAIL(xs)) #define _PP_MAP_11(f, xs) f(_PP_HEAD(xs)) _PP_MAP_10(f, _PP_TAIL(xs)) #define _PP_MAP_12(f, xs) f(_PP_HEAD(xs)) _PP_MAP_11(f, _PP_TAIL(xs)) #define _PP_MAP_13(f, xs) f(_PP_HEAD(xs)) _PP_MAP_12(f, _PP_TAIL(xs)) #define _PP_MAP_14(f, xs) f(_PP_HEAD(xs)) _PP_MAP_13(f, _PP_TAIL(xs)) #define _PP_MAP_15(f, xs) f(_PP_HEAD(xs)) _PP_MAP_14(f, _PP_TAIL(xs)) #define _PP_MAP_16(f, xs) f(_PP_HEAD(xs)) _PP_MAP_15(f, _PP_TAIL(xs)) #define _PP_MAP_17(f, xs) f(_PP_HEAD(xs)) _PP_MAP_16(f, _PP_TAIL(xs)) #define _PP_MAP_18(f, xs) f(_PP_HEAD(xs)) _PP_MAP_17(f, _PP_TAIL(xs)) #define _PP_MAP_19(f, xs) f(_PP_HEAD(xs)) _PP_MAP_18(f, _PP_TAIL(xs)) #define _PP_MAP_20(f, xs) f(_PP_HEAD(xs)) _PP_MAP_19(f, _PP_TAIL(xs)) #define _PP_MAP_21(f, xs) f(_PP_HEAD(xs)) _PP_MAP_20(f, _PP_TAIL(xs)) #define _PP_MAP_22(f, xs) f(_PP_HEAD(xs)) _PP_MAP_21(f, _PP_TAIL(xs)) #define _PP_MAP_23(f, xs) f(_PP_HEAD(xs)) _PP_MAP_22(f, _PP_TAIL(xs)) #define _PP_MAP_24(f, xs) f(_PP_HEAD(xs)) _PP_MAP_23(f, _PP_TAIL(xs)) #define _PP_MAP(f, xs) _PP_CONCAT_2(_PP_MAP_, _PP_NARGS xs)(f, xs) /* Apply function macro to each element in tuple in reverse order. * Output is not enforced to be a tuple. */ #define _PP_RMAP_1(f, xs) f(_PP_HEAD(xs)) #define _PP_RMAP_2(f, xs) _PP_RMAP_1(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_3(f, xs) _PP_RMAP_2(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_4(f, xs) _PP_RMAP_3(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_5(f, xs) _PP_RMAP_4(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_6(f, xs) _PP_RMAP_5(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_7(f, xs) _PP_RMAP_6(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_8(f, xs) _PP_RMAP_7(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_9(f, xs) _PP_RMAP_8(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_10(f, xs) _PP_RMAP_9(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_11(f, xs) _PP_RMAP_10(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_12(f, xs) _PP_RMAP_11(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_13(f, xs) _PP_RMAP_12(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_14(f, xs) _PP_RMAP_13(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_15(f, xs) _PP_RMAP_14(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_16(f, xs) _PP_RMAP_15(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_17(f, xs) _PP_RMAP_16(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_18(f, xs) _PP_RMAP_17(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_19(f, xs) _PP_RMAP_18(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_20(f, xs) _PP_RMAP_19(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_21(f, xs) _PP_RMAP_20(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_22(f, xs) _PP_RMAP_21(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_23(f, xs) _PP_RMAP_22(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP_24(f, xs) _PP_RMAP_23(f, _PP_TAIL(xs)) f(_PP_HEAD(xs)) #define _PP_RMAP(f, xs) _PP_CONCAT_2(_PP_RMAP_, _PP_NARGS xs)(f, xs) /* Used to implement _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS() macro. All * possible fields must be mentioned here. Not counting F_INIT() here because * it's somewhat special and is handled spearatly (at least for now). */ #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__ (0 << 0) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__YEAR (1 << 1) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__MONTH (1 << 2) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__DAY (1 << 3) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__HOUR (1 << 4) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__MINUTE (1 << 5) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__SECOND (1 << 6) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__MILLISECOND (1 << 7) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__PID (1 << 8) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__TID (1 << 9) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__LEVEL (1 << 10) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__TAG(ps, ts) (1 << 11) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__FUNCTION (1 << 12) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__FILENAME (1 << 13) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__FILELINE (1 << 14) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__S(s) (1 << 15) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__F_INIT(expr) (0 << 16) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK__F_UINT(w, v) (1 << 17) #define _TRANSPORT_LOG_MESSAGE_FORMAT_MASK(field) \ _PP_CONCAT_3(_TRANSPORT_LOG_MESSAGE_FORMAT_MASK_, _, field) /* Logical "or" of masks of fields used in specified format specification. */ #define _TRANSPORT_LOG_MESSAGE_FORMAT_FIELDS(format) \ (0 _PP_MAP(| _TRANSPORT_LOG_MESSAGE_FORMAT_MASK, format)) /* Expands to expressions that evaluates to true if field is used in * specified format specification. Example: * * #if _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(F_UINT, * TRANSPORT_LOG_MESSAGE_CTX_FORMAT) * ... * #endif */ #define _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(field, format) \ (_TRANSPORT_LOG_MESSAGE_FORMAT_MASK(field) & \ _TRANSPORT_LOG_MESSAGE_FORMAT_FIELDS(format)) /* Same, but checks all supported format specifications. */ #define _TRANSPORT_LOG_MESSAGE_FORMAT_FIELD_USED(field) \ (_TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(field, \ TRANSPORT_LOG_MESSAGE_CTX_FORMAT) || \ _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(field, \ TRANSPORT_LOG_MESSAGE_TAG_FORMAT) || \ _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(field, \ TRANSPORT_LOG_MESSAGE_SRC_FORMAT)) #define _TRANSPORT_LOG_MESSAGE_FORMAT_DATETIME_USED \ (_TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(YEAR, \ TRANSPORT_LOG_MESSAGE_CTX_FORMAT) || \ _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(MONTH, \ TRANSPORT_LOG_MESSAGE_CTX_FORMAT) || \ _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(DAY, \ TRANSPORT_LOG_MESSAGE_CTX_FORMAT) || \ _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(HOUR, \ TRANSPORT_LOG_MESSAGE_CTX_FORMAT) || \ _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(MINUTE, \ TRANSPORT_LOG_MESSAGE_CTX_FORMAT) || \ _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(SECOND, \ TRANSPORT_LOG_MESSAGE_CTX_FORMAT) || \ _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(MILLISECOND, \ TRANSPORT_LOG_MESSAGE_CTX_FORMAT)) #if defined(_MSC_VER) && !defined(__INTEL_COMPILER) #pragma warning(disable : 4204) /* nonstandard extension used: non-constant \ aggregate initializer */ #define memccpy _memccpy #endif #if (defined(_MSC_VER) && !defined(__INTEL_COMPILER)) || defined(__MINGW64__) #define vsnprintf(s, sz, fmt, va) fake_vsnprintf(s, sz, fmt, va) static int fake_vsnprintf(char *s, size_t sz, const char *fmt, va_list ap) { const int n = vsnprintf_s(s, sz, _TRUNCATE, fmt, ap); return 0 < n ? n : (int)sz + 1; /* no need in _vscprintf() for now */ } #if TRANSPORT_LOG_OPTIMIZE_SIZE #define snprintf(s, sz, ...) fake_snprintf(s, sz, __VA_ARGS__) static int fake_snprintf(char *s, size_t sz, const char *fmt, ...) { va_list va; va_start(va, fmt); const int n = fake_vsnprintf(s, sz, fmt, va); va_end(va); return n; } #endif #endif typedef void (*time_cb)(struct tm *const tm, unsigned *const usec); typedef void (*pid_cb)(int *const pid, int *const tid); typedef void (*buffer_cb)(transport_log_message *msg, char *buf); typedef struct src_location { const char *const func; const char *const file; const unsigned line; } src_location; typedef struct mem_block { const void *const d; const unsigned d_sz; } mem_block; static void time_callback(struct tm *const tm, unsigned *const usec); static void pid_callback(int *const pid, int *const tid); static void buffer_callback(transport_log_message *msg, char *buf); STATIC_ASSERT(eol_fits_eol_sz, sizeof(TRANSPORT_LOG_EOL) <= TRANSPORT_LOG_EOL_SZ); STATIC_ASSERT(eol_sz_greater_than_zero, 0 < TRANSPORT_LOG_EOL_SZ); STATIC_ASSERT(eol_sz_less_than_buf_sz, TRANSPORT_LOG_EOL_SZ < TRANSPORT_LOG_BUF_SZ); #if !defined(_WIN32) && !defined(_WIN64) STATIC_ASSERT(buf_sz_less_than_pipe_buf, TRANSPORT_LOG_BUF_SZ <= PIPE_BUF); #endif static const char c_hex[] = "0123456789abcdef"; static INSTRUMENTED_CONST unsigned g_buf_sz = TRANSPORT_LOG_BUF_SZ - TRANSPORT_LOG_EOL_SZ; static INSTRUMENTED_CONST time_cb g_time_cb = time_callback; static INSTRUMENTED_CONST pid_cb g_pid_cb = pid_callback; static INSTRUMENTED_CONST buffer_cb g_buffer_cb = buffer_callback; #if TRANSPORT_LOG_USE_ANDROID_LOG #include static INLINE int android_lvl(const int lvl) { switch (lvl) { case TRANSPORT_LOG_VERBOSE: return ANDROID_LOG_VERBOSE; case TRANSPORT_LOG_DEBUG: return ANDROID_LOG_DEBUG; case TRANSPORT_LOG_INFO: return ANDROID_LOG_INFO; case TRANSPORT_LOG_WARN: return ANDROID_LOG_WARN; case TRANSPORT_LOG_ERROR: return ANDROID_LOG_ERROR; case TRANSPORT_LOG_FATAL: return ANDROID_LOG_FATAL; default: ASSERT_UNREACHABLE("Bad log level"); return ANDROID_LOG_UNKNOWN; } } static void out_android_callback(const transport_log_message *const msg, void *arg) { VAR_UNUSED(arg); *msg->p = 0; const char *tag = msg->p; if (msg->tag_e != msg->tag_b) { tag = msg->tag_b; *msg->tag_e = 0; } __android_log_print(android_lvl(msg->lvl), tag, "%s", msg->msg_b); } enum { OUT_ANDROID_MASK = TRANSPORT_LOG_PUT_STD & ~TRANSPORT_LOG_PUT_CTX }; #define OUT_ANDROID OUT_ANDROID_MASK, 0, out_android_callback #endif #if TRANSPORT_LOG_USE_NSLOG #include CF_EXPORT void CFLog(int32_t level, CFStringRef format, ...); static INLINE int apple_lvl(const int lvl) { switch (lvl) { case TRANSPORT_LOG_VERBOSE: return 7; /* ASL_LEVEL_DEBUG / kCFLogLevelDebug */ ; case TRANSPORT_LOG_DEBUG: return 7; /* ASL_LEVEL_DEBUG / kCFLogLevelDebug */ ; case TRANSPORT_LOG_INFO: return 6; /* ASL_LEVEL_INFO / kCFLogLevelInfo */ ; case TRANSPORT_LOG_WARN: return 4; /* ASL_LEVEL_WARNING / kCFLogLevelWarning */ ; case TRANSPORT_LOG_ERROR: return 3; /* ASL_LEVEL_ERR / kCFLogLevelError */ ; case TRANSPORT_LOG_FATAL: return 0; /* ASL_LEVEL_EMERG / kCFLogLevelEmergency */ ; default: ASSERT_UNREACHABLE("Bad log level"); return 0; /* ASL_LEVEL_EMERG / kCFLogLevelEmergency */ ; } } static void out_nslog_callback(const transport_log_message *const msg, void *arg) { VAR_UNUSED(arg); *msg->p = 0; CFLog(apple_lvl(msg->lvl), CFSTR("%s"), msg->tag_b); } enum { OUT_NSLOG_MASK = TRANSPORT_LOG_PUT_STD & ~TRANSPORT_LOG_PUT_CTX }; #define OUT_NSLOG OUT_NSLOG_MASK, 0, out_nslog_callback #endif #if TRANSPORT_LOG_USE_DEBUGSTRING #include static void out_debugstring_callback(const transport_log_message *const msg, void *arg) { VAR_UNUSED(arg); msg->p[0] = '\n'; msg->p[1] = '\0'; OutputDebugStringA(msg->buf); } enum { OUT_DEBUGSTRING_MASK = TRANSPORT_LOG_PUT_STD }; #define OUT_DEBUGSTRING OUT_DEBUGSTRING_MASK, 0, out_debugstring_callback #endif void transport_log_out_stderr_callback(const transport_log_message *const msg, void *arg) { VAR_UNUSED(arg); const size_t eol_len = sizeof(TRANSPORT_LOG_EOL) - 1; memcpy(msg->p, TRANSPORT_LOG_EOL, eol_len); #if defined(_WIN32) || defined(_WIN64) /* WriteFile() is atomic for local files opened with FILE_APPEND_DATA and without FILE_WRITE_DATA */ DWORD written; WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg->buf, (DWORD)(msg->p - msg->buf + eol_len), &written, 0); #else /* write() is atomic for buffers less than or equal to PIPE_BUF. */ RETVAL_UNUSED( write(STDERR_FILENO, msg->buf, (size_t)(msg->p - msg->buf) + eol_len)); #endif } static const transport_log_output out_stderr = {TRANSPORT_LOG_OUT_STDERR}; #if !TRANSPORT_LOG_EXTERN_TAG_PREFIX TRANSPORT_LOG_DEFINE_TAG_PREFIX = 0; #endif #if !TRANSPORT_LOG_EXTERN_GLOBAL_FORMAT TRANSPORT_LOG_DEFINE_GLOBAL_FORMAT = {TRANSPORT_LOG_MEM_WIDTH}; #endif #if !TRANSPORT_LOG_EXTERN_GLOBAL_OUTPUT #if TRANSPORT_LOG_USE_ANDROID_LOG TRANSPORT_LOG_DEFINE_GLOBAL_OUTPUT = {OUT_ANDROID}; #elif TRANSPORT_LOG_USE_NSLOG TRANSPORT_LOG_DEFINE_GLOBAL_OUTPUT = {OUT_NSLOG}; #elif TRANSPORT_LOG_USE_DEBUGSTRING TRANSPORT_LOG_DEFINE_GLOBAL_OUTPUT = {OUT_DEBUGSTRING}; #else TRANSPORT_LOG_DEFINE_GLOBAL_OUTPUT = {TRANSPORT_LOG_OUT_STDERR}; #endif #endif #if !TRANSPORT_LOG_EXTERN_GLOBAL_OUTPUT_LEVEL TRANSPORT_LOG_DEFINE_GLOBAL_OUTPUT_LEVEL = 0; #endif const transport_log_spec _transport_log_stderr_spec = { TRANSPORT_LOG_GLOBAL_FORMAT, &out_stderr, }; static const transport_log_spec global_spec = { TRANSPORT_LOG_GLOBAL_FORMAT, TRANSPORT_LOG_GLOBAL_OUTPUT, }; #if _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(LEVEL, \ TRANSPORT_LOG_MESSAGE_CTX_FORMAT) static char lvl_char(const int lvl) { switch (lvl) { case TRANSPORT_LOG_VERBOSE: return 'V'; case TRANSPORT_LOG_DEBUG: return 'D'; case TRANSPORT_LOG_INFO: return 'I'; case TRANSPORT_LOG_WARN: return 'W'; case TRANSPORT_LOG_ERROR: return 'E'; case TRANSPORT_LOG_FATAL: return 'F'; default: ASSERT_UNREACHABLE("Bad log level"); return '?'; } } #endif #define GCCVER_LESS(MAJOR, MINOR, PATCH) \ (__GNUC__ < MAJOR || (__GNUC__ == MAJOR && (__GNUC_MINOR__ < MINOR || \ (__GNUC_MINOR__ == MINOR && \ __GNUC_PATCHLEVEL__ < PATCH)))) #if !defined(__clang__) && defined(__GNUC__) && GCCVER_LESS(4, 7, 0) #define __atomic_load_n(vp, model) __sync_fetch_and_add(vp, 0) #define __atomic_fetch_add(vp, n, model) __sync_fetch_and_add(vp, n) #define __atomic_sub_fetch(vp, n, model) __sync_sub_and_fetch(vp, n) #define __atomic_or_fetch(vp, n, model) __sync_or_and_fetch(vp, n) #define __atomic_and_fetch(vp, n, model) __sync_and_and_fetch(vp, n) /* Note: will not store old value of *vp in *ep (non-standard behaviour) */ #define __atomic_compare_exchange_n(vp, ep, d, weak, smodel, fmodel) \ __sync_bool_compare_and_swap(vp, *(ep), d) #endif #if !TRANSPORT_LOG_OPTIMIZE_SIZE && !defined(_WIN32) && !defined(_WIN64) #define TCACHE #define TCACHE_STALE (0x40000000) #define TCACHE_FLUID (0x40000000 | 0x80000000) static unsigned g_tcache_mode = TCACHE_STALE; static struct timeval g_tcache_tv = {0, 0}; static struct tm g_tcache_tm = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; static INLINE int tcache_get(const struct timeval *const tv, struct tm *const tm) { unsigned mode; mode = __atomic_load_n(&g_tcache_mode, __ATOMIC_RELAXED); if (0 == (mode & TCACHE_FLUID)) { mode = __atomic_fetch_add(&g_tcache_mode, 1, __ATOMIC_ACQUIRE); if (0 == (mode & TCACHE_FLUID)) { if (g_tcache_tv.tv_sec == tv->tv_sec) { *tm = g_tcache_tm; __atomic_sub_fetch(&g_tcache_mode, 1, __ATOMIC_RELEASE); return !0; } __atomic_or_fetch(&g_tcache_mode, TCACHE_STALE, __ATOMIC_RELAXED); } __atomic_sub_fetch(&g_tcache_mode, 1, __ATOMIC_RELEASE); } return 0; } static INLINE void tcache_set(const struct timeval *const tv, struct tm *const tm) { unsigned stale = TCACHE_STALE; if (__atomic_compare_exchange_n(&g_tcache_mode, &stale, TCACHE_FLUID, 0, __ATOMIC_ACQUIRE, __ATOMIC_RELAXED)) { g_tcache_tv = *tv; g_tcache_tm = *tm; __atomic_and_fetch(&g_tcache_mode, ~TCACHE_FLUID, __ATOMIC_RELEASE); } } #endif static void time_callback(struct tm *const tm, unsigned *const msec) { #if !_TRANSPORT_LOG_MESSAGE_FORMAT_DATETIME_USED VAR_UNUSED(tm); VAR_UNUSED(msec); #else #if defined(_WIN32) || defined(_WIN64) SYSTEMTIME st; GetLocalTime(&st); tm->tm_year = st.wYear; tm->tm_mon = st.wMonth - 1; tm->tm_mday = st.wDay; tm->tm_wday = st.wDayOfWeek; tm->tm_hour = st.wHour; tm->tm_min = st.wMinute; tm->tm_sec = st.wSecond; *msec = st.wMilliseconds; #else struct timeval tv; gettimeofday(&tv, 0); #ifndef TCACHE localtime_r(&tv.tv_sec, tm); #else if (!tcache_get(&tv, tm)) { localtime_r(&tv.tv_sec, tm); tcache_set(&tv, tm); } #endif *msec = (unsigned)tv.tv_usec / 1000; #endif #endif } static void pid_callback(int *const pid, int *const tid) { #if !_TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(PID, \ TRANSPORT_LOG_MESSAGE_CTX_FORMAT) VAR_UNUSED(pid); #else #if defined(_WIN32) || defined(_WIN64) *pid = GetCurrentProcessId(); #else *pid = getpid(); #endif #endif #if !_TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(TID, \ TRANSPORT_LOG_MESSAGE_CTX_FORMAT) VAR_UNUSED(tid); #else #if defined(_WIN32) || defined(_WIN64) *tid = GetCurrentThreadId(); #elif defined(__ANDROID__) *tid = gettid(); #elif defined(__linux__) *tid = syscall(SYS_gettid); #elif defined(__MACH__) *tid = (int)pthread_mach_thread_np(pthread_self()); #else #define Platform not supported #endif #endif } static void buffer_callback(transport_log_message *msg, char *buf) { msg->e = (msg->p = msg->buf = buf) + g_buf_sz; } #if _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(FUNCTION, \ TRANSPORT_LOG_MESSAGE_SRC_FORMAT) static const char *funcname(const char *func) { return func ? func : ""; } #endif #if _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(FILENAME, \ TRANSPORT_LOG_MESSAGE_SRC_FORMAT) static const char *filename(const char *file) { const char *f = file; for (const char *p = file; 0 != *p; ++p) { if ('/' == *p || '\\' == *p) { f = p + 1; } } return f; } #endif static INLINE size_t nprintf_size(transport_log_message *const msg) { // *nprintf() always puts 0 in the end when input buffer is not empty. This // 0 is not desired because its presence sets (ctx->p) to (ctx->e - 1) which // leaves space for one more character. Some put_xxx() functions don't use // *nprintf() and could use that last character. In that case log line will // have multiple (two) half-written parts which is confusing. To workaround // that we allow *nprintf() to write its 0 in the eol area (which is always // not empty). return (size_t)(msg->e - msg->p + 1); } static INLINE void put_nprintf(transport_log_message *const msg, const int n) { if (0 < n) { msg->p = n < msg->e - msg->p ? msg->p + n : msg->e; } } static INLINE char *put_padding_r(const unsigned w, const char wc, char *p, char *e) { for (char *const b = e - w; b < p; *--p = wc) { } return p; } static char *put_integer_r(unsigned v, const int sign, const unsigned w, const char wc, char *const e) { static const char _signs[] = {'-', '0', '+'}; static const char *const signs = _signs + 1; char *p = e; do { *--p = '0' + v % 10; } while (0 != (v /= 10)); if (0 == sign) return put_padding_r(w, wc, p, e); if ('0' != wc) { *--p = signs[sign]; return put_padding_r(w, wc, p, e); } p = put_padding_r(w, wc, p, e + 1); *--p = signs[sign]; return p; } static INLINE char *put_uint_r(const unsigned v, const unsigned w, const char wc, char *const e) { return put_integer_r(v, 0, w, wc, e); } static INLINE char *put_int_r(const int v, const unsigned w, const char wc, char *const e) { return 0 <= v ? put_integer_r((unsigned)v, 0, w, wc, e) : put_integer_r((unsigned)-v, -1, w, wc, e); } static INLINE char *put_stringn(const char *const s_p, const char *const s_e, char *const p, char *const e) { const ptrdiff_t m = e - p; ptrdiff_t n = s_e - s_p; if (n > m) { n = m; } memcpy(p, s_p, n); return p + n; } static INLINE char *put_string(const char *s, char *p, char *const e) { const ptrdiff_t n = e - p; char *const c = (char *)memccpy(p, s, '\0', n); return 0 != c ? c - 1 : e; } static INLINE char *put_uint(unsigned v, const unsigned w, const char wc, char *const p, char *const e) { char buf[16]; char *const se = buf + _countof(buf); char *sp = put_uint_r(v, w, wc, se); return put_stringn(sp, se, p, e); } #define PUT_CSTR_R(p, STR) \ do { \ for (unsigned i = sizeof(STR) - 1; 0 < i--;) { \ *--(p) = (STR)[i]; \ } \ } \ _TRANSPORT_LOG_ONCE #define PUT_CSTR_CHECKED(p, e, STR) \ do { \ for (unsigned i = 0; (e) > (p) && (sizeof(STR) - 1) > i; ++i) { \ *(p)++ = (STR)[i]; \ } \ } \ _TRANSPORT_LOG_ONCE /* F_INIT field support. */ #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__ #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__YEAR #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__MONTH #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__DAY #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__HOUR #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__MINUTE #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__SECOND #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__MILLISECOND #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__PID #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__TID #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__LEVEL #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__TAG(ps, ts) #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__FUNCTION #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__FILENAME #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__FILELINE #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__S(s) #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__F_INIT(expr) _PP_UNTUPLE(expr); #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT__F_UINT(w, v) #define _TRANSPORT_LOG_MESSAGE_FORMAT_INIT(field) \ _PP_CONCAT_3(_TRANSPORT_LOG_MESSAGE_FORMAT_INIT_, _, field) /* Implements generation of printf-like format string for log message * format specification. */ #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__ "" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__YEAR "%04u" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__MONTH "%02u" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__DAY "%02u" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__HOUR "%02u" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__MINUTE "%02u" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__SECOND "%02u" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__MILLISECOND "%03u" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__PID "%5i" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__TID "%5i" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__LEVEL "%c" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__TAG UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__FUNCTION "%s" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__FILENAME "%s" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__FILELINE "%u" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__S(s) s #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__F_INIT(expr) "" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT__F_UINT(w, v) "%" #w "u" #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT(field) \ _PP_CONCAT_3(_TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT_, _, field) /* Implements generation of printf-like format parameters for log message * format specification. */ #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__ #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__YEAR \ , (unsigned)(tm.tm_year + 1900) #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__MONTH \ , (unsigned)(tm.tm_mon + 1) #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__DAY , (unsigned)tm.tm_mday #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__HOUR , (unsigned)tm.tm_hour #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__MINUTE , (unsigned)tm.tm_min #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__SECOND , (unsigned)tm.tm_sec #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__MILLISECOND , (unsigned)msec #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__PID , pid #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__TID , tid #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__LEVEL \ , (char)lvl_char(msg->lvl) #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__TAG UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__FUNCTION , funcname(src->func) #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__FILENAME , filename(src->file) #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__FILELINE , src->line #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__S(s) #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__F_INIT(expr) #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL__F_UINT(w, v) , v #define _TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL(field) \ _PP_CONCAT_3(_TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL_, _, field) /* Implements generation of put_xxx_t statements for log message specification. */ #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__ #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__YEAR \ p = put_uint_r(tm.tm_year + 1900, 4, '0', p); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__MONTH \ p = put_uint_r((unsigned)tm.tm_mon + 1, 2, '0', p); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__DAY \ p = put_uint_r((unsigned)tm.tm_mday, 2, '0', p); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__HOUR \ p = put_uint_r((unsigned)tm.tm_hour, 2, '0', p); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__MINUTE \ p = put_uint_r((unsigned)tm.tm_min, 2, '0', p); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__SECOND \ p = put_uint_r((unsigned)tm.tm_sec, 2, '0', p); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__MILLISECOND \ p = put_uint_r(msec, 3, '0', p); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__PID p = put_int_r(pid, 5, ' ', p); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__TID p = put_int_r(tid, 5, ' ', p); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__LEVEL *--p = lvl_char(msg->lvl); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__TAG UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__FUNCTION UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__FILENAME UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__FILELINE UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__S(s) PUT_CSTR_R(p, s); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__F_INIT(expr) #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R__F_UINT(w, v) \ p = put_uint_r(v, w, ' ', p); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R(field) \ _PP_CONCAT_3(_TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R_, _, field) static void put_ctx(transport_log_message *const msg) { _PP_MAP(_TRANSPORT_LOG_MESSAGE_FORMAT_INIT, TRANSPORT_LOG_MESSAGE_CTX_FORMAT) #if !_TRANSPORT_LOG_MESSAGE_FORMAT_FIELDS(TRANSPORT_LOG_MESSAGE_CTX_FORMAT) VAR_UNUSED(msg); #else #if _TRANSPORT_LOG_MESSAGE_FORMAT_DATETIME_USED struct tm tm; unsigned msec; g_time_cb(&tm, &msec); #endif #if _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS( \ PID, TRANSPORT_LOG_MESSAGE_CTX_FORMAT) || \ _TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(TID, \ TRANSPORT_LOG_MESSAGE_CTX_FORMAT) int pid, tid; g_pid_cb(&pid, &tid); #endif #if TRANSPORT_LOG_OPTIMIZE_SIZE int n; n = snprintf(msg->p, nprintf_size(msg), _PP_MAP(_TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT, TRANSPORT_LOG_MESSAGE_CTX_FORMAT) _PP_MAP(_TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL, TRANSPORT_LOG_MESSAGE_CTX_FORMAT)); put_nprintf(msg, n); #else char buf[64]; char *const e = buf + sizeof(buf); char *p = e; _PP_RMAP(_TRANSPORT_LOG_MESSAGE_FORMAT_PUT_R, TRANSPORT_LOG_MESSAGE_CTX_FORMAT) msg->p = put_stringn(p, e, msg->p, msg->e); #endif #endif } #define PUT_TAG(msg, tag, prefix_delim, tag_delim) \ do { \ const char *ch; \ msg->tag_b = msg->p; \ if (0 != (ch = _transport_log_tag_prefix)) { \ for (; msg->e != msg->p && 0 != (*msg->p = *ch); ++msg->p, ++ch) { \ } \ } \ if (0 != (ch = tag) && 0 != tag[0]) { \ if (msg->tag_b != msg->p) { \ PUT_CSTR_CHECKED(msg->p, msg->e, prefix_delim); \ } \ for (; msg->e != msg->p && 0 != (*msg->p = *ch); ++msg->p, ++ch) { \ } \ } \ msg->tag_e = msg->p; \ if (msg->tag_b != msg->p) { \ PUT_CSTR_CHECKED(msg->p, msg->e, tag_delim); \ } \ } \ _TRANSPORT_LOG_ONCE /* Implements simple put statements for log message specification. */ #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__ #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__YEAR UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__MONTH UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__DAY UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__HOUR UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__MINUTE UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__SECOND UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__MILLISECOND UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__PID UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__TID UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__LEVEL UNDEFINED #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__TAG(pd, td) \ PUT_TAG(msg, tag, pd, td); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__FUNCTION \ msg->p = put_string(funcname(src->func), msg->p, msg->e); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__FILENAME \ msg->p = put_string(filename(src->file), msg->p, msg->e); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__FILELINE \ msg->p = put_uint(src->line, 0, '\0', msg->p, msg->e); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__S(s) \ PUT_CSTR_CHECKED(msg->p, msg->e, s); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__F_INIT(expr) #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT__F_UINT(w, v) \ msg->p = put_uint(v, w, ' ', msg->p, msg->e); #define _TRANSPORT_LOG_MESSAGE_FORMAT_PUT(field) \ _PP_CONCAT_3(_TRANSPORT_LOG_MESSAGE_FORMAT_PUT_, _, field) static void put_tag(transport_log_message *const msg, const char *const tag) { _PP_MAP(_TRANSPORT_LOG_MESSAGE_FORMAT_INIT, TRANSPORT_LOG_MESSAGE_TAG_FORMAT) #if !_TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(TAG, \ TRANSPORT_LOG_MESSAGE_TAG_FORMAT) VAR_UNUSED(tag); #endif #if !_TRANSPORT_LOG_MESSAGE_FORMAT_FIELDS(TRANSPORT_LOG_MESSAGE_TAG_FORMAT) VAR_UNUSED(msg); #else _PP_MAP(_TRANSPORT_LOG_MESSAGE_FORMAT_PUT, TRANSPORT_LOG_MESSAGE_TAG_FORMAT) #endif } static void put_src(transport_log_message *const msg, const src_location *const src) { _PP_MAP(_TRANSPORT_LOG_MESSAGE_FORMAT_INIT, TRANSPORT_LOG_MESSAGE_SRC_FORMAT) #if !_TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS( \ FUNCTION, TRANSPORT_LOG_MESSAGE_SRC_FORMAT) && \ !_TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS( \ FILENAME, TRANSPORT_LOG_MESSAGE_SRC_FORMAT) && \ !_TRANSPORT_LOG_MESSAGE_FORMAT_CONTAINS(FILELINE, \ TRANSPORT_LOG_MESSAGE_SRC_FORMAT) VAR_UNUSED(src); #endif #if !_TRANSPORT_LOG_MESSAGE_FORMAT_FIELDS(TRANSPORT_LOG_MESSAGE_SRC_FORMAT) VAR_UNUSED(msg); #else #if TRANSPORT_LOG_OPTIMIZE_SIZE int n; n = snprintf(msg->p, nprintf_size(msg), _PP_MAP(_TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_FMT, TRANSPORT_LOG_MESSAGE_SRC_FORMAT) _PP_MAP(_TRANSPORT_LOG_MESSAGE_FORMAT_PRINTF_VAL, TRANSPORT_LOG_MESSAGE_SRC_FORMAT)); put_nprintf(msg, n); #else _PP_MAP(_TRANSPORT_LOG_MESSAGE_FORMAT_PUT, TRANSPORT_LOG_MESSAGE_SRC_FORMAT) #endif #endif } static void put_msg(transport_log_message *const msg, const char *const fmt, va_list va) { int n; msg->msg_b = msg->p; n = vsnprintf(msg->p, nprintf_size(msg), fmt, va); put_nprintf(msg, n); } static void output_mem(const transport_log_spec *log, transport_log_message *const msg, const mem_block *const mem) { if (0 == mem->d || 0 == mem->d_sz) { return; } const unsigned char *mem_p = (const unsigned char *)mem->d; const unsigned char *const mem_e = mem_p + mem->d_sz; const unsigned char *mem_cut; const ptrdiff_t mem_width = (ptrdiff_t)log->format->mem_width; char *const hex_b = msg->msg_b; char *const ascii_b = hex_b + 2 * mem_width + 2; char *const ascii_e = ascii_b + mem_width; if (msg->e < ascii_e) { return; } while (mem_p != mem_e) { char *hex = hex_b; char *ascii = ascii_b; for (mem_cut = mem_width < mem_e - mem_p ? mem_p + mem_width : mem_e; mem_cut != mem_p; ++mem_p) { const unsigned char ch = *mem_p; *hex++ = c_hex[(0xf0 & ch) >> 4]; *hex++ = c_hex[(0x0f & ch)]; *ascii++ = isprint(ch) ? (char)ch : '?'; } while (hex != ascii_b) { *hex++ = ' '; } msg->p = ascii; log->output->callback(msg, log->output->arg); } } void transport_log_set_tag_prefix(const char *const prefix) { _transport_log_tag_prefix = prefix; } void transport_log_set_mem_width(const unsigned w) { _transport_log_global_format.mem_width = w; } void transport_log_set_output_level(const int lvl) { _transport_log_global_output_lvl = lvl; } void transport_log_set_output_v(const unsigned mask, void *const arg, const transport_log_output_cb callback) { _transport_log_global_output.mask = mask; _transport_log_global_output.arg = arg; _transport_log_global_output.callback = callback; } static void _transport_log_write_imp(const transport_log_spec *log, const src_location *const src, const mem_block *const mem, const int lvl, const char *const tag, const char *const fmt, va_list va) { transport_log_message msg; char buf[TRANSPORT_LOG_BUF_SZ]; const unsigned mask = log->output->mask; msg.lvl = lvl; msg.tag = tag; g_buffer_cb(&msg, buf); if (TRANSPORT_LOG_PUT_CTX & mask) { put_ctx(&msg); } if (TRANSPORT_LOG_PUT_TAG & mask) { put_tag(&msg, tag); } if (0 != src && TRANSPORT_LOG_PUT_SRC & mask) { put_src(&msg, src); } if (TRANSPORT_LOG_PUT_MSG & mask) { put_msg(&msg, fmt, va); } log->output->callback(&msg, log->output->arg); if (0 != mem && TRANSPORT_LOG_PUT_MSG & mask) { output_mem(log, &msg, mem); } } void _transport_log_write_d(const char *const func, const char *const file, const unsigned line, const int lvl, const char *const tag, const char *const fmt, ...) { const src_location src = {func, file, line}; va_list va; va_start(va, fmt); _transport_log_write_imp(&global_spec, &src, 0, lvl, tag, fmt, va); va_end(va); } void _transport_log_write_aux_d(const char *const func, const char *const file, const unsigned line, const transport_log_spec *const log, const int lvl, const char *const tag, const char *const fmt, ...) { const src_location src = {func, file, line}; va_list va; va_start(va, fmt); _transport_log_write_imp(log, &src, 0, lvl, tag, fmt, va); va_end(va); } void _transport_log_write(const int lvl, const char *const tag, const char *const fmt, ...) { va_list va; va_start(va, fmt); _transport_log_write_imp(&global_spec, 0, 0, lvl, tag, fmt, va); va_end(va); } void _transport_log_write_aux(const transport_log_spec *const log, const int lvl, const char *const tag, const char *const fmt, ...) { va_list va; va_start(va, fmt); _transport_log_write_imp(log, 0, 0, lvl, tag, fmt, va); va_end(va); } void _transport_log_write_mem_d(const char *const func, const char *const file, const unsigned line, const int lvl, const char *const tag, const void *const d, const unsigned d_sz, const char *const fmt, ...) { const src_location src = {func, file, line}; const mem_block mem = {d, d_sz}; va_list va; va_start(va, fmt); _transport_log_write_imp(&global_spec, &src, &mem, lvl, tag, fmt, va); va_end(va); } void _transport_log_write_mem_aux_d(const char *const func, const char *const file, const unsigned line, const transport_log_spec *const log, const int lvl, const char *const tag, const void *const d, const unsigned d_sz, const char *const fmt, ...) { const src_location src = {func, file, line}; const mem_block mem = {d, d_sz}; va_list va; va_start(va, fmt); _transport_log_write_imp(log, &src, &mem, lvl, tag, fmt, va); va_end(va); } void _transport_log_write_mem(const int lvl, const char *const tag, const void *const d, const unsigned d_sz, const char *const fmt, ...) { const mem_block mem = {d, d_sz}; va_list va; va_start(va, fmt); _transport_log_write_imp(&global_spec, 0, &mem, lvl, tag, fmt, va); va_end(va); } void _transport_log_write_mem_aux(const transport_log_spec *const log, const int lvl, const char *const tag, const void *const d, const unsigned d_sz, const char *const fmt, ...) { const mem_block mem = {d, d_sz}; va_list va; va_start(va, fmt); _transport_log_write_imp(log, 0, &mem, lvl, tag, fmt, va); va_end(va); }