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