#include <stdio.h>


/*
	Comapre two files without spaces and line breaks
	return -2, if files not found or fopen gives NULL
	return -1, if file are not equivalents
	return 1, if if file are equivalents 
*/
int compare2f(char** address_file)
{
	FILE* f1 = fopen(*(address_file + 1), "r");
	FILE* f2 = fopen(*(address_file + 2), "r");
	if (f1 == NULL || f2 == NULL)
	{
		printf("File(s) not found \n");
		return -2;
	}
	else
	{
		int f1_c=getc(f1);
		int f2_c=getc(f2);
		while (f1_c!=-1)
		{
			if (f1_c == ' ' || f1_c == '\n')
			{
				f1_c = getc(f1);
				continue;//goto UPwhile
			}
			else if (f1_c == f2_c)
			{
				f1_c = getc(f1);
				f2_c = getc(f2);
				continue;//goto UPwhile
			}
			else
			{
				if (f2_c == ' ' || f2_c== '\n')
				{
					f2_c = getc(f2);
					continue;//goto UPwhile
				}
				else
				{
					printf("Files are not equivalents \n");
					return -1;
				}
			}
		}

		//check the end of the second file
		while ((f2_c = getc(f2)) != -1)
		{
			if (f2_c != ' ' && f2_c != '\n')
			{
				break;
			}
		}


		if (f2_c == -1)
		{
			printf("Files are equivalents \n");
			return 1;
		}
		else
		{
			printf("Files are not equivalents \n");
			return -1;
		}
	}
}


int main(int argc, char** argv)
{
	compare2f(argv);
	return 0;
}

int print_one_word_per_line(FILE* f)
{
	int c;
	bool inword = false;
	bool nonewline = false;
	int count_words = 0;
	while ((c = getc(f)) != -1)
	{
		if (c != ' ' && c != '\n' && c != '\t' && c != '!' && c != '?' && c != '.' && c != ',')
		{
			if (inword == false)
			{
				inword = true;
				count_words++;
			}
			putc(c, stdout);
			//printf("%c", c);
			nonewline = true;
		}
		else
		{
			nonewline ? putc('\n', stdout), nonewline = false : false;
			inword = false;
		}
	}
	return count_words;
}

int print_one_word_per_line2(FILE* f)
{
	int c;
	bool inword = false;
	bool nonewline = false;
	int count_words = 0;

	char* cur_word = NULL;
	int cur_word_pow = 0;


	while ((c = getc(f)) != -1)
	{
		if (c != ' ' && c != '\n' && c != '\t' && c != '!' && c != '?' && c != '.' && c != ',')
		{
			cur_word_pow++;
			cur_word = (char*)realloc(cur_word, cur_word_pow);
			*(cur_word + cur_word_pow - 1) = c;
			if (inword == false)
			{
				inword == true;
				count_words++;
			}
			nonewline = true;
		}
		else
		{
			if (nonewline)
			{
				cur_word_pow++;
				cur_word = (char*)realloc(cur_word, cur_word_pow);
				*(cur_word + cur_word_pow - 1) = 0;

				printf("%s \n", cur_word);
				cur_word = NULL;//don't work free(cur_word)
				cur_word_pow = 0;
				nonewline = false;
			}
			inword = false;
		}
	}
	free(cur_word);
	return count_words;
}
}

f = (FILE**)malloc(files_cnt*sizeof(FILE*));

int print_one_word_per_line(FILE* f, const char* locale)
{
	setlocale(LC_ALL, locale);
	int c;
	bool inword = false;
	bool nonewline = false;
	int count_words = 0;
	while ((c = getc(f)) != -1)
	{
		if (c != ' ' && c != '\n' && c != '\t' && c != '!' && c != '?' && c != '.' && c != ',')
		{
			if (inword == false)
			{
				inword = true;
				count_words++;
			}
			putc(c, stdout);
			//printf("%c", c);
			nonewline = true;
		}
		else
		{
			nonewline ? putc('\n', stdout), nonewline = false : false;
			inword = false;
		}
	}
	setlocale(LC_ALL, "C");
	return count_words;
}

print_one_word_per_line(f,"Russian");

int wordSplit( FILE* f ) {
  int wordCount = 0;
  int ch;
  int flag = 1;
  while ( -1 != (ch = fgetc( f ) ) {
    switch ( c ) {
       ' ':
      '\t':
      '\n':
      '\r':
       '!':
       '?':
       '.':
       ',':
        if ( flag ) {
          putc( '\n', stdout;
          wordCount += 1;
        }
        flag = 0;
        break;
      default:
        flag = 1;
        putc( ch, stdout );
    }
  }
  return wordCount;
}

int all_to_lowercase(char* file_location)
{
	FILE* f = fopen(file_location,"r+");
	if (f == NULL)
	{
		printf("Unable to open file \n");
		return -1;
	}
	int count = 0;
	int c;
	while (EOF != (c = getc(f)))
	{
		//isupper(c) ? ++count, putc('/b', f), putc(tolower(c), f),printf("%i",count) : false;
		if (isupper(c))
		{
			count++;
			printf("%i", count);
			putc(tolower(c), f);
		}
	}
	fclose(f);
	return count;
}

//Все строчные буквы преобразуются к прописным
int all_to_lowercase(const char* file_location_in, const char* file_location_out)
{
	FILE* in = fopen(file_location_in,"r");
	FILE* out = fopen(file_location_out, "r+");
	if (in == NULL || out == NULL)
	{
		printf("Unable to open files \n");
		return -1;
	}
	int count = 0;
	int c;
	while (EOF != (c = getc(in)))
	{
		isupper(c) ? ++count, putc(tolower(c), out) : putc(c,out);
	}
	fclose(in);
	fclose(out);
	return count;
}

while (EOF != (c = getc(f)))
	{
		//isupper(c) ? ++count, putc('/b', f), putc(tolower(c), f),printf("%i",count) : false;
		if (isupper(c))
		{
			count++;
			printf("%i", count);
			putc(tolower(c), f);
		}
	}