#include <stdio.h>
#include <stdlib.h>
#include <search.h>
#include <string.h>
#ifdef __linux__
    #include <termios.h>
    #include <unistd.h>
    #define CLEAR_SCREEN "clear"
    int _getch ();
    #define _lfind lfind
    #define _strdup strdup
#else
    #include <conio.h>
    #define CLEAR_SCREEN "cls"
    #if defined(__MSDOS__) || defined(__BORLANDC__)
        #define _getch getch
        #define _lfind lfind
        #define _strdup strdup
    #endif
#endif

typedef struct ADTProduto {
    float preco;
    float venda;
    float impostos;
    char* descricao;
    char* fornecedor;
    char* codigo_de_barras;
    int quantidade_existente;
} Produto;

void* array_insert  (void *array_var, size_t *length, size_t size, const void *datum);
void* array_remove  (void *array_var, size_t *length, size_t size, const void *datum);
void  array_foreach (void *array_var, size_t length, size_t size, void *params, void (*func)(void*,void*));
void  pause_screen (const char *message);
char* read_string_line (const char *message);
char* read_str (const char *message, char *string_var);
int   read_integer (const char *message);
float read_decimal (const char *message);
int   read_field (FILE *file_stream, char *field);
int   compare_produto (const Produto *produto1, const Produto *produto2);
void  print_produto (Produto *datum, int *counter);
void  print_on_file (Produto *datum, FILE *file_stream);

const char *path = "produtos.tsv";

int main (void)
{
    Produto *produtos = NULL;
    size_t length=0;
    Produto *datum = NULL, produto;
    int counter=0, main_option, suboption;
    char field[255];
    FILE *file_stream = fopen (path, "r");
    if (file_stream!=NULL)
    {
        while (read_field (file_stream, field))
        {
            read_field (file_stream, field);
            produto.preco = atof (field);
            read_field (file_stream, field);
            produto.venda = atof (field);
            read_field (file_stream, field);
            produto.impostos = atof (field);
            read_field (file_stream, field);
            produto.descricao = _strdup (field);
            read_field (file_stream, field);
            produto.fornecedor = _strdup (field);
            produto.codigo_de_barras = _strdup (field);
            read_field (file_stream, field);
            produto.quantidade_existente = atoi (field);
            produtos = (Produto*) array_insert (produtos, &length, sizeof (Produto), &produto);
        }
        fclose (file_stream);
    }
    do {
        putchar ('\n');
        system (CLEAR_SCREEN);
        printf ("CARD\265PIO\n");
        printf ("1.- Inser\207\344es\n");
        printf ("2.- Consultas\n");
        printf ("3.- Atualiza\207\344es\n");
        printf ("4.- Exclus\344es\n");
        printf ("5.- Classificar registros\n");
        printf ("6.- Listar registros\n");
        printf ("7.- Sair\n");
        printf ("Selecione uma op\207\306o: ");
        fflush (stdout);
        do
            main_option = _getch ();
        while (main_option<'1' || main_option>'7');
        printf ("%c\n\n", main_option);
        if (length==0 && main_option!='1' && main_option!='7')
        {
            pause_screen ("N\306o h\240 registros.\n");
            continue;
        }
        if (main_option<'5')
        {
            produto.codigo_de_barras = read_str ("Entre o codigo de barras do produto", field);
            datum = (Produto*) _lfind (&produto, produtos, &length, sizeof (Produto), (int(*)(const void*,const void*))compare_produto);
            if (datum!=NULL)
            {
                putchar ('\n');
                print_produto (datum, &counter);
            }
        }
        if (main_option=='1' && datum!=NULL)
            printf ("O registro j\240 existe.\n");
        else if (main_option>='2' && main_option<='4' && datum==NULL)
            printf ("\nRegistro n\306o encontrado.\n");
        else switch (main_option)
        {
            case '1':
                produto.codigo_de_barras = _strdup (field);
                produto.preco = read_decimal ("Digite o preco");
                produto.venda = read_decimal ("Digite o venda");
                produto.impostos = read_decimal ("Digite o impostos");
                produto.descricao = read_string_line ("Digite o descricao");
                produto.fornecedor = read_string_line ("Digite o fornecedor");
                produto.quantidade_existente = read_integer ("Digite o quantidade existente");
                produtos = (Produto*) array_insert (produtos, &length, sizeof (Produto), &produto);
                printf ("\nRegistro adicionado corretamente.\n");
                break;
            case '3':
                printf ("Menu de atualiza\207\306o de campos\n");
                printf ("1.- preco\n");
                printf ("2.- venda\n");
                printf ("3.- impostos\n");
                printf ("4.- descricao\n");
                printf ("5.- fornecedor\n");
                printf ("6.- quantidade existente\n");
                do {
                    suboption = read_integer ("Selecione um n\243mero de campo a ser atualizado");
                    if (suboption<1 || suboption>6)
                        printf ("Op\207\306o incorreta.\n");
                } while (suboption<1 || suboption>6);
                switch (suboption)
                {
                    case 1:
                        datum->preco = read_decimal ("Insira o novo preco");
                        break;
                    case 2:
                        datum->venda = read_decimal ("Insira o novo venda");
                        break;
                    case 3:
                        datum->impostos = read_decimal ("Insira o novo impostos");
                        break;
                    case 4:
                        free (datum->descricao);
                        datum->descricao = read_string_line ("Insira o novo descricao");
                        break;
                    case 5:
                        free (datum->fornecedor);
                        datum->fornecedor = read_string_line ("Insira o novo fornecedor");
                        break;
                    case 6:
                        datum->quantidade_existente = read_integer ("Insira o novo quantidade existente");
                        break;
                }
                printf ("\nRegistro atualizado corretamente.\n");
                break;
            case '4':
                memcpy (&produto, datum, sizeof (Produto));
                produtos = (Produto*) array_remove ((void**)produtos, &length, sizeof (Produto), datum);
                free (produto.descricao);
                free (produto.fornecedor);
                free (produto.codigo_de_barras);
                printf ("Registro removido corretamente.\n");
                break;
            case '5':
                qsort (produtos, length, sizeof (Produto), (int(*)(const void*,const void*))compare_produto);
                printf ("Registros classificados corretamente.\n");
                break;
            case '6':
                counter = 0;
                array_foreacjson_decodeh (produtos, length, sizeof (Produto), &counter, (void(*)(void*,void*))print_produto);
                printf ("Total de registros: %d.\n", counter);
                break;
        }
        if (main_option!='7')
            pause_screen ("");
    } while (main_option!='7');
    file_stream = fopen (path, "w");
    if (file_stream!=NULL)
    {
        array_foreach (produtos, length, sizeof (Produto), file_stream, (void(*)(void*,void*))print_on_file);
        fclose (file_stream);
    }
    return EXIT_SUCCESS;
}

