1 /* 2 * Copyright 2001 Sun Microsystems, Inc. All rights reserved. 3 * Use is subject to license terms. 4 */ 5 6 /* Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989 AT&T */ 7 /* All Rights Reserved */ 8 9 /* 10 * Copyright (c) 1980 Regents of the University of California. 11 * All rights reserved. The Berkeley software License Agreement 12 * specifies the terms and conditions for redistribution. 13 */ 14 15 /*LINTLIBRARY*/ 16 17 #ifndef lint 18 static char 19 sccsid[] = "@(#)scroll.c 1.6 88/02/08 SMI"; /* from UCB 5.1 85/06/07 */ 20 #endif /* not lint */ 21 22 #include "curses.ext" 23 24 /* 25 * This routine scrolls the window up a line. 26 */ 27 28 int 29 scroll(WINDOW *win) 30 { 31 int oy, ox; 32 33 #ifdef DEBUG 34 fprintf(outf, "SCROLL(%0.2o)\n", win); 35 #endif 36 37 if (!win->_scroll) 38 return (ERR); 39 40 getyx(win, oy, ox); 41 (void) wmove(win, 0, 0); 42 (void) wdeleteln(win); 43 (void) wmove(win, oy, ox); 44 45 if (win == curscr) { 46 (void) _putchar('\n'); 47 if (!NONL) 48 win->_curx = 0; 49 #ifdef DEBUG 50 fprintf(outf, "SCROLL: win == curscr\n"); 51 #endif 52 } 53 54 return (OK); 55 } 56