#include <stdio.h>
#include <stdlib.h>
#include <string.h>

typedef struct Bibloteca {
	char *nume, *titlu, *domeniu;
	unsigned short  an_ap, nr_pag;
	struct Bibloteca *urm;
}B;

B *Addbook(B *, char *, char *, unsigned short, unsigned short, char *);
void Afisare(B *);
void Search(B *, char *);

int main() {
	unsigned short an_ap, nr_pag, opt;
	char titlu[26] , autor[26], domeniu[26];
    B *prim = NULL;

	do {
		printf("0. Iesire\n");
		printf("1. Adaugare carte in bibloteca\n");
		printf("2. Afisare lista\n");
		printf("3. Cautarea unei carti in bibloteca\n");
		printf("Optiunea dumeanoastra este: "); scanf("%hu", &opt);
		getchar();
		switch (opt)
		{
		case 0: exit(0); break;
		case 1:
			system("cls");
			printf("Titlu carte: "); fgets(titlu, 25, stdin);
			printf("Nume autor: "); fgets(autor, 25, stdin);
			printf("Anul aparitei: "); scanf("%hu", &an_ap);
			printf("Numarul de pagini: "); scanf("%hu", &nr_pag);
			getchar();
			printf("Domeniul: "); fgets(domeniu, 25, stdin);
			system("cls");
			prim = Addbook(prim, titlu, autor, an_ap, nr_pag, domeniu);
			break;
		case 2:
			system("cls");
			if (!prim)printf("\nNu exista carti in biloteca! \n\n");
			else Afisare(prim);
			break;
		case 3:
			system("cls");
			if (!prim)printf("\nNu exista carti in biloteca! \n\n");
			else {
				printf("Introduceti titlul carti pe care doriti sa o cautati: "); fgets(titlu, 25, stdin);
				Search(prim, titlu);
			}
			break;
		default:system("cls");
			printf("A-ti introdus o optiunea invalida !!! \n");
			break;
		}
	} while (1);

}

B *Addbook(B *prim, char *title, char *author, unsigned short  year_ap, unsigned short  pageNumber, char *domain) {
	B * q, *p;
	p = (B *)malloc(sizeof(B));
	p->nume = (char *)malloc(strlen(author) + 1);
	strcpy(p->nume, author);
	p->titlu = (char *)malloc(strlen(title) + 1);
    strcpy(p->titlu, title);
	p->an_ap = year_ap;
	p->nr_pag = pageNumber;
	p->domeniu = (char *)malloc(sizeof(strlen(domain) + 1));
	strcpy(p->domeniu, domain);
	p->urm = NULL;
	if (p == NULL || p->nume == NULL || p->titlu == NULL || p->domeniu == NULL) {
		printf("Eroare la alocarea memoriei !!!");
		exit(0);

	}

	if (prim == NULL) return p;

	if (strcmp(p->titlu, title ) > 0) {
		p->urm = prim;
		return p;
	}

	q = prim;
	while (q->urm != NULL && strcmp(q->urm->titlu, title) < 0) q = q->urm;
	p->urm = q->urm;
	q->urm = p;
	return prim;
}

void Afisare(B *prim) {
	system("cls");
	B *q = prim;
		printf("Cartile din bibloteca sunt :\n");
	while (q)
	{
		printf("\nTitlu: %s",q->titlu);
		printf("Autor: %s", q->nume);
		printf("An aparitie: %hu \n", q->an_ap);
		printf("Numar de pagini: %hu \n", q->nr_pag);
		printf("Domeniu: %s\n\n", q->domeniu);
		q = q->urm;
	}

}

void Search(B * prim, char *title) {
	B *q = prim;
	system("cls");

	unsigned short ok = 1;
	while (ok && q) {
		if (strcmp(q->titlu, title) == 0) {
			printf("Cartea a fost gasita:\n");
			printf("\nTitlu: %s", q->titlu);
			printf("Autor: %s", q->nume);
			printf("An aparitie: %hu \n", q->an_ap);
			printf("Numar de pagini: %hu \n", q->nr_pag);
			printf("Domeniu: %s\n\n", q->domeniu);
			ok = 0;
		}
		q = q->urm;
	}
	if (ok ) printf("Cartea nu se afla in bibloteca\n");
}