#include "indice_b.h"
+#include "common.h"
/* Cantidad de claves por nodo */
#define CANT_HIJOS(x) ((x->tam_bloque-sizeof(B_NodoHeader))/sizeof(B_NodoEntry))
static void b_actualizar_header(char *src, B_NodoHeader *header);
static B_NodoEntry *b_leer_claves(char *src, B_NodoHeader *header);
static void b_insertar_en_nodo(INDICE *idx, CLAVE clave, INDICE_DATO dato, int nodo_id, char *nodo, int hijo1, int hijo2);
-const int b_elegir_izquierdo(INDICE *idx, int a, int b);
+static int b_elegir_izquierdo(INDICE *idx, int a, int b);
+static void b_borrar_clave(INDICE *idx, char *nodo, int nodo_id, CLAVE k);
void emufs_indice_b_crear(INDICE *idx)
{
header.hijo_izquierdo = -1;
fp = fopen(idx->filename, "w");
+ PERR("Creando indice");
+ fprintf(stderr, "Archivo = (%s)\n", idx->filename);
+ if (fp == NULL) {
+ PERR("Error al crear el archivo");
+ return;
+ }
/* Creo el archivo con el Nodo raiz */
bloque = (char *)malloc(idx->tam_bloque);
return 0;
} else {
if (i == 0) {
- if (header.nivel != 0) {
- nodo = b_leer_nodo(idx, header.hijo_izquierdo);
- nodo_id = header.hijo_izquierdo;
- } else {
- nodo = NULL;
- nodo_id = -1;
- }
+ nodo = b_leer_nodo(idx, header.hijo_izquierdo);
+ nodo_id = header.hijo_izquierdo;
} else {
- if (header.nivel != 0) {
- nodo = b_leer_nodo(idx, claves[i-1].dato.bloque);
- nodo_id = claves[i-1].dato.bloque;
- } else {
- nodo = NULL;
- nodo_id = -1;
- }
+ nodo = b_leer_nodo(idx, claves[i-1].hijo_derecho);
+ nodo_id = claves[i-1].hijo_derecho;
}
}
}
if (i == 0) {
nodo = b_leer_nodo(idx, header.hijo_izquierdo);
} else {
- nodo = b_leer_nodo(idx, claves[i-1].dato.bloque);
+ nodo = b_leer_nodo(idx, claves[i-1].hijo_derecho);
}
free(tmp);
}
return ret;
}
+int emufs_indice_b_borrar(INDICE *idx, CLAVE k)
+{
+ /* Busco el nodo que contiene la clave,si es que esta existe */
+ char *nodo;
+ int nodo_id, i;
+ char encontrado=0;
+ B_NodoHeader header;
+ B_NodoEntry *claves;
+
+ nodo_id = 0; /* Tomo la raiz */
+ nodo = b_leer_nodo(idx, nodo_id);
+ PERR("Buscando clave a borrar");
+ while (nodo && !encontrado) {
+ /* Obtengo los datos del nodo */
+ b_leer_header(nodo, &header);
+ claves = b_leer_claves(nodo, &header);
+
+ i=0;
+ while ((i<header.cant) && (emufs_indice_es_menor(idx, claves[i].clave, k))) i++;
+
+ if ((emufs_indice_es_igual(idx, claves[i].clave, k)) && (i<header.cant))
+ encontrado = 1;
+ else {
+ if (i==0) {
+ free(nodo);
+ nodo_id = header.hijo_izquierdo;
+ nodo = b_leer_nodo(idx, nodo_id);
+ } else {
+ nodo_id = claves[i-1].hijo_derecho;
+ free(nodo);
+ nodo = b_leer_nodo(idx, nodo_id);
+ }
+ }
+ }
+
+ if (encontrado) {
+ PERR("Clave encontrada, borrando ...");
+ b_borrar_clave(idx, nodo, nodo_id, k);
+ } else {
+ PERR("Clave no encontrada");
+ }
+ return 0;
+}
+
static int b_ultimo_id(INDICE *idx)
{
int i;
}
tmp_claves[i].clave = clave;
tmp_claves[i].dato = dato;
+ tmp_claves[i].hijo_derecho = hijo1;
+ tmp_claves[i+1].hijo_derecho = hijo2;
while (i < nodo_header.cant) {
tmp_claves[i+1] = claves[i];
i++;
if (nodo_id != 0) {
clave = tmp_claves[total/2].clave;
- dato.bloque = nuevo_id;
+ /* XXX dato.bloque = nuevo_id; */
b_grabar_nodo(idx, nodo_id, nodo);
b_grabar_nodo(idx, nuevo_id, nuevo);
nodo = tmp_nuevo;
clave = tmp_claves[total/2].clave;
- dato.bloque = nuevo_id;
+ /* XXX dato.bloque = nuevo_id; */
b_grabar_nodo(idx, nuevo_id+1, nodo);
b_grabar_nodo(idx, nuevo_id, nuevo);
nodo_header.cant++;
claves[i].clave = clave;
claves[i].dato = dato;
+ claves[i].hijo_derecho = hijo2;
nodo_header.hijo_izquierdo = b_elegir_izquierdo(idx, nodo_header.hijo_izquierdo, hijo1);
b_actualizar_header(nodo, &nodo_header);
} while (!salir);
}
-const int b_elegir_izquierdo(INDICE *idx, int a, int b)
+static int b_elegir_izquierdo(INDICE *idx, int a, int b)
{
int cual;
char *nodo1, *nodo2;
return NULL;
}
+static void b_borrar_clave(INDICE *idx, char *nodo, int nodo_id, CLAVE k)
+{
+ int pos, actual_id, i;
+ B_NodoHeader header, header_actual;
+ B_NodoEntry *claves, *claves_actual;
+ char *actual;
+
+ b_leer_header(nodo, &header);
+ claves = b_leer_claves(nodo, &header);
+
+ pos = 0;
+ /* Busco la posicion dentro de la lista de claves */
+ while (emufs_indice_es_menor(idx, claves[pos].clave, k)) pos++;
+
+ /* Es el nodo una hoja? */
+ if (header.hijo_izquierdo != -1) {
+ /* No!, es un nodo intermedio!! */
+ if (pos == 0)
+ actual = b_leer_nodo(idx, header.hijo_izquierdo);
+ else
+ actual = b_leer_nodo(idx, claves[pos+1].hijo_derecho);
+
+ b_leer_header(actual, &header_actual);
+ while (header_actual.hijo_izquierdo != -1) {
+ actual_id = header_actual.hijo_izquierdo;
+ free(actual);
+ actual = b_leer_nodo(idx, actual_id);
+ b_leer_header(actual, &header_actual);
+ }
+ claves_actual = b_leer_claves(actual, &header);
+
+ claves[pos] = claves_actual[0];
+ pos = 0;
+ b_grabar_nodo(idx, nodo_id, nodo);
+ } else {
+ actual = nodo;
+ }
+
+ /* Borro la clave */
+ for(i=pos; i < header_actual.cant; i++) {
+ claves_actual[i] = claves_actual[i+1];
+ }
+ header_actual.cant--;
+ /* Guardo los cambios */
+ b_actualizar_header(actual, &header_actual);
+ b_grabar_nodo(idx, actual_id, actual);
+
+ /* Se cumple la condicion de hijos? */
+ if (header_actual.cant >= MIN_HIJOS(idx)) {
+ PERR("Borrar completo sin fundir");
+ return;
+ }
+
+ /* Tengo que pasar datos o fundir nodos :-( */
+ PERR("TODO : FUNDIR NODOS!!!!\n");
+}
+
projects / z.facultad / 75.06 / emufs.git / blobdiff