diff options
Diffstat (limited to 'tree/src/vi/ex-070224/ex_vwind.c')
| -rw-r--r-- | tree/src/vi/ex-070224/ex_vwind.c | 500 |
1 files changed, 0 insertions, 500 deletions
diff --git a/tree/src/vi/ex-070224/ex_vwind.c b/tree/src/vi/ex-070224/ex_vwind.c deleted file mode 100644 index 751c991..0000000 --- a/tree/src/vi/ex-070224/ex_vwind.c +++ /dev/null @@ -1,500 +0,0 @@ -/* - * This code contains changes by - * Gunnar Ritter, Freiburg i. Br., Germany, 2002. All rights reserved. - * - * Conditions 1, 2, and 4 and the no-warranty notice below apply - * to these changes. - * - * - * Copyright (c) 1980, 1993 - * The Regents of the University of California. All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * - * Copyright(C) Caldera International Inc. 2001-2002. All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * Redistributions of source code and documentation must retain the - * above copyright notice, this list of conditions and the following - * disclaimer. - * Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed or owned by Caldera - * International, Inc. - * Neither the name of Caldera International, Inc. nor the names of - * other contributors may be used to endorse or promote products - * derived from this software without specific prior written permission. - * - * USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA - * INTERNATIONAL, INC. AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR - * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED - * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL CALDERA INTERNATIONAL, INC. BE - * LIABLE FOR ANY DIRECT, INDIRECT INCIDENTAL, SPECIAL, EXEMPLARY, OR - * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF - * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR - * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, - * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE - * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, - * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - */ - -#ifndef lint -#ifdef DOSCCS -static char sccsid[] = "@(#)ex_vwind.c 1.9 (gritter) 11/23/04"; -#endif -#endif - -/* from ex_vwind.c 7.3 (Berkeley) 6/7/85 */ - -#include "ex.h" -#include "ex_tty.h" -#include "ex_vis.h" - -/* - * Routines to adjust the window, showing specified lines - * in certain positions on the screen, and scrolling in both - * directions. Code here is very dependent on mode (open versus visual). - */ - -/* - * Move in a nonlocal way to line addr. - * If it isn't on screen put it in specified context. - * New position for cursor is curs. - * Like most routines here, we vsave(). - */ -void -vmoveto(register line *addr, char *curs, int context) -{ - - markit(addr); - vsave(); - vjumpto(addr, curs, context); -} - -/* - * Vjumpto is like vmoveto, but doesn't mark previous - * context or save linebuf as current line. - */ -void -vjumpto(register line *addr, char *curs, int context) -{ - - noteit(0); - if (context != 0) - vcontext(addr, context); - else - vshow(addr, NOLINE); - noteit(1); - vnline(curs); -} - -/* - * Go up or down cnt (negative is up) to new position curs. - */ -void -vupdown(register int cnt, char *curs) -{ - - if (cnt > 0) - vdown(cnt, 0, 0); - else if (cnt < 0) - vup(-cnt, 0, 0); - if (vcnt == 0) - vrepaint(curs); - else - vnline(curs); -} - -/* - * Go up cnt lines, afterwards preferring to be ind - * logical lines from the top of the screen. - * If scroll, then we MUST use a scroll. - * Otherwise clear and redraw if motion is far. - */ -void -vup(register int cnt, register int ind, int scroll) -{ - register int i, tot; - - if (dot == one) { - beep(); - return; - } - vsave(); - i = lineDOT() - 1; - if (cnt > i) { - ind -= cnt - i; - if (ind < 0) - ind = 0; - cnt = i; - } - if (!scroll && cnt <= vcline) { - vshow(dot - cnt, NOLINE); - return; - } - cnt -= vcline, dot -= vcline, vcline = 0; - if (hold & HOLDWIG) - goto contxt; - if (state == VISUAL && !AL && !SR && - cnt <= WTOP - ZERO && vfit(dot - cnt, cnt) <= WTOP - ZERO) - goto okr; - tot = WECHO - ZERO; - if (state != VISUAL || (!AL && !SR) || (!scroll && (cnt > tot || vfit(dot - cnt, cnt) > tot / 3 + 1))) { - if (ind > basWLINES / 2) - ind = basWLINES / 3; -contxt: - vcontext(dot + ind - cnt, '.'); - return; - } -okr: - vrollR(cnt); - if (scroll) { - vcline += ind, dot += ind; - if (vcline >= vcnt) - dot -= vcline - vcnt + 1, vcline = vcnt - 1; - getDOT(); - } -} - -/* - * Like vup, but scrolling down. - */ -void -vdown(register int cnt, register int ind, int scroll) -{ - register int i, tot; - - if (dot == dol) { - beep(); - return; - } - vsave(); - i = dol - dot; - if (cnt > i) { - ind -= cnt - i; - if (ind < 0) - ind = 0; - cnt = i; - } - i = vcnt - vcline - 1; - if (!scroll && cnt <= i) { - vshow(dot + cnt, NOLINE); - return; - } - cnt -= i, dot += i, vcline += i; - if (hold & HOLDWIG) - goto dcontxt; - if (!scroll) { - tot = WECHO - ZERO; - if (state != VISUAL || cnt - tot > 0 || vfit(dot, cnt) > tot / 3 + 1) { -dcontxt: - vcontext(dot + cnt, '.'); - return; - } - } - if (cnt > 0) - vroll(cnt); - if (state == VISUAL && scroll) { - vcline -= ind, dot -= ind; - if (vcline < 0) - dot -= vcline, vcline = 0; - getDOT(); - } -} - -/* - * Show line addr in context where on the screen. - * Work here is in determining new top line implied by - * this placement of line addr, since we always draw from the top. - */ -void -vcontext(register line *addr, int where) -{ - register line *top; - - getline(*addr); - if (state != VISUAL) - top = addr; - else switch (where) { - - case '^': - addr = vback(addr, basWLINES - vdepth()); - getline(*addr); - /* fall into ... */ - - case '-': - top = vback(addr, basWLINES - vdepth()); - getline(*addr); - break; - - case '.': - top = vback(addr, basWLINES / 2 - vdepth()); - getline(*addr); - break; - - default: - top = addr; - break; - } - if (state == ONEOPEN && LINE(0) == WBOT) - vup1(); - vcnt = vcline = 0; - vclean(); - if (state == CRTOPEN) - vup1(); - vshow(addr, top); -} - -/* - * Get a clean line. If we are in a hard open - * we may be able to reuse the line we are on - * if it is blank. This is a real win. - */ -void -vclean(void) -{ - - if (state != VISUAL && state != CRTOPEN) { - destcol = 0; - if (!ateopr()) - vup1(); - vcnt = 0; - } -} - -/* - * Show line addr with the specified top line on the screen. - * Top may be 0; in this case have vcontext compute the top - * (and call us recursively). Eventually, we clear the screen - * (or its open mode equivalent) and redraw. - */ -void -vshow(line *addr, line *top) -{ - register int cnt = addr - dot; - register int i = vcline + cnt; - short oldhold = hold; - - if (state != HARDOPEN && state != ONEOPEN && i >= 0 && i < vcnt) { - dot = addr; - getDOT(); - vcline = i; - return; - } - if (state != VISUAL) { - dot = addr; - vopen(dot, WBOT); - return; - } - if (top == 0) { - vcontext(addr, '.'); - return; - } - dot = top; - oldhold = hold; - hold |= HOLDAT; - vclear(); - vreset(0); - vredraw(WTOP); - /* error if vcline >= vcnt ! */ - vcline = addr - top; - dot = addr; - getDOT(); - hold = oldhold; - vsync(LASTLINE); -} - -/* - * reset the state. - * If inecho then leave us at the beginning of the echo - * area; we are called this way in the middle of a :e escape - * from visual, e.g. - */ -void -vreset(int inecho) -{ - - vcnt = vcline = 0; - WTOP = basWTOP; - WLINES = basWLINES; - if (inecho) - splitw = 1, vgoto(WECHO, 0); -} - -/* - * Starting from which line preceding tp uses almost (but not more - * than) cnt physical lines? - */ -line * -vback(register line *tp, register int cnt) -{ - register int d; - - if (cnt > 0) - for (; tp > one; tp--) { - getline(tp[-1]); - d = vdepth(); - if (d > cnt) - break; - cnt -= d; - } - return (tp); -} - -/* - * How much scrolling will it take to roll cnt lines starting at tp? - */ -int -vfit(register line *tp, int cnt) -{ - register int j; - - j = 0; - while (cnt > 0) { - cnt--; - getline(tp[cnt]); - j += vdepth(); - } - if (tp > dot) - j -= WBOT - LASTLINE; - return (j); -} - -/* - * Roll cnt lines onto the screen. - */ -void -vroll(register int cnt) -{ - short oldhold = hold; - -#ifdef ADEBUG - if (trace) - tfixnl(), fprintf(trace, "vroll(%d)\n", cnt); -#endif - if (state != VISUAL) - hold |= HOLDAT|HOLDROL; - if (WBOT == WECHO) { - vcnt = 0; - if (state == ONEOPEN) - vup1(); - } - for (; cnt > 0 && Peekkey != ATTN; cnt--) { - dot++, vcline++; - vopen(dot, LASTLINE); - vscrap(); - } - hold = oldhold; - if (state == HARDOPEN) - sethard(); - vsyncCL(); -} - -/* - * Roll backwards (scroll up). - */ -void -vrollR(register int cnt) -{ - short oldhold = hold; - -#ifdef ADEBUG - if (trace) - tfixnl(), fprintf(trace, "vrollR(%d), dot=%d\n", cnt, lineDOT()); -#endif - if (WBOT == WECHO) - vcnt = 0; - heldech = 0; - hold |= HOLDAT|HOLDECH; - for (; cnt > 0 && Peekkey != ATTN; cnt--) { - dot--; - vopen(dot, WTOP); - vscrap(); - } - hold = oldhold; - if (heldech) - vclrech(0); - vsync(LINE(vcnt-1)); -} - -/* - * Go into cooked mode (allow interrupts) during - * a scroll if we are at less than 1200 baud and not - * a 'vi' command, of if we are in a 'vi' command and the - * scroll is more than 2 full screens. - * - * BUG: An interrupt during a scroll in this way - * dumps to command mode. - */ -int -vcookit(register int cnt) -{ - - return (cnt > 1 && (ospeed < B1200 && !initev || cnt > TLINES * 2)); -} - -/* - * Determine displayed depth of current line. - */ -int -vdepth(void) -{ - register int d; - - d = (column(NOSTR) + WCOLS - 1 + (Putchar == listchar) + IN) / WCOLS; -#ifdef ADEBUG - if (trace) - tfixnl(), fprintf(trace, "vdepth returns %d\n", d == 0 ? 1 : d); -#endif - return (d == 0 ? 1 : d); -} - -/* - * Move onto a new line, with cursor at position curs. - */ -void -vnline(char *curs) -{ - - if (curs) - wcursor = curs; - else if (vmoving) - wcursor = vfindcol(vmovcol); - else - wcursor = vskipwh(linebuf); - cursor = linebuf; - vmove(0); -} |