/**
 * @file common.c
 *
 * Implementations for the base library.
 */

#include "base/common.h"

#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

double debug_verbosity = 0.0;

int abort_on_nonfatal = 0;
int pause_on_nonfatal = 0;
int print_notify_headers = 0;
#ifdef VERBOSE
int print_got_heres = 1;
int print_warnings = 1;
#else
int print_got_heres = 0;
int print_warnings = 0;
#endif

void fl_pause(void)
{
  if (isatty(0)) {
    char c;

    fprintf(stderr, "=*=*= Press Return to continue =*=*=");
    fflush(stderr);

    while ((c = getchar()) != EOF && c != '\n');
  }
}

const char *fl_filename(const char *name)
{
  const char *found = strstr(name, "/c/");

  if (found) {
    return found + 3;
  } else {
    const char *prev = 0;
    const char *last = 0;

    found = name;
    while ((found = strchr(found + 1, '/'))) {
      prev = last;
      last = found;
    }

    if (prev) {
      return prev;
    } else {
      return name;
    }
  }
}

void fl_msg_header(char type, const char *file, const char *func, int line)
{
  fprintf(stderr, "[%c] %s:%s:%d: ", type, fl_filename(file), func, line);
}

void fatal(const char *file, const char *func, int line,
	   const char *format, ...)
{
  va_list vl;

  fl_msg_header('X', file, func, line);

  va_start(vl, format);
  vfprintf(stderr, format, vl);
  va_end(vl);

  fprintf(stderr, "\n");

  abort();
}

void nonfatal(const char *file, const char *func, int line,
	      const char *format, ...)
{
  va_list vl;

  fl_msg_header('!', file, func, line);

  va_start(vl, format);
  vfprintf(stderr, format, vl);
  va_end(vl);

  fprintf(stderr, "\n");

  if (abort_on_nonfatal) {
    abort();
  } else if (pause_on_nonfatal) {
    fl_pause();
  }
}

void notify(const char *file, const char *func, int line,
	    const char *format, ...)
{
  va_list vl;

  if (print_notify_headers) {
    fl_msg_header('.', file, func, line);
  }

  va_start(vl, format);
  vfprintf(stderr, format, vl);
  va_end(vl);
  
  fprintf(stderr, "\n");
}

static char tsprintf_pool[TSPRINTF_COUNT][TSPRINTF_LENGTH];
static int tsprintf_index = 0;

char *tsprintf(const char *format, ...) {
  char *s = tsprintf_pool[tsprintf_index];
  va_list vl;
  
  tsprintf_index = (tsprintf_index + 1) % TSPRINTF_COUNT;
  
  va_start(vl, format);
  vsnprintf(s, TSPRINTF_LENGTH, format, vl);
  va_end(vl);
  
  return s;
}