#include <stdio.h>
#define TAM 20

struct dato
    {
      char n_vino[30];
      int agno;
    };
    
FILE *ap; // Apuntador a archivo

/* Muestra menú y lee la opción */
char menu()
{
 printf("1. Intruduce vino\n");
 printf("2. Mostrar vinos\n");
 printf("3. Cosecha mas antigua\n");
 printf("4. Salir\n");
 printf("\n Elige opcion...");
 return getchar();
}

  /* Da de alta un nuevo elemento */
/* Paso de parámetros por referencia */
void altas(int *k, struct dato *vig)
{
 if (*k<TAM)
   {
    printf("\nNombre del vino: ");
    scanf("%[^\n]s",vig[*k].n_vino);
    printf("\nDa el año: ");
    scanf("%d",&vig[*k].agno);
    (*k)++;
   }
 else
   printf("\n Viñedo lleno \n");
 getchar();
}

/* Muestra los vinos */
void muestra(int i, struct dato *vignedo)
{
 int j;
 
 for (j=0; j<i; j++)
    {
	 printf("\nVino: %s",vignedo[j].n_vino);
	 printf("\nAño: %i \n",vignedo[j].agno);
    }				
}

void  buscar_viejo(int i, struct dato *vignedo)
{
 int j, viejo=0;
 
 for (j=1; j<i; j++)
    if (vignedo[viejo].agno>vignedo[j].agno)
	  viejo=j;
 printf("\nVino: %s \n",vignedo[viejo].n_vino);
}

/* Programa Principal */
main()
{
  struct dato vignedo1[TAM],vignedo2[TAM];
  char opc,nom_arch[20];
  int i=0,j;
  
  printf("\n Da el nombre del archivo: ");
  scanf("%s",nom_arch);
  getchar();
  //ap=fopen(nom_arch,"w");
  if ((ap=fopen(nom_arch,"w"))!=NULL)
   { 
    do {
       opc=menu();
       getchar();
       switch (opc)
           {
            case '1': altas(&i, vignedo1);
                      fwrite(&vignedo1[i-1],sizeof(vignedo1),1,ap);
		 			  break;
	        case '2': muestra(i, vignedo1);
        			  break;
	        case '3': buscar_viejo(i, vignedo1);
  					  break;
		    case '4': printf("\n Salir ....\n");
				      break;
	        default : printf("\n Error!!! \n");
		   }
    }while (opc!='4');
    fclose(ap);
   } 
  else
    printf("\n Error en el archivo");
  if ((ap=fopen(nom_arch,"r"))!=NULL)
    {
      for (j=0; j<i; j++)
        fread(&vignedo2[j],sizeof(vignedo2),1,ap);
     for (j=0; j<i; j++)
        {
         printf("\n%d. vino: %s  agno: %i",j,vignedo2[j].n_vino,vignedo2[j].agno);
        } 
     fclose(ap);
    }
  else
    printf("\n Error en el archivo");

  getchar();
  getchar();
}