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.
7 * See the LICENSE file for redistribution information.
13 static const char sccsid[] = "@(#)delete.c 10.12 (Berkeley) 10/23/96";
16 #include <sys/types.h>
17 #include <sys/queue.h>
19 #include <bitstring.h>
30 * Delete a range of text.
32 * PUBLIC: int del __P((SCR *, MARK *, MARK *, int));
35 del(sp, fm, tm, lmode)
41 size_t blen, len, nlen, tlen;
47 /* Case 1 -- delete in line mode. */
49 for (lno = tm->lno; lno >= fm->lno; --lno) {
50 if (db_delete(sp, lno))
52 ++sp->rptlines[L_DELETED];
53 if (lno % INTERRUPT_CHECK == 0 && INTERRUPTED(sp))
60 * Case 2 -- delete to EOF. This is a special case because it's
61 * easier to pick it off than try and find it in the other cases.
63 if (db_last(sp, &lno))
67 if (db_get(sp, lno, DBG_FATAL, &p, &len))
69 eof = tm->cno >= len ? 1 : 0;
73 for (lno = tm->lno; lno > fm->lno; --lno) {
74 if (db_delete(sp, lno))
76 ++sp->rptlines[L_DELETED];
78 INTERRUPT_CHECK == 0 && INTERRUPTED(sp))
81 if (db_get(sp, fm->lno, DBG_FATAL, &p, &len))
83 GET_SPACE_RET(sp, bp, blen, fm->cno);
84 memcpy(bp, p, fm->cno);
85 if (db_set(sp, fm->lno, bp, fm->cno))
91 /* Case 3 -- delete within a single line. */
92 if (tm->lno == fm->lno) {
93 if (db_get(sp, fm->lno, DBG_FATAL, &p, &len))
95 GET_SPACE_RET(sp, bp, blen, len);
97 memcpy(bp, p, fm->cno);
98 memcpy(bp + fm->cno, p + (tm->cno + 1), len - (tm->cno + 1));
99 if (db_set(sp, fm->lno,
100 bp, len - ((tm->cno - fm->cno) + 1)))
106 * Case 4 -- delete over multiple lines.
108 * Copy the start partial line into place.
110 if ((tlen = fm->cno) != 0) {
111 if (db_get(sp, fm->lno, DBG_FATAL, &p, NULL))
113 GET_SPACE_RET(sp, bp, blen, tlen + 256);
117 /* Copy the end partial line into place. */
118 if (db_get(sp, tm->lno, DBG_FATAL, &p, &len))
120 if (len != 0 && tm->cno != len - 1) {
123 * We can overflow memory here, if the total length is greater
124 * than SIZE_T_MAX. The only portable way I've found to test
125 * is depending on the overflow being less than the value.
127 nlen = (len - (tm->cno + 1)) + tlen;
129 msgq(sp, M_ERR, "002|Line length overflow");
133 GET_SPACE_RET(sp, bp, blen, nlen);
135 ADD_SPACE_RET(sp, bp, blen, nlen);
137 memcpy(bp + tlen, p + (tm->cno + 1), len - (tm->cno + 1));
138 tlen += len - (tm->cno + 1);
141 /* Set the current line. */
142 if (db_set(sp, fm->lno, bp, tlen))
145 /* Delete the last and intermediate lines. */
146 for (lno = tm->lno; lno > fm->lno; --lno) {
147 if (db_delete(sp, lno))
149 ++sp->rptlines[L_DELETED];
150 if (lno % INTERRUPT_CHECK == 0 && INTERRUPTED(sp))
158 FREE_SPACE(sp, bp, blen);