]> git.llucax.com Git - z.facultad/75.06/emufs.git/blob - emufs_gui/registros.c
* Saco los <> porque molestan al juntar bloques
[z.facultad/75.06/emufs.git] / emufs_gui / registros.c
1
2 #include "registros.h"
3 #include "idx.h"
4 #include "articulos.h"
5 #include "facturas.h"
6
7 /* Se encarga de reemplazar los \0 un caracter visual, y segurar un \0 al final */
8 static char *procesar_registro_articulo_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho);
9 static char *procesar_registro_articulo_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho);
10
11 static char *procesar_registro_factura_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho);
12 /*static char *procesar_registro_factura_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho);*/
13
14 static int preguntar_id(WINDOW *win, EMUFS *fp);
15
16 void mostrar_info(WINDOW *padre, int h, int offset_alto)
17 {
18         /* Info de teclas */
19         wattron(padre, A_BOLD);
20         wattron(padre, COLOR_PAIR(COLOR_RED));
21         mvwaddstr(padre, h-offset_alto+1, 5, "Teclas :");
22         wattroff(padre, A_BOLD);
23         wattroff(padre, COLOR_PAIR(COLOR_RED));
24         mvwaddstr(padre, h-offset_alto+2, 8, "Salir = ENTER");
25         mvwaddstr(padre, h-offset_alto+3, 8, "Scroll = A/Z");
26         mvwaddstr(padre, h-offset_alto+4, 8, "Seleccionar registros = K/L");
27         mvwaddstr(padre, h-offset_alto+5, 8, "Acciones: ");
28         waddstr(padre, "A");
29         wattron(padre, A_BOLD);
30         waddch(padre, 'g');
31         wattroff(padre, A_BOLD);
32         waddstr(padre, "regar ");
33         wattron(padre, A_BOLD);
34         waddstr(padre, "M");
35         wattroff(padre, A_BOLD);
36         waddstr(padre, "ofidicar ");
37         wattron(padre, A_BOLD);
38         waddstr(padre, "E");
39         wattroff(padre, A_BOLD);
40         waddstr(padre, "liminar ");
41         mvwaddstr(padre, h-offset_alto+6, 8, "Buscar ID : B");
42         
43         /* Info de leyenda */
44         wattron(padre, A_BOLD);
45         wattron(padre, COLOR_PAIR(COLOR_RED));
46         mvwaddstr(padre, h-offset_alto+1, 45, "Leyenda :");
47         wattroff(padre, A_BOLD);
48         wattroff(padre, COLOR_PAIR(COLOR_RED));
49         mvwaddstr(padre, h-offset_alto+2, 48, "  |   = Separador de campo");
50         mvwaddstr(padre, h-offset_alto+3, 48, "[XXX] = Campo numerico");
51         mvwaddstr(padre, h-offset_alto+4, 48, "(XXX) = ID de registro");
52         mvwaddstr(padre, h-offset_alto+5, 48, "{XXX} = Tam. de registro");
53         mvwaddstr(padre, h-offset_alto+6, 48, "  .   = Esp. Libre");
54         mvwaddstr(padre, h-offset_alto+7, 48, " < >  = Separador Bloques");
55 }
56         
57 void ver_registros(WINDOW *padre, int w, int h, int cual)
58 {
59         /* Ventanas donde mostrar las cosas */
60         char *(*procesar)(EMUFS*, char*, EMUFS_REG_SIZE*, int*, int*);
61         WINDOW *actual[2], *dlg;
62         EMUFS_REG_SIZE size;
63         int scroll, actual_ancho;
64         int max_scroll, c, offset_alto;
65         /* Indices que hay validos en IDX */
66         EMUFS_REG_ID *indices, indices_total, indices_actual;
67         char *data; /* Registros a mostrar en pantalla */
68         char codigo[50]; /* Variable para guardar el codigo actual para mandar a modificar */
69         EMUFS *fp;
70         int pos_actual, ancho_registro, offset, pos;
71
72         if (cual == 0)
73                 fp = emufs_abrir("articulos");
74         else
75                 fp = emufs_abrir("facturas");
76
77         wattron(padre, COLOR_PAIR(COLOR_BLUE));
78         mvwaddstr(padre, 0, 0, "Tipo de archivo : ");
79         wattroff(padre, COLOR_PAIR(COLOR_BLUE));
80         switch (fp->tipo) {
81                 case T1:
82                         waddstr(padre, "Registro variable con bloque parametrizado.");
83                         procesar = procesar_registro_articulo_tipo1;
84                 break;
85                 case T2:
86                         waddstr(padre, "Registro variable sin bloques.");
87                 break;
88                 case T3:
89                         if (cual == 0)
90                                 procesar = procesar_registro_articulo_tipo3;
91                         else
92                                 procesar = procesar_registro_factura_tipo3;
93                         waddstr(padre, "Registro fijo con bloque parametrizado.");
94         }
95
96         indices = emufs_idx_get(fp, &indices_total);
97
98         indices_actual = 0;
99         if (indices) {
100                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
101                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
102         }
103
104
105         offset_alto = 8;
106         max_scroll = size / (w-4) - (h-offset_alto-2);
107         if (max_scroll < 0) max_scroll = 0;
108
109         actual[0] = derwin(padre, h-offset_alto, w-2, 1, 1);
110         actual_ancho = w-4;
111         actual[1] = derwin(actual[0], h-offset_alto-2, w-4, 1, 1);
112         box(actual[0], 0, 0);
113
114         curs_set(0);
115
116         mostrar_info(padre, h, offset_alto);
117         
118         mvwaddnstr(actual[1], 0, 0, data, pos_actual);
119         wattron(actual[1], A_BOLD);
120         waddnstr(actual[1], data+pos_actual, ancho_registro);
121         wattroff(actual[1], A_BOLD);
122         waddnstr(actual[1], data+pos_actual+ancho_registro, size-(pos_actual+ancho_registro));
123         
124         wrefresh(actual[1]);
125         wrefresh(actual[0]);
126         wrefresh(padre);
127         scroll = 0;
128         while ((c=getch()) != 13) {
129                 switch (c) {
130                         case 'b':
131                         case 'B':
132                                 dlg = newwin(4, 50, h/2-2, w/2-25);
133                                 box(dlg, 0, 0);
134                                 preguntar_id(dlg, fp);
135                                 werase(dlg);
136                                 wrefresh(dlg);
137                                 delwin(dlg);
138                                 wrefresh(padre);
139                                 curs_set(0);
140                         break;
141                         case 'e':
142                         case 'E':
143                                 if (indices_actual != EMUFS_NOT_FOUND)
144                                         fp->borrar_registro(fp, indices[indices_actual]);
145         
146                                 free(indices);
147                                 indices = emufs_idx_get(fp, &indices_total);
148                                 if (indices_actual >= indices_total) {
149                                         indices_actual = indices_total - 1;
150                                 }
151                                 
152                                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
153                                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
154                         break;
155                         case 'g':
156                         case 'G':
157                                 if (cual == 0)
158                                         art_agregar(NULL);
159                                 else
160                                         fact_agregar(NULL);
161                                 free(data);
162                                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
163                                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
164         
165                                 free(indices);
166                                 indices = emufs_idx_get(fp, &indices_total);
167
168                                 /* Tengo que re-pintar algunas cosas */
169                                 mostrar_info(padre, h, offset_alto);
170                                 box(actual[0], 0, 0);
171                                 wrefresh(actual[0]);
172                         break;                  
173                         case 'M':
174                         case 'm': /* Quiero editar !!! */
175                                 sprintf(codigo, "%lu", indices[indices_actual]);
176                                 if (cual == 0)
177                                         art_modificar(codigo);  
178                                 else
179                                         fact_modificar(codigo);
180                                 /* Vuelvo a cargar el articulo actual */
181                                 
182                                 free(data);
183                                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
184                                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
185
186                                 /* Tengo que re-pintar algunas cosas */
187                                 mostrar_info(padre, h, offset_alto);
188                                 box(actual[0], 0, 0);
189                                 wrefresh(actual[0]);
190                         break;
191                         case 'a': /* Scroll */
192                                 scroll--;
193                                 if (scroll < 0) scroll = 0;
194                         break;
195                         case 'z': /* Scroll */
196                                 scroll++;
197                                 if (scroll > max_scroll) scroll = max_scroll;
198                         break;
199                         case 'l':
200                                 if (indices_actual < indices_total) {
201                                         indices_actual++;
202                                         if (indices_actual >= indices_total) indices_actual = indices_total-1;
203                                         if (data) free(data);
204                                         data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
205                                         data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
206                                 }
207                         break;
208                         case 'k':
209                                 if (indices_actual != EMUFS_NOT_FOUND) {
210                                         indices_actual--;
211                                         if (indices_actual == EMUFS_NOT_FOUND) indices_actual = 0;
212                                         if (data) free(data);
213                                         data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
214                                         data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
215                                 }
216
217                 }
218                 /* Borro las ventanas */
219                 werase(actual[1]);
220
221                 /* Imprimo los registros */
222                 if (data) {
223                         offset = scroll*actual_ancho;
224                         pos = pos_actual - offset;
225                         mvwaddnstr(actual[1], 0, 0, data+offset, pos);
226                         offset += pos;
227                         wattron(actual[1], A_BOLD);
228                         waddnstr(actual[1], data+offset, ancho_registro);
229                         wattroff(actual[1], A_BOLD);
230                         offset += ancho_registro;
231                         waddnstr(actual[1], data+offset, size-offset);
232                 }
233
234                 wrefresh(actual[1]);
235                 wrefresh(padre);
236         }
237         if (indices) free(indices);
238         if (data) free(data);
239
240         emufs_destruir(fp);
241         delwin(actual[0]);
242         wrefresh(padre);
243         curs_set(1);
244 }
245
246 char *procesar_registro_articulo_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
247 {
248         char *tmp, *salida, *tmp1, pos_actualizada, ant;
249         int cant_header, i=0, j, tam_data;
250         if (ptr == NULL) return NULL;
251
252         /* Calculo cuantos headers de registros va a haber en el archivo */
253         if (emu->tam_bloque > emu->tam_reg) {
254                 cant_header = emu->tam_bloque / (emu->tam_reg+sizeof(EMUFS_REG_ID));
255                 if (cant_header == 0) cant_header++; /* Si tam_reg > tam_bloque, voy a tener solo 1 header */
256                 tam_data = sizeof(t_Articulo)-sizeof(unsigned int);
257         } else {
258                 cant_header = 1;
259                 tam_data = *size - sizeof(EMUFS_REG_ID)-sizeof(unsigned int);
260         }
261
262         /* El tamaƱo del nuevo array lo calculo asi :
263          *   
264          *   tamaƱoviejo - tamaƱo_headers_en_int - tamaƱo_ints_en_registro
265          *               + 10*(cant_headers+cant_registros) +1
266          *
267          *   En tipo3, la cantidad de headers y cant de registros es la misma
268          *   El 10 es por : (XXXXXXXX)
269          *   +1 == Por el \0
270          */
271         salida = (char *)malloc((*size)-sizeof(unsigned int)*cant_header*2 + 2*cant_header*10+1);
272         if (salida == NULL) {
273                 fprintf(stderr, "Error de malloc en salida\n");
274                 return NULL;
275         }
276         tmp = ptr;
277         tmp1 = salida;
278         pos_actualizada = 0;
279         while (i<cant_header) {
280                 fprintf(stderr, "voy a hacer el %d de %d\n", i, cant_header);
281                 /* Verifico la pos_actual para el resaltado, asi queda coherente 
282                  * en el cambio de formato
283                  */
284                 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
285                         (*pos_actual) = tmp1-salida;
286                         pos_actualizada = 1;
287                 }
288                 /* Pongo el ID del registro */
289                 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
290                 fprintf(stderr, "ID=%lu\n",*((EMUFS_REG_ID *)tmp) );
291                 tmp1 += 10;
292                 tmp += sizeof(EMUFS_REG_ID);
293                 /* Pongo el campo numero del registro */
294                 sprintf(tmp1, "[%08d]", *((unsigned int *)tmp));
295                 fprintf(stderr, "Numero=%d\n",*((unsigned int *)tmp) );
296                 tmp1 += 10;
297                 tmp += sizeof(unsigned int);
298                 j = 0;
299                 while (j < (tam_data)) {
300                         if (*tmp == '\0') {
301                                 if (ant == (*tmp))
302                                         (*tmp1) = '.';
303                                 else
304                                         (*tmp1) = '|';
305                         } else {
306                                 (*tmp1) = (*tmp);
307                         }
308                         ant = (*tmp);
309                         tmp++;
310                         tmp1++;
311                         j++;
312                 }
313                 i++;
314         }
315         free(ptr);
316         
317         if (emu->tam_bloque > emu->tam_reg) {
318                 (*size) = (*size)-sizeof(unsigned int)*cant_header*2+2*cant_header*10+1;
319                 (*ancho) = sizeof(t_Articulo)-sizeof(unsigned int)*2+20+1;
320         } else {
321                 (*size) = (*size)-sizeof(EMUFS_REG_ID)-sizeof(unsigned int)+21;
322                 (*ancho) = (*size);
323         }
324         memset(tmp1, '.', (*size)-(tmp1-salida)); 
325         salida[*size-1] = '\0';
326
327         return salida;
328 }
329
330 char *procesar_registro_articulo_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
331 {
332         EMUFS_REG_SIZE offset, curr_size;
333         char *tmp, *salida, *tmp1, pos_actualizada, ant;
334         int cant_header, i=0, j;
335         if (ptr == NULL) return NULL;
336         
337         /* Cuento la cantidad de registros en este bloque */
338         cant_header = 0;
339         offset = 0;
340         fprintf(stderr, "Tam = %lu\n", *size);
341         do {
342                 /* Me salto el ID, que no me interesa saber su valor */
343                 offset += sizeof(EMUFS_REG_ID);
344                 /* Copio el tamaƱo del registro de la cabecera. */
345                 memcpy(&curr_size, ptr + offset, sizeof(EMUFS_REG_SIZE));
346                 offset += sizeof(EMUFS_REG_SIZE);
347
348                 /* Desplazo el offset */
349                 if (curr_size == 0) {
350                         /* Si el tamaƱo de registro es 0, quiere decir que llegue a la
351                          * parte que esta vacia */
352                         break;
353                 } else {
354                         cant_header++;
355                         offset += curr_size;
356                         fprintf(stderr, "Sume %lu\n", curr_size);
357                 }
358         } while (offset+sizeof(EMUFS_REG_SIZE)+sizeof(EMUFS_REG_ID) < (*size));
359
360         /* Proceso */
361         fprintf(stderr, "Cantidad de headers = %d\n", cant_header);
362         salida = (char *)malloc((*size)-sizeof(unsigned int)*cant_header*3 + 3*cant_header*10+1);
363         tmp = ptr;
364         tmp1 = salida;
365         pos_actualizada = 0;
366         while (i<cant_header) {
367                 /* Verifico la pos_actual para el resaltado, asi queda coherente 
368                  * en el cambio de formato
369                  */
370                 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
371                         (*pos_actual) = tmp1-salida;
372                         pos_actualizada = 1;
373                 }
374                 /* Pongo el ID del registro */
375                 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
376                 tmp1 += 10;
377                 tmp += sizeof(EMUFS_REG_ID);
378                 /* Pongo el tamaƱo del registro */
379                 sprintf(tmp1, "{%08lu}", *((EMUFS_REG_SIZE *)tmp));
380                 curr_size = *((EMUFS_REG_SIZE *)tmp);
381                 if (pos_actualizada == 1) {
382                         (*ancho) = curr_size-sizeof(unsigned int)+30;
383                         pos_actualizada = 2;
384                 }
385                 tmp1 += 10;
386                 tmp += sizeof(EMUFS_REG_SIZE);
387                 /* Pongo el campo numero del registro */
388                 sprintf(tmp1, "[%08d]", *((unsigned int *)tmp));
389                 tmp1 += 10;
390                 tmp += sizeof(unsigned int);
391                 j = sizeof(unsigned int);
392                 PERR("Voy aca");
393                 fprintf(stderr, "son %lu\n", curr_size);
394                 while (j < curr_size) {
395                         if (*tmp == '\0') {
396                                 if (ant == (*tmp))
397                                         (*tmp1) = '.';
398                                 else
399                                         (*tmp1) = '|';
400                         } else {
401                                 (*tmp1) = (*tmp);
402                         }
403                         ant = (*tmp);
404                         tmp++;
405                         tmp1++;
406                         j++;
407                 }
408                 PERR("Y hasta todo bien");
409                 i++;
410         }
411         /* Tengo que trabajar sobre lo que me falte (seguro es espacio libre) */
412         (*size) = (*size)-sizeof(unsigned int)*cant_header*3+3*cant_header*10+1;
413         memset(tmp1, '.', (*size)-(tmp1-salida)); 
414         free(ptr);
415         salida[*size-1] = '\0';
416         
417         return salida;
418 }
419
420 int preguntar_id(WINDOW *win, EMUFS *fp)
421 {
422         int n=-1, j=0;
423         t_Form *form = form_crear(win);
424         form_agregar_widget(form, INPUT, "ID a buscar", 8, "");
425
426         do {
427                 if (j != 0) {
428                         curs_set(0);
429                         wattron(win, COLOR_PAIR(COLOR_YELLOW));
430                         wattron(win, A_BOLD);
431                         mvwaddstr(win, 2, 1, "Registro no encontrado!!");
432                         wattroff(win, A_BOLD);
433                         wattroff(win, COLOR_PAIR(COLOR_YELLOW));
434                         wrefresh(win);
435                         getch();
436                         werase(win);
437                         box(win, 0, 0);
438                 }
439                 form_ejecutar(form, 1,1);
440
441                 n = form_obtener_valor_int(form, "ID a buscar");
442                 j = 1;
443         } while (emufs_idx_existe_id(fp, n) != 0);
444
445         form_destruir(form);
446         return n;
447 }
448
449 char *procesar_registro_factura_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
450 {
451         char *tmp, *salida, *tmp1, pos_actualizada, ant;
452         char flotante[10];
453         int cant_header, i=0, j, tam_data, k;
454         int cant_items;
455         if (ptr == NULL) return NULL;
456
457         PERR("Empieza el baile");
458
459         /* Calculo cuantos headers de registros va a haber en el archivo */
460         if (emu->tam_bloque > emu->tam_reg) {
461                 cant_header = emu->tam_bloque / (emu->tam_reg+sizeof(EMUFS_REG_ID));
462                 if (cant_header == 0) cant_header++; /* Si tam_reg > tam_bloque, voy a tener solo 1 header */
463                 tam_data = emu->tam_reg-sizeof(int)*3-sizeof(float)-sizeof(EMUFS_BLOCK_ID);
464         } else {
465                 cant_header = 1;
466                 tam_data = (*size) - sizeof(EMUFS_REG_ID)-sizeof(int)*3-sizeof(float)-sizeof(EMUFS_BLOCK_ID);
467         }
468
469         fprintf(stderr, "Tengo %d headers\n", cant_header);
470         /* El tamaƱo del nuevo array lo calculo asi :
471          *   
472          */
473         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);*/
474         if (salida == NULL) {
475                 PERR("Error de malloc en salida");
476                 return NULL;
477         }
478         tmp = ptr;
479         pos_actualizada = 0;
480         (*ancho) = 0;
481         while (i<cant_header) {
482                 /* Verifico la pos_actual para el resaltado, asi queda coherente 
483                  * en el cambio de formato
484                  */
485                 fprintf(stderr, "%d == %d\n", tmp-ptr, *pos_actual);
486                 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
487                         (*pos_actual) = tmp1-salida;
488                         pos_actualizada = 1;
489                 }
490                 /* Pongo el ID del registro */
491                 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
492                 tmp1 += 10;
493                 tmp += sizeof(EMUFS_REG_ID);
494                 /* Pongo el campo numero */
495                 sprintf(tmp1, "[%08d]", *((int *)tmp));
496                 tmp1 += 10;
497                 tmp += sizeof(int);
498                 /* Pongo campo procdoi */
499                 sprintf(flotante, "[%5.2f]", *((float *)tmp));
500                 memcpy(tmp1, flotante, strlen(flotante));
501                 tmp1 += strlen(flotante);
502                 tmp += sizeof(float);
503                 /* Pongo campo numero_remito */
504                 sprintf(tmp1, "[%08d]", *((int *)tmp));
505                 tmp1 += 10;
506                 tmp += sizeof(int);
507                 /* Pongo numero de items */
508                 sprintf(tmp1, "[%08d]", *((int *)tmp));
509                 cant_items = *((int *)tmp);
510                 tmp1 += 10;
511                 tmp += sizeof(int);
512                 /* Pongo reg_nota */
513                 sprintf(tmp1, "{%08lu}", *((EMUFS_BLOCK_ID*)tmp));
514                 tmp1 += 10;
515                 tmp += sizeof(EMUFS_BLOCK_ID);
516
517                 if (pos_actualizada == 1) {
518                         (*ancho) = 50+strlen(flotante);
519                 }
520                 j = 0;
521                 while (j < (tam_data-10*sizeof(t_Item))) {
522                         if (*tmp == '\0') {
523                                 if (ant == (*tmp)){
524                                         (*tmp1) = '.';
525                                 } else {
526                                         (*tmp1) = '|';
527                                 }
528                         } else {
529                                 (*tmp1) = (*tmp);
530                         }
531                         ant = (*tmp);
532                         tmp++;
533                         tmp1++;
534                         if (pos_actualizada == 1)
535                                 (*ancho)++;
536                         j++;
537                 }
538                 /* Ahora proceso los items */
539                 k = 0;
540                 while (k < 10) {
541                         sprintf(tmp1, "[%08d]", *((int *)tmp));
542                         tmp1 += 10;
543                         tmp += sizeof(int);
544                         if (pos_actualizada == 1)
545                                 (*ancho)+=10;
546                         j = 0;
547                         while (j < (sizeof(t_Item)-sizeof(int))) {
548                                 if (*tmp == '\0') {
549                                         if (ant == (*tmp)){
550                                                 (*tmp1) = '.';
551                                         } else {
552                                                 (*tmp1) = '|';
553                                         }
554                                 } else {
555                                         (*tmp1) = (*tmp);
556                                 }
557                                 ant = (*tmp);
558                                 tmp++;
559                                 tmp1++;
560                                 if (pos_actualizada == 1)
561                                         (*ancho)++;
562                                 j++;
563                         }
564                         k++;
565                 }
566                 if (pos_actualizada == 1)
567                         pos_actualizada = 2;
568                 i++;
569         }
570         free(ptr);
571
572         PERR("Termine");
573         if (emu->tam_bloque > emu->tam_reg) {
574                 (*size) = tmp1-salida;
575         } else {
576                 (*size) = tmp1-salida;
577                 (*ancho) = tmp1-salida;
578         }
579         salida[*size-1] = '\0';
580
581         return salida;
582 }