#ifdef HAVE_CONFIG_H
# include <config.h>
#endif

#ifdef STDC_HEADERS
# include <stdlib.h>
# include <string.h>
#else
# ifndef HAVE_STRCHR
#  define strchr index
#  define strrchr rindex
# endif
char   *strchr(), *strrchr();
# ifndef HAVE_MEMCPY
#  define memcpy(d, s, n) bcopy ((s), (d), (n))
#  define memmove(d, s, n) bcopy ((s), (d), (n))
# endif
#endif

#if defined(HAVE_NCURSES_TERMCAP_H)
# include <ncurses/termcap.h>
#elif defined(HAVE_TERMCAP_H)
# include <termcap.h>
#elif defined(HAVE_TERMCAP)
# include <curses.h>
# if !defined(__bsdi__)
#  include <term.h>
# endif
#endif

#include <stdio.h>
#include <stdarg.h>
#include "console.h"
#include "main.h"

#ifdef WITH_DMALLOC
#include <dmalloc.h>
#endif

#define CLASS_ID           0x434F4E53
#define REPORT_BUFF_SIZE   1024

#if defined(_WIN32)  &&  !defined(__CYGWIN__)
# include <windows.h>
#endif



static int
my_console_printing(FILE * fp, const char *format, va_list ap)
{
    if (fp != NULL)
        return vfprintf(fp, format, ap);
    return 0;
}

static int
my_error_printing(FILE * fp, const char *format, va_list ap)
{
    if (fp != NULL)
        return vfprintf(fp, format, ap);
    return 0;
}

static int
my_report_printing(FILE * fp, const char *format, va_list ap)
{
    if (fp != NULL)
        return vfprintf(fp, format, ap);
    return 0;
}


/*
 * Taken from Termcap_Manual.html:
 *
 * With the Unix version of termcap, you must allocate space for the description yourself and pass
 * the address of the space as the argument buffer. There is no way you can tell how much space is
 * needed, so the convention is to allocate a buffer 2048 characters long and assume that is
 * enough.  (Formerly the convention was to allocate 1024 characters and assume that was enough.
 * But one day, for one kind of terminal, that was not enough.)
 */

#ifdef HAVE_TERMCAP

static void
get_termcap_string(char const* id, char* dest, size_t n)
{
    char    tc[16];
    char   *tp = tc;
    tp[0] = '\0';
    tp = tgetstr(id, &tp);
    if (tp != NULL && dest != NULL && n > 0) {
        strncpy(dest, tp, n);
        dest[n-1] = '\0';
    }
}

static void 
get_termcap_number(char const* id, int* dest, int low, int high)
{
    int const val = tgetnum(id);
    if (low <= val && val <= high) {
        *dest = val;
    }
}

static void
apply_termcap_settings(Console_IO_t * const mfp)
{
    /* try to catch additional information about special console sequences */
    char const* term_name = getenv("TERM");
    if (NULL != term_name) {
        char    term_buff[4096];
        int const ret = tgetent(term_buff, term_name);
        if (1 == ret) {
            get_termcap_number("co", &mfp->disp_width, 40, 512);
            get_termcap_number("li", &mfp->disp_height, 16, 256);
            get_termcap_string("up", mfp->str_up, sizeof(mfp->str_up));
            get_termcap_string("md", mfp->str_emph, sizeof(mfp->str_emph));
            get_termcap_string("me", mfp->str_norm, sizeof(mfp->str_norm));
            get_termcap_string("ce", mfp->str_clreoln, sizeof(mfp->str_clreoln));
        }
    }
}
#endif /* TERMCAP_AVAILABLE */

