X-Git-Url: https://git.llucax.com/z.facultad/75.06/emufs.git/blobdiff_plain/eac267758149917cf651638a0e2b2f76fc4ed29f..5e69ceac52eb0404ca1cd62327f3b3dde0efa95d:/emufs_gui/emufs_view.c diff --git a/emufs_gui/emufs_view.c b/emufs_gui/emufs_view.c index 7c6b879..1b6844d 100644 --- a/emufs_gui/emufs_view.c +++ b/emufs_gui/emufs_view.c @@ -1,5 +1,4 @@ - #include #include #include @@ -14,6 +13,7 @@ #include "facturas.h" #include "emufs.h" #include "viewer.h" +#include "tree_viewer.h" #define CTRLD 4 @@ -26,8 +26,8 @@ void menu_mantenimiento(); void menu_estadisticas(); void menu_ver_registros(); void menu_ver_bloques(); +void menu_ver_indices(); void preguntar_nuevo_tipo(const char *title, int *tipo, int *tam_bloque, int *tam_reg); -char *preguntar_file(); void ver_estadisticas(EMUFS *fp); @@ -42,159 +42,278 @@ typedef enum { 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 */ - char tipo_arch_nota; - 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[]) +void print_help(char *s) { - int n,i; - int file; - for(i=1; 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) 3)) return TIPO_INVALIDO; - if (((n == 1) || (n == 3)) && ((i+2)>=argc)) - return BLOQUE_NO_DEFINIDO; - parametros.tipo_arch_art = n; - 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 */ - return TIPO_NO_DEFINIDO; + printf("EMUFS - 2v0\n"); + printf("Modo de uso :%s [|-h] \n", s); + printf("\temufs.xml es el archivo XML que cumple con emufs.dtd con la configuracion a usar.\n"); + printf("\t-h Muestra este msg de ayuda.\n"); +} + +int leer_tipo_arbol(char *s) { + if (strcmp(s, "B") == 0) return 0; + if (strcmp(s, "BA") == 0) return 1; + + /* Por defecto es un B */ + return 0; +} + +void leer_param_ind_art(t_Parametros *param, xmlNode *padre) +{ + xmlNode *node; + char *tmp, *nombre; + node = padre->children; + while (node) { + if (node->type == XML_ELEMENT_NODE) { + if (strcmp(node->name, "indice")==0) { + PERR(" LEO INDICE"); + nombre = xml_get_prop(node, "nombre"); + + if (strcmp(nombre, "codigo")==0) { + tmp = xml_get_prop(node, "tipo"); + param->ind_art[0].tipo_arbol = leer_tipo_arbol(tmp); + free(tmp); + tmp = xml_get_prop(node, "bloque"); + param->ind_art[0].tam_bloque = atoi(tmp); + free(tmp); + } else if (strcmp(nombre, "desc")==0) { + tmp = xml_get_prop(node, "tipo"); + param->ind_art[1].tipo_arbol = leer_tipo_arbol(tmp); + free(tmp); + tmp = xml_get_prop(node, "bloque"); + param->ind_art[1].tam_bloque = atoi(tmp); + free(tmp); + } else if (strcmp(nombre, "presentacion")==0) { + tmp = xml_get_prop(node, "tipo"); + param->ind_art[2].tipo_arbol = leer_tipo_arbol(tmp); + free(tmp); + tmp = xml_get_prop(node, "bloque"); + param->ind_art[2].tam_bloque = atoi(tmp); + free(tmp); } - } else { - return NO_ART_FILE; + PERR(" LISTO"); + free(nombre); } - } /* 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 */ - file = i; - i++; - if (i 3)) return TIPO_INVALIDO; - if (((n == 1) || (n == 3)) && ((i+1)>=argc)) - return BLOQUE_NO_DEFINIDO; - parametros.tipo_arch_fact = n; - 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; + } + node = node->next; + } +} + +void leer_param_ind_fact(t_Parametros *param, xmlNode *padre) +{ + xmlNode *node; + char *tmp, *nombre; + node = padre->children; + while (node) { + if (node->type == XML_ELEMENT_NODE) { + if (strcmp(node->name, "indice")==0) { + PERR(" LEO INDICE"); + nombre = xml_get_prop(node, "nombre"); + + if (strcmp(nombre, "numero")==0) { + tmp = xml_get_prop(node, "tipo"); + param->ind_fac[0].tipo_arbol = leer_tipo_arbol(tmp); + free(tmp); + tmp = xml_get_prop(node, "bloque"); + param->ind_fac[0].tam_bloque = atoi(tmp); + free(tmp); + } else if (strcmp(nombre, "emision")==0) { + tmp = xml_get_prop(node, "tipo"); + param->ind_fac[1].tipo_arbol = leer_tipo_arbol(tmp); + free(tmp); + tmp = xml_get_prop(node, "bloque"); + param->ind_fac[1].tam_bloque = atoi(tmp); + free(tmp); + } else if (strcmp(nombre, "vto")==0) { + tmp = xml_get_prop(node, "tipo"); + param->ind_fac[2].tipo_arbol = leer_tipo_arbol(tmp); + free(tmp); + tmp = xml_get_prop(node, "bloque"); + param->ind_fac[2].tam_bloque = atoi(tmp); + free(tmp); + } else if (strcmp(nombre, "cheque")==0) { + tmp = xml_get_prop(node, "tipo"); + param->ind_fac[3].tipo_arbol = leer_tipo_arbol(tmp); + free(tmp); + tmp = xml_get_prop(node, "bloque"); + param->ind_fac[3].tam_bloque = atoi(tmp); + free(tmp); + } else if (strcmp(nombre, "ctacte")==0) { + tmp = xml_get_prop(node, "tipo"); + param->ind_fac[4].tipo_arbol = leer_tipo_arbol(tmp); + free(tmp); + tmp = xml_get_prop(node, "bloque"); + param->ind_fac[4].tam_bloque = atoi(tmp); + free(tmp); } - } else { - return NO_FACT_FILE; + PERR(" LISTO"); + free(nombre); } - } /* Facturas */ - + } + node = node->next; } - return PARAM_OK; } -void print_help(char *s) +void leer_param_art(t_Parametros *param, xmlNode *padre) { - printf("EMUFS - 1v0\n"); - printf("Modo de uso :%s -a tipo -f 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(" 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(" 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"); + xmlNode *node; + char *tmp; + node = padre->children; + while (node) { + if (node->type == XML_ELEMENT_NODE) { + if (strcmp(node->name, "fuente")==0) { + strcpy(param->xml_art, XML_GET_CONTENT(node->children)); + } else if (strcmp(node->name, "datos")==0) { + tmp = xml_get_prop(node, "tipo"); + param->tipo_arch_art = atoi(tmp)-1; + free(tmp); + tmp = xml_get_prop(node, "bloque"); + param->tam_bloque_art = atoi(tmp); + free(tmp); + } else if (strcmp(node->name, "indices")==0) { + PERR("LEO INDICES") + leer_param_ind_art(param, node); + PERR("LISTO"); + } + } + node = node->next; + } } +void leer_param_fac(t_Parametros *param, xmlNode *padre) +{ + xmlNode *nodo; + char *tmp; + nodo = padre->children; + while (nodo) { + if (nodo->type == XML_ELEMENT_NODE) { + if (strcmp(nodo->name, "fuente")==0) { + strcpy(param->xml_fact, XML_GET_CONTENT(nodo->children)); + } else if (strcmp(nodo->name, "datos")==0) { + tmp = xml_get_prop(nodo, "tipo"); + param->tipo_arch_fact = atoi(tmp)-1; + free(tmp); + tmp = xml_get_prop(nodo, "bloque"); + param->tam_bloque_fact = atoi(tmp); + free(tmp); + } else if (strcmp(nodo->name, "datos_notas")==0) { + tmp = xml_get_prop(nodo, "tipo"); + param->tipo_arch_nota = atoi(tmp)-1; + free(tmp); + tmp = xml_get_prop(nodo, "bloque"); + param->tam_bloque_nota = atoi(tmp); + free(tmp); + } else if (strcmp(nodo->name, "indices")==0) { + PERR("LEO INDICES") + leer_param_ind_fact(param, nodo); + PERR("LISTO"); + } + } + nodo = nodo->next; + } +} + +void param_xml(char *s, t_Parametros *param) +{ + xmlDocPtr document; + xmlNode *node, *inicio; + + document = xmlReadFile(s, NULL,0); + if (document == NULL) { + return; + } + inicio = NULL; + node = xmlDocGetRootElement(document); + /* Busco el TAG principal "EMUFS" */ + while (node) { + if (node->type == XML_ELEMENT_NODE) { + PERR(node->name); + if (strcmp(node->name, "emufs") == 0) { + inicio = node->children; + break; + } + } + node = node->next; + } + if (inicio == NULL) { + PERR("NO ENCONTRE TAG PRINCIPAL"); + xmlFreeDoc(document); + xmlCleanupParser(); + return; + } + + node = inicio; + while (node) { + if (node->type == XML_ELEMENT_NODE) { + if (strcmp(node->name, "articulos")==0) { + leer_param_art(param, node); + } else if (strcmp(node->name, "facturas")==0) { + leer_param_fac(param, node); + } + } + node = node->next; + } +} + +static t_Parametros parametros; + int main(int argc, char *argv[]) { - int c, fin=0; WINDOW *dialog; - parametros.xml_art = parametros.xml_fact = -1; - switch (param_ok(argc, argv)) { - case SHOW_HELP: + if (argc > 2) { + print_help(argv[0]); + exit(0); + } + + if (argc == 2) { + if (strcmp(argv[1], "-h")==0) { 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; + exit(0); + } + param_xml(argv[1], ¶metros); + + /* Valido que los tamaños de los bloques sean multiplos de 512 */ + if ((parametros.tam_bloque_art%512) != 0) { + PERR("Los tamaños de bloque deben ser multiplos de 512!!"); + exit(1); + } + if ((parametros.tam_bloque_fact%512) != 0) { + PERR("Los tamaños de bloque deben ser multiplos de 512!!"); + exit(1); + } + if ((parametros.ind_art[0].tam_bloque%512) != 0) { + PERR("Los tamaños de bloque deben ser multiplos de 512!!"); + exit(1); + } + if ((parametros.ind_art[1].tam_bloque%512) != 0) { + PERR("Los tamaños de bloque deben ser multiplos de 512!!"); + exit(1); + } + if ((parametros.ind_art[2].tam_bloque%512) != 0) { + PERR("Los tamaños de bloque deben ser multiplos de 512!!"); + exit(1); + } + if ((parametros.ind_fac[0].tam_bloque%512) != 0) { + PERR("Los tamaños de bloque deben ser multiplos de 512!!"); + exit(1); + } + if ((parametros.ind_fac[1].tam_bloque%512) != 0) { + PERR("Los tamaños de bloque deben ser multiplos de 512!!"); + exit(1); + } + if ((parametros.ind_fac[2].tam_bloque%512) != 0) { + PERR("Los tamaños de bloque deben ser multiplos de 512!!"); + exit(1); + } + if ((parametros.ind_fac[3].tam_bloque%512) != 0) { + PERR("Los tamaños de bloque deben ser multiplos de 512!!"); + exit(1); + } + if ((parametros.ind_fac[4].tam_bloque%512) != 0) { + PERR("Los tamaños de bloque deben ser multiplos de 512!!"); + exit(1); + } } #ifdef DEBUG @@ -247,54 +366,19 @@ int main(int argc, char *argv[]) attroff(COLOR_PAIR(2)); wrefresh(stdscr); - dialog = msg_box(stdscr, COLS, LINES, "Generando archivos ..."); - - 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, - parametros.tipo_arch_nota, - parametros.tam_bloque_nota - ); + if (argc == 2) { + dialog = msg_box(stdscr, COLS, LINES, "Generando archivos ..."); + art_cargar(¶metros); + fact_cargar(¶metros); } else { - fact_cargar(NULL, -1, -1, -1, -1); + dialog = msg_box(stdscr, COLS, LINES, "Recuperando archivos ..."); + art_cargar(NULL); + fact_cargar(NULL); } 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(); @@ -310,11 +394,13 @@ void menu_facturas() MENU_OPCION("Alta", "Crear una nueva factura."), MENU_OPCION("Baja", "Elimina una factura existente."), MENU_OPCION("Modificacion", "Modifica una factura existente."), + MENU_OPCION("Consultas", "Consulta varias de articulo."), + MENU_OPCION("Recorrer", "Recorrer el archivo por alguno de sus indices."), MENU_OPCION("Volver", "Volver al menu anterior.") }; int opt; - while ((opt = menu_ejecutar(mi_menu, 4, "Menu Articulos")) != 3) { + while ((opt = menu_ejecutar(mi_menu, 6, "Menu Facturas")) != 5) { switch (opt) { case 0: fact_agregar(NULL); @@ -324,6 +410,12 @@ void menu_facturas() break; case 2: fact_modificar(NULL); + break; + case 3: + fact_consultas(NULL); + break; + case 4: + fact_recorrer(); } } } @@ -334,11 +426,14 @@ void menu_articulos() MENU_OPCION("Alta", "Crear un nuevo articulo."), MENU_OPCION("Baja", "Elimina un articulo existente."), MENU_OPCION("Modificacion", "Modifica un articulo existente."), + MENU_OPCION("Consultas", "Consulta varias de articulo."), + MENU_OPCION("Recorrer", "Recorrer el archivo por alguno de sus indices."), + MENU_OPCION("Ver ventas", "Ver venta de articulos entre 2 fechas."), MENU_OPCION("Volver", "Volver al menu anterior.") }; int opt; - while ((opt = menu_ejecutar(mi_menu, 4, "Menu Articulos")) != 3) { + while ((opt = menu_ejecutar(mi_menu, 7, "Menu Articulos")) != 6) { switch (opt) { case 0: art_agregar(NULL); @@ -348,6 +443,15 @@ void menu_articulos() break; case 2: art_modificar(NULL); + break; + case 3: + art_consultas(NULL); + break; + case 4: + art_recorrer(); + break; + case 5: + art_ver_ventas(); } } @@ -438,8 +542,61 @@ void menu_ver_bloques() } } +void ver_indice(int arch, char *indice) +{ + INDICE *idx; + int w, h; + WINDOW *win; + switch (arch) { + case 0: + idx = emufs_buscar_indice_por_nombre(art_get_lst()->fp, indice); + break; + case 1: + idx = emufs_buscar_indice_por_nombre(fact_get_lst()->fp, indice); + } + h = LINES-4; + w = COLS-2; + win = newwin(h, w, 2, 1); + + if ((idx != NULL) && (idx->tipo != IND_B_PLUS)) { + emufs_indice_b_ver(idx, win, w, h, 0); + } else { + if (idx != NULL) { + WINDOW *dlg; + dlg = msg_box(win, w, h, "El tipo de arbol B+ no esta soportado en el visor"); + getch(); + msg_box_free(win, dlg); + } + } + delwin(win); +} + +void menu_ver_indices() +{ + int arch[8] = {0, 0, 0, 1, 1, 1, 1, 1}; + char *nombres[8] = {"codigo", "desc", "presentacion", + "numero", "emision", "vto", "cheque", "ctacte"}; + MENU(mi_menu) { + MENU_OPCION("Articulos->codigo",""), + MENU_OPCION("Articulos->desc",""), + MENU_OPCION("Articulos->presentacion",""), + MENU_OPCION("Facturas->numero",""), + MENU_OPCION("Facturas->emision",""), + MENU_OPCION("Facturas->vto",""), + MENU_OPCION("Facturas->cheque", ""), + MENU_OPCION("Facturas->ctacte", ""), + MENU_OPCION("Volver", "Volver al menu anterior.") + }; + int c; + + while ((c=menu_ejecutar(mi_menu, 9, "Menu Principal"))!=8) { + ver_indice(arch[c], nombres[c]); + } +} + 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."), @@ -447,10 +604,36 @@ int main_menu() 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("Ver Indices", "Permite ver y recorrer los indices"), MENU_OPCION("Salir", "Salir del sistema.") }; - return menu_ejecutar(mi_menu, 7, "Menu Principal"); + while ((c=menu_ejecutar(mi_menu, 8, "Menu Principal"))!=7) { + 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: + menu_ver_indices(); + } + } + + return 0; } @@ -531,7 +714,9 @@ void menu_mantenimiento() nuevo_tam_registro = -1; /* No permito cambiar el tamaño de 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); + parametros.tipo_arch_art = nuevo_tipo; + parametros.tam_bloque_art = nuevo_tam_bloque; + art_reformatear(¶metros); msg_box_free(stdscr, dlg); break; case 4: @@ -539,7 +724,11 @@ void menu_mantenimiento() 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); + parametros.tipo_arch_fact = nuevo_tipo; + parametros.tam_bloque_fact = nuevo_tam_bloque; + parametros.tipo_arch_nota = nuevo_tipo1; + parametros.tam_bloque_nota = nuevo_tam_bloque1; + fact_reformatear(¶metros); msg_box_free(stdscr, dlg); break; case 5: @@ -572,18 +761,20 @@ void preguntar_nuevo_tipo(const char *title, int *tipo, int *tam_bloque, int *ta char *s; int n, is_ok; - win = newwin(LINES/2, COLS/2, LINES/4, COLS/4); + win = newwin(LINES/2, 2*COLS/3, LINES/4, 2*COLS/6); 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_agregar_widget(form, RADIO, "Tipo de archivo", 5, "T1,T2,T3,T4,T5"); 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; + if (strcmp(s, "T4") == 0) n = T4; + if (strcmp(s, "T5") == 0) n = T5; form_destruir(form); @@ -631,6 +822,19 @@ void preguntar_nuevo_tipo(const char *title, int *tipo, int *tam_bloque, int *ta if ((*tam_reg) != -1) (*tam_reg) = form_obtener_valor_int(form, "Tamaño de registro"); form_destruir(form); + break; + case T4: + case T5: + 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); } werase(win); wrefresh(win); @@ -678,6 +882,27 @@ void ver_estadisticas(EMUFS *fp) wattroff(win, A_BOLD); sprintf(s, "%lu bytes", fp->tam_reg); waddstr(win, s); + break; + case T5: + waddstr(win, "Registro long. fija con bloque parametrizado (Seq. Indexado)"); + 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); + break; + case T4: + waddstr(win, "Registro long. variable con bloque parametrizado (Seq. Indexado)"); + 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); } @@ -791,3 +1016,4 @@ char *preguntar_file() form_destruir(form); return t; } +