#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <assert.h>
#include<sys/stat.h>
 
char **resultados;
char **lines;
char *nueva_linea;
int *map;
 
int count = 0;
 
char** str_split(char* a_str, const char a_delim){
    char** result    = 0;
    size_t count     = 0;
    char* tmp        = a_str;
    char* last_comma = 0;
    char delim[2];
    delim[0] = a_delim;
    delim[1] = 0;
    while (*tmp)
    {
        if (a_delim == *tmp)
        {
            count++;
            last_comma = tmp;
        }
        tmp++;
    }
    count += last_comma < (a_str + strlen(a_str) - 1);
    count++;
    result = malloc(sizeof(char*) * count);
    if (result)
    {
        size_t idx  = 0;
        char* token = strtok(a_str, delim);
        while (token)
        {
            assert(idx < count);
            *(result + idx++) = strdup(token);
            token = strtok(0, delim);
        }
        assert(idx == count - 1);
        *(result + idx) = 0;
    }
    return result;
}
 
off_t fsize(char *filename) {
	struct stat st;
	if (stat(filename, &st) == 0)
		return st.st_size;
	return -1;
}
 
void mostrarProducto(){
	int i;
	printf("%i coincidencias encontradas...\n\n", count);
	for(i = 0; i < count; i++){
		printf("%i) %s\n", i+1, resultados[i]);
	}
	printf("Por favor, seleccione una opcion: ");
}
 
void seleccionarProducto(){
	int nuevo_stock,opcion;
 
	char** resultado_split;
	scanf("%i", &opcion);
	printf("%s", resultados[opcion-1]);
 
	resultado_split = str_split(resultados[opcion-1], '*');
 
	printf("\nEl stock actual del producto es: %s\nPor favor introduzca el nuevo stock:",resultado_split[1]);
	scanf("%i", &nuevo_stock);
	nueva_linea = calloc(20+strlen(resultado_split[0]),1);
	sprintf(nueva_linea,"%s*%i",resultado_split[0],nuevo_stock);
	free(resultado_split[2]);
	free(resultado_split[1]);
	free(resultado_split);
	printf("%s", nueva_linea); // ACAA!! nueva_linea es la que debe reemplazar a
	free(lines[map[opcion-1]]);
	lines[map[opcion-1]] = nueva_linea;
}
 
void buscarProducto(char * codProducto){
	FILE * fp;
	char *file_buff;
    size_t len = 0;
	int i = 0, j = 0;
	len = fsize("bd");
	file_buff =  calloc(len+1,sizeof(char));
	fp = fopen("bd", "r");
    if (fp == NULL)
        exit(EXIT_FAILURE);
 
	fread(file_buff,sizeof(char),len,fp);
	fclose(fp);
	lines = str_split(file_buff,'\n');
	memset(file_buff,0,len);
	free(file_buff);
	while(lines[i] != NULL)	{
		printf("Examinando linea %i: %s\n",i,lines[i]);
		if(strstr(lines[i],codProducto) != NULL)	{
			printf("Coinciendia %s encontrada en linea %i, copiando apuntador a resultado %i\n",codProducto,i,count);
			resultados = realloc(resultados,sizeof(char*)*count+1);
			map = realloc(map,sizeof(int)*count+1);
			resultados[count] = lines[i];
			map[count] = i;
			count++;
		}
		i++;
	}
	if(count != 0){
		mostrarProducto(count);
		seleccionarProducto();
	}else{
		printf("No se ha encontrado el producto!");
	}
	j = 0;
	fp = fopen("bd","w");
	while(j < i)	{
		fprintf(fp,"%s\n",lines[j]);
		free(lines[j]);
		j++;
	}
	fclose(fp);
    exit(EXIT_SUCCESS);
}
 
 
int main(){
	buscarProducto("h65t");
	exit(EXIT_SUCCESS);
}