Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/unix/volume10/cbw/part02/windowlib.c

C/C++ Source or Header | 1987-06-16 | 4.3 KB | 216 lines

/*
 * Library of window routines.
 *
 * Robert W. Baldwin, December 1984.
 */

#include    <stdio.h>
#include    "window.h"
#include    "specs.h"


/* The external topktab must be filled in by the application.
 * It specifies the keystroke behavior that is the same in
 * all windows.  For example, the refresh function can be handled here.
 * It should be terminated by a keychar == 0, not -1, so the
 * active window will get a chance to handle the key.
 */
extern    keyer    topktab[];


/* This external must be a routine that gets and returns
 * a keystroke (integer) without taking any arguments.
 */
extern    key        u_getkey();



/* This is the main loop that runs the window system.
 * It returns if the cursor is not in any of the windows in wtab.
 */
wl_driver(wtab)
gwindow        *wtab[];        /* Ptr to null terminated list of windows. */
{
gwindow        **pw, *w;
int            lrow, lcol;        /* Cursor location relative to window. */
key            k;

while (TRUE)  {
    for (pw = wtab ; TRUE ; pw++)  {
        w = *pw;
        if (w == NULL)  return;
        if (wl_hascur(w))  break;
        }

    lrow = rowcursor() - w->worg_row + 1;
    lcol = colcursor() - w->worg_col + 1;
    (*(w->wfirst))(w, lrow, lcol);

    while (wl_hascur(w))  {
        k = u_getkey();
        if (!ddokey(w, k, topktab)) {
            (*(w->wkey))(w, k);
            }
        }

    (*(w->wlast))(w);
    }
}



/* Refresh all windows.
 * Do not move the cursor.
 */
wl_refresh(wtab)
gwindow        *wtab[];        /* Ptr to null terminated list of windows. */
{
    gwindow        **pw, *w;
    int            row, col;        /* Initial global cursor location. */

    row = rowcursor();
    col = colcursor();

    for (pw = wtab ; TRUE ; pw++)  {
        w = *pw;
        if (w == NULL)  break;
        wl_draw(w);
        }
    setcursor(row, col);
}



/* Restore the cursor the the position saved in the window structure.
 * Can also be used to set the cursor by first setting the cursor coords
 * in the window data structure.
 */
wl_rcursor(w)
gwindow    *w;            /* Pointer to basic window data. */
{
    int    grow,gcol;    /* Global cursor locations. */

    grow = w->wcur_row + w->worg_row - 1;
    gcol = w->wcur_col + w->worg_col - 1;
    setcursor(grow,gcol);
    if (!wl_hascur(w))  disperr("wl_rcursor arguments out-of-bounds.");
}



/* Set the cursor to the given coordinates within a window.
 * That is, set it relative to the window's origin.
 * It displays an error if the cursor leaves the window.
 */
wl_setcur(w, row, col)
gwindow    *w;            /* Pointer to basic window data. */
int        row, col;    /* Local coordinates. */
{
    int    grow,gcol;    /* Global cursor locations. */

    w->wcur_row = row;
    w->wcur_col = col;
    grow = w->worg_row + row - 1;
    gcol = w->worg_col + col - 1;
    setcursor(grow,gcol);
    if (!wl_hascur(w))  disperr("wl_setcur arguments out-of-bounds.");
}


/* No-op window routine.
 */
wl_noop()
{
}



/* Return TRUE if the cursor is in the given window.
 */
wl_hascur(w)
gwindow        *w;
{
    int        grow, gcol;        /* Global cursor location. */
    int        lrow, lcol;        /* Cursor location relative to window. */

    grow = rowcursor();
    gcol = colcursor();
    lrow = grow - w->worg_row + 1;
    lcol = gcol - w->worg_col + 1;

    if (lrow < 1  ||  w->wheight < lrow)  return(FALSE);
    if (lcol < 1  ||  w->wwidth  < lcol)  return(FALSE);
    return(TRUE);
}



/* Generic draw routine.
 */
wl_draw(w)
gwindow    *w;
{
    (*(w->wredraw))(w);
}


/* Redraw routine that can be used with any twindow.
 * Leaves cursor on the last display line.
 */
wl_twdraw(w)
twindow    *w;
{
    displine    **lines, *line;

    for (lines = w->dlines ; (line = *lines) != NULL ; lines++)  {
        (*(line->wredraw))(line);
        }
}


/* Erase the window by putting spaces of all of it.
 * Leave the cursor at the window's origin.
 */
wl_erase(w)
gwindow    *w;
{
    int    grow, gcol;        /* Global row and column locations. */
    int i;

    grow = w->worg_row;
    gcol = w->worg_col;

    for (i = 0 ; i < w->wheight ; i++)  {
        setcursor(grow+i, gcol);
        plnspaces(w->wwidth);
        }
    wl_setcur(w, 1, 1);
}


/* Outline a window without changing its inside.
 * Leave cursor at the origin.
 */
wl_outline(w)
gwindow    *w;
{
    int    grow, gcol;        /* Global row and column locations. */

    grow = w->worg_row;
    gcol = w->worg_col;

    setcursor(grow, gcol);
    plnchars(w->wwidth, '-');
    setcursor(grow+w->wheight-1, gcol);
    plnchars(w->wwidth, '-');

    setcursor(grow, gcol);
    vertnchars(w->wheight, '|');
    setcursor(grow, gcol+w->wwidth-1);
    vertnchars(w->wheight, '|');

    grow = w->worg_row + w->wcur_row - 1;
    gcol = w->worg_col + w->wcur_col - 1;
    setcursor(grow, gcol);
}