-
#include "emufs.h"
+#include "param_cte.h"
+
+/* Defino las extenciones que usan cada tipo de archivo */
+#define EXT_TIPO3_ID ".idx"
+#define EXT_TIPO3_DATA ".dat"
+#define EXT_TIPO3_DISP ".fsc"
+#define EXT_TIPO3_IDS ".ids"
+
+char *str_dup(const char *s);
+
+char *str_dup(const char *s)
+{
+ char *tmp;
+ if (s == NULL) return NULL;
+ tmp = (char *)malloc(sizeof(char)*(strlen(s)+1));
+ strcpy(tmp, s);
+ return tmp;
+}
+
-EMUFS *emufs_crear(const char *filename, int tipo)
+EMUFS *emufs_crear(const char *filename, char tipo, unsigned int tam_bloque, unsigned int tam_reg)
{
+ char name[255];
+ FILE *fp;
EMUFS *tmp = (EMUFS *)malloc(sizeof(EMUFS));
switch (tipo) {
case T2:
break;
case T3:
+ tmp->tipo = T3;
+ tmp->tam_bloque = tam_bloque;
+ tmp->leer_bloque = leer_bloque;
+ tmp->leer_registro = leer_registro;
+ tmp->grabar_registro = grabar_registro;
+ tmp->borrar_registro = NULL;
+ tmp->nombre = str_dup(filename);
+
+ strcpy(name, filename);
+ strcat(name, EXT_TIPO3_DATA);
+ fp = fopen(name, "w");
+ if (fp == NULL) {
+ /* ERROR */
+ free(tmp->nombre);
+ free(tmp);
+ return NULL;
+ }
+ /* Guardo el Header */
+ fwrite(&tipo, sizeof(char), 1, fp);
+ fwrite(&tam_bloque, sizeof(unsigned int), 1, fp);
+ fwrite(&tam_reg, sizeof(unsigned int), 1, fp);
+ fclose(fp);
+
+ strcpy(name, filename);
+ strcat(name, EXT_TIPO3_ID);
+ fp = fopen(name, "w");
+ fclose(fp);
+
+ strcpy(name, filename);
+ strcat(name, EXT_TIPO3_DISP);
+ fp = fopen(name, "w");
+ fclose(fp);
+
+ strcpy(name, filename);
+ strcat(name, EXT_TIPO3_IDS);
+ fp = fopen(name, "w");
+ fclose(fp);
+
break;
default:
free(tmp);
return tmp;
}
+EMUFS *emufs_abrir(const char *filename)
+{
+ EMUFS *tmp;
+ char name[255];
+ char tipo;
+ FILE *fp;
+
+ strcpy(name, filename);
+ strcat(name, EXT_TIPO3_DATA);
+
+ /* Trato de determinar el tipo de archivo */
+ fp = fopen(name, "r");
+ if (fp == NULL) return NULL;
+ fread(&tipo, sizeof(char), 1, fp);
+ if ((tipo < 0) || (tipo > 2)) {
+ fclose(fp);
+ return NULL;
+ }
+
+ tmp = (EMUFS *)malloc(sizeof(EMUFS));
+ if (tmp == NULL) {
+ fclose(fp);
+ return NULL;
+ }
+
+ switch (tipo) {
+ case T1:
+ break;
+ case T2:
+ break;
+ case T3:
+ tmp->tipo = tipo;
+ fread(&tmp->tam_bloque, sizeof(int), 1, fp);
+ tmp->leer_bloque = leer_bloque;
+ tmp->leer_registro = leer_registro;
+ tmp->grabar_registro = grabar_registro;
+ tmp->borrar_registro = NULL;
+ tmp->nombre = str_dup(filename);
+ }
+
+ fclose(fp);
+ return tmp;
+}
+
+int emufs_destruir(EMUFS *e)
+{
+ if (e == NULL) return 1;
+ free(e->nombre);
+ free(e);
+ return 0;
+}
+int ver_archivo_FS(EMUFS *emu)
+{
+ FILE *f_block_free;
+ BLOCK_FREE_T reg;
+ char name_f_block_free[255];
+
+ strcpy(name_f_block_free,emu->nombre);
+ strcat(name_f_block_free,".fsc");
+
+ if ( (f_block_free = fopen(name_f_block_free,"r"))==NULL ){
+ printf("no pude abrir el archivo %s\n",name_f_block_free);
+ return -1;
+ }
+ fread(®,sizeof(reg),1,f_block_free);
+ while ( !feof(f_block_free) ){
+ printf(" Bloque = %d Espacio libre = %d\n",reg.block, reg.free_space);
+ fread(®,sizeof(reg),1,f_block_free);
+ }
+
+ fclose(f_block_free);
+
+ /* Imprimo la lista de bloques/registros */
+ strcpy(name_f_block_free,emu->nombre);
+ strcat(name_f_block_free,".idx");
+ {
+ BLOCK_REG_T r;
+ f_block_free = fopen(name_f_block_free, "r");
+ fread(&r, sizeof(BLOCK_REG_T), 1, f_block_free);
+ while (!feof(f_block_free)) {
+ printf("ID %ld en bloque %d\n", r.id_reg, r.block);
+ fread(&r, sizeof(BLOCK_REG_T), 1, f_block_free);
+ }
+ fclose(f_block_free);
+ }
+
+
+ return 0;
+}