curses 1.4.5 → 1.4.6

data/vendor/PDCurses/demos/ozdemo.c

@@ -1,447 +0,0 @@
-/*
- *  ozdemo.c   -   A demo program using PDCurses. The program
- *          illustrates the use of colors for text output.
- *
- *  Hacks by jbuhler@cs.washington.edu on 12/29/96
- */
-
-#include <stdio.h>
-#include <signal.h>
-#include <string.h>
-#include <curses.h>
-#include <stdlib.h>
-#include <assert.h>
-#include <time.h>
-
-int WaitForUser(void);
-int SubWinTest(WINDOW *);
-int BouncingBalls(WINDOW *);
-void trap(int);
-
-/* An ASCII map of Australia */
-
-char *AusMap[17] =
-{
-    "                       A ",
-    "           AA         AA ",
-    "    N.T. AAAAA       AAAA ",
-    "     AAAAAAAAAAA  AAAAAAAA ",
-    "   AAAAAAAAAAAAAAAAAAAAAAAAA Qld.",
-    " AAAAAAAAAAAAAAAAAAAAAAAAAAAA ",
-    " AAAAAAAAAAAAAAAAAAAAAAAAAAAAA ",
-    " AAAAAAAAAAAAAAAAAAAAAAAAAAAA ",
-    "   AAAAAAAAAAAAAAAAAAAAAAAAA N.S.W.",
-    "W.A. AAAAAAAAA      AAAAAA Vic.",
-    "       AAA   S.A.     AA",
-    "                       A  Tas.",
-    ""
-};
-
-/* Funny messages for the scroller */
-
-char *messages[] =
-{
-    "Hello from the Land Down Under",
-    "The Land of crocs, and a big Red Rock",
-    "Where the sunflower runs along the highways",
-    "The dusty red roads lead one to loneliness",
-    "Blue sky in the morning and",
-    "Freezing nights and twinkling stars",
-    NULL
-};
-
-int WaitForUser(void)
-{
-    chtype ch;
-
-    nodelay(stdscr, TRUE);
-    halfdelay(50);
-
-    ch = getch();
-
-    nodelay(stdscr, FALSE);
-    nocbreak();     /* Reset the halfdelay() value */
-    cbreak();
-
-    return (ch == '\033') ? '\033' : 0;
-}
-
-int SubWinTest(WINDOW *win)
-{
-    WINDOW *swin1, *swin2, *swin3;
-    int w, h, sw, sh, bx, by;
-
-    wattrset(win, 0);
-    getmaxyx(win, h, w);
-    getbegyx(win, by, bx);
-
-    sw = w / 3;
-    sh = h / 3;
-
-    if ((swin1 = derwin(win, sh, sw, 3, 5)) == NULL)
-        return 1;
-    if ((swin2 = subwin(win, sh, sw, by + 4, bx + 8)) == NULL)
-        return 1;
-    if ((swin3 = subwin(win, sh, sw, by + 5, bx + 11)) == NULL)
-        return 1;
-
-    init_pair(8, COLOR_RED, COLOR_BLUE);
-    wbkgd(swin1, COLOR_PAIR(8));
-    werase(swin1);
-    mvwaddstr(swin1, 0, 3, "Sub-window 1");
-    wrefresh(swin1);
-
-    init_pair(9, COLOR_CYAN, COLOR_MAGENTA);
-    wbkgd(swin2, COLOR_PAIR(9));
-    werase(swin2);
-    mvwaddstr(swin2, 0, 3, "Sub-window 2");
-    wrefresh(swin2);
-
-    init_pair(10, COLOR_YELLOW, COLOR_GREEN);
-    wbkgd(swin3, COLOR_PAIR(10));
-    werase(swin3);
-    mvwaddstr(swin3, 0, 3, "Sub-window 3");
-    wrefresh(swin3);
-
-    delwin(swin1);
-    delwin(swin2);
-    delwin(swin3);
-    WaitForUser();
-
-    return 0;
-}
-
-int BouncingBalls(WINDOW *win)
-{
-    chtype c1, c2, c3, ball1, ball2, ball3;
-    int w, h, x1, y1, xd1, yd1, x2, y2, xd2, yd2, x3, y3, xd3, yd3, c;
-
-    curs_set(0);
-
-    wbkgd(win, COLOR_PAIR(1));
-    wrefresh(win);
-    wattrset(win, 0);
-
-    init_pair(11, COLOR_RED, COLOR_GREEN);
-    init_pair(12, COLOR_BLUE, COLOR_RED);
-    init_pair(13, COLOR_YELLOW, COLOR_WHITE);
-
-    ball1 = 'O' | COLOR_PAIR(11);
-    ball2 = '*' | COLOR_PAIR(12);
-    ball3 = '@' | COLOR_PAIR(13);
-
-    getmaxyx(win, h, w);
-
-    x1 = 2 + rand() % (w - 4);
-    y1 = 2 + rand() % (h - 4);
-    x2 = 2 + rand() % (w - 4);
-    y2 = 2 + rand() % (h - 4);
-    x3 = 2 + rand() % (w - 4);
-    y3 = 2 + rand() % (h - 4);
-
-    xd1 = 1;
-    yd1 = 1;
-    xd2 = 1;
-    yd2 = -1;
-    xd3 = -1;
-    yd3 = 1;
-
-    nodelay(stdscr, TRUE);
-
-    while ((c = getch()) == ERR)
-    {
-        x1 += xd1;
-        if (x1 <= 1 || x1 >= w - 2)
-            xd1 *= -1;
-
-        y1 += yd1;
-        if (y1 <= 1 || y1 >= h - 2)
-            yd1 *= -1;
-
-        x2 += xd2;
-        if (x2 <= 1 || x2 >= w - 2)
-            xd2 *= -1;
-
-        y2 += yd2;
-        if (y2 <= 1 || y2 >= h - 2)
-            yd2 *= -1;
-
-        x3 += xd3;
-        if (x3 <= 1 || x3 >= w - 2)
-            xd3 *= -1;
-
-        y3 += yd3;
-        if (y3 <= 1 || y3 >= h - 2)
-            yd3 *= -1;
-
-        c1 = mvwinch(win, y1, x1);
-        c2 = mvwinch(win, y2, x2);
-        c3 = mvwinch(win, y3, x3);
-
-        mvwaddch(win, y1, x1, ball1);
-        mvwaddch(win, y2, x2, ball2);
-        mvwaddch(win, y3, x3, ball3);
-
-        wmove(win, 0, 0);
-        wrefresh(win);
-
-        mvwaddch(win, y1, x1, c1);
-        mvwaddch(win, y2, x2, c2);
-        mvwaddch(win, y3, x3, c3);
-
-        napms(150);
-    }
-
-    nodelay(stdscr, FALSE);
-    ungetch(c);
-    return 0;
-}
-
-/* Trap interrupt */
-
-void trap(int sig)
-{
-    if (sig == SIGINT)
-    {
-        endwin();
-
-        exit(0);
-    }
-}
-
-int main(int argc, char **argv)
-{
-    WINDOW *win;
-    chtype save[80], ch;
-    int width, height, w, x, y, i, j, seed;
-    const char *versions =
-            " DOS, OS/2, Windows console & GUI, X11, SDL 1/2, VT";
-    const char *hit_any_key =
-            "       Type a key to continue or ESC to quit       ";
-
-    assert( strlen( versions) == strlen( hit_any_key));
-#ifdef PDCURSES
-#ifdef PDC_VER_MAJOR   /* so far only seen in 4.0+ */
-    PDC_set_resize_limits( 20, 50, 70, 200);
-#endif
-#endif
-
-#ifdef XCURSES
-    Xinitscr(argc, argv);
-#else
-    initscr();
-#endif
-    seed = (int)time((time_t *)0);
-    srand(seed);
-
-    start_color();
-# if defined(NCURSES_VERSION) || (defined(PDC_BUILD) && PDC_BUILD > 3000)
-    use_default_colors();
-# endif
-    cbreak();
-    noecho();
-
-    curs_set(0);
-
-#if !defined(__TURBOC__) && !defined(OS2)
-    signal(SIGINT, trap);
-#endif
-    noecho();
-
-    /* refresh stdscr so that reading from it will not cause it to
-       overwrite the other windows that are being created */
-
-    refresh();
-
-    /* Create a drawing window */
-
-    width  = strlen( versions) + 4;
-    height = 18;
-
-    win = newwin(height, width, (LINES - height) / 2, (COLS - width) / 2);
-
-    if (win == NULL)
-    {
-        endwin();
-
-        return 1;
-    }
-
-    for (;;)
-    {
-
-
-        init_pair(1, COLOR_WHITE, COLOR_BLUE);
-        wbkgd(win, COLOR_PAIR(1));
-        werase(win);
-
-        init_pair(2, COLOR_RED, COLOR_RED);
-        wattrset(win, COLOR_PAIR(2));
-        box(win, ' ', ' ');
-        wrefresh(win);
-
-        wattrset(win, 0);
-
-        /* Do random output of a character */
-
-        ch = 'a';
-
-        nodelay(stdscr, TRUE);
-
-        for (i = 0; i < 5000; ++i)
-        {
-            x = rand() % (width - 2) + 1;
-            y = rand() % (height - 2) + 1;
-
-            mvwaddch(win, y, x, ch);
-            wrefresh(win);
-
-            if (getch() != ERR)
-                break;
-            napms( 1);
-
-            if (i == 2000)
-            {
-                ch = 'b';
-                init_pair(3, COLOR_CYAN, COLOR_YELLOW);
-                wattrset(win, COLOR_PAIR(3));
-            }
-        }
-
-        nodelay(stdscr, FALSE);
-
-        SubWinTest(win);
-
-        /* Erase and draw green window */
-
-        init_pair(4, COLOR_YELLOW, COLOR_GREEN);
-        wbkgd(win, COLOR_PAIR(4));
-        wattrset(win, A_BOLD);
-        werase(win);
-        wrefresh(win);
-
-        /* Draw RED bounding box */
-
-        wattrset(win, COLOR_PAIR(2));
-        box(win, ' ', ' ');
-        wrefresh(win);
-
-        /* Display Australia map */
-
-        wattrset(win, A_BOLD);
-        i = 0;
-
-        while (*AusMap[i])
-        {
-            mvwaddstr(win, i + 1, 8, AusMap[i]);
-            wrefresh(win);
-            napms(100);
-            ++i;
-        }
-
-        init_pair(5, COLOR_BLUE, COLOR_WHITE);
-        wattrset(win, COLOR_PAIR(5) | A_BLINK);
-        mvwaddstr( win, height - 4, 2, longname( ));
-        mvwaddstr( win, height - 3, 2, curses_version( ));
-        mvwaddstr( win, height - 2, 2, versions);
-        wrefresh(win);
-
-        /* Draw running messages */
-
-        init_pair(6, COLOR_BLACK, COLOR_WHITE);
-        wattrset(win, COLOR_PAIR(6));
-        w = width - 2;
-        nodelay(win, TRUE);
-
-        mvwhline(win, height / 2, 1, ' ', w);
-
-        for (j = 0; messages[j] != NULL; j++)
-        {
-            char *message = messages[j];
-            int msg_len = strlen(message);
-            int stop = 0;
-            int xpos, start, count, n;
-
-            for (n = 0; n <= w + msg_len; n++)
-            {
-                if (n < w)
-                {
-                    xpos = w - n;
-                    start = 0;
-                    count = (n > msg_len) ? msg_len : n;
-                }
-                else
-                {
-                    xpos = 0;
-                    start = n - w;
-                    count = (w > msg_len - start) ? msg_len - start : w;
-                }
-
-                mvwaddnstr(win, height / 2, xpos + 1, message + start, count);
-                if (xpos + count < w)
-                    waddstr(win, " ");
-
-                wrefresh(win);
-
-                if (wgetch(win) != ERR)
-                {
-                    flushinp();
-                    stop = 1;
-                    break;
-                }
-
-                napms(100);
-            }
-
-            if (stop)
-                break;
-        }
-
-        j = 0;
-
-        /*  Draw running 'A's across in RED */
-
-        init_pair(7, COLOR_RED, COLOR_GREEN);
-        wattron(win, COLOR_PAIR(7));
-
-        for (i = 2; i < width - 4; ++i)
-        {
-            ch = mvwinch(win, 5, i);
-            save[j++] = ch;
-            ch = ch & 0x7f;
-            mvwaddch(win, 5, i, ch);
-        }
-
-        wrefresh(win);
-
-        /* Put a message up; wait for a key */
-
-        i = height - 2;
-        wattrset(win, COLOR_PAIR(5));
-        mvwaddstr(win, i, 2, hit_any_key);
-        wrefresh(win);
-
-        if (WaitForUser() == '\033')
-            break;
-
-        /* Restore the old line */
-
-        wattrset(win, 0);
-
-        for (i = 2, j = 0; i < width - 4; ++i)
-            mvwaddch(win, 5, i, save[j++]);
-
-        wrefresh(win);
-
-        BouncingBalls(win);
-
-        /* BouncingBalls() leaves a keystroke in the queue */
-
-        if (WaitForUser() == '\033')
-            break;
-    }
-
-    endwin();
-
-    return 0;
-}

