emufs_gui/registros.c

   1
   2 #include "registros.h"
   3 #include "idx.h"
   4
   5 /* Se encarga de reemplazar los \0 un caracter visual, y segurar un \0 al final */
   6 static char *procesar_registro_articulo(char *ptr, EMUFS_REG_SIZE *size);
   7
   8 #define ACT 0
   9 #define ANT 1
  10 #define SIG 2
  11
  12 void ver_registros(WINDOW *padre, int w, int h)
  13 {
  14         /* Ventanas donde mostrar las cosas */
  15         WINDOW *actual[2], *ant[2], *sig[2];
  16         EMUFS_REG_SIZE size;
  17         int scroll, actual_ancho;
  18         int max_scroll, c;
  19         EMUFS_REG_ID ant_indice, total_indice; /* Indice de registro que tengo en ANT */
  20         char *data[3];
  21         EMUFS *fp;
  22         int error;
  23         fp = emufs_abrir("articulos");
  24
  25         total_indice = emufs_idx_get_count(fp);
  26
  27         ant_indice = 0;
  28         data[ANT] = (char *)fp->leer_registro(fp, ant_indice, &size, &error);
  29         data[ANT] = procesar_registro_articulo(data[ANT], &size);
  30
  31         data[ACT] = (char *)fp->leer_registro(fp, ant_indice+1, &size, &error);
  32         data[ACT] = procesar_registro_articulo(data[ACT], &size);
  33
  34         data[SIG] = (char *)fp->leer_registro(fp, ant_indice+2, &size, &error);
  35         data[SIG] = procesar_registro_articulo(data[SIG], &size);
  36
  37         max_scroll = size / (w/3-2) - (h-7);
  38         if (max_scroll < 0) max_scroll = 0;
  39
  40         actual[0] = derwin(padre, h-5, w/3, 1, w/3);
  41         actual_ancho = w/3-2;
  42         actual[1] = derwin(actual[0], h-7, w/3-2, 1, 1);
  43         box(actual[0], 0, 0);
  44         ant[0] = derwin(padre, h-5, w/3, 1, 0);
  45         ant[1] = derwin(ant[0], h-7, w/3-2, 1, 1);
  46         box(ant[0], 0, 0);
  47         sig[0] = derwin(padre, h-5, w/3, 1, w/3*2);
  48         sig[1] = derwin(sig[0], h-7, w/3-2, 1, 1);
  49         box(sig[0], 0, 0);
  50
  51         curs_set(0);
  52         /* Pongo algunos titulos */
  53         mvwaddstr(actual[0], 0, w/6-3, "Actual");
  54         mvwaddstr(ant[0], 0, w/6-4, "Anterior");
  55         mvwaddstr(sig[0], 0, w/6-4, "Siguiente");
  56
  57         /* Info de teclas */
  58         wattron(padre, A_BOLD);
  59         wattron(padre, COLOR_PAIR(COLOR_RED));
  60         mvwaddstr(padre, h-4, 5, "Teclas :");
  61         wattroff(padre, A_BOLD);
  62         wattroff(padre, COLOR_PAIR(COLOR_RED));
  63         mvwaddstr(padre, h-3, 8, "Salir = ENTER");
  64         mvwaddstr(padre, h-2, 8, "Scroll = A/Z");
  65         mvwaddstr(padre, h-1, 8, "Mover registros = K/L");
  66
  67         /* Info de leyenda */
  68         wattron(padre, A_BOLD);
  69         wattron(padre, COLOR_PAIR(COLOR_RED));
  70         mvwaddstr(padre, h-4, 35, "Leyenda :");
  71         wattroff(padre, A_BOLD);
  72         wattroff(padre, COLOR_PAIR(COLOR_RED));
  73         mvwaddstr(padre, h-3, 38, "| = Separador de campos");
  74         mvwaddstr(padre, h-2, 38, "(XXX) = Campo numerico");
  75         mvwaddstr(padre, h-1, 38, "* = Relleno en registros fijos");
  76
  77
  78         wattron(actual[1], A_BOLD);
  79         mvwaddstr(actual[1], 0, 0, data[ACT]);
  80         wattroff(actual[1], A_BOLD);
  81
  82         mvwaddstr(sig[1], 0, 0, data[SIG]);
  83         mvwaddstr(ant[1], 0, 0, data[ANT]);
  84
  85         wrefresh(padre);
  86         scroll = 0;
  87         while ((c=getch()) != 13) {
  88                 switch (c) {
  89                         case 'a':
  90                                 scroll--;
  91                                 if (scroll < 0) scroll = 0;
  92                         break;
  93                         case 'z':
  94                                 scroll++;
  95                                 if (scroll > max_scroll) scroll = max_scroll;
  96                         case 'k': /* Desplano los registros a derecha! */
  97                                 if (ant_indice != EMUFS_NOT_FOUND) {
  98                                         if (data[ANT]) free(data[ANT]);
  99                                         if (data[ACT]) free(data[ACT]);
 100                                         if (data[SIG]) free(data[SIG]);
 101                                         ant_indice--;
 102
 103                                         data[ANT] = (char *)fp->leer_registro(fp, ant_indice, &size, &error);
 104                                         data[ANT] = procesar_registro_articulo(data[ANT], &size);
 105                                         data[ACT] = (char *)fp->leer_registro(fp, ant_indice+1, &size, &error);
 106                                         data[ACT] = procesar_registro_articulo(data[ACT], &size);
 107                                         data[SIG] = (char *)fp->leer_registro(fp, ant_indice+2, &size, &error);
 108                                         data[SIG] = procesar_registro_articulo(data[SIG], &size);
 109                                 }
 110                         break;
 111                         case 'l': /* Desplazo los registros a izquieda!! */
 112                                 if (ant_indice+1 < total_indice-1) {
 113                                         if (data[ANT]) free(data[ANT]);
 114                                         if (data[ACT]) free(data[ACT]);
 115                                         if (data[SIG]) free(data[SIG]);
 116                                         ant_indice++;
 117
 118                                         data[ANT] = (char *)fp->leer_registro(fp, ant_indice, &size, &error);
 119                                         data[ANT] = procesar_registro_articulo(data[ANT], &size);
 120                                         data[ACT] = (char *)fp->leer_registro(fp, ant_indice+1, &size, &error);
 121                                         data[ACT] = procesar_registro_articulo(data[ACT], &size);
 122                                         data[SIG] = (char *)fp->leer_registro(fp, ant_indice+2, &size, &error);
 123                                         data[SIG] = procesar_registro_articulo(data[SIG], &size);
 124                                 }
 125                 }
 126                 /* Borro las ventanas */
 127                 werase(actual[1]);
 128                 werase(sig[1]);
 129                 werase(ant[1]);
 130
 131                 /* Imprimo los registros */
 132                 wattron(actual[1], A_BOLD);
 133                 if (data[ACT]) mvwaddstr(actual[1], 0, 0, data[ACT]+actual_ancho*scroll);
 134                 wattroff(actual[1], A_BOLD);
 135                 if (data[SIG]) mvwaddstr(sig[1], 0, 0, data[SIG]);
 136                 if (data[ANT]) mvwaddstr(ant[1], 0, 0, data[ANT]);
 137
 138                 wrefresh(actual[1]);
 139                 wrefresh(sig[1]);
 140                 wrefresh(ant[1]);
 141                 wrefresh(padre);
 142         }
 143         delwin(actual[1]);
 144         delwin(ant[1]);
 145         delwin(sig[1]);
 146         delwin(actual[0]);
 147         delwin(sig[0]);
 148         delwin(ant[0]);
 149         wrefresh(padre);
 150         curs_set(1);
 151 }
 152
 153 static char *procesar_registro_articulo(char *ptr, EMUFS_REG_SIZE *size)
 154 {
 155         char *tmp, *salida, *tmp1;
 156         if (ptr == NULL) return NULL;
 157         salida = (char *)malloc((*size)-sizeof(unsigned int)+11);
 158         sprintf(salida, "(%08d)", *((unsigned int *)ptr));
 159         tmp1 = salida+10;
 160         tmp = ptr+sizeof(unsigned int);
 161         while (tmp < (ptr + (*size))) {
 162                 if (*tmp == '\0') {
 163                         (*tmp1) = '|';
 164                 } else {
 165                         (*tmp1) = (*tmp);
 166                 }
 167                 tmp++;
 168                 tmp1++;
 169         }
 170         free(ptr);
 171         (*tmp1) = '\0';
 172         (*size) = (*size)-sizeof(unsigned int)+11;
 173         return salida;
 174 }
 175