#include "Header.h"

void keyboard_input(char* file_name, char* text_input)
{
	text_input = malloc(MAX_SIZE * sizeof(char));
	if (text_input == NULL)
	{
		printf("Memory not allocated");
		exit(1);
	}

	FILE* out_file;
	out_file = fopen(file_name, "a");

	if (out_file == NULL)
	{
		printf("Could not open file");
		exit(1);
	}
	while (1)
	{
		scanf("\n%[^\n]", text_input);
		fflush(stdin);

		if (strcmp(text_input, "end") == 0)
		{
			fclose(out_file);
			break;
		}
		else
		{
			fprintf(out_file, "%s\n", text_input);
		}

	}
	fclose(out_file);
	free(text_input);
}

void uppercase(char* file_name, char* result_file)
{
	int i = 0;
	FILE* read_file, * result;
	char str[MAX_SIZE] = { 0 };

	read_file = fopen(file_name, "r");
	result = fopen(result_file, "w");
	if (read_file == NULL)
	{
		printf("Could not open file");
		exit(1);
	}
	else if (result == NULL)
	{
		printf("Could not open file");
		exit(1);
	}
	else
	{
		while (fgets(str, sizeof(str), read_file) != NULL)
		{
			char* p = str;
			*p = toupper(*p);

			for (; *p; p++)
			{
				if (*p == '.')
				{
					p++;
					while (*p == ' ')
					{
						p++;
					}
					*p = toupper(*p);
				}
			}
			fprintf(result, "%s\n", str);
		}
	}
	fclose(read_file);
	fclose(result);
}

