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