add VI_SEL_END, VI_SEL_START, SI_SELECT
[nvi.git] / common / delete.c
blob8a369fd95172ee3b06a4f8f76f950dfc22f95a3a
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.
7 * See the LICENSE file for redistribution information.
8 */
10 #include "config.h"
12 #ifndef lint
13 static const char sccsid[] = "$Id: delete.c,v 10.12 1996/10/23 09:30:49 bostic Exp $ (Berkeley) $Date: 1996/10/23 09:30:49 $";
14 #endif /* not lint */
16 #include <sys/types.h>
17 #include <sys/queue.h>
19 #include <bitstring.h>
20 #include <errno.h>
21 #include <limits.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
26 #include "common.h"
29 * del --
30 * Delete a range of text.
32 * PUBLIC: int del __P((SCR *, MARK *, MARK *, int));
34 int
35 del(sp, fm, tm, lmode)
36 SCR *sp;
37 MARK *fm, *tm;
38 int lmode;
40 recno_t lno;
41 size_t blen, len, nlen, tlen;
42 char *bp, *p;
43 int eof, rval;
45 bp = NULL;
47 /* Case 1 -- delete in line mode. */
48 if (lmode) {
49 for (lno = tm->lno; lno >= fm->lno; --lno) {
50 if (db_delete(sp, lno))
51 return (1);
52 ++sp->rptlines[L_DELETED];
53 if (lno % INTERRUPT_CHECK == 0 && INTERRUPTED(sp))
54 break;
56 goto done;
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))
64 return (1);
65 if (tm->lno >= lno) {
66 if (tm->lno == lno) {
67 if (db_get(sp, lno, DBG_FATAL, &p, &len))
68 return (1);
69 eof = tm->cno >= len ? 1 : 0;
70 } else
71 eof = 1;
72 if (eof) {
73 for (lno = tm->lno; lno > fm->lno; --lno) {
74 if (db_delete(sp, lno))
75 return (1);
76 ++sp->rptlines[L_DELETED];
77 if (lno %
78 INTERRUPT_CHECK == 0 && INTERRUPTED(sp))
79 break;
81 if (db_get(sp, fm->lno, DBG_FATAL, &p, &len))
82 return (1);
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))
86 return (1);
87 goto done;
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))
94 return (1);
95 GET_SPACE_RET(sp, bp, blen, len);
96 if (fm->cno != 0)
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)))
101 goto err;
102 goto done;
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))
112 return (1);
113 GET_SPACE_RET(sp, bp, blen, tlen + 256);
114 memcpy(bp, p, tlen);
117 /* Copy the end partial line into place. */
118 if (db_get(sp, tm->lno, DBG_FATAL, &p, &len))
119 goto err;
120 if (len != 0 && tm->cno != len - 1) {
122 * XXX
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;
128 if (tlen > nlen) {
129 msgq(sp, M_ERR, "002|Line length overflow");
130 goto err;
132 if (tlen == 0) {
133 GET_SPACE_RET(sp, bp, blen, nlen);
134 } else
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))
143 goto err;
145 /* Delete the last and intermediate lines. */
146 for (lno = tm->lno; lno > fm->lno; --lno) {
147 if (db_delete(sp, lno))
148 goto err;
149 ++sp->rptlines[L_DELETED];
150 if (lno % INTERRUPT_CHECK == 0 && INTERRUPTED(sp))
151 break;
154 done: rval = 0;
155 if (0)
156 err: rval = 1;
157 if (bp != NULL)
158 FREE_SPACE(sp, bp, blen);
159 return (rval);