+ fclose(file);
+ PERR("Error al leer bloque");
+ *err = EMUFS_ERROR_FILE_READ;
+ return NULL;
+ }
+ fclose(file);
+ return block;
+}
+
+EMUFS_REG_ID emufs_tipo1_grabar_registro(EMUFS* efs, void* reg,
+ EMUFS_REG_SIZE reg_size, int* err)
+{
+ EMUFS_TIPO1_REG_HEADER header; /* cabecera del registro a leer */
+ EMUFS_FREE fs; /* espacio libre en el bloque */
+ EMUFS_BLOCK_ID block_id; /* identificador del 1er bloque */
+ char* block; /* buffer del bloque a guardar en disco */
+ char* chunk_ptr = reg; /* puntero a la poción del registro */
+ EMUFS_BLOCK_SIZE block_space /* tamaño máximo para datos en un bloque */
+ = efs->tam_bloque - sizeof(EMUFS_TIPO1_REG_HEADER);
+ /* identificador del bloque que se guarda */
+ EMUFS_BLOCK_ID curr_block_id;
+ /* tamaño de la porción de registro que se guarda */
+ EMUFS_REG_SIZE chunk_size = 0;
+ INDICE_DATO idx_data;
+
+ /* obtengo identificador que corresponderá al registro */
+ header.id = emufs_idx_get_new_id(efs, err);
+ if (*err) {
+ PERR("no se pudo obtener un id para el registro nuevo");
+ return EMUFS_NOT_FOUND;
+ }
+ header.size = reg_size; /* tamaño del registro */
+
+ /* busco lugar para el registro en un bloque existente */
+ block_id = emufs_fsc_buscar_n_lugares(efs,
+ /* cantidad de bloques que necesita el registro */
+ (EMUFS_BLOCK_SIZE) ceil(header.size / (double) block_space),
+ /* cabecera + si es un registro multibloque, tomo el bloque */
+ sizeof(EMUFS_TIPO1_REG_HEADER) + MIN(header.size, block_space),
+ &fs, err);
+ /* si no hay bloques con suficiente espacio creo un bloque nuevo */
+ if (block_id == EMUFS_NOT_FOUND) {
+ /* crear un nuevo bloque en memoria */
+ block = (char*) malloc(efs->tam_bloque);
+ if (block == NULL) {
+ PERR("No hay memoria");
+ *err = EMUFS_ERROR_OUT_OF_MEMORY;
+ return EMUFS_NOT_FOUND;
+ }
+ memset(block, 0, efs->tam_bloque); /* inicializa bloque */
+ curr_block_id = EMUFS_NOT_FOUND; /* pongo de bloque actual el final */
+ /* si hay bloques con suficiente espacio, levanto el primero */
+ } else {
+ /* cargo el bloque en block_id */
+ if (!(block = (char*) emufs_tipo1_leer_bloque(efs, block_id, err))) {
+ PERR("no se pudo leer el bloque");
+ return EMUFS_NOT_FOUND;
+ }
+ curr_block_id = block_id; /* pongo de bloque actual el primero */
+ }
+
+ do {
+ EMUFS_BLOCK_ID new_block_id; /* identificador del bloque nuevo */
+ chunk_ptr += chunk_size; /* Avanzo para guardar prox chunk */
+ header.size -= chunk_size; /* Resto lo que ya guardé */
+ chunk_size = MIN(header.size, block_space);
+
+ /* graba porción del registro en bloque */ /* destino: fin de bloque */
+ emufs_tipo1_escribir_reg_chunk_en_memoria(block + efs->tam_bloque - fs,
+ header, chunk_ptr, chunk_size);
+ /* rellena el espacio libre con ceros para la GUI */
+ memset(block + efs->tam_bloque - fs + chunk_size
+ + sizeof(EMUFS_TIPO1_REG_HEADER), 0,
+ fs - chunk_size - sizeof(EMUFS_TIPO1_REG_HEADER));
+ /* graba el bloque en el archivo */
+ new_block_id = emufs_tipo1_grabar_bloque_fsc(efs, block, curr_block_id,
+ fs - sizeof(EMUFS_TIPO1_REG_HEADER) - chunk_size, err);
+ if (*err) {
+ PERR("error al grabar bloque");
+ free(block);
+ return EMUFS_NOT_FOUND;
+ }
+ /* si es el primer id de bloque obtenido, lo guardo para
+ * agregarlo después al archivo de índices. */
+ if (block_id == EMUFS_NOT_FOUND) {
+ block_id = new_block_id;
+ }
+ /* si no estoy por fuera del archivo, incremento el nro. de bloque */
+ if (curr_block_id != EMUFS_NOT_FOUND) {
+ ++curr_block_id;
+ }
+
+ /* mientras que el chunk no entre en un bloque */
+ } while (header.size > block_space);
+
+ /* libera el bloque */
+ free(block);
+
+ /* actualizo el indice de bloques y registros */
+ *err = emufs_idx_agregar(efs, header.id, block_id);
+ if (*err) {
+ PERR("No se pudo agregar idx");
+ return EMUFS_NOT_FOUND;
+ }
+ idx_data.id = header.id;
+ idx_data.bloque = block_id;
+ emufs_indice_agregar(efs->indices, reg, idx_data);
+
+ return header.id;
+}
+
+int emufs_tipo1_borrar_registro(EMUFS* efs, CLAVE k)
+{
+ char* block; /* bloque leido (en donde está el registro a leer) */
+ EMUFS_BLOCK_ID block_id; /* id del bloque en donde esta el registro a leer */
+ EMUFS_BLOCK_SIZE offset; /* offset del bloque leído */
+ EMUFS_TIPO1_REG_HEADER curr_reg_header; /* cabecera del registro a leer */
+ EMUFS_REG_ID reg_id;
+ INDICE_DATO dato;
+ int err = 0; /* para almacenar código de error */
+
+ /*block_id = emufs_idx_buscar_registro(efs, reg_id);
+ if (block_id == EMUFS_NOT_FOUND) {
+ PERR("Registro no encontrado");
+ return EMUFS_NOT_FOUND;
+ }*/
+ dato = efs->indices->existe_entrada(efs->indices, k);
+ block_id = dato.bloque; /*emufs_idx_buscar_registro(emu, ID);*/
+ reg_id = dato.id;
+
+ if (reg_id == -1) return EMUFS_NOT_FOUND;
+
+ if (!(block = (char*) emufs_tipo1_leer_bloque(efs, block_id, &err))) {
+ PERR("no se pudo reservar memoria");
+ return err;
projects / z.facultad / 75.06 / emufs.git / blobdiff