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#ifndef lint
13static const char sccsid[] = "$Id: ex_move.c,v 10.16 2012/02/11 15:52:33 zy Exp $";
14#endif /* not lint */
15
16#include <sys/types.h>
17#include <sys/queue.h>
18#include <sys/time.h>
19
20#include <bitstring.h>
21#include <limits.h>
22#include <stdio.h>
23#include <stdlib.h>
24#include <string.h>
25
26#include "../common/common.h"
27
28/*
29 * ex_copy -- :[line [,line]] co[py] line [flags]
30 *	Copy selected lines.
31 *
32 * PUBLIC: int ex_copy(SCR *, EXCMD *);
33 */
34int
35ex_copy(SCR *sp, EXCMD *cmdp)
36{
37	CB cb = {{ 0 }};
38	MARK fm1, fm2, m, tm;
39	recno_t cnt;
40	int rval;
41
42	rval = 0;
43
44	NEEDFILE(sp, cmdp);
45
46	/*
47	 * It's possible to copy things into the area that's being
48	 * copied, e.g. "2,5copy3" is legitimate.  Save the text to
49	 * a cut buffer.
50	 */
51	fm1 = cmdp->addr1;
52	fm2 = cmdp->addr2;
53	TAILQ_INIT(cb.textq);
54	for (cnt = fm1.lno; cnt <= fm2.lno; ++cnt)
55		if (cut_line(sp, cnt, 0, ENTIRE_LINE, &cb)) {
56			rval = 1;
57			goto err;
58		}
59	cb.flags |= CB_LMODE;
60
61	/* Put the text into place. */
62	tm.lno = cmdp->lineno;
63	tm.cno = 0;
64	if (put(sp, &cb, NULL, &tm, &m, 1))
65		rval = 1;
66	else {
67		/*
68		 * Copy puts the cursor on the last line copied.  The cursor
69		 * returned by the put routine is the first line put, not the
70		 * last, because that's the historic semantic of vi.
71		 */
72		cnt = (fm2.lno - fm1.lno) + 1;
73		sp->lno = m.lno + (cnt - 1);
74		sp->cno = 0;
75	}
76err:	text_lfree(cb.textq);
77	return (rval);
78}
79
80/*
81 * ex_move -- :[line [,line]] mo[ve] line
82 *	Move selected lines.
83 *
84 * PUBLIC: int ex_move(SCR *, EXCMD *);
85 */
86int
87ex_move(SCR *sp, EXCMD *cmdp)
88{
89	LMARK *lmp;
90	MARK fm1, fm2;
91	recno_t cnt, diff, fl, tl, mfl, mtl;
92	size_t blen, len;
93	int mark_reset;
94	CHAR_T *bp;
95	CHAR_T *p;
96
97	NEEDFILE(sp, cmdp);
98
99	/*
100	 * It's not possible to move things into the area that's being
101	 * moved.
102	 */
103	fm1 = cmdp->addr1;
104	fm2 = cmdp->addr2;
105	if (cmdp->lineno >= fm1.lno && cmdp->lineno <= fm2.lno) {
106		msgq(sp, M_ERR, "139|Destination line is inside move range");
107		return (1);
108	}
109
110	/*
111	 * Log the positions of any marks in the to-be-deleted lines.  This
112	 * has to work with the logging code.  What happens is that we log
113	 * the old mark positions, make the changes, then log the new mark
114	 * positions.  Then the marks end up in the right positions no matter
115	 * which way the log is traversed.
116	 *
117	 * XXX
118	 * Reset the MARK_USERSET flag so that the log can undo the mark.
119	 * This isn't very clean, and should probably be fixed.
120	 */
121	fl = fm1.lno;
122	tl = cmdp->lineno;
123
124	/* Log the old positions of the marks. */
125	mark_reset = 0;
126	SLIST_FOREACH(lmp, sp->ep->marks, q)
127		if (lmp->name != ABSMARK1 &&
128		    lmp->lno >= fl && lmp->lno <= tl) {
129			mark_reset = 1;
130			F_CLR(lmp, MARK_USERSET);
131			(void)log_mark(sp, lmp);
132		}
133
134	/* Get memory for the copy. */
135	GET_SPACE_RETW(sp, bp, blen, 256);
136
137	/* Move the lines. */
138	diff = (fm2.lno - fm1.lno) + 1;
139	if (tl > fl) {				/* Destination > source. */
140		mfl = tl - diff;
141		mtl = tl;
142		for (cnt = diff; cnt--;) {
143			if (db_get(sp, fl, DBG_FATAL, &p, &len))
144				return (1);
145			BINC_RETW(sp, bp, blen, len);
146			MEMCPY(bp, p, len);
147			if (db_append(sp, 1, tl, bp, len))
148				return (1);
149			if (mark_reset)
150				SLIST_FOREACH(lmp, sp->ep->marks, q)
151					if (lmp->name != ABSMARK1 &&
152					    lmp->lno == fl)
153						lmp->lno = tl + 1;
154			if (db_delete(sp, fl))
155				return (1);
156		}
157	} else {				/* Destination < source. */
158		mfl = tl;
159		mtl = tl + diff;
160		for (cnt = diff; cnt--;) {
161			if (db_get(sp, fl, DBG_FATAL, &p, &len))
162				return (1);
163			BINC_RETW(sp, bp, blen, len);
164			MEMCPY(bp, p, len);
165			if (db_append(sp, 1, tl++, bp, len))
166				return (1);
167			if (mark_reset)
168				SLIST_FOREACH(lmp, sp->ep->marks, q)
169					if (lmp->name != ABSMARK1 &&
170					    lmp->lno == fl)
171						lmp->lno = tl;
172			++fl;
173			if (db_delete(sp, fl))
174				return (1);
175		}
176	}
177	FREE_SPACEW(sp, bp, blen);
178
179	sp->lno = tl;				/* Last line moved. */
180	sp->cno = 0;
181
182	/* Log the new positions of the marks. */
183	if (mark_reset)
184		SLIST_FOREACH(lmp, sp->ep->marks, q)
185			if (lmp->name != ABSMARK1 &&
186			    lmp->lno >= mfl && lmp->lno <= mtl)
187				(void)log_mark(sp, lmp);
188
189
190	sp->rptlines[L_MOVED] += diff;
191	return (0);
192}
193