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