/**************************************************************************** * Copyright (c) 1999-2002,2003 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            * * "Software"), to deal in the Software without restriction, including      * * without limitation the rights to use, copy, modify, merge, publish,      * * distribute, distribute with modifications, sublicense, and/or sell       * * copies of the Software, and to permit persons to whom the Software is    * * furnished to do so, subject to the following conditions:                 * *                                                                          * * The above copyright notice and this permission notice shall be included  * * in all copies or substantial portions of the Software.                   * *                                                                          * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  * * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               * * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   * * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   * * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    * * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    * * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               * *                                                                          * * Except as contained in this notice, the name(s) of the above copyright   * * holders shall not be used in advertising or otherwise to promote the     * * sale, use or other dealings in this Software without prior written       * * authorization.                                                           * ****************************************************************************//* * Author: Thomas E. Dickey <dickey@clark.net> 1999 * * $Id: cardfile.c,v 1.23 2003/04/26 16:43:56 tom Exp $ * * File format: text beginning in column 1 is a title; other text is content. */#include <test.priv.h>#if USE_LIBFORM && USE_LIBPANEL#include <form.h>#include <panel.h>#define VISIBLE_CARDS 10#define OFFSET_CARD 2enum {    MY_CTRL_x = MAX_FORM_COMMAND    ,MY_CTRL_N    ,MY_CTRL_P    ,MY_CTRL_Q    ,MY_CTRL_W};typedef struct _card {    struct _card *link;    PANEL *panel;    FORM *form;    char *title;    char *content;} CARD;static CARD *all_cards;static char default_name[] = "cardfile.dat";#if !HAVE_STRDUP#define strdup my_strdupstatic char *strdup(char *s){    char *p = (char *) malloc(strlen(s) + 1);    if (p)	strcpy(p, s);    return (p);}#endif /* not HAVE_STRDUP */static const char *skip(const char *buffer){    while (isspace(UChar(*buffer)))	buffer++;    return buffer;}static voidtrim(char *buffer){    unsigned n = strlen(buffer);    while (n-- && isspace(UChar(buffer[n])))	buffer[n] = 0;}/*******************************************************************************/static CARD *add_title(const char *title){    CARD *card, *p, *q;    for (p = all_cards, q = 0; p != 0; q = p, p = p->link) {	int cmp = strcmp(p->title, title);	if (cmp == 0)	    return p;	if (cmp > 0)	    break;    }    card = (CARD *) calloc(1, sizeof(CARD));    card->title = strdup(title);    card->content = strdup("");    if (q == 0) {	card->link = all_cards;	all_cards = card;    } else {	card->link = q->link;	q->link = card;    }    return card;}static voidadd_content(CARD * card, const char *content){    unsigned total, offset;    content = skip(content);    if ((total = strlen(content)) != 0) {	if ((offset = strlen(card->content)) != 0) {	    total += 1 + offset;	    card->content = (char *) realloc(card->content, total + 1);	    strcpy(card->content + offset++, " ");	} else {	    if (card->content != 0)		free(card->content);	    card->content = (char *) malloc(total + 1);	}	strcpy(card->content + offset, content);    }}static CARD *new_card(void){    CARD *card = add_title("");    add_content(card, "");    return card;}static CARD *find_card(char *title){    CARD *card;    for (card = all_cards; card != 0; card = card->link)	if (!strcmp(card->title, title))	    break;    return card;}static voidread_data(char *fname){    FILE *fp;    CARD *card = 0;    char buffer[BUFSIZ];    if ((fp = fopen(fname, "r")) != 0) {	while (fgets(buffer, sizeof(buffer), fp)) {	    trim(buffer);	    if (isspace(UChar(*buffer))) {		if (card == 0)		    card = add_title("");		add_content(card, buffer);	    } else if ((card = find_card(buffer)) == 0) {		card = add_title(buffer);	    }	}	fclose(fp);    }}/*******************************************************************************/static voidwrite_data(const char *fname){    FILE *fp;    CARD *p = 0;    int n;    if (!strcmp(fname, default_name))	fname = "cardfile.out";    if ((fp = fopen(fname, "w")) != 0) {	for (p = all_cards; p != 0; p = p->link) {	    FIELD **f = form_fields(p->form);	    for (n = 0; f[n] != 0; n++) {		char *s = field_buffer(f[n], 0);		if (s != 0		    && (s = strdup(s)) != 0) {		    trim(s);		    fprintf(fp, "%s%s\n", n ? "\t" : "", s);		    free(s);		}	    }	}	fclose(fp);    }}/*******************************************************************************//* * Count the cards */static intcount_cards(void){    CARD *p;    int count = 0;    for (p = all_cards; p != 0; p = p->link)	count++;    return count;}/* * Shuffle the panels to keep them in a natural hierarchy. */static voidorder_cards(CARD * first, int depth){    if (first) {	if (depth && first->link)	    order_cards(first->link, depth - 1);	top_panel(first->panel);    }}/* * Return the next card in the list */static CARD *next_card(CARD * now){    if (now->link)	now = now->link;    return now;}/* * Return the previous card in the list */static CARD *prev_card(CARD * now){    CARD *p;    for (p = all_cards; p != 0; p = p->link)	if (p->link == now)	    return p;    return now;}/*******************************************************************************/static intform_virtualize(WINDOW *w){    int c = wgetch(w);    switch (c) {    case CTRL('W'):	return (MY_CTRL_W);    case CTRL('N'):	return (MY_CTRL_N);    case CTRL('P'):	return (MY_CTRL_P);    case CTRL('Q'):    case 033:	return (MY_CTRL_Q);    case KEY_BACKSPACE:	return (REQ_DEL_PREV);    case KEY_DC:	return (REQ_DEL_CHAR);    case KEY_LEFT:	return (REQ_LEFT_CHAR);    case KEY_RIGHT:	return (REQ_RIGHT_CHAR);    case KEY_DOWN:    case KEY_NEXT:	return (REQ_NEXT_FIELD);    case KEY_UP:    case KEY_PREVIOUS:	return (REQ_PREV_FIELD);    default:	return (c);    }}static FIELD **make_fields(CARD * p, int form_high, int form_wide){    FIELD **f = (FIELD **) calloc(3, sizeof(FIELD *));    f[0] = new_field(1, form_wide, 0, 0, 0, 0);    set_field_back(f[0], A_REVERSE);    set_field_buffer(f[0], 0, p->title);    field_opts_off(f[0], O_BLANK);    f[1] = new_field(form_high - 1, form_wide, 1, 0, 0, 0);    set_field_buffer(f[1], 0, p->content);    set_field_just(f[1], JUSTIFY_LEFT);    field_opts_off(f[1], O_BLANK);    f[2] = 0;    return f;}static voidshow_legend(void){    erase();    move(LINES - 3, 0);    addstr("^Q/ESC -- exit form            ^W   -- writes data to file\n");    addstr("^N   -- go to next card        ^P   -- go to previous card\n");    addstr("Arrow keys move left/right within a field, up/down between fields");}#if (defined(KEY_RESIZE) && HAVE_WRESIZE) || NO_LEAKSstatic voidfree_form_fields(FIELD ** f){    int n;    for (n = 0; f[n] != 0; ++n) {	free_field(f[n]);    }    free(f);}#endif/*******************************************************************************/static voidcardfile(char *fname){    WINDOW *win;    CARD *p;    CARD *top_card;    int visible_cards = count_cards();    int panel_wide = COLS - (visible_cards * OFFSET_CARD);    int panel_high = LINES - (visible_cards * OFFSET_CARD) - 5;    int form_wide = panel_wide - 2;    int form_high = panel_high - 2;    int y = (visible_cards - 1) * OFFSET_CARD;    int x = 0;    int ch = ERR;    int last_ch;    int finished = FALSE;    show_legend();    /* make a panel for each CARD */    for (p = all_cards; p != 0; p = p->link) {	win = newwin(panel_high, panel_wide, y, x);	keypad(win, TRUE);	p->panel = new_panel(win);	box(win, 0, 0);	p->form = new_form(make_fields(p, form_high, form_wide));	set_form_win(p->form, win);	set_form_sub(p->form, derwin(win, form_high, form_wide, 1, 1));	post_form(p->form);	y -= OFFSET_CARD;	x += OFFSET_CARD;    }    order_cards(top_card = all_cards, visible_cards);    while (!finished) {	update_panels();	doupdate();	last_ch = ch;	ch = form_virtualize(panel_window(top_card->panel));	switch (form_driver(top_card->form, ch)) {	case E_OK:	    break;	case E_UNKNOWN_COMMAND:	    switch (ch) {	    case MY_CTRL_Q:		finished = TRUE;		break;	    case MY_CTRL_P:		top_card = prev_card(top_card);		order_cards(top_card, visible_cards);		break;	    case MY_CTRL_N:		top_card = next_card(top_card);		order_cards(top_card, visible_cards);		break;	    case MY_CTRL_W:		form_driver(top_card->form, REQ_VALIDATION);		write_data(fname);		break;#if defined(KEY_RESIZE) && HAVE_WRESIZE	    case KEY_RESIZE:		/* resizeterm already did "something" reasonable, but it cannot		 * know much about layout.  So let's make it nicer.		 */		panel_wide = COLS - (visible_cards * OFFSET_CARD);		panel_high = LINES - (visible_cards * OFFSET_CARD) - 5;		form_wide = panel_wide - 2;		form_high = panel_high - 2;		y = (visible_cards - 1) * OFFSET_CARD;		x = 0;		show_legend();		for (p = all_cards; p != 0; p = p->link) {		    FIELD **oldf = form_fields(p->form);		    WINDOW *olds = form_sub(p->form);		    win = form_win(p->form);		    /* move and resize the card as needed		     * FIXME: if the windows are shrunk too much, this won't do		     */		    mvwin(win, y, x);		    wresize(win, panel_high, panel_wide);		    /* reconstruct each form.  Forms are not resizable, and		     * there appears to be no good way to reload the text in		     * a resized window.		     */		    werase(win);		    unpost_form(p->form);		    free_form(p->form);		    p->form = new_form(make_fields(p, form_high, form_wide));		    set_form_win(p->form, win);		    set_form_sub(p->form, derwin(win, form_high, form_wide,						 1, 1));		    post_form(p->form);		    free_form_fields(oldf);		    delwin(olds);		    box(win, 0, 0);		    y -= OFFSET_CARD;		    x += OFFSET_CARD;		}		break;#endif	    default:		beep();		break;	    }	    break;	default:	    flash();	    break;	}    }#if NO_LEAKS    while (all_cards != 0) {	FIELD **f;	int count;	p = all_cards;	all_cards = all_cards->link;	f = form_fields(p->form);	count = field_count(p->form);	unpost_form(p->form);	/* ...so we can free it */	free_form(p->form);	/* this also disconnects the fields */	free_form_fields(f);	del_panel(p->panel);	free(p->title);	free(p->content);	free(p);    }#endif}/*******************************************************************************/intmain(int argc, char *argv[]){    int n;    setlocale(LC_ALL, "");    initscr();    cbreak();    noecho();    if (argc > 1) {	for (n = 1; n < argc; n++)	    read_data(argv[n]);	if (count_cards() == 0)	    new_card();	cardfile(argv[1]);    } else {	read_data(default_name);	if (count_cards() == 0)	    new_card();	cardfile(default_name);    }    endwin();    ExitProgram(EXIT_SUCCESS);}#elseintmain(void){    printf("This program requires the curses form and panel libraries\n");    ExitProgram(EXIT_FAILURE);}#endif