#include<stdio.h>
#include<string.h>
#include<stdlib.h>
#define N 50
#define NB_PISTE_MAX 50

int nbCD=2;  //defini le nbr de CD dans la cdthèque

struct cd //Structure definissant les infos pour un CD
{
	char album[50];
	char artiste[50];
	int  nb_piste; //nbr de pistes max entrée dans l'album
	char titre[NB_PISTE_MAX][50];
	int dispo; //variable de presence du CD dans la cdthèque
};


void printCD(struct cd monCD)  //fct pour l'affichage des titres d'un CD
{
	int j,t;

	printf ("\n --> ");
	printf ("  %s \n", monCD.album);	 // on fait defiler d'abord tous les albums, en affichant
	printf ("  %s \n", monCD.artiste);	//les noms d'albums ensuite les artistes puis les titres d'albums
	printf ("Il y %d pistes dans cet album \n", monCD.nb_piste);	//les noms d'albums ensuite les artistes puis les titres d'albums
      						//avec choix du nbr de titres a afficher
	printf ("\n Combien de titres à afficher? \n");
	scanf ("%d", &t);

	if (monCD.nb_piste > t)
	{
		for (j=0; j<t; j++)
		{
			printf ("   %s \n", monCD.titre[j]);
			printf ("............... \n");
		}
	}
	else
	{
		for (j=0; j<monCD.nb_piste; j++)
		{
			printf ("   %s \n", monCD.titre[j]);
			printf ("............... \n");
		}
	}

	if (monCD.dispo==0)
	{
	    printf ("\n >>Le CD est emprunté \n", monCD.dispo);
	}
	if (monCD.dispo==1)
	{
	    printf ("\n >>Le CD est disponible \n", monCD.dispo);
    }
}

void printCD_suppr (struct cd monCD[], int num_cd)
{
    int suppr;
    int j;
    j=0;

    printf ("\n --> ");
	printf ("  %s \n", monCD[num_cd].album);	 // on fait defiler d'abord tous les albums, en affichant
	printf ("  %s \n", monCD[num_cd].artiste);	//les noms d'albums ensuite les artistes puis les titres d'albums
	printf ("Il y %d pistes dans cet album \n", monCD[num_cd].nb_piste);	//les noms d'albums ensuite les artistes puis les titres d'albums
      						//avec choix du nbr de titres a afficher
    printf ("\n Etes vous sur de vouloir supprimer le CD? \n");
    printf("Tapez 0 pour annuler la supression. \nTapez 1 pour confirmer la supression \n");
    scanf ("%d", &suppr);

    if (suppr==1)
    {
        for (j=num_cd; j<nbCD-1; j++)
        {
            monCD[j]=monCD[j+1];
        }

        nbCD=nbCD-1;
        printf ("le CD est supprimé. \n");
        printf ("............... \n");
    }

    if (suppr==0)
    {
        printf ("Supression annulé! \n");
    }
}

void printCD2 (struct cd monCD[], int i)
{
    int e;

	printf ("\n --> ");
	printf ("  %s \n", monCD[i].album);	 // on fait defiler d'abord tous les albums, en affichant
	printf ("  %s \n", monCD[i].artiste);	//les noms d'albums ensuite les artistes puis les titres d'albums
	printf ("Il y %d pistes dans cet album \n", monCD[i].nb_piste);	//les noms d'albums ensuite les artistes puis les titres d'albums
      						//avec choix du nbr de titres a afficher
    if (monCD[i].dispo==0)
	{
	    printf ("\n >>Le CD est emprunté \n", monCD[i].dispo);
	}
	if (monCD[i].dispo==1)
	{
	    printf ("\n >>Le CD est disponible \n", monCD[i].dispo);

	    printf ("Désirez vous l'emprunter? \n Tapez 0 pour ne pas l'emprunter. \n Tapez 1 pour emprunter le CD. \n%");
        scanf ("%d",&e);

        if (e==1)
        {
            monCD[i].dispo=0;
            printf ("\n Le CD est maintenant emprunté \n");  /*!!!! PB !!!! La valeur de dispo ne change pas réellement*/
                                                        /*!!!  Au retour dans le menu, ca n'a pas changé !!!!!*/
        }
        if (e==0)
        {
            printf ("%d", e);
        }
    }
}

void print_tab(struct cd tab[])  //lance la procedure d'affichage de toutes la structure, soit ts les cd
{
	int i;

	for (i=0; i<nbCD; i++)
	{
		printCD(tab[i]);
		printf ("............... \n");
	}
}


void print_tab_test_A(struct cd tab[],char c)  //affiche les cd dont le nom d'album correspond au caract donné
{
	int i;
	int h;
	h=0;

	for (i=0; i<nbCD; i++)
	{
		/*printf("%d %c\n",i,tab[i].album[0]);*/

		if (c==tab[i].album[0])
		{
			printCD(tab[i]);
			h=1;
			printf ("............... \n");
		}
	}

	if (h==0)
	{
		printf ("Pas d'albums commencant par %c \n \n", c);
		printf ("............... \n");
	}
}


