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
13 static const char sccsid[] = "$Id: delete.c,v 10.18 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 <errno.h>
22 #include <limits.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26
27 #include "common.h"
28
29 /*
30 * del --
31 * Delete a range of text.
32 *
33 * PUBLIC: int del __P((SCR *, MARK *, MARK *, int));
34 */
35 int
del(SCR * sp,MARK * fm,MARK * tm,int lmode)36 del(
37 SCR *sp,
38 MARK *fm,
39 MARK *tm,
40 int lmode)
41 {
42 recno_t lno;
43 size_t blen, len, nlen, tlen;
44 CHAR_T *bp, *p;
45 int eof, rval;
46
47 bp = NULL;
48
49 /* Case 1 -- delete in line mode. */
50 if (lmode) {
51 for (lno = tm->lno; lno >= fm->lno; --lno) {
52 if (db_delete(sp, lno))
53 return (1);
54 ++sp->rptlines[L_DELETED];
55 if (lno % INTERRUPT_CHECK == 0 && INTERRUPTED(sp))
56 break;
57 }
58 goto done;
59 }
60
61 /*
62 * Case 2 -- delete to EOF. This is a special case because it's
63 * easier to pick it off than try and find it in the other cases.
64 */
65 if (db_last(sp, &lno))
66 return (1);
67 if (tm->lno >= lno) {
68 if (tm->lno == lno) {
69 if (db_get(sp, lno, DBG_FATAL, &p, &len))
70 return (1);
71 eof = tm->cno != ENTIRE_LINE && tm->cno >= len ? 1 : 0;
72 } else
73 eof = 1;
74 if (eof) {
75 for (lno = tm->lno; lno > fm->lno; --lno) {
76 if (db_delete(sp, lno))
77 return (1);
78 ++sp->rptlines[L_DELETED];
79 if (lno %
80 INTERRUPT_CHECK == 0 && INTERRUPTED(sp))
81 break;
82 }
83 if (db_get(sp, fm->lno, DBG_FATAL, &p, &len))
84 return (1);
85 GET_SPACE_RETW(sp, bp, blen, fm->cno);
86 MEMCPY(bp, p, fm->cno);
87 if (db_set(sp, fm->lno, bp, fm->cno))
88 return (1);
89 goto done;
90 }
91 }
92
93 /* Case 3 -- delete within a single line. */
94 if (tm->lno == fm->lno) {
95 if (db_get(sp, fm->lno, DBG_FATAL, &p, &len))
96 return (1);
97 GET_SPACE_RETW(sp, bp, blen, len);
98 if (fm->cno != 0)
99 MEMCPY(bp, p, fm->cno);
100 MEMCPY(bp + fm->cno, p + (tm->cno + 1),
101 len - (tm->cno + 1));
102 if (db_set(sp, fm->lno,
103 bp, len - ((tm->cno - fm->cno) + 1)))
104 goto err;
105 goto done;
106 }
107
108 /*
109 * Case 4 -- delete over multiple lines.
110 *
111 * Copy the start partial line into place.
112 */
113 if ((tlen = fm->cno) != 0) {
114 if (db_get(sp, fm->lno, DBG_FATAL, &p, NULL))
115 return (1);
116 GET_SPACE_RETW(sp, bp, blen, tlen + 256);
117 MEMCPY(bp, p, tlen);
118 }
119
120 /* Copy the end partial line into place. */
121 if (db_get(sp, tm->lno, DBG_FATAL, &p, &len))
122 goto err;
123 if (len != 0 && tm->cno != len - 1) {
124 /*
125 * XXX
126 * We can overflow memory here, if the total length is greater
127 * than SIZE_T_MAX. The only portable way I've found to test
128 * is depending on the overflow being less than the value.
129 */
130 nlen = (len - (tm->cno + 1)) + tlen;
131 if (tlen > nlen) {
132 msgq(sp, M_ERR, "002|Line length overflow");
133 goto err;
134 }
135 if (tlen == 0) {
136 GET_SPACE_RETW(sp, bp, blen, nlen);
137 } else
138 ADD_SPACE_RETW(sp, bp, blen, nlen);
139
140 MEMCPY(bp + tlen, p + (tm->cno + 1), len - (tm->cno + 1));
141 tlen += len - (tm->cno + 1);
142 }
143
144 /* Set the current line. */
145 if (db_set(sp, fm->lno, bp, tlen))
146 goto err;
147
148 /* Delete the last and intermediate lines. */
149 for (lno = tm->lno; lno > fm->lno; --lno) {
150 if (db_delete(sp, lno))
151 goto err;
152 ++sp->rptlines[L_DELETED];
153 if (lno % INTERRUPT_CHECK == 0 && INTERRUPTED(sp))
154 break;
155 }
156
157 done: rval = 0;
158 if (0)
159 err: rval = 1;
160 if (bp != NULL)
161 FREE_SPACEW(sp, bp, blen);
162 return (rval);
163 }
164