static int
init_console(Console_IO_t * const mfp)
{
    /* setup basics of brhist I/O channels */
    mfp->disp_width = 80;
    mfp->disp_height = 25;
    mfp->Console_fp = stderr;
    mfp->Error_fp = stderr;
    mfp->Report_fp = NULL;

    /*mfp -> Console_buff = calloc ( 1, REPORT_BUFF_SIZE ); */
    setvbuf(mfp->Console_fp, mfp->Console_buff, _IOFBF, sizeof(mfp->Console_buff));
/*  setvbuf ( mfp -> Error_fp  , NULL                   , _IONBF, 0                                ); */

#if defined(_WIN32)  &&  !defined(__CYGWIN__)
    mfp->Console_Handle = GetStdHandle(STD_ERROR_HANDLE);
#endif

    strcpy(mfp->str_up, "\033[A");

#ifdef HAVE_TERMCAP
    apply_termcap_settings(mfp);
#endif /* TERMCAP_AVAILABLE */

    mfp->ClassID = CLASS_ID;

#if defined(_WIN32)  &&  !defined(__CYGWIN__)
    mfp->Console_file_type = GetFileType(Console_IO.Console_Handle);
#else
    mfp->Console_file_type = 0;
#endif
    return 0;
}

static void
deinit_console(Console_IO_t * const mfp)
{
    if (mfp->Report_fp != NULL) {
        fclose(mfp->Report_fp);
        mfp->Report_fp = NULL;
    }
    fflush(mfp->Console_fp);
    setvbuf(mfp->Console_fp, NULL, _IONBF, (size_t) 0);

    memset(mfp->Console_buff, 0x55, REPORT_BUFF_SIZE);
}


/*  LAME console
 */
Console_IO_t Console_IO;

int
frontend_open_console(void)
{
    return init_console(&Console_IO);
}

void
frontend_close_console(void)
{
    deinit_console(&Console_IO);
}

void
frontend_debugf(const char *format, va_list ap)
{
    (void) my_report_printing(Console_IO.Report_fp, format, ap);
}

void
frontend_msgf(const char *format, va_list ap)
{
    (void) my_console_printing(Console_IO.Console_fp, format, ap);
}

void
frontend_errorf(const char *format, va_list ap)
{
    (void) my_error_printing(Console_IO.Error_fp, format, ap);
}

void
frontend_print_null(const char *format, va_list ap)
{
    (void) format;
    (void) ap;
}

int
console_printf(const char *format, ...)
{
    va_list args;
    int     ret;

    va_start(args, format);
    ret = my_console_printing(Console_IO.Console_fp, format, args);
    va_end(args);

    return ret;
}

int
error_printf(const char *format, ...)
{
    va_list args;
    int     ret;

    va_start(args, format);
    ret = my_console_printing(Console_IO.Error_fp, format, args);
    va_end(args);

    return ret;
}

int
report_printf(const char *format, ...)
{
    va_list args;
    int     ret;

    va_start(args, format);
    ret = my_console_printing(Console_IO.Report_fp, format, args);
    va_end(args);

    return ret;
}

void
console_flush()
{
    fflush(Console_IO.Console_fp);
}

void
error_flush()
{
    fflush(Console_IO.Error_fp);
}

void
report_flush()
{
    fflush(Console_IO.Report_fp);
}

void
console_up(int n_lines)
{
#if defined(_WIN32)  &&  !defined(__CYGWIN__)
    if (Console_IO.Console_file_type != FILE_TYPE_PIPE) {
        COORD   Pos;
        CONSOLE_SCREEN_BUFFER_INFO CSBI;

        console_flush();
        GetConsoleScreenBufferInfo(Console_IO.Console_Handle, &CSBI);
        Pos.Y = (SHORT)(CSBI.dwCursorPosition.Y - n_lines);
        Pos.X = 0;
        SetConsoleCursorPosition(Console_IO.Console_Handle, Pos);
    }
#else
    while (n_lines-- > 0)
        fputs(Console_IO.str_up, Console_IO.Console_fp);
    console_flush();
#endif
}


void
set_debug_file(const char *fn)
{
    if (Console_IO.Report_fp == NULL) {
        Console_IO.Report_fp = lame_fopen(fn, "a");
        if (Console_IO.Report_fp != NULL) {
            error_printf("writing debug info into: %s\n", fn);
        }
        else {
            error_printf("Error: can't open for debug info: %s\n", fn);
        }
    }
}

/* end of console.c */