void print_tab_test_B(struct cd tab[],char*r, int taille)  //affiche les cd dont le début du nom d'album correspond a la chaine donné
{
	int i;
	int h;
	h=0;

	for (i=0; i<nbCD; i++)
	{
		/*printf("%d %c\n",i,tab[i].album[0]);*/

		if (strncmp(tab[i].album, r, taille)==0)
		{
		    h=1;
			printCD2(tab, i);
			printf ("............... \n");
		}
	}

    if (h==0)
    {
        printf ("Pas d'albums commencant par %s \n \n", r);
        printf ("............... \n");
    }
}


void print_tab_test_C(struct cd tab[], char*r, int taille)  //affiche les cd dont le début du nom d'album correspond a la chaine donné
{
	int i;
	int h;
	h=0;

	for (i=0; i<nbCD; i++)
	{
		/*printf("%d %c\n",i,tab[i].album[0]);*/

		if (strncmp(tab[i].album, r, taille)==0)
		{
		    h=1;
			printCD(tab[i]);
			printf ("............... \n");
		}
	}

    if (h==0)
    {
        printf ("Pas d'albums commencant par %s \n \n", r);
        printf ("............... \n");
    }
}

void print_tab_test_D(struct cd tab[],char*r, int taille)  //affiche les cd dont le début du nom d'album correspond a la chaine donné
{
	int i;
	int suppr;
	int h;
	h=0;

	for (i=0; i<nbCD; i++)
	{
		/*printf("%d %c\n",i,tab[i].album[0]);*/

		if (strncmp(tab[i].album, r, taille)==0)
		{
		    h=1;
            printCD_suppr(tab, i);
			printf ("............... \n");
		}
	}

    if (h==0)
    {
        printf ("Pas d'albums commencant par %s \n \n", r);
        printf ("............... \n");
    }
}

void print_tab_test2_A(struct cd tab[],char c)  //affiche les cd dont le 1er carct du nom d'artiste correspond au caract donné
{
	int i;
	int h;
	h=0;

	for (i=0; i<nbCD; i++)
	{
		/*printf("%d %c\n",i,tab[i].artiste[0]);*/

		if ( c==tab[i].artiste[0] )
		{
			printCD(tab[i]);
			h=1;
			printf ("............... \n");
		}
	}

	if (h==0)
	{
		printf ("Pas d'artistes commencant par %c \n \n", c);
		printf ("............... \n");
	}
}

void print_tab_test2_B(struct cd tab[],char*r, int taille)  //affiche les cd dont le 1er carct du nom d'artiste correspond au caract donné
{
	int i;
	int h;
	h=0;

	for (i=0; i<nbCD; i++)
	{
		/*printf("%d %c\n",i,tab[i].artiste[0]);*/

		if (strncmp(tab[i].artiste, r, taille)==0)
		{
            h=1;
			printCD2(tab, i);
			printf ("............... \n");
		}
	}

	if (h==0)
	{
		printf ("Pas d'artistes commencant par %s \n \n", r);
		printf ("............... \n");
	}
}


void print_tab_test2_C(struct cd tab[],char*r, int taille)  //affiche les cd dont le 1er carct du nom d'artiste correspond au caract donné
{
	int i;
	int h;
	h=0;

	for (i=0; i<nbCD; i++)
	{
		/*printf("%d %c\n",i,tab[i].artiste[0]);*/

		if (strncmp(tab[i].artiste, r, taille)==0)
		{
            h=1;
			printCD(tab[i]);
			printf ("............... \n");
		}
	}

	if (h==0)
	{
		printf ("Pas d'artistes commencant par %s \n \n", r);
		printf ("............... \n");
	}
}

void print_tab_test2_D(struct cd tab[],char*r, int taille)  //affiche les cd dont le 1er carct du nom d'artiste correspond au caract donné
{
	int i;
	int h;
	h=0;

	for (i=0; i<nbCD; i++)
	{
		/*printf("%d %c\n",i,tab[i].artiste[0]);*/

		if (strncmp(tab[i].artiste, r, taille)==0)
		{
            h=1;
			printCD_suppr(tab, i);
			printf ("............... \n");
		}
	}

	if (h==0)
	{
		printf ("Pas d'artistes commencant par %s \n \n", r);
		printf ("............... \n");
	}
}

void ajout (struct cd tab[])
{
    char album[50];
    char artiste[50];
    int p;

    printf ("Entrez un nom d'album \n");
    scanf ("%s", &album);
    strcpy(tab[nbCD].album,album);
    printf("Entrez le nom de l'artiste correspondant: \n");
    scanf("%s", &artiste);
    strcpy(tab[nbCD].artiste,artiste);
    printf ("Combien y'at-il de pistes dans l'album? \n");
    scanf("%d", &p);
    tab[nbCD].nb_piste=p;
    nbCD=nbCD+1;
}

