Return to getstr.c CVS log

Up to [Research Unix] / researchv10no / ncurses / screen

Annotation of researchv10no/ncurses/screen/getstr.c, revision 1.1.1.1

1.1       root        1: # include      "curses.ext"
                      2: /*     @(#) getstr.c: 1.1 10/15/83     (1.10   11/18/82)       */
                      3: 
                      4: /*
                      5:  *     This routine gets a string starting at (_cury,_curx)
                      6:  *
                      7:  * 7/2/81 (Berkeley) @(#)getstr.c      1.4
                      8:  */
                      9: wgetstr(win,str)
                     10: WINDOW *win; 
                     11: char   *str;
                     12: {
                     13:        char myerase, mykill;
                     14:        char rownum[256], colnum[256];
                     15:        int doecho = SP->fl_echoit;
                     16:        int savecb = SP->fl_rawmode;
                     17:        register int cpos = 0;
                     18:        register int ch;
                     19:        register char *cp = str;
                     20: 
                     21: #ifdef DEBUG
                     22:        if (outf) fprintf(outf, "doecho %d, savecb %d\n", doecho, savecb);
                     23: #endif
                     24: 
                     25:        myerase = erasechar();
                     26:        mykill = killchar();
                     27:        noecho(); crmode();
                     28: 
                     29:        for (;;) {
                     30:                rownum[cpos] = win->_cury;
                     31:                colnum[cpos] = win->_curx;
                     32:                if (! (win->_flags&_ISPAD))
                     33:                        wrefresh(win);
                     34:                ch = wgetch(win);
                     35:                if (ch <= 0 ||ch == ERR || ch == '\n' || ch == '\r')
                     36:                        break;
                     37:                if (ch == myerase || ch == KEY_LEFT || ch == KEY_BACKSPACE) {
                     38:                        if (cpos > 0) {
                     39:                                cp--; cpos--;
                     40:                                if (doecho) {
                     41:                                        wmove(win, rownum[cpos], colnum[cpos]);
                     42:                                        wclrtoeol(win);
                     43:                                }
                     44:                        }
                     45:                } else if (ch == mykill) {
                     46:                        cp = str;
                     47:                        cpos = 0;
                     48:                        if (doecho) {
                     49:                                wmove(win, rownum[cpos], colnum[cpos]);
                     50:                                wclrtoeol(win);
                     51:                        }
                     52:                } else {
                     53:                        *cp++ = ch;
                     54:                        cpos++;
                     55:                        if (doecho) {
                     56:                                waddch(win, ch);
                     57:                        }
                     58:                }
                     59:        }
                     60: 
                     61:        *cp = '\0';
                     62: 
                     63:        if (doecho)
                     64:                echo();
                     65:        if (!savecb)
                     66:                nocrmode();
                     67:        waddch(win, '\n');
                     68:        if (win->_flags & _ISPAD);
                     69:                wrefresh(win);
                     70:        if (ch == ERR)
                     71:                return ERR;
                     72:        return OK;
                     73: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.