#include<stdio.h>
#include<stdlib.h>
#include<string.h>
#include <windows.h>


#define MAX 30
#define MAX_HEAP_SIZE 100
#define MAX_ARR_SIZE 100


typedef struct heapnode{
	int y;
	int m;
	int d;
	int number;
	int date_number;
	int output_date_number;
	char work[MAX];
}heapnode;

heapnode heap[MAX_HEAP_SIZE];
heapnode search_heap[MAX_HEAP_SIZE];
heapnode arr[MAX_ARR_SIZE];
heapnode new_insertdata;
heapnode today;
heapnode search_day;
heapnode con_temp;
heapnode finish_work[MAX_HEAP_SIZE];

int i = 0;
int a_i = 0;
int temp_i = 0;
int mod_temp = 0;
int k = 0;
int arr_count = 0;
int f_count = 0;

int y, m, d;

//부모 i = i/2;
//왼쪽 자식 i = 2*i;
//오른쪽 자식 i = 2*i+1;


//히프 삽입
void heap_insert(heapnode *h,heapnode data)
{    
	++i;
	int temp = i;
	while(i > 1){

		if((h[i/2]).date_number < data.date_number){     //자식노드가 부모노드보다 값이 클 경우

			h[i] = h[i/2];         // 부모노드 값을 자식노드로 옮겨줌
			i = i/2;
		} 
		else {
			goto o;
		}
	}
o:
	h[i] = data;           // 
	i = temp;

}


//검색 배열 히프 삽입
void arr_heap_insert(heapnode *h,heapnode data)
{    
	++a_i;
	int temp = a_i;
	while(a_i > 1){

		if((h[a_i/2]).date_number < data.date_number){     //자식노드가 부모노드보다 값이 클 경우

			h[a_i] = h[a_i/2];         // 부모노드 값을 자식노드로 옮겨줌
			a_i = a_i/2;
		} 
		else {
			goto o;
		}
	}
o:
	h[a_i] = data;           // 
	a_i = temp;

}

//최대히프 삭제
heapnode heap_delete()     
{
	int parent, child;
	heapnode item, temp;

	if(!i)
	{
		printf("일정이 비어있습니다.\n");
	}

	finish_work[f_count] = heap[1];
	++f_count;

	item = heap[1];

	temp = heap[(i)--];
	parent =1;
	child = 2;

	while(child <= i) {
		if((child <= i) && (heap[child].date_number < heap[child+1].date_number)) {
			child++;
		}
		if(temp.date_number >= heap[child].date_number) {
			break;
		}
		heap[parent] = heap[child];

		parent = child;
		child *= 2;
	}
	heap[parent] = temp;
	return item;
}


//히프 삽입
void search_heap_insert(heapnode *h,heapnode data)
{    
	++k;
	int temp = k;
	while(k > 1){

		if((h[k/2]).number < data.number){     //자식노드가 부모노드보다 값이 클 경우

			h[k] = h[k/2];         // 부모노드 값을 자식노드로 옮겨줌
			k = k/2;
		} 
		else {
			goto o;
		}
	}
o:
	h[k] = data;           
	k = temp;

}


//검색 배열 최대히프 삭제
heapnode arr_heap_delete(int temp_i)     
{
	int parent, child;
	heapnode item, temp;

	if(!temp_i)
	{
		printf("일정이 비어있습니다.\n");
	}

	item = arr[1];
	temp = arr[(temp_i)--];
	parent =1;
	child = 2;

	while(child <= temp_i) {
		if((child <= temp_i) && (arr[child].date_number < arr[child+1].date_number)) {
			child++;
		}
		if(temp.date_number >= arr[child].date_number) {
			break;
		}
		arr[parent] = arr[child];
		parent = child;
		child *= 2;
	}
	arr[parent] = temp;
	return item;
}


//검색 날짜 출력
void search_heap_output()          
{
	int search_y, search_m, search_d;
	int search_heap_count;

	printf("년, 월, 날짜를 입력하세요(예:2013 12 3) : ");
	scanf("%d %d %d", &search_y, &search_m, &search_d);
	getchar();

	if(!i) {
		printf("일정이 비어있습니다.\n");
		getchar();
	}

	search_heap_count = 0;

	for(int j = 1; j < i+1; j++) {
		if(arr[j].y == search_y && arr[j].m == search_m && arr[j].d == search_d) {
			search_heap_insert(search_heap,arr[j]);
			++search_heap_count;
		}
	}

	for(int j = 1; j <= search_heap_count; j++) {
		printf(" 중요도 : %d 해야할 일 : %s \n ",search_heap[j].number,search_heap[j].work);
	}
	getchar();

	k = 0;

}

