* Empieza el baile de usar indices desde la gui

[z.facultad/75.06/emufs.git] / emufs_gui / emufs_view.c

diff --git a/emufs_gui/emufs_view.c b/emufs_gui/emufs_view.c
index 9f6f226c218392af57d0e1769d412ee83d188522..ac236a2a8f73f9a61923e58f7c7d8e1ad3ef3b74 100644 (file)
--- a/emufs_gui/emufs_view.c
+++ b/emufs_gui/emufs_view.c
@@ -1,5 +1,4 @@
 
 

-

 #include <stdlib.h>
 #include <curses.h>
 #include <menu.h>
 #include <stdlib.h>
 #include <curses.h>
 #include <menu.h>


@@ -26,7 +25,8 @@ void menu_mantenimiento();
 void menu_estadisticas();
 void menu_ver_registros();
 void menu_ver_bloques();
 void menu_estadisticas();
 void menu_ver_registros();
 void menu_ver_bloques();

-void preguntar_nuevo_tipo(int *tipo, int *tam_bloque, int *tam_reg);
+void preguntar_nuevo_tipo(const char *title, int *tipo, int *tam_bloque, int *tam_reg);
+char *preguntar_file();

 
 void ver_estadisticas(EMUFS *fp);
 
 
 void ver_estadisticas(EMUFS *fp);
 


