+/* \bug Si hay registros multibloque, no se calcula bien el
+ * stats.tam_info_control_dat.
+ */
+EMUFS_Estadisticas emufs_tipo1_leer_estadisticas(EMUFS* efs)
+{
+ int err = 0;
+ EMUFS_Estadisticas stats;
+ memset(&stats, 0, sizeof(EMUFS_Estadisticas));
+
+ { /* obtengo tamaño del archivo en bytes */
+ char name_f[255];
+ strcpy(name_f, efs->nombre);
+ strcat(name_f, ".dat");
+ stats.tam_archivo = emufs_common_get_file_size(name_f, &err);
+ if (err) {
+ PERR("no se pudo obtener el tamaño del archivo");
+ return stats;
+ }
+ }
+
+ /* obtengo cantidad de bloques en el archivo */
+ stats.cant_bloques = (stats.tam_archivo - emufs_tipo1_header_size())
+ / efs->tam_bloque;
+
+ /* obtengo la cantidad de registros en el archivo */
+ {
+ EMUFS_REG_ID *tmp = emufs_idx_get(efs, &stats.cant_registros);
+ if (tmp) free(tmp); /* libera memoria innecesaria */
+ }
+
+ /* obtengo información de control que guarda el archivo .dat */
+ stats.tam_info_control_dat = emufs_tipo1_header_size() /* cabecera del archivo */
+ /* mas las cabeceras de todos los registros */
+ + stats.cant_registros * sizeof(EMUFS_TIPO1_REG_HEADER);
+
+ /* obtengo las estadísticas del archivo de espacio libre por bloque */
+ 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);
+
+ /* obtengo informacion de control guardada por los archivos auxiliares */
+ stats.tam_archivos_aux = emufs_idx_get_file_size(efs, &err)
+ + emufs_fsc_get_file_size(efs, &err)
+ + emufs_did_get_file_size(efs, &err);
+ if (err) {
+ PERR("error al obtener tamaño de alguno de los archivos auxiliares");
+ return stats;
+ }
+
+ return stats;
+}
+
+void emufs_tipo1_compactar(EMUFS* efs)
+{
+#ifdef ARREGLAR
+ EMUFS_BLOCK_SIZE block_space /* tamaño para datos de un bloque */
+ = efs->tam_bloque - sizeof(EMUFS_TIPO1_REG_HEADER);
+ EMUFS_REG_ID total_ids; /* cantidad total de registros en el array */
+ /* array con los identificadores de los registros */
+ EMUFS_REG_ID* reg_ids = emufs_idx_get(efs, &total_ids);
+ int i; /* índice de elemento actual del array */
+
+ /* recorro cada registro válido del archivo */
+ for (i = 0; i < total_ids; ++i) {
+ EMUFS_TIPO1_REG_HEADER header; /* cabecera del registro a leer */
+ char* reg; /* buffer para el registro a mover */
+ int err = 0; /* para almacenar código de error */
+ /* bloque al que pertenece el registro */
+ EMUFS_BLOCK_ID block_id = emufs_idx_buscar_registro(efs, reg_ids[i]);
+
+ /* obtengo identificador del registro actual */
+ header.id = reg_ids[i];
+ /* si el registro está borrado, continúo con el próximo */
+ if (block_id == EMUFS_NOT_FOUND) {
+ continue;
+ }
+ /* leo el registro */
+ reg = (char*) efs->leer_registro(efs, header.id, &header.size, &err);
+ if (err) {
+ PERR("error al leer registro");
+ return;
+ }
+ /* borro el registro */
+ if ((err = efs->borrar_registro(efs, header.id))) {
+ PERR("error al borrar registro");
+ free(reg);
+ return;
+ }
+ /* lo inserto en la nueva posición */
+ emufs_tipo1_grabar_registro(efs, reg, header.size, &err);
+ if (err) {
+ PERR("error al grabar registro");
+ free(reg);
+ return;
+ }
+ free(reg);
+ }
+ free(reg_ids); /* libero lista de ids */
+
+ /* truncamos el archivo si hay bloques libres al final */
+ {
+ EMUFS_FREE fs; /* espacio libre en el bloque */
+ /* busco si hay algún bloque completo libre */
+ EMUFS_BLOCK_ID block_id = emufs_fsc_buscar_lugar(efs, block_space, &fs);
+ /* si hay, el resto del archivo tiene que estar vacío */
+ if (block_id != EMUFS_NOT_FOUND) {
+ long size = emufs_tipo1_header_size() /* cabecera del archivo */
+ + block_id * efs->tam_bloque; /* mas los bloques compactos */
+ char filename[255];
+
+ /* trunca archivo de datos */
+ strcpy(filename, efs->nombre);
+ strcat(filename, ".dat");
+ truncate(filename, size);
+ /* trunca archivo de de espacio libre */
+ emufs_fsc_truncate(efs, block_id);
+ }
+ }
+#endif
+}
+
+EMUFS_BLOCK_ID emufs_tipo1_grabar_bloque_fsc(EMUFS *efs, void *block,
+ EMUFS_BLOCK_ID block_id, EMUFS_FREE fs, int* err)