xref: /netbsd-src/external/bsd/nvi/dist/vi/v_replace.c (revision f459985261949fdd1f5ef69b494fd726613767ad)
1 /*	$NetBSD: v_replace.c,v 1.4 2018/08/07 08:05:47 rin Exp $ */
2 /*-
3  * Copyright (c) 1992, 1993, 1994
4  *	The Regents of the University of California.  All rights reserved.
5  * Copyright (c) 1992, 1993, 1994, 1995, 1996
6  *	Keith Bostic.  All rights reserved.
7  *
8  * See the LICENSE file for redistribution information.
9  */
10 
11 #include "config.h"
12 
13 #include <sys/cdefs.h>
14 #if 0
15 #ifndef lint
16 static const char sccsid[] = "Id: v_replace.c,v 10.24 2001/06/25 15:19:34 skimo Exp  (Berkeley) Date: 2001/06/25 15:19:34 ";
17 #endif /* not lint */
18 #else
19 __RCSID("$NetBSD: v_replace.c,v 1.4 2018/08/07 08:05:47 rin Exp $");
20 #endif
21 
22 #include <sys/types.h>
23 #include <sys/queue.h>
24 #include <sys/time.h>
25 
26 #include <bitstring.h>
27 #include <ctype.h>
28 #include <errno.h>
29 #include <limits.h>
30 #include <stdio.h>
31 #include <stdlib.h>
32 #include <string.h>
33 
34 #include "../common/common.h"
35 #include "vi.h"
36 
37 /*
38  * v_replace -- [count]r<char>
39  *
40  * !!!
41  * The r command in historic vi was almost beautiful in its badness.  For
42  * example, "r<erase>" and "r<word erase>" beeped the terminal and deleted
43  * a single character.  "Nr<carriage return>", where N was greater than 1,
44  * inserted a single carriage return.  "r<escape>" did cancel the command,
45  * but "r<literal><escape>" erased a single character.  To enter a literal
46  * <literal> character, it required three <literal> characters after the
47  * command.  This may not be right, but at least it's not insane.
48  *
49  * PUBLIC: int v_replace __P((SCR *, VICMD *));
50  */
51 int
v_replace(SCR * sp,VICMD * vp)52 v_replace(SCR *sp, VICMD *vp)
53 {
54 	EVENT ev;
55 	VI_PRIVATE *vip;
56 	TEXT *tp;
57 	size_t blen, len;
58 	u_long cnt;
59 	int quote, rval;
60 	CHAR_T *bp;
61 	CHAR_T *p;
62 
63 	vip = VIP(sp);
64 
65 	/*
66 	 * If the line doesn't exist, or it's empty, replacement isn't
67 	 * allowed.  It's not hard to implement, but:
68 	 *
69 	 *	1: It's historic practice (vi beeped before the replacement
70 	 *	   character was even entered).
71 	 *	2: For consistency, this change would require that the more
72 	 *	   general case, "Nr", when the user is < N characters from
73 	 *	   the end of the line, also work, which would be a bit odd.
74 	 *	3: Replacing with a <newline> has somewhat odd semantics.
75 	 */
76 	if (db_get(sp, vp->m_start.lno, DBG_FATAL, &p, &len))
77 		return (1);
78 	if (len == 0) {
79 		msgq(sp, M_BERR, "186|No characters to replace");
80 		return (1);
81 	}
82 
83 	/*
84 	 * Figure out how many characters to be replace.  For no particular
85 	 * reason (other than that the semantics of replacing the newline
86 	 * are confusing) only permit the replacement of the characters in
87 	 * the current line.  I suppose we could append replacement characters
88 	 * to the line, but I see no compelling reason to do so.  Check this
89 	 * before we get the character to match historic practice, where Nr
90 	 * failed immediately if there were less than N characters from the
91 	 * cursor to the end of the line.
92 	 */
93 	cnt = F_ISSET(vp, VC_C1SET) ? vp->count : 1;
94 	vp->m_stop.lno = vp->m_start.lno;
95 	vp->m_stop.cno = vp->m_start.cno + cnt - 1;
96 	if (vp->m_stop.cno > len - 1) {
97 		v_eol(sp, &vp->m_start);
98 		return (1);
99 	}
100 
101 	/*
102 	 * If it's not a repeat, reset the current mode and get a replacement
103 	 * character.
104 	 */
105 	quote = 0;
106 	if (!F_ISSET(vp, VC_ISDOT)) {
107 		sp->showmode = SM_REPLACE;
108 		if (vs_refresh(sp, 0))
109 			return (1);
110 next:		if (v_event_get(sp, &ev, 0, 0))
111 			return (1);
112 
113 		switch (ev.e_event) {
114 		case E_CHARACTER:
115 			/*
116 			 * <literal_next> means escape the next character.
117 			 * <escape> means they changed their minds.
118 			 */
119 			if (!quote) {
120 				if (ev.e_value == K_VLNEXT) {
121 					quote = 1;
122 					goto next;
123 				}
124 				if (ev.e_value == K_ESCAPE)
125 					return (0);
126 			}
127 			vip->rlast = ev.e_c;
128 			vip->rvalue = ev.e_value;
129 			break;
130 		case E_ERR:
131 		case E_EOF:
132 			F_SET(sp, SC_EXIT_FORCE);
133 			return (1);
134 		case E_INTERRUPT:
135 			/* <interrupt> means they changed their minds. */
136 			return (0);
137 		case E_WRESIZE:
138 			/* <resize> interrupts the input mode. */
139 #ifdef IMCTRL
140 			sp->gp->scr_imctrl(sp, IMCTRL_OFF);
141 #endif
142 			v_emsg(sp, NULL, VIM_WRESIZE);
143 			return (0);
144 		case E_REPAINT:
145 			if (v_erepaint(sp, &ev))
146 				return (1);
147 			goto next;
148 		default:
149 			v_event_err(sp, &ev);
150 			return (0);
151 		}
152 	}
153 
154 	/* Copy the line. */
155 	GET_SPACE_RETW(sp, bp, blen, len);
156 	MEMMOVE(bp, p, len);
157 	p = bp;
158 
159 	/*
160 	 * Versions of nvi before 1.57 created N new lines when they replaced
161 	 * N characters with <carriage-return> or <newline> characters.  This
162 	 * is different from the historic vi, which replaced N characters with
163 	 * a single new line.  Users complained, so we match historic practice.
164 	 */
165 	if ((!quote && vip->rvalue == K_CR) || vip->rvalue == K_NL) {
166 		/* Set return line. */
167 		vp->m_stop.lno = vp->m_start.lno + 1;
168 		vp->m_stop.cno = 0;
169 
170 		/* The first part of the current line. */
171 		if (db_set(sp, vp->m_start.lno, p, vp->m_start.cno))
172 			goto err_ret;
173 
174 		/*
175 		 * The rest of the current line.  And, of course, now it gets
176 		 * tricky.  If there are characters left in the line and if
177 		 * the autoindent edit option is set, white space after the
178 		 * replaced character is discarded, autoindent is applied, and
179 		 * the cursor moves to the last indent character.
180 		 */
181 		p += vp->m_start.cno + cnt;
182 		len -= vp->m_start.cno + cnt;
183 		if (len != 0 && O_ISSET(sp, O_AUTOINDENT))
184 			for (; len && ISBLANK((UCHAR_T)*p); --len, ++p);
185 
186 		if ((tp = text_init(sp, p, len, len)) == NULL)
187 			goto err_ret;
188 
189 		if (len != 0 && O_ISSET(sp, O_AUTOINDENT)) {
190 			if (v_txt_auto(sp, vp->m_start.lno, NULL, 0, tp))
191 				goto err_ret;
192 			vp->m_stop.cno = tp->ai ? tp->ai - 1 : 0;
193 		} else
194 			vp->m_stop.cno = 0;
195 
196 		vp->m_stop.cno = tp->ai ? tp->ai - 1 : 0;
197 		if (db_append(sp, 1, vp->m_start.lno, tp->lb, tp->len))
198 err_ret:		rval = 1;
199 		else {
200 			text_free(tp);
201 			rval = 0;
202 		}
203 	} else {
204 		STRSET(bp + vp->m_start.cno, vip->rlast, cnt);
205 		rval = db_set(sp, vp->m_start.lno, bp, len);
206 	}
207 	FREE_SPACEW(sp, bp, blen);
208 
209 	vp->m_final = vp->m_stop;
210 	return (rval);
211 }
212