#include <stdio.h>
#include <stdlib.h>
#include <conio.h>

#define WEIGHTFILE "weight.txt"
#define FILENAME "data.txt"
#define COUNT 10
#define HEAP_FULL(n) (n == COUNT-1)
#define HEAP_EMPTY(n) (!n)

typedef struct tag_HEAP{
	int key;
	char index;
}HEAP;
typedef struct tag_REPORT{
	char name[10];
	int day;
	int time;
	char subject[4];
	int progress;
}REPORT;
typedef struct tag_WEIGHT{
	int day_weight;
	int time_weight;
	int subject_weight;
	int progress_weight;
}WEIGHT;

HEAP work[COUNT];
int index = 0;

// 가중치 불러오기
void Set_weight(char *ff, WEIGHT *w);
// 저장파일 불러오기.
void Read(char *ff, REPORT m[], int *count);
// 현재 가중치 읽어오기
void Display_weight(WEIGHT *w);
// 현재내용 읽어오기
void Display(REPORT m[], int count);
// 가중치 수정
void Change_weight(WEIGHT *w);
// 내용 추가
void Add(REPORT m[], int *count);
// 가중치 저장하기
void Save_weight(char *ff, WEIGHT *w);
// 내용 저장
void Save(char *ff, REPORT m[], int count);
// 중요도 계산
int Calculate(REPORT m[], WEIGHT w, int count);
// 우선순위 최대히프에 삽입
void Max_Heap_Push(HEAP w, int *n);
// 우선순위 최대히프에서 삭제(출력)
HEAP Max_Heap_Pop(int *n);

void main()
{
	HEAP temp;
	REPORT mine[COUNT];
	WEIGHT weight = {0, 0, 0, 0};
	int num, i, j;
	int count = 0;
	
	Read(FILENAME,mine,&count);
	Set_weight(WEIGHTFILE,&weight);

	for( i = 0; i <= count; i++) {
		temp.key = Calculate(mine, weight, count);
		temp.index = count;
		Max_Heap_Push(temp, &index);
	}

	printf("%d",count);

	while(1) {
		system("cls");

		printf("----main----\n");
		printf(" 1.등록/삭제 \n");
		printf(" 2.할일 \n");
		printf(" 3.전체출력/진행상황 \n");
		printf(" 4.환경설정\n");
		printf(" 5.종료 \n");
		printf("선택 : "); scanf("%d",&num);

		system("cls");
		switch(num) {
		case 1:
			printf(" 등록(1)/삭제(0)/나가기 \n");
			printf("선택 : "); scanf("%d",&num);
			if(num == 1){
				Add(mine, &count);

				temp.key = Calculate(mine, weight, count);
				temp.index = count;
				Max_Heap_Push(temp, &index);

				printf("확인하셨으면 아무키나 눌러주세요\n");
				getche();
			} else if(num == 0){
				Display(mine, count);
			}
			
			break;

		case 2:
			printf(" 2.할일 \n");

			temp = Max_Heap_Pop(&index);

			if(temp.key == NULL)
				printf("과제가 없습니다.\n");
			else{
				printf("%8s %8d %8d %8s  ", mine[temp.index].name, mine[temp.index].day, mine[temp.index].time, mine[temp.index].subject);
				printf("\n");

				printf(" 과제를 하셨으면 진행상황을 입력해주세요, :"); scanf("%d", &mine[temp.index].progress);

				if( mine[temp.index].progress != 100 )
					Max_Heap_Push(temp, &index);

			}
			printf("확인하셨으면 아무키나 눌러주세요\n");
			getche();
			break;

		case 3:
			printf(" 3.전체출력 / 진행상황 \n");
			Display(mine, count);

			printf("확인하셨으면 아무키나 눌러주세요\n");
			getche();
			break;

		case 4:
			printf(" 4.환경설정 \n");
			printf(" 가중치를 변경합니다. \n\n");

			printf(" 현재의 가중치 -----------\n");
			Change_weight(&weight);

			system("cls");
			printf("변경된 가중치\n");
			Display_weight(&weight);

			printf("확인하셨으면 아무키나 눌러주세요\n");
			getche();
			break;

		case 5:
			printf(" 5.종료 \n");
			printf(" 변경사항을 저장합니다. \n");
			Save(FILENAME, mine, count);
			Save_weight(WEIGHTFILE, &weight);
			printf(" 저장완료 \n");
			exit(1);
			break;

		default:
			printf(" 입력오류 재입력해주세요. \n\n");
			getche();
			break;
		}
	}

}

