#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
#define LEE_CHAR(c)\
		c=getchar();\
		while((c=='\n') || (c==' ') || (c=='\t'))\
			c=getchar();
 
#define LEE_CAD(c,n) { int i=0; \
                     c[i]=getchar();\
		     while((c[i]=='\n') || (c[i]=='\t')) c[i]=getchar();\
		     while ((c[i]!='\n') && (i < (n-1))){ \
		        i++;\
			c[i]=getchar(); }\
		     c[i]='\0'; }
 
#define TAM_NOMBRE 100
 
 
struct cliente{
	char nombre[TAM_NOMBRE];
        double deuda;
};
int main(){
  void alta();
  void mostrar_todo();
  void deuda_mayor(); 
  char op;
  FILE * pf;
 
  if((pf = fopen("datos.dat", "wb")) == NULL) {/*"rb+"*/
           /* Si no existe, ejecuta el módulo que lo cree */
	   alta();
 
      if((pf = fopen("clientes.dat", "rb")) == NULL) {
		perror("Fichero no accesible");
                exit(1);
      }
  }
 
  do{
		printf("MENÚ\n----\n");
 
		printf("1). Dar de alta un cliente.\n");
                printf("2). Mostrar todo.\n");
                printf("3). Deuda mayor.\n"); 
                printf("4). salir y eliminar.\n"); 
                printf("0). Salir\n\nOpción(0-4): ");
 
                do{
			LEE_CHAR(op);
		}while( (op < '0') || (op >'4') );
 
		switch(op){
                    case '1': alta(pf); break;
                    case '2': mostrar_todo(pf); break;
                    case '3': deuda_mayor(pf); break;
                    case '4':{ fclose(pf); pf=NULL; remove("clientes.dat"); op= '0'; 
					break;} 
		}
  }while(op != '0');
 
	exit(0);
}//main()
//////////////////////////////////////////////////////////           
void alta(FILE *pf){
      struct cliente cli;
      int fin;
 
  if((pf = fopen("clientes.dat", "ab")) == NULL) {
		printf("Error al crear el fitxer\n");
	}
	else {
		fin = 1; /* Termina con fin == 0 */
 
 
		while (	fin ) {
			printf ("Nombre del cliente: ");
			LEE_CAD(cli.nombre,TAM_NOMBRE);
                        printf ("Deuda: ");
                        scanf("%lf",&cli.deuda);
			fwrite(&cli,1,sizeof cli,pf);
			printf("Otro (0--> NO, 1--> SI)? ");
			scanf("%d",&fin); 
		}
		if (fclose(pf))
			printf("Error al guardar el fichero\n");
	}
}
/////////////////////////////////////////////
void mostrar_todo(FILE *pf){
       struct cliente cli;
 
       if((pf = fopen("clientes.dat", "rb")) == NULL) {
	printf("Error al abrir el fichero clientes.dat\n");
       }
       else{
 
	fread(&cli, 1, sizeof cli, pf); 
        while (!feof(pf)){
		printf("%s  %.2lf\n", cli.nombre, cli.deuda);
		fread(&cli,1, sizeof cli,pf);
        }
        fclose(pf);
  }
}
//////////////////////////////////
void deuda_mayor(FILE * pf){
        struct cliente max,cli;
 
        if((pf = fopen("clientes.dat", "rb")) == NULL) {
	printf("Error al abrir el fichero clientes.dat\n");
        }
        else{
             fread(&max,1,sizeof cli,pf);/*supongo que el primero es el mayor*/
             while(!feof(pf)){
                if(cli.deuda > max.deuda)/*si es mayor que el actual lo cambia*/
                   max=cli;
                fread(&cli,1,sizeof cli,pf);
             }
        }
        fclose(pf);
        printf("%s %.2lf\n",cli.nombre,cli.deuda);
}