typedef struct nodo_pacientes{
         int dni; 
         int fecha; 
         int edad;
         int medico;
         struct nodo_pacientes *next;
        }pacientes;
 

int list_fic(pacientes **primero){
 FILE *fp;
 pacientes *aux;
 
 int b = 0;
 fp = fopen("pacientes.txt","wb");
 aux = *primero;
 
 while(aux != NULL){
  b = fwrite(&aux,sizeof(pacientes),1,fp);
  aux = aux->next;
 }
 
 fclose (fp);
 printf("\n\n %d",b);
}

int leer_fic(pacientes *first){
 FILE *fp;
 pacientes *aux;
 
 fp = fopen("pacientes.dat","r+b");
 
 fread(&first,sizeof(pacientes),1,fp);
 fclose (fp);
 
 aux = first;
 printf("%d",aux->dni);
}

#include <stdlib.h>
#include <stdio.h>
 
typedef struct _nodo {
   int dni;
   int fecha;
   struct _nodo *siguiente;
} tipoNodo;
 
typedef tipoNodo *pNodo;
typedef tipoNodo *Lista;
 
/* Funciones con listas: */
void Insertar(Lista *l, int d, int f);
void Borrar(Lista *l, int d);
 
int ListaVacia(Lista l);
 
void BorrarLista(Lista *);
void MostrarLista(Lista l);
 
void list_fic(Lista L);
void leer_fic();
 
int main()
{
   Lista lista = NULL;
   pNodo p;
 
   Insertar(&lista, 1111, 11 );
   Insertar(&lista, 2222, 22);
 
 
   MostrarLista(lista);
   list_fic(lista);
   leer_fic();
   return 0;
}
 
void Insertar(Lista *lista, int d, int f)
{
   pNodo nuevo, anterior;
 
   /* Crear un nodo nuevo */
   nuevo = (pNodo)malloc(sizeof(tipoNodo));
   nuevo->dni = d;
   nuevo->fecha = f;
 
   /* Si la lista está vacía */
   if(ListaVacia(*lista) || (*lista)->dni > d) {
      /* Añadimos la lista a continuación del nuevo nodo */
      nuevo->siguiente = *lista;
      /* Ahora, el comienzo de nuestra lista es en nuevo nodo */
      *lista = nuevo;
   }
   else {
      /* Buscar el nodo de valor menor a v */
      anterior = *lista;
      /* Avanzamos hasta el último elemento o hasta que el siguiente tenga
         un valor mayor que v */
      while(anterior->siguiente && anterior->siguiente->dni <= d)
         anterior = anterior->siguiente;
      /* Insertamos el nuevo nodo después del nodo anterior */
      nuevo->siguiente = anterior->siguiente;
      anterior->siguiente = nuevo;
   }
}
 
void Borrar(Lista *lista, int d)
{
   pNodo anterior, nodo;
 
   nodo = *lista;
   anterior = NULL;
   while(nodo && nodo->dni < d ) {
      anterior = nodo;
      nodo = nodo->siguiente;
   }
   if(!nodo || nodo->dni != d) return;
   else { /* Borrar el nodo */
      if(!anterior) /* Primer elemento */
         *lista = nodo->siguiente;
      else  /* un elemento cualquiera */
         anterior->siguiente = nodo->siguiente;
      free(nodo);
   }
}
 
int ListaVacia(Lista lista)
{
   return (lista == NULL);
}
 
void BorrarLista(Lista *lista)
{
   pNodo nodo;
 
   while(*lista) {
      nodo = *lista;
      *lista = nodo->siguiente;
      free(nodo);
   }
}
 
void MostrarLista(Lista lista)
{
   pNodo nodo = lista;
 
   if(ListaVacia(lista)) printf("Lista vacía\n");
   else {
      while(nodo) {
         printf("DNI-> %d -> ", nodo->dni);
         printf("FECHA-> %d -> ", nodo->fecha);
         nodo = nodo->siguiente;
     }
     printf("\n");
   }
}
 
void list_fic(Lista L)
{
 FILE *fp;
 tipoNodo *aux;
 
 int b = 0;
 fp = fopen("pacientes.txt","wb");
 aux = L;
 
 while(aux != NULL)
 {
  b = fwrite(&aux,sizeof(tipoNodo),1,fp);
  aux = aux->siguiente;
 }
 
 fclose (fp);
}
 
void leer_fic(){
 FILE *fp;
 tipoNodo *aux;
 
 fp = fopen("pacientes.txt","r+b");
 
 fread(&aux,sizeof(tipoNodo),1,fp);
 
 fclose (fp);
 puts("LECTURA!");
 printf("DNI:%d\n",aux->dni);
 printf("FECHA:%d\n",aux->fecha);
 puts("FIN DE LECTURA");
}