emufs_gui/registros.c

   1
   2 #include "registros.h"
   3 #include "idx.h"
   4 #include "articulos.h"
   5
   6 /* Se encarga de reemplazar los \0 un caracter visual, y segurar un \0 al final */
   7 static char *procesar_registro_articulo_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho);
   8 static char *procesar_registro_articulo_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho);
   9 static int preguntar_id(WINDOW *win, EMUFS *fp);
  10
  11 void mostrar_info(WINDOW *padre, int h, int offset_alto)
  12 {
  13         /* Info de teclas */
  14         wattron(padre, A_BOLD);
  15         wattron(padre, COLOR_PAIR(COLOR_RED));
  16         mvwaddstr(padre, h-offset_alto+1, 5, "Teclas :");
  17         wattroff(padre, A_BOLD);
  18         wattroff(padre, COLOR_PAIR(COLOR_RED));
  19         mvwaddstr(padre, h-offset_alto+2, 8, "Salir = ENTER");
  20         mvwaddstr(padre, h-offset_alto+3, 8, "Scroll = A/Z");
  21         mvwaddstr(padre, h-offset_alto+4, 8, "Seleccionar registros = K/L");
  22         mvwaddstr(padre, h-offset_alto+5, 8, "Acciones: ");
  23         waddstr(padre, "A");
  24         wattron(padre, A_BOLD);
  25         waddch(padre, 'g');
  26         wattroff(padre, A_BOLD);
  27         waddstr(padre, "regar ");
  28         wattron(padre, A_BOLD);
  29         waddstr(padre, "M");
  30         wattroff(padre, A_BOLD);
  31         waddstr(padre, "ofidicar ");
  32         wattron(padre, A_BOLD);
  33         waddstr(padre, "E");
  34         wattroff(padre, A_BOLD);
  35         waddstr(padre, "liminar ");
  36         mvwaddstr(padre, h-offset_alto+6, 8, "Buscar ID : B");
  37
  38         /* Info de leyenda */
  39         wattron(padre, A_BOLD);
  40         wattron(padre, COLOR_PAIR(COLOR_RED));
  41         mvwaddstr(padre, h-offset_alto+1, 45, "Leyenda :");
  42         wattroff(padre, A_BOLD);
  43         wattroff(padre, COLOR_PAIR(COLOR_RED));
  44         mvwaddstr(padre, h-offset_alto+2, 48, "  |   = Separador de campo");
  45         mvwaddstr(padre, h-offset_alto+3, 48, "[XXX] = Campo numerico");
  46         mvwaddstr(padre, h-offset_alto+4, 48, "(XXX) = ID de registro");
  47         mvwaddstr(padre, h-offset_alto+5, 48, "{XXX} = Tam. de registro");
  48         mvwaddstr(padre, h-offset_alto+6, 48, "  .   = Esp. Libre");
  49         mvwaddstr(padre, h-offset_alto+7, 48, " < >  = Separador Bloques");
  50 }
  51
  52 void ver_registros(WINDOW *padre, int w, int h)
  53 {
  54         /* Ventanas donde mostrar las cosas */
  55         char *(*procesar)(EMUFS*, char*, EMUFS_REG_SIZE*, int*, int*);
  56         WINDOW *actual[2], *dlg;
  57         EMUFS_REG_SIZE size;
  58         int scroll, actual_ancho;
  59         int max_scroll, c, offset_alto;
  60         /* Indices que hay validos en IDX */
  61         EMUFS_REG_ID *indices, indices_total, indices_actual;
  62         char *data; /* Registros a mostrar en pantalla */
  63         char codigo[50]; /* Variable para guardar el codigo actual para mandar a modificar */
  64         EMUFS *fp;
  65         int pos_actual, ancho_registro, offset, pos;
  66
  67         fp = emufs_abrir("articulos");
  68         wattron(padre, COLOR_PAIR(COLOR_BLUE));
  69         mvwaddstr(padre, 0, 0, "Tipo de archivo : ");
  70         wattroff(padre, COLOR_PAIR(COLOR_BLUE));
  71         switch (fp->tipo) {
  72                 case T1:
  73                         waddstr(padre, "Registro variable con bloque parametrizado.");
  74                         procesar = procesar_registro_articulo_tipo1;
  75                 break;
  76                 case T2:
  77                         waddstr(padre, "Registro variable sin bloques.");
  78                 break;
  79                 case T3:
  80                         procesar = procesar_registro_articulo_tipo3;
  81                         waddstr(padre, "Registro fijo con bloque parametrizado.");
  82         }
  83
  84         indices = emufs_idx_get(fp, &indices_total);
  85
  86         indices_actual = 0;
  87         if (indices) {
  88                 fprintf(stderr, "LEO REGISTRO %lu\n", indices[indices_actual]);
  89                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
  90                 fprintf(stderr, "Data leida %p (%s)\n",data, data);
  91                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
  92                 fprintf(stderr, "Tamanio = %lu\n", size);
  93         }
  94
  95
  96         offset_alto = 8;
  97         max_scroll = size / (w-4) - (h-offset_alto-2);
  98         if (max_scroll < 0) max_scroll = 0;
  99
 100         actual[0] = derwin(padre, h-offset_alto, w-2, 1, 1);
 101         actual_ancho = w-4;
 102         actual[1] = derwin(actual[0], h-offset_alto-2, w-4, 1, 1);
 103         box(actual[0], 0, 0);
 104
 105         curs_set(0);
 106
 107         mostrar_info(padre, h, offset_alto);
 108
 109         mvwaddnstr(actual[1], 0, 0, data, pos_actual);
 110         wattron(actual[1], A_BOLD);
 111         waddnstr(actual[1], data+pos_actual, ancho_registro);
 112         wattroff(actual[1], A_BOLD);
 113         waddnstr(actual[1], data+pos_actual+ancho_registro, size-(pos_actual+ancho_registro));
 114
 115         wrefresh(actual[1]);
 116         wrefresh(actual[0]);
 117         wrefresh(padre);
 118         scroll = 0;
 119         while ((c=getch()) != 13) {
 120                 switch (c) {
 121                         case 'b':
 122                         case 'B':
 123                                 dlg = newwin(4, 50, h/2-2, w/2-25);
 124                                 box(dlg, 0, 0);
 125                                 preguntar_id(dlg, fp);
 126                                 werase(dlg);
 127                                 wrefresh(dlg);
 128                                 delwin(dlg);
 129                                 wrefresh(padre);
 130                                 curs_set(0);
 131                         break;
 132                         case 'e':
 133                         case 'E':
 134                                 if (indices_actual != EMUFS_NOT_FOUND)
 135                                         fp->borrar_registro(fp, indices[indices_actual]);
 136
 137                                 free(indices);
 138                                 indices = emufs_idx_get(fp, &indices_total);
 139                                 if (indices_actual >= indices_total) {
 140                                         indices_actual = indices_total - 1;
 141                                 }
 142
 143                                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 144                                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 145                         break;
 146                         case 'g':
 147                         case 'G':
 148                                 art_agregar(NULL);
 149                                 free(data);
 150                                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 151                                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 152
 153                                 free(indices);
 154                                 indices = emufs_idx_get(fp, &indices_total);
 155
 156                                 /* Tengo que re-pintar algunas cosas */
 157                                 mostrar_info(padre, h, offset_alto);
 158                                 box(actual[0], 0, 0);
 159                                 wrefresh(actual[0]);
 160                         break;
 161                         case 'M':
 162                         case 'm': /* Quiero editar !!! */
 163                                 sprintf(codigo, "%lu", indices[indices_actual]);
 164                                 art_modificar(codigo);
 165                                 /* Vuelvo a cargar el articulo actual */
 166
 167                                 free(data);
 168                                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 169                                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 170
 171                                 /* Tengo que re-pintar algunas cosas */
 172                                 mostrar_info(padre, h, offset_alto);
 173                                 box(actual[0], 0, 0);
 174                                 wrefresh(actual[0]);
 175                         break;
 176                         case 'a': /* Scroll */
 177                                 scroll--;
 178                                 if (scroll < 0) scroll = 0;
 179                         break;
 180                         case 'z': /* Scroll */
 181                                 scroll++;
 182                                 if (scroll > max_scroll) scroll = max_scroll;
 183                         break;
 184                         case 'l':
 185                                 if (indices_actual < indices_total) {
 186                                         indices_actual++;
 187                                         if (indices_actual >= indices_total) indices_actual = indices_total-1;
 188                                         if (data) free(data);
 189                                         data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 190                                         data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 191                                 }
 192                         break;
 193                         case 'k':
 194                                 if (indices_actual != EMUFS_NOT_FOUND) {
 195                                         indices_actual--;
 196                                         if (indices_actual == EMUFS_NOT_FOUND) indices_actual = 0;
 197                                         if (data) free(data);
 198                                         data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 199                                         data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 200                                 }
 201
 202                 }
 203                 /* Borro las ventanas */
 204                 werase(actual[1]);
 205
 206                 /* Imprimo los registros */
 207                 if (data) {
 208                         offset = scroll*actual_ancho;
 209                         pos = pos_actual - offset;
 210                         mvwaddnstr(actual[1], 0, 0, data+offset, pos);
 211                         offset += pos;
 212                         wattron(actual[1], A_BOLD);
 213                         waddnstr(actual[1], data+offset, ancho_registro);
 214                         wattroff(actual[1], A_BOLD);
 215                         offset += ancho_registro;
 216                         waddnstr(actual[1], data+offset, size-offset);
 217                 }
 218
 219                 wrefresh(actual[1]);
 220                 wrefresh(padre);
 221         }
 222         if (indices) free(indices);
 223         if (data) free(data);
 224
 225         delwin(actual[0]);
 226         wrefresh(padre);
 227         curs_set(1);
 228 }
 229
 230 char *procesar_registro_articulo_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
 231 {
 232         char *tmp, *salida, *tmp1, pos_actualizada, ant;
 233         int cant_header, i=0, j, tam_data;
 234         if (ptr == NULL) return NULL;
 235
 236         /* Calculo cuantos headers de registros va a haber en el archivo */
 237         if (emu->tam_bloque > emu->tam_reg) {
 238                 cant_header = emu->tam_bloque / (emu->tam_reg+sizeof(EMUFS_REG_ID));
 239                 if (cant_header == 0) cant_header++; /* Si tam_reg > tam_bloque, voy a tener solo 1 header */
 240                 tam_data = sizeof(t_Articulo)-sizeof(unsigned int);
 241         } else {
 242                 cant_header = 1;
 243                 tam_data = *size - sizeof(EMUFS_REG_ID)-sizeof(unsigned int);
 244         }
 245
 246         /* El tamaño del nuevo array lo calculo asi :
 247          *
 248          *   tamañoviejo - tamaño_headers_en_int - tamaño_ints_en_registro
 249          *               + 10*(cant_headers+cant_registros) +1
 250          *
 251          *   En tipo3, la cantidad de headers y cant de registros es la misma
 252          *   El 10 es por : (XXXXXXXX)
 253          *   +1 == Por el \0
 254          */
 255         salida = (char *)malloc((*size)-sizeof(unsigned int)*cant_header*2 + 2*cant_header*10+1);
 256         if (salida == NULL) {
 257                 fprintf(stderr, "Error de malloc en salida\n");
 258                 return NULL;
 259         }
 260         tmp = ptr;
 261         tmp1 = salida;
 262         pos_actualizada = 0;
 263         while (i<cant_header) {
 264                 fprintf(stderr, "voy a hacer el %d de %d\n", i, cant_header);
 265                 /* Verifico la pos_actual para el resaltado, asi queda coherente
 266                  * en el cambio de formato
 267                  */
 268                 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
 269                         (*pos_actual) = tmp1-salida;
 270                         pos_actualizada = 1;
 271                 }
 272                 /* Pongo el ID del registro */
 273                 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
 274                 fprintf(stderr, "ID=%lu\n",*((EMUFS_REG_ID *)tmp) );
 275                 tmp1 += 10;
 276                 tmp += sizeof(EMUFS_REG_ID);
 277                 /* Pongo el campo numero del registro */
 278                 sprintf(tmp1, "[%08d]", *((unsigned int *)tmp));
 279                 fprintf(stderr, "Numero=%d\n",*((unsigned int *)tmp) );
 280                 tmp1 += 10;
 281                 tmp += sizeof(unsigned int);
 282                 j = 0;
 283                 while (j < (tam_data)) {
 284                         if (*tmp == '\0') {
 285                                 if (ant == (*tmp))
 286                                         (*tmp1) = '.';
 287                                 else
 288                                         (*tmp1) = '|';
 289                         } else {
 290                                 (*tmp1) = (*tmp);
 291                         }
 292                         ant = (*tmp);
 293                         tmp++;
 294                         tmp1++;
 295                         j++;
 296                 }
 297                 i++;
 298         }
 299         free(ptr);
 300
 301         if (emu->tam_bloque > emu->tam_reg) {
 302                 (*size) = (*size)-sizeof(unsigned int)*cant_header*2+2*cant_header*10+1;
 303                 (*ancho) = sizeof(t_Articulo)-sizeof(unsigned int)*2+20+1;
 304         } else {
 305                 (*size) = (*size)-sizeof(EMUFS_REG_ID)-sizeof(unsigned int)+21;
 306                 (*ancho) = (*size);
 307         }
 308         memset(tmp1, '.', (*size)-(tmp1-salida));
 309         salida[*size] = '\0';
 310
 311         return salida;
 312 }
 313
 314 char *procesar_registro_articulo_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
 315 {
 316         EMUFS_REG_SIZE offset, curr_size;
 317         char *tmp, *salida, *tmp1, pos_actualizada, ant;
 318         int cant_header, i=0, j;
 319         if (ptr == NULL) return NULL;
 320
 321         /* Cuento la cantidad de registros en este bloque */
 322         cant_header = 0;
 323         offset = 0;
 324         fprintf(stderr, "Tam = %lu\n", *size);
 325         do {
 326                 /* Me salto el ID, que no me interesa saber su valor */
 327                 offset += sizeof(EMUFS_REG_ID);
 328                 /* Copio el tamaño del registro de la cabecera. */
 329                 memcpy(&curr_size, ptr + offset, sizeof(EMUFS_REG_SIZE));
 330                 offset += sizeof(EMUFS_REG_SIZE);
 331
 332                 /* Desplazo el offset */
 333                 if (curr_size == 0) {
 334                         /* Si el tamaño de registro es 0, quiere decir que llegue a la
 335                          * parte que esta vacia */
 336                         break;
 337                 } else {
 338                         cant_header++;
 339                         offset += curr_size;
 340                 }
 341         } while (offset < (*size));
 342
 343         /* Proceso */
 344         salida = (char *)malloc((*size)-sizeof(unsigned int)*cant_header*3 + 3*cant_header*10+1);
 345         tmp = ptr;
 346         tmp1 = salida;
 347         pos_actualizada = 0;
 348         while (i<cant_header) {
 349                 /* Verifico la pos_actual para el resaltado, asi queda coherente
 350                  * en el cambio de formato
 351                  */
 352                 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
 353                         (*pos_actual) = tmp1-salida;
 354                         pos_actualizada = 1;
 355                 }
 356                 /* Pongo el ID del registro */
 357                 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
 358                 tmp1 += 10;
 359                 tmp += sizeof(EMUFS_REG_ID);
 360                 /* Pongo el tamaño del registro */
 361                 sprintf(tmp1, "{%08lu}", *((EMUFS_REG_SIZE *)tmp));
 362                 curr_size = *((EMUFS_REG_SIZE *)tmp);
 363                 if (pos_actualizada == 1) {
 364                         (*ancho) = curr_size-sizeof(unsigned int)+30;
 365                         pos_actualizada = 2;
 366                 }
 367                 tmp1 += 10;
 368                 tmp += sizeof(EMUFS_REG_SIZE);
 369                 /* Pongo el campo numero del registro */
 370                 sprintf(tmp1, "[%08d]", *((unsigned int *)tmp));
 371                 tmp1 += 10;
 372                 tmp += sizeof(unsigned int);
 373                 j = sizeof(unsigned int);;
 374                 while (j < curr_size) {
 375                         if (*tmp == '\0') {
 376                                 if (ant == (*tmp))
 377                                         (*tmp1) = '.';
 378                                 else
 379                                         (*tmp1) = '|';
 380                         } else {
 381                                 (*tmp1) = (*tmp);
 382                         }
 383                         ant = (*tmp);
 384                         tmp++;
 385                         tmp1++;
 386                         j++;
 387                 }
 388                 i++;
 389         }
 390         /* Tengo que trabajar sobre lo que me falte (seguro es espacio libre) */
 391         (*size) = (*size)-sizeof(unsigned int)*cant_header*3+3*cant_header*10+1;
 392         memset(tmp1, '.', (*size)-(tmp1-salida));
 393         free(ptr);
 394         salida[*size] = '\0';
 395
 396         return salida;
 397 }
 398
 399 int preguntar_id(WINDOW *win, EMUFS *fp)
 400 {
 401         int n=-1, j=0;
 402         t_Form *form = form_crear(win);
 403         form_agregar_widget(form, INPUT, "ID a buscar", 8, "");
 404
 405         do {
 406                 if (j != 0) {
 407                         curs_set(0);
 408                         wattron(win, COLOR_PAIR(COLOR_YELLOW));
 409                         wattron(win, A_BOLD);
 410                         mvwaddstr(win, 2, 1, "Registro no encontrado!!");
 411                         wattroff(win, A_BOLD);
 412                         wattroff(win, COLOR_PAIR(COLOR_YELLOW));
 413                         wrefresh(win);
 414                         getch();
 415                         werase(win);
 416                         box(win, 0, 0);
 417                 }
 418                 form_ejecutar(form, 1,1);
 419
 420                 n = form_obtener_valor_int(form, "ID a buscar");
 421                 j = 1;
 422         } while (emufs_idx_existe_id(fp, n) != 0);
 423
 424         form_destruir(form);
 425         return n;
 426 }
 427