#ifndef MAD_LOG_H
#define MAD_LOG_H

/*
 o-----------------------------------------------------------------------------o
 |
 | Logging module interface
 |
 | Methodical Accelerator Design - Copyright (c) 2016+
 | Support: http://cern.ch/mad  - mad at cern.ch
 | Authors: L. Deniau, laurent.deniau at cern.ch
 | Contrib: -
 |
 o-----------------------------------------------------------------------------o
 | You can redistribute this file and/or modify it under the terms of the GNU
 | General Public License GPLv3 (or later), as published by the Free Software
 | Foundation. This file is distributed in the hope that it will be useful, but
 | WITHOUT ANY WARRANTY OF ANY KIND. See http://gnu.org/licenses for details.
 o-----------------------------------------------------------------------------o

  Purpose:
  - MAD log handlers: mad_(error, warn, trace, ensure)
    shortcuts: error, warn, trace, ensure
    all are macros that set automatically the location of the caller

  Information:
  - error, warn, trace print to stderr; ensure = cond + error
  - warn and trace use tags 'warning:' and 'trace:'
  - mad_trace_level:
  	trace with level <= mad_trace_level are active
  - mad_trace_location:
    >0 location is traced by error, warn and trace
     0 location is traced by error (only)

 o-----------------------------------------------------------------------------o
 */

#include "mad_def.h"

// --- interface --------------------------------------------------------------o

#define error(...)        mad_error (     __VA_ARGS__)
#define warn(...)         mad_warn  (     __VA_ARGS__)
#define trace(lvl,...)    mad_trace (lvl, __VA_ARGS__)
#define ensure(cond,...)  mad_ensure(cond,__VA_ARGS__)

// ----------------------------------------------------------------------------o
// --- implementation (private) -----------------------------------------------o
// ----------------------------------------------------------------------------o

#define mad_error(...)                  (mad_error)(  mad_logloc_,__VA_ARGS__)
#define mad_warn(...)                   (mad_warn )(  mad_logloc_,__VA_ARGS__)
#define mad_trace(l,...)  mad_loglvl_(l,(mad_trace)(l,mad_logloc_,__VA_ARGS__))
#define mad_ensure(c,...) mad_logcnd_(c,(mad_error)(  mad_logloc_,__VA_ARGS__))

#define mad_loglvl_(l,f) ((void)(mad_trace_level >= (l) && (f,0)))
#define mad_logcnd_(c,f) ((void)(                   (c) || (f,0)))
#define mad_logloc_      __FILE__ ":" MKSTR(__LINE__) ": "

// see mad_main.c

#ifndef LUALIB_API // Only valid in a Lua environment
#define LUALIB_API
#endif

LUALIB_API void (mad_error)(     str_t fn, str_t fmt, ...) __attribute((noreturn));
LUALIB_API void (mad_warn )(     str_t fn, str_t fmt, ...);
LUALIB_API void (mad_trace)(int, str_t fn, str_t fmt, ...);

extern int mad_trace_level;
extern int mad_trace_location;
extern int mad_trace_fortid;

// --- end --------------------------------------------------------------------o

#endif // MAD_LOG_H