/**
 * Logging facility for debug/info messages.
 * _EGL_FATAL messages are printed to stderr
 * The EGL_LOG_LEVEL var controls the output of other warning/info/debug msgs.
 */


#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "egllog.h"

#define MAXSTRING 1000
#define FALLBACK_LOG_LEVEL      _EGL_WARNING
#define FALLBACK_LOG_LEVEL_STR  "warning"

static EGLint ReportingLevel = -1;


static void
log_level_initialize(void)
{
   char *log_env = getenv("EGL_LOG_LEVEL");

   if (log_env == NULL) {
      ReportingLevel = FALLBACK_LOG_LEVEL;
   }
   else if (strcasecmp(log_env, "fatal") == 0) {
      ReportingLevel = _EGL_FATAL;
   }
   else if (strcasecmp(log_env, "warning") == 0) {
      ReportingLevel = _EGL_WARNING;
   }
   else if (strcasecmp(log_env, "info") == 0) {
      ReportingLevel = _EGL_INFO;
   }
   else if (strcasecmp(log_env, "debug") == 0) {
      ReportingLevel = _EGL_DEBUG;
   }
   else {
      fprintf(stderr, "Unrecognized EGL_LOG_LEVEL environment variable value. "
              "Expected one of \"fatal\", \"warning\", \"info\", \"debug\". "
              "Got \"%s\". Falling back to \"%s\".\n",
              log_env, FALLBACK_LOG_LEVEL_STR);
      ReportingLevel = FALLBACK_LOG_LEVEL;
   }
}


/**
 * Log a message to stderr.
 * \param level one of _EGL_FATAL, _EGL_WARNING, _EGL_INFO, _EGL_DEBUG.
 */
void
_eglLog(EGLint level, const char *fmtStr, ...)
{
   va_list args;
   char msg[MAXSTRING];
   const char *levelStr;
   static int log_level_initialized = 0;

   if (!log_level_initialized) {
      log_level_initialize();
      log_level_initialized = 1;
   }

   if (level <= ReportingLevel) {
      switch (level) {
      case _EGL_FATAL:
         levelStr = "Fatal";
         break;
      case _EGL_WARNING:
         levelStr = "Warning";
         break;
      case _EGL_INFO:
         levelStr = "Info";
         break;
      case _EGL_DEBUG:
         levelStr = "Debug";
         break;
      default:
         levelStr = "";
      }

      va_start(args, fmtStr);
      vsnprintf(msg, MAXSTRING, fmtStr, args);
      va_end(args);

      fprintf(stderr, "libEGL %s: %s\n", levelStr, msg);

      if (level == _EGL_FATAL) {
         exit(1); /* or abort()? */
      }
   }
}