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

C/C++ Source or Header | 1987-06-16 | 4.6 KB | 219 lines

/*
 * Pattern matching on words in a dictionary.
 * Patterns are entered as command arguments and results are
 * displayed in this window.
 *
 * Robert W. Baldwin, December 1984.
 */


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


#define    DICTNAME    "/usr/dict/words"
#define    DICTVAR        "DICTIONARY"    /* Name of shell var. */
#define    WEBHELP        "Word match is invoked using the 'lookup' command"
#define    TOPINDEX    2
#define    BOTINDEX    (WEBHEIGHT-2)

extern    int    wordsim();    /* Defined below. */
extern        web_first();    /* Defined below. */

/* Strings for outlining the window.
 */
char    *webhead = "| Word Match";
char    *webpane = "|";
char    *webbot  = "`-------------------------";

/* Window for the list of matches. */

displine webaline[WEBHEIGHT];        /* Display lines for the history. */
displine *weblines[WEBHEIGHT+1];    /* Pointers to them plus NULL. */

twindow  webster = {
        WEBROW,WEBCOL,        /* Origin. */
        WEBHEIGHT,WEBWIDTH,    /* Height and width. */
        1,1,            /* Initial (relative) cursor pos. */
        NULL,            /* No private data. */
        web_first,        /* Firstime = accept cursor pos. */
        wl_noop,        /* Lasttime = do nothing. */
        wl_twdraw,        /* Default draw routine. */
        dokey,            /* Default keystroke handler. */
        arwktab,        /* Basic arrow keystroke handler. */
        weblines,
};



/* Make a window with a title and partial outline.
 */
gwindow *(iwebster())
{
    int        i;
    displine    *line;

    webgraphics(webhead);
    webgraphics(webpane);
    webgraphics(webbot);

    for (i = 0 ; i < WEBHEIGHT ; i++)  {
        line = &webaline[i];
        line->worg_row = webster.worg_row + i;
        line->worg_col = webster.worg_col;
        line->wheight = 1;
        line->wwidth = webster.wwidth;
        line->wcur_row = 1;
        line->wcur_col = 1;
        line->wfirst = wl_noop;
        line->wlast = wl_noop;
        line->wredraw = wl_dldraw;
        line->wkey = dokey;
        line->wkeyprocs = arwktab;
        line->dl_min_col = 2;
        line->dl_max_col = webster.wwidth;
        setadline(line, webpane);
        webster.dlines[i] = line;
        }
    webster.dlines[i] = NULL;

    line = &webaline[0];
    setadline(line, webhead);
    line = &webaline[i - 1];
    setadline(line, webbot);    /* Truncates to fit. */
    return((gwindow *) &webster);
}


/* Convert a default graphic chars to fancy graphics chars
 * in the given string.
 */
webgraphics(str)
char    *str;
{
    for ( ; *str != NULL ; str++)  {
        switch (*str)  {
          default:
            break;

          case '|':
            *str = SVERTBAR;
            break;

          case '-':
            *str = SHORZBAR;
            break;

          case '`':
            *str = SLLCORNER;
            break;
        }
    }
}


/* Command to lookup word pattern in dictionary.
 * The pattern contains letters and dots.  The dots match any character.
 */
char *webmatch(args)
char    *args;
{
    char    *p, *w;        /* Pattern and word pointers. */
    char    patbuf[MAXWIDTH+1];
    char    wordbuf[MAXWIDTH+1];
    int    i;
    char    *bufptr;
    int    row,col;
    FILE    *fd;
    displine *line;
    int    nextline;    /* Index of next line to put result. */
    char    *dictfile;
    extern    char    *getenv();

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

    if ((i = sscanf(args,"%*[^:]: %s", patbuf)) != 1) {
        sprintf(statmsg, "Error, got %d args not 1. From: %s", i,args);
        return(statmsg);    /* Beware: this returns a pointer to the stack. */
        }
    line = webster.dlines[TOPINDEX-1];
    dlsetvar(line, patbuf);

    for (nextline = TOPINDEX ; nextline <= BOTINDEX ; nextline++) {
        line = webster.dlines[nextline];
        dlsetvar(line, "");
        }
    wl_draw(&webster);
    setcursor(row, col);
    fflush(stdout);

    dictfile = getenv(DICTVAR);
    if (dictfile == NULL)
          dictfile = DICTNAME;

    if ((fd = fopen(dictfile, "r")) == NULL)  {
        sprintf(statmsg, "Could not open %s to read dictionary.",
            dictfile);
        return(statmsg);
        }

    for (nextline = TOPINDEX ; nextline <= BOTINDEX ; nextline++) {
        line = webster.dlines[nextline];
        while (TRUE) {
            bufptr = fgets(wordbuf, MAXWIDTH+1, fd);
            if (bufptr != wordbuf) {
                wordbuf[0] = '\000';
                goto alldone;
                }
            if (wordsim(patbuf, wordbuf)) break;
            }
        for (w=wordbuf ; *w != '\n' ; w++) {}
        *w = '\000';
        dlsetvar(line, wordbuf);
        wl_draw(line);
        setcursor(row, col);
        fflush(stdout);
        }

alldone:
    fclose(fd);

    return(NULL);
}


/* Return TRUE if the pattern matches the word
 */
int    wordsim(pattern, word)
char    *pattern;
char    *word;
{
    for ( ; *pattern != 0 && *word != 0 ; ((int)pattern++)|((int)word++)) {
        if (*word == '\n')
              return(FALSE);
        if (*pattern == '.')
              continue;
        if (*pattern != *word)
              return(FALSE);
        }
    if (*pattern == 0 && *word == '\n')
          return(TRUE); /* Same length */
    return(FALSE);
}


/* Called when cursor enters the window.
 * Clears the help message and accepts the cursor position.
 */
web_first(w, row, col)
gwindow    *w;
int        row, col;
{
    wl_setcur(w, row, col);
    usrhelp(&user, WEBHELP);
}