X-Git-Url: https://git.llucax.com/z.facultad/75.06/emufs.git/blobdiff_plain/8637995cdbd1c7d71825cc2e5e8d874de10135f6..6b529d1ba8dc30ef7437503567b537568391dc27:/emufs/emufs.c?ds=sidebyside

diff --git a/emufs/emufs.c b/emufs/emufs.c
index 685f091..3adab5e 100644
--- a/emufs/emufs.c
+++ b/emufs/emufs.c
@@ -54,9 +54,11 @@ typedef struct _data_indices_ {
 	INDICE_TIPO_DATO tipo_dato;
 	unsigned int offset;
 	unsigned int tam_bloque;
+	int str_offset;
 } t_Indice;
 
-int guardar_indice(EMUFS *emu, char *nombre, INDICE_FUNCION funcion, INDICE_TIPO tipo, INDICE_TIPO_DATO tipo_dato,  unsigned int offset, unsigned int tam_bloque);
+int guardar_indice(EMUFS *emu, char *nombre, INDICE_FUNCION funcion, INDICE_TIPO tipo, INDICE_TIPO_DATO tipo_dato,  unsigned int offset, unsigned int tam_bloque, int str_offset);
+int cargar_indices(EMUFS *emu);
 
 char *str_dup(const char *s);
 
