#include "vdl-log.h"

#include "avprintf-cb.h"

#include "system.h"

#include "vdl-utils.h"

#include "vdl-list.h"

uint32_t g_logging = 0;

static void avprintf_callback (char c, void *context)

{

  if (c != 0)

    {

      system_write (2, &c, 1);

    }

}

void vdl_log_set (const char *debug_str)

{

  VDL_LOG_FUNCTION ("debug=%s", debug_str);

  g_logging = VDL_LOG_AST | VDL_LOG_PRINT | VDL_LOG_ERR;

  if (debug_str == 0)

    {

      return;

    }

  struct VdlList *list = vdl_utils_strsplit (debug_str, ':');

  void **cur;

  uint32_t logging = 0;

  for (cur = vdl_list_begin (list); 

       cur != vdl_list_end (list); 

       cur = vdl_list_next (cur))

    {

      if (vdl_utils_strisequal (*cur, "debug"))

	{

	  logging |= VDL_LOG_DBG;

	}

      else if (vdl_utils_strisequal (*cur, "function"))

	{

	  logging |= VDL_LOG_FUNC;

	}

      else if (vdl_utils_strisequal (*cur, "error"))

	{

	  logging |= VDL_LOG_ERR;

	}

      else if (vdl_utils_strisequal (*cur, "assert"))

	{

	  logging |= VDL_LOG_AST;

	}

      else if (vdl_utils_strisequal (*cur, "symbol-fail"))

	{

	  logging |= VDL_LOG_SYM_FAIL;

	}

      else if (vdl_utils_strisequal (*cur, "symbol-ok"))

	{

	  logging |= VDL_LOG_SYM_OK;

	}

      else if (vdl_utils_strisequal (*cur, "reloc"))

	{

	  logging |= VDL_LOG_REL;

	}

      else if (vdl_utils_strisequal (*cur, "help"))

	{

	  VDL_LOG_ERROR ("Available logging levels: debug, "

			 "function, error, assert, symbol-fail, symbol-ok, reloc\n");

	}

    }

  g_logging |= logging;

  vdl_utils_str_list_delete (list);

}

void vdl_log_printf (enum VdlLog log, const char *str, ...)

{

  va_list list;

  va_start (list, str);

  if (g_logging & log)

    {

      avprintf_cb (avprintf_callback, 0, str, list);

    }

  va_end (list);

}