+ emufs_tipo2_borrar_registro(efs, id);
+ return emufs_tipo2_grabar_registro(efs, data, size, error);
+}
+
+/* Recompila y devuelve ciertas estadisticas del archivo indicado */
+EMUFS_Estadisticas emufs_tipo2_leer_estadisticas(EMUFS *efs)
+{
+ EMUFS_Estadisticas stats;
+ EMUFS_REG_ID *tmp;
+ unsigned long fsc_size = 0,idx_size = 0;
+ char name_f[255];
+ FILE *file;
+
+ strcpy(name_f,efs->nombre);
+ strcat(name_f,".dat");
+
+ /* Inicializo las stats por si hay error somewhere */
+ stats.tam_archivo = 0;
+ stats.tam_archivo_bytes = 0;
+ stats.info_control = 0;
+ stats.media_fs = 0;
+ stats.total_fs = 0;
+ stats.max_fs = 0;
+ stats.min_fs = 0;
+ stats.cant_bloques = 0;
+
+ /* Obtengo las stats de FSC */
+ stats.total_fs = emufs_fsc_get_total_fs(efs);
+ stats.media_fs = emufs_fsc_get_media_fs(efs);
+ emufs_fsc_get_max_min_fs(efs,&stats.min_fs,&stats.max_fs);
+
+ /* Cant registros */
+ tmp = emufs_idx_get(efs,&stats.tam_archivo);
+ free(tmp);
+
+ /* Size del archivo de datos */
+ if ( (file = fopen(name_f,"ab")) == NULL){
+ PERR("No se pudo abrir el archivo");
+ return stats;
+ }
+ stats.tam_archivo_bytes = ftell(file);
+ fclose(file);
+
+ /* Size del archivo de Espacio Libre */
+ strcpy(name_f,efs->nombre);
+ strcat(name_f,EMUFS_FSC_EXT);
+ if ( (file = fopen(name_f,"ab")) == NULL){
+ PERR("No se pudo abrir el archivo");
+ return stats;
+ }
+ fsc_size = ftell(file);
+ fclose(file);
+
+ /* Size del archivo Indice */
+ strcpy(name_f,efs->nombre);
+ strcat(name_f,EMUFS_IDX_EXT);
+ if ( (file = fopen(name_f,"ab")) == NULL){
+ PERR("No se pudo abrir el archivo");
+ return stats;
+ }
+ idx_size = ftell(file);
+ fclose(file);
+
+ /* Cantidad de Bytes en info de control */
+ stats.info_control = idx_size + fsc_size + sizeof(EMUFS_REG_ID)*stats.tam_archivo + sizeof(EMUFS_REG_SIZE)*stats.tam_archivo + sizeof(EMUFS_Tipo);
+
+ return(stats);