void calendar()                //달력
{
	int last,th,year,day,date,x,z;  
	int temp_day=0;
	printf("입력 년도를 입력하세요 : ");  
	scanf("%d",&new_insertdata.y); //년도를 입력받음  
	y = new_insertdata.y;
	printf("입력 월을 입력하세요 : ");  
	scanf("%d",&new_insertdata.m); //월을 입력받음  
	m = new_insertdata.m;
	if ((m>=1) && (m<=12)) // 입력한 월이 1월 ~ 12월이 참인지 거짓인지 확인  
	{ // 월(1~12)이 맞을 때 실행  
		if ((m==1) || (m==3) || (m==5) || (m==7) || (m==8) || (m==10) || (m==12))  
		{  
			last=31; // 1, 3, 5, 7, 8, 10, 12월은 마지막 날이 31일까지  
		}  
		else if ((m==4) || (m==6) || (m==9) || (m==11))  
		{  
			last=30; // 4, 6, 9, 11월은 마지막 날이 30일까지  
		}  
		if (m==2)  
		{  
			last=28; // 2월은 기본적으로 마지막 날이 28일까지  
		}  
		if ((m==2) && (y%4==0) && (y%100!=0) || (y%400==0))  
		{  
			last=29; // 2월 윤년을 확인시켜 윤년일 경우 마지막 날이 29일까지  
		}  
		if (m<3)  
		{  
			y = y-1;  
			m = m+12;  
		}  
	}  
	printf("\n 일 월 화 수 목 금 토\n");  
	printf(" --------------------\n");  
	date = 1;  
	for(x=0;x<=6;x++)  
	{  
		th=y/100;  
		year=y%100;  
		day=((21*th/4)+(5*year/4)+(26*(m+1)/10)+date-1)%7;  
		for(z=0;z<7;z++)  
		{  
			if(x=1 && z < day)  
			{  
				printf("   ");  
			}  
			else  
			{  
				if(z >= day && date < 10)  
				{  
					for(int t=1; t<=i; t++){
						if(y == heap[t].y && m == heap[t].m && date == heap[t].d)
							temp_day = date;
					}
					if(temp_day == date){
						HANDLE hOut = GetStdHandle(STD_OUTPUT_HANDLE);
						SetConsoleTextAttribute(hOut, FOREGROUND_RED | FOREGROUND_INTENSITY );
						printf(" %2d",date);
						SetConsoleTextAttribute(hOut, FOREGROUND_RED | FOREGROUND_GREEN | FOREGROUND_BLUE );
						}

					else
						printf(" %2d",date);  
				}  

				else if(z >= day && date >= 10)  
				{  
					for(int t=1; t<=i; t++){
						if(y == heap[t].y && m == heap[t].m && date == heap[t].d)
							temp_day = date;
					}
					if(temp_day == date){
						HANDLE hOut = GetStdHandle(STD_OUTPUT_HANDLE);
						SetConsoleTextAttribute(hOut, FOREGROUND_RED | FOREGROUND_INTENSITY );
						printf(" %2d",date);
						SetConsoleTextAttribute(hOut, FOREGROUND_RED | FOREGROUND_GREEN | FOREGROUND_BLUE );
						}

					else
					printf(" %2d",date);  
				}  
				if(date < last)  
				{  
					date = date + 1;  
				}  
				else if(date >= last)  
				{  
					printf("\n");  
					return;  
				}  
			}  
		}  
		printf("\n");  
	}  
}

void modify()
{

	char temp[30];
	printf("수정할 일정 : ");
	scanf("%s",temp);
	getchar();

	for(int j = 0; j <= i; j++) {
		if(!strcmp(arr[j].work, temp)) {

			int n;
			printf("\n");
			printf("  1. 날짜 수정           \n");
			printf("  2. 중요도 수정           \n");
			printf("  3. 할 일 수정           \n");
			printf("  4. 일정 삭제           \n");
			printf("  5. 이전 화면           \n");
			scanf("%d",&n);
			getchar();

			switch(n) {
			case 1:
				printf("수정할 날짜를 입력하세요 : ");
				scanf("%d %d %d", &arr[j].y, &arr[j].m, &arr[j].d);
				printf("일정이 수정되었습니다");				
				getchar();
				break;

			case 2:
				printf("수정할 중요도를 입력하세요 : ");
				scanf("%d", &arr[j].number);
				printf("일정이 수정되었습니다");				
				getchar();
				break;

			case 3:
				printf("수정할 할 일을 입력하세요 : ");
				scanf("%s", arr[j].work);
				printf("일정이 수정되었습니다");
				getchar();
				break;

			case 4:
				arr[j].date_number = 0;
				mod_temp = i;

				con_temp.y = arr[i].y;
				con_temp.m = arr[i].m;
				con_temp.d = arr[i].d;
				con_temp.number = arr[i].number;
				con_temp.output_date_number = arr[i].output_date_number;
				strcpy(con_temp.work, arr[i].work);	

				heap[i].date_number = 0;

				arr[j].y = con_temp.y;
				arr[j].m = con_temp.m;
				arr[j].d = con_temp.d;
				arr[j].number = con_temp.number;
				arr[j].output_date_number = con_temp.output_date_number;
				strcpy(arr[j].work, con_temp.work);

				arr[j].output_date_number = arr[j].number - (arr[j].y - today.y)*10 - (arr[j].m - today.m)*5 - (arr[j].d - today.d)*3;
				arr[j].date_number = arr[j].number - (arr[j].y - today.y)*10 - (arr[j].m - today.m)*5 - (arr[j].d - today.d)*5000;

				i = 0;
				for(int l=1; l<=mod_temp; l++)
				{
					heap_insert(heap,arr[l]);
				}
				--i;
				printf("일정이 삭제되었습니다.");
				return;
				break;

			case 5:
				return;
				break;

			default :
				printf("번호를 잘못 입력했습니다.\n");

			}

			// 다시 힢 정렬
			arr[j].date_number = arr[j].number - (arr[j].y - today.y)*10 - (arr[j].m - today.m)*5 - (arr[j].d - today.d)*5000;
			int i_temp = 0;
			i_temp = i;
			i = 0;
			for(int l=1; l<=i_temp; l++)
			{
				heap_insert(heap,arr[l]);
			}
		}
	}
}


