/*
 ============================================================================
 Name        : hstr_favorites.c
 Author      : martin.dvorak@midforger.com
 Copyright   : Apache 2.0
 Description : Favorite commands.
 ============================================================================
*/

#include <stdbool.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>

#include "include/hstr_favorites.h"
#include "include/hstr_utils.h"

#define FAVORITE_SEGMENT_SIZE 10

void favorites_init(FavoriteItems *favorites)
{
	favorites->items=NULL;
	favorites->count=0;
	favorites->loaded=false;
}

char* favorites_get_filename()
{
	char *home = getenv(ENV_VAR_HOME);
	char *fileName = (char*) malloc(strlen(home) + 1 + strlen(FILE_HH_RC) + 1);
	strcpy(fileName, home);
	strcat(fileName, "/");
	strcat(fileName, FILE_HH_RC);
	return fileName;
}

void favorites_get(FavoriteItems *favorites)
{
	if(!favorites->loaded) {
		char* fileName = favorites_get_filename();
		char *file_contents=NULL;
		if(access(fileName, F_OK) != -1) {
			long input_file_size;

			FILE *input_file = fopen(fileName, "rb");
			fseek(input_file, 0, SEEK_END);
			input_file_size = ftell(input_file);
			rewind(input_file);
			file_contents = malloc((input_file_size + 1) * (sizeof(char)));
			if(fread(file_contents, sizeof(char), input_file_size, input_file)==-1) {
				exit(EXIT_FAILURE);
			}
			fclose(input_file);
			file_contents[input_file_size] = 0;

			if(file_contents && strlen(file_contents)) {
				favorites->count = 0;
				char *p=strchr(file_contents,'\n');
				while (p!=NULL) {
					favorites->count++;
					p=strchr(p+1,'\n');
				}

			    favorites->items = malloc(sizeof(char*) * favorites->count);
				int i = 0;
				char *pb=file_contents, *pe;
				pe=strchr(file_contents, '\n');
				while(pe!=NULL) {
					favorites->items[i]=pb;
					*pe=0;
					favorites->items[i]=hstr_strdup(pb);
					pb=pe+1;
					pe=strchr(pb, '\n');
					i++;
				}
				free(file_contents);
			}
		} else {
			// favorites file not found > favorites don't exist yet
			favorites->loaded=true;
			return;
		}
		free(fileName);
	}
}

void favorites_save(FavoriteItems *favorites)
{
	char *fileName=favorites_get_filename();

	if(favorites->count) {
		FILE *output_file = fopen(fileName, "wb");
		rewind(output_file);
		int i;
		for(i=0; i<favorites->count; i++) {
			if(fwrite(favorites->items[i], sizeof(char), strlen(favorites->items[i]), output_file)==-1) {
				exit(EXIT_FAILURE);
			}
			if(fwrite("\n", sizeof(char), strlen("\n"), output_file)==-1) {
				exit(EXIT_FAILURE);
			}
		}
		fclose(output_file);
	} else {
		if(access(fileName, F_OK) != -1) {
			FILE *output_file = fopen(fileName, "wb");
			fclose(output_file);
		}
	}

	free(fileName);
}

void favorites_add(FavoriteItems *favorites, char *newFavorite)
{
	if(favorites->count) {
		favorites->items=realloc(favorites->items, sizeof(char *) * ++favorites->count);
		favorites->items[favorites->count-1]=hstr_strdup(newFavorite);
		favorites_choose(favorites, newFavorite);
	} else {
		favorites->items=malloc(sizeof(char*));
		favorites->items[0]=hstr_strdup(newFavorite);
		favorites->count=1;
	}

	favorites_save(favorites);
}

void favorites_choose(FavoriteItems *favorites, char *choice)
{
	if(favorites->count && choice) {
		int i;
		char *b=0, *next;
		for(i=0; i<favorites->count; i++) {
			if(!strcmp(favorites->items[i],choice)) {
				favorites->items[0]=favorites->items[i];
				if(b) {
					favorites->items[i]=b;
				}
				return;
			}
			next=favorites->items[i];
			favorites->items[i]=b;
			b=next;
		}
	}
	favorites_save(favorites);
}

bool favorites_remove(FavoriteItems *favorites, char *almostDead)
{
	if(favorites->count) {
		int i, j;
		for(i=0, j=0; i<favorites->count && j<favorites->count; i++, j++) {
			if(!strcmp(favorites->items[i], almostDead)) {
				j=i+1;
				favorites->count--;
			} else {
				if(j>i) {
					favorites->items[i]=favorites->items[j];
				}
			}
		}
		favorites_save(favorites);
		return true;
	} else {
		return false;
	}
}

void favorites_destroy(FavoriteItems *favorites)
{
	if(favorites) {
		int i;
		for(i=0; i<favorites->count; i++) {
			free(favorites->items[i]);
		}
		free(favorites);
	}
}