@@ -99,7 +101,7 @@ EMUFS *emufs_crear(const char *filename, EMUFS_Tipo tipo, EMUFS_BLOCK_SIZE tam_b
 	int err = 0;
 
 	/* Si no es un tipo conocido, sale. */
-	if ((tipo != T1) && (tipo != T2) && (tipo != T3)) {
+	if ((tipo != T1) && (tipo != T2) && (tipo != T3) && (tipo != T4) && (tipo != T5)) {
 		return NULL;
 	}
 
@@ -191,20 +193,47 @@ EMUFS *emufs_crear(const char *filename, EMUFS_Tipo tipo, EMUFS_BLOCK_SIZE tam_b
 
 		case T3:
 			/* Asigna punteros a funciones. */
-			efs->leer_bloque = emufs_tipo3_leer_bloque;
-			efs->leer_registro = emufs_tipo3_leer_registro;
-			efs->leer_registro_raw = emufs_tipo3_leer_registro_raw;
-			efs->grabar_registro = emufs_tipo3_grabar_registro;
-			efs->borrar_registro = emufs_tipo3_borrar_registro;
-			efs->leer_estadisticas = emufs_tipo3_leer_estadisticas;
-			efs->modificar_registro = emufs_tipo3_modificar_registro;
-			efs->compactar = emufs_tipo3_compactar;
-			efs->leer_bloque_raw = emufs_tipo3_leer_bloque_raw;
+			if ((err = emufs_tipo3_inicializar(efs))) {
+				/* TODO ERROR */
+				PERR("No se pudo inicializar el EMUFS de tipo3");
+				fclose(fp);
+				free(efs->nombre);
+				free(efs);
+				return NULL;
+			}
 			/* Guarda cabeceras propias. */
 			fwrite(&tam_bloque, sizeof(EMUFS_BLOCK_SIZE), 1, fp);
 			fwrite(&tam_reg, sizeof(EMUFS_REG_SIZE), 1, fp);			
 			break;
-
+		
+		case T4:
+			/* Asigna punteros a funciones. */
+			if ((err = emufs_tipo4_inicializar(efs))) {
+				/* TODO ERROR */
+				PERR("No se pudo inicializar el EMUFS de tipo4");
+				fclose(fp);
+				free(efs->nombre);
+				free(efs);
+				return NULL;
+			}
+			/* Guarda cabeceras propias. */
+			fwrite(&tam_bloque, sizeof(EMUFS_BLOCK_SIZE), 1, fp);
+			break;
+		
+		case T5:
+			/* Asigna punteros a funciones. */
+			if ((err = emufs_tipo5_inicializar(efs))) {
+				/* TODO ERROR */
+				PERR("No se pudo inicializar el EMUFS de tipo5");
+				fclose(fp);
+				free(efs->nombre);
+				free(efs);
+				return NULL;
+			}
+			/* Guarda cabeceras propias. */			
+			fwrite(&tam_bloque, sizeof(EMUFS_BLOCK_SIZE), 1, fp);
+			fwrite(&tam_reg, sizeof(EMUFS_REG_SIZE), 1, fp);			
+			break;
 	}
 
 	fclose(fp);
@@ -228,7 +257,7 @@ EMUFS *emufs_abrir(const char *filename)
 	fread(&tipo, sizeof(EMUFS_Tipo), 1, fp);
 
 	/* Si no es un tipo conocido, sale. */
-	if ((tipo != T1) && (tipo != T2) && (tipo != T3)) {
+	if ((tipo != T1) && (tipo != T2) && (tipo != T3) && (tipo != T4) && (tipo != T5)) {
 		fclose(fp);
 		return NULL;
 	}
@@ -246,6 +275,7 @@ EMUFS *emufs_abrir(const char *filename)
 		case T1:
 			/* Lee cabeceras propias. */
 			if (!fread(&(efs->tam_bloque), sizeof(EMUFS_BLOCK_SIZE), 1, fp)) {
+				PERR("ERROR Tipo1 no se pudo leer cabecera");
 				free(efs->nombre);
 				free(efs);
 				fclose(fp);
@@ -266,31 +296,62 @@ EMUFS *emufs_abrir(const char *filename)
 			if ((!fread(&(efs->tam_bloque), sizeof(EMUFS_BLOCK_SIZE), 1, fp)) ||
 			   (!fread(&(efs->tam_reg), sizeof(EMUFS_REG_SIZE), 1, fp)))
 				{
+				PERR("ERROR Tipo3 no se pudo leer header");
 				free(efs->nombre);
 				free(efs);
 				fclose(fp);
 				return NULL;
 			}			
 			/* Asigna punteros a funciones. */			
-			efs->leer_bloque = emufs_tipo3_leer_bloque;
-			efs->leer_registro_raw = emufs_tipo3_leer_registro_raw;
-			efs->leer_registro = emufs_tipo3_leer_registro;
-			efs->grabar_registro = emufs_tipo3_grabar_registro;
-			efs->borrar_registro = emufs_tipo3_borrar_registro;
-			efs->leer_estadisticas = emufs_tipo3_leer_estadisticas;
-			efs->modificar_registro = emufs_tipo3_modificar_registro;
-			efs->compactar = emufs_tipo3_compactar;
-			efs->leer_bloque_raw = emufs_tipo3_leer_bloque_raw;
+			emufs_tipo3_inicializar(efs);
 			break;
-	}
+	
+		case T4:
+			/* Lee cabeceras propias. */
+			if (!fread(&(efs->tam_bloque), sizeof(EMUFS_BLOCK_SIZE), 1, fp)) {
+				free(efs->nombre);
+				free(efs);
+				fclose(fp);
+				return NULL;
+			}
+			emufs_tipo4_inicializar(efs);
+			break;
+
+		case T5:
+			if ((!fread(&(efs->tam_bloque), sizeof(EMUFS_BLOCK_SIZE), 1, fp)) ||
+			   (!fread(&(efs->tam_reg), sizeof(EMUFS_REG_SIZE), 1, fp)))
+				{
+				free(efs->nombre);
+				free(efs);
+				fclose(fp);
+				return NULL;
+			}			
+			/* Asigna punteros a funciones. */
+			emufs_tipo5_inicializar(efs);
+		default:
+			PERR("EMUFS TIPO NO SOPORTADO");
+	}	
 
+	/* finalmente cargo la data de los indices */
+	cargar_indices(efs);
 	fclose(fp);
 	return efs;
 }
 
 int emufs_destruir(EMUFS *e)
 {
+	INDICE *del, *cur;
+
 	if (e == NULL) return 1;
+
+	/* libero indices */
+	cur = e->indices;
+	while (cur) {
+		del = cur;
+		cur = cur->sig;
+		emufs_indice_destruir(e, del);
+	}
+
 	free(e->nombre);
 	free(e);
 	return 0;
@@ -363,7 +424,7 @@ int debug_ver_estadisticas(EMUFS* efs)
 	return 0;
 }
 
-int emufs_agregar_indice(EMUFS *emu, char *nombre, INDICE_FUNCION funcion, INDICE_TIPO tipo, INDICE_TIPO_DATO tipo_dato,  unsigned int offset, unsigned int tam_bloque)
+int emufs_agregar_indice(EMUFS *emu, char *nombre, INDICE_FUNCION funcion, INDICE_TIPO tipo, INDICE_TIPO_DATO tipo_dato,  unsigned int offset, unsigned int tam_bloque, int str_offset)
 {
 	INDICE *tmp;
 	int error=0;
@@ -397,16 +458,17 @@ int emufs_agregar_indice(EMUFS *emu, char *nombre, INDICE_FUNCION funcion, INDIC
 
 	/* Creo el nuevo indice */
 	PERR("Creando indice\n");
-	tmp = emufs_indice_crear(emu, nombre, funcion, tipo, tipo_dato, offset, tam_bloque);
+	tmp = emufs_indice_crear(emu, nombre, funcion, tipo, tipo_dato, offset, tam_bloque, str_offset);
 
 	/* Guardo la info del indice para poder abrir despues el archivo */
-	guardar_indice(emu, nombre, funcion, tipo, tipo_dato, offset, tam_bloque);
+	guardar_indice(emu, nombre, funcion, tipo, tipo_dato, offset, tam_bloque, str_offset);
 
 	if (tmp == NULL) {
 		PERR("NO SE PUDO CREAR INDICE!!!");
 		return 0;
 	}
 
+	tmp->sig = NULL;
 	if (emu->indices==NULL)
 		emu->indices = tmp;
 	else {
@@ -440,7 +502,7 @@ INDICE_DATO *emufs_buscar_registros(EMUFS *emu, char *indice, char *data, int *c
 	return tmp->buscar_entradas(tmp, k, cant);
 }
 
-int guardar_indice(EMUFS *emu, char *nombre, INDICE_FUNCION funcion, INDICE_TIPO tipo, INDICE_TIPO_DATO tipo_dato,  unsigned int offset, unsigned int tam_bloque)
+int guardar_indice(EMUFS *emu, char *nombre, INDICE_FUNCION funcion, INDICE_TIPO tipo, INDICE_TIPO_DATO tipo_dato,  unsigned int offset, unsigned int tam_bloque, int str_offset)
 {
 	char filename[100];
 	FILE *fp;
@@ -466,12 +528,65 @@ int guardar_indice(EMUFS *emu, char *nombre, INDICE_FUNCION funcion, INDICE_TIPO
 	indices[cant].tipo_dato = tipo_dato;
 	indices[cant].offset = offset;
 	indices[cant].tam_bloque = tam_bloque;
+	indices[cant].str_offset = str_offset;
 
 	fseek(fp, SEEK_SET, 0);
 	cant++;
 	fwrite(&cant, 1, sizeof(int), fp);
 	fwrite(indices, cant, sizeof(t_Indice), fp);
 	fclose(fp);
+	free(indices);
+	return 1;
+}
+
+int cargar_indices(EMUFS *emu)
+{
+	char filename[100];
+	FILE *fp;
+	int cant, i; /* cantidad de indices hasta el momento */
+	t_Indice *indices;
+
+	sprintf(filename, "%s.info", emu->nombre);
+	fp = fopen(filename, "r");
+	PERR("Abri info");
+	PERR(filename);
+	if (fp == NULL) {
+		PERR("No se pudo");
+		return 0;
+	}
+
+	emu->indices = NULL;
+	fread(&cant, 1, sizeof(int), fp);
+	if (cant == 0) {
+		PERR("NO HAY INDICES EN ESTE ARCHIVO");
+		return 1;
+	}
+	indices = malloc(cant*sizeof(t_Indice));
+	fread(indices, cant, sizeof(t_Indice), fp);
+	fclose(fp);
+	
+	/* Leo  */
+	for(i=0; i<cant; i++) {
+		INDICE *tmp;
+		tmp = emufs_indice_abrir(emu,
+				indices[i].nombre,
+				indices[i].funcion,
+				indices[i].tipo,
+				indices[i].tipo_dato,
+				indices[i].offset,
+				indices[i].tam_bloque,
+				indices[i].str_offset
+			);
+		PERR(indices[i].nombre);
+		if (emu->indices==NULL)
+			emu->indices = tmp;
+		else {
+			tmp->sig = emu->indices;
+			emu->indices = tmp;
+		}
+	}
+	
+	free(indices);
 	return 1;
 }
 
@@ -491,18 +606,20 @@ EMUFS_BLOCK_ID emufs_create_new_block(EMUFS *emu)
 		PERR("NO SE PUDO ABRIR EL ARCHIVO");
 		return -1;
 	}
-	
+
 	dummy = (char*)malloc(emu->tam_bloque);
 	memset(dummy, 0, emu->tam_bloque);
 	fwrite(dummy, emu->tam_bloque, 1, fp);
 	switch(emu->tipo){
-		case T1: num = (ftell(fp)-sizeof(EMUFS_Tipo)+sizeof(EMUFS_BLOCK_SIZE))/emu->tam_bloque;
+		case T4: num = (ftell(fp)-sizeof(EMUFS_Tipo)-sizeof(EMUFS_BLOCK_SIZE))/emu->tam_bloque;
+			break;
+		case T5: num = (ftell(fp)-sizeof(EMUFS_Tipo)-sizeof(EMUFS_BLOCK_SIZE)-sizeof(EMUFS_REG_SIZE))/emu->tam_bloque;
 			break;
-		case T3: num = (ftell(fp)-sizeof(EMUFS_Tipo)+sizeof(EMUFS_BLOCK_SIZE)+sizeof(EMUFS_REG_SIZE))/emu->tam_bloque;
+		default: num = 0;		
 	}
 	fclose(fp);
 	free(dummy);
-	return num;
+	return num-1;
 }
 
 /*devuelve un numero de bloque siguiente al ultimo*/
@@ -510,21 +627,40 @@ EMUFS_BLOCK_ID emufs_get_new_block_number(EMUFS *emu)
 {
 	FILE *fp;
 	char name[255];
-	EMUFS_BLOCK_ID num;
+	EMUFS_BLOCK_ID num=0;
 	
 	/* obtengo nombre del archivo */
 	strcpy(name, emu->nombre);
 	strcat(name,".dat");
-
-	if ( (fp=fopen(name,"a+")) == NULL ){
+	if ( (fp=fopen(name,"r")) == NULL ){
 		PERR("NO SE PUDO ABRIR EL ARCHIVO");
 		return -1;
 	}
+	if ( fseek(fp, 0, SEEK_END)!=0 ){
+		PERR("NO PUDE HACER EL SEEK");
+		return -1;
+	}
 	switch(emu->tipo){
-		case T1: num = (ftell(fp)-sizeof(EMUFS_Tipo)+sizeof(EMUFS_BLOCK_SIZE))/emu->tam_bloque;
+		case T4: num = (ftell(fp)-sizeof(EMUFS_Tipo)-sizeof(EMUFS_BLOCK_SIZE))/emu->tam_bloque;
+			if (ftell(fp) ==  sizeof(EMUFS_Tipo)+sizeof(EMUFS_BLOCK_SIZE)) num = 0;
 			break;
-		case T3: num = (ftell(fp)-sizeof(EMUFS_Tipo)+sizeof(EMUFS_BLOCK_SIZE)+sizeof(EMUFS_REG_SIZE))/emu->tam_bloque;
+		case T5: num = (ftell(fp)-sizeof(EMUFS_Tipo)-sizeof(EMUFS_BLOCK_SIZE)-sizeof(EMUFS_REG_SIZE))/emu->tam_bloque;
+			if (ftell(fp) ==  sizeof(EMUFS_Tipo)+sizeof(EMUFS_BLOCK_SIZE)+sizeof(EMUFS_REG_SIZE)) num = 0;
+			break;
+		default: num = 0;
 	}
 	fclose(fp);
-	return num+1;
+	return num;
+}
+
+INDICE *emufs_buscar_indice_por_nombre(EMUFS *emu, const char *nombre)
+{
+	INDICE *tmp;
+
+	tmp = emu->indices;
+	while (tmp) {
+		if (strcmp(tmp->nombre, nombre) == 0) break;
+		tmp = tmp->sig;
+	}
+	return tmp;
 }