119304Speter/*- 219304Speter * Copyright (c) 1993, 1994 319304Speter * The Regents of the University of California. All rights reserved. 419304Speter * Copyright (c) 1993, 1994, 1995, 1996 519304Speter * Keith Bostic. All rights reserved. 619304Speter * 719304Speter * See the LICENSE file for redistribution information. 819304Speter */ 919304Speter 1019304Speter#include "config.h" 1119304Speter 1219304Speter#ifndef lint 13254225Speterstatic const char sccsid[] = "$Id: ex_z.c,v 10.12 2001/06/25 15:19:22 skimo Exp $"; 1419304Speter#endif /* not lint */ 1519304Speter 1619304Speter#include <sys/types.h> 1719304Speter#include <sys/queue.h> 18254225Speter#include <sys/time.h> 1919304Speter 2019304Speter#include <bitstring.h> 2119304Speter#include <limits.h> 2219304Speter#include <stdio.h> 2319304Speter#include <stdlib.h> 2419304Speter#include <string.h> 2519304Speter 2619304Speter#include "../common/common.h" 2719304Speter 2819304Speter/* 2919304Speter * ex_z -- :[line] z [^-.+=] [count] [flags] 3019304Speter * Adjust window. 3119304Speter * 3219304Speter * PUBLIC: int ex_z __P((SCR *, EXCMD *)); 3319304Speter */ 3419304Speterint 35254225Speterex_z(SCR *sp, EXCMD *cmdp) 3619304Speter{ 3719304Speter MARK abs; 3819304Speter recno_t cnt, equals, lno; 3919304Speter int eofcheck; 4019304Speter 4119304Speter NEEDFILE(sp, cmdp); 4219304Speter 4319304Speter /* 4419304Speter * !!! 4519304Speter * If no count specified, use either two times the size of the 4619304Speter * scrolling region, or the size of the window option. POSIX 4719304Speter * 1003.2 claims that the latter is correct, but historic ex/vi 4819304Speter * documentation and practice appear to use the scrolling region. 4919304Speter * I'm using the window size as it means that the entire screen 5019304Speter * is used instead of losing a line to roundoff. Note, we drop 5119304Speter * a line from the cnt if using the window size to leave room for 5219304Speter * the next ex prompt. 5319304Speter */ 5419304Speter if (FL_ISSET(cmdp->iflags, E_C_COUNT)) 5519304Speter cnt = cmdp->count; 5619304Speter else 57254225Speter#ifdef HISTORICAL_PRACTICE 5819304Speter cnt = O_VAL(sp, O_SCROLL) * 2; 5919304Speter#else 6019304Speter cnt = O_VAL(sp, O_WINDOW) - 1; 6119304Speter#endif 6219304Speter 6319304Speter equals = 0; 6419304Speter eofcheck = 0; 6519304Speter lno = cmdp->addr1.lno; 6619304Speter 6719304Speter switch (FL_ISSET(cmdp->iflags, 6819304Speter E_C_CARAT | E_C_DASH | E_C_DOT | E_C_EQUAL | E_C_PLUS)) { 6919304Speter case E_C_CARAT: /* Display cnt * 2 before the line. */ 7019304Speter eofcheck = 1; 7119304Speter if (lno > cnt * 2) 7219304Speter cmdp->addr1.lno = (lno - cnt * 2) + 1; 7319304Speter else 7419304Speter cmdp->addr1.lno = 1; 7519304Speter cmdp->addr2.lno = (cmdp->addr1.lno + cnt) - 1; 7619304Speter break; 7719304Speter case E_C_DASH: /* Line goes at the bottom of the screen. */ 7819304Speter cmdp->addr1.lno = lno > cnt ? (lno - cnt) + 1 : 1; 7919304Speter cmdp->addr2.lno = lno; 8019304Speter break; 8119304Speter case E_C_DOT: /* Line goes in the middle of the screen. */ 8219304Speter /* 8319304Speter * !!! 8419304Speter * Historically, the "middleness" of the line overrode the 8519304Speter * count, so that "3z.19" or "3z.20" would display the first 8619304Speter * 12 lines of the file, i.e. (N - 1) / 2 lines before and 8719304Speter * after the specified line. 8819304Speter */ 8919304Speter eofcheck = 1; 9019304Speter cnt = (cnt - 1) / 2; 9119304Speter cmdp->addr1.lno = lno > cnt ? lno - cnt : 1; 9219304Speter cmdp->addr2.lno = lno + cnt; 9319304Speter 9419304Speter /* 9519304Speter * !!! 9619304Speter * Historically, z. set the absolute cursor mark. 9719304Speter */ 9819304Speter abs.lno = sp->lno; 9919304Speter abs.cno = sp->cno; 10019304Speter (void)mark_set(sp, ABSMARK1, &abs, 1); 10119304Speter break; 10219304Speter case E_C_EQUAL: /* Center with hyphens. */ 10319304Speter /* 10419304Speter * !!! 10519304Speter * Strangeness. The '=' flag is like the '.' flag (see the 10619304Speter * above comment, it applies here as well) but with a special 10719304Speter * little hack. Print out lines of hyphens before and after 10819304Speter * the specified line. Additionally, the cursor remains set 10919304Speter * on that line. 11019304Speter */ 11119304Speter eofcheck = 1; 11219304Speter cnt = (cnt - 1) / 2; 11319304Speter cmdp->addr1.lno = lno > cnt ? lno - cnt : 1; 11419304Speter cmdp->addr2.lno = lno - 1; 11519304Speter if (ex_pr(sp, cmdp)) 11619304Speter return (1); 11719304Speter (void)ex_puts(sp, "----------------------------------------\n"); 11819304Speter cmdp->addr2.lno = cmdp->addr1.lno = equals = lno; 11919304Speter if (ex_pr(sp, cmdp)) 12019304Speter return (1); 12119304Speter (void)ex_puts(sp, "----------------------------------------\n"); 12219304Speter cmdp->addr1.lno = lno + 1; 12319304Speter cmdp->addr2.lno = (lno + cnt) - 1; 12419304Speter break; 12519304Speter default: 12619304Speter /* If no line specified, move to the next one. */ 12719304Speter if (F_ISSET(cmdp, E_ADDR_DEF)) 12819304Speter ++lno; 12919304Speter /* FALLTHROUGH */ 13019304Speter case E_C_PLUS: /* Line goes at the top of the screen. */ 13119304Speter eofcheck = 1; 13219304Speter cmdp->addr1.lno = lno; 13319304Speter cmdp->addr2.lno = (lno + cnt) - 1; 13419304Speter break; 13519304Speter } 13619304Speter 13719304Speter if (eofcheck) { 13819304Speter if (db_last(sp, &lno)) 13919304Speter return (1); 14019304Speter if (cmdp->addr2.lno > lno) 14119304Speter cmdp->addr2.lno = lno; 14219304Speter } 14319304Speter 14419304Speter if (ex_pr(sp, cmdp)) 14519304Speter return (1); 14619304Speter if (equals) 14719304Speter sp->lno = equals; 14819304Speter return (0); 14919304Speter} 150