2 * Copyright (c) 1992, 1993, 1994
3 * The Regents of the University of California. All rights reserved.
4 * Copyright (c) 1992, 1993, 1994, 1995, 1996
5 * Keith Bostic. All rights reserved.
7 * See the LICENSE file for redistribution information.
13 static const char sccsid[] = "$Id: ex_global.c,v 10.32 2011/12/26 23:37:01 zy Exp $";
16 #include <sys/types.h>
17 #include <sys/queue.h>
20 #include <bitstring.h>
29 #include "../common/common.h"
31 enum which {GLOBAL, V};
33 static int ex_g_setup __P((SCR *, EXCMD *, enum which));
36 * ex_global -- [line [,line]] g[lobal][!] /pattern/ [commands]
37 * Exec on lines matching a pattern.
39 * PUBLIC: int ex_global __P((SCR *, EXCMD *));
42 ex_global(SCR *sp, EXCMD *cmdp)
44 return (ex_g_setup(sp,
45 cmdp, FL_ISSET(cmdp->iflags, E_C_FORCE) ? V : GLOBAL));
49 * ex_v -- [line [,line]] v /pattern/ [commands]
50 * Exec on lines not matching a pattern.
52 * PUBLIC: int ex_v __P((SCR *, EXCMD *));
55 ex_v(SCR *sp, EXCMD *cmdp)
57 return (ex_g_setup(sp, cmdp, V));
62 * Ex global and v commands.
65 ex_g_setup(SCR *sp, EXCMD *cmdp, enum which cmd)
81 if (F_ISSET(sp, SC_EX_GLOBAL)) {
82 msgq_wstr(sp, M_ERR, cmdp->cmd->name,
83 "124|The %s command can't be used as part of a global or v command");
88 * Skip leading white space. Historic vi allowed any non-alphanumeric
89 * to serve as the global command delimiter.
93 for (p = cmdp->argv[0]->bp; cmdskip(*p); ++p);
94 if (!isascii(*p) || *p == '\0' || isalnum(*p) ||
95 *p == '\\' || *p == '|' || *p == '\n') {
96 usage: ex_emsg(sp, cmdp->cmd->usage, EXM_USAGE);
102 * Get the pattern string, toss escaped characters.
105 * Only toss an escaped character if it escapes a delimiter.
107 for (ptrn = t = p;;) {
108 if (p[0] == '\0' || p[0] == delim) {
113 * Nul terminate the pattern string -- it's passed
114 * to regcomp which doesn't understand anything else.
122 else if (p[1] == '\\')
127 /* If the pattern string is empty, use the last one. */
129 if (sp->re == NULL) {
130 ex_emsg(sp, NULL, EXM_NOPREVRE);
134 /* Re-compile the RE if necessary. */
135 if (!F_ISSET(sp, SC_RE_SEARCH) &&
136 re_compile(sp, sp->re, sp->re_len,
137 NULL, NULL, &sp->re_c, RE_C_SEARCH))
140 /* Compile the RE. */
141 if (re_compile(sp, ptrn, t - ptrn, &sp->re,
142 &sp->re_len, &sp->re_c, RE_C_SEARCH))
146 * Set saved RE. Historic practice is that globals set
147 * direction as well as the RE.
149 sp->searchdir = FORWARD;
153 /* The global commands always set the previous context mark. */
156 if (mark_set(sp, ABSMARK1, &abs, 1))
159 /* Get an EXCMD structure. */
160 CALLOC_RET(sp, ecp, EXCMD *, 1, sizeof(EXCMD));
164 * Get a copy of the command string; the default command is print.
165 * Don't worry about a set of <blank>s with no command, that will
166 * default to print in the ex parser. We need to have two copies
167 * because the ex parser may step on the command string when it's
170 if ((len = cmdp->argv[0]->len - (p - cmdp->argv[0]->bp)) == 0) {
175 MALLOC_RET(sp, ecp->cp, CHAR_T *, (len * 2) * sizeof(CHAR_T));
178 MEMCPY(ecp->cp + len, p, len);
179 ecp->range_lno = OOBLNO;
180 FL_SET(ecp->agv_flags, cmd == GLOBAL ? AGV_GLOBAL : AGV_V);
181 SLIST_INSERT_HEAD(sp->gp->ecq, ecp, q);
184 * For each line... The semantics of global matching are that we first
185 * have to decide which lines are going to get passed to the command,
186 * and then pass them to the command, ignoring other changes. There's
187 * really no way to do this in a single pass, since arbitrary line
188 * creation, deletion and movement can be done in the ex command. For
189 * example, a good vi clone test is ":g/X/mo.-3", or "g/X/.,.+1d".
190 * What we do is create linked list of lines that are tracked through
191 * each ex command. There's a callback routine which the DB interface
192 * routines call when a line is created or deleted. This doesn't help
196 cnt = INTERRUPT_CHECK;
197 for (start = cmdp->addr1.lno,
198 end = cmdp->addr2.lno; start <= end; ++start) {
200 if (INTERRUPTED(sp)) {
201 SLIST_REMOVE_HEAD(sp->gp->ecq, q);
206 search_busy(sp, btype);
208 cnt = INTERRUPT_CHECK;
210 if (db_get(sp, start, DBG_FATAL, &dbp, &len))
213 match[0].rm_eo = len;
215 regexec(&sp->re_c, dbp, 0, match, REG_STARTEND)) {
225 re_error(sp, eval, &sp->re_c);
229 /* If follows the last entry, extend the last entry's range. */
230 if ((rp = TAILQ_LAST(ecp->rq, _rh)) != NULL &&
231 rp->stop == start - 1) {
236 /* Allocate a new range, and append it to the list. */
237 CALLOC(sp, rp, RANGE *, 1, sizeof(RANGE));
240 rp->start = rp->stop = start;
241 TAILQ_INSERT_TAIL(ecp->rq, rp, q);
243 search_busy(sp, BUSY_OFF);
249 * Update the ranges based on an insertion or deletion.
251 * PUBLIC: int ex_g_insdel __P((SCR *, lnop_t, recno_t));
254 ex_g_insdel(SCR *sp, lnop_t op, recno_t lno)
259 /* All insert/append operations are done as inserts. */
260 if (op == LINE_APPEND)
263 if (op == LINE_RESET)
266 SLIST_FOREACH(ecp, sp->gp->ecq, q) {
267 if (!FL_ISSET(ecp->agv_flags, AGV_AT | AGV_GLOBAL | AGV_V))
269 TAILQ_FOREACH_SAFE(rp, ecp->rq, q, nrp) {
270 /* If range less than the line, ignore it. */
275 * If range greater than the line, decrement or
276 * increment the range.
278 if (rp->start > lno) {
279 if (op == LINE_DELETE) {
290 * Lno is inside the range, decrement the end point
291 * for deletion, and split the range for insertion.
292 * In the latter case, since we're inserting a new
293 * element, neither range can be exhausted.
295 if (op == LINE_DELETE) {
296 if (rp->start > --rp->stop) {
297 TAILQ_REMOVE(ecp->rq, rp, q);
301 CALLOC_RET(sp, nrp, RANGE *, 1, sizeof(RANGE));
302 nrp->start = lno + 1;
303 nrp->stop = rp->stop + 1;
305 TAILQ_INSERT_AFTER(ecp->rq, rp, nrp, q);
310 * If the command deleted/inserted lines, the cursor moves to
311 * the line after the deleted/inserted line.
313 ecp->range_lno = lno;