void transliterate(char* another_file, char* third_file)
{
	system("chcp 1251\n");
	setlocale(LC_ALL, "UTF8");
	int test = 0;

	FILE* read_file = fopen(another_file, "r"),
		* result = fopen(third_file, "w");
	char str[MAX_SIZE];

	if (read_file == NULL)
	{
		printf("Could not open file");
		exit(1);
	}
	else if (result == NULL)
	{
		printf("Could not open file");
		exit(1);
	}
	else
	{
		while (fscanf(read_file, "%s\n", str) != NULL)
		{
			int strLen = strlen(str) + 1;
			char* temp = calloc(strLen, sizeof(char));
			if (temp == NULL)
			{
				exit(2);
			}
			for (char* p = str, *j = temp; *p; p++, j++) {
				if (*p == 'a')
				{
					*j = '\u0430';
					fprintf(result, "%c", '\u0430');
				}
				else if (*p == 'A') fprintf(result, "%c", '\u0410');
				else if (*p == 'b') fprintf(result, "%c", '\u0431');
				else if (*p == 'B') fprintf(result, "%c", '\u0411');
				else if (*p == 'v') fprintf(result, "%c", '\u0432');
				else if (*p == 'V') fprintf(result, "%c", '\u0412');
				else if (*p == 'g') fprintf(result, "%c", '\u0433');
				else if (*p == 'G') fprintf(result, "%c", '\u0413');
				else if (*p == 'd') fprintf(result, "%c", '\u0434');
				else if (*p == 'D') fprintf(result, "%c", '\u0414');
				else if (*p == 'e') fprintf(result, "%c", '\u0435');
				else if (*p == 'E') fprintf(result, "%c", '\u0415');

				else if (*p == 'z')
				{
					if (*(p + 1) == 'h')
					{
						fprintf(result, "%c", '\u0436');
						p++;
					}
					else
					{
						fprintf(result, "%c", '\u0437');
					}
					if (*p == 'Z')
					{
						if (*(p + 1) == 'h')
						{
							fprintf(result, "%c", '\u0416');
							p++;
						}
						else if ((*(p + 1) != 'h'))
						{
							fprintf(result, "%c", '\u0417');
						}
					}

				}
				else if (*p == 'i') fprintf(result, "%c", '\u0438');
				else if (*p == 'I') fprintf(result, "%c", '\u0418');
				else if (*p == 'y') fprintf(result, "%c", '\u0439');
				else if (*p == 'Y') fprintf(result, "%c", '\u0419');
				else if (*p == 'k') fprintf(result, "%c", '\u043A');
				else if (*p == 'K') fprintf(result, "%c", '\u041A');
				else if (*p == 'l') fprintf(result, "%c", '\u043B');
				else if (*p == 'L') fprintf(result, "%c", '\u041B');
				else if (*p == 'm') fprintf(result, "%c", '\u043C');
				else if (*p == 'M') fprintf(result, "%c", '\u041C');
				else if (*p == 'n') fprintf(result, "%c", '\u043D');
				else if (*p == 'N') fprintf(result, "%c", '\u041D');
				else if (*p == 'o') fprintf(result, "%c", '\u043E');
				else if (*p == 'O') fprintf(result, "%c", '\u041E');
				else if (*p == 'p') fprintf(result, "%c", '\u043F');
				else if (*p == 'P') fprintf(result, "%c", '\u041F');
				else if (*p == 'r') fprintf(result, "%c", '\u0440');
				else if (*p == 'R') fprintf(result, "%c", '\u0420');
				else if (*p == 'u') fprintf(result, "%c", '\u0443');
				else if (*p == 'U') fprintf(result, "%c", '\u0423');
				else if (*p == 'f') fprintf(result, "%c", '\u0444');
				else if (*p == 'F') fprintf(result, "%c", '\u0424');
				else if (*p == 'h') fprintf(result, "%c", '\u0445');
				else if (*p == 'H') fprintf(result, "%c", '\u0425');
				else if (*p == 't')
				{
					if (*(p + 1) == 's')
					{
						fprintf(result, "%c", '\u0446');
						p++;
					}
					else
					{
						fprintf(result, "%c", '\u0442');
					}
					if (*p == 'T')
					{
						if (*(p + 1) == 's')
						{
							fprintf(result, "%c", '\u0426');
							p++;
						}
						else if ((*(p + 1) != 's'))
						{
							fprintf(result, "%c", '\u0422');
						}
					}
				}
				else if (*p == 'c')
				{
					if (*(p + 1) == 'h')
					{
						fprintf(result, "%c", '\u0447');
						p++;
					}
					if (*p == 'C')
					{
						if (*(p + 1) == 'h')
						{
							fprintf(result, "%c", '\u0427');
							p++;
						}
					}

				}
				else if (*p == 's')
				{
					if (*(p + 1) == 'h')
					{
						fprintf(result, "%c", '\u0448');
						p++;
					}
					else
					{
						fprintf(result, "%c", '\u0441');
					}
					if (*p == 'S')
					{
						if (*(p + 1) == 'h')
						{
							fprintf(result, "%c", '\u0428');
							p++;
						}
						else if ((*(p + 1) != 's'))
						{
							fprintf(result, "%c", '\u0421');
						}
					}

				}
				else if (*p == 's')
				{
					if (*(p + 1) == 'h' && *(p + 2) == 't')
					{
						fprintf(result, "%c", '\u0449');
						p += 2;
					}
					else
					{
						fprintf(result, "%c", '\u0441');
					}
					if (*p == 'S')
					{
						if (*(p + 1) == 'h' && *(p + 2) == 't')
						{
							fprintf(result, "%c", '\u0429');
							p += 2;
						}
						else if (*(p + 1) != 'h' && *(p + 2) == 't')
						{
							fprintf(result, "%c", '\u0449');
						}
					}
				}
				//else if (*p == 'a') fprintf(result, "%c", '\u044A');
				else if (*p == 'y')
				{
					if (*(p + 1) == 'u')
					{
						fprintf(result, "%c", '\u044E');
						p++;
					}
					else if (*(p + 1) == 'a')
					{
						fprintf(result, "%c", '\u044F');
						p++;
						if (*p == 'Y')
						{
							if (*(p + 1) == 'u')
							{
								fprintf(result, "%c", '\u042E');
								p++;
							}
							else if (*(p + 1) == 'a')
							{
								fprintf(result, "%c", '\u042F');
								p++;
							}
						}
						else
						{
							fprintf(result, "%c", '\u044C');
						}
					}
					else if (*p == ' ') fprintf(result, "%c", ' ');
					else if (*p == '.') fprintf(result, "%c", '.');
				}
				fprintf(result, "\n");
				++test;
			}
			free(temp);
			fclose(read_file);
			fclose(result);
		}
	}
}