//By Diego
//Si lo usan, porfa no copiar textual, gracias :D

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

typedef struct{
   char tema[20+1];
   char categoria[30+1];
   char album[30+1];
   char interprete[30+1];
   int cd;
}cancion;

int OPCION(void){

   int choice;
   do{
      printf("| BIENVENIDO AL SISTEMA DE         |\n| ALMACENAMIENTO DE MUSICA PIRATA  |");
      printf("\n|__________________________________|");
      printf("\n\nElija una opcion:\n\n1.Almacenar Canciones\n2.Buscar Canciones\n3.Almacena Categorias\n4.Salir\n\nOPCION: ");
      scanf("%d",&choice);
   if(choice<1||choice>4){
      printf("\n\nOpcion Incorrecta, Intente denuevo\n");
      system("pause");
      system("cls");
    }
  }while(choice<1||choice>4);
      printf("%d",choice);
      return choice;
}

int main(){

   int N,i,a,b,choice;
   char opcion[2+1],op[2+1];
   cancion canciones;

   do{
      switch(OPCION()){

         case 1:{
               FILE *listado;
               listado=fopen("Listado.dat","w+");
               printf("\n\nNumero de canciones a ingresar: ");
               scanf("%d",&N);

               if(listado == NULL){
                  printf("Archivo Erroneo");
                  return 0;
               }

                for(i=1;i<=N;i++){
                  printf("\nTEMA%d: ",i);
                  scanf("%s",canciones.tema);
                  printf("\nCATEGORIA (rock/pop/clasicos): ");
                  scanf("%s",canciones.categoria);
                  printf("\nALBUM: ");
                  scanf("%s",canciones.album);
                  printf("\nINTERPRETE: ");
                  scanf("%s",canciones.interprete);
                  printf("\nNumero CD: ");
                  scanf("%d",&canciones.cd);
                  fwrite(&canciones, sizeof(cancion), 1, listado);
                }
                fclose(listado);
         }break;

         case 2:{

               FILE *listado_lectura;
               listado_lectura=fopen("Listado.dat","rb+");
               rewind(listado_lectura);

               if(listado_lectura == NULL){
                  printf("Archivo Erroneo");
                  return 0;}

               char tema_aux[20+1];
               do{
                  printf("\n\nIngrese cancion a buscar: ");
                  scanf("%s",tema_aux);
                  while(fread(&canciones, sizeof(cancion), 1, listado_lectura)){

                     if(!strcmp(tema_aux,canciones.tema))
                        printf("Buscar en el cd: %d", canciones.cd);
                     else
                        printf("\nCancion no Encontrada");
                  }

               rewind(listado_lectura);
               printf("\n\nDesea buscar de nuevo (SI/NO): ");
               scanf("%s",opcion);
               a=!strcmp(opcion,"si");
               b=!strcmp(opcion,"SI");

               }while(a||b);
               fclose(listado_lectura);
         }break;

         case 3:{

               FILE *pop,*rock,*clasicos,*listado;
               listado=fopen("Listado.dat","rb+");
               pop=fopen("pop.txt","w+");
               rock=fopen("rock.txt","w+");
               clasicos=fopen("clasicos.txt","w+");

               while(fread(&canciones,sizeof(cancion),1,listado)){
                 if(!strcmp(canciones.categoria,"pop"))
                     fwrite(&canciones,sizeof(cancion),1,pop);
                 else if(!strcmp(canciones.categoria,"rock"))
                     fwrite(&canciones,sizeof(cancion),1,rock);
                 else if(!strcmp(canciones.categoria,"clasicos"))
                     fwrite(&canciones,sizeof(cancion),1,clasicos);
               }

               fclose(listado);

            }break;

            case 4:{
               printf("\n\nADIOS");
               return 0;
               }break;

   }
   printf("\nDesea Seguir usando el programa (SI/NO): ");
   scanf("%s",op);
   system("cls");
   }while(!strcmp(op,"si")||!strcmp(op,"SI"));

   printf("\nADIOS");
   return 0;
}