@@ -46,14 +46,17 @@ struct _mis_param_ {
        int xml_art; /* Pos en argv del archivo XML a usar para articulos */
        char tipo_arch_fact; /* Tipo de archivo para Facturas */
        char tipo_arch_art; /* Tipo de archivo para Articulos */
        int xml_art; /* Pos en argv del archivo XML a usar para articulos */
        char tipo_arch_fact; /* Tipo de archivo para Facturas */
        char tipo_arch_art; /* Tipo de archivo para Articulos */

+       char tipo_arch_nota;

        EMUFS_BLOCK_SIZE tam_bloque_fact;
        EMUFS_BLOCK_SIZE tam_bloque_art;
        EMUFS_BLOCK_SIZE tam_bloque_fact;
        EMUFS_BLOCK_SIZE tam_bloque_art;

+       EMUFS_BLOCK_SIZE tam_bloque_nota;

 } parametros;
 
 /* Verifica Argumentos */
 t_Param param_ok(int argc, char *argv[])
 {
        int n,i;
 } parametros;
 
 /* Verifica Argumentos */
 t_Param param_ok(int argc, char *argv[])
 {
        int n,i;

+       int file;

        for(i=1; i<argc; i++) {
                if ((strcmp(argv[i], "-h")==0) || (strcmp(argv[i], "--help")==0)) return SHOW_HELP;
 
        for(i=1; i<argc; i++) {
                if ((strcmp(argv[i], "-h")==0) || (strcmp(argv[i], "--help")==0)) return SHOW_HELP;
 


@@ -68,8 +71,11 @@ t_Param param_ok(int argc, char *argv[])
                                        if (((n == 1) || (n == 3)) && ((i+2)>=argc))
                                                return BLOQUE_NO_DEFINIDO;
                                        parametros.tipo_arch_art = n;
                                        if (((n == 1) || (n == 3)) && ((i+2)>=argc))
                                                return BLOQUE_NO_DEFINIDO;
                                        parametros.tipo_arch_art = n;

-                                       parametros.tam_bloque_art = atoi(argv[i+2]);
-                                       if (parametros.tam_bloque_art <= 0) return NULL_BLOCK_FOUND;
+                                       if (n != 2) {
+                                               if ((i+2) >= argc) return NULL_BLOCK_FOUND;
+                                               parametros.tam_bloque_art = atoi(argv[i+2]);
+                                               if (parametros.tam_bloque_art <= 0) return NULL_BLOCK_FOUND;
+                                       }

                                        parametros.xml_art = i;
                                } else {
                                        /* Ops, no hay mas parametros */
                                        parametros.xml_art = i;
                                } else {
                                        /* Ops, no hay mas parametros */


@@ -85,15 +91,48 @@ t_Param param_ok(int argc, char *argv[])
                        if (i >= argc) return SHOW_HELP;
                        if (strcmp(argv[i]+strlen(argv[i])-3, "xml") == 0) {
                                /* Luego del archivo XML debe seguir el tipo */
                        if (i >= argc) return SHOW_HELP;
                        if (strcmp(argv[i]+strlen(argv[i])-3, "xml") == 0) {
                                /* Luego del archivo XML debe seguir el tipo */

-                               if ((i+1)<argc) {
-                                       n = atoi(argv[i+1]);
+                               file = i;
+                               i++;
+                               if (i<argc) {
+                                       n = atoi(argv[i]);

                                        if ((n < 1) || (n > 3)) return TIPO_INVALIDO;
                                        if ((n < 1) || (n > 3)) return TIPO_INVALIDO;

-                                       if (((n == 1) || (n == 3)) && ((i+2)>=argc))
+                                       if (((n == 1) || (n == 3)) && ((i+1)>=argc))

                                                return BLOQUE_NO_DEFINIDO;
                                        parametros.tipo_arch_fact = n;
                                                return BLOQUE_NO_DEFINIDO;
                                        parametros.tipo_arch_fact = n;

-                                       parametros.tam_bloque_fact = atoi(argv[i+2]);
-                                       if (parametros.tam_bloque_fact <= 0) return NULL_BLOCK_FOUND;
-                                       parametros.xml_fact = i;
+                                       i++;
+                                       switch (n) {
+                                               case 1:
+                                               case 3:
+                                                       parametros.tam_bloque_fact = atoi(argv[i]);
+                                                       if (parametros.tam_bloque_fact <= 0) return NULL_BLOCK_FOUND;
+                                                       i++;
+                                                       if (i >= argc) return SHOW_HELP;
+                                                       n = atoi(argv[i]);
+                                                       if ((n<1) || (n>3)) return SHOW_HELP;
+                                                       parametros.tipo_arch_nota = n;
+                                                       if (((n == 1) || (n == 3)) && ((i+1)>=argc))
+                                                               return SHOW_HELP;
+                                                       i++;
+                                                       if (n != 2) {
+                                                               parametros.tam_bloque_nota = atoi(argv[i]);
+                                                               if (parametros.tam_bloque_nota <= 0) return SHOW_HELP;
+                                                       }
+                                               break;
+                                               case 2:
+                                                       if (i >= argc) return SHOW_HELP;
+                                                       n = atoi(argv[i]);
+                                                       if ((n<1) || (n>3)) return SHOW_HELP;
+                                                       parametros.tipo_arch_nota = n;
+                                                       if (((n == 1) || (n == 3)) && ((i+1)>=argc))
+                                                               return SHOW_HELP;
+                                                       i++;
+                                                       if (n != 2) {
+                                                               parametros.tam_bloque_nota = atoi(argv[i]);
+                                                               if (parametros.tam_bloque_nota <= 0) return SHOW_HELP;
+                                                       }
+                                       }
+                                       PERR("ACA");
+                                       parametros.xml_fact = file;

                                } else {
                                        /* Ops, no hay mas parametros */
                                        return TIPO_NO_DEFINIDO;
                                } else {
                                        /* Ops, no hay mas parametros */
                                        return TIPO_NO_DEFINIDO;


@@ -110,8 +149,10 @@ t_Param param_ok(int argc, char *argv[])
 void print_help(char *s)
 {
        printf("EMUFS - 1v0\n");
 void print_help(char *s)
 {
        printf("EMUFS - 1v0\n");

-       printf("Modo de uso : %s [-[f|a] <archivo articulos XML> tipo [tamaño bloque]] \n", s);
+       printf("Modo de uso :%s -a <archivo XML> tipo -f <archivo XML> tipo [tam_bloque] tipo_n [tam_bloque_n]\n", s);

        printf("  -f indica que lo que está a continuación seran los datos para generar el archivo de facturas.\n");
        printf("  -f indica que lo que está a continuación seran los datos para generar el archivo de facturas.\n");

+       printf("     tipo_n == Tipo de archivo para el archivo de notas\n");
+       printf("     tam_bloque_n == Tamaño de bloque para el archivo de notas (si corresponde)\n");

        printf("  -a indica que lo que está a continuación seran los datos para generar el archivo de articulos.\n");
        printf("  'tipo' es el modo de archivo. Siendo :\n");
        printf("     1 - Registros long. variables con bloque parametrizado\n");
        printf("  -a indica que lo que está a continuación seran los datos para generar el archivo de articulos.\n");
        printf("  'tipo' es el modo de archivo. Siendo :\n");
        printf("     1 - Registros long. variables con bloque parametrizado\n");


@@ -213,40 +254,20 @@ int main(int argc, char *argv[])
                art_cargar(NULL, -1, -1);
        }
        if (parametros.xml_fact != -1) {
                art_cargar(NULL, -1, -1);
        }
        if (parametros.xml_fact != -1) {

-               fact_cargar(argv[parametros.xml_fact], parametros.tipo_arch_fact, parametros.tam_bloque_fact);
+               fact_cargar(
+                                       argv[parametros.xml_fact],
+                                       parametros.tipo_arch_fact,
+                                       parametros.tam_bloque_fact,
+                                       parametros.tipo_arch_nota,
+                                       parametros.tam_bloque_nota
+               );

        } else {
        } else {

-               fact_cargar(NULL, -1, -1);
+               fact_cargar(NULL, -1, -1, -1, -1);

        }
 
        msg_box_free(stdscr, dialog);
 
        }
 
        msg_box_free(stdscr, dialog);
 

-       /* CICLO PRINCIPAL DE LA APLICACION */
-       while ((c = main_menu()) != -1) {
-               switch (c) {
-                       case 0:
-                               menu_articulos();
-                       break;
-                       case 1:
-                               menu_facturas();
-                       break;
-                       case 2:
-                               menu_ver_registros();
-                       break;
-                       case 3:
-                               menu_ver_bloques();
-                       break;
-                       case 4:
-                               menu_estadisticas();
-                       break;
-                       case 5:
-                               menu_mantenimiento();
-                       break;
-                       case 6:
-                               fin = 1;
-                       break;
-               }
-               if (fin == 1) break;
-       }
+       main_menu();

 
        endwin();
 
 
        endwin();
 


@@ -341,25 +362,12 @@ void menu_ver_registros()
        WINDOW *dialog;
 
        while ((opt = menu_ejecutar(mi_menu, 4, "Menu Ver Registros")) != 3) {
        WINDOW *dialog;
 
        while ((opt = menu_ejecutar(mi_menu, 4, "Menu Ver Registros")) != 3) {

-               switch (opt) {
-                       case 0:
-                               dialog = derwin(stdscr, LINES-4, COLS-2, 2, 1);
-                               ver_registros(dialog, COLS-2, LINES-4, 0);
-                               werase(dialog);
-                               wrefresh(dialog);
-                               delwin(dialog);
-                               refresh();
-                       break;
-                       case 1:
-                               dialog = derwin(stdscr, LINES-4, COLS-2, 2, 1);
-                               ver_registros(dialog, COLS-2, LINES-4, 1);
-                               werase(dialog);
-                               wrefresh(dialog);
-                               delwin(dialog);
-                               refresh();
- /*                    break; */
-       /*              case 2: */
-               }
+               dialog = derwin(stdscr, LINES-4, COLS-2, 2, 1);
+               ver_registros(dialog, COLS-2, LINES-4, opt);
+               werase(dialog);
+               wrefresh(dialog);
+               delwin(dialog);
+               refresh();

        }
 }
 
        }
 }
 


@@ -405,6 +413,7 @@ void menu_ver_bloques()
 
 int main_menu()
 {
 
 int main_menu()
 {

+       int c;

        MENU(mi_menu) {
                MENU_OPCION("Articulos","Alta,baja,consulta y modificacion de articulos."),
                MENU_OPCION("Facturas","Alta,baja,consulta y modificacion de facturas."),
        MENU(mi_menu) {
                MENU_OPCION("Articulos","Alta,baja,consulta y modificacion de articulos."),
                MENU_OPCION("Facturas","Alta,baja,consulta y modificacion de facturas."),


@@ -415,7 +424,29 @@ int main_menu()
                MENU_OPCION("Salir", "Salir del sistema.")
        };
 
                MENU_OPCION("Salir", "Salir del sistema.")
        };
 

-       return menu_ejecutar(mi_menu, 7, "Menu Principal");
+       while ((c=menu_ejecutar(mi_menu, 7, "Menu Principal"))) {
+               switch (c) {
+                       case 0:
+                               menu_articulos();
+                       break;
+                       case 1:
+                               menu_facturas();
+                       break;
+                       case 2:
+                               menu_ver_registros();
+                       break;
+                       case 3:
+                               menu_ver_bloques();
+                       break;
+                       case 4:
+                               menu_estadisticas();
+                       break;
+                       case 5:
+                               menu_mantenimiento();
+               }
+       }
+
+       return 0;

 }
 
 
 }
 
 


@@ -464,16 +495,18 @@ void menu_mantenimiento()
                MENU_OPCION("Compactar Notas","Elimina espacio no utilizado."),
                MENU_OPCION("Cambiar tipo Archivo Articulos","Permite cambiar el tipo del archivo."),
                MENU_OPCION("Cambiar tipo Archivo Facturas","Permite cambiar el tipo del archivo."),
                MENU_OPCION("Compactar Notas","Elimina espacio no utilizado."),
                MENU_OPCION("Cambiar tipo Archivo Articulos","Permite cambiar el tipo del archivo."),
                MENU_OPCION("Cambiar tipo Archivo Facturas","Permite cambiar el tipo del archivo."),

-               MENU_OPCION("Cambiar tipo Archivo Notas","Permite cambiar el tipo del archivo."),
+               MENU_OPCION("Exportar Articulos", "Genera un archivo XML con los articulos."),
+               MENU_OPCION("Expostar Facturas", "Genera un archivo XML con las facturas."),

                MENU_OPCION("Volver", "Volver al menu anterior.")
        };
 
        int opt;
                MENU_OPCION("Volver", "Volver al menu anterior.")
        };
 
        int opt;

-       int nuevo_tam_registro, nuevo_tam_bloque;
-       int nuevo_tipo;
+       int nuevo_tam_registro, nuevo_tam_bloque, nuevo_tipo;
+       int nuevo_tam_registro1, nuevo_tam_bloque1, nuevo_tipo1;

        WINDOW *dlg;
        WINDOW *dlg;

+       char *s;

 
 

-       while ((opt = menu_ejecutar(mi_menu, 7, "Menu Mantenimiento")) != 6) {
+       while ((opt = menu_ejecutar(mi_menu, 8, "Menu Mantenimiento")) != 7) {

                switch (opt) {
                        case 0:
                                dlg = msg_box(stdscr, COLS, LINES, "Compactando archivo.... Aguarde");
                switch (opt) {
                        case 0:
                                dlg = msg_box(stdscr, COLS, LINES, "Compactando archivo.... Aguarde");


@@ -492,23 +525,43 @@ void menu_mantenimiento()
                        break;
                        case 3:
                                nuevo_tam_registro = -1; /* No permito cambiar el tamaño de registro */
                        break;
                        case 3:
                                nuevo_tam_registro = -1; /* No permito cambiar el tamaño de registro */

-                               preguntar_nuevo_tipo(&nuevo_tipo, &nuevo_tam_bloque, &nuevo_tam_registro);
+                               preguntar_nuevo_tipo("Parametros para  Articulos", &nuevo_tipo, &nuevo_tam_bloque, &nuevo_tam_registro);

                                dlg = msg_box(stdscr, COLS, LINES, "Cambiando el formato de archivo .... Aguarde");
                                art_reformatear(nuevo_tipo, nuevo_tam_bloque, nuevo_tam_registro);
                                msg_box_free(stdscr, dlg);
                        break;
                        case 4:
                                nuevo_tam_registro = 0;
                                dlg = msg_box(stdscr, COLS, LINES, "Cambiando el formato de archivo .... Aguarde");
                                art_reformatear(nuevo_tipo, nuevo_tam_bloque, nuevo_tam_registro);
                                msg_box_free(stdscr, dlg);
                        break;
                        case 4:
                                nuevo_tam_registro = 0;

-                               preguntar_nuevo_tipo(&nuevo_tipo, &nuevo_tam_bloque, &nuevo_tam_registro);
+                               preguntar_nuevo_tipo("Parametros para Facturas", &nuevo_tipo, &nuevo_tam_bloque, &nuevo_tam_registro);
+                               preguntar_nuevo_tipo("Parametros para Notas", &nuevo_tipo1, &nuevo_tam_bloque1, &nuevo_tam_registro1);
+                               dlg = msg_box(stdscr, COLS, LINES, "Cambiando el formato de archivo .... Aguarde");
+                               fact_reformatear(nuevo_tipo, nuevo_tam_bloque, nuevo_tam_registro, nuevo_tipo1, nuevo_tam_bloque1, nuevo_tam_registro1);
+                               msg_box_free(stdscr, dlg);

                        break;
                        case 5:
                        break;
                        case 5:

-                               nuevo_tam_registro = -2;
-                               preguntar_nuevo_tipo(&nuevo_tipo, &nuevo_tam_bloque, &nuevo_tam_registro);
+                               s = preguntar_file();
+                               if (s) {
+                                       dlg = msg_box(stdscr, COLS, LINES, "Exportando .... Aguarde");
+                                       PERR("Exportando");
+                                       art_exportar_xml(s);
+                                       msg_box_free(stdscr, dlg);
+                                       free(s);
+                               }
+                               break;
+                       case 6:
+                               s = preguntar_file();
+                               if (s) {
+                                       dlg = msg_box(stdscr, COLS, LINES, "Exportando .... Aguarde");
+                                       PERR("Exportando");
+                                       fact_exportar_xml(s);
+                                       msg_box_free(stdscr, dlg);
+                                       free(s);
+                               }

                }
        }
 }
 
                }
        }
 }
 

-void preguntar_nuevo_tipo(int *tipo, int *tam_bloque, int *tam_reg)
+void preguntar_nuevo_tipo(const char *title, int *tipo, int *tam_bloque, int *tam_reg)

 {
        WINDOW *win;
        t_Form *form;
 {
        WINDOW *win;
        t_Form *form;


@@ -518,6 +571,7 @@ void preguntar_nuevo_tipo(int *tipo, int *tam_bloque, int *tam_reg)
        win = newwin(LINES/2, COLS/2, LINES/4, COLS/4);
        box(win, 0, 0);
 
        win = newwin(LINES/2, COLS/2, LINES/4, COLS/4);
        box(win, 0, 0);
 

+       mvwaddstr(win, 0, 1, title);

        form = form_crear(win);
        form_agregar_widget(form, RADIO, "Tipo de archivo", 3, "T1,T2,T3");
        form_ejecutar(form, 1,1);
        form = form_crear(win);
        form_agregar_widget(form, RADIO, "Tipo de archivo", 3, "T1,T2,T3");
        form_ejecutar(form, 1,1);


@@ -622,42 +676,33 @@ void ver_estadisticas(EMUFS *fp)
                        waddstr(win, s);
        }
 
                        waddstr(win, s);
        }
 

+

        wattron(win, A_BOLD);
        wattron(win, A_BOLD);

-       mvwaddstr(win, i++, 1, "Cant. Registros : ");
+       mvwaddstr(win, i++, 1, "Tamaño ocupado por datos / Tamaño archivo : ");

        wattroff(win, A_BOLD);
        wattroff(win, A_BOLD);

-       sprintf(s, "%lu", stats.tam_archivo);
+       sprintf(s, "%lu/%lu bytes (%.2f %%)", 
+                       stats.tam_archivo - stats.tam_info_control_dat - stats.total_fs,stats.tam_archivo,
+                       (stats.tam_archivo-stats.tam_info_control_dat-stats.total_fs)*100.0f/(float)stats.tam_archivo);

        waddstr(win, s);
        waddstr(win, s);

-
+       

        wattron(win, A_BOLD);
        wattron(win, A_BOLD);

-       mvwaddstr(win, i++, 1, "Tamaño de Archivo : ");
+       mvwaddstr(win, i++, 1, "Tamaño info de control(1) / Tamaño archivo : ");

        wattroff(win, A_BOLD);
        wattroff(win, A_BOLD);

-       sprintf(s, "%lu bytes", stats.tam_archivo_bytes);
+       sprintf(s, "%lu/%lu bytes (%.2f %%)", stats.tam_info_control_dat+stats.tam_archivos_aux, stats.tam_archivo, (stats.tam_info_control_dat+stats.tam_archivos_aux)*100.0f/(float)stats.tam_archivo);

        waddstr(win, s);
 
        wattron(win, A_BOLD);
        waddstr(win, s);
 
        wattron(win, A_BOLD);

-       mvwaddstr(win, i++, 1, "Tamaño de Datos : ");
+       mvwaddstr(win, i++, 1, "Espacio Libre / Tamaño archivo : ");

        wattroff(win, A_BOLD);
        wattroff(win, A_BOLD);

-       sprintf(s, "%lu bytes (%.2f %%)", stats.tam_archivo_bytes-stats.info_control, (stats.tam_archivo_bytes-stats.info_control)*100.0f/(float)stats.tam_archivo_bytes);
+       sprintf(s, "%lu/%lu bytes (%.2f %%)", stats.total_fs, stats.tam_archivo, stats.total_fs*100.0f/(float)stats.tam_archivo);

        waddstr(win, s);
        
        waddstr(win, s);
        

-       wattron(win, A_BOLD);
-       mvwaddstr(win, i++, 1, "Tamaño de Info de Control : ");
-       wattroff(win, A_BOLD);
-       sprintf(s, "%lu bytes (%.2f %%)", stats.info_control, stats.info_control*100.0f/(float)stats.tam_archivo_bytes);
-       waddstr(win, s);
-

        wattron(win, A_BOLD);
        mvwaddstr(win, i++, 1, "Media de espacio libre : ");
        wattroff(win, A_BOLD);
        sprintf(s, "%lu bytes/bloque", stats.media_fs);
        waddstr(win, s);
 
        wattron(win, A_BOLD);
        mvwaddstr(win, i++, 1, "Media de espacio libre : ");
        wattroff(win, A_BOLD);
        sprintf(s, "%lu bytes/bloque", stats.media_fs);
        waddstr(win, s);
 

-       wattron(win, A_BOLD);
-       mvwaddstr(win, i++, 1, "Espacio Libre : ");
-       wattroff(win, A_BOLD);
-       sprintf(s, "%lu bytes", stats.total_fs);
-       waddstr(win, s);
-

        wattron(win, A_BOLD);
        mvwaddstr(win, i++, 1, "Maximo de Espacio libre : ");
        wattroff(win, A_BOLD);
        wattron(win, A_BOLD);
        mvwaddstr(win, i++, 1, "Maximo de Espacio libre : ");
        wattroff(win, A_BOLD);


@@ -671,11 +716,41 @@ void ver_estadisticas(EMUFS *fp)
        waddstr(win, s);
 
        wattron(win, A_BOLD);
        waddstr(win, s);
 
        wattron(win, A_BOLD);

-       mvwaddstr(win, i++, 1, "Cantidad de bloques : ");
+       mvwaddstr(win, i++, 1, "Tamaño de Archivo de datos : ");
+       wattroff(win, A_BOLD);
+       sprintf(s, "%lu bytes", stats.tam_archivo);
+       waddstr(win, s);
+       
+       wattron(win, A_BOLD);
+       mvwaddstr(win, i++, 1, "Tamaño de Archivos auxiliares : ");

        wattroff(win, A_BOLD);
        wattroff(win, A_BOLD);

-       sprintf(s, "%lu", stats.cant_bloques);
+       sprintf(s, "%lu bytes", stats.tam_archivos_aux);

        waddstr(win, s);
        
        waddstr(win, s);
        

+       wattron(win, A_BOLD);
+       mvwaddstr(win, i++, 1, "Información de control en el .dat : ");
+       wattroff(win, A_BOLD);
+       sprintf(s, "%lu bytes", stats.tam_info_control_dat);
+       waddstr(win, s);
+       
+       if ((fp->tipo == T1) || (fp->tipo == T3)) {
+               wattron(win, A_BOLD);
+               mvwaddstr(win, i++, 1, "Cantidad de bloques : ");
+               wattroff(win, A_BOLD);
+               sprintf(s, "%lu", stats.cant_bloques);
+               waddstr(win, s);
+       }
+       
+       wattron(win, A_BOLD);
+       mvwaddstr(win, i++, 1, "Cant. Registros : ");
+       wattroff(win, A_BOLD);
+       sprintf(s, "%lu", stats.cant_registros);
+       waddstr(win, s);
+       
+       wattron(win, A_BOLD);
+       mvwaddstr(win, i++, 1, "(1) Info control del .dat + los archivos auxiliares!.");
+       wattroff(win, A_BOLD);
+       

        wattron(win, A_BLINK);
        mvwaddstr(win, i+2, 1, "Presione una tecla para continuar.");
        wattroff(win, A_BLINK);
        wattron(win, A_BLINK);
        mvwaddstr(win, i+2, 1, "Presione una tecla para continuar.");
        wattroff(win, A_BLINK);


@@ -688,3 +763,27 @@ void ver_estadisticas(EMUFS *fp)
        delwin(win);
 }
 
        delwin(win);
 }
 

+char *preguntar_file()
+{
+       WINDOW *win;
+       t_Form *form;
+       char *s, *t;
+
+       win = newwin(LINES/2, COLS/2, LINES/4, COLS/4);
+       box(win, 0, 0);
+
+       form = form_crear(win);
+       form_agregar_widget(form, INPUT, "Nombre de archivo", 30, "");
+       form_ejecutar(form, 1,1);
+
+       s = form_obtener_valor_char(form, "Nombre de archivo");
+
+       if (strlen(s) == 0) {
+               form_destruir(form);
+               return NULL;
+       }
+       t = (char *)malloc(sizeof(char*)*(strlen(s)+1));
+       strcpy(t, s);
+       form_destruir(form);
+       return t;
+}