X-Git-Url: https://git.llucax.com/z.facultad/75.06/emufs.git/blobdiff_plain/7381fcea0e5a5c890132397fee5bc7d0627d504c..bc6082be8ad01c7eb9afc87b4267953f6544be5a:/emufs_gui/viewer.c?ds=inline diff --git a/emufs_gui/viewer.c b/emufs_gui/viewer.c index 1b4c541..10bcff6 100644 --- a/emufs_gui/viewer.c +++ b/emufs_gui/viewer.c @@ -4,17 +4,25 @@ #include "articulos.h" #include "facturas.h" #include "gui.h" +#include "common.h" +#include /* Se encarga de reemplazar los \0 un caracter visual, y segurar un \0 al final */ -static char *procesar_registro_articulo_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho); -static char *procesar_registro_articulo_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho); - -static char *procesar_registro_factura_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho); -static char *procesar_registro_factura_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho); +static char *procesar_registro_tipo2(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho); +static char *procesar_registro_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho); +static char *procesar_registro_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho); static int preguntar_id(WINDOW *win, EMUFS *fp); -void mostrar_info(WINDOW *padre, int h, int offset_alto) +void copy_char(char *dst, char *src) +{ + /* Todos los espacidores los pongo iguales */ + if (isspace(*src)) *dst = ' '; + else if (iscntrl(*src)) *dst = '*'; + else *dst = *src; +} + +void mostrar_info(WINDOW *padre, int h, int offset_alto, int opt) { /* Info de teclas */ wattron(padre, A_BOLD); @@ -25,20 +33,22 @@ void mostrar_info(WINDOW *padre, int h, int offset_alto) mvwaddstr(padre, h-offset_alto+2, 8, "Salir = ENTER"); mvwaddstr(padre, h-offset_alto+3, 8, "Scroll = A/Z"); mvwaddstr(padre, h-offset_alto+4, 8, "Seleccionar registros = K/L"); - mvwaddstr(padre, h-offset_alto+5, 8, "Acciones: "); - waddstr(padre, "A"); - wattron(padre, A_BOLD); - waddch(padre, 'g'); - wattroff(padre, A_BOLD); - waddstr(padre, "regar "); - wattron(padre, A_BOLD); - waddstr(padre, "M"); - wattroff(padre, A_BOLD); - waddstr(padre, "ofidicar "); - wattron(padre, A_BOLD); - waddstr(padre, "E"); - wattroff(padre, A_BOLD); - waddstr(padre, "liminar "); + if (opt) { + mvwaddstr(padre, h-offset_alto+5, 8, "Acciones: "); + waddstr(padre, "A"); + wattron(padre, A_BOLD); + waddch(padre, 'g'); + wattroff(padre, A_BOLD); + waddstr(padre, "regar "); + wattron(padre, A_BOLD); + waddstr(padre, "M"); + wattroff(padre, A_BOLD); + waddstr(padre, "ofidicar "); + wattron(padre, A_BOLD); + waddstr(padre, "E"); + wattroff(padre, A_BOLD); + waddstr(padre, "liminar "); + } mvwaddstr(padre, h-offset_alto+6, 8, "Buscar ID : B"); /* Info de leyenda */ @@ -48,11 +58,9 @@ void mostrar_info(WINDOW *padre, int h, int offset_alto) wattroff(padre, A_BOLD); wattroff(padre, COLOR_PAIR(COLOR_RED)); mvwaddstr(padre, h-offset_alto+2, 48, " | = Separador de campo"); - mvwaddstr(padre, h-offset_alto+3, 48, "[XXX] = Campo numerico"); - mvwaddstr(padre, h-offset_alto+4, 48, "(XXX) = ID de registro"); - mvwaddstr(padre, h-offset_alto+5, 48, "{XXX} = Tam. de registro"); - mvwaddstr(padre, h-offset_alto+6, 48, " . = Esp. Libre"); - mvwaddstr(padre, h-offset_alto+7, 48, " < > = Separador Bloques"); + mvwaddstr(padre, h-offset_alto+3, 48, "(XXX) = ID de registro"); + mvwaddstr(padre, h-offset_alto+4, 48, "{XXX} = Tam. de registro"); + mvwaddstr(padre, h-offset_alto+5, 48, " . = Esp. Libre"); } char *juntar_memoria(char *s1, char *s2, char *s3, int size1, int size2, int size3) @@ -70,9 +78,9 @@ char *juntar_memoria(char *s1, char *s2, char *s3, int size1, int size2, int siz return NULL; } - if (s1) memcpy(salida, s1, size1); - if (s2) memcpy(salida+size2, s2, size2); - if (s3) memcpy(salida+size2+size3, s3, size3); + if (s1) memcpy(salida, s1, size1); else size1 = 0; + if (s2) memcpy(salida+size1, s2, size2); else size2 = 0; + if (s3) memcpy(salida+size1+size2, s3, size3); if (s1) free(s1); if (s2) free(s2); if (s3) free(s3); @@ -102,6 +110,10 @@ void ver_bloques(WINDOW *padre, int w, int h, int cual) else if (cual == 2) fp = emufs_abrir("notas"); + if (fp == NULL) { + return; + } + stats = fp->leer_estadisticas(fp); wattron(padre, COLOR_PAIR(COLOR_BLUE)); @@ -110,10 +122,7 @@ void ver_bloques(WINDOW *padre, int w, int h, int cual) switch (fp->tipo) { case T1: waddstr(padre, "Registro variable con bloque parametrizado."); - if (cual == 0) - procesar = procesar_registro_articulo_tipo1; - else - procesar = procesar_registro_factura_tipo1; + procesar = procesar_registro_tipo1; break; case T2: waddstr(padre, "Registro variable sin bloques."); @@ -123,10 +132,7 @@ void ver_bloques(WINDOW *padre, int w, int h, int cual) return; break; case T3: - if (cual == 0) - procesar = procesar_registro_articulo_tipo3; - else - procesar = procesar_registro_factura_tipo3; + procesar = procesar_registro_tipo3; waddstr(padre, "Registro fijo con bloque parametrizado."); } @@ -165,7 +171,7 @@ void ver_bloques(WINDOW *padre, int w, int h, int cual) curs_set(0); - mostrar_info(padre, h, offset_alto); + mostrar_info(padre, h, offset_alto, 0); mvwaddnstr(actual[1], 0, 0, data, pos_actual); wattron(actual[1], A_BOLD); @@ -183,12 +189,22 @@ void ver_bloques(WINDOW *padre, int w, int h, int cual) case 'B': dlg = newwin(4, 50, h/2-2, w/2-25); box(dlg, 0, 0); - preguntar_id(dlg, fp); + indices_actual = preguntar_id(dlg, fp); + if (indices_actual < 0) indices_actual = 0; + if (indices_actual >= indices_total) indices_actual = indices_total-1; werase(dlg); wrefresh(dlg); delwin(dlg); wrefresh(padre); curs_set(0); + if (data) free(data); + fp->leer_bloque_raw(fp, indices_actual, &bloque_actual, &bloque_anterior, &bloque_siguiente, &size_actual, &size_anterior, &size_siguiete); + bloque_actual = procesar(fp, bloque_actual, &size_actual, &pos_actual, &ancho_registro); + bloque_siguiente = procesar(fp, bloque_siguiente, &size_siguiete, &pos_actual, &ancho_registro); + bloque_anterior = procesar(fp, bloque_anterior, &size_anterior, &pos_actual, &ancho_registro); + pos_actual = size_anterior; /* Resalta desde el fin del bloque anterior */ + ancho_registro = size_actual; + data = juntar_memoria(bloque_anterior, bloque_actual, bloque_siguiente, size_anterior, size_actual, size_siguiete); break; case 'a': /* Scroll */ scroll--; @@ -231,17 +247,14 @@ void ver_bloques(WINDOW *padre, int w, int h, int cual) /* Imprimo los registros */ if (data) { - offset = scroll*actual_ancho; /* Cantidad de caracteres que tengo que saltar */ - pos = pos_actual - offset; /* Cantidad de caracteres que hay antes de mi a imprimir */ + offset = scroll*actual_ancho; + pos = pos_actual - offset; mvwaddnstr(actual[1], 0, 0, data+offset, pos); - if (pos > 0) - offset += pos; - else - offset -= pos; + offset += pos; wattron(actual[1], A_BOLD); - waddnstr(actual[1], data+offset, ancho_registro+((pos<0)?pos:0)); + waddnstr(actual[1], data+offset, ancho_registro); wattroff(actual[1], A_BOLD); - offset += ancho_registro+((pos<0)?pos:0); + offset += ancho_registro; waddnstr(actual[1], data+offset, size-offset); } @@ -269,12 +282,16 @@ void ver_registros(WINDOW *padre, int w, int h, int cual) char *data; /* Registros a mostrar en pantalla */ char codigo[50]; /* Variable para guardar el codigo actual para mandar a modificar */ EMUFS *fp; - int pos_actual, ancho_registro, offset, pos; + int pos_actual, ancho_registro, offset, pos, n, i; if (cual == 0) fp = emufs_abrir("articulos"); - else - fp = emufs_abrir("facturas"); + else if (cual == 1) fp = emufs_abrir("facturas"); + else if (cual == 2) fp = emufs_abrir("notas"); + + if (fp == NULL) { + return; + } wattron(padre, COLOR_PAIR(COLOR_BLUE)); mvwaddstr(padre, 0, 0, "Tipo de archivo : "); @@ -282,19 +299,14 @@ void ver_registros(WINDOW *padre, int w, int h, int cual) switch (fp->tipo) { case T1: waddstr(padre, "Registro variable con bloque parametrizado."); - if (cual == 0) - procesar = procesar_registro_articulo_tipo1; - else - procesar = procesar_registro_factura_tipo1; + procesar = procesar_registro_tipo1; break; case T2: waddstr(padre, "Registro variable sin bloques."); + procesar = procesar_registro_tipo2; break; case T3: - if (cual == 0) - procesar = procesar_registro_articulo_tipo3; - else - procesar = procesar_registro_factura_tipo3; + procesar = procesar_registro_tipo3; waddstr(padre, "Registro fijo con bloque parametrizado."); } @@ -318,13 +330,15 @@ void ver_registros(WINDOW *padre, int w, int h, int cual) curs_set(0); - mostrar_info(padre, h, offset_alto); - - mvwaddnstr(actual[1], 0, 0, data, pos_actual); - wattron(actual[1], A_BOLD); - waddnstr(actual[1], data+pos_actual, ancho_registro); - wattroff(actual[1], A_BOLD); - waddnstr(actual[1], data+pos_actual+ancho_registro, size-(pos_actual+ancho_registro)); + mostrar_info(padre, h, offset_alto, 1); + + if (data) { + mvwaddnstr(actual[1], 0, 0, data, pos_actual); + wattron(actual[1], A_BOLD); + waddnstr(actual[1], data+pos_actual, ancho_registro); + wattroff(actual[1], A_BOLD); + waddnstr(actual[1], data+pos_actual+ancho_registro, size-(pos_actual+ancho_registro)); + } wrefresh(actual[1]); wrefresh(actual[0]); @@ -336,7 +350,20 @@ void ver_registros(WINDOW *padre, int w, int h, int cual) case 'B': dlg = newwin(4, 50, h/2-2, w/2-25); box(dlg, 0, 0); - preguntar_id(dlg, fp); + n = preguntar_id(dlg, fp); + /* Busco la posicion dentro del id */ + for(i=0; i< indices_total; i++) { + if (indices[i] == n) { + n = -1; /* LO ENCONTRE! */ + indices_actual = i; + break; + } + } + if (n == -1) { + if (data) free(data); + data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual); + data = procesar(fp, data, &size, &pos_actual, &ancho_registro); + } werase(dlg); wrefresh(dlg); delwin(dlg); @@ -359,6 +386,7 @@ void ver_registros(WINDOW *padre, int w, int h, int cual) break; case 'g': case 'G': + if (cual == 2) break; if (cual == 0) art_agregar(NULL); else @@ -371,12 +399,13 @@ void ver_registros(WINDOW *padre, int w, int h, int cual) indices = emufs_idx_get(fp, &indices_total); /* Tengo que re-pintar algunas cosas */ - mostrar_info(padre, h, offset_alto); + mostrar_info(padre, h, offset_alto, 1); box(actual[0], 0, 0); wrefresh(actual[0]); break; case 'M': case 'm': /* Quiero editar !!! */ + if (cual == 2) break; sprintf(codigo, "%lu", indices[indices_actual]); if (cual == 0) art_modificar(codigo); @@ -389,7 +418,7 @@ void ver_registros(WINDOW *padre, int w, int h, int cual) data = procesar(fp, data, &size, &pos_actual, &ancho_registro); /* Tengo que re-pintar algunas cosas */ - mostrar_info(padre, h, offset_alto); + mostrar_info(padre, h, offset_alto, 1); box(actual[0], 0, 0); wrefresh(actual[0]); break; @@ -448,225 +477,41 @@ void ver_registros(WINDOW *padre, int w, int h, int cual) curs_set(1); } -char *procesar_registro_articulo_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho) -{ - char *tmp, *salida, *tmp1, pos_actualizada, ant; - int cant_header, i=0, j, tam_data; - if (ptr == NULL) return NULL; - - /* Calculo cuantos headers de registros va a haber en el archivo */ - if (emu->tam_bloque > emu->tam_reg) { - cant_header = emu->tam_bloque / (emu->tam_reg+sizeof(EMUFS_REG_ID)); - if (cant_header == 0) cant_header++; /* Si tam_reg > tam_bloque, voy a tener solo 1 header */ - tam_data = sizeof(t_Articulo)-sizeof(unsigned int); - } else { - cant_header = 1; - tam_data = *size - sizeof(EMUFS_REG_ID)-sizeof(unsigned int); - } - - /* El tamaño del nuevo array lo calculo asi : - * - * tamañoviejo - tamaño_headers_en_int - tamaño_ints_en_registro - * + 10*(cant_headers+cant_registros) +1 - * - * En tipo3, la cantidad de headers y cant de registros es la misma - * El 10 es por : (XXXXXXXX) - * +1 == Por el \0 - */ - salida = (char *)malloc((*size)-sizeof(unsigned int)*cant_header*2 + 2*cant_header*10+1); - if (salida == NULL) { - return NULL; - } - tmp = ptr; - tmp1 = salida; - pos_actualizada = 0; - while (itam_bloque > emu->tam_reg) { - (*size) = (*size)-sizeof(unsigned int)*cant_header*2+2*cant_header*10+1; - (*ancho) = sizeof(t_Articulo)-sizeof(unsigned int)*2+20+1; - } else { - (*size) = (*size)-sizeof(EMUFS_REG_ID)-sizeof(unsigned int)+21; - (*ancho) = (*size); - } - memset(tmp1, '.', (*size)-(tmp1-salida)); - salida[*size-1] = '\0'; - - return salida; -} - -char *procesar_registro_articulo_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho) -{ - EMUFS_REG_SIZE offset, curr_size; - char *tmp, *salida, *tmp1, pos_actualizada, ant; - int cant_header, i=0, j; - if (ptr == NULL) return NULL; - - /* Cuento la cantidad de registros en este bloque */ - cant_header = 0; - offset = 0; - do { - /* Me salto el ID, que no me interesa saber su valor */ - offset += sizeof(EMUFS_REG_ID); - /* Copio el tamaño del registro de la cabecera. */ - memcpy(&curr_size, ptr + offset, sizeof(EMUFS_REG_SIZE)); - offset += sizeof(EMUFS_REG_SIZE); - - /* Desplazo el offset */ - if (curr_size == 0) { - /* Si el tamaño de registro es 0, quiere decir que llegue a la - * parte que esta vacia */ - break; - } else { - cant_header++; - offset += curr_size; - } - } while (offset+sizeof(EMUFS_REG_SIZE)+sizeof(EMUFS_REG_ID) < (*size)); - - /* Proceso */ - salida = (char *)malloc((*size)-sizeof(unsigned int)*cant_header*3 + 3*cant_header*10+1); - tmp = ptr; - tmp1 = salida; - pos_actualizada = 0; - while (itam_bloque > emu->tam_reg) { - cant_header = emu->tam_bloque / (emu->tam_reg+sizeof(EMUFS_REG_ID)); - if (cant_header == 0) cant_header++; /* Si tam_reg > tam_bloque, voy a tener solo 1 header */ - tam_data = emu->tam_reg-sizeof(int)*3-sizeof(float)-sizeof(EMUFS_BLOCK_ID); - } else { - cant_header = 1; - tam_data = (*size) - sizeof(EMUFS_REG_ID)-sizeof(int)*3-sizeof(float)-sizeof(EMUFS_BLOCK_ID); - } - - /* El tamaño del nuevo array lo calculo asi : - * - */ - tmp1 = salida = (char *)malloc(1000000); /*(*size)-(sizeof(char *)+sizeof(t_Item *)+sizeof(EMUFS_REG_ID)+sizeof(int)*3+sizeof(float)+sizeof(EMUFS_BLOCK_ID))*cant_header + 5*cant_header*10+1);*/ + cant_header = emu->tam_bloque / (emu->tam_reg+sizeof(EMUFS_REG_ID)); + if (cant_header == 0) cant_header++; /* Si tam_reg > tam_bloque, voy a tener solo 1 header */ + tam_data = emu->tam_reg; + if (tam_data > (*size - sizeof(EMUFS_REG_ID))) + tam_data = *size - sizeof(EMUFS_REG_ID); + + (*size) = (*size) - cant_header*sizeof(EMUFS_REG_ID)+cant_header*10+1; + tmp1 = salida = (char *)malloc(*size); + memset(salida, '.', *size); if (salida == NULL) { PERR("Error de malloc en salida"); return NULL; @@ -686,34 +531,13 @@ char *procesar_registro_factura_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *siz sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp)); tmp1 += 10; tmp += sizeof(EMUFS_REG_ID); - /* Pongo el campo numero */ - sprintf(tmp1, "[%08d]", *((int *)tmp)); - tmp1 += 10; - tmp += sizeof(int); - /* Pongo campo procdoi */ - sprintf(flotante, "[%5.2f]", *((float *)tmp)); - memcpy(tmp1, flotante, strlen(flotante)); - tmp1 += strlen(flotante); - tmp += sizeof(float); - /* Pongo campo numero_remito */ - sprintf(tmp1, "[%08d]", *((int *)tmp)); - tmp1 += 10; - tmp += sizeof(int); - /* Pongo numero de items */ - sprintf(tmp1, "[%08d]", *((int *)tmp)); - cant_items = *((int *)tmp); - tmp1 += 10; - tmp += sizeof(int); - /* Pongo reg_nota */ - sprintf(tmp1, "(%08lu)", *((EMUFS_BLOCK_ID*)tmp)); - tmp1 += 10; - tmp += sizeof(EMUFS_BLOCK_ID); if (pos_actualizada == 1) { - (*ancho) = 50+strlen(flotante); + (*ancho) = 10; } j = 0; - while (j < (tam_data-10*sizeof(t_Item))) { + ant = -1; + while (j < (tam_data)) { if (*tmp == '\0') { if (ant == (*tmp)){ (*tmp1) = '.'; @@ -721,7 +545,7 @@ char *procesar_registro_factura_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *siz (*tmp1) = '|'; } } else { - (*tmp1) = (*tmp); + copy_char(tmp1, tmp); } ant = (*tmp); tmp++; @@ -730,34 +554,6 @@ char *procesar_registro_factura_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *siz (*ancho)++; j++; } - /* Ahora proceso los items */ - k = 0; - while (k < 10) { - sprintf(tmp1, "[%08d]", *((int *)tmp)); - tmp1 += 10; - tmp += sizeof(int); - if (pos_actualizada == 1) - (*ancho)+=10; - j = 0; - while (j < (sizeof(t_Item)-sizeof(int))) { - if (*tmp == '\0') { - if (ant == (*tmp)){ - (*tmp1) = '.'; - } else { - (*tmp1) = '|'; - } - } else { - (*tmp1) = (*tmp); - } - ant = (*tmp); - tmp++; - tmp1++; - if (pos_actualizada == 1) - (*ancho)++; - j++; - } - k++; - } if (pos_actualizada == 1) pos_actualizada = 2; i++; @@ -765,24 +561,16 @@ char *procesar_registro_factura_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *siz free(ptr); PERR("Termine"); - if (emu->tam_bloque > emu->tam_reg) { - (*size) = tmp1-salida; - } else { - (*size) = tmp1-salida; - (*ancho) = tmp1-salida; - } salida[*size-1] = '\0'; return salida; } -char *procesar_registro_factura_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho) +char *procesar_registro_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho) { char *tmp, *salida, *tmp1, pos_actualizada, ant; - EMUFS_REG_SIZE offset, curr_size; - char flotante[10]; - int cant_header, i=0, j, tam_data, k; - int cant_items; + EMUFS_REG_SIZE offset, curr_size, size_acumulado, old_size; + int cant_header, i=0, j, tam_data; if (ptr == NULL) return NULL; PERR("Empieza el baile"); @@ -796,6 +584,9 @@ char *procesar_registro_factura_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *siz offset += sizeof(EMUFS_REG_SIZE); /* Desplazo el offset */ +#ifdef DEBUG + fprintf(stderr, "Tam = %lu\n", curr_size); +#endif if (curr_size == 0) { /* Si el tamaño de registro es 0, quiere decir que llegue a la * parte que esta vacia */ @@ -806,18 +597,30 @@ char *procesar_registro_factura_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *siz } } while (offset+sizeof(EMUFS_REG_SIZE)+sizeof(EMUFS_REG_ID) < (*size)); + if (cant_header == 0) { + PERR("NO TENGO ITEMS"); + memset(ptr, '.', *size); + (*ancho) = (*size); + (*pos_actual) = 0; + return ptr; + } + /* El tamaño del nuevo array lo calculo asi : * */ - tmp1 = salida = (char *)malloc(1000000); /*(*size)-(sizeof(char *)+sizeof(t_Item *)+sizeof(EMUFS_REG_ID)+sizeof(int)*3+sizeof(float)+sizeof(EMUFS_BLOCK_ID))*cant_header + 5*cant_header*10+1);*/ + old_size = (*size); + (*size) = (*size) - sizeof(EMUFS_REG_ID)*cant_header - sizeof(EMUFS_REG_SIZE)*cant_header + cant_header*20+1; + tmp1 = salida = (char *)malloc(*size); if (salida == NULL) { PERR("Error de malloc en salida"); return NULL; } + memset(salida, '.', *size); tmp = ptr; pos_actualizada = 0; (*ancho) = 0; i = 0; + size_acumulado = 0; while (i old_size) { + tam_data = old_size - size_acumulado; + } tmp1 += 10; tmp += sizeof(EMUFS_REG_SIZE); - /* Pongo el campo numero */ - sprintf(tmp1, "[%08d]", *((int *)tmp)); - tmp1 += 10; - tmp += sizeof(int); - /* Pongo campo procdoi */ - sprintf(flotante, "[%5.2f]", *((float *)tmp)); - memcpy(tmp1, flotante, strlen(flotante)); - tmp1 += strlen(flotante); - tmp += sizeof(float); - /* Pongo campo numero_remito */ - sprintf(tmp1, "[%08d]", *((int *)tmp)); - tmp1 += 10; - tmp += sizeof(int); - /* Pongo numero de items */ - sprintf(tmp1, "[%08d]", *((int *)tmp)); - cant_items = *((int *)tmp); - tmp1 += 10; - tmp += sizeof(int); - /* Pongo reg_nota */ - sprintf(tmp1, "(%08lu)", *((EMUFS_BLOCK_ID*)tmp)); - tmp1 += 10; - tmp += sizeof(EMUFS_BLOCK_ID); if (pos_actualizada == 1) { - (*ancho) = 60+strlen(flotante); + (*ancho) = 20; } j = 0; PERR("Voy por la data"); - while (j < (tam_data-cant_items*sizeof(t_Item))) { + ant = -1; + while (j < tam_data) { if (*tmp == '\0') { if (ant == (*tmp)){ (*tmp1) = '.'; @@ -871,7 +656,7 @@ char *procesar_registro_factura_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *siz (*tmp1) = '|'; } } else { - (*tmp1) = (*tmp); + copy_char(tmp1, tmp); } ant = (*tmp); tmp++; @@ -880,56 +665,72 @@ char *procesar_registro_factura_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *siz (*ancho)++; j++; } - /* Ahora proceso los items */ - k = 0; - while (k < cant_items) { - sprintf(tmp1, "[%08d]", *((int *)tmp)); - tmp1 += 10; - tmp += sizeof(int); - if (pos_actualizada == 1) - (*ancho)+=10; - j = 0; - while (j < (sizeof(t_Item)-sizeof(int))) { - if (*tmp == '\0') { - if (ant == (*tmp)){ - (*tmp1) = '.'; - } else { - (*tmp1) = '|'; - } - } else { - (*tmp1) = (*tmp); - } - ant = (*tmp); - tmp++; - tmp1++; - if (pos_actualizada == 1) - (*ancho)++; - j++; - } - k++; - } + size_acumulado += tam_data; if (pos_actualizada == 1) pos_actualizada = 2; - PERR(salida); i++; } - /* llego no . hasta el final */ - while (tmp < (ptr+(*size))) { - (*tmp1) = '.'; - tmp1++; - tmp++; - } free(ptr); PERR("Termine"); - if (emu->tam_bloque > emu->tam_reg) { - (*size) = tmp1-salida; - } else { - (*size) = tmp1-salida; - (*ancho) = tmp1-salida; - } salida[*size-1] = '\0'; return salida; } +char *procesar_registro_tipo2(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho) +{ + char *salida, *tmp; + char *in; + int i; + EMUFS_REG_SIZE tam_data; + if (ptr == NULL) return NULL; + + (*size) = *size - sizeof(EMUFS_REG_SIZE) - sizeof(EMUFS_REG_ID) + 21; + (*ancho) = *size-101; + salida = (char *)malloc(*size); + memset(salida, '.', *size); + + PERR("Voy por el espacio antes"); +#ifdef DEBUG + fprintf(stderr, "Pos Inicial %d\n", *pos_actual); +#endif + tmp = salida; + in = ptr; + for(i=0; i < *pos_actual; i++) { + copy_char(tmp, in); + in++; + tmp++; + } + + PERR("Voy por el header"); + /* ID de registro */ + sprintf(tmp, "(%08lu)", *((EMUFS_REG_ID *)in)); + tmp += 10; + in += sizeof(EMUFS_REG_ID); + /* Tamaño de registro */ + sprintf(tmp, "{%08lu}", *((EMUFS_REG_SIZE *)in)); + tam_data = *((EMUFS_REG_SIZE *)in); + tmp += 10; + in += sizeof(EMUFS_REG_SIZE); + PERR("Voy por la data"); + i = 0; + while (i < tam_data) { + copy_char(tmp, in); + tmp++; + in++; + i++; + } + PERR("Voy por el espacio despues"); + for(i=0; i < 100-*pos_actual; i++) { + copy_char(tmp, in); + in++; + tmp++; + } + + free(ptr); + PERR("LISTO"); + salida[*size-1] = '\0'; + return salida; +} +