#include <stdio.h>

struct Persoon {
	int sleutel;
	int leeg;
	char naam[80];
};

void voegtoe(void) {
	FILE* fp;
	struct Persoon p;
	int gevonden=0;
	fp=fopen("persoon.geg", "rb+");
	if (fp==NULL) {
		char antw;
		do {
			printf("Kan persoon.geg niet vinden. Nieuw bestand openen? (J/N): ");
			fflush(stdin);
		} while (scanf("%c", &antw)!=1 || antw!='J' && antw!='j' && antw!='N' && antw!='n');
		if (antw=='J' || antw=='j') {
			fp=fopen("persoon.geg", "wb+");
			if (fp==NULL) {
				printf("Error: Kan persoon.geg niet aanmaken.\n");
			}
		}
	}
	if (fp!=NULL) {
		p.sleutel=-1;
		while (gevonden==0 && fread(&p, sizeof p, 1, fp)==1) {
			if (p.leeg==1) {
				gevonden=1;
			}
		}
		if (gevonden==1) {
			fseek(fp, -1 * sizeof p, SEEK_CUR);
		}
		else {
			++p.sleutel;
		}
		p.leeg=0;
		do {
			printf("Geef naam voor persoon %d:\n", p.sleutel);
			fflush(stdin);
		} while(scanf("%79[ a-zA-Z]", p.naam)!=1);
		fwrite(&p, sizeof p, 1, fp);
		fclose(fp);
	}
}

void verwijder(void) {
	FILE* fp;
	fp=fopen("persoon.geg", "rb+");
	if (fp==NULL) {
		printf("Error: de file persoon.geg kan niet geopend worden.\n");
	}
	else {
		int sleutel;
		struct Persoon p;
		do {
			printf("Geef nummer: ");
			fflush(stdin);
		}
		while(scanf("%d", &sleutel)!=1);
		fseek(fp, sleutel * sizeof p, SEEK_SET);
		if (fread(&p, sizeof p, 1, fp)!=1) {
			printf("Error: de persoon kan niet gevonden worden.\n");
		}
		else {
			if (p.leeg==1) {
				printf("Error: de persoon kan niet gevonden worden.\n");
			}
			else {
				p.leeg=1;
				fseek(fp, -1 * sizeof p, SEEK_CUR);
				if (fwrite(&p, sizeof p, 1, fp)!=1) {
					printf("Error: de persoon kan niet verwijderd worden.\n");
				}
			}
		}
		fclose(fp);
	}
}

void zoek(void) {
	FILE* fp;
	fp=fopen("persoon.geg", "rb");
	if (fp==NULL) {
		printf("Error: de file persoon.geg kan niet geopend worden.\n");
	}
	else {
		int sleutel;
		struct Persoon p;
		do {
			printf("Geef nummer: ");
			fflush(stdin);
		}
		while(scanf("%d", &sleutel)!=1);
		fseek(fp, sleutel * sizeof p, SEEK_SET);
		if (fread(&p, sizeof p, 1, fp)!=1) {
			printf("Error: de persoon kan niet gevonden worden.\n");
		}
		else {
			if (p.leeg==1) {
				printf("Error: de persoon kan niet gevonden worden.\n");
			}
			else {
				printf("%6d %s\n", p.sleutel, p.naam);
			}
		}
		fclose(fp);
	}
}

void drukaf(void) {
	FILE* fp;
	fp=fopen("persoon.geg", "rb");
	if (fp==NULL) {
		printf("Error: de file persoon.geg kan niet geopend worden.\n");
	}
	else {
		struct Persoon p;
		while (fread(&p, sizeof p, 1, fp)==1) {
			if (p.leeg==0) {
				printf("%4d %s\n", p.sleutel, p.naam);
			}
		}
		fclose(fp);
	}
}

void main() {
	int antw;
	do {
		printf("0. Stoppen.\n"
				 "1. Afdrukken.\n"
				 "2. Toevoegen.\n"
				 "3. Verwijderen.\n"
				 "4. Zoek op nummer.\n"
				 "\n"
				 "Geef keuze: ");
		fflush(stdin);
		if (scanf("%d", &antw)!=1) {
			printf("Error: invoer is geen getal.\n");
		}
		else {
			switch (antw) {
				case 0:
					break;
				case 1:
					drukaf(); break;
				case 2:
					voegtoe(); break;
				case 3:
					verwijder(); break;
				case 4:
					zoek(); break;
				default:
					printf("Error: verkeerde invoer.\n");
			}
		}
	}
	while (antw!=0);
}