#include <string.h>
#include <stdlib.h>
#include <stdio.h>
#include <gtk/gtk.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <math.h>
#include <stdbool.h>

int char_to_digit(char num)
{
	switch(num)
	{
		case '0': return 0;
		case '1': return 1;
		case '2': return 2;
		case '3': return 3;
		case '4': return 4;
		case '5': return 5;
		case '6': return 6;
		case '7': return 7;
		case '8': return 8;
		case '9': return 9;
		case '.': return -1;
		default: return -2;	
	}
	
}

//считывает число с позиции указателя text

double read_num_in_text(char* text)
{
	double result=0;
	int i=0;
	bool fractional_flag=FALSE;
	char whole_part[16]={0};
	char whole_digits=0;
	char fractional_part[16]={0};
	char fractional_digits=0;
	while(char_to_digit(text[i])!=-2)
	{
		if(char_to_digit(text[i])!=-1&&!fractional_flag)
		{
			whole_part[whole_digits]=char_to_digit(text[i]);
			printf("text_num=%d|%c\n",char_to_digit(text[i]),text[i]);
			++whole_digits;
			++i;
		}
		else
		{
			if(char_to_digit(text[i])==-1)
			{   printf("fractional flag is true\n");
				fractional_flag=TRUE;
				++i;
			}
			else
			{
				fractional_part[fractional_digits]=char_to_digit(text[i]);
				++fractional_digits;
				printf("frac_digit=%d|%c\n",char_to_digit(text[i]),text[i]);
				++i;	
			}
		}
	}
	///вычисление непосредственно самого числа
	i=whole_digits;
	result=whole_part[whole_digits];
	while(i>0)
	{
		--i;
		printf("whole=%d\n",whole_part[i]);
		result=result+pow(10,whole_digits-i-1)*whole_part[i];
	}
	i=0;
	while(i<=fractional_digits)
	{
		result=result+pow(0.1,i+1)*fractional_part[i];
		++i;	
	}
	printf("result_read_num=%lf\n",result);
	return result;
}

//подситывает количество символов, которые надо удалить
//
int count_of_digits_for_delete(char* text)
{
	int i=0;
	bool fractional_flag=FALSE;
	char whole_part[16]={0};
	int whole_digits=0;
	char fractional_part[16]={0};
	int fractional_digits=0;
	while(char_to_digit(text[i])!=-2)
	{
		if(char_to_digit(text[i])!=-1&&!fractional_flag)
		{
			whole_part[whole_digits]=char_to_digit(text[i]);
			printf("text_num=%d|%c\n",char_to_digit(text[i]),text[i]);
			++whole_digits;
			++i;
		}
		else
		{
			if(char_to_digit(text[i])==-1)
			{   printf("fractional flag is true\n");
				fractional_flag=TRUE;
				++i;
			}
			else
			{
				fractional_part[fractional_digits]=char_to_digit(text[i]);
				++fractional_digits;
				printf("frac_digit=%d|%c\n",char_to_digit(text[i]),text[i]);
				++i;	
			}
		}
	}
	if(fractional_flag)
		return whole_digits+1+fractional_digits;
		else
		return whole_digits;
}

//создаёт пустой файл в каталоге рамдиска /dev/shm
//с именем совпадающим с названием файла
char* create_dump_file(char *file_with_path)
{
	char *file=NULL;
	int i=0;
	while(file_with_path[i]!='\0')
	{++i;}
	while(file_with_path[i]!='/'&&i>0)
	{--i;}
	file=file_with_path+i;
	GString *string=g_string_new("test -f /dev/shm");
	g_string_append(string,file);
	g_string_append(string,"|| touch /dev/shm/");
	g_string_append(string,file);
	system(string->str);
	///нужно сформировать строку-полный путь
	GString *full_path=g_string_new("/dev/shm");
	g_string_append(full_path,file);
	char *result=g_string_free(full_path,FALSE);
	return result;
}