main()
{
	char c;
	char r[50];
	int k,a,taille;
	struct cd tab_cd[nbCD];
    int i,j;

    FILE*unCD;

    printf ("ouverture du fichier \n");
    unCD = fopen ("CD.txt", "r");

    if (unCD != NULL)
    {
        char infos_cd[50];

        for (i=0; i<nbCD-1; i++)
        {
            char nb_piste[10];
            char dispo[10];

            fgets (infos_cd, sizeof infos_cd, unCD);
            fread (tab_cd[i].album, 50, *infos_cd, unCD );
            fread (tab_cd[i].artiste, 50, *infos_cd, unCD );
            fread (nb_piste, 50, *infos_cd, unCD );
            tab_cd[i].nb_piste=atoi(nb_piste);
            for (j=0; j<tab_cd[i].nb_piste; j++)
            {
                fread (tab_cd[i].titre[j], 50, *infos_cd, unCD );
            }
            fread (dispo, 50, *infos_cd, unCD );
            tab_cd[i].dispo=atoi(dispo);
        }
        fclose (unCD);
    }
    else
    {
        printf ("Erreur d'ouverture du fichier \n");
    }


	do  //boucle de menu
	{
		printf ("\n *MENU* \n Que voulez vous faire? \n \n");
		printf ("Afficher tous les cds, tapez 1. \n");
		printf ("Effectuer une recherche d'artiste ou d'albums à l'aide de la 1ère lettre, tapez 2. \n");
		printf ("Effectuer une recherche d'artiste ou d'albums à l'aide du début du nom, tapez 3. \n");
		printf ("Effectuer un emprunt, tapez 4. \n");
		printf ("Supprimer un CD, tapez 5. \n");
		printf ("Ajouter un CD, tapez 6. \n");
		printf ("quitter la cdthèque, tapez 0. \n");
		scanf ("%d",&a);

		if (a==1)
		{
			printf ("\n Tous les albums \n");
			print_tab(tab_cd);

		}
		if (a==2)
		{
			printf ("\n Recherche par: \n Album, tapez 0 \n Artiste, tapez 1 \n");
			scanf ("%d",&k);

			if (k==0)
			{
				printf ("\n entrez la 1ere lettre de l'album recherché :\n (attention: tous les albums commencent par une majuscule!!) \n");
				scanf (" %c", &c);

				print_tab_test_A (tab_cd, c);
			}
			if (k==1)
			{
				printf ("\n entrez la 1ere lettre de l'artiste recherché :\n (attention tous les noms d'artistes commencent par une majuscule!!) \n");
				scanf (" %c", &c);

				print_tab_test2_A (tab_cd, c);
			}
		}
		if (a==3)
		{
		    printf ("\n Recherche par: \n Album, tapez 0 \n Artiste, tapez 1 \n");
			scanf ("%d",&k);

			if (k==0)
			{
				printf ("\n entrez le début du nom de l'album recherché :\n (attention: tous les albums commencent par une majuscule!!) \n");
				scanf (" %s", &r);
				taille=strlen(r);
				print_tab_test_C (tab_cd, r, taille);
			}
			if (k==1)
			{
				printf ("\n entrez le début du nom de l'artiste recherché :\n (attention tous les noms d'artistes commencent par une majuscule!!) \n");
				scanf (" %s", &r);
				taille=strlen(r);
				print_tab_test2_C (tab_cd, r, taille);
			}
		}

		if (a==4)
		{
		    printf ("\n Recherche le CD à emprunté par: \n Album, tapez 0 \n Artiste, tapez 1 \n");
			scanf ("%d",&k);

			if (k==0)
			{
				printf ("\n entrez le début du nom de l'album recherché :\n (attention: tous les albums commencent par une majuscule!!) \n");
				scanf (" %s", &r);
				taille=strlen(r);
				print_tab_test_B (tab_cd, r, taille);
			}
            if (k==1)
            {
				printf ("\n entrez le début du nom de l'artiste recherché :\n (attention tous les noms d'artistes commencent par une majuscule!!) \n");
				scanf (" %s", &r);
				taille=strlen(r);
				print_tab_test2_B (tab_cd, r, taille);
			}
		}

		if (a==5)
		{
		    printf ("\n Recherche le CD à supprimer par: \n Album, tapez 0 \n Artiste, tapez 1 \n");
			scanf ("%d",&k);

			if (k==0)
			{
				printf ("\n entrez le début du nom de l'album recherché :\n (attention: tous les albums commencent par une majuscule!!) \n");
				scanf (" %s", &r);
				taille=strlen(r);
				print_tab_test_D (tab_cd, r, taille);
			}
			if (k==1)
			{
				printf ("\n entrez le début du nom de l'artiste recherché :\n (attention tous les noms d'artistes commencent par une majuscule!!) \n");
				scanf (" %s", &r);
				taille=strlen(r);
				print_tab_test2_D (tab_cd, r, taille);
			}
		}

		if (a==6)
		{
		    printf ("\n Pour entrez un nouveau CD suivez les instructions. \n");
		    ajout (tab_cd);
		}
	}
	while (a!=0);
}