1*486aa1f0Sbentley /* $OpenBSD: v_itxt.c,v 1.8 2014/11/12 04:28:41 bentley Exp $ */
2d4e7c603Sniklas
345f2ab88Sderaadt /*-
445f2ab88Sderaadt * Copyright (c) 1992, 1993, 1994
545f2ab88Sderaadt * The Regents of the University of California. All rights reserved.
645f2ab88Sderaadt * Copyright (c) 1992, 1993, 1994, 1995, 1996
745f2ab88Sderaadt * Keith Bostic. All rights reserved.
845f2ab88Sderaadt *
945f2ab88Sderaadt * See the LICENSE file for redistribution information.
1045f2ab88Sderaadt */
1145f2ab88Sderaadt
1245f2ab88Sderaadt #include "config.h"
1345f2ab88Sderaadt
1445f2ab88Sderaadt #include <sys/types.h>
1545f2ab88Sderaadt #include <sys/queue.h>
1645f2ab88Sderaadt #include <sys/time.h>
1745f2ab88Sderaadt
1845f2ab88Sderaadt #include <bitstring.h>
1945f2ab88Sderaadt #include <ctype.h>
2045f2ab88Sderaadt #include <errno.h>
2145f2ab88Sderaadt #include <limits.h>
2245f2ab88Sderaadt #include <stdio.h>
2345f2ab88Sderaadt #include <stdlib.h>
2445f2ab88Sderaadt #include <string.h>
2545f2ab88Sderaadt
2645f2ab88Sderaadt #include "../common/common.h"
2745f2ab88Sderaadt #include "vi.h"
2845f2ab88Sderaadt
2945f2ab88Sderaadt /*
3045f2ab88Sderaadt * !!!
3145f2ab88Sderaadt * Repeated input in the historic vi is mostly wrong and this isn't very
3245f2ab88Sderaadt * backward compatible. For example, if the user entered "3Aab\ncd" in
3345f2ab88Sderaadt * the historic vi, the "ab" was repeated 3 times, and the "\ncd" was then
3445f2ab88Sderaadt * appended to the result. There was also a hack which I don't remember
3545f2ab88Sderaadt * right now, where "3o" would open 3 lines and then let the user fill them
3645f2ab88Sderaadt * in, to make screen movements on 300 baud modems more tolerable. I don't
3745f2ab88Sderaadt * think it's going to be missed.
3845f2ab88Sderaadt *
3945f2ab88Sderaadt * !!!
4045f2ab88Sderaadt * There's a problem with the way that we do logging for change commands with
4145f2ab88Sderaadt * implied motions (e.g. A, I, O, cc, etc.). Since the main vi loop logs the
4245f2ab88Sderaadt * starting cursor position before the change command "moves" the cursor, the
4345f2ab88Sderaadt * cursor position to which we return on undo will be where the user entered
4445f2ab88Sderaadt * the change command, not the start of the change. Several of the following
4545f2ab88Sderaadt * routines re-log the cursor to make this work correctly. Historic vi tried
4645f2ab88Sderaadt * to do the same thing, and mostly got it right. (The only spectacular way
4745f2ab88Sderaadt * it fails is if the user entered 'o' from anywhere but the last character of
4845f2ab88Sderaadt * the line, the undo returned the cursor to the start of the line. If the
4945f2ab88Sderaadt * user was on the last character of the line, the cursor returned to that
5045f2ab88Sderaadt * position.) We also check for mapped keys waiting, i.e. if we're in the
5145f2ab88Sderaadt * middle of a map, don't bother logging the cursor.
5245f2ab88Sderaadt */
5345f2ab88Sderaadt #define LOG_CORRECT { \
5445f2ab88Sderaadt if (!MAPPED_KEYS_WAITING(sp)) \
5545f2ab88Sderaadt (void)log_cursor(sp); \
5645f2ab88Sderaadt }
5745f2ab88Sderaadt
58c72b5b24Smillert static u_int32_t set_txt_std(SCR *, VICMD *, u_int32_t);
5945f2ab88Sderaadt
6045f2ab88Sderaadt /*
6145f2ab88Sderaadt * v_iA -- [count]A
6245f2ab88Sderaadt * Append text to the end of the line.
6345f2ab88Sderaadt *
64c72b5b24Smillert * PUBLIC: int v_iA(SCR *, VICMD *);
6545f2ab88Sderaadt */
6645f2ab88Sderaadt int
v_iA(SCR * sp,VICMD * vp)67*486aa1f0Sbentley v_iA(SCR *sp, VICMD *vp)
6845f2ab88Sderaadt {
6945f2ab88Sderaadt size_t len;
7045f2ab88Sderaadt
7145f2ab88Sderaadt if (!db_get(sp, vp->m_start.lno, 0, NULL, &len))
7245f2ab88Sderaadt sp->cno = len == 0 ? 0 : len - 1;
7345f2ab88Sderaadt
7445f2ab88Sderaadt LOG_CORRECT;
7545f2ab88Sderaadt
7645f2ab88Sderaadt return (v_ia(sp, vp));
7745f2ab88Sderaadt }
7845f2ab88Sderaadt
7945f2ab88Sderaadt /*
8045f2ab88Sderaadt * v_ia -- [count]a
8145f2ab88Sderaadt * [count]A
8245f2ab88Sderaadt * Append text to the cursor position.
8345f2ab88Sderaadt *
84c72b5b24Smillert * PUBLIC: int v_ia(SCR *, VICMD *);
8545f2ab88Sderaadt */
8645f2ab88Sderaadt int
v_ia(SCR * sp,VICMD * vp)87*486aa1f0Sbentley v_ia(SCR *sp, VICMD *vp)
8845f2ab88Sderaadt {
8945f2ab88Sderaadt size_t len;
9045f2ab88Sderaadt u_int32_t flags;
9145f2ab88Sderaadt int isempty;
9245f2ab88Sderaadt char *p;
9345f2ab88Sderaadt
9445f2ab88Sderaadt flags = set_txt_std(sp, vp, 0);
9545f2ab88Sderaadt sp->showmode = SM_APPEND;
9645f2ab88Sderaadt sp->lno = vp->m_start.lno;
9745f2ab88Sderaadt
9845f2ab88Sderaadt /* Move the cursor one column to the right and repaint the screen. */
9945f2ab88Sderaadt if (db_eget(sp, sp->lno, &p, &len, &isempty)) {
10045f2ab88Sderaadt if (!isempty)
10145f2ab88Sderaadt return (1);
10245f2ab88Sderaadt len = 0;
10345f2ab88Sderaadt LF_SET(TXT_APPENDEOL);
10445f2ab88Sderaadt } else if (len) {
10545f2ab88Sderaadt if (len == sp->cno + 1) {
10645f2ab88Sderaadt sp->cno = len;
10745f2ab88Sderaadt LF_SET(TXT_APPENDEOL);
10845f2ab88Sderaadt } else
10945f2ab88Sderaadt ++sp->cno;
11045f2ab88Sderaadt } else
11145f2ab88Sderaadt LF_SET(TXT_APPENDEOL);
11245f2ab88Sderaadt
11345f2ab88Sderaadt return (v_txt(sp, vp, NULL, p, len,
11445f2ab88Sderaadt 0, OOBLNO, F_ISSET(vp, VC_C1SET) ? vp->count : 1, flags));
11545f2ab88Sderaadt }
11645f2ab88Sderaadt
11745f2ab88Sderaadt /*
11845f2ab88Sderaadt * v_iI -- [count]I
11945f2ab88Sderaadt * Insert text at the first nonblank.
12045f2ab88Sderaadt *
121c72b5b24Smillert * PUBLIC: int v_iI(SCR *, VICMD *);
12245f2ab88Sderaadt */
12345f2ab88Sderaadt int
v_iI(SCR * sp,VICMD * vp)124*486aa1f0Sbentley v_iI(SCR *sp, VICMD *vp)
12545f2ab88Sderaadt {
12645f2ab88Sderaadt sp->cno = 0;
12745f2ab88Sderaadt if (nonblank(sp, vp->m_start.lno, &sp->cno))
12845f2ab88Sderaadt return (1);
12945f2ab88Sderaadt
13045f2ab88Sderaadt LOG_CORRECT;
13145f2ab88Sderaadt
13245f2ab88Sderaadt return (v_ii(sp, vp));
13345f2ab88Sderaadt }
13445f2ab88Sderaadt
13545f2ab88Sderaadt /*
13645f2ab88Sderaadt * v_ii -- [count]i
13745f2ab88Sderaadt * [count]I
13845f2ab88Sderaadt * Insert text at the cursor position.
13945f2ab88Sderaadt *
140c72b5b24Smillert * PUBLIC: int v_ii(SCR *, VICMD *);
14145f2ab88Sderaadt */
14245f2ab88Sderaadt int
v_ii(SCR * sp,VICMD * vp)143*486aa1f0Sbentley v_ii(SCR *sp, VICMD *vp)
14445f2ab88Sderaadt {
14545f2ab88Sderaadt size_t len;
14645f2ab88Sderaadt u_int32_t flags;
14745f2ab88Sderaadt int isempty;
14845f2ab88Sderaadt char *p;
14945f2ab88Sderaadt
15045f2ab88Sderaadt flags = set_txt_std(sp, vp, 0);
15145f2ab88Sderaadt sp->showmode = SM_INSERT;
15245f2ab88Sderaadt sp->lno = vp->m_start.lno;
15345f2ab88Sderaadt
15445f2ab88Sderaadt if (db_eget(sp, sp->lno, &p, &len, &isempty)) {
15545f2ab88Sderaadt if (!isempty)
15645f2ab88Sderaadt return (1);
15745f2ab88Sderaadt len = 0;
15845f2ab88Sderaadt }
15945f2ab88Sderaadt
16045f2ab88Sderaadt if (len == 0)
16145f2ab88Sderaadt LF_SET(TXT_APPENDEOL);
16245f2ab88Sderaadt return (v_txt(sp, vp, NULL, p, len,
16345f2ab88Sderaadt 0, OOBLNO, F_ISSET(vp, VC_C1SET) ? vp->count : 1, flags));
16445f2ab88Sderaadt }
16545f2ab88Sderaadt
16645f2ab88Sderaadt enum which { o_cmd, O_cmd };
167c72b5b24Smillert static int io(SCR *, VICMD *, enum which);
16845f2ab88Sderaadt
16945f2ab88Sderaadt /*
17045f2ab88Sderaadt * v_iO -- [count]O
17145f2ab88Sderaadt * Insert text above this line.
17245f2ab88Sderaadt *
173c72b5b24Smillert * PUBLIC: int v_iO(SCR *, VICMD *);
17445f2ab88Sderaadt */
17545f2ab88Sderaadt int
v_iO(SCR * sp,VICMD * vp)176*486aa1f0Sbentley v_iO(SCR *sp, VICMD *vp)
17745f2ab88Sderaadt {
17845f2ab88Sderaadt return (io(sp, vp, O_cmd));
17945f2ab88Sderaadt }
18045f2ab88Sderaadt
18145f2ab88Sderaadt /*
18245f2ab88Sderaadt * v_io -- [count]o
18345f2ab88Sderaadt * Insert text after this line.
18445f2ab88Sderaadt *
185c72b5b24Smillert * PUBLIC: int v_io(SCR *, VICMD *);
18645f2ab88Sderaadt */
18745f2ab88Sderaadt int
v_io(SCR * sp,VICMD * vp)188*486aa1f0Sbentley v_io(SCR *sp, VICMD *vp)
18945f2ab88Sderaadt {
19045f2ab88Sderaadt return (io(sp, vp, o_cmd));
19145f2ab88Sderaadt }
19245f2ab88Sderaadt
19345f2ab88Sderaadt static int
io(SCR * sp,VICMD * vp,enum which cmd)194*486aa1f0Sbentley io(SCR *sp, VICMD *vp, enum which cmd)
19545f2ab88Sderaadt {
19645f2ab88Sderaadt recno_t ai_line, lno;
19745f2ab88Sderaadt size_t len;
19845f2ab88Sderaadt u_int32_t flags;
19945f2ab88Sderaadt char *p;
20045f2ab88Sderaadt
20145f2ab88Sderaadt flags = set_txt_std(sp, vp, TXT_ADDNEWLINE | TXT_APPENDEOL);
20245f2ab88Sderaadt sp->showmode = SM_INSERT;
20345f2ab88Sderaadt
20445f2ab88Sderaadt if (sp->lno == 1) {
20545f2ab88Sderaadt if (db_last(sp, &lno))
20645f2ab88Sderaadt return (1);
20745f2ab88Sderaadt if (lno != 0)
20845f2ab88Sderaadt goto insert;
20945f2ab88Sderaadt p = NULL;
21045f2ab88Sderaadt len = 0;
21145f2ab88Sderaadt ai_line = OOBLNO;
21245f2ab88Sderaadt } else {
21345f2ab88Sderaadt insert: p = "";
21445f2ab88Sderaadt sp->cno = 0;
21545f2ab88Sderaadt LOG_CORRECT;
21645f2ab88Sderaadt
21745f2ab88Sderaadt if (cmd == O_cmd) {
21845f2ab88Sderaadt if (db_insert(sp, sp->lno, p, 0))
21945f2ab88Sderaadt return (1);
22045f2ab88Sderaadt if (db_get(sp, sp->lno, DBG_FATAL, &p, &len))
22145f2ab88Sderaadt return (1);
22245f2ab88Sderaadt ai_line = sp->lno + 1;
22345f2ab88Sderaadt } else {
22445f2ab88Sderaadt if (db_append(sp, 1, sp->lno, p, 0))
22545f2ab88Sderaadt return (1);
22645f2ab88Sderaadt if (db_get(sp, ++sp->lno, DBG_FATAL, &p, &len))
22745f2ab88Sderaadt return (1);
22845f2ab88Sderaadt ai_line = sp->lno - 1;
22945f2ab88Sderaadt }
23045f2ab88Sderaadt }
23145f2ab88Sderaadt return (v_txt(sp, vp, NULL, p, len,
23245f2ab88Sderaadt 0, ai_line, F_ISSET(vp, VC_C1SET) ? vp->count : 1, flags));
23345f2ab88Sderaadt }
23445f2ab88Sderaadt
23545f2ab88Sderaadt /*
23645f2ab88Sderaadt * v_change -- [buffer][count]c[count]motion
23745f2ab88Sderaadt * [buffer][count]C
23845f2ab88Sderaadt * [buffer][count]S
23945f2ab88Sderaadt * Change command.
24045f2ab88Sderaadt *
241c72b5b24Smillert * PUBLIC: int v_change(SCR *, VICMD *);
24245f2ab88Sderaadt */
24345f2ab88Sderaadt int
v_change(SCR * sp,VICMD * vp)244*486aa1f0Sbentley v_change(SCR *sp, VICMD *vp)
24545f2ab88Sderaadt {
24645f2ab88Sderaadt size_t blen, len;
24745f2ab88Sderaadt u_int32_t flags;
24845f2ab88Sderaadt int isempty, lmode, rval;
24945f2ab88Sderaadt char *bp, *p;
25045f2ab88Sderaadt
25145f2ab88Sderaadt /*
2524fcb78e9Smichaels * 'c' can be combined with motion commands that set the resulting
2534fcb78e9Smichaels * cursor position, i.e. "cG". Clear the VM_RCM flags and make the
2544fcb78e9Smichaels * resulting cursor position stick, inserting text has its own rules
2554fcb78e9Smichaels * for cursor positioning.
2564fcb78e9Smichaels */
2574fcb78e9Smichaels F_CLR(vp, VM_RCM_MASK);
2584fcb78e9Smichaels F_SET(vp, VM_RCM_SET);
2594fcb78e9Smichaels
2604fcb78e9Smichaels /*
26145f2ab88Sderaadt * Find out if the file is empty, it's easier to handle it as a
26245f2ab88Sderaadt * special case.
26345f2ab88Sderaadt */
26445f2ab88Sderaadt if (vp->m_start.lno == vp->m_stop.lno &&
26545f2ab88Sderaadt db_eget(sp, vp->m_start.lno, &p, &len, &isempty)) {
26645f2ab88Sderaadt if (!isempty)
26745f2ab88Sderaadt return (1);
26845f2ab88Sderaadt return (v_ia(sp, vp));
26945f2ab88Sderaadt }
27045f2ab88Sderaadt
27145f2ab88Sderaadt flags = set_txt_std(sp, vp, 0);
27245f2ab88Sderaadt sp->showmode = SM_CHANGE;
27345f2ab88Sderaadt
27445f2ab88Sderaadt /*
27545f2ab88Sderaadt * Move the cursor to the start of the change. Note, if autoindent
27645f2ab88Sderaadt * is turned on, the cc command in line mode changes from the first
27745f2ab88Sderaadt * *non-blank* character of the line, not the first character. And,
27845f2ab88Sderaadt * to make it just a bit more exciting, the initial space is handled
27945f2ab88Sderaadt * as auto-indent characters.
28045f2ab88Sderaadt */
28145f2ab88Sderaadt lmode = F_ISSET(vp, VM_LMODE) ? CUT_LINEMODE : 0;
28245f2ab88Sderaadt if (lmode) {
28345f2ab88Sderaadt vp->m_start.cno = 0;
28445f2ab88Sderaadt if (O_ISSET(sp, O_AUTOINDENT)) {
28545f2ab88Sderaadt if (nonblank(sp, vp->m_start.lno, &vp->m_start.cno))
28645f2ab88Sderaadt return (1);
28745f2ab88Sderaadt LF_SET(TXT_AICHARS);
28845f2ab88Sderaadt }
28945f2ab88Sderaadt }
29045f2ab88Sderaadt sp->lno = vp->m_start.lno;
29145f2ab88Sderaadt sp->cno = vp->m_start.cno;
29245f2ab88Sderaadt
29345f2ab88Sderaadt LOG_CORRECT;
29445f2ab88Sderaadt
29545f2ab88Sderaadt /*
29645f2ab88Sderaadt * If not in line mode and changing within a single line, copy the
29745f2ab88Sderaadt * text and overwrite it.
29845f2ab88Sderaadt */
29945f2ab88Sderaadt if (!lmode && vp->m_start.lno == vp->m_stop.lno) {
30045f2ab88Sderaadt /*
30145f2ab88Sderaadt * !!!
30245f2ab88Sderaadt * Historic practice, c did not cut into the numeric buffers,
30345f2ab88Sderaadt * only the unnamed one.
30445f2ab88Sderaadt */
30545f2ab88Sderaadt if (cut(sp,
30645f2ab88Sderaadt F_ISSET(vp, VC_BUFFER) ? &vp->buffer : NULL,
30745f2ab88Sderaadt &vp->m_start, &vp->m_stop, lmode))
30845f2ab88Sderaadt return (1);
30945f2ab88Sderaadt if (len == 0)
31045f2ab88Sderaadt LF_SET(TXT_APPENDEOL);
31145f2ab88Sderaadt LF_SET(TXT_EMARK | TXT_OVERWRITE);
31245f2ab88Sderaadt return (v_txt(sp, vp, &vp->m_stop, p, len,
31345f2ab88Sderaadt 0, OOBLNO, F_ISSET(vp, VC_C1SET) ? vp->count : 1, flags));
31445f2ab88Sderaadt }
31545f2ab88Sderaadt
31645f2ab88Sderaadt /*
31745f2ab88Sderaadt * It's trickier if in line mode or changing over multiple lines. If
31845f2ab88Sderaadt * we're in line mode delete all of the lines and insert a replacement
31945f2ab88Sderaadt * line which the user edits. If there was leading whitespace in the
32045f2ab88Sderaadt * first line being changed, we copy it and use it as the replacement.
32145f2ab88Sderaadt * If we're not in line mode, we delete the text and start inserting.
32245f2ab88Sderaadt *
32345f2ab88Sderaadt * !!!
32445f2ab88Sderaadt * Copy the text. Historic practice, c did not cut into the numeric
32545f2ab88Sderaadt * buffers, only the unnamed one.
32645f2ab88Sderaadt */
32745f2ab88Sderaadt if (cut(sp,
32845f2ab88Sderaadt F_ISSET(vp, VC_BUFFER) ? &vp->buffer : NULL,
32945f2ab88Sderaadt &vp->m_start, &vp->m_stop, lmode))
33045f2ab88Sderaadt return (1);
33145f2ab88Sderaadt
33245f2ab88Sderaadt /* If replacing entire lines and there's leading text. */
33345f2ab88Sderaadt if (lmode && vp->m_start.cno) {
33445f2ab88Sderaadt /*
33545f2ab88Sderaadt * Get a copy of the first line changed, and copy out the
33645f2ab88Sderaadt * leading text.
33745f2ab88Sderaadt */
33845f2ab88Sderaadt if (db_get(sp, vp->m_start.lno, DBG_FATAL, &p, &len))
33945f2ab88Sderaadt return (1);
34045f2ab88Sderaadt GET_SPACE_RET(sp, bp, blen, vp->m_start.cno);
34145f2ab88Sderaadt memmove(bp, p, vp->m_start.cno);
34245f2ab88Sderaadt } else
34345f2ab88Sderaadt bp = NULL;
34445f2ab88Sderaadt
34545f2ab88Sderaadt /* Delete the text. */
34632ceefb1Sdownsj if (del(sp, &vp->m_start, &vp->m_stop, lmode))
34745f2ab88Sderaadt return (1);
34845f2ab88Sderaadt
34945f2ab88Sderaadt /* If replacing entire lines, insert a replacement line. */
35045f2ab88Sderaadt if (lmode) {
35145f2ab88Sderaadt if (db_insert(sp, vp->m_start.lno, bp, vp->m_start.cno))
35245f2ab88Sderaadt return (1);
35345f2ab88Sderaadt sp->lno = vp->m_start.lno;
35445f2ab88Sderaadt len = sp->cno = vp->m_start.cno;
35545f2ab88Sderaadt }
35645f2ab88Sderaadt
35745f2ab88Sderaadt /* Get the line we're editing. */
35845f2ab88Sderaadt if (db_eget(sp, vp->m_start.lno, &p, &len, &isempty)) {
35945f2ab88Sderaadt if (!isempty)
36045f2ab88Sderaadt return (1);
36145f2ab88Sderaadt len = 0;
36245f2ab88Sderaadt }
36345f2ab88Sderaadt
36445f2ab88Sderaadt /* Check to see if we're appending to the line. */
36545f2ab88Sderaadt if (vp->m_start.cno >= len)
36645f2ab88Sderaadt LF_SET(TXT_APPENDEOL);
36745f2ab88Sderaadt
36845f2ab88Sderaadt rval = v_txt(sp, vp, NULL, p, len,
36945f2ab88Sderaadt 0, OOBLNO, F_ISSET(vp, VC_C1SET) ? vp->count : 1, flags);
37045f2ab88Sderaadt
37145f2ab88Sderaadt if (bp != NULL)
37245f2ab88Sderaadt FREE_SPACE(sp, bp, blen);
37345f2ab88Sderaadt return (rval);
37445f2ab88Sderaadt }
37545f2ab88Sderaadt
37645f2ab88Sderaadt /*
37745f2ab88Sderaadt * v_Replace -- [count]R
37845f2ab88Sderaadt * Overwrite multiple characters.
37945f2ab88Sderaadt *
380c72b5b24Smillert * PUBLIC: int v_Replace(SCR *, VICMD *);
38145f2ab88Sderaadt */
38245f2ab88Sderaadt int
v_Replace(SCR * sp,VICMD * vp)383*486aa1f0Sbentley v_Replace(SCR *sp, VICMD *vp)
38445f2ab88Sderaadt {
38545f2ab88Sderaadt size_t len;
38645f2ab88Sderaadt u_int32_t flags;
38745f2ab88Sderaadt int isempty;
38845f2ab88Sderaadt char *p;
38945f2ab88Sderaadt
39045f2ab88Sderaadt flags = set_txt_std(sp, vp, 0);
39145f2ab88Sderaadt sp->showmode = SM_REPLACE;
39245f2ab88Sderaadt
39345f2ab88Sderaadt if (db_eget(sp, vp->m_start.lno, &p, &len, &isempty)) {
39445f2ab88Sderaadt if (!isempty)
39545f2ab88Sderaadt return (1);
39645f2ab88Sderaadt len = 0;
39745f2ab88Sderaadt LF_SET(TXT_APPENDEOL);
39845f2ab88Sderaadt } else {
39945f2ab88Sderaadt if (len == 0)
40045f2ab88Sderaadt LF_SET(TXT_APPENDEOL);
40145f2ab88Sderaadt LF_SET(TXT_OVERWRITE | TXT_REPLACE);
40245f2ab88Sderaadt }
40345f2ab88Sderaadt vp->m_stop.lno = vp->m_start.lno;
40445f2ab88Sderaadt vp->m_stop.cno = len ? len - 1 : 0;
40545f2ab88Sderaadt
40645f2ab88Sderaadt return (v_txt(sp, vp, &vp->m_stop, p, len,
40745f2ab88Sderaadt 0, OOBLNO, F_ISSET(vp, VC_C1SET) ? vp->count : 1, flags));
40845f2ab88Sderaadt }
40945f2ab88Sderaadt
41045f2ab88Sderaadt /*
41145f2ab88Sderaadt * v_subst -- [buffer][count]s
41245f2ab88Sderaadt * Substitute characters.
41345f2ab88Sderaadt *
414c72b5b24Smillert * PUBLIC: int v_subst(SCR *, VICMD *);
41545f2ab88Sderaadt */
41645f2ab88Sderaadt int
v_subst(SCR * sp,VICMD * vp)417*486aa1f0Sbentley v_subst(SCR *sp, VICMD *vp)
41845f2ab88Sderaadt {
41945f2ab88Sderaadt size_t len;
42045f2ab88Sderaadt u_int32_t flags;
42145f2ab88Sderaadt int isempty;
42245f2ab88Sderaadt char *p;
42345f2ab88Sderaadt
42445f2ab88Sderaadt flags = set_txt_std(sp, vp, 0);
42545f2ab88Sderaadt sp->showmode = SM_CHANGE;
42645f2ab88Sderaadt
42745f2ab88Sderaadt if (db_eget(sp, vp->m_start.lno, &p, &len, &isempty)) {
42845f2ab88Sderaadt if (!isempty)
42945f2ab88Sderaadt return (1);
43045f2ab88Sderaadt len = 0;
43145f2ab88Sderaadt LF_SET(TXT_APPENDEOL);
43245f2ab88Sderaadt } else {
43345f2ab88Sderaadt if (len == 0)
43445f2ab88Sderaadt LF_SET(TXT_APPENDEOL);
43545f2ab88Sderaadt LF_SET(TXT_EMARK | TXT_OVERWRITE);
43645f2ab88Sderaadt }
43745f2ab88Sderaadt
43845f2ab88Sderaadt vp->m_stop.lno = vp->m_start.lno;
43945f2ab88Sderaadt vp->m_stop.cno =
44045f2ab88Sderaadt vp->m_start.cno + (F_ISSET(vp, VC_C1SET) ? vp->count - 1 : 0);
44145f2ab88Sderaadt if (vp->m_stop.cno > len - 1)
44245f2ab88Sderaadt vp->m_stop.cno = len - 1;
44345f2ab88Sderaadt
44445f2ab88Sderaadt if (p != NULL && cut(sp,
44545f2ab88Sderaadt F_ISSET(vp, VC_BUFFER) ? &vp->buffer : NULL,
44645f2ab88Sderaadt &vp->m_start, &vp->m_stop, 0))
44745f2ab88Sderaadt return (1);
44845f2ab88Sderaadt
44945f2ab88Sderaadt return (v_txt(sp, vp, &vp->m_stop, p, len, 0, OOBLNO, 1, flags));
45045f2ab88Sderaadt }
45145f2ab88Sderaadt
45245f2ab88Sderaadt /*
45345f2ab88Sderaadt * set_txt_std --
45445f2ab88Sderaadt * Initialize text processing flags.
45545f2ab88Sderaadt */
45645f2ab88Sderaadt static u_int32_t
set_txt_std(SCR * sp,VICMD * vp,u_int32_t flags)457*486aa1f0Sbentley set_txt_std(SCR *sp, VICMD *vp, u_int32_t flags)
45845f2ab88Sderaadt {
45945f2ab88Sderaadt LF_SET(TXT_CNTRLT |
46045f2ab88Sderaadt TXT_ESCAPE | TXT_MAPINPUT | TXT_RECORD | TXT_RESOLVE);
46145f2ab88Sderaadt
46245f2ab88Sderaadt if (F_ISSET(vp, VC_ISDOT))
46345f2ab88Sderaadt LF_SET(TXT_REPLAY);
46445f2ab88Sderaadt
46545f2ab88Sderaadt if (O_ISSET(sp, O_ALTWERASE))
46645f2ab88Sderaadt LF_SET(TXT_ALTWERASE);
46745f2ab88Sderaadt if (O_ISSET(sp, O_AUTOINDENT))
46845f2ab88Sderaadt LF_SET(TXT_AUTOINDENT);
46945f2ab88Sderaadt if (O_ISSET(sp, O_BEAUTIFY))
47045f2ab88Sderaadt LF_SET(TXT_BEAUTIFY);
47145f2ab88Sderaadt if (O_ISSET(sp, O_SHOWMATCH))
47245f2ab88Sderaadt LF_SET(TXT_SHOWMATCH);
47345f2ab88Sderaadt if (F_ISSET(sp, SC_SCRIPT))
47445f2ab88Sderaadt LF_SET(TXT_CR);
47545f2ab88Sderaadt if (O_ISSET(sp, O_TTYWERASE))
47645f2ab88Sderaadt LF_SET(TXT_TTYWERASE);
47745f2ab88Sderaadt
47845f2ab88Sderaadt /*
47945f2ab88Sderaadt * !!!
48045f2ab88Sderaadt * Mapped keys were sometimes unaffected by the wrapmargin option
48145f2ab88Sderaadt * in the historic 4BSD vi. Consider the following commands, where
48245f2ab88Sderaadt * each is executed on an empty line, in an 80 column screen, with
48345f2ab88Sderaadt * the wrapmargin value set to 60.
48445f2ab88Sderaadt *
48545f2ab88Sderaadt * aABC DEF <ESC>....
48645f2ab88Sderaadt * :map K aABC DEF ^V<ESC><CR>KKKKK
48745f2ab88Sderaadt * :map K 5aABC DEF ^V<ESC><CR>K
48845f2ab88Sderaadt *
48945f2ab88Sderaadt * The first and second commands are affected by wrapmargin. The
49045f2ab88Sderaadt * third is not. (If the inserted text is itself longer than the
49145f2ab88Sderaadt * wrapmargin value, i.e. if the "ABC DEF " string is replaced by
49245f2ab88Sderaadt * something that's longer than 60 columns from the beginning of
49345f2ab88Sderaadt * the line, the first two commands behave as before, but the third
49445f2ab88Sderaadt * command gets fairly strange.) The problem is that people wrote
49545f2ab88Sderaadt * macros that depended on the third command NOT being affected by
49645f2ab88Sderaadt * wrapmargin, as in this gem which centers lines:
49745f2ab88Sderaadt *
49845f2ab88Sderaadt * map #c $mq81a ^V^[81^V^V|D`qld0:s/ / /g^V^M$p
49945f2ab88Sderaadt *
50045f2ab88Sderaadt * For compatibility reasons, we try and make it all work here. I
50145f2ab88Sderaadt * offer no hope that this is right, but it's probably pretty close.
50245f2ab88Sderaadt *
50345f2ab88Sderaadt * XXX
50445f2ab88Sderaadt * Once I work my courage up, this is all gonna go away. It's too
50545f2ab88Sderaadt * evil to survive.
50645f2ab88Sderaadt */
50745f2ab88Sderaadt if ((O_ISSET(sp, O_WRAPLEN) || O_ISSET(sp, O_WRAPMARGIN)) &&
50845f2ab88Sderaadt (!MAPPED_KEYS_WAITING(sp) || !F_ISSET(vp, VC_C1SET)))
50945f2ab88Sderaadt LF_SET(TXT_WRAPMARGIN);
51045f2ab88Sderaadt return (flags);
51145f2ab88Sderaadt }
512