]> git.llucax.com Git - z.facultad/75.06/emufs.git/blobdiff - emufs_gui/gui.c
* Algunos detalles
[z.facultad/75.06/emufs.git] / emufs_gui / gui.c
index ccc93116833b5bcab3276554b835461317b37040..ff7e68b7bb7d8c39381d1ae0b5b714f9624c363d 100644 (file)
@@ -1,4 +1,5 @@
 
+
 #include <stdlib.h>
 #include <curses.h>
 #include <menu.h>
@@ -6,6 +7,7 @@
 #include <string.h>
 #include <stdarg.h>
 
+#include "menu.h"
 #include "form.h"
 #include "articulos.h"
 #include "facturas.h"
@@ -18,35 +20,106 @@ static void finish(int sig);
 
 int main_menu();
 void menu_articulos();
+void menu_facturas();
+void menu_mantenimiento();
+void menu_estadisticas();
+void menu_ver_registros();
+void preguntar_nuevo_tipo(int *tipo, int *tam_bloque, int *tam_reg);
+
+void ver_estadisticas(EMUFS *fp);
+
 /* cuadro de msg. w y h son de la ventana padre */
 WINDOW *msg_box(WINDOW *win, int w, int h, const char *format, ...);
 void msg_box_free(WINDOW *padre, WINDOW *win);
 
+typedef enum {
+               PARAM_OK, /* Parametros estan ok */
+               NO_ART_FILE,  /* No se especifico nombre de archivo Articulos */
+               NO_FACT_FILE, /* No se especifico nombre de archivo Facturas */
+               SHOW_HELP,    /* Mostrar ayuda encontrado */
+               TIPO_NO_DEFINIDO, /* No se definio tipo de archivo */
+               TIPO_INVALIDO,    /* El valor de tipo de archivo no es valido */
+               BLOQUE_NO_DEFINIDO, /* No se especifico tamaño de bloque */
+               NULL_BLOCK_FOUND    /* Tamaño de bloque <= 0!!! */
+} t_Param;
+
+struct _mis_param_ {
+       int xml_fact; /* Pos en argv  del archivo XML a usar para facturas */
+       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 */
+       EMUFS_BLOCK_SIZE tam_bloque_fact;
+       EMUFS_BLOCK_SIZE tam_bloque_art;
+} parametros;
+
 /* Verifica Argumentos */
-int param_ok(int argc, char *argv[])
+t_Param param_ok(int argc, char *argv[])
 {
-       int n;
-       switch (argc) {
-               case 1:
-                       return 1;
-               case 2:
-                       if (strcmp("-h", argv[1]) == 0) {
-                               return 0;
+       int n,i;
+       for(i=1; i<argc; i++) {
+               if ((strcmp(argv[i], "-h")==0) || (strcmp(argv[i], "--help")==0)) return SHOW_HELP;
+
+               if (strcmp(argv[i], "-a") == 0) { /* Articulos! */
+                       i++;
+                       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]);
+                                       if ((n < 1) || (n > 3)) return TIPO_INVALIDO;
+                                       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;
+                                       parametros.xml_art = i;
+                               } else {
+                                       /* Ops, no hay mas parametros */
+                                       return TIPO_NO_DEFINIDO;
+                               }
+                       } else {
+                               return NO_ART_FILE;
                        }
-               case 3:
-                       n = atoi(argv[2]);
-                       if ((n<1) || (n>3))
-                               return 0;
+               } /* Articulos */
+
+               if (strcmp(argv[i], "-f") == 0) { /* Facturas! */
+                       i++;
+                       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]);
+                                       if ((n < 1) || (n > 3)) return TIPO_INVALIDO;
+                                       if (((n == 1) || (n == 3)) && ((i+2)>=argc))
+                                               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;
+                               } else {
+                                       /* Ops, no hay mas parametros */
+                                       return TIPO_NO_DEFINIDO;
+                               }
+                       } else {
+                               return NO_FACT_FILE;
+                       }
+               } /* Facturas */
+               
        }
