#include <stdio.h>
#include <string.h>
#include <stdlib.h>

// 2013.12.07 Hwangho's Calculator. 
// input : 괄호를 포함하 수식
// output : 후위수식 , 계산 결과

int priority (char str[]); // 연산자의 우선순위

void main()
{
	// 일단, 입력을 받고 문자열을 분리해봅시다. 
	char input[50], test[50][50]; // 입력 문자열, 분리된 문자열 
	char temp[50][50], postfix[50][50]; // 후위수식 변환을 위한 임시 문자열, 후위수식으로 변환된 문자열
	int i, j = 0, k = 0;
	int top = -1, post_top = -1;
	int select;
	float calculate[50], num1, num2, result;

	printf("> > > > > > > > > > > > > > > > > > > > > > > > > > > > \n");
	printf("	H W A N G  H O ' S	C A L C U L A T O R\n");
	printf("> > > > > > > > > > > > > > > > > > > > > > > > > > > > \n\n");

	while(1)
	{
		printf(" MENU >> 1. 수식 입력  2. 후위 수식 변환  3. 계산 결과  4. 종료\n");
		printf(" 선택 >> ");
		
		scanf("%d", &select);
		fflush(stdin);

		switch(select)
		{
		case 1:
			{
				system("cls");

				printf("\n 수식을 입력하세요 : ");
				gets(input);


				for(i=0;i<=strlen(input);i++)
				{
					if ( (48 <= input[i] && input[i] <= 57) || input[i] == '.') // 숫자이거나, 소숫점일 경우 -> 너는 피연산자. 
					{
						// 저장한다. 연산자가 나올 때까지
						test[j][k] = input[i];
						k++;
					}

					else // 연산자인 경우. 
					{
						if(input[i] == ')' || input[i] == '(') // 괄호 연산자인 경우 
						{
							if(test[j-1][k] == '+' || test[j-1][k] == '-' || test[j-1][k] == '*' || test[j-1][k] == '/') // 앞서 저장됐던 것이 연산자일 경우
							{
								test[j][k] = input[i];
								test[j][++k] = '\0';

								j++;
								k = 0;
							}

							else
							{
								test[j][k] = '\0'; // 앞에 있던 것을 널문자 넣어주면서 마무리. 
								k = 0; // k는 원상복귀. index는 0부터니깐 

								test[++j][k] = input[i];
								test[j][++k] = '\0'; // 연산자는 한 행에만 저장할거니깐 마무리
								j++;
								k = 0;
							}
						}
						else // 사칙연산자인 경우.
						{

							if (test[j-1][k] == ')') // 앞서 저장된 것이 괄호일 경우.  
							{
								test[j][k] = input[i];
								test[j][++k] = '\0';

								j++;
								k = 0;
							}
							else
							{
								test[j][k] = '\0'; // 앞에 있던 것을 널문자 넣어주면서 마무리. 
								k = 0; // k는 원상복귀. index는 0부터니깐 
								test[++j][k] = input[i];
								test[j][++k] = '\0'; // 연산자는 한 행에만 저장할거니깐 마무리
								j++;
								k = 0;
							}
						}
					}
				}

				test[j][k] = '\0';


				break;
			}
		case 2:
			{
				system("cls");
				printf("\n %s를 후위 수식으로 변환하면 [", input);

				for(i=0;i<j;i++)
				{
					if (priority(test[i]) == -1) // 피연산자인 경우. 
					{
						strcpy(postfix[++post_top], test[i]);
					}

					else // 연산자인 경우. 
					{
						switch(*test[i])
						{
						case '(':
							{
								strcpy(temp[++top], test[i]);
								break;
							}
						case ')':
							{
								do
								{
									strcpy(postfix[++post_top], temp[top--]);
								}while(*temp[top--] != '('); 

								break;
							}
						case '*':
						case '/':
							{
								strcpy(temp[++top], test[i]);
								break;
							}

						case '+':
						case '-':
							{
								if ( priority(temp[top]) > priority(test[i]) ) // 앞서 저장된 연산자의 우선순위가 지금 들어오려는 연산자의 우선순위보다 높으면 
								{
									strcpy(postfix[++post_top], temp[top--]);
									//printf("%s ", temp[top--]);
									strcpy(temp[++top], test[i]);
								}
								else
								{
									strcpy(temp[++top], test[i]);
								}
								break;
							}
						}
					}
				}

				while(top != -1)
				{
					strcpy(postfix[post_top++], temp[top--]);
				}

				strcpy(postfix[post_top], "\0");

				for(i=0;i<post_top;i++)
				{
					printf("%s", postfix[i]);
				}

				printf("]이 됩니다.\n\n");

				break;

		case 3:
			{
				
				system("cls");

				printf("\n [ %s ]의 계산 결과입니다.\n", input);

				for(i=0;i<post_top;i++)
				{
					if (priority(postfix[i]) == -1) // 피연산자인 경우.
					{
						calculate[++top] = atof(postfix[i]);
					}

					else
					{
						num1 = calculate[top--];
						num2 = calculate[top--];

						
						switch(*postfix[i])
						{
						case '+':
							{
								calculate[++top] = num1 + num2;
								break;
							}
						case '-':
							{
								calculate[++top] = num2 - num1;
								break;
							}
						case '*':
							{
								calculate[++top] = num1 * num2;
								break;
							}
						case '/':
							{
								calculate[++top] = num2 / num1;
								break;
							}
						}
					}
				}


				result = calculate[top--];

				printf(" R E S U L T >> %.2f\n\n", result);

				break;
			}
		case 4:
			{
				printf(" G O O D  B Y E !!! \n\n");
				exit(0);
				break;
			}
		default:
			{
				printf(" Insert E R R O R! Program exit ㅡ! \n\n");
				exit(1); 
				break;
			}
			}


		}
	}

}

int priority (char str[]) // 연산자의 우선순위. 
{
	switch(*str)
	{
	case '(':
	case ')':
		{
			return 1;
			break;
		}

	case '+':
	case '-':
		{
			return 2;
			break;
		}
	case '*':
	case '/':
		{
			return 3;
			break;
		}
	default:
		{
			return -1;
			break;
		}

	}

}