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
[] = "$Id: delete.c,v 10.12 1996/10/23 09:30:49 bostic Exp $ (Berkeley) $Date: 1996/10/23 09:30:49 $";
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
);