Escribiendo código reentrante

La mejor manera para escribir código reentrante es no trabajar con variables globales, de esta forma nunca tendremos los problemas que hemos mencionado.

En nuestro caso esto no es posible, por lo que una buena solución es que las funciones que tengan que manejar variable globales, lo hagan a través de un puntero local^4.16. Con esto conseguimos que cada proceso tenga una copia de la variable global en su propio espacio de direcciones, por lo que ``sus'' datos no se verán contaminados por los de otros procesos.

Por supuesto que de esta manera, cuando finalice la ejecución de la función, la variable global será sobreescrita por los datos de la función reentrante, por lo que el último proceso en terminar de ejecutar la función reentrante será el que salga victorioso de la pelea por el recurso compartido.

Dicho esto, podemos modificar nuestro código de la siguiente manera:

/*  mpcinta.c */

.
.
.
ssize_t mpcinta_read (struct file *pfile, char *buf, size_t tam_buf, loff_t
                    *f_pos) {
  unsigned long not_copied;

  int menor= MINOR(pfile->f_dentry->d_inode->i_rdev);
  char *pcintas=cintas; /* hacemos reentrante la función */
  
  if (*f_pos>=TAM_CINTA) {
    printk(KERN_INFO "mpcinta> (read) ERROR, la cinta no es tan grande\n");
    return(-1); /* no vamos a permitir situarnos más lejos del tamaño 
                                                        de la cinta */
  }
  if ((*f_pos)+tam_buf>=TAM_CINTA) { /* si nos pasamos, recortamos el tamaño de
                                        los datos */
    tam_buf=tam_buf-((((*f_pos)+tam_buf)-TAM_CINTA)-1);
    printk(KERN_INFO "mpcinta> (read) WARNING, la cinta no es tan grande,
 mostramos lo que se pueda\n");
  }
  /* traducimos del espacio de direcciones del kernel al de usuario */
  not_copied=__copy_to_user(buf,pcintas+(menor*TAM_CINTA)+(*f_pos),tam_buf);
  if (not_copied>0) {
    printk(KERN_INFO "mpcinta> (read) WARNING, no se escribieron los datos\n");
    return(-EFAULT);
  }
  printk(KERN_INFO "mpcinta> (read) (menor=%d, tam=%d, f_pos=%Ld)\n",menor,
                                                            tam_buf,(*f_pos));
  (*f_pos)+=tam_buf;
  return(tam_buf);
}

ssize_t mpcinta_write (struct file *pfile, const char *buf, size_t tam_buf, 
                                                              loff_t *f_pos) {
  unsigned long not_copied;
  
  int menor= MINOR(pfile->f_dentry->d_inode->i_rdev);
  char *pcintas=cintas; /* hacemos reentrante la función */
 
  if (*f_pos>=TAM_CINTA) {
    printk(KERN_INFO "mpcinta> (write) ERROR, la cinta no es tan grande\n");
    return(-1); /* no vamos a permitir situarnos más lejos del tamaño de 
                                                                  la cinta */
  }
  if ((*f_pos)+tam_buf>=TAM_CINTA) { /* si nos pasamos, recortamos el tamaño
                                                                de los datos */
    tam_buf=tam_buf-((((*f_pos)+tam_buf)-TAM_CINTA)-1);
    printk(KERN_INFO "mpcinta> (write) WARNING, los datos no caben, 
                                                     escribimos lo que quepa\n");
  }
  /* traducimos del espacio de direcciones del usuario al del kernel */
  not_copied=__copy_from_user(pcintas+(menor*TAM_CINTA)+(*f_pos),buf,tam_buf);
  if (not_copied>0) {
    printk(KERN_INFO "mpcinta> (write) WARNING, no se escribieron los datos\n");
    return(-EFAULT);
  }
  printk(KERN_INFO "mpcinta> (write) (menor=%d, tam=%d, f_pos=%Ld)\n",menor,
                                                                 tam_buf,(*f_pos));
  (*f_pos)+=tam_buf;
  return(tam_buf);
}