X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=test%2Fdemo_forms.c;h=b0a388e4b895661d2efba6f3fa41d998ca2cbd77;hp=a6997ed645bad5802dfc1627ea5744790eaa43b7;hb=19e522ff96ce25dbb06b42c6e7c7680ecb12a277;hpb=3853a8e97d7efa8cb6a3c93c696d2c52895d6a70 diff --git a/test/demo_forms.c b/test/demo_forms.c index a6997ed6..b0a388e4 100644 --- a/test/demo_forms.c +++ b/test/demo_forms.c @@ -1,5 +1,5 @@ /**************************************************************************** - * Copyright (c) 2003-2005,2006 Free Software Foundation, Inc. * + * Copyright (c) 2003-2017,2018 Free Software Foundation, Inc. * * * * Permission is hereby granted, free of charge, to any person obtaining a * * copy of this software and associated documentation files (the * @@ -26,29 +26,20 @@ * authorization. * ****************************************************************************/ /* - * $Id: demo_forms.c,v 1.23 2007/06/02 21:37:55 tom Exp $ + * $Id: demo_forms.c,v 1.55 2018/07/14 23:26:02 tom Exp $ * * Demonstrate a variety of functions from the form library. * Thomas Dickey - 2003/4/26 */ /* -TYPE_ENUM - -TYPE_REGEXP - dup_field - -field_arg - -field_back - -field_count - -field_fore - field_init - field_just - -field_pad - field_term - -field_type - form_init - form_opts - form_opts_off - form_opts_on - -form_page - form_request_by_name - form_term - form_userptr - @@ -59,7 +50,6 @@ move_field - new_page - pos_form_cursor - set_field_init - -set_field_pad - set_field_term - set_fieldtype_arg - set_fieldtype_choice - @@ -78,20 +68,122 @@ set_max_field - #include +typedef struct { + char *name; + char *value; +} MY_DATA; + +static MY_DATA *my_data; + static int d_option = 0; static int j_value = 0; static int m_value = 0; static int o_value = 0; static char *t_value = 0; +static void +failed(const char *s) +{ + perror(s); + ExitProgram(EXIT_FAILURE); +} + +static void +chomp(char *value) +{ + size_t have = strlen(value); + while (have != 0 && (value[have - 1] == '\n' || value[have - 1] == '\r')) { + value[--have] = '\0'; + } +} + +static int +trimmed(const char *value) +{ + int result = (int) strlen(value); + while (result > 0 && isspace(UChar(value[result - 1]))) { + --result; + } + return result; +} + +static char * +get_data(const char *name) +{ + char *result = t_value; + if (my_data != 0) { + int n; + for (n = 0; my_data[n].name != 0; ++n) { + if (!strcmp(name, my_data[n].name)) { + result = my_data[n].value; + break; + } + } + } + return result; +} + +/* + * Read (possibly) multi-line data with name+value pairs. + */ +static void +read_data(const char *filename) +{ + FILE *fp = fopen(filename, "r"); + + if (fp != 0) { + char buffer[BUFSIZ]; + char *colon; + int more = 0; + int item = 0; + + my_data = typeCalloc(MY_DATA, (size_t) 100); /* FIXME */ + while (fgets(buffer, sizeof(buffer), fp) != 0) { + chomp(buffer); + if (more) { + if (strcmp(buffer, ".")) { + char *prior = my_data[more - 1].value; + size_t need = strlen(buffer) + 2 + strlen(prior); + char *value = typeRealloc(char, need, prior); + if (value == 0) + failed("realloc"); + _nc_STRCAT(value, "\n", need); + _nc_STRCAT(value, buffer, need); + my_data[more - 1].value = value; + } else { + more = 0; + } + } else if (*buffer == '#') { + continue; + } else if ((colon = strchr(buffer, ':')) != 0) { + char *name; + char *value; + *colon++ = '\0'; + name = strdup(buffer); + value = strdup(colon); + if (name == 0 || value == 0) + failed("strdup"); + my_data[item].name = name; + my_data[item].value = value; + more = ++item; + } else { + failed("expected a colon"); + } + } + fclose(fp); + } else { + failed(filename); + } +} + static FIELD * -make_label(int frow, int fcol, NCURSES_CONST char *label) +make_label(const char *label, int frow, int fcol) { FIELD *f = new_field(1, (int) strlen(label), frow, fcol, 0, 0); if (f) { set_field_buffer(f, 0, label); - set_field_opts(f, (int) (field_opts(f) & ~O_ACTIVE)); + set_field_opts(f, (int) ((unsigned) field_opts(f) & ~O_ACTIVE)); } return (f); } @@ -100,7 +192,7 @@ make_label(int frow, int fcol, NCURSES_CONST char *label) * Define each field with an extra one, for reflecting "actual" text. */ static FIELD * -make_field(int frow, int fcol, int rows, int cols) +make_field(const char *label, int frow, int fcol, int rows, int cols) { FIELD *f = new_field(rows, cols, frow, fcol, o_value, 1); @@ -112,10 +204,10 @@ make_field(int frow, int fcol, int rows, int cols) * O_STATIC off makes the form library ignore justification. */ set_field_just(f, j_value); - set_field_userptr(f, (void *) 0); if (d_option) { if (has_colors()) { - set_field_fore(f, COLOR_PAIR(2)); + set_field_fore(f, (chtype) COLOR_PAIR(2)); + set_field_back(f, (A_UNDERLINE | (chtype) COLOR_PAIR(3))); } else { set_field_fore(f, A_BOLD); } @@ -126,14 +218,14 @@ make_field(int frow, int fcol, int rows, int cols) field_opts_off(f, O_STATIC); set_max_field(f, m_value); } - if (t_value) - set_field_buffer(f, 0, t_value); + + init_edit_field(f, get_data(label)); } return (f); } static void -display_form(FORM * f) +display_form(FORM *f) { WINDOW *w; int rows, cols; @@ -149,14 +241,14 @@ display_form(FORM * f) set_form_sub(f, derwin(w, rows, cols, 1, 2)); box(w, 0, 0); keypad(w, TRUE); - } - if (post_form(f) != E_OK) - wrefresh(w); + if (post_form(f) != E_OK) + wrefresh(w); + } } static void -erase_form(FORM * f) +erase_form(FORM *f) { WINDOW *w = form_win(f); WINDOW *s = form_sub(f); @@ -171,7 +263,7 @@ erase_form(FORM * f) static void show_insert_mode(bool insert_mode) { - mvaddstr(5, 57, (insert_mode + MvAddStr(5, 57, (insert_mode ? "form_status: insert " : "form_status: overlay")); } @@ -179,7 +271,7 @@ show_insert_mode(bool insert_mode) #define O_SELECTABLE (O_ACTIVE | O_VISIBLE) static FIELD * -another_field(FORM * form, FIELD * field) +another_field(FORM *form, FIELD *field) { FIELD **f = form_fields(form); FIELD *result = 0; @@ -196,7 +288,7 @@ another_field(FORM * form, FIELD * field) } static int -my_form_driver(FORM * form, int c) +my_form_driver(FORM *form, int c) { static bool insert_mode = TRUE; FIELD *field; @@ -212,7 +304,7 @@ my_form_driver(FORM * form, int c) case MY_EDT_MODE: if ((field = current_field(form)) != 0) { set_current_field(form, another_field(form, field)); - if (field_opts(field) & O_EDIT) { + if ((unsigned) field_opts(field) & O_EDIT) { field_opts_off(field, O_EDIT); set_field_status(field, 0); } else { @@ -243,26 +335,32 @@ my_form_driver(FORM * form, int c) } static void -show_current_field(WINDOW *win, FORM * form) +show_current_field(WINDOW *win, FORM *form) { FIELD *field; FIELDTYPE *type; char *buffer; int nbuf; int field_rows, field_cols, field_max; + int currow, curcol; if (has_colors()) { - wbkgd(win, COLOR_PAIR(1)); + wbkgd(win, (chtype) COLOR_PAIR(1)); } werase(win); - wprintw(win, "Cursor: %d,%d", form->currow, form->curcol); + form_getyx(form, currow, curcol); + wprintw(win, "Cursor: %d,%d", currow, curcol); if (data_ahead(form)) waddstr(win, " ahead"); if (data_behind(form)) waddstr(win, " behind"); waddch(win, '\n'); if ((field = current_field(form)) != 0) { - wprintw(win, "Field %d:", field_index(field)); + wprintw(win, "Page %d%s, Field %d/%d%s:", + form_page(form), + new_page(field) ? "*" : "", + field_index(field), field_count(form), + field_arg(field) ? "(arg)" : ""); if ((type = field_type(field)) != 0) { if (type == TYPE_ALNUM) waddstr(win, "ALNUM"); @@ -284,7 +382,7 @@ show_current_field(WINDOW *win, FORM * form) waddstr(win, "other"); } - if (field_opts(field) & O_EDIT) + if ((unsigned) field_opts(field) & O_EDIT) waddstr(win, " editable"); else waddstr(win, " readonly"); @@ -297,12 +395,30 @@ show_current_field(WINDOW *win, FORM * form) wprintw(win, " size %dx%d (max %d)", field_rows, field_cols, field_max); } + + waddch(win, ' '); + (void) wattrset(win, AttrArg(field_fore(field), 0)); + waddstr(win, "fore"); + wattroff(win, (int) field_fore(field)); + + waddch(win, '/'); + + (void) wattrset(win, AttrArg(field_back(field), 0)); + waddstr(win, "back"); + wattroff(win, (int) field_back(field)); + + wprintw(win, ", pad '%c'", field_pad(field)); + waddstr(win, "\n"); for (nbuf = 0; nbuf <= 2; ++nbuf) { if ((buffer = field_buffer(field, nbuf)) != 0) { wprintw(win, "buffer %d:", nbuf); - wattrset(win, A_REVERSE); - waddstr(win, buffer); + (void) wattrset(win, A_REVERSE); + if (nbuf) { + waddnstr(win, buffer, trimmed(buffer)); + } else { + waddstr(win, buffer); + } wattroff(win, A_REVERSE); waddstr(win, "\n"); } @@ -316,11 +432,14 @@ demo_forms(void) { WINDOW *w; FORM *form; - FIELD *f[100]; + FIELD *f[100]; /* will memset to zero */ int finished = 0, c; unsigned n = 0; int pg; WINDOW *also; + const char *fname; + static const char *my_enum[] = + {"first", "second", "third", 0}; #ifdef NCURSES_MOUSE_VERSION mousemask(ALL_MOUSE_EVENTS, (mmask_t *) 0); @@ -328,103 +447,132 @@ demo_forms(void) help_edit_field(); - mvaddstr(4, 57, "Forms Entry Test"); + MvAddStr(4, 57, "Forms Entry Test"); show_insert_mode(TRUE); refresh(); /* describe the form */ + memset(f, 0, sizeof(f)); for (pg = 0; pg < 4; ++pg) { char label[80]; - sprintf(label, "Sample Form Page %d", pg + 1); - f[n++] = make_label(0, 15, label); + _nc_SPRINTF(label, _nc_SLIMIT(sizeof(label)) + "Sample Form Page %d", pg + 1); + f[n++] = make_label(label, 0, 15); set_new_page(f[n - 1], TRUE); switch (pg) { default: - f[n++] = make_label(2, 0, "Last Name"); - f[n++] = make_field(3, 0, 1, 18); + fname = "Last Name"; + f[n++] = make_label(fname, 2, 0); + f[n++] = make_field(fname, 3, 0, 1, 18); set_field_type(f[n - 1], TYPE_ALPHA, 1); - f[n++] = make_label(2, 20, "First Name"); - f[n++] = make_field(3, 20, 1, 12); + fname = "First Name"; + f[n++] = make_label(fname, 2, 20); + f[n++] = make_field(fname, 3, 20, 1, 12); set_field_type(f[n - 1], TYPE_ALPHA, 1); - f[n++] = make_label(2, 34, "Middle Name"); - f[n++] = make_field(3, 34, 1, 12); + fname = "Middle Name"; + f[n++] = make_label(fname, 2, 34); + f[n++] = make_field(fname, 3, 34, 1, 12); set_field_type(f[n - 1], TYPE_ALPHA, 1); break; + case 1: - f[n++] = make_label(2, 0, "Last Name"); - f[n++] = make_field(3, 0, 1, 18); + fname = "Last Name"; + f[n++] = make_label(fname, 2, 0); + f[n++] = make_field(fname, 3, 0, 1, 12); set_field_type(f[n - 1], TYPE_ALPHA, 1); - f[n++] = make_label(2, 20, "First Name"); - f[n++] = make_field(3, 20, 1, 12); + fname = "First Name"; + f[n++] = make_label(fname, 2, 14); + f[n++] = make_field(fname, 3, 14, 1, 12); set_field_type(f[n - 1], TYPE_ALPHA, 1); - f[n++] = make_label(2, 34, "MI"); - f[n++] = make_field(3, 34, 1, 1); + fname = "MI"; + f[n++] = make_label(fname, 2, 28); + f[n++] = make_field(fname, 3, 28, 1, 1); + set_field_pad(f[n - 1], '?'); set_field_type(f[n - 1], TYPE_ALPHA, 1); + + fname = "First/Second/Third"; + f[n++] = make_label(fname, 2, 32); + f[n++] = make_field(fname, 3, 32, 1, 12); + set_field_type(f[n - 1], TYPE_ENUM, my_enum, 0, 0); break; + case 2: - f[n++] = make_label(2, 0, "Host Name"); - f[n++] = make_field(3, 0, 1, 18); + fname = "Host Name"; + f[n++] = make_label(fname, 2, 0); + f[n++] = make_field(fname, 3, 0, 1, 24); set_field_type(f[n - 1], TYPE_ALNUM, 1); #ifdef NCURSES_VERSION - f[n++] = make_label(2, 20, "IP Address"); - f[n++] = make_field(3, 20, 1, 12); + fname = "IP Address"; + f[n++] = make_label(fname, 2, 26); + f[n++] = make_field(fname, 3, 26, 1, 16); set_field_type(f[n - 1], TYPE_IPV4, 1); #endif - break; case 3: - f[n++] = make_label(2, 0, "Four digits"); - f[n++] = make_field(3, 0, 1, 18); + fname = "Four digits"; + f[n++] = make_label(fname, 2, 0); + f[n++] = make_field(fname, 3, 0, 1, 10); set_field_type(f[n - 1], TYPE_INTEGER, 4, 0, 0); - f[n++] = make_label(2, 20, "Numeric"); - f[n++] = make_field(3, 20, 1, 12); + fname = "Numeric"; + f[n++] = make_label(fname, 2, 13); + f[n++] = make_field(fname, 3, 13, 1, 12); set_field_type(f[n - 1], TYPE_NUMERIC, 3, -10000.0, 100000000.0); + fname = "Phone number"; + f[n++] = make_label(fname, 2, 27); + f[n++] = make_field(fname, 3, 27, 1, 16); + set_field_type(f[n - 1], TYPE_REGEXP, + "^([0-9]-)?[0-9]{3}-[0-9]{3}-[0-9]{4} *$");; break; } - f[n++] = make_label(5, 0, "Comments"); - f[n++] = make_field(6, 0, 4, 46); + fname = "Comments"; + f[n++] = make_label(fname, 5, 0); + f[n++] = make_field(fname, 6, 0, 4, 46); + init_edit_field(f[n - 1], get_data(fname)); } - f[n++] = (FIELD *) 0; + f[n] = (FIELD *) 0; - form = new_form(f); + if ((form = new_form(f)) != 0) { - display_form(form); + display_form(form); - w = form_win(form); - also = newwin(getmaxy(stdscr) - getmaxy(w), COLS, getmaxy(w), 0); - show_current_field(also, form); + w = form_win(form); + also = newwin(getmaxy(stdscr) - getmaxy(w), COLS, getmaxy(w), 0); + show_current_field(also, form); - while (!finished) { - switch (edit_field(form, &c)) { - case E_OK: - break; - case E_UNKNOWN_COMMAND: - finished = my_form_driver(form, c); - break; - default: - beep(); - break; + while (!finished) { + switch (edit_field(form, &c)) { + case E_OK: + break; + case E_UNKNOWN_COMMAND: + finished = my_form_driver(form, c); + break; + default: + beep(); + break; + } + show_current_field(also, form); } - show_current_field(also, form); - } - erase_form(form); + erase_form(form); - free_form(form); - for (c = 0; f[c] != 0; c++) + free_form(form); + } + for (c = 0; f[c] != 0; c++) { + free_edit_field(f[c]); free_field(f[c]); + } noraw(); nl(); @@ -438,7 +586,7 @@ usage(void) { static const char *tbl[] = { - "Usage: demo_forms [options]" + "Usage: demo_forms [options] [data file]" ,"" ," -d make fields dynamic" ," -j value justify (1=left, 2=center, 3=right)" @@ -459,7 +607,7 @@ main(int argc, char *argv[]) setlocale(LC_ALL, ""); - while ((ch = getopt(argc, argv, "dj:m:o:t:")) != EOF) { + while ((ch = getopt(argc, argv, "dj:m:o:t:")) != -1) { switch (ch) { case 'd': d_option = TRUE; @@ -484,6 +632,9 @@ main(int argc, char *argv[]) } } + while (optind < argc) { + read_data(argv[optind++]); + } initscr(); cbreak(); @@ -497,7 +648,8 @@ main(int argc, char *argv[]) start_color(); init_pair(1, COLOR_WHITE, COLOR_BLUE); init_pair(2, COLOR_GREEN, COLOR_BLACK); - bkgd(COLOR_PAIR(1)); + init_pair(3, COLOR_CYAN, COLOR_BLACK); + bkgd((chtype) COLOR_PAIR(1)); refresh(); } @@ -506,6 +658,7 @@ main(int argc, char *argv[]) endwin(); ExitProgram(EXIT_SUCCESS); } + #else int main(void)