ncurses 6.0
[ncurses.git] / test / cardfile.c
index 08d33ed43cc0d8014e4a8f3a894215e8e95f943f..b75024143c6e090fcb3be2e2a364647218b0302f 100644 (file)
@@ -1,5 +1,5 @@
 /****************************************************************************
- * Copyright (c) 1999-2002,2003 Free Software Foundation, Inc.              *
+ * Copyright (c) 1999-2012,2013 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            *
@@ -27,9 +27,9 @@
  ****************************************************************************/
 
 /*
- * Author: Thomas E. Dickey <dickey@clark.net> 1999
+ * Author: Thomas E. Dickey
  *
- * $Id: cardfile.c,v 1.23 2003/04/26 16:43:56 tom Exp $
+ * $Id: cardfile.c,v 1.42 2013/09/28 22:02:17 tom Exp $
  *
  * File format: text beginning in column 1 is a title; other text is content.
  */
 
 #define VISIBLE_CARDS 10
 #define OFFSET_CARD 2
+#define pair_1 1
+#define pair_2 2
+
+#define isVisible(cardp) ((cardp)->panel != 0)
 
 enum {
     MY_CTRL_x = MAX_FORM_COMMAND
@@ -61,19 +65,16 @@ typedef struct _card {
 } CARD;
 
 static CARD *all_cards;
+static bool try_color = FALSE;
 static char default_name[] = "cardfile.dat";
 
-#if !HAVE_STRDUP
-#define strdup my_strdup
-static char *
-strdup(char *s)
+static void
+failed(const char *s)
 {
-    char *p = (char *) malloc(strlen(s) + 1);
-    if (p)
-       strcpy(p, s);
-    return (p);
+    perror(s);
+    endwin();
+    ExitProgram(EXIT_FAILURE);
 }
-#endif /* not HAVE_STRDUP */
 
 static const char *
 skip(const char *buffer)
@@ -86,7 +87,7 @@ skip(const char *buffer)
 static void
 trim(char *buffer)
 {
-    unsigned n = strlen(buffer);
+    size_t n = strlen(buffer);
     while (n-- && isspace(UChar(buffer[n])))
        buffer[n] = 0;
 }
@@ -106,7 +107,7 @@ add_title(const char *title)
            break;
     }
 
-    card = (CARD *) calloc(1, sizeof(CARD));
+    card = typeCalloc(CARD, (size_t) 1);
     card->title = strdup(title);
     card->content = strdup("");
 
@@ -124,20 +125,25 @@ add_title(const char *title)
 static void
 add_content(CARD * card, const char *content)
 {
-    unsigned total, offset;
+    size_t total, offset;
 
     content = skip(content);
     if ((total = strlen(content)) != 0) {
-       if ((offset = strlen(card->content)) != 0) {
+       if (card->content != 0 && (offset = strlen(card->content)) != 0) {
            total += 1 + offset;
-           card->content = (char *) realloc(card->content, total + 1);
-           strcpy(card->content + offset++, " ");
+           card->content = typeRealloc(char, total + 1, card->content);
+           if (card->content)
+               strcpy(card->content + offset++, " ");
        } else {
+           offset = 0;
            if (card->content != 0)
                free(card->content);
-           card->content = (char *) malloc(total + 1);
+           card->content = typeMalloc(char, total + 1);
        }
-       strcpy(card->content + offset, content);
+       if (card->content)
+           strcpy(card->content + offset, content);
+       else
+           failed("add_content");
     }
 }
 
@@ -238,7 +244,8 @@ order_cards(CARD * first, int depth)
     if (first) {
        if (depth && first->link)
            order_cards(first->link, depth - 1);
-       top_panel(first->panel);
+       if (isVisible(first))
+           top_panel(first->panel);
     }
 }
 
@@ -248,8 +255,13 @@ order_cards(CARD * first, int depth)
 static CARD *
 next_card(CARD * now)
 {
-    if (now->link)
-       now = now->link;
+    if (now->link != 0) {
+       CARD *tst = now->link;
+       if (isVisible(tst))
+           now = tst;
+       else
+           (void) next_card(tst);
+    }
     return now;
 }
 
@@ -260,9 +272,24 @@ static CARD *
 prev_card(CARD * now)
 {
     CARD *p;
-    for (p = all_cards; p != 0; p = p->link)
-       if (p->link == now)
+    for (p = all_cards; p != 0; p = p->link) {
+       if (p->link == now) {
+           if (!isVisible(p))
+               p = prev_card(p);
            return p;
+       }
+    }
+    return now;
+}
+
+/*
+ * Returns the first card in the list that we will display.
+ */
+static CARD *
+first_card(CARD * now)
+{
+    if (!isVisible(now))
+       now = next_card(now);
     return now;
 }
 
