tipo3/emufs.c

   1
   2 #include "emufs.h"
   3 #include "param_cte.h"
   4
   5 /* Defino las extenciones que usan cada tipo de archivo */
   6 #define EXT_TIPO3_ID ".id3"
   7 #define EXT_TIPO3_DATA ".dat"
   8 #define EXT_TIPO3_DISP ".fsc"
   9 #define EXT_TIPO3_IDS ".idc"
  10
  11 char *str_dup(const char *s)
  12 {
  13         if (s == NULL) return NULL;
  14         char *tmp = (char *)malloc(sizeof(char)*(strlen(s)+1));
  15         strcpy(tmp, s);
  16         return tmp;
  17 }
  18
  19
  20 EMUFS *emufs_crear(const char *filename, char tipo, unsigned int tam_bloque, unsigned int tam_reg)
  21 {
  22         char name[255];
  23         FILE *fp;
  24         EMUFS *tmp = (EMUFS *)malloc(sizeof(EMUFS));
  25
  26         switch (tipo) {
  27                 case T1:
  28                 break;
  29                 case T2:
  30                 break;
  31                 case T3:
  32                         tmp->tipo = T3;
  33                         tmp->tam_bloque = tam_bloque;
  34                         tmp->leer_bloque = leer_bloque;
  35                         tmp->leer_registro = leer_registro;
  36                         tmp->grabar_registro = grabar_registro;
  37                         tmp->borrar_registro = NULL;
  38                         tmp->nombre = str_dup(filename);
  39
  40                         strcpy(name, filename);
  41                         strcat(name, EXT_TIPO3_DATA);
  42                         fp = fopen(name, "w");
  43                         if (fp == NULL) {
  44                                 /* ERROR */
  45                                 free(tmp->nombre);
  46                                 free(tmp);
  47                                 return NULL;
  48                         }
  49                         /* Guardo el Header */
  50                         fwrite(&tipo, sizeof(char), 1, fp);
  51                         fwrite(&tam_bloque, sizeof(unsigned int), 1, fp);
  52                         fwrite(&tam_reg, sizeof(unsigned int), 1, fp);
  53                         fclose(fp);
  54
  55                         strcpy(name, filename);
  56                         strcat(name, EXT_TIPO3_ID);
  57                         fp = fopen(name, "w");
  58                         fclose(fp);
  59
  60                         strcpy(name, filename);
  61                         strcat(name, EXT_TIPO3_DISP);
  62                         fp = fopen(name, "w");
  63                         fclose(fp);
  64
  65                         strcpy(name, filename);
  66                         strcat(name, EXT_TIPO3_IDS);
  67                         fp = fopen(name, "w");
  68                         fclose(fp);
  69                 break;
  70                 default:
  71                         free(tmp);
  72                         return NULL;
  73         }
  74
  75         return tmp;
  76 }
  77
  78
  79 int emufs_destruir(EMUFS *e)
  80 {
  81         if (e == NULL) return 1;
  82         free(e->nombre);
  83         free(e);
  84         return 0;
  85 }
  86