+ 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);
+ }
+ }
+}
+
+EMUFS_BLOCK_ID emufs_tipo1_grabar_bloque_fsc(EMUFS *efs, void *block,
+ EMUFS_BLOCK_ID block_id, EMUFS_FREE fs, int* err)
+{
+ FILE* file;
+ char name_f[255];
+ EMUFS_BLOCK_SIZE num_blocks;
+
+ /* obtengo nombre del archivo */
+ strcpy(name_f, efs->nombre);
+ strcat(name_f,".dat");
+
+ /* obtengo cantidad de bloques */
+ num_blocks =
+ (emufs_common_get_file_size(name_f, err) - emufs_tipo1_header_size())
+ / efs->tam_bloque;
+ if (*err) {
+ PERR("Error al obtener tamaño del archivo.");
+ return EMUFS_NOT_FOUND;
+ }
+
+ /* abre archivo */
+ strcpy(name_f,efs->nombre);
+ strcat(name_f,".dat");
+ if ((file = fopen(name_f, "r+b")) == NULL) {
+ PERR("Error al abrir archivo");
+ *err = EMUFS_ERROR_CANT_OPEN_FILE;
+ return EMUFS_NOT_FOUND;
+ }
+ /* Si es NOT_FOUND o mayor a la cantidad de bloques presentes,
+ * tengo que agregar un bloque al final del archivo */
+ if ((block_id == EMUFS_NOT_FOUND) || (block_id >= num_blocks)) {
+ /* me paro al final del archivo */
+ if (fseek(file, 0l, SEEK_END)) {
+ PERR("No se pudo hacer fseek()");
+ fclose(file);
+ *err = EMUFS_ERROR_SEEK_FILE;
+ return EMUFS_NOT_FOUND;
+ }
+ /* Obtengo ID del bloque nuevo */
+ block_id = (ftell(file) - emufs_tipo1_header_size()) / efs->tam_bloque;
+ /* si me lo solicitan, actualizo el .fsc */
+ if (fs != EMUFS_NOT_FOUND) {
+ *err = emufs_fsc_agregar(efs, block_id, fs);
+ if (*err) {
+ PERR("No se pudo agregar al .fsc");
+ fclose(file);
+ return EMUFS_NOT_FOUND;
+ }
+ }
+ /* Si es un ID válido, salto hasta ese bloque. */
+ } else {
+ /* Salta el header del archivo */
+ if ((*err = emufs_tipo1_header_jump(file))) {
+ PERR("no se pudo saltar la cabecera del archivo");
+ fclose(file);
+ return EMUFS_NOT_FOUND;
+ }
+ /* Salta bloques */
+ if ((*err = emufs_tipo1_block_jump(efs, file, block_id))) {
+ PERR("no se pudo saltar la cabecera del bloque");
+ fclose(file);
+ return EMUFS_NOT_FOUND;
+ }
+ /* si me lo solicitan, actualizo el .fsc */
+ if (fs != EMUFS_NOT_FOUND) {
+ if ((*err = emufs_fsc_actualizar(efs, block_id, fs))) {
+ PERR("no se pudo actualizar .fsc");
+ fclose(file);
+ return EMUFS_NOT_FOUND;
+ }
+ }
+ }
+ /* Grabo el bloque */
+ if (fwrite(block, efs->tam_bloque, 1, file) != 1) {
+ PERR("No se pudo escribir el archivo");
+ fclose(file);
+ *err = EMUFS_ERROR_WRITE_FILE;
+ return EMUFS_NOT_FOUND;
+ }
+
+ fclose(file);
+ return block_id;
+}
+
+EMUFS_REG_ID emufs_tipo1_modificar_registro(EMUFS* efs, EMUFS_REG_ID id,
+ void *data, EMUFS_REG_SIZE size, int* err)
+{
+ emufs_tipo1_borrar_registro(efs, id);
+ return emufs_tipo1_grabar_registro(efs, data, size, err);
+}
+
+size_t emufs_tipo1_header_size(void)
+{
+ return sizeof(EMUFS_Tipo) + sizeof(EMUFS_BLOCK_SIZE);
+}
+
+int emufs_tipo1_header_jump(FILE* fp)
+{
+ if (fseek(fp, emufs_tipo1_header_size(), SEEK_CUR)) {
+ PERR("No se pudo hacer fseek()");
+ return EMUFS_ERROR_SEEK_FILE;
+ }
+ return EMUFS_OK;
+}
+
+int emufs_tipo1_block_jump(EMUFS* efs, FILE* fp, EMUFS_BLOCK_ID block_count)
+{
+ if (fseek(fp, block_count * efs->tam_bloque, SEEK_CUR)) {
+ PERR("No se pudo hacer fseek()");
+ return EMUFS_ERROR_SEEK_FILE;
+ }
+ return EMUFS_OK;