void* array_insert (void *array_var, size_t *length, size_t size, const void *datum)
{
    char *record_var;
    array_var = realloc (array_var, size * (*length+1));
    record_var = (char*)array_var + *length * size;
    memcpy (record_var, datum, size);
    (*length)++;
    return array_var;
}

void* array_remove (void *array_var, size_t *length, size_t size, const void *datum)
{
    size_t i;
    char *record_var = (char*)array_var;
    for (i=0; i<*length && datum!=record_var; i++, record_var+=size);
    if (i<*length)
    {
        for (i++; i<*length; i++)
        {
            record_var+=size;
            memcpy (record_var-size, record_var, size);
        }
        (*length)--;
        array_var = realloc (array_var, size * (*length));
    }
    return array_var;
}

void array_foreach (void *array_var, size_t length, size_t size, void *params, void (*func)(void*,void*))
{
    char *record_var = (char*)array_var;
    if (length>0)
    {
        func (record_var, params);
        array_foreach (record_var+size, length-1, size, params, func);
    }
}

int compare_produto (const Produto *produto1, const Produto *produto2)
{
    return produto1==produto2 ? 0 : strcmp (produto1->codigo_de_barras, produto2->codigo_de_barras);
}

void print_produto (Produto *datum, int *counter)
{
    printf ("preco               : %g\n", datum->preco);
    printf ("venda               : %g\n", datum->venda);
    printf ("impostos            : %g\n", datum->impostos);
    printf ("descricao           : %s\n", datum->descricao);
    printf ("fornecedor          : %s\n", datum->fornecedor);
    printf ("codigo de barras    : %s\n", datum->codigo_de_barras);
    printf ("quantidade existente: %d\n", datum->quantidade_existente);
    putchar ('\n');
    (*counter)++;
}

void print_on_file (Produto *datum, FILE *file_stream)
{
    fprintf (file_stream, "%g\t", datum->preco);
    fprintf (file_stream, "%g\t", datum->venda);
    fprintf (file_stream, "%g\t", datum->impostos);
    fprintf (file_stream, "%s\t", datum->descricao);
    fprintf (file_stream, "%s\t", datum->fornecedor);
    fprintf (file_stream, "%s\t", datum->codigo_de_barras);
    fprintf (file_stream, "%d\n", datum->quantidade_existente);
}

char* read_string_line (const char *message)
{
    char string_line[255];
    (void) read_str (message, string_line);
    return _strdup (string_line);
}

char* read_str (const char *message, char *string_var)
{
    printf ("%s: ", message);
    scanf ("%[^\r\n]", string_var);
    (void) getchar ();
    return string_var;
}

int read_integer (const char *message)
{
    int integer_var;
    printf ("%s: ", message);
    scanf ("%d", &integer_var);
    (void) getchar();
    return integer_var;
}

float read_decimal (const char *message)
{
    float decimal_var;
    printf ("%s: ", message);
    scanf ("%f", &decimal_var);
    (void) getchar();
    return decimal_var;
}

int read_field (FILE *file_stream, char *field)
{
    fscanf (file_stream, "%[^\t\n\r]", field);
    fgetc (file_stream);
    return feof (file_stream) == 0;
}

void pause_screen (const char *message)
{
    printf ("%s\nPressione qualquer chave para continuar ...", message);
    fflush (stdout);
    _getch ();
}

#ifdef __linux__

int _getch ()
{
    int ch;
    struct termios oldt, newt;
    tcgetattr (STDIN_FILENO, &oldt);
    newt = oldt;
    newt.c_lflag &= ~(ICANON | ECHO);
    tcsetattr (STDIN_FILENO, TCSANOW, &newt);
    ch = getchar();
    tcsetattr (STDIN_FILENO, TCSANOW, &oldt);
    return ch;
}

#endif