void Set_weight(char *ff,WEIGHT *w)
{
	FILE *pf;

	pf = fopen(WEIGHTFILE, "rt");

	fscanf(pf,"%d %d %d %d\n",&w->day_weight, &w->time_weight, &w->subject_weight, &w->progress_weight);

	fclose(pf);
}

void Read(char *file, REPORT m[], int *count)
{
	FILE *pf;
	
	pf = fopen(FILENAME, "rt");

	fscanf(pf,"%s %d %d %s %d %d", m[*count].name, &m[*count].day, &m[*count].time, m[*count].subject, &m[*count].progress);
	while(!feof(pf))
	{
		(*count)++;
		fscanf(pf,"%s %d %d %s %d %d", m[*count].name, &m[*count].day, &m[*count].time, m[*count].subject, &m[*count].progress);
	}

	fclose(pf);
}

void Display_weight(WEIGHT *w)
{
	printf("마감기한에 대한 가중치 : %d\n",w->day_weight);
	printf("예상소요시간에 대한 가중치 : %d\n",w->time_weight);
	printf("과목중요도에 대한 가중치 : %d\n",w->subject_weight);
	printf("진행상황에 대한 가중치 : %d\n",w->progress_weight);
}

void Display(REPORT m[], int count)
{
	int i = 0, j;
	printf("\n");

	for(i = 0; i < count+1; i++){
		printf("%8s %8d %8d %8s  ", m[i].name, m[i].day, m[i].time, m[i].subject);
		for(j = 0; j < m[i].progress/10; j++)
			printf("★");
		for(j = 0; j < 10-m[i].progress/10; j++)
			printf("☆");
		printf("\n");
	}

	printf("\n");
}

void Change_weight(WEIGHT *w)
{
	int num;


	Display_weight(w);
	printf("\n");

	printf("마감기한에 대한 가중치를 변경합니다 :");
	scanf("%d", &w->day_weight);

	printf("예상소요시간에 대한 가중치를 변경합니다 :");
	scanf("%d", &w->time_weight);

	printf("과목중요도에 대한 가중치를 변경합니다 :");
	scanf("%d", &w->subject_weight);

	printf("진행상황에 대한 가중치를 변경합니다 :");
	scanf("%d", &w->progress_weight);
	
}

void Add(REPORT m[], int *count)
{
	(*count)++;
	if(*count >= COUNT)
	{
		printf(" 과제 overflow....\n");
		return;
	}

	printf(" 과목명 : "); scanf("%s", m[*count].name);
	printf(" 마감기한 : "); scanf("%d", &m[*count].day);
	printf(" 예상소요시간 : "); scanf("%d", &m[*count].time);
	printf(" 과목중요도 : "); scanf("%s", m[*count].subject);
	m[*count].progress = 0;

	printf("%d", *count);
}

void Save_weight(char *ff, WEIGHT *w)
{
	FILE *pf;

	pf = fopen(ff, "wt");
	fprintf(pf,"%d %d %d %d",w->day_weight, w->time_weight, w->subject_weight, w->progress_weight);
	
	fclose(pf);
}

void Save(char *ff, REPORT m[], int count)
{
	FILE *pf;

	int i;

	pf = fopen(ff, "wt");
	for( i = 0; i < count+1; ++i)
		fprintf(pf, "%10s %10d %10d %10s %10d\n", m[i].name, m[i].day, m[i].time, m[i].subject, m[i].progress);

	fclose(pf);
}

int Calculate(REPORT m[], WEIGHT w, int num)
{
	int result;

	result = m[num].day * w.day_weight;
	result = m[num].time * w.time_weight;
//	result = m[num].subject * w.subject_weight;
//	result = m[num].progress * w.progress_weight;

	return result;
}

void Max_Heap_Push(HEAP w, int *n)
{
	int i;
	
	if(HEAP_FULL(*n)) {
		printf("과제가 너무 많습니다.\n");
		exit(1);
	}

	i = ++(*n);
	while( (i != 1) && (w.key > work[i/2].key)) {
		work[i] = work[i/2];
		i /= 2;
	}

	work[i] = w;
}

HEAP Max_Heap_Pop(int *n)
{
	int parent, child;
	HEAP x, temp;
	if( HEAP_EMPTY(*n) ) {
		printf(" 과제가 없습니다.\n");
		return temp;
	}

	x = work[1];
	temp = work[(*n)--];
	parent = 1;
	child = 2;

	while(child <= *n) {
		if((child <= *n) && (work[child].key < work[child+1].key))
			child++;
		if(temp.key >= work[child].key)
			break;
		work[parent] = work[child];
		parent = child;
		child *= 2;
	}
	work[parent] = temp;
	
	return x;
}