Return to scroll.c CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.lib / libcurses

Annotation of 42BSD/usr.lib/libcurses/scroll.c, revision 1.1.1.1

1.1       root        1: # include      "curses.ext"
                      2: 
                      3: /*
                      4:  *     This routine scrolls the window up a line.
                      5:  *
                      6:  * 6/1/83 (Berkeley) @(#)scroll.c      1.3
                      7:  */
                      8: scroll(win)
                      9: reg WINDOW     *win; {
                     10: 
                     11:        reg char        *sp;
                     12:        reg int         i;
                     13:        reg char        *temp;
                     14: 
                     15:        if (!win->_scroll)
                     16:                return ERR;
                     17:        temp = win->_y[0];
                     18:        for (i = 1; i < win->_maxy; i++)
                     19:                win->_y[i - 1] = win->_y[i];
                     20:        for (sp = temp; sp < &temp[win->_maxx]; )
                     21:                *sp++ = ' ';
                     22:        win->_y[win->_maxy - 1] = temp;
                     23:        win->_cury--;
                     24:        if (win == curscr) {
                     25:                putchar('\n');
                     26:                if (!NONL)
                     27:                        win->_curx = 0;
                     28: # ifdef DEBUG
                     29:                fprintf(outf, "SCROLL: win == curscr\n");
                     30: # endif
                     31:        }
                     32: # ifdef DEBUG
                     33:        else
                     34:                fprintf(outf, "SCROLL: win [0%o] != curscr [0%o]\n",win,curscr);
                     35: # endif
                     36:        touchwin(win);
                     37:        return OK;
                     38: }

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