int main(){

	int op;
	int q=1;

	printf("오늘 날짜를 입력하세요(예 : 2013 12 3) : ");
	scanf("%d %d %d",&today.y,&today.m,&today.d);
	printf("\n");

input_day:

	calendar();

	printf("입력 날짜를 입력하세요 : ");
	scanf("%d",&new_insertdata.d);

	printf("\n");

	while(1){
		system("cls");
		printf("\n오늘 날짜 : %d년 %d월 %d일\n",today.y, today.m, today.d);
		printf("\n입력 날짜 : %d년 %d월 %d일\n\n",new_insertdata.y, new_insertdata.m, new_insertdata.d);
		printf("┏━━━━━━MENU━━━━━━┓\n");
		printf("┃  1. 일정 추가              ┃\n");
		printf("┃  2. 일정 완료              ┃\n");
		printf("┃  3. 일정 확인              ┃\n");
		printf("┃  4. 날짜 입력              ┃\n");
		printf("┃  5. 날짜별 일정 검색       ┃\n");
		printf("┃  6. 완료 목록              ┃\n");
		printf("┃  7. 일정 수정              ┃\n");
		printf("┃  8. 프로그램 종료          ┃\n");
		printf("┗━━━━━━━━━━━━━━┛\n");
		printf(" 입력 = ");
		scanf("%d",&op);
		getchar();

		switch(op)
		{
		case 1: // 일정 추가
			printf("중요도를 입력하시오 : ");
			scanf("%d",&new_insertdata.number);
			getchar();

			printf("할일 입력하시오 : ");
			scanf("%s",new_insertdata.work);
			getchar();

			++arr_count;
			printf("일정이 등록됬습니다\n");

			new_insertdata.date_number = new_insertdata.number - (new_insertdata.y - today.y)*10 - (new_insertdata.m - today.m)*5 - (new_insertdata.d - today.d)*5000;
			new_insertdata.output_date_number = new_insertdata.number - (new_insertdata.y - today.y)*10 - (new_insertdata.m - today.m)*5 - (new_insertdata.d - today.d)*3;


			heap_insert(heap,new_insertdata);
			arr_heap_insert(arr,new_insertdata);
			q++;

			break;

		case 2: // 일정 삭제

			temp_i = i;
			if(!i) {
				printf("일정이 비어있습니다.\n");
			}
			else{
				heap_delete();
				arr_heap_delete(temp_i);
				printf("일정이 삭제되었습니다.\n");
			}

			break;

		case 3: // 일정 확인

			if(!i) {
				printf("일정이 비어있습니다.\n");
			}
			for(int j = 1; j < i+1; j++)
			{
				printf("중요도 : %d | 해야할 일 : %s | 마감일자 : %d %d %d\n ",
					heap[j].output_date_number,heap[j].work, heap[j].y, heap[j].m, heap[j].d);
			}

			break;

		case 4: // 날짜 입력

			goto input_day;

		case 5: // 날짜별 일정 검색

			search_heap_output();

			break;

		case 6: // 완료 목록

			if(finish_work[0].y == 0)
				printf("완료 목록이 없습니다.");

			printf("==================완료목록================\n\n");
			for(int f=0; f<f_count; f++) {
				printf("%d. 중요도 : %d 해야할 일 : %s 마감일자 : %d %d %d\n",f+1, finish_work[f].number, finish_work[f].work, finish_work[f].y, finish_work[f].m, finish_work[f].d);
			}
			break;

		case 7: // 일정 수정
			if(!i) {
				printf("일정이 비어있습니다.\n");
				break;
			}

			printf("==================일정목록================\n\n");

			for(int j = 1; j < i+1; j++) {
				printf("중요도 : %d | 해야할 일 : %s | 마감일자 : %d %d %d\n ",heap[j].number,heap[j].work, 
					heap[j].y, heap[j].m, heap[j].d);
			}

			printf("\n");
			modify();
			break;

		case 8: // 프로그램 종료
			printf("프로그램을 종료합니다\n");
			exit(1);

		default :
			printf("번호를 잘못 입력했습니다.\n");

		}
		getchar();
	}

	return 0;
}