data/vendor/PDCurses/demos/ptest.c

@@ -1,283 +0,0 @@
-#include <curses.h>
-#include <panel.h>
-#include <stdlib.h>
-
-PANEL *p1, *p2, *p3, *p4, *p5;
-WINDOW *w4, *w5;
-
-long nap_msec = 1;
-
-char *mod[] = 
-{
-    "test ", "TEST ", "(**) ", "*()* ", "<--> ", "LAST "
-};
-
-void pflush(void)
-{
-    update_panels();
-    doupdate();
-}
-
-void backfill(void)
-{
-    int y, x;
-
-    erase();
-
-    for (y = 0; y < LINES - 1; y++)
-        for (x = 0; x < COLS; x++)
-            printw("%d", (y + x) % 10);
-}
-
-void wait_a_while(long msec)
-{
-    int c;
-
-    if (msec != 1)
-        timeout(msec);
-
-    c = getch();
-
-    if (c == 'q')
-    {
-        endwin();
-        exit(1);
-    }
-}
-
-void saywhat(const char *text)
-{
-    mvprintw(LINES - 1, 0, "%-20.20s", text);
-}
-
-/* mkpanel - alloc a win and panel and associate them */
-
-PANEL *mkpanel(int rows, int cols, int tly, int tlx)
-{
-    WINDOW *win = newwin(rows, cols, tly, tlx);
-    PANEL *pan = (PANEL *)0;
-
-    if (win)
-    {
-        pan = new_panel(win);
-
-        if (!pan)
-            delwin(win);
-    }
-
-    return pan;
-}
-
-void rmpanel(PANEL *pan)
-{
-    WINDOW *win = pan->win;
-
-    del_panel(pan);
-    delwin(win);
-}
-
-void fill_panel(PANEL *pan)
-{
-    WINDOW *win = pan->win;
-    char num = *((char *)pan->user + 1);
-    int y, x, maxy, maxx;
-
-    box(win, 0, 0);  
-    mvwprintw(win, 1, 1, "-pan%c-", num);
-    getmaxyx(win, maxy, maxx);
-
-    for (y = 2; y < maxy - 1; y++)
-        for (x = 1; x < maxx - 1; x++)
-            mvwaddch(win, y, x, num);
-}
-
-int main(int argc, char **argv)
-{
-    int itmp, y;
-
-    if (argc > 1 && atol(argv[1]))
-        nap_msec = atol(argv[1]);
-
-#ifdef XCURSES
-    Xinitscr(argc, argv);
-#else
-    initscr();
-#endif
-    backfill();
-
-    for (y = 0; y < 5; y++)
-    {
-        p1 = mkpanel(10, 10, 0, 0);
-        set_panel_userptr(p1, "p1");
-
-        p2 = mkpanel(14, 14, 5, 5);
-        set_panel_userptr(p2, "p2");
-
-        p3 = mkpanel(6, 8, 12, 12);
-        set_panel_userptr(p3, "p3");
-
-        p4 = mkpanel(10, 10, 10, 30);
-        w4 = panel_window(p4);
-        set_panel_userptr(p4, "p4");
-
-        p5 = mkpanel(10, 10, 13, 37);
-        w5 = panel_window(p5);
-        set_panel_userptr(p5, "p5");
-
-        fill_panel(p1);
-        fill_panel(p2);
-        fill_panel(p3);
-        fill_panel(p4);
-        fill_panel(p5);
-        hide_panel(p4);
-        hide_panel(p5);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("h3 s1 s2 s4 s5;");
-        move_panel(p1, 0, 0);
-        hide_panel(p3);
-        show_panel(p1);
-        show_panel(p2);
-        show_panel(p4);
-        show_panel(p5);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("s1;");
-        show_panel(p1);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("s2;");
-        show_panel(p2);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("m2;");
-        move_panel(p2, 10, 10);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("s3;");
-        show_panel(p3);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("m3;");
-        move_panel(p3, 5, 5);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("b3;");
-        bottom_panel(p3);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("s4;");
-        show_panel(p4);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("s5;");
-        show_panel(p5);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("t3;");
-        top_panel(p3);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("t1;");
-        top_panel(p1);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("t2;");
-        top_panel(p2);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("t3;");
-        top_panel(p3);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("t4;");
-        top_panel(p4);
-        pflush();
-        wait_a_while(nap_msec);
-
-        for (itmp = 0; itmp < 6; itmp++)
-        {
-            saywhat("m4;");
-            mvwaddstr(w4, 3, 1, mod[itmp]);
-            move_panel(p4, 4, itmp * 10);
-            mvwaddstr(w5, 4, 1, mod[itmp]);
-            pflush();
-            wait_a_while(nap_msec);
-
-            saywhat("m5;");
-            mvwaddstr(w4, 4, 1, mod[itmp]);
-            move_panel(p5, 7, itmp * 10 + 6);
-            mvwaddstr(w5, 3, 1, mod[itmp]);
-            pflush();
-            wait_a_while(nap_msec);
-        }
-
-        saywhat("m4;");
-        move_panel(p4, 4, itmp * 10);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("t5;");
-        top_panel(p5);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("t2;");
-        top_panel(p2);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("t1;");
-        top_panel(p1);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("d2;");
-        rmpanel(p2);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("h3;");
-        hide_panel(p3);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("d1;");
-        rmpanel(p1);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("d4; ");
-        rmpanel(p4);
-        pflush();
-        wait_a_while(nap_msec);
-
-        saywhat("d5; ");
-        rmpanel(p5);
-        pflush();
-        wait_a_while(nap_msec);
-
-        if (nap_msec == 1)
-            break;
-
-        nap_msec = 100L;
-    }
-
-    endwin();
-
-    return 0;
-}   /* end of main */