xref: /freebsd/contrib/nvi/ex/ex_at.c (revision 8e95079e175854b84e57c521b34b4b52f7ae9cb1)
1 /*-
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.
6  *
7  * See the LICENSE file for redistribution information.
8  */
9 
10 #include "config.h"
11 
12 #include <sys/types.h>
13 #include <sys/queue.h>
14 #include <sys/time.h>
15 
16 #include <bitstring.h>
17 #include <ctype.h>
18 #include <limits.h>
19 #include <stdio.h>
20 #include <stdlib.h>
21 #include <string.h>
22 
23 #include "../common/common.h"
24 
25 /*
26  * ex_at -- :@[@ | buffer]
27  *	    :*[* | buffer]
28  *
29  *	Execute the contents of the buffer.
30  *
31  * PUBLIC: int ex_at(SCR *, EXCMD *);
32  */
33 int
34 ex_at(SCR *sp, EXCMD *cmdp)
35 {
36 	CB *cbp;
37 	CHAR_T name;
38 	EXCMD *ecp;
39 	RANGE *rp;
40 	TEXT *tp;
41 	size_t len = 0;
42 	CHAR_T *p;
43 
44 	/*
45 	 * !!!
46 	 * Historically, [@*]<carriage-return> and [@*][@*] executed the most
47 	 * recently executed buffer in ex mode.
48 	 */
49 	name = FL_ISSET(cmdp->iflags, E_C_BUFFER) ? cmdp->buffer : '@';
50 	if (name == '@' || name == '*') {
51 		if (!F_ISSET(sp, SC_AT_SET)) {
52 			ex_emsg(sp, NULL, EXM_NOPREVBUF);
53 			return (1);
54 		}
55 		name = sp->at_lbuf;
56 	}
57 	sp->at_lbuf = name;
58 	F_SET(sp, SC_AT_SET);
59 
60 	CBNAME(sp, cbp, name);
61 	if (cbp == NULL) {
62 		ex_emsg(sp, KEY_NAME(sp, name), EXM_EMPTYBUF);
63 		return (1);
64 	}
65 
66 	/*
67 	 * !!!
68 	 * Historically the @ command took a range of lines, and the @ buffer
69 	 * was executed once per line.  The historic vi could be trashed by
70 	 * this because it didn't notice if the underlying file changed, or,
71 	 * for that matter, if there were no more lines on which to operate.
72 	 * For example, take a 10 line file, load "%delete" into a buffer,
73 	 * and enter :8,10@<buffer>.
74 	 *
75 	 * The solution is a bit tricky.  If the user specifies a range, take
76 	 * the same approach as for global commands, and discard the command
77 	 * if exit or switch to a new file/screen.  If the user doesn't specify
78 	 * the  range, continue to execute after a file/screen switch, which
79 	 * means @ buffers are still useful in a multi-screen environment.
80 	 */
81 	CALLOC_RET(sp, ecp, 1, sizeof(EXCMD));
82 	TAILQ_INIT(ecp->rq);
83 	CALLOC_RET(sp, rp, 1, sizeof(RANGE));
84 	rp->start = cmdp->addr1.lno;
85 	if (F_ISSET(cmdp, E_ADDR_DEF)) {
86 		rp->stop = rp->start;
87 		FL_SET(ecp->agv_flags, AGV_AT_NORANGE);
88 	} else {
89 		rp->stop = cmdp->addr2.lno;
90 		FL_SET(ecp->agv_flags, AGV_AT);
91 	}
92 	TAILQ_INSERT_HEAD(ecp->rq, rp, q);
93 
94 	/*
95 	 * Buffers executed in ex mode or from the colon command line in vi
96 	 * were ex commands.  We can't push it on the terminal queue, since
97 	 * it has to be executed immediately, and we may be in the middle of
98 	 * an ex command already.  Push the command on the ex command stack.
99 	 * Build two copies of the command.  We need two copies because the
100 	 * ex parser may step on the command string when it's parsing it.
101 	 */
102 	TAILQ_FOREACH_REVERSE(tp, cbp->textq, _texth, q)
103 		len += tp->len + 1;
104 
105 	MALLOC_RET(sp, ecp->cp, len * 2 * sizeof(CHAR_T));
106 	ecp->o_cp = ecp->cp;
107 	ecp->o_clen = len;
108 	ecp->cp[len] = '\0';
109 
110 	/* Copy the buffer into the command space. */
111 	p = ecp->cp + len;
112 	TAILQ_FOREACH_REVERSE(tp, cbp->textq, _texth, q) {
113 		MEMCPY(p, tp->lb, tp->len);
114 		p += tp->len;
115 		*p++ = '\n';
116 	}
117 
118 	SLIST_INSERT_HEAD(sp->gp->ecq, ecp, q);
119 	return (0);
120 }
121