@@ -280,8 +307,8 @@ form_virtualize(WINDOW *w)
        return (MY_CTRL_N);
     case CTRL('P'):
        return (MY_CTRL_P);
-    case CTRL('Q'):
-    case 033:
+    case QUIT:
+    case ESCAPE:
        return (MY_CTRL_Q);
 
     case KEY_BACKSPACE:
@@ -308,7 +335,7 @@ form_virtualize(WINDOW *w)
 static FIELD **
 make_fields(CARD * p, int form_high, int form_wide)
 {
-    FIELD **f = (FIELD **) calloc(3, sizeof(FIELD *));
+    FIELD **f = typeCalloc(FIELD *, (size_t) 3);
 
     f[0] = new_field(1, form_wide, 0, 0, 0, 0);
     set_field_back(f[0], A_REVERSE);
@@ -355,23 +382,37 @@ cardfile(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 visible_cards;
+    int panel_wide;
+    int panel_high;
+    int form_wide;
+    int form_high;
+    int y;
+    int x;
     int ch = ERR;
-    int last_ch;
     int finished = FALSE;
 
     show_legend();
 
+    /* decide how many cards we can display */
+    visible_cards = count_cards();
+    while (
+             (panel_wide = COLS - (visible_cards * OFFSET_CARD)) < 10 ||
+             (panel_high = LINES - (visible_cards * OFFSET_CARD) - 5) < 5) {
+       --visible_cards;
+    }
+    form_wide = panel_wide - 2;
+    form_high = panel_high - 2;
+    y = (visible_cards - 1) * OFFSET_CARD;
+    x = 0;
+
     /* make a panel for each CARD */
     for (p = all_cards; p != 0; p = p->link) {
 
-       win = newwin(panel_high, panel_wide, y, x);
+       if ((win = newwin(panel_high, panel_wide, y, x)) == 0)
+           break;
+
+       wbkgd(win, (chtype) COLOR_PAIR(pair_2));
        keypad(win, TRUE);
        p->panel = new_panel(win);
        box(win, 0, 0);
@@ -385,13 +426,13 @@ cardfile(char *fname)
        x += OFFSET_CARD;
     }
 
-    order_cards(top_card = all_cards, visible_cards);
+    top_card = first_card(all_cards);
+    order_cards(top_card, 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:
@@ -432,6 +473,8 @@ cardfile(char *fname)
                    FIELD **oldf = form_fields(p->form);
                    WINDOW *olds = form_sub(p->form);
 
+                   if (!isVisible(p))
+                       continue;
                    win = form_win(p->form);
 
                    /* move and resize the card as needed
@@ -478,20 +521,20 @@ cardfile(char *fname)
 #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);
+       if (isVisible(p)) {
+           f = form_fields(p->form);
 
-       unpost_form(p->form);   /* ...so we can free it */
-       free_form(p->form);     /* this also disconnects the fields */
+           unpost_form(p->form);       /* ...so we can free it */
+           free_form(p->form); /* this also disconnects the fields */
 
-       free_form_fields(f);
+           free_form_fields(f);
 
-       del_panel(p->panel);
+           del_panel(p->panel);
+       }
        free(p->title);
        free(p->content);
        free(p);
@@ -499,6 +542,22 @@ cardfile(char *fname)
 #endif
 }
 
+static void
+usage(void)
+{
+    static const char *msg[] =
+    {
+       "Usage: view [options] file"
+       ,""
+       ,"Options:"
+       ," -c       use color if terminal supports it"
+    };
+    size_t n;
+    for (n = 0; n < SIZEOF(msg); n++)
+       fprintf(stderr, "%s\n", msg[n]);
+    ExitProgram(EXIT_FAILURE);
+}
+
 /*******************************************************************************/
 
 int
@@ -508,11 +567,32 @@ main(int argc, char *argv[])
 
     setlocale(LC_ALL, "");
 
+    while ((n = getopt(argc, argv, "c")) != -1) {
+       switch (n) {
+       case 'c':
+           try_color = TRUE;
+           break;
+       default:
+           usage();
+       }
+    }
+
     initscr();
     cbreak();
     noecho();
 
-    if (argc > 1) {
+    if (try_color) {
+       if (has_colors()) {
+           start_color();
+           init_pair(pair_1, COLOR_WHITE, COLOR_BLUE);
+           init_pair(pair_2, COLOR_WHITE, COLOR_CYAN);
+           bkgd((chtype) COLOR_PAIR(pair_1));
+       } else {
+           try_color = FALSE;
+       }
+    }
+
+    if (optind + 1 == argc) {
        for (n = 1; n < argc; n++)
            read_data(argv[n]);
        if (count_cards() == 0)