//result must be freed with g_string_free
GString* read_file_in_buffer(char *file_with_path)
{
	FILE *input = NULL;
    struct stat buf;
    int fh, result;

    char *body=NULL; //содержимое
    GString *resultat=g_string_new("");
    fh=open(file_with_path, O_RDONLY);
    result=fstat(fh, &buf);
    if (result !=0)
        printf("Плох дескриптор файла\n");
    else
    {
        printf("%s",file_with_path);
        printf("Размер файла: %ld\n", buf.st_size);
        printf("Номер устройства: %lu\n", buf.st_dev);
        printf("Время модификации: %s", ctime(&buf.st_atime));
        input = fopen(file_with_path, "r");
        if (input == NULL)
        {
            printf("Error opening file");
        }
        body=(char*)calloc(buf.st_size+64,sizeof(char)); //дополнительная память для цифр
        //проверяем хватило ли памяти
        if(body==NULL)
        {
            printf("Не хватает оперативной памяти для резмещения body\n");
        }
        int size_count=fread(body,sizeof(char),buf.st_size, input);
        if(size_count!=buf.st_size)
        printf("Считался не весь файл");
        resultat=g_string_append(resultat,body);
        free(body);
    }
    fclose(input);
    return resultat;
}

void* write_string_to_file(char* writed_file, char* str_for_write, int lenght)
{
	FILE * ptrFile = fopen (writed_file ,"wb");
	size_t writed_byte_count=fwrite(str_for_write,1,lenght,ptrFile);
	//if(writed_byte_count>4) return TRUE;
	//else return FALSE;	
	fclose(ptrFile);
}

//возвращаемый результат нужно удалить при помощи g_free
char* get_resized_svg(char *file_with_path, int width, int height)
{
	char *writed_file=create_dump_file(file_with_path);
	//открываем файл и копируем содержимое в буфер
	GString *body=read_file_in_buffer(file_with_path);
    
    char *start_search=NULL;
    char *end_search=NULL;
    char *width_start=NULL;
    char *width_end=NULL;
    char *height_start=NULL;
    char *height_end=NULL;
    start_search=strstr(body->str,"<svg");
    int j=0;
    //анализируем содержимое файла
    if(start_search)
    {
		end_search=strstr(start_search,">");
		if(end_search)
		{
			///обработка параметра width
			width_start=strstr(start_search,"width");
			width_end=width_start+strlen("width");
			
			///переход от тега width к его значению
			while(width_end[j]==0x0A||width_end[j]==0x20) ++j;
			if(width_end[j]=='=') ++j;
			while(width_end[j]==0x0A||width_end[j]==0x20) ++j;
			if(width_end[j]!='"')
			printf("Ошибка анализа синтаксиса svg. Отсутсвует кавычки в параметре width=%c\n",width_end[j]);
			else ++j; ///кавычка есть
			
			///вычисление количества символов, подлежащих удалению
			gssize size=count_of_digits_for_delete(width_end+j);
			///вычисление относительной позиции (1 позиция - 1 байт)
			gssize pos=width_end+j-body->str;
			///удаляем ненужное значение ширины и вставляем нужное
			g_string_erase(body,pos,size);
			char width_new[8];
			g_snprintf(width_new,8,"%d",width);
			g_string_insert(body, pos, width_new);
			
			///обработка параметра height
			height_start=strstr(start_search,"height");
			height_end=height_start+strlen("height");
			///переход от тега height к его значению
			j=0;
			while(height_end[j]==0x0A||height_end[j]==0x20) ++j;
			if(height_end[j]=='=') ++j;
			while(height_end[j]==0x0A||height_end[j]==0x20) ++j;
			if(height_end[j]!='"')
			printf("Ошибка анализа синтаксиса svg. Отсутсвует			кавычки в параметре height=%c%c%c\n",height_end[j-1],height_end[j],height_end[j+1]);
			else ++j; ///кавычка есть
			
			///вычисление количества символов, подлежащих удалению
			size=count_of_digits_for_delete(height_end+j);
			///вычисление относительной позиции (1 позиция - 1 байт)
			pos=height_end+j-body->str;
			///удаляем ненужное значение высоты и вставляем нужное
			g_string_erase(body,pos,size);
			char height_new[8];
			g_snprintf(height_new,8,"%d",height);
			g_string_insert(body, pos, height_new);
			
			
			///нужно открыть на запись файл в dev/shm/
			///записать изменённый массив
			write_string_to_file(writed_file,body->str,strlen(body->str));
			return writed_file;
			
			//g_free(writed_file);
			
			g_string_free(body,TRUE);
		}
		else
		printf("Ошибка анализа: нет закрывающей скобки у тега svg");
	}
}

void resized_svg_free(char *path)
{
    if (remove (path)==-1 )
    {
        printf("Не удалось удалить файл %s\n",path);
    }
}

#ifndef SVG_TO_PIXBUF_CLASS_H
#define SVG_TO_PIXBUF_CLASS_H

void resized_svg_free(char *path);
char* get_resized_svg(char *file_with_path, int width, int height); //result must be freed with g_free()
#endif