-       return 1;
+       return PARAM_OK;
 }
 
 void print_help(char *s)
 {
        printf("EMUFS - 1v0\n");
-       printf("Modo de uso : %s [<archivo articulos XML> tipo=[1|2|3]]\n", s);
-       printf("\nSi especifica un archivo XML desde donde cargar los articulos debera tambien especificar el tipo");
-       printf(" de archivo a crear, siendo 1, 2, 3\n");
+       printf("Modo de uso : %s [-[f|a] <archivo articulos XML> tipo [tamaño bloque]] \n", s);
+       printf("  -f indica que lo que está a continuación seran los datos para generar el archivo de facturas.\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("     2 - Registros long. variables sin bloque\n");
+       printf("     3 - Registros long fija con bloque parametrizado\n");
+       printf("  tamaño bloque debe ser especificado solo en aquellos tipos que lo requiera.\n");
 }
 
 int main(int argc, char *argv[])
@@ -54,11 +127,49 @@ int main(int argc, char *argv[])
        int c, fin=0;
        WINDOW *dialog;
 
-       if (!param_ok(argc, argv)) {
-               print_help(argv[0]);
-               return -1;
+       parametros.xml_art = parametros.xml_fact = -1;
+       switch (param_ok(argc, argv)) {
+               case SHOW_HELP:
+                       print_help(argv[0]);
+                       return 0;
+               case TIPO_NO_DEFINIDO:
+                       printf("Falta parámetro requerido.\nLuego del nombre del archivo debe especificar el tipo de archivo\n");
+                       return 1;
+               case BLOQUE_NO_DEFINIDO:
+                       printf("Falta parámetro requerido.\nLuego del tipo de archivo debe especificar el tamaño del bloque a utilizar\n");
+                       return 1;
+               case TIPO_INVALIDO:
+                       printf("Tipo de archivo no valido. Los valores posibles para el tipo de archivo son:\n");
+                       printf("\t1 - Archivo de bloque parametrizado y registro de long. variable.\n");
+                       printf("\t2 - Archivo de registros variables sin bloques.\n");
+                       printf("\t3 - Archivos de bloque parametrizado y registro de long. parametrizada.\n");
+                       return 2;
+               case NO_ART_FILE:
+                       printf("Falta parámetro requerido.\nHa utilizado el modificador -a para crear los articulos a partir de un XML pero no ha especificado ningún archivo XML.\n");
+                       return 3;
+               case NO_FACT_FILE:
+                       printf("Falta parámetro requerido.\nHa utilizado el modificador -f para crear las facturas a partir de un XML pero no ha especificado ningún archivo XML.\n");
+                       return 3;
+               case NULL_BLOCK_FOUND:
+                       printf("Error de parámerto.\nHa ingresado un valor nulo como tamaño de bloque.\n");
+                       return 4;
+               case PARAM_OK:
+                       fin = 0;
        }
 
+#ifdef DEBUG
+       printf("CUIDADO! - Uds esta a punto de ejecutar EMUFS Gui compilado con mensajes de debug (-DDEBUG). ");
+       printf("Esto puede causar que ante un error alguna función trate de emitir un mensaje por pantalla ");
+       printf("haciendo que el aspecto visual se vea desvirtuado.\n\n");
+       printf("Todos los mensajes de error se envian por stderr, por lo que es conveniente que vuelva a ejecutar ");
+       printf("el programa de la siguiente manera :\n");
+       printf("\t#> %s <parametros> 2> error.log\n\n", argv[0]);
+       printf("De esta forma el SO se encargaga de redirigir stderr al archivo error.log y evitar algun problema en ");
+       printf("visualizacion de la aplicacion.\n");
+       printf("Para continuar **bajo su propio riesgo** presione una tecla. Puede cancelar la ejecucion en este punto con CTRL+C\n");
+       fgetc(stdin);
+#endif
+
        /* Inicio Curses */
        signal(SIGINT, finish);
        initscr();
@@ -97,11 +208,17 @@ int main(int argc, char *argv[])
        wrefresh(stdscr);
 
        dialog = msg_box(stdscr, COLS, LINES, "Generando archivos ...");
-       if (argc == 3) {
-               art_cargar(argv[1], atoi(argv[2]));
-               fact_cargar(argv[1]);
-       } else
-               art_cargar(NULL, -1);
+
+       if (parametros.xml_art != -1) {
+               art_cargar(argv[parametros.xml_art], parametros.tipo_arch_art, parametros.tam_bloque_art);
+       } else {
+               art_cargar(NULL, -1, -1);
+       }
+       if (parametros.xml_fact != -1) {
+               fact_cargar(argv[parametros.xml_fact], parametros.tipo_arch_fact, parametros.tam_bloque_fact);
+       } else {
+               fact_cargar(NULL, -1, -1);
+       }
 
        msg_box_free(stdscr, dialog);
 
@@ -111,16 +228,20 @@ int main(int argc, char *argv[])
                        case 0:
                                menu_articulos();
                        break;
-               //      case 1:
+                       case 1:
+                               menu_facturas();
+                       break;
                        case 2:
-                               dialog = derwin(stdscr, LINES-4, COLS-2, 2, 1);
-                               ver_registros(dialog, COLS-2, LINES-4);
-                               werase(dialog);
-                               wrefresh(dialog);
-                               delwin(dialog);
-                               refresh();
+                               menu_ver_registros();
+                       break;
+                       case 3:
+                       break;
+                       case 4:
+                               menu_estadisticas();
+                       break;
+                       case 5:
+                               menu_mantenimiento();
                        break;
-               //      case 3:
                        case 6:
                                fin = 1;
                        break;
@@ -136,181 +257,125 @@ int main(int argc, char *argv[])
        return 0;
 }
 
+void menu_facturas()
+{
+       MENU(mi_menu) {
+               MENU_OPCION("Alta", "Crear una nueva factura."),
+               MENU_OPCION("Baja", "Elimina una factura existente."),
+               MENU_OPCION("Modificacion", "Modifica una factura existente."),
+               MENU_OPCION("Volver", "Volver al menu anterior.")
+       };
+       int opt;
+               
+       while ((opt = menu_ejecutar(mi_menu, 4, "Menu Articulos")) != 3) {
+               switch (opt) {
+                       case 0:
+                               fact_agregar(NULL);
+                       break;
+                       case 1:
+                               fact_eliminar(NULL);
+                       break;
+                       case 2:
+                               fact_modificar(NULL);
+               }
+       }
+}
+
 void menu_articulos()
 {
-       WINDOW *menu_win;
-       MENU *menu;
-       ITEM **items;
-       int c, salir;
-       char *opciones[] = {
-                                       "Alta",
-                                       "Baja",
-                                       "Modificacion",
-                                       "Volver"
+       MENU(mi_menu) {
+               MENU_OPCION("Alta", "Crear un nuevo articulo."),
+               MENU_OPCION("Baja", "Elimina un articulo existente."),
+               MENU_OPCION("Modificacion", "Modifica un articulo existente."),
+               MENU_OPCION("Volver", "Volver al menu anterior.")
        };
+       int opt;
+               
+       while ((opt = menu_ejecutar(mi_menu, 4, "Menu Articulos")) != 3) {
+               switch (opt) {
+                       case 0:
+                               art_agregar(NULL);
+                       break;
+                       case 1:
+                               art_eliminar(NULL);
+                       break;
+                       case 2:
+                               art_modificar(NULL);
+               }
+       }
 
-       items = (ITEM **)calloc(5, sizeof(ITEM *));
-
-       items[0] = new_item(opciones[0], "Crear un nuevo articulo.");
-       set_item_userptr(items[0], art_agregar);
-       items[1] = new_item(opciones[1], "Eliminar un articulo existente.");
-       set_item_userptr(items[1], art_eliminar);
-       items[2] = new_item(opciones[2], "Modificar un articulo existente.");
-       set_item_userptr(items[2], art_modificar);
-       items[3] = new_item(opciones[3], "Volver al menu anterior.");
-       items[4] = NULL;
-
-       menu = new_menu((ITEM **)items);
-       menu_win = newwin(8, COLS-2, 3, 1);
-       keypad(menu_win, TRUE);
-       set_menu_mark(menu, " > ");
-       set_menu_win(menu, menu_win);
-       set_menu_sub(menu, derwin(menu_win, 5, COLS-4, 3, 1));
-
-       box(menu_win, 0, 0);
-       mvwaddch(menu_win, 2, 0, ACS_LTEE);
-       mvwhline(menu_win, 2, 1, ACS_HLINE, COLS-3);
-       mvwaddch(menu_win, 2, COLS-3, ACS_RTEE);
-       wattron(menu_win, COLOR_PAIR(COLOR_RED));
-       mvwaddstr(menu_win, 1, 1, "Menu Articulos");
-       wattroff(menu_win, COLOR_PAIR(COLOR_RED));
-       post_menu(menu);
-       wrefresh(menu_win);
+}
 
-       curs_set(0);
-       salir = 0;
-       while((!salir) && (c = getch()) != KEY_F(3)) {
-               switch(c) {
-                       case KEY_DOWN:
-                               menu_driver(menu, REQ_DOWN_ITEM);
-                               break;
-                       case KEY_UP:
-                               menu_driver(menu, REQ_UP_ITEM);
+void menu_estadisticas()
+{
+       MENU(mi_menu) {
+               MENU_OPCION("Articulos", "Ver datos del archivo de Articulos."),
+               MENU_OPCION("Facturas", "Ver datos del archivo de Facturas."),
+               MENU_OPCION("Notas", "Ver datos del archivo de Notas."),
+               MENU_OPCION("Volver", "Ir al menu anterior.")
+       };
+       int opt;
+
+       while ((opt = menu_ejecutar(mi_menu, 4, "Menu Estadisticas")) != 3) {
+               switch (opt) {
+                       case 0:
+                               ver_estadisticas( art_get_lst()->fp );
                        break;
-                       case 13:
-                       case 10: {
-                               ITEM *cur;
-                               void (*p)(char *);
-
-                               cur = current_item(menu);
-                               if (strcmp(item_name(cur), opciones[3]) == 0) {
-                                       salir = 1;
-                               } else {
-                                       p = item_userptr(cur);
-                                       unpost_menu(menu);
-                                       refresh();
-                                       p((char *)item_name(cur));
-                                       post_menu(menu);
-                                       box(menu_win,0,0);
-                                       mvwaddch(menu_win, 2, 0, ACS_LTEE);
-                                       mvwhline(menu_win, 2, 1, ACS_HLINE, 67);
-                                       mvwaddch(menu_win, 2, 67, ACS_RTEE);
-                                       wrefresh(menu_win);
-                               }
-                               pos_menu_cursor(menu);
-                       }
+                       case 1:
+                               ver_estadisticas( fact_get_lst()->fp );
+                       break;
+                       case 2:
+                               ver_estadisticas( fact_get_lst()->fp_texto );
                }
-               wrefresh(menu_win);
-       }       
-       curs_set(1);
-       
-       unpost_menu(menu);
-       delwin(menu_win);
-       free_item(items[0]);
-       free_item(items[1]);
-       free_item(items[2]);
-       free_item(items[3]);
-       free_menu(menu);
+       }
 }
 
-int main_menu()
+void menu_ver_registros()
 {
-       WINDOW *menu_win;
-       MENU *menu;
-       ITEM **items;
-       int c, salir, opcion;
-       char *opciones[] = {
-                                       "Articulos",
-                                       "Facturas",
-                                       "Ver Registros",
-                                       "Ver Bloques",
-                                       "Estadisticas",
-                                       "Mantenimiento",
-                                       "Salir"
+       MENU(mi_menu) {
+               MENU_OPCION("Articulos", "Ver registros del archivo de Articulos."),
+               MENU_OPCION("Facturas", "Ver registros del archivo de Facturas."),
+               MENU_OPCION("Notas", "Ver registros del archivo de Notas."),
+               MENU_OPCION("Volver", "Ir al menu anterior.")
        };
+       int opt;
+       WINDOW *dialog;
 
-       items = (ITEM **)calloc(8, sizeof(ITEM *));
-
-       items[0] = new_item(opciones[0], "Alta,baja,consulta y modificacion de articulos.");
-       items[1] = new_item(opciones[1], "Alta,baja,consulta y modificacion de facturas.");
-       items[2] = new_item(opciones[2], "Ver registros de un archivo.");
-       items[3] = new_item(opciones[3], "Ver bloques de un archivo.");
-       items[4] = new_item(opciones[4], "Ver estadisticas de ocupacion de archivos.");
-       items[5] = new_item(opciones[5], "Tareas de mantenimiento de los archivos.");
-       items[6] = new_item(opciones[6], "Salir del sistema.");
-       items[7] = NULL;
-
-       menu = new_menu((ITEM **)items);
-       menu_win = newwin(14, COLS-2, 3, 1);
-       keypad(menu_win, TRUE);
-       set_menu_mark(menu, " > ");
-       set_menu_win(menu, menu_win);
-       set_menu_sub(menu, derwin(menu_win, 10, COLS-4, 3, 1));
-
-       box(menu_win, 0, 0);
-       mvwaddch(menu_win, 2, 0, ACS_LTEE);
-       mvwhline(menu_win, 2, 1, ACS_HLINE, COLS-3);
-       mvwaddch(menu_win, 2, COLS-3, ACS_RTEE);
-       wattron(menu_win, COLOR_PAIR(COLOR_RED));
-       mvwaddstr(menu_win, 1, 1, "Menu Principal");
-       wattroff(menu_win, COLOR_PAIR(COLOR_RED));
-       post_menu(menu);
-       wrefresh(menu_win);
-
-       curs_set(0);
-       opcion = -1;
-       salir = 0;
-       while((!salir) && (c = getch())) {
-               switch(c) {
-                       case KEY_DOWN:
-                               menu_driver(menu, REQ_DOWN_ITEM);
-                               break;
-                       case KEY_UP:
-                               menu_driver(menu, REQ_UP_ITEM);
+       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 13:
-                       case 10: 
-                       {
-                               ITEM *cur;
-                               int i;
-
-                               cur = current_item(menu);
-                               for(i=0; i<7; ++i) {
-                                       if (strcmp(item_name(cur), opciones[i]) == 0)
-                                               opcion = i;
-                               }
-                               pos_menu_cursor(menu);
-                               salir = 1;
-                       }
+                       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: */
                }
-               wrefresh(menu_win);
-       }       
-       curs_set(1);
-       
-       unpost_menu(menu);
-       werase(menu_win);
-       wrefresh(menu_win);
-       delwin(menu_win);
-       free_item(items[0]);
-       free_item(items[1]);
-       free_item(items[2]);
-       free_item(items[3]);
-       free_item(items[4]);
-       free_item(items[5]);
-       free_item(items[6]);
-       free_menu(menu);
-
-       return opcion;
+       }
+}
+int main_menu()
+{
+       MENU(mi_menu) {
+               MENU_OPCION("Articulos","Alta,baja,consulta y modificacion de articulos."),
+               MENU_OPCION("Facturas","Alta,baja,consulta y modificacion de facturas."),
+               MENU_OPCION("Ver Registros","Ver registros (en su contexto) de los archivos ."),
+               MENU_OPCION("Ver Bloques","Ver bloques (en su contexto) de los archivos."),
+               MENU_OPCION("Estadisticas","Ver estadisticas de ocupacion de archivos."),
+               MENU_OPCION("Mantenimiento","Tareas de mantenimiento de los archivos."),
+               MENU_OPCION("Salir", "Salir del sistema.")
+       };
+
+       return menu_ejecutar(mi_menu, 7, "Menu Principal");
 }
 
 
@@ -351,3 +416,229 @@ void msg_box_free(WINDOW *padre, WINDOW *win)
        wrefresh(padre);
 }
 
+void menu_mantenimiento()
+{
+       MENU(mi_menu) {
+               MENU_OPCION("Compactar Articulos","Elimina espacio no utilizado."),
+               MENU_OPCION("Compactar Facturas","Elimina espacio no utilizado."),
+               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("Volver", "Volver al menu anterior.")
+       };
+
+       int opt;
+       int nuevo_tam_registro, nuevo_tam_bloque;
+       int nuevo_tipo;
+       WINDOW *dlg;
+
+       while ((opt = menu_ejecutar(mi_menu, 7, "Menu Mantenimiento")) != 6) {
+               switch (opt) {
+                       case 0:
+                               dlg = msg_box(stdscr, COLS, LINES, "Compactando archivo.... Aguarde");
+                               art_get_lst()->fp->compactar(art_get_lst()->fp);
+                               msg_box_free(stdscr, dlg);
+                       break;
+                       case 1:
+                               dlg = msg_box(stdscr, COLS, LINES, "Compactando archivo.... Aguarde");
+                               fact_get_lst()->fp->compactar(fact_get_lst()->fp);
+                               msg_box_free(stdscr, dlg);
+                       break;
+                       case 2:
+                               dlg = msg_box(stdscr, COLS, LINES, "Compactando archivo.... Aguarde");
+                               fact_get_lst()->fp_texto->compactar(fact_get_lst()->fp_texto);
+                               msg_box_free(stdscr, dlg);
+                       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);
+                               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);
+                       break;
+                       case 5:
+                               nuevo_tam_registro = -2;
+                               preguntar_nuevo_tipo(&nuevo_tipo, &nuevo_tam_bloque, &nuevo_tam_registro);
+               }
+       }
+}
+
+void preguntar_nuevo_tipo(int *tipo, int *tam_bloque, int *tam_reg)
+{
+       WINDOW *win;
+       t_Form *form;
+       char *s;
+       int n, is_ok;
+
+       win = newwin(LINES/2, COLS/2, LINES/4, COLS/4);
+       box(win, 0, 0);
+
+       form = form_crear(win);
+       form_agregar_widget(form, RADIO, "Tipo de archivo", 3, "T1,T2,T3");
+       form_ejecutar(form, 1,1);
+
+       s = form_obtener_valor_char(form, "Tipo de archivo");
+       if (strcmp(s, "T1") == 0) n = T1;
+       if (strcmp(s, "T2") == 0) n = T2;
+       if (strcmp(s, "T3") == 0) n = T3;
+
+       form_destruir(form);
+
+       werase(win);
+       box(win, 0, 0);
+       wrefresh(win);
+
+       (*tipo) = n;
+       switch (n) {
+               case T1:
+                       form = form_crear(win);
+                       form_agregar_widget(form, INPUT, "Tamaño de bloque", 8, "");
+                       is_ok = 0;
+                       do {
+                               form_set_valor(form, "Tamaño de bloque", "");
+                               form_ejecutar(form, 1,1);
+                               if (form_obtener_valor_int(form, "Tamaño de bloque") > 0) is_ok = 1;
+                       } while (!is_ok);
+                       (*tam_bloque) = form_obtener_valor_int(form, "Tamaño de bloque");
+                       form_destruir(form);
+               break;
+               case T2:
+                       break;
+               case T3:
+                       if (((*tam_reg) != -1) && ((*tam_reg) != -2)) {
+                               mvwaddstr(win, LINES/2-3, 1, "Nota: El tamaño de registro puede");
+                               mvwaddstr(win, LINES/2-2, 1, "llegar a ser redondeado por el sistema.");
+                       }
+                       form = form_crear(win);
+                       form_agregar_widget(form, INPUT, "Tamaño de bloque", 8, "");
+                       if ((*tam_reg) != -1)
+                               form_agregar_widget(form, INPUT, "Tamaño de registro", 8, "");
+                       is_ok = 0;
+                       do {
+                               form_set_valor(form, "Tamaño de bloque", "");
+                               if ((*tam_reg) != -1)
+                                       form_set_valor(form, "Tamaño de registro", "");
+                               form_ejecutar(form, 1,1);
+                               if (form_obtener_valor_int(form, "Tamaño de bloque") > 0) is_ok = 1;
+                               if ((*tam_reg) != -1) {
+                                       if (form_obtener_valor_int(form, "Tamaño de registro") > 0) is_ok = 1; else is_ok = 0;
+                               }
+                       } while (!is_ok);
+                       (*tam_bloque) = form_obtener_valor_int(form, "Tamaño de bloque");
+                       if ((*tam_reg) != -1)
+                               (*tam_reg) = form_obtener_valor_int(form, "Tamaño de registro");
+                       form_destruir(form);
+       }
+       werase(win);
+       wrefresh(win);
+       delwin(win);
+}
+
+void ver_estadisticas(EMUFS *fp)
+{
+       WINDOW *win;
+       EMUFS_Estadisticas stats;
+       char s[40];
+       int i=3;
+
+       stats = fp->leer_estadisticas(fp);
+
+       win = newwin(LINES-4, COLS-2, 2, 1);
+       curs_set(0);
+
+       wattron(win, COLOR_PAIR(COLOR_YELLOW));
+       wattron(win, A_BOLD);
+       mvwaddstr(win, 1, 1, "Tipo de Archivo : ");
+       wattroff(win, A_BOLD);
+       wattroff(win, COLOR_PAIR(COLOR_YELLOW));
+       switch (fp->tipo) {
+               case T1:
+                       waddstr(win, "Registro long. variable con bloque parametrizado");
+                       wattron(win, A_BOLD);
+                       mvwaddstr(win, i++, 1, "Tamaño de bloque : ");
+                       wattroff(win, A_BOLD);
+                       sprintf(s, "%lu bytes", fp->tam_bloque);
+                       waddstr(win, s);
+               break;
+               case T2:
+                       waddstr(win, "Registro long. variable sin bloques");
+               break;
+               case T3:
+                       waddstr(win, "Registro long. fija con bloque parametrizado");
+                       wattron(win, A_BOLD);
+                       mvwaddstr(win, i++, 1, "Tamaño de bloque : ");
+                       wattroff(win, A_BOLD);
+                       sprintf(s, "%lu bytes", fp->tam_bloque);
+                       waddstr(win, s);
+                       wattron(win, A_BOLD);
+                       mvwaddstr(win, i++, 1, "Tamaño de registro : ");
+                       wattroff(win, A_BOLD);
+                       sprintf(s, "%lu bytes", fp->tam_reg);
+                       waddstr(win, s);
+       }
+
+       wattron(win, A_BOLD);
+       mvwaddstr(win, i++, 1, "Cant. Registros : ");
+       wattroff(win, A_BOLD);
+       sprintf(s, "%lu", stats.tam_archivo);
+       waddstr(win, s);
+
+       wattron(win, A_BOLD);
+       mvwaddstr(win, i++, 1, "Tamaño de Archivo : ");
+       wattroff(win, A_BOLD);
+       sprintf(s, "%lu bytes", stats.tam_archivo_bytes);
+       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", stats.info_control);
+       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);
+       sprintf(s, "%lu bytes", stats.max_fs);
+       waddstr(win, s);
+
+       wattron(win, A_BOLD);
+       mvwaddstr(win, i++, 1, "Minimo de Espacio libre : ");
+       wattroff(win, A_BOLD);
+       sprintf(s, "%lu bytes", stats.min_fs);
+       waddstr(win, s);
+
+       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_BLINK);
+       mvwaddstr(win, i+2, 1, "Presione una tecla para continuar.");
+       wattroff(win, A_BLINK);
+
+       wrefresh(win);
+
+       getch();
+       werase(win);
+       wrefresh(win);
+       delwin(win);
+}
+