perl: fix -Wformat-security warning in ENDMESSAGE()
[nvi.git] / ex / ex_at.c
blob278bb8cad120d97d6de82dca95d1424f809b1d4d
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.
7 * See the LICENSE file for redistribution information.
8 */
10 #include "config.h"
12 #ifndef lint
13 static const char sccsid[] = "$Id: ex_at.c,v 10.16 2001/06/25 15:19:14 skimo Exp $ (Berkeley) $Date: 2001/06/25 15:19:14 $";
14 #endif /* not lint */
16 #include <sys/types.h>
17 #include <sys/queue.h>
19 #include <bitstring.h>
20 #include <ctype.h>
21 #include <limits.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
26 #include "../common/common.h"
29 * ex_at -- :@[@ | buffer]
30 * :*[* | buffer]
32 * Execute the contents of the buffer.
34 * PUBLIC: int ex_at __P((SCR *, EXCMD *));
36 int
37 ex_at(SCR *sp, EXCMD *cmdp)
39 CB *cbp;
40 CHAR_T name;
41 EXCMD *ecp;
42 RANGE *rp;
43 TEXT *tp;
44 size_t len;
45 CHAR_T *p;
48 * !!!
49 * Historically, [@*]<carriage-return> and [@*][@*] executed the most
50 * recently executed buffer in ex mode.
52 name = FL_ISSET(cmdp->iflags, E_C_BUFFER) ? cmdp->buffer : '@';
53 if (name == '@' || name == '*') {
54 if (!F_ISSET(sp, SC_AT_SET)) {
55 ex_emsg(sp, NULL, EXM_NOPREVBUF);
56 return (1);
58 name = sp->at_lbuf;
60 sp->at_lbuf = name;
61 F_SET(sp, SC_AT_SET);
63 CBNAME(sp, cbp, name);
64 if (cbp == NULL) {
65 ex_emsg(sp, KEY_NAME(sp, name), EXM_EMPTYBUF);
66 return (1);
70 * !!!
71 * Historically the @ command took a range of lines, and the @ buffer
72 * was executed once per line. The historic vi could be trashed by
73 * this because it didn't notice if the underlying file changed, or,
74 * for that matter, if there were no more lines on which to operate.
75 * For example, take a 10 line file, load "%delete" into a buffer,
76 * and enter :8,10@<buffer>.
78 * The solution is a bit tricky. If the user specifies a range, take
79 * the same approach as for global commands, and discard the command
80 * if exit or switch to a new file/screen. If the user doesn't specify
81 * the range, continue to execute after a file/screen switch, which
82 * means @ buffers are still useful in a multi-screen environment.
84 CALLOC_RET(sp, ecp, EXCMD *, 1, sizeof(EXCMD));
85 CIRCLEQ_INIT(&ecp->rq);
86 CALLOC_RET(sp, rp, RANGE *, 1, sizeof(RANGE));
87 rp->start = cmdp->addr1.lno;
88 if (F_ISSET(cmdp, E_ADDR_DEF)) {
89 rp->stop = rp->start;
90 FL_SET(ecp->agv_flags, AGV_AT_NORANGE);
91 } else {
92 rp->stop = cmdp->addr2.lno;
93 FL_SET(ecp->agv_flags, AGV_AT);
95 CIRCLEQ_INSERT_HEAD(&ecp->rq, rp, q);
98 * Buffers executed in ex mode or from the colon command line in vi
99 * were ex commands. We can't push it on the terminal queue, since
100 * it has to be executed immediately, and we may be in the middle of
101 * an ex command already. Push the command on the ex command stack.
102 * Build two copies of the command. We need two copies because the
103 * ex parser may step on the command string when it's parsing it.
105 for (len = 0, tp = cbp->textq.cqh_last;
106 tp != (void *)&cbp->textq; tp = tp->q.cqe_prev)
107 len += tp->len + 1;
109 MALLOC_RET(sp, ecp->cp, CHAR_T *, len * 2 * sizeof(CHAR_T));
110 ecp->o_cp = ecp->cp;
111 ecp->o_clen = len;
112 ecp->cp[len] = '\0';
114 /* Copy the buffer into the command space. */
115 for (p = ecp->cp + len, tp = cbp->textq.cqh_last;
116 tp != (void *)&cbp->textq; tp = tp->q.cqe_prev) {
117 MEMCPYW(p, tp->lb, tp->len);
118 p += tp->len;
119 *p++ = '\n';
122 LIST_INSERT_HEAD(&sp->wp->ecq, ecp, q);
123 return (0);