#include <stdio.h> 
#include <string.h>
#define MAX 5
typedef struct {
	int nameCardID;
	char personName[20];
	char companyName[20];
} NameCard;

void listNameCards(NameCard* nc, int size);
void addNameCard(NameCard* nc, int *size);
void removeNameCard(NameCard* nc, int *size);
void getNameCard(NameCard* nc, int size);

int main() {
	int size = 0, terminateProg = 0;
	NameCard nc[MAX];
	printf("NTU NAME CARD HOLDER MANAGEMENT PROGRAM:\n" \
		"1: listNameCards()\n" \
		"2: addNameCard()\n" \
		"3: removeNameCard()\n" \
		"4: getNameCard()\n" \
		"5: quit\n");
	while (!terminateProg) {
		printf("Enter your choice:\n");

		int option = 0;
		scanf("%d", &option);
		switch (option) {
			case 1:
				listNameCards(nc, size);
				break;
			case 2:
				addNameCard(nc, &size);
				break;
			case 3:
				removeNameCard(nc, &size);
				break;
			case 4:
				getNameCard(nc, size);
				break;
			case 5:
				terminateProg = 1;
				break;
		}
	}
	return 0;
}

void listNameCards(NameCard *nc, int size) {
	printf("listNameCards():\n");
	if (size > 0) {
		for (int i = 0; i < size; i++) {
			printf("nameCardID: %d\n", nc[i].nameCardID);
			printf("personName: %s\n", nc[i].personName);
			printf("companyName: %s\n", nc[i].companyName);
		}
	}
	else {
		printf("The name card holder is empty\n");
	}
}

void addNameCard(NameCard* nc, int *size) {
	printf("addNameCard():\n");

		int nameCardID;
		char pName[20], cName[20];
		printf("Enter nameCardID:\n");
		scanf("%d", &nameCardID);

		printf("Enter personName:\n");
		scanf("\n");
		fgets(pName, sizeof(pName), stdin);
		pName[strlen(pName) - 1] = '\0';

		printf("Enter companyName:\n");
		scanf("\n");
		fgets(cName, sizeof(cName), stdin);
		cName[strlen(cName) - 1] = '\0';

		if (*size >= MAX) {
			printf("The name card holder is full\n");
		}
		else {

			int duplicateFound = 0;
			int positionToInsert = 0;
			for (int i = 0; i < *size; i++) {
				if (nc[i].nameCardID == nameCardID) {
					duplicateFound = 1;
					break;
				}

				if (nc[i].nameCardID < nameCardID) {
					positionToInsert += 1;
				}
			}

			if (duplicateFound) {
				printf("The nameCardID has already existed\n");
			}
			else {		

				int shift = *size - positionToInsert;
				NameCard replace, current = nc[positionToInsert];
				for (int i = 1; i <= shift; i++) {
					replace = nc[positionToInsert+i];
					nc[positionToInsert+i] = current;
					current = replace;
				}
				
				nc[positionToInsert].nameCardID = nameCardID;
				strcpy(nc[positionToInsert].personName, pName);
				strcpy(nc[positionToInsert].companyName, cName);
				*size += 1;
				printf("The name card has been added successfully\n");
			}

		}
}

void removeNameCard(NameCard* nc, int *size) {
	printf("removeNameCard():\n");
	printf("Enter personName:\n");
	char name[20];
	scanf("\n");
	fgets(name, sizeof(name), stdin);
	name[strcspn(name, "\n")] = '\0';
	if (*size <= 0) {
		printf("The name card holder is empty\n");
	}
	else {
		int found = 0;
		int position = 0;
		for (int i = 0; i < *size; i++) {
			if (strcasecmp(nc[i].personName, name) == 0) {
				found = 1;
				position = i;
				break;
			}
		}

		if (found) {
			int shift = *size - position;
			NameCard ncToBeRemoved = nc[position];
			for (int i = 0; i < shift; i++) {
				nc[position+i] = nc[position+i+1];
			}
			*size -= 1;
			printf("The name card is removed\n");
			printf("nameCardID: %d\n", ncToBeRemoved.nameCardID);
			printf("personName: %s\n", ncToBeRemoved.personName);
			printf("companyName: %s\n", ncToBeRemoved.companyName);
		} else {
			printf("The target person name is not in the name card holder\n");
		}
	}
}

void getNameCard(NameCard* nc, int size) {
	printf("getNameCard():\n");
	printf("Enter personName:\n");
	char name[20];
	scanf("\n");
	fgets(name, sizeof(name), stdin);
	name[strcspn(name, "\n")] = '\0';
	int found = 0;
	for (int i = 0; i < size; i++) {
		if (strcasecmp(nc[i].personName, name) == 0) {
			found = 1;
			printf("The target person name is found\n");
			printf("nameCardID: %d\n", nc[i].nameCardID);
			printf("personName: %s\n", nc[i].personName);
			printf("companyName: %s\n", nc[i].companyName);
			break;
		}
	}

	if (!found) {
		printf("The target person name is not found\n");
	}

}